Object Cross Reference


Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ

W    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 540]    LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 648]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 650]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 652]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 658]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 662]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 670]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 676]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 679]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 684]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 702]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 705]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 724]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 726]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 729]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 731]       LAYOUT_DEM_MI_EW
    Use Argument   [layout_mi_dem.f, 735]   LAYOUT_DEM_MI_EW
    Use Argument   [layout_mi_dem.f, 738]   LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 758]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 759]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 785]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 786]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 835]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 836]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 839]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 841]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 844]       LAYOUT_DEM_MI_EW

W    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 127]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 234]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 236]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 238]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 244]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 248]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 256]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 262]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 265]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 270]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 287]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 290]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 309]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 311]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 314]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 316]       LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 319]   LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 322]   LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 339]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 340]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 366]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 367]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 416]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 417]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 420]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 422]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 425]       LAYOUT_DEM_MI_NS

W    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 959]    LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1063]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1065]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1067]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1071]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1075]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1083]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1086]      LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1103]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1106]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1125]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1127]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1130]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1132]      LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 1136]   LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 1139]   LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1159]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1160]      LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1186]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1187]      LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1236]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1237]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1240]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1242]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1245]      LAYOUT_DEM_MI_TB

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [calc_mflux.f, 80]        CALC_MFLUX0
    Declare   [calc_mflux.f, 98]       CALC_MFLUX0
    Use   [calc_mflux.f, 141]          CALC_MFLUX0
    Use   [calc_mflux.f, 144]          CALC_MFLUX0

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [calc_mflux.f, 163]       CALC_MFLUX_AM
    Declare   [calc_mflux.f, 185]      CALC_MFLUX_AM
    Use   [calc_mflux.f, 244]          CALC_MFLUX_AM
    Use   [calc_mflux.f, 249]          CALC_MFLUX_AM

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [conv_rop.f, 65]          CONV_ROP0
    Declare   [conv_rop.f, 86]         CONV_ROP0
    Use   [conv_rop.f, 154]            CONV_ROP0
    Use   [conv_rop.f, 162]            CONV_ROP0

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [conv_rop.f, 188]         CONV_ROP1
    Declare   [conv_rop.f, 212]        CONV_ROP1
    Use   [conv_rop.f, 230]            CONV_ROP1

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23435]        DATP
    Declare   [ODEPACK.F, 23438]       DATP
    Declare   [ODEPACK.F, 23439]       DATP
    Use Argument   [ODEPACK.F, 23488]   DATP
    Use   [ODEPACK.F, 23490]           DATP
    Use Argument   [ODEPACK.F, 23493]   DATP
    Set   [ODEPACK.F, 23496]           DATP

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (N)
    Define   [ODEPACK.F, 21229]        DBNORM
    Declare   [ODEPACK.F, 21241]       DBNORM
    Declare   [ODEPACK.F, 21243]       DBNORM
    Use   [ODEPACK.F, 21251]           DBNORM
    Use   [ODEPACK.F, 21252]           DBNORM

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (N)
    Define   [ODEPACK.F, 21207]        DFNORM
    Declare   [ODEPACK.F, 21215]       DFNORM
    Declare   [ODEPACK.F, 21216]       DFNORM
    Use   [ODEPACK.F, 21221]           DFNORM
    Use   [ODEPACK.F, 21222]           DFNORM

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (N)
    Define   [ODEPACK.F, 21189]        DMNORM
    Declare   [ODEPACK.F, 21197]       DMNORM
    Declare   [ODEPACK.F, 21198]       DMNORM
    Use   [ODEPACK.F, 21201]           DMNORM

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23141]        DPCG
    Declare   [ODEPACK.F, 23144]       DPCG
    Declare   [ODEPACK.F, 23145]       DPCG
    Use Argument   [ODEPACK.F, 23254]   DPCG
    Use Argument   [ODEPACK.F, 23256]   DPCG
    Use Argument   [ODEPACK.F, 23261]   DPCG

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23286]        DPCGS
    Declare   [ODEPACK.F, 23289]       DPCGS
    Declare   [ODEPACK.F, 23290]       DPCGS
    Use Argument   [ODEPACK.F, 23402]   DPCGS
    Use   [ODEPACK.F, 23406]           DPCGS
    Use Argument   [ODEPACK.F, 23411]   DPCGS

W    (Dummy Argument)  Declared as: DOUBLE PRECISION (N)
    Define   [ODEPACK.F, 17762]        DVNORM
    Declare   [ODEPACK.F, 17785]       DVNORM
    Declare   [ODEPACK.F, 17786]       DVNORM
    Use   [ODEPACK.F, 17791]           DVNORM

W0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 4735]         DLSODA
    Set   [ODEPACK.F, 4983]            DLSODA
    Use   [ODEPACK.F, 4984]            DLSODA
    Use   [ODEPACK.F, 4999]            DLSODA
    Use   [ODEPACK.F, 4999]            DLSODA

W0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 6492]         DLSODAR
    Set   [ODEPACK.F, 6763]            DLSODAR
    Use   [ODEPACK.F, 6764]            DLSODAR
    Use   [ODEPACK.F, 6779]            DLSODAR
    Use   [ODEPACK.F, 6779]            DLSODAR

W0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 1219]         DLSODE
    Set   [ODEPACK.F, 1421]            DLSODE
    Use   [ODEPACK.F, 1422]            DLSODE
    Use   [ODEPACK.F, 1437]            DLSODE
    Use   [ODEPACK.F, 1437]            DLSODE

W0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 3023]         DLSODES
    Set   [ODEPACK.F, 3343]            DLSODES
    Use   [ODEPACK.F, 3344]            DLSODES
    Use   [ODEPACK.F, 3359]            DLSODES
    Use   [ODEPACK.F, 3359]            DLSODES

W0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 12036]        DLSODI
    Set   [ODEPACK.F, 12246]           DLSODI
    Use   [ODEPACK.F, 12247]           DLSODI
    Use   [ODEPACK.F, 12262]           DLSODI
    Use   [ODEPACK.F, 12262]           DLSODI

W0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 15810]        DLSODIS
    Set   [ODEPACK.F, 16145]           DLSODIS
    Use   [ODEPACK.F, 16146]           DLSODIS
    Use   [ODEPACK.F, 16161]           DLSODIS
    Use   [ODEPACK.F, 16161]           DLSODIS

W0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 8327]         DLSODPK
    Set   [ODEPACK.F, 8563]            DLSODPK
    Use   [ODEPACK.F, 8564]            DLSODPK
    Use   [ODEPACK.F, 8579]            DLSODPK
    Use   [ODEPACK.F, 8579]            DLSODPK

W0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 13838]        DLSOIBT
    Set   [ODEPACK.F, 14045]           DLSOIBT
    Use   [ODEPACK.F, 14046]           DLSOIBT
    Use   [ODEPACK.F, 14061]           DLSOIBT
    Use   [ODEPACK.F, 14061]           DLSOIBT

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 427]       SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 742]   SOURCE_V_G_BC
    Use   [source_v_g.f, 743]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 747]   SOURCE_V_G_BC
    Use   [source_v_g.f, 748]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 752]   SOURCE_V_G_BC
    Use   [source_v_g.f, 753]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 757]   SOURCE_V_G_BC
    Use   [source_v_g.f, 758]          SOURCE_V_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 66]     CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 110]   CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 111]       CG_SOURCE_U_G

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 323]    CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 372]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 373]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 376]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 377]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 380]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 381]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 384]   CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 385]       CG_SOURCE_U_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 438]       SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 755]   SOURCE_U_G_BC
    Use   [source_u_g.f, 756]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 760]   SOURCE_U_G_BC
    Use   [source_u_g.f, 761]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 765]   SOURCE_U_G_BC
    Use   [source_u_g.f, 766]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 770]   SOURCE_U_G_BC
    Use   [source_u_g.f, 771]          SOURCE_U_G_BC

W_F_Slip    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 957]       Wall_Function
    Declare   [source_u_g.f, 980]      Wall_Function
    Set   [source_u_g.f, 998]          Wall_Function
    Set   [source_u_g.f, 1004]         Wall_Function

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 65]     CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 106]   CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 107]       CG_SOURCE_W_G

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 498]       SOURCE_W_G_BC
    Set   [source_w_g.f, 831]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 843]   SOURCE_W_G_BC
    Use   [source_w_g.f, 845]          SOURCE_W_G_BC
    Set   [source_w_g.f, 850]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 862]   SOURCE_W_G_BC
    Use   [source_w_g.f, 864]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 868]   SOURCE_W_G_BC
    Use   [source_w_g.f, 869]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 873]   SOURCE_W_G_BC
    Use   [source_w_g.f, 874]          SOURCE_W_G_BC

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 65]     CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 110]   CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 111]       CG_SOURCE_V_G

W_F_Slip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 318]    CG_SOURCE_V_G_BC
    Use Argument   [CG_source_v_g.f, 367]   CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 368]       CG_SOURCE_V_G_BC
    Use Argument   [CG_source_v_g.f, 371]   CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 372]       CG_SOURCE_V_G_BC

W_g    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(INOUT)
    Define   [correct_0.f, 57]         CORRECT_0G
    Declare   [correct_0.f, 90]        CORRECT_0G
    Set   [correct_0.f, 115]           CORRECT_0G
    Use   [correct_0.f, 115]           CORRECT_0G
    Set   [correct_0.f, 124]           CORRECT_0G
    Use   [correct_0.f, 124]           CORRECT_0G

W_g0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_mod.f, 292]           (Unnamed_Main)

W_G0    (Unknown Variable)
    Use   [write_out0.f, 474]          WRITE_OUT0
    Use   [write_out0.f, 474]          WRITE_OUT0
    Use   [write_res0.f, 258]          WRITE_RES0
    Set   [init_namelist.f, 3561]      INIT_NAMELIST

W_g_tmp    (Dummy Argument)  Declared as: DOUBLE PRECISION (:) INTENT(OUT)
    Define   [solve_vel_star.f, 126]   init
    Declare   [solve_vel_star.f, 129]   init
    Set   [solve_vel_star.f, 141]      init

W_g_tmp    (Dummy Argument)  Declared as: DOUBLE PRECISION (:) INTENT(IN)
    Define   [solve_vel_star.f, 159]   save
    Declare   [solve_vel_star.f, 162]   save
    Use   [solve_vel_star.f, 173]      save

W_g_tmp    (Dummy Argument)  Declared as: DOUBLE PRECISION (:) INTENT(OUT)
    Define   [solve_vel_star.f, 507]   W_m_star
    Declare   [solve_vel_star.f, 510]   W_m_star
    Use Argument   [solve_vel_star.f, 629]   W_m_star

W_gtmp    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [solve_vel_star.f, 56]    SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 77]       SOLVE_VEL_STAR
    Use Argument   [solve_vel_star.f, 86]   SOLVE_VEL_STAR
    Use Argument   [solve_vel_star.f, 96]   SOLVE_VEL_STAR
    Use Argument   [solve_vel_star.f, 99]   SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 114]      SOLVE_VEL_STAR

W_m    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [calc_resid.f, 720]       CALC_RESID_U
    Declare   [calc_resid.f, 748]      CALC_RESID_U
    Use   [calc_resid.f, 829]          CALC_RESID_U

W_m    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [calc_resid.f, 923]       CALC_RESID_V
    Declare   [calc_resid.f, 951]      CALC_RESID_V
    Use   [calc_resid.f, 1031]         CALC_RESID_V

W_m    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [calc_resid.f, 1128]      CALC_RESID_W
    Declare   [calc_resid.f, 1156]     CALC_RESID_W
    Use   [calc_resid.f, 1225]         CALC_RESID_W
    Use   [calc_resid.f, 1226]         CALC_RESID_W
    Use   [calc_resid.f, 1226]         CALC_RESID_W
    Use   [calc_resid.f, 1227]         CALC_RESID_W
    Use   [calc_resid.f, 1227]         CALC_RESID_W
    Use   [calc_resid.f, 1231]         CALC_RESID_W
    Use   [calc_resid.f, 1231]         CALC_RESID_W
    Use   [calc_resid.f, 1236]         CALC_RESID_W

W_NODE    (Local Variable)  Declared as: LOGICAL
    Define   [get_master.f, 33]        GET_U_MASTER_CELLS
    Set   [get_master.f, 116]          GET_U_MASTER_CELLS
    Use   [get_master.f, 117]          GET_U_MASTER_CELLS

W_NODE    (Local Variable)  Declared as: LOGICAL
    Define   [get_master.f, 188]       GET_V_MASTER_CELLS
    Set   [get_master.f, 261]          GET_V_MASTER_CELLS
    Use   [get_master.f, 262]          GET_V_MASTER_CELLS

W_NODE    (Local Variable)  Declared as: LOGICAL
    Define   [get_master.f, 331]       GET_W_MASTER_CELLS
    Set   [get_master.f, 404]          GET_W_MASTER_CELLS
    Use   [get_master.f, 405]          GET_W_MASTER_CELLS
    Use   [get_master.f, 408]          GET_W_MASTER_CELLS

W_NODE_AT_B    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_g.f, 565]       CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 740]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 742]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 765]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 771]          CALC_CG_DERIV_VEL_GAS

W_NODE_AT_B    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_g.f, 118]       CALC_CG_TRD_G
    Set   [calc_trd_g.f, 247]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 249]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 265]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 269]          CALC_CG_TRD_G

W_NODE_AT_B    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_s.f, 624]       CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 809]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 812]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 835]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 841]          CALC_CG_DERIV_VEL_SOLIDS

W_NODE_AT_B    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_s.f, 128]       CALC_CG_TRD_S
    Set   [calc_trd_s.f, 255]          CALC_CG_TRD_S
    Use   [calc_trd_s.f, 257]          CALC_CG_TRD_S

W_NODE_AT_BE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 292]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 516]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 539]             CALC_CG_TAU_U_G

W_NODE_AT_BE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 330]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 532]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 555]             CALC_CG_TAU_U_S

W_NODE_AT_BN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 244]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 467]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 491]             CALC_CG_TAU_V_G

W_NODE_AT_BN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 293]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 488]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 510]             CALC_CG_TAU_V_S

W_NODE_AT_BS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 244]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 469]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 491]             CALC_CG_TAU_V_G

W_NODE_AT_BS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 293]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 490]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 510]             CALC_CG_TAU_V_S

W_NODE_AT_BW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 292]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 518]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 539]             CALC_CG_TAU_U_G

W_NODE_AT_BW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 330]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 534]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 555]             CALC_CG_TAU_U_S

W_NODE_AT_NT    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 441]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 550]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 553]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 556]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 560]           GET_3D_ALPHA_V_CUT_CELL

W_NODE_AT_ST    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 441]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 551]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 553]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 556]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 560]           GET_3D_ALPHA_V_CUT_CELL

