pkg/cost/COST_TAP_ADJ.h

b4daa24319 Shre*0001 C     ==================================================================
                0002 C     HEADER COST_TAP_ADJ
                0003 C     ==================================================================
                0004
                0005       COMMON /COST_R_B/
                0006      &        fcb
                0007       _RL  fcb
                0008
                0009 #ifdef ALLOW_COST_STATE_FINAL
                0010       COMMON /COST_STATE_FINAL_R_B/
                0011      &        objf_state_finalb
                0012       _RL  objf_state_finalb (sNx,sNy,nSx,nSy,4*Nr+1)
                0013 #endif
                0014
                0015 #ifdef ALLOW_COST_VECTOR
                0016       COMMON /COST_VECTOR_R_B/
                0017      &        objf_vectorb
                0018       _RL  objf_vectorb(sNx,nSx,nSy)
                0019 #endif
                0020
                0021 #ifdef ALLOW_DIC
                0022       COMMON /DIC_COST_CTRL_B/
                0023      &        totcostb
                0024       _RL  totcostb
                0025 #endif
                0026 C     ==================================================================
                0027 C     END OF HEADER COST_TAP_ADJ
                0028 C     ==================================================================