W_NODE_AT_T    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_g.f, 565]       CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 738]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 742]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 765]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 771]          CALC_CG_DERIV_VEL_GAS

W_NODE_AT_T    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_g.f, 118]       CALC_CG_TRD_G
    Set   [calc_trd_g.f, 245]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 249]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 265]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 269]          CALC_CG_TRD_G

W_NODE_AT_T    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_s.f, 624]       CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 807]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 812]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 835]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 841]          CALC_CG_DERIV_VEL_SOLIDS

W_NODE_AT_T    (Local Variable)  Declared as: LOGICAL
    Define   [calc_trd_s.f, 128]       CALC_CG_TRD_S
    Set   [calc_trd_s.f, 253]          CALC_CG_TRD_S
    Use   [calc_trd_s.f, 257]          CALC_CG_TRD_S

W_NODE_AT_TE    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 36]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 143]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 145]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 149]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 153]           GET_3D_ALPHA_U_CUT_CELL

W_NODE_AT_TE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 292]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 512]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 521]             CALC_CG_TAU_U_G

W_NODE_AT_TE    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 330]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 528]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 537]             CALC_CG_TAU_U_S

W_NODE_AT_TN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 244]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 463]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 472]             CALC_CG_TAU_V_G

W_NODE_AT_TN    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 293]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 484]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 493]             CALC_CG_TAU_V_S

W_NODE_AT_TS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_g.f, 244]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 465]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 472]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 510]             CALC_CG_TAU_V_G

W_NODE_AT_TS    (Local Variable)  Declared as: LOGICAL
    Define   [tau_v_s.f, 293]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 486]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 493]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 527]             CALC_CG_TAU_V_S

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [get_alpha.f, 36]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 142]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 145]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 149]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 153]           GET_3D_ALPHA_U_CUT_CELL

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_g.f, 292]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 514]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 521]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 558]             CALC_CG_TAU_U_G

W_NODE_AT_TW    (Local Variable)  Declared as: LOGICAL
    Define   [tau_u_s.f, 330]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 530]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 537]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 573]             CALC_CG_TAU_U_S

W_s    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3,DIMENSION_M) INTENT(INOUT)
    Define   [correct_0.f, 154]        CORRECT_0S
    Declare   [correct_0.f, 183]       CORRECT_0S
    Set   [correct_0.f, 209]           CORRECT_0S
    Use   [correct_0.f, 209]           CORRECT_0S
    Set   [correct_0.f, 219]           CORRECT_0S
    Use   [correct_0.f, 219]           CORRECT_0S

W_s0    (Local Variable)  Declared as: DOUBLE PRECISION (DIM_M)
    Define   [bc_mod.f, 301]           (Unnamed_Main)

W_s_B    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 134]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 194]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 264]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 334]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 402]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 476]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 547]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 615]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 684]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 759]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 830]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 899]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 968]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_B    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1109]   SDDOTS
    Use   [calc_s_ddot_s.f, 1169]      SDDOTS

W_s_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 138]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 200]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 203]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 270]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 273]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 339]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 342]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 407]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 410]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 481]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 484]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 552]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 555]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 621]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 624]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 690]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 693]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 764]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 767]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 835]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 838]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 904]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 907]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 973]       CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 976]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_C    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1113]   SDDOTS
    Use   [calc_s_ddot_s.f, 1163]      SDDOTS

W_s_E    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 125]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 185]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 200]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 255]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 270]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 327]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 395]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 469]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 540]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 606]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 621]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 675]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 690]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 749]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 820]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 892]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 961]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_E    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1100]   SDDOTS
    Use   [calc_s_ddot_s.f, 1162]      SDDOTS

W_s_N    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 119]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 179]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 207]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 249]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 277]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 323]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 346]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 391]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 414]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 465]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 488]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 536]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 559]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 600]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 628]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 669]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 697]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 745]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 771]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 816]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 842]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 885]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 911]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 954]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 980]   CALC_S_DDOT_S

W_s_N    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1016]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1094]   SDDOTS
    Use   [calc_s_ddot_s.f, 1166]      SDDOTS

W_s_S    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 122]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 182]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 252]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 325]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 393]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 467]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 538]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 603]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 672]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 747]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 818]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 888]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 957]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_S    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1016]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1097]   SDDOTS
    Use   [calc_s_ddot_s.f, 1166]      SDDOTS

W_s_T    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 131]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 191]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 261]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 331]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 399]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 473]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 544]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 612]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 681]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 756]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 827]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 896]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 965]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_T    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1106]   SDDOTS
    Use   [calc_s_ddot_s.f, 1169]      SDDOTS

W_s_tmp    (Dummy Argument)  Declared as: DOUBLE PRECISION (:,:) INTENT(OUT)
    Define   [solve_vel_star.f, 126]   init
    Declare   [solve_vel_star.f, 130]   init
    Set   [solve_vel_star.f, 149]      init

W_s_tmp    (Dummy Argument)  Declared as: DOUBLE PRECISION (:,:) INTENT(IN)
    Define   [solve_vel_star.f, 159]   save
    Declare   [solve_vel_star.f, 163]   save
    Use   [solve_vel_star.f, 181]      save

W_s_tmp    (Dummy Argument)  Declared as: DOUBLE PRECISION (:,:) INTENT(OUT)
    Define   [solve_vel_star.f, 507]   W_m_star
    Declare   [solve_vel_star.f, 511]   W_m_star
    Use Argument   [solve_vel_star.f, 643]   W_m_star

W_s_W    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 128]    CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 188]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 200]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 208]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 258]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 270]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 278]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 329]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 347]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 397]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 415]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 471]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 489]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 542]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 560]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 609]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 621]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 629]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 678]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 690]   CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 698]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 752]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 772]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 823]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 843]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 894]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 912]   CALC_S_DDOT_S
    Set   [calc_s_ddot_s.f, 963]       CALC_S_DDOT_S
    Use Argument   [calc_s_ddot_s.f, 981]   CALC_S_DDOT_S

W_s_W    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_s_ddot_s.f, 1017]   SDDOTS
    Declare   [calc_s_ddot_s.f, 1103]   SDDOTS
    Use   [calc_s_ddot_s.f, 1162]      SDDOTS

W_stmp    (Local Variable)  Declared as: DOUBLE PRECISION (:,:) ALLOCATABLE
    Define   [solve_vel_star.f, 57]    SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 80]       SOLVE_VEL_STAR
    Use Argument   [solve_vel_star.f, 86]   SOLVE_VEL_STAR
    Use Argument   [solve_vel_star.f, 96]   SOLVE_VEL_STAR
    Use Argument   [solve_vel_star.f, 99]   SOLVE_VEL_STAR
    Set   [solve_vel_star.f, 117]      SOLVE_VEL_STAR

W_VEL    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_u_friction.f, 31]   CALC_Gw_Hw_Cw
    Declare   [calc_u_friction.f, 76]   CALC_Gw_Hw_Cw
    Use   [calc_u_friction.f, 304]     CALC_Gw_Hw_Cw

WALL    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [write_out3.f, 9]         WRITE_OUT3
    Declare   [write_out3.f, 17]       WRITE_OUT3
    Use   [write_out3.f, 41]           WRITE_OUT3
    Set   [write_out3.f, 41]           WRITE_OUT3
    Use Argument   [write_out3.f, 42]   WRITE_OUT3

WALL    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [cfwallcontact.f, 9]      CFWALLCONTACT
    Declare   [cfwallcontact.f, 27]    CFWALLCONTACT
    Use   [cfwallcontact.f, 67]        CFWALLCONTACT
    Use   [cfwallcontact.f, 67]        CFWALLCONTACT
    Use   [cfwallcontact.f, 68]        CFWALLCONTACT
    Use   [cfwallcontact.f, 68]        CFWALLCONTACT
    Use   [cfwallcontact.f, 70]        CFWALLCONTACT
    Use   [cfwallcontact.f, 70]        CFWALLCONTACT
    Use   [cfwallcontact.f, 77]        CFWALLCONTACT
    Use   [cfwallcontact.f, 84]        CFWALLCONTACT
    Use   [cfwallcontact.f, 89]        CFWALLCONTACT
    Use   [cfwallcontact.f, 94]        CFWALLCONTACT
    Use   [cfwallcontact.f, 99]        CFWALLCONTACT
    Use   [cfwallcontact.f, 104]       CFWALLCONTACT

WALL_HAULT    (Local Variable)  Declared as: LOGICAL
    Define   [check_bqend.f, 25]       CHECK_BATCH_QUEUE_END
    Set   [check_bqend.f, 36]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 40]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 69]          CHECK_BATCH_QUEUE_END

WALL_NORM    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMN) INTENT(IN)
    Define   [apply_wall_bc_pic.f, 167]   PIC_REFLECT_PART
    Declare   [apply_wall_bc_pic.f, 183]   PIC_REFLECT_PART
    Use Argument   [apply_wall_bc_pic.f, 213]   PIC_REFLECT_PART
    Use   [apply_wall_bc_pic.f, 217]   PIC_REFLECT_PART
    Use Argument   [apply_wall_bc_pic.f, 231]   PIC_REFLECT_PART

WALL_NORM    (Local Variable)  Declared as: DOUBLE PRECISION (3)
    Define   [mass_inflow_pic.f, 33]   MASS_INFLOW_PIC
    Set   [mass_inflow_pic.f, 77]      MASS_INFLOW_PIC
    Use Argument   [mass_inflow_pic.f, 82]   MASS_INFLOW_PIC
    Use Argument   [mass_inflow_pic.f, 122]   MASS_INFLOW_PIC

WALL_POS    (Dummy Argument)  Declared as: DOUBLE PRECISION (3) INTENT(INOUT)
    Define   [cfwallposvel.f, 11]      CFWALLPOSVEL
    Declare   [cfwallposvel.f, 38]     CFWALLPOSVEL
    Set   [cfwallposvel.f, 52]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 62]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 63]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 64]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 76]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 77]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 78]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 90]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 91]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 92]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 104]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 105]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 106]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 118]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 119]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 120]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 132]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 133]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 134]        CFWALLPOSVEL

WALL_RADIUS_RATIO    (Variable)  Declared as: DOUBLE PRECISION
    Define   [deprecated.f, 68]        DEPRECATED_OR_UNKNOWN
    Contain   [deprecated.f, 97]       DEP_2014_1

WALL_START    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [diffuse_mean_fields.f, 50]   DIFFUSE_MEAN_FIELD
    Set   [diffuse_mean_fields.f, 59]   DIFFUSE_MEAN_FIELD
    Use   [diffuse_mean_fields.f, 90]   DIFFUSE_MEAN_FIELD

WALL_STOP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_bqend.f, 27]       CHECK_BATCH_QUEUE_END
    Set   [check_bqend.f, 32]          CHECK_BATCH_QUEUE_END
    Set   [check_bqend.f, 33]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 33]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 36]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 41]          CHECK_BATCH_QUEUE_END
    Set   [check_bqend.f, 41]          CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 46]          CHECK_BATCH_QUEUE_END

WALL_VEL    (Dummy Argument)  Declared as: DOUBLE PRECISION (3) INTENT(INOUT)
    Define   [cfwallposvel.f, 11]      CFWALLPOSVEL
    Declare   [cfwallposvel.f, 40]     CFWALLPOSVEL
    Set   [cfwallposvel.f, 51]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 66]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 67]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 68]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 80]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 81]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 82]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 94]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 95]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 96]         CFWALLPOSVEL
    Set   [cfwallposvel.f, 108]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 109]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 110]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 122]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 123]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 124]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 136]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 137]        CFWALLPOSVEL
    Set   [cfwallposvel.f, 138]        CFWALLPOSVEL

WALLCONTACT    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [cfwallcontact.f, 9]      CFWALLCONTACT
    Declare   [cfwallcontact.f, 32]    CFWALLCONTACT
    Set   [cfwallcontact.f, 59]        CFWALLCONTACT
    Set   [cfwallcontact.f, 81]        CFWALLCONTACT
    Set   [cfwallcontact.f, 86]        CFWALLCONTACT
    Set   [cfwallcontact.f, 91]        CFWALLCONTACT
    Set   [cfwallcontact.f, 96]        CFWALLCONTACT
    Set   [cfwallcontact.f, 101]       CFWALLCONTACT
    Set   [cfwallcontact.f, 106]       CFWALLCONTACT

WALLDTSPLIT    (Variable)  Declared as: LOGICAL
    Define   [deprecated.f, 66]        DEPRECATED_OR_UNKNOWN
    Contain   [deprecated.f, 97]       DEP_2014_1

WALLREFLECT    (Variable)  Declared as: LOGICAL
    Define   [deprecated.f, 66]        DEPRECATED_OR_UNKNOWN
    Contain   [deprecated.f, 91]       DEP_2014_1

Wb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 53]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 151]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 204]       CG_SOURCE_W_G

Wb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 71]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 184]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 229]       CG_SOURCE_W_S

wDIMN    (Local Variable)  Declared as: INTEGER
    Define   [write_des_data.f, 297]   WRITE_DES_TECPLOT
    Set   [write_des_data.f, 300]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 349]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 349]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 353]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 353]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 376]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 380]      WRITE_DES_TECPLOT

WDIR    (Local Variable)  Declared as: INTEGER
    Define   [mass_inflow_pic.f, 30]   MASS_INFLOW_PIC
    Set   [mass_inflow_pic.f, 80]      MASS_INFLOW_PIC
    Set   [mass_inflow_pic.f, 82]      MASS_INFLOW_PIC
    Use   [mass_inflow_pic.f, 82]      MASS_INFLOW_PIC
    Use   [mass_inflow_pic.f, 105]     MASS_INFLOW_PIC
    Use   [mass_inflow_pic.f, 109]     MASS_INFLOW_PIC

We    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 53]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 144]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 199]       CG_SOURCE_W_G

We    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 71]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 179]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 224]       CG_SOURCE_W_S

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [interpolate_pic.f, 51]   INTERPOLATE_PIC1
    Set   [interpolate_pic.f, 77]      INTERPOLATE_PIC1
    Use   [interpolate_pic.f, 79]      INTERPOLATE_PIC1
    Use   [interpolate_pic.f, 80]      INTERPOLATE_PIC1
    Use   [interpolate_pic.f, 81]      INTERPOLATE_PIC1
    Use   [interpolate_pic.f, 83]      INTERPOLATE_PIC1
    Use   [interpolate_pic.f, 85]      INTERPOLATE_PIC1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_pg_grad.f, 56]      CALC_PG_GRAD
    Set   [calc_pg_grad.f, 99]         CALC_PG_GRAD
    Use   [calc_pg_grad.f, 100]        CALC_PG_GRAD

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des1.f, 76]      DRAG_GS_DES1
    Set   [drag_gs_des1.f, 114]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 116]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 118]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 119]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 120]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 122]        DRAG_GS_DES1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des1.f, 242]     DRAG_GS_GAS1
    Set   [drag_gs_des1.f, 282]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 284]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 286]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 287]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 288]        DRAG_GS_GAS1
    Set   [drag_gs_des1.f, 313]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 316]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 318]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 320]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 322]        DRAG_GS_GAS1
    Set   [drag_gs_des1.f, 326]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 329]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 331]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 333]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 336]        DRAG_GS_GAS1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 52]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 101]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 106]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 109]   CALC_INTERP_WEIGHTS1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 185]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 251]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 256]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 259]   CALC_INTERP_WEIGHTS2

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [des_thermo_conv.f, 158]   CONV_GS_GAS1
    Set   [des_thermo_conv.f, 185]     CONV_GS_GAS1
    Use   [des_thermo_conv.f, 187]     CONV_GS_GAS1
    Use   [des_thermo_conv.f, 188]     CONV_GS_GAS1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [rxns_gs_des1.f, 66]      RXNS_GS_DES1
    Set   [rxns_gs_des1.f, 89]         RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 91]         RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 92]         RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 93]         RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 94]         RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 95]         RXNS_GS_DES1
    Set   [rxns_gs_des1.f, 99]         RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 101]        RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 102]        RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 103]        RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 104]        RXNS_GS_DES1
    Use   [rxns_gs_des1.f, 105]        RXNS_GS_DES1

WEIGHT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [rxns_gs_des1.f, 184]     RXNS_GS_GAS1
    Set   [rxns_gs_des1.f, 216]        RXNS_GS_GAS1
    Use   [rxns_gs_des1.f, 218]        RXNS_GS_GAS1
    Use   [rxns_gs_des1.f, 219]        RXNS_GS_GAS1
    Use   [rxns_gs_des1.f, 220]        RXNS_GS_GAS1
    Use   [rxns_gs_des1.f, 221]        RXNS_GS_GAS1
    Use   [rxns_gs_des1.f, 222]        RXNS_GS_GAS1

weight_ft    (Local Variable)  Declared as: DOUBLE PRECISION (2,2,2)
    Define   [drag_gs_des0.f, 64]      DRAG_GS_DES0
    Use Argument   [drag_gs_des0.f, 155]   DRAG_GS_DES0

weight_ft    (Local Variable)  Declared as: DOUBLE PRECISION (2,2,2)
    Define   [drag_gs_des0.f, 267]     DRAG_GS_GAS0
    Use Argument   [drag_gs_des0.f, 362]   DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 400]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 405]        DRAG_GS_GAS0

weight_ft    (Local Variable)  Declared as: DOUBLE PRECISION (2,2,2)
    Define   [comp_mean_fields0.f, 79]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 161]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 177]   COMP_MEAN_FIELDS0

WEIGHT_I    (Local Variable)  Declared as: DOUBLE PRECISION (-1:1)
    Define   [calc_interp_weights.f, 53]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 71]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 72]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 73]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 73]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 73]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 101]   CALC_INTERP_WEIGHTS1

WEIGHT_I    (Local Variable)  Declared as: DOUBLE PRECISION (-1:1)
    Define   [calc_interp_weights.f, 186]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 202]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 203]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 203]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 204]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 206]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 207]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 207]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 208]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 251]   CALC_INTERP_WEIGHTS2

WEIGHT_J    (Local Variable)  Declared as: DOUBLE PRECISION (-1:1)
    Define   [calc_interp_weights.f, 54]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 76]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 77]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 78]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 78]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 78]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 101]   CALC_INTERP_WEIGHTS1

WEIGHT_J    (Local Variable)  Declared as: DOUBLE PRECISION (-1:1)
    Define   [calc_interp_weights.f, 187]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 214]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 215]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 215]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 216]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 218]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 219]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 219]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 220]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 251]   CALC_INTERP_WEIGHTS2

WEIGHT_K    (Local Variable)  Declared as: DOUBLE PRECISION (-1:1)
    Define   [calc_interp_weights.f, 55]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 83]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 84]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 85]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 85]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 85]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 88]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 101]   CALC_INTERP_WEIGHTS1

WEIGHT_K    (Local Variable)  Declared as: DOUBLE PRECISION (-1:1)
    Define   [calc_interp_weights.f, 188]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 228]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 229]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 229]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 230]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 232]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 233]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 233]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 234]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 238]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 251]   CALC_INTERP_WEIGHTS2

WEIGHTFACTOR    (Dummy Argument)  Declared as: DOUBLE PRECISION (2,2,2) INTENT(OUT)
    Define   [drag_gs_des0.f, 476]     DRAG_INTERPOLATION
    Declare   [drag_gs_des0.f, 489]    DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 515]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 516]        DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 528]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 529]        DRAG_INTERPOLATION

WEIGHTFACTOR    (Dummy Argument)  Declared as: DOUBLE PRECISION (2,2,2) INTENT(OUT)
    Define   [comp_mean_fields0.f, 434]   DRAG_WEIGHTFACTOR
    Declare   [comp_mean_fields0.f, 445]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 468]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 480]   DRAG_WEIGHTFACTOR

wen_yu    (Unknown Variable)
    Use   [drag_gs.f, 229]             DRAG_GS
    Use   [check_solids_common_all.f, 229]   CHECK_SOLIDS_DRAG
    Use   [check_solids_continuum.f, 466]   CHECK_KT_TYPE
    Use   [drag_gp_des.f, 114]         DES_DRAG_GP

wen_yu_pcf    (Unknown Variable)
    Use   [drag_gs.f, 232]             DRAG_GS
    Use   [drag_gs.f, 308]             DRAG_GS
    Use   [check_solids_common_all.f, 230]   CHECK_SOLIDS_DRAG
    Use   [drag_gp_des.f, 160]         DES_DRAG_GP

WenYu    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 593]          DRAG_GIDASPOW_BLEND
    Set   [drag_gs.f, 614]             DRAG_GIDASPOW_BLEND
    Use   [drag_gs.f, 620]             DRAG_GIDASPOW_BLEND

WEST_COPY    (Local Variable)  Declared as: INTEGER (DIMENSION_3)
    Define   [set_increments.f, 442]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 909]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 925]      RE_INDEX_ARRAYS

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_phi.f, 416]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 539]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 579]        CONV_DIF_PHI_DC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_u_s.f, 609]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 706]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 773]        STORE_A_U_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_w_g.f, 584]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 713]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 747]        STORE_A_W_GDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_w_s.f, 593]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 690]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 752]        STORE_A_W_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_v_g.f, 608]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 740]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 778]        STORE_A_V_GDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_v_s.f, 611]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 708]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 776]        STORE_A_V_SDC

WEST_DC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_dif_u_g.f, 606]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 704]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 771]        STORE_A_U_GDC

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [conv_dif_phi.f, 21]      CONV_DIF_PHI
    Declare   [conv_dif_phi.f, 42]     CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 57]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 59]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 65]   CONV_DIF_PHI
    Use Argument   [conv_dif_phi.f, 68]   CONV_DIF_PHI

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [conv_dif_phi.f, 214]     CONV_DIF_PHI0
    Declare   [conv_dif_phi.f, 238]    CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 316]        CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 327]        CONV_DIF_PHI0

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [conv_dif_phi.f, 603]     CONV_DIF_PHI1
    Declare   [conv_dif_phi.f, 630]    CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 657]        CONV_DIF_PHI1

Wf    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(IN)
    Define   [conv_dif_phi.f, 355]     CONV_DIF_PHI_DC
    Declare   [conv_dif_phi.f, 391]    CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 443]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 509]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 561]        CONV_DIF_PHI_DC

wfactor_mus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2104]       subgrid_stress_igci
    Set   [calc_mu_s.f, 2118]          subgrid_stress_igci
    Use Argument   [calc_mu_s.f, 2192]   subgrid_stress_igci
    Use   [calc_mu_s.f, 2200]          subgrid_stress_igci

wfactor_mus    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2280]       subgrid_stress_MILIOLI
    Set   [calc_mu_s.f, 2294]          subgrid_stress_MILIOLI
    Use Argument   [calc_mu_s.f, 2355]   subgrid_stress_MILIOLI
    Use   [calc_mu_s.f, 2365]          subgrid_stress_MILIOLI

wfactor_Ps    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2104]       subgrid_stress_igci
    Set   [calc_mu_s.f, 2117]          subgrid_stress_igci
    Use Argument   [calc_mu_s.f, 2192]   subgrid_stress_igci
    Use   [calc_mu_s.f, 2196]          subgrid_stress_igci

wfactor_Ps    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2280]       subgrid_stress_MILIOLI
    Set   [calc_mu_s.f, 2293]          subgrid_stress_MILIOLI
    Use Argument   [calc_mu_s.f, 2355]   subgrid_stress_MILIOLI
    Use   [calc_mu_s.f, 2361]          subgrid_stress_MILIOLI

Wg_Temp    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [radial_vel_correction.f, 27]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 52]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 59]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 64]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 100]   RADIAL_VEL_CORRECTION

Wg_Temp_GL    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [radial_vel_correction.f, 27]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 63]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 64]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 65]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 83]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 83]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 101]   RADIAL_VEL_CORRECTION

WgAvg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [radial_vel_correction.f, 36]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 83]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 84]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 85]   RADIAL_VEL_CORRECTION

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 105]       SOURCE_W_S
    Set   [source_w_s.f, 331]          SOURCE_W_S
    Use   [source_w_s.f, 349]          SOURCE_W_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_s.f, 63]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 265]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 266]       CG_SOURCE_V_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_s.f, 105]       SOURCE_V_S
    Set   [source_v_s.f, 347]          SOURCE_V_S
    Use Argument   [source_v_s.f, 350]   SOURCE_V_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_s.f, 66]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 277]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 278]       CG_SOURCE_U_S

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 103]       SOURCE_U_S
    Set   [source_u_s.f, 343]          SOURCE_U_S
    Use Argument   [source_u_s.f, 345]   SOURCE_U_S

wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 455]       CALC_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 466]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 479]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 498]          CALC_DERIV_VEL_GAS

WgB    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_g.f, 292]       GET_FACE_VEL_GAS
    Declare   [calc_trd_g.f, 334]      GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 402]          GET_FACE_VEL_GAS

Wgb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 65]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 272]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 277]       CG_SOURCE_W_S

WgB    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 88]    K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 141]   K_Epsilon_PROP

Wgc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_s.f, 63]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 266]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 267]       CG_SOURCE_V_S

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 349]         CALC_THETA_BC
    Set   [bc_theta.f, 435]            CALC_THETA_BC
    Set   [bc_theta.f, 480]            CALC_THETA_BC
    Set   [bc_theta.f, 525]            CALC_THETA_BC
    Set   [bc_theta.f, 570]            CALC_THETA_BC
    Set   [bc_theta.f, 617]            CALC_THETA_BC
    Set   [bc_theta.f, 662]            CALC_THETA_BC
    Use   [bc_theta.f, 681]            CALC_THETA_BC

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_ghd_granular_energy.f, 92]   SOURCE_GHD_GRANULAR_ENERGY
    Set   [source_ghd_granular_energy.f, 342]   SOURCE_GHD_GRANULAR_ENERGY
    Use   [source_ghd_granular_energy.f, 347]   SOURCE_GHD_GRANULAR_ENERGY

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_gama.f, 77]         CALC_DEFAULT_GAMA_GS
    Set   [calc_gama.f, 113]           CALC_DEFAULT_GAMA_GS
    Use   [calc_gama.f, 120]           CALC_DEFAULT_GAMA_GS

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_time_march.f, 52]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 340]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 343]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 361]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 683]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 686]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 704]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 803]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 806]    QMOMK_TIME_MARCH

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 67]           DRAG_GS
    Set   [drag_gs.f, 138]             DRAG_GS
    Use   [drag_gs.f, 145]             DRAG_GS
    Use Argument   [drag_gs.f, 246]    DRAG_GS
    Use   [drag_gs.f, 261]             DRAG_GS

WGC    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(OUT)
    Define   [drag_gs_des1.f, 367]     CALC_CELL_CENTER_GAS_VEL
    Declare   [drag_gs_des1.f, 399]    CALC_CELL_CENTER_GAS_VEL
    Set   [drag_gs_des1.f, 429]        CALC_CELL_CENTER_GAS_VEL
    Set   [drag_gs_des1.f, 432]        CALC_CELL_CENTER_GAS_VEL
    Set   [drag_gs_des1.f, 435]        CALC_CELL_CENTER_GAS_VEL
    Set   [drag_gs_des1.f, 440]        CALC_CELL_CENTER_GAS_VEL

WGC    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [drag_gs_des1.f, 72]      DRAG_GS_DES1
    Use Argument   [drag_gs_des1.f, 93]   DRAG_GS_DES1
    Use   [drag_gs_des1.f, 120]        DRAG_GS_DES1
    Use   [drag_gs_des1.f, 129]        DRAG_GS_DES1

WGC    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [drag_gs_des1.f, 238]     DRAG_GS_GAS1
    Use Argument   [drag_gs_des1.f, 261]   DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 288]        DRAG_GS_GAS1
    Use   [drag_gs_des1.f, 295]        DRAG_GS_GAS1

Wgc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_s.f, 66]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 278]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 279]       CG_SOURCE_U_S

WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 93]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 248]      K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 263]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 298]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 314]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 333]      K_Epsilon_PROP

wgcc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 455]       CALC_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 466]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 471]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 489]          CALC_DERIV_VEL_GAS

WgcC    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_g.f, 292]       GET_FACE_VEL_GAS
    Declare   [calc_trd_g.f, 337]      GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 406]          GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 409]          GET_FACE_VEL_GAS

WgcC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 91]    K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 141]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 177]      K_Epsilon_PROP

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 104]       SOURCE_W_S
    Set   [source_w_s.f, 336]          SOURCE_W_S
    Use   [source_w_s.f, 349]          SOURCE_W_S

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 98]        SOURCE_U_G
    Set   [source_u_g.f, 330]          SOURCE_U_G
    Use   [source_u_g.f, 332]          SOURCE_U_G
    Use   [source_u_g.f, 334]          SOURCE_U_G

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 103]       SOURCE_U_S
    Set   [source_u_s.f, 345]          SOURCE_U_S
    Use   [source_u_s.f, 348]          SOURCE_U_S
    Use   [source_u_s.f, 352]          SOURCE_U_S

wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 455]       CALC_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 466]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 477]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 487]          CALC_DERIV_VEL_GAS

WgE    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_g.f, 292]       GET_FACE_VEL_GAS
    Declare   [calc_trd_g.f, 330]      GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 397]          GET_FACE_VEL_GAS

Wge    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 64]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 261]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 275]       CG_SOURCE_W_S

WgE    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 84]    K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 141]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 181]      K_Epsilon_PROP

WGHT    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23435]        DATP
    Declare   [ODEPACK.F, 23438]       DATP
    Declare   [ODEPACK.F, 23439]       DATP
    Use Argument   [ODEPACK.F, 23486]   DATP

WGHT    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22694]        DATV
    Declare   [ODEPACK.F, 22698]       DATV
    Declare   [ODEPACK.F, 22699]       DATV
    Use   [ODEPACK.F, 22768]           DATV
    Use   [ODEPACK.F, 22786]           DATV
    Use   [ODEPACK.F, 22813]           DATV

WGHT    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23140]        DPCG
    Declare   [ODEPACK.F, 23144]       DPCG
    Declare   [ODEPACK.F, 23145]       DPCG
    Use Argument   [ODEPACK.F, 23222]   DPCG
    Use Argument   [ODEPACK.F, 23254]   DPCG
    Use Argument   [ODEPACK.F, 23262]   DPCG

WGHT    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23285]        DPCGS
    Declare   [ODEPACK.F, 23289]       DPCGS
    Declare   [ODEPACK.F, 23290]       DPCGS
    Use Argument   [ODEPACK.F, 23368]   DPCGS
    Use   [ODEPACK.F, 23389]           DPCGS
    Use Argument   [ODEPACK.F, 23402]   DPCGS
    Use   [ODEPACK.F, 23406]           DPCGS
    Use Argument   [ODEPACK.F, 23412]   DPCGS

WGHT    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22903]        DSPIGMR
    Declare   [ODEPACK.F, 22908]       DSPIGMR
    Declare   [ODEPACK.F, 22909]       DSPIGMR
    Use   [ODEPACK.F, 23009]           DSPIGMR
    Use   [ODEPACK.F, 23028]           DSPIGMR
    Use Argument   [ODEPACK.F, 23051]   DSPIGMR
    Use   [ODEPACK.F, 23123]           DSPIGMR

WGHT    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22478]        DSPIOM
    Declare   [ODEPACK.F, 22483]       DSPIOM
    Declare   [ODEPACK.F, 22484]       DSPIOM
    Use   [ODEPACK.F, 22576]           DSPIOM
    Use   [ODEPACK.F, 22595]           DSPIOM
    Use Argument   [ODEPACK.F, 22618]   DSPIOM
    Use   [ODEPACK.F, 22678]           DSPIOM

WGHT    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23501]        DUSOL
    Declare   [ODEPACK.F, 23505]       DUSOL
    Declare   [ODEPACK.F, 23506]       DUSOL
    Use Argument   [ODEPACK.F, 23568]   DUSOL

Wgn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 105]       SOURCE_W_S
    Set   [source_w_s.f, 341]          SOURCE_W_S
    Use   [source_w_s.f, 350]          SOURCE_W_S

wgn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 455]       CALC_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 466]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 478]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 494]          CALC_DERIV_VEL_GAS

WgN    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_g.f, 292]       GET_FACE_VEL_GAS
    Declare   [calc_trd_g.f, 332]      GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 393]          GET_FACE_VEL_GAS

Wgn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 64]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 266]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 276]       CG_SOURCE_W_S

WgN    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 86]    K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 141]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 182]      K_Epsilon_PROP

Wgs    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 105]       SOURCE_W_S
    Set   [source_w_s.f, 340]          SOURCE_W_S
    Use   [source_w_s.f, 350]          SOURCE_W_S

wgs    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 455]       CALC_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 466]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 478]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 494]          CALC_DERIV_VEL_GAS

WgS    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_g.f, 292]       GET_FACE_VEL_GAS
    Declare   [calc_trd_g.f, 332]      GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 395]          GET_FACE_VEL_GAS

Wgs    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 65]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 267]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 276]       CG_SOURCE_W_S

WgS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 86]    K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 141]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 182]      K_Epsilon_PROP

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 105]       SOURCE_W_S
    Set   [source_w_s.f, 332]          SOURCE_W_S
    Use   [source_w_s.f, 349]          SOURCE_W_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_s.f, 63]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 264]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 266]       CG_SOURCE_V_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_s.f, 105]       SOURCE_V_S
    Set   [source_v_s.f, 346]          SOURCE_V_S
    Use Argument   [source_v_s.f, 350]   SOURCE_V_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_s.f, 66]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 276]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 278]       CG_SOURCE_U_S

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 103]       SOURCE_U_S
    Set   [source_u_s.f, 344]          SOURCE_U_S
    Use Argument   [source_u_s.f, 345]   SOURCE_U_S

wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 455]       CALC_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 466]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 479]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 498]          CALC_DERIV_VEL_GAS

WgT    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_g.f, 292]       GET_FACE_VEL_GAS
    Declare   [calc_trd_g.f, 334]      GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 401]          GET_FACE_VEL_GAS

Wgt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 65]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 271]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 277]       CG_SOURCE_W_S

WgT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 88]    K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 141]   K_Epsilon_PROP

Wgw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_s.f, 105]       SOURCE_W_S
    Set   [source_w_s.f, 337]          SOURCE_W_S
    Use   [source_w_s.f, 349]          SOURCE_W_S

wgw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 455]       CALC_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 466]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 477]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 487]          CALC_DERIV_VEL_GAS

WgW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_g.f, 292]       GET_FACE_VEL_GAS
    Declare   [calc_trd_g.f, 330]      GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 399]          GET_FACE_VEL_GAS

Wgw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 64]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 262]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 275]       CG_SOURCE_W_S

WgW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 84]    K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 141]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 181]      K_Epsilon_PROP

WGX    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [set_ic.f, 53]            SET_IC
    Set   [set_ic.f, 79]               SET_IC
    Use   [set_ic.f, 132]              SET_IC
    Use   [set_ic.f, 132]              SET_IC

wHeader    (Unknown Variable)
    Set   [physical_prop.f, 364]       PHYSICAL_PROP_CPg
    Use Argument   [physical_prop.f, 382]   PHYSICAL_PROP_CPg
    Set   [physical_prop.f, 468]       PHYSICAL_PROP_CPs
    Use Argument   [physical_prop.f, 487]   PHYSICAL_PROP_CPs

wHeader    (Local Variable)  Declared as: LOGICAL
    Define   [physical_prop.f, 164]    PHYSICAL_PROP_ROg
    Set   [physical_prop.f, 178]       PHYSICAL_PROP_ROg
    Use Argument   [physical_prop.f, 197]   PHYSICAL_PROP_ROg

wHeader    (Local Variable)  Declared as: LOGICAL
    Define   [physical_prop.f, 260]    PHYSICAL_PROP_ROs
    Set   [physical_prop.f, 273]       PHYSICAL_PROP_ROs
    Use Argument   [physical_prop.f, 294]   PHYSICAL_PROP_ROs

wHeader    (Local Variable)  Declared as: LOGICAL
    Define   [calc_vol_fr.f, 94]       CALC_VOL_FR
    Set   [calc_vol_fr.f, 99]          CALC_VOL_FR
    Use Argument   [calc_vol_fr.f, 191]   CALC_VOL_FR

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_g.f, 247]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 473]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 485]             CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 492]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 504]             CALC_CG_TAU_V_G

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_s.f, 296]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 494]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 504]             CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 511]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 521]             CALC_CG_TAU_V_S

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_g.f, 295]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 522]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 533]             CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 540]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 552]             CALC_CG_TAU_U_G

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_s.f, 333]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 538]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 549]             CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 556]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 567]             CALC_CG_TAU_U_S

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 560]       CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 743]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 756]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 757]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 758]          CALC_CG_DERIV_VEL_GAS

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 114]       CALC_CG_TRD_G
    Set   [calc_trd_g.f, 250]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 260]          CALC_CG_TRD_G

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 619]       CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 813]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 826]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 827]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 828]          CALC_CG_DERIV_VEL_SOLIDS

Wi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 123]       CALC_CG_TRD_S
    Set   [calc_trd_s.f, 258]          CALC_CG_TRD_S
    Use   [calc_trd_s.f, 268]          CALC_CG_TRD_S

WIDTH    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_geometry.f, 132]   CHECK_GEOMETRY_DES
    Set   [check_geometry.f, 140]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 144]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 153]      CHECK_GEOMETRY_DES
    Use   [check_geometry.f, 164]      CHECK_GEOMETRY_DES

WINDOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [layout_mi_dem.f, 563]    LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 611]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 612]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 615]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 619]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 620]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 627]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 631]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 632]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 662]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 666]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 679]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 695]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 696]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 705]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 706]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 863]       LAYOUT_DEM_MI_EW

WINDOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [layout_mi_dem.f, 150]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 197]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 198]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 201]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 205]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 206]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 213]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 217]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 218]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 248]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 252]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 265]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 281]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 282]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 290]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 291]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 445]       LAYOUT_DEM_MI_NS

WINDOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [layout_mi_dem.f, 982]    LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1032]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1033]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1036]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1040]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1041]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1047]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1051]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1052]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1075]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1079]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1096]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1097]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1106]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1107]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1264]      LAYOUT_DEM_MI_TB

WINDOW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [mass_inflow_dem.f, 172]   SEED_NEW_PARTICLE
    Set   [mass_inflow_dem.f, 194]     SEED_NEW_PARTICLE
    Use   [mass_inflow_dem.f, 195]     SEED_NEW_PARTICLE
    Use   [mass_inflow_dem.f, 196]     SEED_NEW_PARTICLE

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 26468]        DAINVGS
    Declare   [ODEPACK.F, 26476]       DAINVGS
    Declare   [ODEPACK.F, 26478]       DAINVGS
    Set   [ODEPACK.F, 26517]           DAINVGS
    Use Argument   [ODEPACK.F, 26520]   DAINVGS
    Set   [ODEPACK.F, 26532]           DAINVGS
    Use Argument   [ODEPACK.F, 26542]   DAINVGS
    Use Argument   [ODEPACK.F, 26542]   DAINVGS
    Use Argument   [ODEPACK.F, 26552]   DAINVGS
    Use Argument   [ODEPACK.F, 26552]   DAINVGS

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23435]        DATP
    Declare   [ODEPACK.F, 23438]       DATP
    Declare   [ODEPACK.F, 23439]       DATP
    Use Argument   [ODEPACK.F, 23491]   DATP
    Use   [ODEPACK.F, 23496]           DATP

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23141]        DPCG
    Declare   [ODEPACK.F, 23144]       DPCG
    Declare   [ODEPACK.F, 23146]       DPCG
    Use Argument   [ODEPACK.F, 23236]   DPCG
    Use Argument   [ODEPACK.F, 23254]   DPCG

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23286]        DPCGS
    Declare   [ODEPACK.F, 23289]       DPCGS
    Declare   [ODEPACK.F, 23291]       DPCGS
    Use Argument   [ODEPACK.F, 23382]   DPCGS
    Use Argument   [ODEPACK.F, 23402]   DPCGS

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 17868]        DPREP
    Declare   [ODEPACK.F, 17871]       DPREP
    Declare   [ODEPACK.F, 17873]       DPREP
    Use Argument   [ODEPACK.F, 18067]   DPREP
    Set   [ODEPACK.F, 18080]           DPREP
    Use Argument   [ODEPACK.F, 18083]   DPREP
    Use Argument   [ODEPACK.F, 18083]   DPREP
    Use Argument   [ODEPACK.F, 18083]   DPREP
    Use Argument   [ODEPACK.F, 18083]   DPREP

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 26101]        DPREPI
    Declare   [ODEPACK.F, 26104]       DPREPI
    Declare   [ODEPACK.F, 26106]       DPREPI
    Set   [ODEPACK.F, 26243]           DPREPI
    Use Argument   [ODEPACK.F, 26247]   DPREPI
    Use   [ODEPACK.F, 26251]           DPREPI
    Set   [ODEPACK.F, 26252]           DPREPI
    Set   [ODEPACK.F, 26267]           DPREPI
    Use Argument   [ODEPACK.F, 26275]   DPREPI
    Use   [ODEPACK.F, 26284]           DPREPI
    Set   [ODEPACK.F, 26285]           DPREPI
    Use Argument   [ODEPACK.F, 26403]   DPREPI
    Set   [ODEPACK.F, 26416]           DPREPI
    Use Argument   [ODEPACK.F, 26419]   DPREPI
    Use Argument   [ODEPACK.F, 26419]   DPREPI
    Use Argument   [ODEPACK.F, 26419]   DPREPI
    Use Argument   [ODEPACK.F, 26419]   DPREPI

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 26558]        DPRJIS
    Declare   [ODEPACK.F, 26562]       DPRJIS
    Declare   [ODEPACK.F, 26564]       DPRJIS
    Set   [ODEPACK.F, 26646]           DPRJIS
    Use   [ODEPACK.F, 26658]           DPRJIS
    Set   [ODEPACK.F, 26683]           DPRJIS
    Use Argument   [ODEPACK.F, 26699]   DPRJIS
    Use Argument   [ODEPACK.F, 26699]   DPRJIS

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 18251]        DPRJS
    Declare   [ODEPACK.F, 18254]       DPRJS
    Declare   [ODEPACK.F, 18256]       DPRJS
    Set   [ODEPACK.F, 18349]           DPRJS
    Set   [ODEPACK.F, 18350]           DPRJS
    Use   [ODEPACK.F, 18350]           DPRJS
    Use   [ODEPACK.F, 18361]           DPRJS
    Set   [ODEPACK.F, 18379]           DPRJS
    Set   [ODEPACK.F, 18380]           DPRJS
    Use   [ODEPACK.F, 18380]           DPRJS
    Use   [ODEPACK.F, 18398]           DPRJS
    Set   [ODEPACK.F, 18406]           DPRJS
    Use Argument   [ODEPACK.F, 18418]   DPRJS
    Use Argument   [ODEPACK.F, 18418]   DPRJS
    Set   [ODEPACK.F, 18430]           DPRJS
    Use Argument   [ODEPACK.F, 18435]   DPRJS
    Use   [ODEPACK.F, 18439]           DPRJS
    Set   [ODEPACK.F, 18440]           DPRJS
    Set   [ODEPACK.F, 18443]           DPRJS

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 18451]        DSOLSS
    Declare   [ODEPACK.F, 18453]       DSOLSS
    Declare   [ODEPACK.F, 18454]       DSOLSS
    Use Argument   [ODEPACK.F, 18508]   DSOLSS
    Use Argument   [ODEPACK.F, 18508]   DSOLSS
    Use   [ODEPACK.F, 18512]           DSOLSS
    Set   [ODEPACK.F, 18514]           DSOLSS
    Use   [ODEPACK.F, 18518]           DSOLSS
    Set   [ODEPACK.F, 18520]           DSOLSS
    Use   [ODEPACK.F, 18522]           DSOLSS

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22905]        DSPIGMR
    Declare   [ODEPACK.F, 22908]       DSPIGMR
    Declare   [ODEPACK.F, 22910]       DSPIGMR
    Use Argument   [ODEPACK.F, 23023]   DSPIGMR
    Use Argument   [ODEPACK.F, 23052]   DSPIGMR
    Use Argument   [ODEPACK.F, 23125]   DSPIGMR

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22480]        DSPIOM
    Declare   [ODEPACK.F, 22483]       DSPIOM
    Declare   [ODEPACK.F, 22485]       DSPIOM
    Use Argument   [ODEPACK.F, 22590]   DSPIOM
    Use Argument   [ODEPACK.F, 22619]   DSPIOM
    Use Argument   [ODEPACK.F, 22680]   DSPIOM

WK    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23502]        DUSOL
    Declare   [ODEPACK.F, 23505]       DUSOL
    Declare   [ODEPACK.F, 23507]       DUSOL
    Use Argument   [ODEPACK.F, 23578]   DUSOL

Wlminus    (Local Variable)  Declared as: DOUBLE PRECISION (QMOMK_NN)
    Define   [qmomk_time_march.f, 60]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 175]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 192]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 201]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 218]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 232]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 249]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 258]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 275]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 284]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 301]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 472]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 489]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 498]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 515]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 529]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 546]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 555]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 572]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 581]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 598]    QMOMK_TIME_MARCH

Wlplus    (Local Variable)  Declared as: DOUBLE PRECISION (QMOMK_NN)
    Define   [qmomk_time_march.f, 60]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 180]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 193]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 206]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 219]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 237]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 250]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 263]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 276]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 289]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 302]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 477]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 490]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 503]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 516]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 534]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 547]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 560]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 573]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 586]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 599]    QMOMK_TIME_MARCH

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 25671]        DPJIBT
    Declare   [ODEPACK.F, 25675]       DPJIBT
    Declare   [ODEPACK.F, 25677]       DPJIBT
    Set   [ODEPACK.F, 25745]           DPJIBT
    Use Argument   [ODEPACK.F, 25746]   DPJIBT
    Use Argument   [ODEPACK.F, 25746]   DPJIBT
    Use Argument   [ODEPACK.F, 25746]   DPJIBT
    Set   [ODEPACK.F, 25749]           DPJIBT
    Use   [ODEPACK.F, 25749]           DPJIBT
    Use   [ODEPACK.F, 25759]           DPJIBT
    Set   [ODEPACK.F, 25761]           DPJIBT
    Set   [ODEPACK.F, 25785]           DPJIBT
    Set   [ODEPACK.F, 25791]           DPJIBT
    Set   [ODEPACK.F, 25798]           DPJIBT
    Set   [ODEPACK.F, 25804]           DPJIBT
    Set   [ODEPACK.F, 25811]           DPJIBT
    Use Argument   [ODEPACK.F, 25823]   DPJIBT
    Use Argument   [ODEPACK.F, 25823]   DPJIBT
    Use Argument   [ODEPACK.F, 25823]   DPJIBT
    Use Argument   [ODEPACK.F, 25825]   DPJIBT
    Use Argument   [ODEPACK.F, 25825]   DPJIBT
    Use Argument   [ODEPACK.F, 25825]   DPJIBT

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22257]        DPKSET
    Declare   [ODEPACK.F, 22260]       DPKSET
    Declare   [ODEPACK.F, 22262]       DPKSET
    Use Argument   [ODEPACK.F, 22310]   DPKSET

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 16869]        DPREPJ
    Declare   [ODEPACK.F, 16926]       DPREPJ
    Declare   [ODEPACK.F, 16928]       DPREPJ
    Set   [ODEPACK.F, 16955]           DPREPJ
    Use Argument   [ODEPACK.F, 16956]   DPREPJ
    Set   [ODEPACK.F, 16959]           DPREPJ
    Use   [ODEPACK.F, 16959]           DPREPJ
    Use   [ODEPACK.F, 16965]           DPREPJ
    Set   [ODEPACK.F, 16974]           DPREPJ
    Set   [ODEPACK.F, 16983]           DPREPJ
    Use   [ODEPACK.F, 16983]           DPREPJ
    Use Argument   [ODEPACK.F, 16986]   DPREPJ
    Set   [ODEPACK.F, 16990]           DPREPJ
    Use Argument   [ODEPACK.F, 16994]   DPREPJ
    Use   [ODEPACK.F, 16998]           DPREPJ
    Set   [ODEPACK.F, 16999]           DPREPJ
    Set   [ODEPACK.F, 17002]           DPREPJ
    Set   [ODEPACK.F, 17015]           DPREPJ
    Use Argument   [ODEPACK.F, 17016]   DPREPJ
    Set   [ODEPACK.F, 17019]           DPREPJ
    Use   [ODEPACK.F, 17019]           DPREPJ
    Use   [ODEPACK.F, 17028]           DPREPJ
    Set   [ODEPACK.F, 17047]           DPREPJ
    Set   [ODEPACK.F, 17054]           DPREPJ
    Use   [ODEPACK.F, 17054]           DPREPJ
    Use Argument   [ODEPACK.F, 17057]   DPREPJ

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 25454]        DPREPJI
    Declare   [ODEPACK.F, 25458]       DPREPJI
    Declare   [ODEPACK.F, 25460]       DPREPJI
    Set   [ODEPACK.F, 25524]           DPREPJI
    Use Argument   [ODEPACK.F, 25525]   DPREPJI
    Set   [ODEPACK.F, 25528]           DPREPJI
    Use   [ODEPACK.F, 25528]           DPREPJI
    Use   [ODEPACK.F, 25536]           DPREPJI
    Set   [ODEPACK.F, 25547]           DPREPJI
    Use Argument   [ODEPACK.F, 25557]   DPREPJI
    Use Argument   [ODEPACK.F, 25559]   DPREPJI
    Set   [ODEPACK.F, 25576]           DPREPJI
    Use Argument   [ODEPACK.F, 25577]   DPREPJI
    Set   [ODEPACK.F, 25580]           DPREPJI
    Use   [ODEPACK.F, 25580]           DPREPJI
    Use   [ODEPACK.F, 25595]           DPREPJI
    Set   [ODEPACK.F, 25613]           DPREPJI
    Use Argument   [ODEPACK.F, 25622]   DPREPJI
    Use Argument   [ODEPACK.F, 25624]   DPREPJI

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 21022]        DPRJA
    Declare   [ODEPACK.F, 21026]       DPRJA
    Declare   [ODEPACK.F, 21028]       DPRJA
    Set   [ODEPACK.F, 21091]           DPRJA
    Use Argument   [ODEPACK.F, 21092]   DPRJA
    Set   [ODEPACK.F, 21095]           DPRJA
    Use   [ODEPACK.F, 21095]           DPRJA
    Use   [ODEPACK.F, 21101]           DPRJA
    Set   [ODEPACK.F, 21110]           DPRJA
    Use Argument   [ODEPACK.F, 21117]   DPRJA
    Set   [ODEPACK.F, 21122]           DPRJA
    Use   [ODEPACK.F, 21122]           DPRJA
    Use Argument   [ODEPACK.F, 21125]   DPRJA
    Set   [ODEPACK.F, 21138]           DPRJA
    Use Argument   [ODEPACK.F, 21139]   DPRJA
    Set   [ODEPACK.F, 21142]           DPRJA
    Use   [ODEPACK.F, 21142]           DPRJA
    Use   [ODEPACK.F, 21151]           DPRJA
    Set   [ODEPACK.F, 21170]           DPRJA
    Use Argument   [ODEPACK.F, 21176]   DPRJA
    Set   [ODEPACK.F, 21180]           DPRJA
    Use   [ODEPACK.F, 21180]           DPRJA
    Use Argument   [ODEPACK.F, 21183]   DPRJA

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 24798]        DSETPK
    Declare   [ODEPACK.F, 24802]       DSETPK
    Declare   [ODEPACK.F, 24804]       DSETPK
    Use Argument   [ODEPACK.F, 24856]   DSETPK

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 25834]        DSLSBT
    Declare   [ODEPACK.F, 25837]       DSLSBT
    Declare   [ODEPACK.F, 25838]       DSLSBT
    Use Argument   [ODEPACK.F, 25858]   DSLSBT
    Use Argument   [ODEPACK.F, 25858]   DSLSBT
    Use Argument   [ODEPACK.F, 25858]   DSLSBT

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22318]        DSOLPK
    Declare   [ODEPACK.F, 22321]       DSOLPK
    Declare   [ODEPACK.F, 22322]       DSOLPK
    Use Argument   [ODEPACK.F, 22382]   DSOLPK
    Use Argument   [ODEPACK.F, 22384]   DSOLPK
    Use Argument   [ODEPACK.F, 22385]   DSOLPK
    Use Argument   [ODEPACK.F, 22385]   DSOLPK
    Use Argument   [ODEPACK.F, 22386]   DSOLPK
    Use Argument   [ODEPACK.F, 22386]   DSOLPK
    Use Argument   [ODEPACK.F, 22406]   DSOLPK
    Use Argument   [ODEPACK.F, 22408]   DSOLPK
    Use Argument   [ODEPACK.F, 22409]   DSOLPK
    Use Argument   [ODEPACK.F, 22409]   DSOLPK
    Use Argument   [ODEPACK.F, 22410]   DSOLPK
    Use Argument   [ODEPACK.F, 22410]   DSOLPK
    Use Argument   [ODEPACK.F, 22410]   DSOLPK
    Use Argument   [ODEPACK.F, 22410]   DSOLPK
    Use Argument   [ODEPACK.F, 22428]   DSOLPK
    Use Argument   [ODEPACK.F, 22429]   DSOLPK
    Use Argument   [ODEPACK.F, 22430]   DSOLPK
    Use Argument   [ODEPACK.F, 22430]   DSOLPK
    Use Argument   [ODEPACK.F, 22430]   DSOLPK
    Use Argument   [ODEPACK.F, 22431]   DSOLPK
    Use Argument   [ODEPACK.F, 22431]   DSOLPK
    Use Argument   [ODEPACK.F, 22448]   DSOLPK
    Use Argument   [ODEPACK.F, 22449]   DSOLPK
    Use Argument   [ODEPACK.F, 22450]   DSOLPK
    Use Argument   [ODEPACK.F, 22450]   DSOLPK
    Use Argument   [ODEPACK.F, 22450]   DSOLPK
    Use Argument   [ODEPACK.F, 22451]   DSOLPK
    Use Argument   [ODEPACK.F, 22451]   DSOLPK
    Use Argument   [ODEPACK.F, 22466]   DSOLPK
    Use Argument   [ODEPACK.F, 22467]   DSOLPK
    Use Argument   [ODEPACK.F, 22468]   DSOLPK
    Use Argument   [ODEPACK.F, 22468]   DSOLPK

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 17063]        DSOLSY
    Declare   [ODEPACK.F, 17108]       DSOLSY
    Declare   [ODEPACK.F, 17109]       DSOLSY
    Use Argument   [ODEPACK.F, 17128]   DSOLSY
    Use   [ODEPACK.F, 17131]           DSOLSY
    Set   [ODEPACK.F, 17133]           DSOLSY
    Use   [ODEPACK.F, 17137]           DSOLSY
    Set   [ODEPACK.F, 17139]           DSOLSY
    Use   [ODEPACK.F, 17141]           DSOLSY
    Use Argument   [ODEPACK.F, 17149]   DSOLSY

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 20390]        DSTODA
    Declare   [ODEPACK.F, 20393]       DSTODA
    Declare   [ODEPACK.F, 20395]       DSTODA
    Use Argument   [ODEPACK.F, 20651]   DSTODA
    Use Argument   [ODEPACK.F, 20679]   DSTODA

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 17217]        DSTODE
    Declare   [ODEPACK.F, 17312]       DSTODE
    Declare   [ODEPACK.F, 17314]       DSTODE
    Use Argument   [ODEPACK.F, 17478]   DSTODE
    Use Argument   [ODEPACK.F, 17506]   DSTODE

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 24993]        DSTODI
    Declare   [ODEPACK.F, 24996]       DSTODI
    Declare   [ODEPACK.F, 24998]       DSTODI
    Use Argument   [ODEPACK.F, 25238]   DSTODI
    Use Argument   [ODEPACK.F, 25261]   DSTODI

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 21751]        DSTODPK
    Declare   [ODEPACK.F, 21754]       DSTODPK
    Declare   [ODEPACK.F, 21756]       DSTODPK
    Use Argument   [ODEPACK.F, 22019]   DSTODPK
    Use Argument   [ODEPACK.F, 22047]   DSTODPK

WM    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 24247]        DSTOKA
    Declare   [ODEPACK.F, 24250]       DSTOKA
    Declare   [ODEPACK.F, 24252]       DSTOKA
    Use Argument   [ODEPACK.F, 24527]   DSTOKA
    Use Argument   [ODEPACK.F, 24559]   DSTOKA

WMAX    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 556]    LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 585]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 586]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 587]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 596]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 610]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 615]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 618]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 648]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 699]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 702]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 726]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 751]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 758]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 785]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 835]       LAYOUT_DEM_MI_EW

WMAX    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 143]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 171]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 172]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 173]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 182]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 196]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 201]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 204]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 234]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 285]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 287]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 311]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 333]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 339]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 366]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 416]       LAYOUT_DEM_MI_NS

WMAX    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 975]    LAYOUT_DEM_MI_TB
    Set   [layout_mi_dem.f, 1006]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1007]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1008]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1017]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1031]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1036]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1039]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1063]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1100]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1103]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1127]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1152]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1159]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1186]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1236]      LAYOUT_DEM_MI_TB

Wn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 53]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 147]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 201]       CG_SOURCE_W_G

Wn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 71]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 181]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 226]       CG_SOURCE_W_S

work_around    (Local Variable)  Declared as: INTEGER (100)
    Define   [write_res0.f, 58]        WRITE_RES0
    Set   [write_res0.f, 113]          WRITE_RES0

WP    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22695]        DATV
    Declare   [ODEPACK.F, 22698]       DATV
    Declare   [ODEPACK.F, 22700]       DATV
    Use Argument   [ODEPACK.F, 22781]   DATV
    Use Argument   [ODEPACK.F, 22807]   DATV

WP    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23141]        DPCG
    Declare   [ODEPACK.F, 23144]       DPCG
    Declare   [ODEPACK.F, 23146]       DPCG
    Use Argument   [ODEPACK.F, 23236]   DPCG

WP    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23286]        DPCGS
    Declare   [ODEPACK.F, 23289]       DPCGS
    Declare   [ODEPACK.F, 23291]       DPCGS
    Use Argument   [ODEPACK.F, 23382]   DPCGS

WP    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22905]        DSPIGMR
    Declare   [ODEPACK.F, 22908]       DSPIGMR
    Declare   [ODEPACK.F, 22910]       DSPIGMR
    Use Argument   [ODEPACK.F, 23023]   DSPIGMR
    Use Argument   [ODEPACK.F, 23052]   DSPIGMR
    Use Argument   [ODEPACK.F, 23125]   DSPIGMR

WP    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22480]        DSPIOM
    Declare   [ODEPACK.F, 22483]       DSPIOM
    Declare   [ODEPACK.F, 22485]       DSPIOM
    Use Argument   [ODEPACK.F, 22590]   DSPIOM
    Use Argument   [ODEPACK.F, 22619]   DSPIOM
    Use Argument   [ODEPACK.F, 22680]   DSPIOM

WP    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23502]        DUSOL
    Declare   [ODEPACK.F, 23505]       DUSOL
    Declare   [ODEPACK.F, 23507]       DUSOL
    Use Argument   [ODEPACK.F, 23578]   DUSOL

write_AoutBm.IJK    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 530]          write_AoutBm
    Set   [dbg_mod.f, 536]             write_AoutBm
    Use   [dbg_mod.f, 537]             write_AoutBm
    Set   [dbg_mod.f, 543]             write_AoutBm
    Use   [dbg_mod.f, 544]             write_AoutBm

write_AoutBm.lB_m    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [dbg_mod.f, 524]          write_AoutBm
    Declare   [dbg_mod.f, 526]         write_AoutBm
    Use   [dbg_mod.f, 540]             write_AoutBm
    Use   [dbg_mod.f, 547]             write_AoutBm

write_AoutBm.lEnd    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 529]          write_AoutBm
    Set   [dbg_mod.f, 533]             write_AoutBm
    Use   [dbg_mod.f, 536]             write_AoutBm
    Use   [dbg_mod.f, 539]             write_AoutBm
    Use   [dbg_mod.f, 543]             write_AoutBm
    Use   [dbg_mod.f, 546]             write_AoutBm

write_AoutBm.lStart    (Local Variable)  Declared as: INTEGER
    Define   [dbg_mod.f, 528]          write_AoutBm
    Set   [dbg_mod.f, 532]             write_AoutBm
    Use   [dbg_mod.f, 536]             write_AoutBm
    Use   [dbg_mod.f, 543]             write_AoutBm

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 587]          WRITE_GEOMETRY_IN_VTU_BIN
    Set   [vtk_out.f, 587]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 674]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 807]             WRITE_GEOMETRY_IN_VTU_BIN

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 930]          WRITE_SCALAR_IN_VTU_BIN
    Set   [vtk_out.f, 930]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 952]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 1003]            WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 1024]            WRITE_SCALAR_IN_VTU_BIN

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1083]         WRITE_VECTOR_IN_VTU_BIN
    Set   [vtk_out.f, 1083]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1100]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1166]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1188]            WRITE_VECTOR_IN_VTU_BIN

WRITE_DATA    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 91]           WRITE_VTU_FILE
    Set   [vtk_out.f, 91]              WRITE_VTU_FILE
    Use   [vtk_out.f, 137]             WRITE_VTU_FILE

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 586]          WRITE_GEOMETRY_IN_VTU_BIN
    Set   [vtk_out.f, 586]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 635]             WRITE_GEOMETRY_IN_VTU_BIN
    Use   [vtk_out.f, 768]             WRITE_GEOMETRY_IN_VTU_BIN

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 929]          WRITE_SCALAR_IN_VTU_BIN
    Set   [vtk_out.f, 929]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 938]             WRITE_SCALAR_IN_VTU_BIN
    Use   [vtk_out.f, 988]             WRITE_SCALAR_IN_VTU_BIN

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1082]         WRITE_VECTOR_IN_VTU_BIN
    Set   [vtk_out.f, 1082]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1089]            WRITE_VECTOR_IN_VTU_BIN
    Use   [vtk_out.f, 1154]            WRITE_VECTOR_IN_VTU_BIN

WRITE_HEADER    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 90]           WRITE_VTU_FILE
    Set   [vtk_out.f, 90]              WRITE_VTU_FILE
    Use   [vtk_out.f, 137]             WRITE_VTU_FILE

WRITE_RES1_DES.cDISPLS    (Variable)  Declared as: INTEGER (:) ALLOCATABLE
    Define   [write_res1_des_mod.f, 57]   WRITE_RES1_DES
    Use Argument   [write_res1_des_mod.f, 221]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 221]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 119]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 186]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 661]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 603]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 714]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cGATHER    (Variable)  Declared as: INTEGER (:) ALLOCATABLE
    Define   [write_res1_des_mod.f, 56]   WRITE_RES1_DES
    Use Argument   [write_res1_des_mod.f, 220]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 220]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 118]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 183]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 663]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 605]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 716]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cPROCCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 54]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 129]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 160]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 168]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 168]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 174]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 178]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 181]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 658]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 679]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 600]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 626]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 711]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 733]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cROOTCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 54]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 128]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 129]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 158]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 174]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 198]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 659]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 684]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 601]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 631]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 712]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 738]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.cSEND    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 55]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 178]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 662]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 604]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 715]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.INIT_WRITE_RES_DES.BASE    (Dummy Argument)  Declared as: CHARACTER (len=*) INTENT(IN)
    Define   [write_res1_des_mod.f, 91]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 100]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 113]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 111]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 162]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 163]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 164]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 167]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lGatherCnts    (Local Variable)  Declared as: INTEGER (0:NUMPEs-1)
    Define   [write_res1_des_mod.f, 109]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 146]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 147]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 149]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 180]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 181]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 183]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lGHOST_CNT    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 107]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 126]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 140]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(OUT)
    Define   [write_res1_des_mod.f, 91]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 102]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 194]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 195]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 196]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 197]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 198]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lPROC    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 105]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 153]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 187]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 188]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.lVERSION    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [write_res1_des_mod.f, 91]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Declare   [write_res1_des_mod.f, 101]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 195]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.INIT_WRITE_RES_DES.part    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 111]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 161]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 164]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 165]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 165]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 167]   WRITE_RES1_DES.INIT_WRITE_RES_DES

WRITE_RES1_DES.OPEN_RES_DES.BASE    (Dummy Argument)  Declared as: CHARACTER (len=*) INTENT(IN)
    Define   [write_res1_des_mod.f, 66]   WRITE_RES1_DES.OPEN_RES_DES
    Declare   [write_res1_des_mod.f, 70]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 74]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 79]   WRITE_RES1_DES.OPEN_RES_DES

WRITE_RES1_DES.OPEN_RES_DES.lFNAME    (Local Variable)  Declared as: CHARACTER (len=32)
    Define   [write_res1_des_mod.f, 71]   WRITE_RES1_DES.OPEN_RES_DES
    Set   [write_res1_des_mod.f, 74]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 75]   WRITE_RES1_DES.OPEN_RES_DES
    Set   [write_res1_des_mod.f, 79]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 80]   WRITE_RES1_DES.OPEN_RES_DES

WRITE_RES1_DES.pDISPLS    (Variable)  Declared as: INTEGER (:) ALLOCATABLE
    Define   [write_res1_des_mod.f, 51]   WRITE_RES1_DES
    Use Argument   [write_res1_des_mod.f, 218]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 218]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 116]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 152]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 387]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 507]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 449]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 552]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pGATHER    (Variable)  Declared as: INTEGER (:) ALLOCATABLE
    Define   [write_res1_des_mod.f, 50]   WRITE_RES1_DES
    Use Argument   [write_res1_des_mod.f, 217]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 217]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 115]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 149]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 154]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 389]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 509]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 451]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 554]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pPROCCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 48]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 124]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 134]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 137]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 144]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 147]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 380]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 504]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 446]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 549]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pROOTCNT    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 48]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 123]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 124]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Set   [write_res1_des_mod.f, 133]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 137]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use Argument   [write_res1_des_mod.f, 196]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 381]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 408]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 413]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 505]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 519]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 447]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 471]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 476]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 550]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 564]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 568]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.pSEND    (Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 49]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 144]   WRITE_RES1_DES.INIT_WRITE_RES_DES
    Use   [write_res1_des_mod.f, 388]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 508]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 450]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 553]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.RDES_UNIT    (Variable)  Declared as: INTEGER PARAMETER
    Define   [write_res1_des_mod.f, 45]   WRITE_RES1_DES
    Set   [write_res1_des_mod.f, 45]   WRITE_RES1_DES
    Use IO   [write_res1_des_mod.f, 210]   WRITE_RES1_DES.FINL_WRITE_RES_DES
    Use IO   [write_res1_des_mod.f, 75]   WRITE_RES1_DES.OPEN_RES_DES
    Use IO   [write_res1_des_mod.f, 80]   WRITE_RES1_DES.OPEN_RES_DES
    Use   [write_res1_des_mod.f, 679]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 684]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 626]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 631]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 733]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 738]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use IO   [write_res1_des_mod.f, 276]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use IO   [write_res1_des_mod.f, 237]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use IO   [write_res1_des_mod.f, 319]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 299]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 260]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 349]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 408]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 413]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 519]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 471]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 476]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 564]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 568]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 645]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Declare   [write_res1_des_mod.f, 653]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 673]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 656]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 667]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 668]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 669]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 672]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 673]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 656]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 665]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 673]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 674]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 674]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 645]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Declare   [write_res1_des_mod.f, 652]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 679]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 684]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1D.part    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 656]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 666]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 669]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Set   [write_res1_des_mod.f, 670]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 670]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D
    Use   [write_res1_des_mod.f, 672]   WRITE_RES1_DES.WRITE_RES_cARRAY_1D

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.INPUT_I    (Dummy Argument)  Declared as: INTEGER (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 582]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 590]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 617]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 619]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 595]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 610]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 611]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 612]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 615]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 617]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 619]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 595]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 607]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 617]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 619]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 621]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 621]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.lLOC2GLB    (Local Variable)  Declared as: LOGICAL
    Define   [write_res1_des_mod.f, 593]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 597]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 598]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 616]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 582]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 589]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 626]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 631]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.part    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 595]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 608]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 612]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Set   [write_res1_des_mod.f, 613]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 613]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 615]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1I.pLOC2GLB    (Dummy Argument)  Declared as: LOGICAL INTENT(IN) OPTIONAL
    Define   [write_res1_des_mod.f, 582]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Declare   [write_res1_des_mod.f, 591]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use Argument   [write_res1_des_mod.f, 598]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I
    Use   [write_res1_des_mod.f, 598]   WRITE_RES1_DES.WRITE_RES_cARRAY_1I

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.INPUT_L    (Dummy Argument)  Declared as: LOGICAL (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 699]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Declare   [write_res1_des_mod.f, 706]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use Argument   [write_res1_des_mod.f, 727]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 709]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 721]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 722]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 723]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 726]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 727]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 709]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 719]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 727]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 728]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 728]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 699]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Declare   [write_res1_des_mod.f, 705]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 733]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 738]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_cARRAY_1L.part    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 709]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 720]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 723]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Set   [write_res1_des_mod.f, 724]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 724]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L
    Use   [write_res1_des_mod.f, 726]   WRITE_RES1_DES.WRITE_RES_cARRAY_1L

WRITE_RES1_DES.WRITE_RES_DES_0D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [write_res1_des_mod.f, 270]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Declare   [write_res1_des_mod.f, 273]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 276]   WRITE_RES1_DES.WRITE_RES_DES_0D

WRITE_RES1_DES.WRITE_RES_DES_0D.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 270]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Declare   [write_res1_des_mod.f, 272]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 276]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Set   [write_res1_des_mod.f, 278]   WRITE_RES1_DES.WRITE_RES_DES_0D
    Use   [write_res1_des_mod.f, 278]   WRITE_RES1_DES.WRITE_RES_DES_0D

WRITE_RES1_DES.WRITE_RES_DES_0I.INPUT_I    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [write_res1_des_mod.f, 231]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Declare   [write_res1_des_mod.f, 234]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 237]   WRITE_RES1_DES.WRITE_RES_DES_0I

WRITE_RES1_DES.WRITE_RES_DES_0I.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 231]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Declare   [write_res1_des_mod.f, 233]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 237]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Set   [write_res1_des_mod.f, 239]   WRITE_RES1_DES.WRITE_RES_DES_0I
    Use   [write_res1_des_mod.f, 239]   WRITE_RES1_DES.WRITE_RES_DES_0I

WRITE_RES1_DES.WRITE_RES_DES_0L.INPUT_I    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 314]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Set   [write_res1_des_mod.f, 316]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 319]   WRITE_RES1_DES.WRITE_RES_DES_0L

WRITE_RES1_DES.WRITE_RES_DES_0L.INPUT_L    (Dummy Argument)  Declared as: LOGICAL INTENT(IN)
    Define   [write_res1_des_mod.f, 309]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Declare   [write_res1_des_mod.f, 312]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use Argument   [write_res1_des_mod.f, 316]   WRITE_RES1_DES.WRITE_RES_DES_0L

WRITE_RES1_DES.WRITE_RES_DES_0L.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 309]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Declare   [write_res1_des_mod.f, 311]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 319]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Set   [write_res1_des_mod.f, 321]   WRITE_RES1_DES.WRITE_RES_DES_0L
    Use   [write_res1_des_mod.f, 321]   WRITE_RES1_DES.WRITE_RES_DES_0L

WRITE_RES1_DES.WRITE_RES_DES_1D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 289]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Declare   [write_res1_des_mod.f, 292]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use Argument   [write_res1_des_mod.f, 296]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 299]   WRITE_RES1_DES.WRITE_RES_DES_1D

WRITE_RES1_DES.WRITE_RES_DES_1D.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 289]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Declare   [write_res1_des_mod.f, 291]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 299]   WRITE_RES1_DES.WRITE_RES_DES_1D

WRITE_RES1_DES.WRITE_RES_DES_1D.lSIZE    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 294]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Set   [write_res1_des_mod.f, 296]   WRITE_RES1_DES.WRITE_RES_DES_1D
    Use   [write_res1_des_mod.f, 299]   WRITE_RES1_DES.WRITE_RES_DES_1D

WRITE_RES1_DES.WRITE_RES_DES_1I.INPUT_I    (Dummy Argument)  Declared as: INTEGER (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 250]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Declare   [write_res1_des_mod.f, 253]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use Argument   [write_res1_des_mod.f, 257]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 260]   WRITE_RES1_DES.WRITE_RES_DES_1I

WRITE_RES1_DES.WRITE_RES_DES_1I.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 250]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Declare   [write_res1_des_mod.f, 252]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 260]   WRITE_RES1_DES.WRITE_RES_DES_1I

WRITE_RES1_DES.WRITE_RES_DES_1I.lSIZE    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 255]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Set   [write_res1_des_mod.f, 257]   WRITE_RES1_DES.WRITE_RES_DES_1I
    Use   [write_res1_des_mod.f, 260]   WRITE_RES1_DES.WRITE_RES_DES_1I

WRITE_RES1_DES.WRITE_RES_DES_1L.INPUT_I    (Local Variable)  Declared as: INTEGER (:) ALLOCATABLE
    Define   [write_res1_des_mod.f, 337]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 342]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 345]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 349]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use Argument   [write_res1_des_mod.f, 351]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 351]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_DES_1L.INPUT_L    (Dummy Argument)  Declared as: LOGICAL (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 332]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Declare   [write_res1_des_mod.f, 335]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use Argument   [write_res1_des_mod.f, 341]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use Argument   [write_res1_des_mod.f, 345]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_DES_1L.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 339]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 344]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 345]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 345]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_DES_1L.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 332]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Declare   [write_res1_des_mod.f, 334]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 349]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_DES_1L.lSIZE    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 339]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Set   [write_res1_des_mod.f, 341]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 342]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 344]   WRITE_RES1_DES.WRITE_RES_DES_1L
    Use   [write_res1_des_mod.f, 349]   WRITE_RES1_DES.WRITE_RES_DES_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.INPUT_B    (Dummy Argument)  Declared as: INTEGER (KIND=1)(:) INTENT(IN)
    Define   [write_res1_des_mod.f, 361]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Declare   [write_res1_des_mod.f, 369]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use Argument   [write_res1_des_mod.f, 383]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 385]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.INPUT_I    (Local Variable)  Declared as: INTEGER (:) ALLOCATABLE
    Define   [write_res1_des_mod.f, 372]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 383]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 385]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 397]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 404]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use Argument   [write_res1_des_mod.f, 411]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 418]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 375]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 392]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 395]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 396]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 397]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 398]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 398]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 402]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 403]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 404]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 405]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 405]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 375]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 394]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 397]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 401]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 404]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.lLOC2GLB    (Local Variable)  Declared as: LOGICAL
    Define   [write_res1_des_mod.f, 373]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 377]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Set   [write_res1_des_mod.f, 378]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 393]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use Argument   [write_res1_des_mod.f, 411]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 361]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Declare   [write_res1_des_mod.f, 368]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 408]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 413]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1B.pLOC2GLB    (Dummy Argument)  Declared as: LOGICAL INTENT(IN) OPTIONAL
    Define   [write_res1_des_mod.f, 361]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Declare   [write_res1_des_mod.f, 370]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use Argument   [write_res1_des_mod.f, 378]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B
    Use   [write_res1_des_mod.f, 378]   WRITE_RES1_DES.WRITE_RES_PARRAY_1B

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.INPUT_D    (Dummy Argument)  Declared as: DOUBLE PRECISION (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 490]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Declare   [write_res1_des_mod.f, 498]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 516]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use Argument   [write_res1_des_mod.f, 521]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 501]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 512]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 514]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 515]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 516]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 517]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 517]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 501]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Set   [write_res1_des_mod.f, 513]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 516]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D

WRITE_RES1_DES.WRITE_RES_PARRAY_1D.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 490]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Declare   [write_res1_des_mod.f, 497]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 519]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D
    Use   [write_res1_des_mod.f, 523]   WRITE_RES1_DES.WRITE_RES_PARRAY_1D

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.INPUT_I    (Dummy Argument)  Declared as: INTEGER (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 428]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 436]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 460]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 467]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 474]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 441]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 454]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 458]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 459]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 460]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 461]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 461]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 465]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 466]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 467]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 468]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 468]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 441]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 457]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 460]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 464]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 467]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.lLOC2GLB    (Local Variable)  Declared as: LOGICAL
    Define   [write_res1_des_mod.f, 439]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 443]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Set   [write_res1_des_mod.f, 444]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 456]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 474]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 428]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 435]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 471]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 476]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1I.pLOC2GLB    (Dummy Argument)  Declared as: LOGICAL INTENT(IN) OPTIONAL
    Define   [write_res1_des_mod.f, 428]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Declare   [write_res1_des_mod.f, 437]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use Argument   [write_res1_des_mod.f, 444]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I
    Use   [write_res1_des_mod.f, 444]   WRITE_RES1_DES.WRITE_RES_PARRAY_1I

WRITE_RES1_DES.WRITE_RES_PARRAY_1L.INPUT_L    (Dummy Argument)  Declared as: LOGICAL (:) INTENT(IN)
    Define   [write_res1_des_mod.f, 537]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Declare   [write_res1_des_mod.f, 544]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use Argument   [write_res1_des_mod.f, 561]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use Argument   [write_res1_des_mod.f, 566]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1L.LC1    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 547]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 557]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 559]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 560]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 561]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 562]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 562]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1L.LC2    (Local Variable)  Declared as: INTEGER
    Define   [write_res1_des_mod.f, 547]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Set   [write_res1_des_mod.f, 558]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 561]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RES1_DES.WRITE_RES_PARRAY_1L.lNEXT_REC    (Dummy Argument)  Declared as: INTEGER INTENT(INOUT)
    Define   [write_res1_des_mod.f, 537]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Declare   [write_res1_des_mod.f, 543]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 564]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L
    Use   [write_res1_des_mod.f, 568]   WRITE_RES1_DES.WRITE_RES_PARRAY_1L

WRITE_RS0.LINE    (Dummy Argument)  Declared as: CHARACTER (len=*) INTENT(IN)
    Define   [rxn_com_mod.f, 555]      WRITE_RS0
    Declare   [rxn_com_mod.f, 562]     WRITE_RS0
    Use   [rxn_com_mod.f, 569]         WRITE_RS0
    Use   [rxn_com_mod.f, 573]         WRITE_RS0

WRITE_RS0.UFLAG    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [rxn_com_mod.f, 555]      WRITE_RS0
    Declare   [rxn_com_mod.f, 563]     WRITE_RS0
    Use   [rxn_com_mod.f, 567]         WRITE_RS0
    Use IO   [rxn_com_mod.f, 573]      WRITE_RS0

writeBA.FUNIT    (Dummy Argument)  Declared as: INTEGER INTENT(IN) OPTIONAL
    Define   [parse_mod.f, 1006]       writeBA
    Declare   [parse_mod.f, 1011]      writeBA
    Use Argument   [parse_mod.f, 1018]   writeBA
    Use IO   [parse_mod.f, 1021]       writeBA
    Use Argument   [parse_mod.f, 1030]   writeBA
    Use IO   [parse_mod.f, 1033]       writeBA
    Use Argument   [parse_mod.f, 1044]   writeBA
    Use IO   [parse_mod.f, 1047]       writeBA

writeBA.M    (Local Variable)  Declared as: INTEGER
    Define   [parse_mod.f, 1013]       writeBA
    Set   [parse_mod.f, 1039]          writeBA
    Use   [parse_mod.f, 1040]          writeBA
    Use   [parse_mod.f, 1045]          writeBA
    Use   [parse_mod.f, 1047]          writeBA

writeBA.N    (Local Variable)  Declared as: INTEGER
    Define   [parse_mod.f, 1013]       writeBA
    Set   [parse_mod.f, 1027]          writeBA
    Use   [parse_mod.f, 1031]          writeBA
    Use   [parse_mod.f, 1033]          writeBA
    Set   [parse_mod.f, 1040]          writeBA
    Use   [parse_mod.f, 1045]          writeBA
    Use   [parse_mod.f, 1047]          writeBA

writeBA.Nsp    (Local Variable)  Declared as: INTEGER
    Define   [parse_mod.f, 1016]       writeBA
    Set   [parse_mod.f, 1025]          writeBA
    Set   [parse_mod.f, 1028]          writeBA
    Use   [parse_mod.f, 1028]          writeBA
    Use   [parse_mod.f, 1029]          writeBA
    Set   [parse_mod.f, 1041]          writeBA
    Use   [parse_mod.f, 1041]          writeBA
    Use   [parse_mod.f, 1043]          writeBA

writeCp.lM    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 293]    writeCp
    Use   [read_database.f, 320]       writeCp
    Use   [read_database.f, 320]       writeCp
    Use   [read_database.f, 323]       writeCp
    Use   [read_database.f, 323]       writeCp
    Use   [read_database.f, 326]       writeCp
    Use   [read_database.f, 331]       writeCp
    Use   [read_database.f, 332]       writeCp
    Use   [read_database.f, 338]       writeCp
    Use   [read_database.f, 339]       writeCp
    Use   [read_database.f, 350]       writeCp
    Use   [read_database.f, 351]       writeCp
    Use   [read_database.f, 357]       writeCp
    Use   [read_database.f, 358]       writeCp

writeCp.lMW    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 293]    writeCp
    Use   [read_database.f, 338]       writeCp
    Use   [read_database.f, 339]       writeCp
    Use   [read_database.f, 357]       writeCp
    Use   [read_database.f, 358]       writeCp

writeCp.lN    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 293]    writeCp
    Use   [read_database.f, 320]       writeCp
    Use   [read_database.f, 320]       writeCp
    Use   [read_database.f, 323]       writeCp
    Use   [read_database.f, 323]       writeCp
    Use   [read_database.f, 326]       writeCp
    Use   [read_database.f, 331]       writeCp
    Use   [read_database.f, 332]       writeCp
    Use   [read_database.f, 338]       writeCp
    Use   [read_database.f, 339]       writeCp
    Use   [read_database.f, 350]       writeCp
    Use   [read_database.f, 351]       writeCp
    Use   [read_database.f, 357]       writeCp
    Use   [read_database.f, 358]       writeCp

writeCp.lName    (Dummy Argument)  Declared as: INTEGER (implicit)
    Define   [read_database.f, 293]    writeCp
    Use Argument   [read_database.f, 317]   writeCp

Wrminus    (Local Variable)  Declared as: DOUBLE PRECISION (QMOMK_NN)
    Define   [qmomk_time_march.f, 60]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 185]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 194]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 211]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 220]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 242]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 251]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 268]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 277]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 294]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 303]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 482]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 491]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 508]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 517]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 539]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 548]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 565]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 574]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 591]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 600]    QMOMK_TIME_MARCH

Wrplus    (Local Variable)  Declared as: DOUBLE PRECISION (QMOMK_NN)
    Define   [qmomk_time_march.f, 60]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 190]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 195]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 216]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 221]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 247]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 252]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 273]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 278]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 299]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 304]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 487]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 492]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 513]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 518]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 544]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 549]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 570]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 575]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 596]    QMOMK_TIME_MARCH
    Use   [qmomk_time_march.f, 601]    QMOMK_TIME_MARCH

Ws    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_gamma_des.f, 56]    CALC_GAMMA_DES
    Set   [calc_gamma_des.f, 86]       CALC_GAMMA_DES
    Use   [calc_gamma_des.f, 87]       CALC_GAMMA_DES

Ws    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 53]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 148]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 202]       CG_SOURCE_W_G

Ws    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 71]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 182]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 227]       CG_SOURCE_W_S

Ws_Temp    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [radial_vel_correction.f, 28]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 108]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 119]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 123]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 155]   RADIAL_VEL_CORRECTION

Ws_Temp_GL    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [radial_vel_correction.f, 28]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 109]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 123]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 124]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 138]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 138]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 156]   RADIAL_VEL_CORRECTION

WsAvg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [radial_vel_correction.f, 36]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 138]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 139]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 140]   RADIAL_VEL_CORRECTION

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 107]       SOURCE_V_G
    Set   [source_v_g.f, 259]          SOURCE_V_G
    Use Argument   [source_v_g.f, 262]   SOURCE_V_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 64]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 243]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 244]       CG_SOURCE_U_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 109]       SOURCE_U_G
    Set   [source_u_g.f, 259]          SOURCE_U_G
    Use Argument   [source_u_g.f, 261]   SOURCE_U_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 63]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 248]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 253]       CG_SOURCE_W_G

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 114]       SOURCE_W_G
    Set   [source_w_g.f, 255]          SOURCE_W_G
    Use   [source_w_g.f, 269]          SOURCE_W_G

wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 511]       CALC_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 523]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 536]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 555]          CALC_DERIV_VEL_SOLIDS

WsB    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_s.f, 293]       GET_FACE_VEL_SOLIDS
    Declare   [calc_trd_s.f, 343]      GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 426]          GET_FACE_VEL_SOLIDS

Wsb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 63]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 241]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 242]       CG_SOURCE_V_G

Wsc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 64]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 244]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 245]       CG_SOURCE_U_G

Wsc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 63]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 242]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 243]       CG_SOURCE_V_G

wscc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 511]       CALC_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 523]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 528]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 546]          CALC_DERIV_VEL_SOLIDS

WscC    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_s.f, 293]       GET_FACE_VEL_SOLIDS
    Declare   [calc_trd_s.f, 346]      GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 430]          GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 433]          GET_FACE_VEL_SOLIDS

WSCL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_ss.f, 116]          DRAG_SS_SYAM
    Set   [drag_ss.f, 145]             DRAG_SS_SYAM
    Use   [drag_ss.f, 153]             DRAG_SS_SYAM

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_ss.f, 116]          DRAG_SS_SYAM
    Set   [drag_ss.f, 149]             DRAG_SS_SYAM
    Use   [drag_ss.f, 153]             DRAG_SS_SYAM

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 347]         CALC_THETA_BC
    Set   [bc_theta.f, 442]            CALC_THETA_BC
    Use   [bc_theta.f, 447]            CALC_THETA_BC
    Set   [bc_theta.f, 487]            CALC_THETA_BC
    Use   [bc_theta.f, 492]            CALC_THETA_BC
    Set   [bc_theta.f, 532]            CALC_THETA_BC
    Use   [bc_theta.f, 537]            CALC_THETA_BC
    Set   [bc_theta.f, 577]            CALC_THETA_BC
    Use   [bc_theta.f, 582]            CALC_THETA_BC
    Set   [bc_theta.f, 624]            CALC_THETA_BC
    Set   [bc_theta.f, 669]            CALC_THETA_BC
    Use   [bc_theta.f, 681]            CALC_THETA_BC

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_ghd_granular_energy.f, 92]   SOURCE_GHD_GRANULAR_ENERGY
    Set   [source_ghd_granular_energy.f, 345]   SOURCE_GHD_GRANULAR_ENERGY
    Use   [source_ghd_granular_energy.f, 347]   SOURCE_GHD_GRANULAR_ENERGY

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_gama.f, 79]         CALC_DEFAULT_GAMA_GS
    Set   [calc_gama.f, 117]           CALC_DEFAULT_GAMA_GS
    Use   [calc_gama.f, 120]           CALC_DEFAULT_GAMA_GS

WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 63]           DRAG_GS
    Set   [drag_gs.f, 142]             DRAG_GS
    Use   [drag_gs.f, 145]             DRAG_GS

WSCM_HYS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 65]           DRAG_GS
    Set   [drag_gs.f, 254]             DRAG_GS
    Set   [drag_gs.f, 261]             DRAG_GS
    Use   [drag_gs.f, 261]             DRAG_GS
    Set   [drag_gs.f, 266]             DRAG_GS
    Use   [drag_gs.f, 266]             DRAG_GS
    Use   [drag_gs.f, 269]             DRAG_GS

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 109]       SOURCE_U_G
    Set   [source_u_g.f, 261]          SOURCE_U_G
    Use   [source_u_g.f, 264]          SOURCE_U_G
    Use   [source_u_g.f, 266]          SOURCE_U_G

wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_s.f, 92]        SOURCE_U_S
    Set   [source_u_s.f, 424]          SOURCE_U_S
    Use   [source_u_s.f, 426]          SOURCE_U_S
    Use   [source_u_s.f, 428]          SOURCE_U_S

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 62]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 237]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 251]       CG_SOURCE_W_G

Wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 114]       SOURCE_W_G
    Set   [source_w_g.f, 260]          SOURCE_W_G
    Use   [source_w_g.f, 269]          SOURCE_W_G

wse    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 511]       CALC_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 523]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 534]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 544]          CALC_DERIV_VEL_SOLIDS

WsE    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_s.f, 293]       GET_FACE_VEL_SOLIDS
    Declare   [calc_trd_s.f, 339]      GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 421]          GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 461]          GET_FACE_VEL_SOLIDS

WSFCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [qmomk_gas_drag.f, 52]    QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 111]      QMOMK_GAS_DRAG
    Use   [qmomk_gas_drag.f, 113]      QMOMK_GAS_DRAG

WsL_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 304]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 434]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 545]   SOURCE_GRANULAR_ENERGY_IA

WsL_p    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 305]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 437]   SOURCE_GRANULAR_ENERGY_IA

WsL_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 304]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 433]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 544]   SOURCE_GRANULAR_ENERGY_IA

WsM_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 303]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 380]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 545]   SOURCE_GRANULAR_ENERGY_IA

WsM_P    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 305]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 383]   SOURCE_GRANULAR_ENERGY_IA

WsM_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 303]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 379]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 544]   SOURCE_GRANULAR_ENERGY_IA

Wsn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 62]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 242]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 252]       CG_SOURCE_W_G

Wsn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 114]       SOURCE_W_G
    Set   [source_w_g.f, 265]          SOURCE_W_G
    Use   [source_w_g.f, 270]          SOURCE_W_G

wsn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 511]       CALC_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 523]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 535]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 551]          CALC_DERIV_VEL_SOLIDS

WsN    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_s.f, 293]       GET_FACE_VEL_SOLIDS
    Declare   [calc_trd_s.f, 341]      GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 417]          GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 457]          GET_FACE_VEL_SOLIDS

Wss    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 62]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 243]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 252]       CG_SOURCE_W_G

Wss    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 114]       SOURCE_W_G
    Set   [source_w_g.f, 264]          SOURCE_W_G
    Use   [source_w_g.f, 270]          SOURCE_W_G

wss    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 511]       CALC_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 523]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 535]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 551]          CALC_DERIV_VEL_SOLIDS

WsS    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_s.f, 293]       GET_FACE_VEL_SOLIDS
    Declare   [calc_trd_s.f, 341]      GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 419]          GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 459]          GET_FACE_VEL_SOLIDS

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_v_g.f, 107]       SOURCE_V_G
    Set   [source_v_g.f, 258]          SOURCE_V_G
    Use Argument   [source_v_g.f, 262]   SOURCE_V_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_u_g.f, 64]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 242]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 244]       CG_SOURCE_U_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_u_g.f, 109]       SOURCE_U_G
    Set   [source_u_g.f, 260]          SOURCE_U_G
    Use Argument   [source_u_g.f, 261]   SOURCE_U_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 63]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 247]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 253]       CG_SOURCE_W_G

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 114]       SOURCE_W_G
    Set   [source_w_g.f, 256]          SOURCE_W_G
    Use   [source_w_g.f, 269]          SOURCE_W_G

wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 511]       CALC_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 523]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 536]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 555]          CALC_DERIV_VEL_SOLIDS

WsT    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_s.f, 293]       GET_FACE_VEL_SOLIDS
    Declare   [calc_trd_s.f, 343]      GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 425]          GET_FACE_VEL_SOLIDS

Wst    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_v_g.f, 63]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 240]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 242]       CG_SOURCE_V_G

Wsw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 62]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 238]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 251]       CG_SOURCE_W_G

Wsw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_w_g.f, 114]       SOURCE_W_G
    Set   [source_w_g.f, 261]          SOURCE_W_G
    Use   [source_w_g.f, 269]          SOURCE_W_G

wsw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 511]       CALC_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 523]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 534]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 544]          CALC_DERIV_VEL_SOLIDS

WsW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [calc_trd_s.f, 293]       GET_FACE_VEL_SOLIDS
    Declare   [calc_trd_s.f, 339]      GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 423]          GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 463]          GET_FACE_VEL_SOLIDS

WSX    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_M)
    Define   [set_ic.f, 63]            SET_IC
    Set   [set_ic.f, 87]               SET_IC
    Use   [set_ic.f, 145]              SET_IC
    Use   [set_ic.f, 145]              SET_IC
    Use   [set_ic.f, 185]              SET_IC
    Use   [set_ic.f, 187]              SET_IC

Wt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 53]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 150]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 203]       CG_SOURCE_W_G

Wt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 71]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 183]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 228]       CG_SOURCE_W_S

WT_UNIT    (Local Variable)  Declared as: CHARACTER (len=4)
    Define   [check_bqend.f, 29]       CHECK_BATCH_QUEUE_END
    Use Argument   [check_bqend.f, 41]   CHECK_BATCH_QUEUE_END
    Use   [check_bqend.f, 46]          CHECK_BATCH_QUEUE_END

WTP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des0.f, 264]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 379]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 380]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 400]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 405]        DRAG_GS_GAS0

WTP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [comp_mean_fields0.f, 59]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 163]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 165]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 167]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 168]   COMP_MEAN_FIELDS0

WV    (Dummy Argument)  Declared as: INTEGER
    Define   [qmomk_gas_drag.f, 14]    QMOMK_GAS_DRAG
    Declare   [qmomk_gas_drag.f, 46]   QMOMK_GAS_DRAG
    Use   [qmomk_gas_drag.f, 102]      QMOMK_GAS_DRAG

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(OUT)
    Define   [conv_dif_u_s.f, 76]      GET_UCELL_SVTERMS
    Declare   [conv_dif_u_s.f, 105]    GET_UCELL_SVTERMS
    Set   [conv_dif_u_s.f, 139]        GET_UCELL_SVTERMS
    Set   [conv_dif_u_s.f, 143]        GET_UCELL_SVTERMS
    Use   [conv_dif_u_s.f, 143]        GET_UCELL_SVTERMS
    Set   [conv_dif_u_s.f, 149]        GET_UCELL_SVTERMS

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_s.f, 843]     STORE_A_U_S1
    Set   [conv_dif_u_s.f, 848]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 852]        STORE_A_U_S1

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_s.f, 621]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 626]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 642]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 740]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 754]        STORE_A_U_SDC

ww    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 1195]         DRAG_KOCH_HILL
    Set   [drag_gs.f, 1207]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1210]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1213]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1225]            DRAG_KOCH_HILL
    Use   [drag_gs.f, 1228]            DRAG_KOCH_HILL

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(OUT)
    Define   [conv_dif_w_g.f, 60]      GET_WCELL_GVTERMS
    Declare   [conv_dif_w_g.f, 85]     GET_WCELL_GVTERMS
    Set   [conv_dif_w_g.f, 118]        GET_WCELL_GVTERMS
    Set   [conv_dif_w_g.f, 122]        GET_WCELL_GVTERMS
    Use   [conv_dif_w_g.f, 122]        GET_WCELL_GVTERMS
    Set   [conv_dif_w_g.f, 127]        GET_WCELL_GVTERMS

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_g.f, 815]     STORE_A_W_G1
    Set   [conv_dif_w_g.f, 820]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 824]        STORE_A_W_G1

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_g.f, 596]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 601]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 617]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 687]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 732]        STORE_A_W_GDC

WW    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [leq_gmres.f, 157]        LEQ_GMRES0
    Set   [leq_gmres.f, 184]           LEQ_GMRES0
    Set   [leq_gmres.f, 205]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 301]   LEQ_GMRES0
    Use   [leq_gmres.f, 304]           LEQ_GMRES0
    Set   [leq_gmres.f, 313]           LEQ_GMRES0
    Use   [leq_gmres.f, 313]           LEQ_GMRES0
    Use   [leq_gmres.f, 319]           LEQ_GMRES0
    Use   [leq_gmres.f, 319]           LEQ_GMRES0
    Use   [leq_gmres.f, 330]           LEQ_GMRES0
    Set   [leq_gmres.f, 581]           LEQ_GMRES0

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(OUT)
    Define   [conv_dif_w_s.f, 76]      GET_WCELL_SVTERMS
    Declare   [conv_dif_w_s.f, 104]    GET_WCELL_SVTERMS
    Set   [conv_dif_w_s.f, 137]        GET_WCELL_SVTERMS
    Set   [conv_dif_w_s.f, 141]        GET_WCELL_SVTERMS
    Use   [conv_dif_w_s.f, 141]        GET_WCELL_SVTERMS
    Set   [conv_dif_w_s.f, 146]        GET_WCELL_SVTERMS

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_s.f, 823]     STORE_A_W_S1
    Set   [conv_dif_w_s.f, 828]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 833]        STORE_A_W_S1

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_s.f, 605]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 610]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 626]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 723]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 737]        STORE_A_W_SDC

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(OUT)
    Define   [conv_dif_v_g.f, 62]      GET_VCELL_GVTERMS
    Declare   [conv_dif_v_g.f, 88]     GET_VCELL_GVTERMS
    Set   [conv_dif_v_g.f, 121]        GET_VCELL_GVTERMS
    Set   [conv_dif_v_g.f, 125]        GET_VCELL_GVTERMS
    Use   [conv_dif_v_g.f, 125]        GET_VCELL_GVTERMS
    Set   [conv_dif_v_g.f, 131]        GET_VCELL_GVTERMS

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_g.f, 844]     STORE_A_V_G1
    Set   [conv_dif_v_g.f, 849]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 853]        STORE_A_V_G1

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_g.f, 620]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 625]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 641]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 711]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 760]        STORE_A_V_GDC

Ww    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 53]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 145]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 200]       CG_SOURCE_W_G

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(OUT)
    Define   [conv_dif_v_s.f, 80]      GET_VCELL_SVTERMS
    Declare   [conv_dif_v_s.f, 109]    GET_VCELL_SVTERMS
    Set   [conv_dif_v_s.f, 142]        GET_VCELL_SVTERMS
    Set   [conv_dif_v_s.f, 146]        GET_VCELL_SVTERMS
    Use   [conv_dif_v_s.f, 146]        GET_VCELL_SVTERMS
    Set   [conv_dif_v_s.f, 152]        GET_VCELL_SVTERMS

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_s.f, 848]     STORE_A_V_S1
    Set   [conv_dif_v_s.f, 853]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 857]        STORE_A_V_S1

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_s.f, 623]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 628]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 644]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 743]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 757]        STORE_A_V_SDC

Ww    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 71]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 180]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 225]       CG_SOURCE_W_S

WW    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) INTENT(OUT)
    Define   [conv_dif_u_g.f, 60]      GET_UCELL_GVTERMS
    Declare   [conv_dif_u_g.f, 86]     GET_UCELL_GVTERMS
    Set   [conv_dif_u_g.f, 120]        GET_UCELL_GVTERMS
    Set   [conv_dif_u_g.f, 124]        GET_UCELL_GVTERMS
    Use   [conv_dif_u_g.f, 124]        GET_UCELL_GVTERMS
    Set   [conv_dif_u_g.f, 130]        GET_UCELL_GVTERMS

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_g.f, 842]     STORE_A_U_G1
    Set   [conv_dif_u_g.f, 847]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 851]        STORE_A_U_G1

WW    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_g.f, 618]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 623]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 639]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 738]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 752]        STORE_A_U_GDC

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_w_g.f, 308]          CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 404]             CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 410]             CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 417]             CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 423]             CALC_CG_TAU_w_G
    Use   [tau_w_g.f, 575]             CALC_CG_TAU_w_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_g.f, 249]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 350]             CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 356]             CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 363]             CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 369]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 485]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 504]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 513]             CALC_CG_TAU_V_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_g.f, 297]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 400]             CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 406]             CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 413]             CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 422]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 533]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 552]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 561]             CALC_CG_TAU_U_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_g.f, 57]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 100]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 112]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 116]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 119]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 122]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 125]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 128]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 199]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 200]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 201]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 202]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 203]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 204]       CG_SOURCE_W_G

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 561]       CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 597]          CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 602]          CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 608]          CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 613]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 756]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 757]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 758]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 768]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 769]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 770]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 774]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 775]          CALC_CG_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 776]          CALC_CG_DERIV_VEL_GAS

WW_g    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 115]       CALC_CG_TRD_G
    Set   [calc_trd_g.f, 148]          CALC_CG_TRD_G
    Set   [calc_trd_g.f, 153]          CALC_CG_TRD_G
    Set   [calc_trd_g.f, 159]          CALC_CG_TRD_G
    Set   [calc_trd_g.f, 164]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 260]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 268]          CALC_CG_TRD_G
    Use   [calc_trd_g.f, 272]          CALC_CG_TRD_G

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_w_s.f, 312]          CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 382]             CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 388]             CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 395]             CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 401]             CALC_CG_TAU_W_S
    Use   [tau_w_s.f, 549]             CALC_CG_TAU_W_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_s.f, 298]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 371]             CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 377]             CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 384]             CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 390]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 504]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 521]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 530]             CALC_CG_TAU_V_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_s.f, 335]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 413]             CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 419]             CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 426]             CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 432]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 549]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 567]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 576]             CALC_CG_TAU_U_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [CG_source_w_s.f, 74]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 136]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 141]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 145]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 148]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 151]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 154]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 157]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 160]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 163]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 224]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 225]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 226]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 227]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 228]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 229]       CG_SOURCE_W_S

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 620]       CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 659]          CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 664]          CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 671]          CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 676]          CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 681]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 826]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 827]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 828]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 838]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 839]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 840]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 844]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 845]          CALC_CG_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 846]          CALC_CG_DERIV_VEL_SOLIDS

WW_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 124]       CALC_CG_TRD_S
    Set   [calc_trd_s.f, 158]          CALC_CG_TRD_S
    Set   [calc_trd_s.f, 163]          CALC_CG_TRD_S
    Set   [calc_trd_s.f, 169]          CALC_CG_TRD_S
    Set   [calc_trd_s.f, 174]          CALC_CG_TRD_S
    Set   [calc_trd_s.f, 181]          CALC_CG_TRD_S
    Use   [calc_trd_s.f, 268]          CALC_CG_TRD_S

Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