Object Cross Reference


Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ

K    (Local Variable)  Declared as: INTEGER
    Define   [gas_drag.f, 71]          GAS_DRAG_U
    Set   [gas_drag.f, 99]             GAS_DRAG_U
    Use   [gas_drag.f, 103]            GAS_DRAG_U
    Use   [gas_drag.f, 103]            GAS_DRAG_U
    Use   [gas_drag.f, 105]            GAS_DRAG_U
    Use   [gas_drag.f, 111]            GAS_DRAG_U
    Use   [gas_drag.f, 112]            GAS_DRAG_U

K    (Local Variable)  Declared as: INTEGER
    Define   [gas_drag.f, 220]         GAS_DRAG_V
    Set   [gas_drag.f, 246]            GAS_DRAG_V
    Use   [gas_drag.f, 250]            GAS_DRAG_V
    Use   [gas_drag.f, 250]            GAS_DRAG_V
    Use   [gas_drag.f, 252]            GAS_DRAG_V
    Use   [gas_drag.f, 259]            GAS_DRAG_V
    Use   [gas_drag.f, 260]            GAS_DRAG_V

K    (Local Variable)  Declared as: INTEGER
    Define   [gas_drag.f, 367]         GAS_DRAG_W
    Set   [gas_drag.f, 394]            GAS_DRAG_W
    Use   [gas_drag.f, 398]            GAS_DRAG_W
    Use   [gas_drag.f, 398]            GAS_DRAG_W
    Use   [gas_drag.f, 400]            GAS_DRAG_W
    Use   [gas_drag.f, 401]            GAS_DRAG_W
    Use   [gas_drag.f, 402]            GAS_DRAG_W
    Set   [gas_drag.f, 423]            GAS_DRAG_W
    Use Argument   [gas_drag.f, 426]   GAS_DRAG_W
    Use Argument   [gas_drag.f, 427]   GAS_DRAG_W

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 3364]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3484]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3485]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3485]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3485]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3485]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3522]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3528]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3612]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3618]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3679]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3681]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3690]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3703]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3703]   ADJUST_IJK_SIZE

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 2536]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3065]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3066]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3066]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3096]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3097]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3097]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3102]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3103]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3103]   GET_DXYZ_FROM_CONTROL_POINTS

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4066]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4131]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4132]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4183]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4184]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4232]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4233]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4236]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4237]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4237]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4267]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4267]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4273]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4274]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4274]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4274]   REPORT_BEST_IJK_SIZE

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4910]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 4979]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 4981]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5035]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5037]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5102]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5104]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5109]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5110]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5110]   REPORT_BEST_IJK_SIZE0

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mo.f, 41]     SET_BC_PIC_MO
    Set   [set_bc_pic_mo.f, 117]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 122]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 123]       SET_BC_PIC_MO

K    (Local Variable)  Declared as: INTEGER
    Define   [set_Odxyz.f, 34]         SET_ODXYZ_U_CUT_CELL
    Set   [set_Odxyz.f, 51]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 58]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 59]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 61]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 62]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 65]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 80]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 81]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 83]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 84]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 87]            SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 102]           SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 105]           SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 109]           SET_ODXYZ_U_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_Odxyz.f, 165]        SET_ODXYZ_V_CUT_CELL
    Set   [set_Odxyz.f, 182]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 189]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 190]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 192]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 193]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 196]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 211]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 212]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 214]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 215]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 218]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 233]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 236]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 240]           SET_ODXYZ_V_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_Odxyz.f, 300]        SET_ODXYZ_W_CUT_CELL
    Set   [set_Odxyz.f, 313]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 320]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 321]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 323]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 324]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 327]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 341]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 342]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 344]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 345]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 348]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 363]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 366]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 370]           SET_ODXYZ_W_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1918]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1949]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1955]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1955]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1991]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2000]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2001]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2003]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2004]   GET_POTENTIAL_CUT_CELLS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 45]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 111]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 112]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 112]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 112]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 143]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 155]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 155]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 528]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 529]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 537]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 538]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 540]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 541]   SET_3D_CUT_CELL_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1404]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1434]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1438]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1442]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1444]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1445]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1448]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1449]   SET_3D_CUT_CELL_TREATMENT_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1552]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1561]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1564]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1565]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1611]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1614]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1615]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1661]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1664]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1665]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1710]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1713]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1714]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1757]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1759]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1765]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1807]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1809]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1815]   SET_GHOST_CELL_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [vf_gs_z.f, 48]           VF_GS_Z
    Set   [vf_gs_z.f, 59]              VF_GS_Z
    Use Argument   [vf_gs_z.f, 62]     VF_GS_Z
    Set   [vf_gs_z.f, 73]              VF_GS_Z
    Use Argument   [vf_gs_z.f, 76]     VF_GS_Z

K    (Local Variable)  Declared as: INTEGER
    Define   [vf_gs_z.f, 129]          VF_SS_Z
    Set   [vf_gs_z.f, 145]             VF_SS_Z
    Use Argument   [vf_gs_z.f, 147]    VF_SS_Z
    Set   [vf_gs_z.f, 160]             VF_SS_Z
    Use Argument   [vf_gs_z.f, 162]    VF_SS_Z

K    (Local Variable)  Declared as: INTEGER
    Define   [cooling_rate.f, 172]     FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 197]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 198]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 198]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 203]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 205]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 205]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 205]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 206]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 206]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 206]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 224]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 225]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 227]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 228]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 230]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 231]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 232]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 232]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 233]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 237]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 237]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 237]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 237]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 238]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 238]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 239]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 239]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 239]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 240]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 240]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 241]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 241]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 241]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 246]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 247]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 249]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 249]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 250]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 251]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 252]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 254]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 254]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 254]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 254]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 255]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 255]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 256]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 261]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 262]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 262]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 264]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 264]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 265]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 265]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 266]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 266]        FUNC_JACOBI_EVAL

k    (Local Variable)  Declared as: INTEGER
    Define   [cooling_rate.f, 310]     ludcmp
    Set   [cooling_rate.f, 331]        ludcmp
    Use   [cooling_rate.f, 332]        ludcmp
    Use   [cooling_rate.f, 332]        ludcmp
    Set   [cooling_rate.f, 339]        ludcmp
    Use   [cooling_rate.f, 340]        ludcmp
    Use   [cooling_rate.f, 340]        ludcmp
    Set   [cooling_rate.f, 350]        ludcmp
    Use   [cooling_rate.f, 351]        ludcmp
    Use   [cooling_rate.f, 352]        ludcmp
    Use   [cooling_rate.f, 352]        ludcmp
    Use   [cooling_rate.f, 353]        ludcmp

K    (Local Variable)  Declared as: INTEGER
    Define   [cooling_rate.f, 95]      MNEWT
    Set   [cooling_rate.f, 101]        MNEWT

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 135]   CHECK_ICBC_FLAG
    Set   [set_icbc_flags.f, 144]      CHECK_ICBC_FLAG
    Use   [set_icbc_flags.f, 147]      CHECK_ICBC_FLAG
    Set   [set_icbc_flags.f, 165]      CHECK_ICBC_FLAG
    Use   [set_icbc_flags.f, 168]      CHECK_ICBC_FLAG
    Use   [set_icbc_flags.f, 169]      CHECK_ICBC_FLAG

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 43]    INIT_ICBC_FLAG
    Set   [set_icbc_flags.f, 46]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 50]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 58]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 58]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 58]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 58]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 97]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 97]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 97]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 97]       INIT_ICBC_FLAG

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 388]   SET_BC_FLAGS_FLOW
    Set   [set_icbc_flags.f, 447]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 451]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 452]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 454]      SET_BC_FLAGS_FLOW
    Set   [set_icbc_flags.f, 491]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 495]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 496]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 498]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 502]      SET_BC_FLAGS_FLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 307]   SET_BC_FLAGS_WALL
    Set   [set_icbc_flags.f, 326]      SET_BC_FLAGS_WALL
    Use   [set_icbc_flags.f, 330]      SET_BC_FLAGS_WALL
    Use   [set_icbc_flags.f, 331]      SET_BC_FLAGS_WALL
    Use   [set_icbc_flags.f, 333]      SET_BC_FLAGS_WALL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 230]   SET_IC_FLAGS
    Set   [set_icbc_flags.f, 243]      SET_IC_FLAGS
    Use   [set_icbc_flags.f, 246]      SET_IC_FLAGS
    Use   [set_icbc_flags.f, 247]      SET_IC_FLAGS
    Use   [set_icbc_flags.f, 248]      SET_IC_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [adjust_eps.f, 44]        ADJUST_EPS
    Set   [adjust_eps.f, 54]           ADJUST_EPS
    Use   [adjust_eps.f, 58]           ADJUST_EPS
    Use   [adjust_eps.f, 60]           ADJUST_EPS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 997]          IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1037]   IJK_Pg_SEARCH
    Use   [set_bc0.f, 1040]            IJK_Pg_SEARCH
    Use   [set_bc0.f, 1042]            IJK_Pg_SEARCH
    Set   [set_bc0.f, 1106]            IJK_Pg_SEARCH
    Use   [set_bc0.f, 1121]            IJK_Pg_SEARCH
    Use   [set_bc0.f, 1131]            IJK_Pg_SEARCH
    Use   [set_bc0.f, 1132]            IJK_Pg_SEARCH

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 396]          SET_BC0_INFLOW
    Set   [set_bc0.f, 405]             SET_BC0_INFLOW
    Use   [set_bc0.f, 408]             SET_BC0_INFLOW
    Use   [set_bc0.f, 409]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 410]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 450]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 454]    SET_BC0_INFLOW
    Use   [set_bc0.f, 458]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 505]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 508]    SET_BC0_INFLOW
    Use   [set_bc0.f, 511]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 541]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 545]    SET_BC0_INFLOW
    Use   [set_bc0.f, 549]             SET_BC0_INFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 704]          set_bc0_init_bcscalars
    Set   [set_bc0.f, 711]             set_bc0_init_bcscalars
    Use   [set_bc0.f, 714]             set_bc0_init_bcscalars
    Use   [set_bc0.f, 715]             set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 716]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 720]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 722]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 724]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 726]    set_bc0_init_bcscalars
    Use   [set_bc0.f, 728]             set_bc0_init_bcscalars
    Use   [set_bc0.f, 730]             set_bc0_init_bcscalars

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 238]          SET_BC0_OUTFLOW
    Set   [set_bc0.f, 244]             SET_BC0_OUTFLOW
    Use   [set_bc0.f, 247]             SET_BC0_OUTFLOW
    Use   [set_bc0.f, 248]             SET_BC0_OUTFLOW
    Use Argument   [set_bc0.f, 249]    SET_BC0_OUTFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 127]          SET_BC0_WALLS
    Set   [set_bc0.f, 130]             SET_BC0_WALLS
    Use   [set_bc0.f, 134]             SET_BC0_WALLS
    Use   [set_bc0.f, 135]             SET_BC0_WALLS
    Use Argument   [set_bc0.f, 136]    SET_BC0_WALLS

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 1004]      JJ_BC_V_S
    Set   [source_v_s.f, 1009]         JJ_BC_V_S
    Use   [source_v_s.f, 1012]         JJ_BC_V_S
    Use   [source_v_s.f, 1013]         JJ_BC_V_S
    Use   [source_v_s.f, 1015]         JJ_BC_V_S
    Use   [source_v_s.f, 1018]         JJ_BC_V_S
    Use   [source_v_s.f, 1098]         JJ_BC_V_S
    Use   [source_v_s.f, 1099]         JJ_BC_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 1171]      POINT_SOURCE_V_S
    Set   [source_v_s.f, 1192]         POINT_SOURCE_V_S
    Use   [source_v_s.f, 1196]         POINT_SOURCE_V_S
    Use   [source_v_s.f, 1197]         POINT_SOURCE_V_S
    Use   [source_v_s.f, 1199]         POINT_SOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 81]        SOURCE_V_S
    Set   [source_v_s.f, 138]          SOURCE_V_S
    Use   [source_v_s.f, 350]          SOURCE_V_S
    Use Argument   [source_v_s.f, 351]   SOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 531]       SOURCE_V_S_BC
    Set   [source_v_s.f, 666]          SOURCE_V_S_BC
    Use   [source_v_s.f, 669]          SOURCE_V_S_BC
    Use   [source_v_s.f, 670]          SOURCE_V_S_BC
    Use   [source_v_s.f, 671]          SOURCE_V_S_BC
    Use   [source_v_s.f, 673]          SOURCE_V_S_BC
    Set   [source_v_s.f, 706]          SOURCE_V_S_BC
    Use   [source_v_s.f, 709]          SOURCE_V_S_BC
    Use   [source_v_s.f, 710]          SOURCE_V_S_BC
    Use   [source_v_s.f, 711]          SOURCE_V_S_BC
    Set   [source_v_s.f, 745]          SOURCE_V_S_BC
    Use   [source_v_s.f, 748]          SOURCE_V_S_BC
    Use   [source_v_s.f, 749]          SOURCE_V_S_BC
    Use   [source_v_s.f, 750]          SOURCE_V_S_BC
    Use   [source_v_s.f, 753]          SOURCE_V_S_BC
    Use   [source_v_s.f, 788]          SOURCE_V_S_BC
    Use   [source_v_s.f, 790]          SOURCE_V_S_BC
    Set   [source_v_s.f, 823]          SOURCE_V_S_BC
    Use   [source_v_s.f, 826]          SOURCE_V_S_BC
    Use   [source_v_s.f, 827]          SOURCE_V_S_BC
    Use   [source_v_s.f, 828]          SOURCE_V_S_BC
    Set   [source_v_s.f, 850]          SOURCE_V_S_BC
    Use   [source_v_s.f, 853]          SOURCE_V_S_BC
    Use   [source_v_s.f, 854]          SOURCE_V_S_BC
    Use   [source_v_s.f, 855]          SOURCE_V_S_BC
    Set   [source_v_s.f, 883]          SOURCE_V_S_BC
    Use   [source_v_s.f, 886]          SOURCE_V_S_BC
    Use   [source_v_s.f, 887]          SOURCE_V_S_BC
    Use   [source_v_s.f, 888]          SOURCE_V_S_BC
    Set   [source_v_s.f, 911]          SOURCE_V_S_BC
    Use   [source_v_s.f, 914]          SOURCE_V_S_BC
    Use   [source_v_s.f, 915]          SOURCE_V_S_BC
    Use   [source_v_s.f, 916]          SOURCE_V_S_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_g.f, 75]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 124]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 126]   CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 223]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 235]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 238]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 241]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 244]   CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 270]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 274]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 278]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 280]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 281]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 282]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 283]       CG_SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ps.f, 279]           DEBUG_PS
    Set   [set_ps.f, 296]              DEBUG_PS
    Use   [set_ps.f, 301]              DEBUG_PS
    Use   [set_ps.f, 302]              DEBUG_PS
    Use   [set_ps.f, 303]              DEBUG_PS
    Set   [set_ps.f, 378]              DEBUG_PS
    Use   [set_ps.f, 381]              DEBUG_PS
    Use   [set_ps.f, 383]              DEBUG_PS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ps.f, 24]            SET_PS
    Set   [set_ps.f, 84]               SET_PS
    Use   [set_ps.f, 88]               SET_PS
    Use   [set_ps.f, 89]               SET_PS
    Use   [set_ps.f, 90]               SET_PS

k    (Local Variable)  Declared as: INTEGER
    Define   [read_particle_input.f, 29]   READ_PAR_INPUT
    Use   [read_particle_input.f, 86]   READ_PAR_INPUT
    Set   [read_particle_input.f, 86]   READ_PAR_INPUT
    Use   [read_particle_input.f, 88]   READ_PAR_INPUT
    Set   [read_particle_input.f, 88]   READ_PAR_INPUT
    Use   [read_particle_input.f, 107]   READ_PAR_INPUT
    Set   [read_particle_input.f, 107]   READ_PAR_INPUT
    Use   [read_particle_input.f, 108]   READ_PAR_INPUT
    Set   [read_particle_input.f, 108]   READ_PAR_INPUT

K    (Local Variable)  Declared as: INTEGER
    Define   [source_granular_energy.f, 87]   SOURCE_GRANULAR_ENERGY
    Set   [source_granular_energy.f, 110]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 113]   SOURCE_GRANULAR_ENERGY
    Use Argument   [source_granular_energy.f, 206]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 218]   SOURCE_GRANULAR_ENERGY

K    (Local Variable)  Declared as: INTEGER
    Define   [source_granular_energy.f, 631]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 661]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 664]   SOURCE_GRANULAR_ENERGY_GD
    Use Argument   [source_granular_energy.f, 755]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 770]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 771]   SOURCE_GRANULAR_ENERGY_GD

K    (Local Variable)  Declared as: INTEGER
    Define   [source_granular_energy.f, 298]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 339]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 342]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 490]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 500]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 514]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 515]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 528]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 539]   SOURCE_GRANULAR_ENERGY_IA

K    (Local Variable)  Declared as: INTEGER
    Define   [set_increments3.f, 37]   SET_INCREMENTS3
    Set   [set_increments3.f, 94]      SET_INCREMENTS3
    Use   [set_increments3.f, 96]      SET_INCREMENTS3
    Use   [set_increments3.f, 96]      SET_INCREMENTS3
    Use   [set_increments3.f, 96]      SET_INCREMENTS3
    Use   [set_increments3.f, 97]      SET_INCREMENTS3
    Use   [set_increments3.f, 97]      SET_INCREMENTS3
    Use   [set_increments3.f, 97]      SET_INCREMENTS3
    Use   [set_increments3.f, 100]     SET_INCREMENTS3
    Use   [set_increments3.f, 100]     SET_INCREMENTS3
    Use   [set_increments3.f, 101]     SET_INCREMENTS3
    Use   [set_increments3.f, 101]     SET_INCREMENTS3
    Use   [set_increments3.f, 103]     SET_INCREMENTS3
    Use   [set_increments3.f, 103]     SET_INCREMENTS3
    Use   [set_increments3.f, 104]     SET_INCREMENTS3
    Use   [set_increments3.f, 104]     SET_INCREMENTS3
    Set   [set_increments3.f, 109]     SET_INCREMENTS3
    Use   [set_increments3.f, 112]     SET_INCREMENTS3
    Use   [set_increments3.f, 116]     SET_INCREMENTS3
    Set   [set_increments3.f, 125]     SET_INCREMENTS3
    Use   [set_increments3.f, 129]     SET_INCREMENTS3
    Use Argument   [set_increments3.f, 132]   SET_INCREMENTS3

K    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 34]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 55]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 58]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 59]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 64]      MAKE_ARRAYS_DES
    Use Argument   [make_arrays_des.f, 65]   MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 65]      MAKE_ARRAYS_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_rop_s.f, 100]       CONV_ROP_S0
    Set   [conv_rop_s.f, 132]          CONV_ROP_S0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_rop_s.f, 227]       CONV_ROP_S1
    Set   [conv_rop_s.f, 255]          CONV_ROP_S1

K    (Local Variable)  Declared as: INTEGER
    Define   [k_epsilon_prop.f, 77]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 190]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 193]      K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 217]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 225]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 262]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 265]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 268]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 275]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 279]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 282]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 344]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 347]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 441]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 446]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 453]      K_Epsilon_PROP

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 1025]      POINT_SOURCE_U_G
    Set   [source_u_g.f, 1049]         POINT_SOURCE_U_G
    Use   [source_u_g.f, 1053]         POINT_SOURCE_U_G
    Use   [source_u_g.f, 1054]         POINT_SOURCE_U_G
    Use   [source_u_g.f, 1056]         POINT_SOURCE_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 71]        SOURCE_U_G
    Set   [source_u_g.f, 120]          SOURCE_U_G
    Use   [source_u_g.f, 248]          SOURCE_U_G
    Use Argument   [source_u_g.f, 249]   SOURCE_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 413]       SOURCE_U_G_BC
    Set   [source_u_g.f, 572]          SOURCE_U_G_BC
    Use   [source_u_g.f, 575]          SOURCE_U_G_BC
    Use   [source_u_g.f, 576]          SOURCE_U_G_BC
    Use   [source_u_g.f, 577]          SOURCE_U_G_BC
    Set   [source_u_g.f, 607]          SOURCE_U_G_BC
    Use   [source_u_g.f, 610]          SOURCE_U_G_BC
    Use   [source_u_g.f, 611]          SOURCE_U_G_BC
    Use   [source_u_g.f, 612]          SOURCE_U_G_BC
    Set   [source_u_g.f, 642]          SOURCE_U_G_BC
    Use   [source_u_g.f, 645]          SOURCE_U_G_BC
    Use   [source_u_g.f, 646]          SOURCE_U_G_BC
    Use   [source_u_g.f, 647]          SOURCE_U_G_BC
    Use   [source_u_g.f, 650]          SOURCE_U_G_BC
    Use   [source_u_g.f, 685]          SOURCE_U_G_BC
    Use   [source_u_g.f, 686]          SOURCE_U_G_BC
    Set   [source_u_g.f, 717]          SOURCE_U_G_BC
    Use   [source_u_g.f, 720]          SOURCE_U_G_BC
    Use   [source_u_g.f, 721]          SOURCE_U_G_BC
    Use   [source_u_g.f, 722]          SOURCE_U_G_BC
    Use   [source_u_g.f, 725]          SOURCE_U_G_BC
    Use   [source_u_g.f, 745]          SOURCE_U_G_BC
    Set   [source_u_g.f, 774]          SOURCE_U_G_BC
    Use   [source_u_g.f, 777]          SOURCE_U_G_BC
    Use   [source_u_g.f, 778]          SOURCE_U_G_BC
    Use   [source_u_g.f, 779]          SOURCE_U_G_BC
    Set   [source_u_g.f, 805]          SOURCE_U_G_BC
    Use   [source_u_g.f, 808]          SOURCE_U_G_BC
    Use   [source_u_g.f, 809]          SOURCE_U_G_BC
    Use   [source_u_g.f, 810]          SOURCE_U_G_BC
    Set   [source_u_g.f, 839]          SOURCE_U_G_BC
    Use   [source_u_g.f, 842]          SOURCE_U_G_BC
    Use   [source_u_g.f, 843]          SOURCE_U_G_BC
    Use   [source_u_g.f, 844]          SOURCE_U_G_BC
    Set   [source_u_g.f, 873]          SOURCE_U_G_BC
    Use   [source_u_g.f, 876]          SOURCE_U_G_BC
    Use   [source_u_g.f, 877]          SOURCE_U_G_BC
    Use   [source_u_g.f, 878]          SOURCE_U_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [check_mass_balance.f, 547]   Calc_mass_flux_sp
    Set   [check_mass_balance.f, 554]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 557]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 558]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 562]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 570]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 578]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 586]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 594]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 602]   Calc_mass_flux_sp

K    (Local Variable)  Declared as: INTEGER
    Define   [check_mass_balance.f, 730]   Calc_mass_flux_spHR
    Set   [check_mass_balance.f, 743]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 746]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 747]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 751]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 756]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 761]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 766]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 771]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 776]   Calc_mass_flux_spHR

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 193]     CONV_DIF_PHI0
    Set   [conv_dif_phi.f, 221]        CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 239]        CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 263]        CONV_DIF_PHI0
    Use Argument   [conv_dif_phi.f, 282]   CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 282]        CONV_DIF_PHI0
    Use Argument   [conv_dif_phi.f, 288]   CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 288]        CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 316]        CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 341]        CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 358]        CONV_DIF_PHI0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 813]     CONV_DIF_PHI1
    Set   [conv_dif_phi.f, 872]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 889]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 908]        CONV_DIF_PHI1
    Use Argument   [conv_dif_phi.f, 925]   CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 925]        CONV_DIF_PHI1
    Use Argument   [conv_dif_phi.f, 931]   CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 931]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 955]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 978]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 993]        CONV_DIF_PHI1

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 475]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 518]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 519]        CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 548]        CONV_DIF_PHI_DC

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 1093]    DIF_PHI_IS
    Set   [conv_dif_phi.f, 1138]       DIF_PHI_IS
    Use   [conv_dif_phi.f, 1141]       DIF_PHI_IS
    Use   [conv_dif_phi.f, 1142]       DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 1168]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 1168]       DIF_PHI_IS

k    (Local Variable)  Declared as: INTEGER
    Define   [generate_particle_config.f, 1274]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1378]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Set   [generate_particle_config.f, 1378]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1381]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Set   [generate_particle_config.f, 1381]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1391]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Set   [generate_particle_config.f, 1391]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1394]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Set   [generate_particle_config.f, 1394]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1415]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Set   [generate_particle_config.f, 1415]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1418]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Set   [generate_particle_config.f, 1418]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1428]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Set   [generate_particle_config.f, 1428]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Use   [generate_particle_config.f, 1431]   DBG_WRITE_PART_VTP_FILE_FROM_LIST
    Set   [generate_particle_config.f, 1431]   DBG_WRITE_PART_VTP_FILE_FROM_LIST

K    (Local Variable)  Declared as: INTEGER
    Define   [generate_particle_config.f, 499]   GENERATE_PARTICLE_CONFIG_DEM
    Set   [generate_particle_config.f, 651]   GENERATE_PARTICLE_CONFIG_DEM
    Use   [generate_particle_config.f, 655]   GENERATE_PARTICLE_CONFIG_DEM
    Set   [generate_particle_config.f, 755]   GENERATE_PARTICLE_CONFIG_DEM
    Set   [generate_particle_config.f, 756]   GENERATE_PARTICLE_CONFIG_DEM
    Use   [generate_particle_config.f, 759]   GENERATE_PARTICLE_CONFIG_DEM
    Use   [generate_particle_config.f, 761]   GENERATE_PARTICLE_CONFIG_DEM
    Use   [generate_particle_config.f, 763]   GENERATE_PARTICLE_CONFIG_DEM
    Use   [generate_particle_config.f, 776]   GENERATE_PARTICLE_CONFIG_DEM
    Use   [generate_particle_config.f, 777]   GENERATE_PARTICLE_CONFIG_DEM

K    (Local Variable)  Declared as: INTEGER
    Define   [generate_particle_config.f, 898]   GENERATE_PARTICLE_CONFIG_MPPIC
    Set   [generate_particle_config.f, 1006]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1010]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1011]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1012]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1018]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1021]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1027]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1028]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1075]   GENERATE_PARTICLE_CONFIG_MPPIC
    Set   [generate_particle_config.f, 1150]   GENERATE_PARTICLE_CONFIG_MPPIC
    Set   [generate_particle_config.f, 1151]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1154]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1156]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1158]   GENERATE_PARTICLE_CONFIG_MPPIC
    Use   [generate_particle_config.f, 1177]   GENERATE_PARTICLE_CONFIG_MPPIC

K    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 42]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 137]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 143]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 146]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 147]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 148]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 177]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 183]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 187]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 229]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 234]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 234]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 235]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 325]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 328]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 329]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 338]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 338]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 338]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 428]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 431]   COMP_MEAN_FIELDS0

K    (Local Variable)  Declared as: INTEGER
    Define   [get_stats.f, 56]         GET_STATS
    Set   [get_stats.f, 87]            GET_STATS
    Use   [get_stats.f, 120]           GET_STATS
    Use   [get_stats.f, 122]           GET_STATS
    Set   [get_stats.f, 150]           GET_STATS
    Use   [get_stats.f, 182]           GET_STATS
    Use   [get_stats.f, 184]           GET_STATS

K    (Local Variable)  Declared as: INTEGER
    Define   [partial_elim.f, 728]     PARTIAL_ELIM_W
    Set   [partial_elim.f, 766]        PARTIAL_ELIM_W
    Use Argument   [partial_elim.f, 768]   PARTIAL_ELIM_W

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 142]     STORE_A_U_S0
    Set   [conv_dif_u_s.f, 168]        STORE_A_U_S0
    Use Argument   [conv_dif_u_s.f, 237]   STORE_A_U_S0
    Use Argument   [conv_dif_u_s.f, 238]   STORE_A_U_S0
    Use Argument   [conv_dif_u_s.f, 242]   STORE_A_U_S0
    Use Argument   [conv_dif_u_s.f, 243]   STORE_A_U_S0
    Use   [conv_dif_u_s.f, 244]        STORE_A_U_S0
    Use   [conv_dif_u_s.f, 313]        STORE_A_U_S0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 809]     STORE_A_U_S1
    Set   [conv_dif_u_s.f, 915]        STORE_A_U_S1
    Use Argument   [conv_dif_u_s.f, 976]   STORE_A_U_S1
    Use Argument   [conv_dif_u_s.f, 977]   STORE_A_U_S1
    Use Argument   [conv_dif_u_s.f, 981]   STORE_A_U_S1
    Use Argument   [conv_dif_u_s.f, 982]   STORE_A_U_S1
    Use   [conv_dif_u_s.f, 983]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 1040]       STORE_A_U_S1

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 408]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 458]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 459]        STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 531]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 707]        STORE_A_U_SDC

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mi.f, 351]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 429]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 433]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 434]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 436]       SET_DEM_BCMI_IJK

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_v_s.f, 113]    CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 154]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 155]       CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 199]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 200]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 203]       CALC_IA_MOMSOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [get_master.f, 32]        GET_U_MASTER_CELLS
    Set   [get_master.f, 70]           GET_U_MASTER_CELLS
    Use   [get_master.f, 132]          GET_U_MASTER_CELLS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_master.f, 187]       GET_V_MASTER_CELLS
    Set   [get_master.f, 213]          GET_V_MASTER_CELLS
    Use   [get_master.f, 277]          GET_V_MASTER_CELLS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_master.f, 330]       GET_W_MASTER_CELLS
    Set   [get_master.f, 356]          GET_W_MASTER_CELLS
    Use   [get_master.f, 420]          GET_W_MASTER_CELLS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ic_dem.f, 46]        SET_IC_DEM
    Set   [set_ic_dem.f, 58]           SET_IC_DEM
    Use   [set_ic_dem.f, 64]           SET_IC_DEM
    Use   [set_ic_dem.f, 65]           SET_IC_DEM
    Use   [set_ic_dem.f, 67]           SET_IC_DEM

K    (Local Variable)  Declared as: INTEGER
    Define   [partial_elim_ghd.f, 443]   PARTIAL_ELIM_GHD_W
    Set   [partial_elim_ghd.f, 493]    PARTIAL_ELIM_GHD_W
    Use Argument   [partial_elim_ghd.f, 495]   PARTIAL_ELIM_GHD_W
    Set   [partial_elim_ghd.f, 567]    PARTIAL_ELIM_GHD_W
    Use Argument   [partial_elim_ghd.f, 569]   PARTIAL_ELIM_GHD_W

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_set_outflow.f, 59]    CG_SET_OUTFLOW
    Set   [CG_set_outflow.f, 84]       CG_SET_OUTFLOW
    Use   [CG_set_outflow.f, 87]       CG_SET_OUTFLOW

k    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 678]       copy_d_to_r
    Set   [write_spx1.f, 685]          copy_d_to_r
    Use   [write_spx1.f, 687]          copy_d_to_r

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 44]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 187]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 191]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 192]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 194]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 222]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 223]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 226]      DIF_PHI_BC_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 290]   DIF_PHI_BC_DES_CG
    Set   [dif_phi_bc_des.f, 300]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 306]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 306]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 350]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 351]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 357]      DIF_PHI_BC_DES_CG

k    (Local Variable)  Declared as: INTEGER
    Define   [write_ab_m.f, 72]        WRITE_AB_M
    Set   [write_ab_m.f, 105]          WRITE_AB_M
    Use   [write_ab_m.f, 109]          WRITE_AB_M
    Use   [write_ab_m.f, 112]          WRITE_AB_M
    Set   [write_ab_m.f, 123]          WRITE_AB_M
    Use   [write_ab_m.f, 127]          WRITE_AB_M
    Use   [write_ab_m.f, 129]          WRITE_AB_M
    Use   [write_ab_m.f, 131]          WRITE_AB_M
    Use   [write_ab_m.f, 131]          WRITE_AB_M

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_s.f, 58]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 101]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 110]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 114]   CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 204]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 216]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 218]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 220]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 222]   CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 245]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 248]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 251]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 252]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 253]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 254]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 255]       CG_SOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_u_is.f, 59]          DIF_U_IS
    Set   [dif_u_is.f, 98]             DIF_U_IS
    Use   [dif_u_is.f, 101]            DIF_U_IS
    Use   [dif_u_is.f, 102]            DIF_U_IS
    Use   [dif_u_is.f, 103]            DIF_U_IS
    Set   [dif_u_is.f, 119]            DIF_U_IS
    Use   [dif_u_is.f, 122]            DIF_U_IS
    Use   [dif_u_is.f, 123]            DIF_U_IS
    Use   [dif_u_is.f, 124]            DIF_U_IS
    Use Argument   [dif_u_is.f, 130]   DIF_U_IS
    Use Argument   [dif_u_is.f, 131]   DIF_U_IS
    Use   [dif_u_is.f, 131]            DIF_U_IS

K    (Local Variable)  Declared as: INTEGER
    Define   [source_phi.f, 196]       POINT_SOURCE_PHI
    Set   [source_phi.f, 213]          POINT_SOURCE_PHI
    Use   [source_phi.f, 217]          POINT_SOURCE_PHI
    Use   [source_phi.f, 218]          POINT_SOURCE_PHI
    Use   [source_phi.f, 220]          POINT_SOURCE_PHI

K    (Local Variable)  Declared as: INTEGER
    Define   [set_outflow.f, 68]       SET_OUTFLOW
    Set   [set_outflow.f, 79]          SET_OUTFLOW
    Use   [set_outflow.f, 83]          SET_OUTFLOW
    Use   [set_outflow.f, 84]          SET_OUTFLOW
    Use   [set_outflow.f, 85]          SET_OUTFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_g.f, 79]           CALC_TAU_W_G
    Set   [tau_w_g.f, 119]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 121]    CALC_TAU_W_G
    Use   [tau_w_g.f, 140]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 157]    CALC_TAU_W_G
    Use   [tau_w_g.f, 157]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 159]    CALC_TAU_W_G
    Use   [tau_w_g.f, 159]             CALC_TAU_W_G
    Use   [tau_w_g.f, 160]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 163]    CALC_TAU_W_G
    Use   [tau_w_g.f, 163]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 165]    CALC_TAU_W_G
    Use   [tau_w_g.f, 165]             CALC_TAU_W_G
    Use   [tau_w_g.f, 169]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 184]    CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 186]    CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 189]    CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 191]    CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 302]    CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 304]    CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 363]    CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 365]    CALC_TAU_W_G
    Use   [tau_w_g.f, 411]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 415]    CALC_TAU_W_G
    Use   [tau_w_g.f, 416]             CALC_TAU_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [solve_k_epsilon_eq.f, 78]   SOLVE_K_Epsilon_EQ
    Set   [solve_k_epsilon_eq.f, 143]   SOLVE_K_Epsilon_EQ
    Set   [solve_k_epsilon_eq.f, 225]   SOLVE_K_Epsilon_EQ
    Set   [solve_k_epsilon_eq.f, 264]   SOLVE_K_Epsilon_EQ
    Use   [solve_k_epsilon_eq.f, 288]   SOLVE_K_Epsilon_EQ

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1012]      JJ_BC_U_S
    Set   [source_u_s.f, 1017]         JJ_BC_U_S
    Use   [source_u_s.f, 1020]         JJ_BC_U_S
    Use   [source_u_s.f, 1021]         JJ_BC_U_S
    Use   [source_u_s.f, 1023]         JJ_BC_U_S
    Use   [source_u_s.f, 1026]         JJ_BC_U_S
    Use   [source_u_s.f, 1106]         JJ_BC_U_S
    Use   [source_u_s.f, 1107]         JJ_BC_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1179]      POINT_SOURCE_U_S
    Set   [source_u_s.f, 1203]         POINT_SOURCE_U_S
    Use   [source_u_s.f, 1207]         POINT_SOURCE_U_S
    Use   [source_u_s.f, 1208]         POINT_SOURCE_U_S
    Use   [source_u_s.f, 1210]         POINT_SOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 78]        SOURCE_U_S
    Set   [source_u_s.f, 132]          SOURCE_U_S
    Use   [source_u_s.f, 348]          SOURCE_U_S
    Use Argument   [source_u_s.f, 349]   SOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 536]       SOURCE_U_S_BC
    Set   [source_u_s.f, 672]          SOURCE_U_S_BC
    Use   [source_u_s.f, 675]          SOURCE_U_S_BC
    Use   [source_u_s.f, 676]          SOURCE_U_S_BC
    Use   [source_u_s.f, 677]          SOURCE_U_S_BC
    Set   [source_u_s.f, 711]          SOURCE_U_S_BC
    Use   [source_u_s.f, 714]          SOURCE_U_S_BC
    Use   [source_u_s.f, 715]          SOURCE_U_S_BC
    Use   [source_u_s.f, 716]          SOURCE_U_S_BC
    Set   [source_u_s.f, 750]          SOURCE_U_S_BC
    Use   [source_u_s.f, 753]          SOURCE_U_S_BC
    Use   [source_u_s.f, 754]          SOURCE_U_S_BC
    Use   [source_u_s.f, 755]          SOURCE_U_S_BC
    Use   [source_u_s.f, 758]          SOURCE_U_S_BC
    Use   [source_u_s.f, 793]          SOURCE_U_S_BC
    Use   [source_u_s.f, 795]          SOURCE_U_S_BC
    Set   [source_u_s.f, 828]          SOURCE_U_S_BC
    Use   [source_u_s.f, 831]          SOURCE_U_S_BC
    Use   [source_u_s.f, 832]          SOURCE_U_S_BC
    Use   [source_u_s.f, 833]          SOURCE_U_S_BC
    Set   [source_u_s.f, 855]          SOURCE_U_S_BC
    Use   [source_u_s.f, 858]          SOURCE_U_S_BC
    Use   [source_u_s.f, 859]          SOURCE_U_S_BC
    Use   [source_u_s.f, 860]          SOURCE_U_S_BC
    Set   [source_u_s.f, 889]          SOURCE_U_S_BC
    Use   [source_u_s.f, 892]          SOURCE_U_S_BC
    Use   [source_u_s.f, 893]          SOURCE_U_S_BC
    Use   [source_u_s.f, 894]          SOURCE_U_S_BC
    Set   [source_u_s.f, 918]          SOURCE_U_S_BC
    Use   [source_u_s.f, 921]          SOURCE_U_S_BC
    Use   [source_u_s.f, 922]          SOURCE_U_S_BC
    Use   [source_u_s.f, 924]          SOURCE_U_S_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 72]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 120]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 212]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 241]   CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 242]   CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 268]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 272]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 274]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 275]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 276]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 277]       CG_SOURCE_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 408]    CG_SOURCE_V_G_BC
    Set   [CG_source_v_g.f, 466]       CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 470]       CG_SOURCE_V_G_BC
    Set   [CG_source_v_g.f, 578]       CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 582]       CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 584]       CG_SOURCE_V_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 49]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 70]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 85]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 86]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 104]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 105]   CALC_INTERP_WEIGHTS1

k    (Local Variable)  Declared as: INTEGER
    Define   [source_population_eq.f, 16]   Source_population_eq
    Set   [source_population_eq.f, 193]   Source_population_eq
    Use   [source_population_eq.f, 195]   Source_population_eq
    Use   [source_population_eq.f, 195]   Source_population_eq

K    (Local Variable)  Declared as: INTEGER
    Define   [get_bc_area.f, 164]      CG_GET_BC_AREA
    Set   [get_bc_area.f, 198]         CG_GET_BC_AREA
    Use   [get_bc_area.f, 202]         CG_GET_BC_AREA
    Use   [get_bc_area.f, 203]         CG_GET_BC_AREA
    Use   [get_bc_area.f, 205]         CG_GET_BC_AREA

K    (Local Variable)  Declared as: INTEGER
    Define   [get_bc_area.f, 50]       GET_BC_AREA
    Set   [get_bc_area.f, 59]          GET_BC_AREA
    Use   [get_bc_area.f, 63]          GET_BC_AREA
    Set   [get_bc_area.f, 69]          GET_BC_AREA
    Use   [get_bc_area.f, 73]          GET_BC_AREA
    Set   [get_bc_area.f, 79]          GET_BC_AREA
    Use   [get_bc_area.f, 83]          GET_BC_AREA
    Set   [get_bc_area.f, 88]          GET_BC_AREA

K    (Local Variable)  Declared as: INTEGER
    Define   [source_ghd_granular_energy.f, 55]   SOURCE_GHD_GRANULAR_ENERGY
    Set   [source_ghd_granular_energy.f, 96]   SOURCE_GHD_GRANULAR_ENERGY
    Use   [source_ghd_granular_energy.f, 99]   SOURCE_GHD_GRANULAR_ENERGY
    Use Argument   [source_ghd_granular_energy.f, 225]   SOURCE_GHD_GRANULAR_ENERGY
    Use Argument   [source_ghd_granular_energy.f, 226]   SOURCE_GHD_GRANULAR_ENERGY
    Use   [source_ghd_granular_energy.f, 243]   SOURCE_GHD_GRANULAR_ENERGY
    Use Argument   [source_ghd_granular_energy.f, 291]   SOURCE_GHD_GRANULAR_ENERGY
    Use Argument   [source_ghd_granular_energy.f, 292]   SOURCE_GHD_GRANULAR_ENERGY

K    (Local Variable)  Declared as: INTEGER
    Define   [des_granular_temperature.f, 37]   DES_GRANULAR_TEMPERATURE
    Set   [des_granular_temperature.f, 70]   DES_GRANULAR_TEMPERATURE

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1709]         GATHER_DATA
    Set   [vtk_out.f, 1797]            GATHER_DATA
    Use   [vtk_out.f, 1798]            GATHER_DATA

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1896]         SETUP_VTK_NO_CUTCELL
    Set   [vtk_out.f, 1943]            SETUP_VTK_NO_CUTCELL
    Use   [vtk_out.f, 1954]            SETUP_VTK_NO_CUTCELL
    Use   [vtk_out.f, 1954]            SETUP_VTK_NO_CUTCELL
    Set   [vtk_out.f, 2005]            SETUP_VTK_NO_CUTCELL
    Use   [vtk_out.f, 2006]            SETUP_VTK_NO_CUTCELL

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3070]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3144]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3169]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3169]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3172]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3203]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3228]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3228]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3231]            SETUP_VTK_REGION

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 48]           WRITE_VTU_FILE
    Set   [vtk_out.f, 87]              WRITE_VTU_FILE
    Use   [vtk_out.f, 88]              WRITE_VTU_FILE
    Use   [vtk_out.f, 88]              WRITE_VTU_FILE
    Use   [vtk_out.f, 88]              WRITE_VTU_FILE

K    (Local Variable)  Declared as: INTEGER
    Define   [set_flags.f, 62]         SET_FLAGS
    Set   [set_flags.f, 97]            SET_FLAGS
    Use   [set_flags.f, 99]            SET_FLAGS
    Use Argument   [set_flags.f, 103]   SET_FLAGS
    Use Argument   [set_flags.f, 106]   SET_FLAGS
    Use Argument   [set_flags.f, 109]   SET_FLAGS
    Use Argument   [set_flags.f, 112]   SET_FLAGS
    Use   [set_flags.f, 115]           SET_FLAGS
    Use   [set_flags.f, 118]           SET_FLAGS
    Set   [set_flags.f, 182]           SET_FLAGS
    Use   [set_flags.f, 183]           SET_FLAGS
    Use   [set_flags.f, 183]           SET_FLAGS
    Set   [set_flags.f, 190]           SET_FLAGS
    Use   [set_flags.f, 192]           SET_FLAGS
    Use   [set_flags.f, 192]           SET_FLAGS
    Use   [set_flags.f, 196]           SET_FLAGS
    Use   [set_flags.f, 196]           SET_FLAGS
    Use   [set_flags.f, 199]           SET_FLAGS
    Use   [set_flags.f, 200]           SET_FLAGS
    Use   [set_flags.f, 200]           SET_FLAGS
    Use   [set_flags.f, 204]           SET_FLAGS
    Use   [set_flags.f, 204]           SET_FLAGS
    Use   [set_flags.f, 208]           SET_FLAGS
    Use   [set_flags.f, 208]           SET_FLAGS
    Use   [set_flags.f, 211]           SET_FLAGS
    Use   [set_flags.f, 212]           SET_FLAGS
    Use   [set_flags.f, 212]           SET_FLAGS
    Set   [set_flags.f, 245]           SET_FLAGS
    Use   [set_flags.f, 247]           SET_FLAGS
    Use   [set_flags.f, 248]           SET_FLAGS
    Use   [set_flags.f, 249]           SET_FLAGS
    Set   [set_flags.f, 256]           SET_FLAGS
    Use   [set_flags.f, 258]           SET_FLAGS
    Use   [set_flags.f, 259]           SET_FLAGS
    Use   [set_flags.f, 260]           SET_FLAGS
    Set   [set_flags.f, 270]           SET_FLAGS
    Use   [set_flags.f, 272]           SET_FLAGS
    Use   [set_flags.f, 273]           SET_FLAGS
    Use   [set_flags.f, 274]           SET_FLAGS
    Set   [set_flags.f, 281]           SET_FLAGS
    Use   [set_flags.f, 283]           SET_FLAGS
    Use   [set_flags.f, 284]           SET_FLAGS
    Use   [set_flags.f, 285]           SET_FLAGS
    Set   [set_flags.f, 294]           SET_FLAGS
    Use   [set_flags.f, 297]           SET_FLAGS
    Use   [set_flags.f, 298]           SET_FLAGS
    Use   [set_flags.f, 299]           SET_FLAGS
    Set   [set_flags.f, 305]           SET_FLAGS
    Use   [set_flags.f, 308]           SET_FLAGS
    Use   [set_flags.f, 309]           SET_FLAGS
    Use   [set_flags.f, 310]           SET_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_flags.f, 393]        SET_FLAGS1
    Set   [set_flags.f, 417]           SET_FLAGS1
    Use   [set_flags.f, 418]           SET_FLAGS1
    Use   [set_flags.f, 419]           SET_FLAGS1
    Use   [set_flags.f, 440]           SET_FLAGS1
    Use   [set_flags.f, 440]           SET_FLAGS1
    Use   [set_flags.f, 440]           SET_FLAGS1
    Use   [set_flags.f, 440]           SET_FLAGS1
    Use   [set_flags.f, 449]           SET_FLAGS1
    Use   [set_flags.f, 449]           SET_FLAGS1
    Use   [set_flags.f, 449]           SET_FLAGS1
    Use   [set_flags.f, 449]           SET_FLAGS1
    Use   [set_flags.f, 454]           SET_FLAGS1

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_cg.f, 172]           LEQ_CG0
    Set   [leq_cg.f, 224]              LEQ_CG0
    Use   [leq_cg.f, 227]              LEQ_CG0

K    (Local Variable)  Declared as: INTEGER
    Define   [adjust_eps_ghd.f, 59]    ADJUST_EPS_GHD
    Set   [adjust_eps_ghd.f, 93]       ADJUST_EPS_GHD
    Use Argument   [adjust_eps_ghd.f, 107]   ADJUST_EPS_GHD

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_external_forces.f, 47]   CALC_EXTERNAL_FORCES
    Set   [calc_external_forces.f, 77]   CALC_EXTERNAL_FORCES
    Use   [calc_external_forces.f, 101]   CALC_EXTERNAL_FORCES
    Use Argument   [calc_external_forces.f, 124]   CALC_EXTERNAL_FORCES
    Use Argument   [calc_external_forces.f, 128]   CALC_EXTERNAL_FORCES
    Use Argument   [calc_external_forces.f, 132]   CALC_EXTERNAL_FORCES
    Use Argument   [calc_external_forces.f, 158]   CALC_EXTERNAL_FORCES
    Use Argument   [calc_external_forces.f, 161]   CALC_EXTERNAL_FORCES

K    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_j.f, 34]          MOD_BC_J
    Set   [mod_bc_j.f, 110]            MOD_BC_J
    Use   [mod_bc_j.f, 112]            MOD_BC_J
    Use   [mod_bc_j.f, 113]            MOD_BC_J
    Use   [mod_bc_j.f, 114]            MOD_BC_J
    Use   [mod_bc_j.f, 115]            MOD_BC_J
    Use   [mod_bc_j.f, 117]            MOD_BC_J
    Use   [mod_bc_j.f, 118]            MOD_BC_J
    Set   [mod_bc_j.f, 142]            MOD_BC_J
    Use   [mod_bc_j.f, 145]            MOD_BC_J
    Use   [mod_bc_j.f, 146]            MOD_BC_J
    Use   [mod_bc_j.f, 147]            MOD_BC_J
    Use   [mod_bc_j.f, 148]            MOD_BC_J
    Use   [mod_bc_j.f, 150]            MOD_BC_J
    Use   [mod_bc_j.f, 151]            MOD_BC_J
    Use   [mod_bc_j.f, 157]            MOD_BC_J
    Use   [mod_bc_j.f, 158]            MOD_BC_J

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_u_s.f, 113]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 156]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 157]       CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 201]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 202]   CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 205]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 236]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 237]       CALC_IA_MOMSOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [set_geometry1.f, 48]     SET_GEOMETRY1
    Set   [set_geometry1.f, 75]        SET_GEOMETRY1
    Use   [set_geometry1.f, 76]        SET_GEOMETRY1
    Use   [set_geometry1.f, 78]        SET_GEOMETRY1
    Use   [set_geometry1.f, 79]        SET_GEOMETRY1
    Use   [set_geometry1.f, 82]        SET_GEOMETRY1
    Use   [set_geometry1.f, 83]        SET_GEOMETRY1
    Use   [set_geometry1.f, 84]        SET_GEOMETRY1
    Use   [set_geometry1.f, 85]        SET_GEOMETRY1
    Use   [set_geometry1.f, 87]        SET_GEOMETRY1
    Use   [set_geometry1.f, 88]        SET_GEOMETRY1
    Use   [set_geometry1.f, 89]        SET_GEOMETRY1
    Use   [set_geometry1.f, 90]        SET_GEOMETRY1
    Use   [set_geometry1.f, 97]        SET_GEOMETRY1
    Use   [set_geometry1.f, 98]        SET_GEOMETRY1
    Use   [set_geometry1.f, 100]       SET_GEOMETRY1

K    (Local Variable)  Declared as: INTEGER
    Define   [solve_energy_eq.f, 77]   SOLVE_ENERGY_EQ
    Set   [solve_energy_eq.f, 128]     SOLVE_ENERGY_EQ
    Use   [solve_energy_eq.f, 130]     SOLVE_ENERGY_EQ
    Use   [solve_energy_eq.f, 138]     SOLVE_ENERGY_EQ
    Use   [solve_energy_eq.f, 146]     SOLVE_ENERGY_EQ
    Set   [solve_energy_eq.f, 186]     SOLVE_ENERGY_EQ
    Use   [solve_energy_eq.f, 188]     SOLVE_ENERGY_EQ
    Use   [solve_energy_eq.f, 196]     SOLVE_ENERGY_EQ
    Use   [solve_energy_eq.f, 204]     SOLVE_ENERGY_EQ

K    (Dummy Argument)  Declared as: INTEGER
    Define   [set_index1.f, 37]        SET_INDEX1
    Declare   [set_index1.f, 65]       SET_INDEX1
    Set   [set_index1.f, 73]           SET_INDEX1
    Use   [set_index1.f, 77]           SET_INDEX1

K    (Local Variable)  Declared as: INTEGER
    Define   [source_rop_g.f, 53]      SOURCE_ROP_G
    Set   [source_rop_g.f, 66]         SOURCE_ROP_G

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mi.f, 158]    SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 236]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 241]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 242]       SET_PIC_BCMI_IJK

K    (Local Variable)  Declared as: INTEGER
    Define   [get_philoss.f, 70]       GET_PHILOSS
    Set   [get_philoss.f, 89]          GET_PHILOSS
    Use   [get_philoss.f, 92]          GET_PHILOSS
    Use   [get_philoss.f, 93]          GET_PHILOSS
    Use   [get_philoss.f, 94]          GET_PHILOSS
    Use   [get_philoss.f, 136]         GET_PHILOSS
    Use   [get_philoss.f, 146]         GET_PHILOSS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_fluidbed_p.f, 61]    SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 95]       SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 98]       SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 99]       SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 100]      SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 112]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 115]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 116]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 117]      SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 127]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 128]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 128]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 132]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 133]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 134]      SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 184]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 186]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 187]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 188]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 191]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 193]      SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 221]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 223]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 224]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 225]      SET_FLUIDBED_P

K    (Dummy Argument)  Declared as: INTEGER
    Define   [set_index1a3.f, 34]      SET_INDEX1A3
    Declare   [set_index1a3.f, 60]     SET_INDEX1A3
    Use Argument   [set_index1a3.f, 76]   SET_INDEX1A3
    Use Argument   [set_index1a3.f, 80]   SET_INDEX1A3
    Use Argument   [set_index1a3.f, 84]   SET_INDEX1A3
    Use Argument   [set_index1a3.f, 88]   SET_INDEX1A3
    Use   [set_index1a3.f, 91]         SET_INDEX1A3
    Use   [set_index1a3.f, 92]         SET_INDEX1A3
    Use   [set_index1a3.f, 95]         SET_INDEX1A3
    Use   [set_index1a3.f, 96]         SET_INDEX1A3

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 153]     STORE_A_W_G0
    Set   [conv_dif_w_g.f, 199]        STORE_A_W_G0
    Use   [conv_dif_w_g.f, 209]        STORE_A_W_G0
    Use Argument   [conv_dif_w_g.f, 224]   STORE_A_W_G0
    Use Argument   [conv_dif_w_g.f, 228]   STORE_A_W_G0
    Use Argument   [conv_dif_w_g.f, 250]   STORE_A_W_G0
    Use Argument   [conv_dif_w_g.f, 254]   STORE_A_W_G0
    Use Argument   [conv_dif_w_g.f, 306]   STORE_A_W_G0
    Use Argument   [conv_dif_w_g.f, 310]   STORE_A_W_G0
    Use Argument   [conv_dif_w_g.f, 337]   STORE_A_W_G0
    Use Argument   [conv_dif_w_g.f, 341]   STORE_A_W_G0
    Use   [conv_dif_w_g.f, 356]        STORE_A_W_G0
    Use   [conv_dif_w_g.f, 368]        STORE_A_W_G0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 914]     STORE_A_W_G1
    Set   [conv_dif_w_g.f, 955]        STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 977]   STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 978]   STORE_A_W_G1
    Set   [conv_dif_w_g.f, 1024]       STORE_A_W_G1
    Use   [conv_dif_w_g.f, 1034]       STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 1049]   STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 1053]   STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 1072]   STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 1076]   STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 1120]   STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 1124]   STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 1147]   STORE_A_W_G1
    Use Argument   [conv_dif_w_g.f, 1151]   STORE_A_W_G1
    Use   [conv_dif_w_g.f, 1162]       STORE_A_W_G1
    Use   [conv_dif_w_g.f, 1174]       STORE_A_W_G1

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 459]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 513]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 514]        STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 523]        STORE_A_W_GDC
    Use Argument   [conv_dif_w_g.f, 536]   STORE_A_W_GDC
    Use Argument   [conv_dif_w_g.f, 546]   STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 589]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 603]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 794]        STORE_A_W_GDC

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_s.f, 75]           CALC_TAU_W_S
    Set   [tau_w_s.f, 119]             CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 125]    CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 129]    CALC_TAU_W_S
    Use   [tau_w_s.f, 150]             CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 164]    CALC_TAU_W_S
    Use   [tau_w_s.f, 165]             CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 167]    CALC_TAU_W_S
    Use   [tau_w_s.f, 168]             CALC_TAU_W_S
    Use   [tau_w_s.f, 168]             CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 171]    CALC_TAU_W_S
    Use   [tau_w_s.f, 172]             CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 174]    CALC_TAU_W_S
    Use   [tau_w_s.f, 175]             CALC_TAU_W_S
    Use   [tau_w_s.f, 179]             CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 195]    CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 198]    CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 201]    CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 204]    CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 309]    CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 312]    CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 363]    CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 366]    CALC_TAU_W_S
    Use   [tau_w_s.f, 393]             CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 397]    CALC_TAU_W_S
    Use   [tau_w_s.f, 398]             CALC_TAU_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_i.f, 43]          MOD_BC_I
    Set   [mod_bc_i.f, 121]            MOD_BC_I
    Use   [mod_bc_i.f, 124]            MOD_BC_I
    Use   [mod_bc_i.f, 125]            MOD_BC_I
    Use   [mod_bc_i.f, 126]            MOD_BC_I
    Use   [mod_bc_i.f, 127]            MOD_BC_I
    Use   [mod_bc_i.f, 129]            MOD_BC_I
    Use   [mod_bc_i.f, 130]            MOD_BC_I
    Set   [mod_bc_i.f, 152]            MOD_BC_I
    Use   [mod_bc_i.f, 155]            MOD_BC_I
    Use   [mod_bc_i.f, 156]            MOD_BC_I
    Use   [mod_bc_i.f, 157]            MOD_BC_I
    Use   [mod_bc_i.f, 158]            MOD_BC_I
    Use   [mod_bc_i.f, 160]            MOD_BC_I
    Use   [mod_bc_i.f, 161]            MOD_BC_I
    Use   [mod_bc_i.f, 167]            MOD_BC_I
    Use   [mod_bc_i.f, 168]            MOD_BC_I

K    (Local Variable)  Declared as: INTEGER
    Define   [ghdmassflux.f, 45]       GHDMASSFLUX
    Set   [ghdmassflux.f, 91]          GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 104]   GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 108]   GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 123]   GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 125]   GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 250]   GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 252]   GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 277]   GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 278]   GHDMASSFLUX
    Use   [ghdmassflux.f, 326]         GHDMASSFLUX
    Use   [ghdmassflux.f, 345]         GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 357]   GHDMASSFLUX
    Use Argument   [ghdmassflux.f, 370]   GHDMASSFLUX

K    (Local Variable)  Declared as: INTEGER
    Define   [ghdmassflux.f, 435]      UpdateSpeciesVelocities
    Set   [ghdmassflux.f, 465]         UpdateSpeciesVelocities
    Use Argument   [ghdmassflux.f, 670]   UpdateSpeciesVelocities
    Use Argument   [ghdmassflux.f, 679]   UpdateSpeciesVelocities
    Use Argument   [ghdmassflux.f, 680]   UpdateSpeciesVelocities
    Use Argument   [ghdmassflux.f, 681]   UpdateSpeciesVelocities
    Use Argument   [ghdmassflux.f, 687]   UpdateSpeciesVelocities
    Use Argument   [ghdmassflux.f, 699]   UpdateSpeciesVelocities
    Use Argument   [ghdmassflux.f, 700]   UpdateSpeciesVelocities

K    (Local Variable)  Declared as: INTEGER
    Define   [ghdmassflux.f, 796]      UrNEWT
    Set   [ghdmassflux.f, 800]         UrNEWT

k    (Local Variable)  Declared as: INTEGER
    Define   [ghdmassflux.f, 960]      VELOCITY_UPDATE
    Set   [ghdmassflux.f, 969]         VELOCITY_UPDATE
    Use   [ghdmassflux.f, 970]         VELOCITY_UPDATE
    Set   [ghdmassflux.f, 993]         VELOCITY_UPDATE
    Use   [ghdmassflux.f, 995]         VELOCITY_UPDATE
    Use   [ghdmassflux.f, 996]         VELOCITY_UPDATE
    Use   [ghdmassflux.f, 996]         VELOCITY_UPDATE
    Use   [ghdmassflux.f, 996]         VELOCITY_UPDATE

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 516]    LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 628]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 631]       LAYOUT_DEM_MI_EW
    Use Argument   [layout_mi_dem.f, 636]   LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 637]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 641]       LAYOUT_DEM_MI_EW
    Use Argument   [layout_mi_dem.f, 644]   LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 645]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 648]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 652]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 654]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 658]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 694]       LAYOUT_DEM_MI_EW

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 122]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 235]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 238]       LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 243]   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 Argument   [layout_mi_dem.f, 251]   LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 252]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 255]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 259]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 261]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 265]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 301]       LAYOUT_DEM_MI_NS

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 910]    LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 973]   LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 976]       LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 1010]   LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1021]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1025]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1029]      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, 1070]      LAYOUT_DEM_MI_TB

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 1260]   SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1273]      SET_DEM_MI_OWNER
    Use   [layout_mi_dem.f, 1274]      SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1283]      SET_DEM_MI_OWNER
    Use   [layout_mi_dem.f, 1284]      SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1290]      SET_DEM_MI_OWNER
    Use   [layout_mi_dem.f, 1294]      SET_DEM_MI_OWNER

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_s.f, 57]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 97]        CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 197]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 220]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 221]   CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 241]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 244]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 245]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 246]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 247]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 248]       CG_SOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_g.f, 58]        CALC_TRD_G
    Set   [calc_trd_g.f, 87]           CALC_TRD_G
    Use   [calc_trd_g.f, 98]           CALC_TRD_G

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_g.f, 333]       CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 364]          CG_CALC_VEL_G_GRAD

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_source_epp.f, 103]   CONV_SOURCE_EPP0
    Set   [conv_source_epp.f, 137]     CONV_SOURCE_EPP0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_source_epp.f, 364]   CONV_SOURCE_EPP1
    Set   [conv_source_epp.f, 426]     CONV_SOURCE_EPP1

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_source_epp.f, 606]   POINT_SOURCE_EPP
    Set   [conv_source_epp.f, 631]     POINT_SOURCE_EPP
    Use   [conv_source_epp.f, 635]     POINT_SOURCE_EPP
    Use   [conv_source_epp.f, 636]     POINT_SOURCE_EPP
    Use   [conv_source_epp.f, 637]     POINT_SOURCE_EPP

K    (Local Variable)  Declared as: INTEGER
    Define   [out_array_c.f, 60]       OUT_ARRAY_C
    Set   [out_array_c.f, 71]          OUT_ARRAY_C
    Use   [out_array_c.f, 72]          OUT_ARRAY_C
    Use   [out_array_c.f, 74]          OUT_ARRAY_C
    Use Argument   [out_array_c.f, 75]   OUT_ARRAY_C

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 34]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 80]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 84]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 88]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 90]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 91]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 92]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 93]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 325]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 342]           GET_3D_ALPHA_U_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 453]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 498]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 502]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 506]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 508]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 509]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 510]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 511]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 751]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 768]           GET_3D_ALPHA_V_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 879]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 922]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 926]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 930]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 932]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 933]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 934]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 935]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 1156]          GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 1178]          GET_3D_ALPHA_W_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [qmomk_gas_drag.f, 63]    QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 79]       QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 101]      QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 124]      QMOMK_GAS_DRAG
    Use Argument   [qmomk_gas_drag.f, 128]   QMOMK_GAS_DRAG

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_g.f, 74]           CALC_TAU_V_G
    Set   [tau_v_g.f, 118]             CALC_TAU_V_G
    Use   [tau_v_g.f, 119]             CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 152]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 153]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 181]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 182]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 372]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 373]    CALC_TAU_V_G

k    (Local Variable)  Declared as: INTEGER
    Define   [mfix.f, 554]             debug_write_layout
    Set   [mfix.f, 586]                debug_write_layout
    Use   [mfix.f, 589]                debug_write_layout
    Use   [mfix.f, 590]                debug_write_layout
    Use   [mfix.f, 591]                debug_write_layout
    Use   [mfix.f, 592]                debug_write_layout
    Use   [mfix.f, 594]                debug_write_layout
    Set   [mfix.f, 602]                debug_write_layout
    Use   [mfix.f, 605]                debug_write_layout
    Use   [mfix.f, 606]                debug_write_layout
    Use   [mfix.f, 608]                debug_write_layout
    Set   [mfix.f, 617]                debug_write_layout
    Use   [mfix.f, 620]                debug_write_layout
    Use   [mfix.f, 621]                debug_write_layout
    Use   [mfix.f, 623]                debug_write_layout
    Set   [mfix.f, 635]                debug_write_layout
    Use   [mfix.f, 640]                debug_write_layout
    Use   [mfix.f, 640]                debug_write_layout
    Set   [mfix.f, 650]                debug_write_layout
    Use   [mfix.f, 654]                debug_write_layout
    Use   [mfix.f, 654]                debug_write_layout
    Set   [mfix.f, 658]                debug_write_layout
    Use   [mfix.f, 661]                debug_write_layout
    Use   [mfix.f, 662]                debug_write_layout
    Use   [mfix.f, 700]                debug_write_layout

k    (Local Variable)  Declared as: INTEGER
    Define   [mfix.f, 844]             write_parallel_info
    Set   [mfix.f, 865]                write_parallel_info
    Use   [mfix.f, 868]                write_parallel_info
    Use   [mfix.f, 869]                write_parallel_info
    Use   [mfix.f, 870]                write_parallel_info
    Use   [mfix.f, 871]                write_parallel_info
    Use   [mfix.f, 873]                write_parallel_info

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 91]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 187]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 219]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 246]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 247]   CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 271]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 275]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 279]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 281]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 282]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 283]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 284]       CG_SOURCE_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 413]    CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 469]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 473]       CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 583]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 587]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 589]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 590]       CG_SOURCE_U_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 60]     CHECK_DATA_30
    Set   [check_data_30.f, 197]       CHECK_DATA_30
    Use   [check_data_30.f, 200]       CHECK_DATA_30
    Use   [check_data_30.f, 217]       CHECK_DATA_30
    Use   [check_data_30.f, 227]       CHECK_DATA_30
    Use   [check_data_30.f, 237]       CHECK_DATA_30
    Use   [check_data_30.f, 248]       CHECK_DATA_30
    Use   [check_data_30.f, 262]       CHECK_DATA_30
    Use   [check_data_30.f, 272]       CHECK_DATA_30
    Use   [check_data_30.f, 282]       CHECK_DATA_30
    Use   [check_data_30.f, 294]       CHECK_DATA_30
    Use   [check_data_30.f, 311]       CHECK_DATA_30
    Use   [check_data_30.f, 321]       CHECK_DATA_30
    Use   [check_data_30.f, 334]       CHECK_DATA_30
    Use   [check_data_30.f, 344]       CHECK_DATA_30
    Use   [check_data_30.f, 354]       CHECK_DATA_30
    Use   [check_data_30.f, 367]       CHECK_DATA_30
    Use   [check_data_30.f, 388]       CHECK_DATA_30
    Use   [check_data_30.f, 393]       CHECK_DATA_30
    Use   [check_data_30.f, 430]       CHECK_DATA_30
    Use   [check_data_30.f, 443]       CHECK_DATA_30
    Use   [check_data_30.f, 453]       CHECK_DATA_30
    Use   [check_data_30.f, 464]       CHECK_DATA_30
    Use   [check_data_30.f, 476]       CHECK_DATA_30
    Use   [check_data_30.f, 497]       CHECK_DATA_30
    Use   [check_data_30.f, 502]       CHECK_DATA_30
    Use   [check_data_30.f, 554]       CHECK_DATA_30
    Use   [check_data_30.f, 595]       CHECK_DATA_30
    Use   [check_data_30.f, 626]       CHECK_DATA_30
    Use   [check_data_30.f, 636]       CHECK_DATA_30
    Use   [check_data_30.f, 656]       CHECK_DATA_30
    Use   [check_data_30.f, 667]       CHECK_DATA_30

K    (Local Variable)  Declared as: INTEGER
    Define   [solve_pp_g.f, 176]       POINT_SOURCE_PP_G
    Set   [solve_pp_g.f, 188]          POINT_SOURCE_PP_G
    Use   [solve_pp_g.f, 192]          POINT_SOURCE_PP_G
    Use   [solve_pp_g.f, 193]          POINT_SOURCE_PP_G
    Use   [solve_pp_g.f, 195]          POINT_SOURCE_PP_G

K    (Local Variable)  Declared as: INTEGER
    Define   [cal_d.f, 40]             CAL_D
    Set   [cal_d.f, 90]                CAL_D
    Use   [cal_d.f, 92]                CAL_D

K    (Local Variable)  Declared as: INTEGER
    Define   [transport_coeff_ghd.f, 41]   TRANSPORT_COEFF_GHD
    Set   [transport_coeff_ghd.f, 58]   TRANSPORT_COEFF_GHD

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_g.f, 74]         CALC_MU_G
    Set   [calc_mu_g.f, 206]           CALC_MU_G
    Use   [calc_mu_g.f, 209]           CALC_MU_G
    Use Argument   [calc_mu_g.f, 233]   CALC_MU_G
    Use Argument   [calc_mu_g.f, 241]   CALC_MU_G
    Use   [calc_mu_g.f, 267]           CALC_MU_G
    Use   [calc_mu_g.f, 270]           CALC_MU_G
    Use   [calc_mu_g.f, 274]           CALC_MU_G

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_s_ddot_s.f, 1131]   SDDOTS
    Set   [calc_s_ddot_s.f, 1147]      SDDOTS
    Use   [calc_s_ddot_s.f, 1150]      SDDOTS
    Use   [calc_s_ddot_s.f, 1152]      SDDOTS

k    (Local Variable)  Declared as: INTEGER
    Define   [dgtsl.f, 14]             dgtsl
    Set   [dgtsl.f, 71]                dgtsl
    Use   [dgtsl.f, 72]                dgtsl
    Use   [dgtsl.f, 76]                dgtsl
    Use   [dgtsl.f, 81]                dgtsl
    Use   [dgtsl.f, 82]                dgtsl
    Use   [dgtsl.f, 85]                dgtsl
    Use   [dgtsl.f, 86]                dgtsl
    Use   [dgtsl.f, 89]                dgtsl
    Use   [dgtsl.f, 90]                dgtsl
    Use   [dgtsl.f, 93]                dgtsl
    Use   [dgtsl.f, 94]                dgtsl
    Use   [dgtsl.f, 96]                dgtsl
    Use   [dgtsl.f, 97]                dgtsl
    Use   [dgtsl.f, 101]               dgtsl
    Use   [dgtsl.f, 102]               dgtsl
    Use   [dgtsl.f, 103]               dgtsl
    Use   [dgtsl.f, 105]               dgtsl
    Set   [dgtsl.f, 117]               dgtsl
    Use   [dgtsl.f, 118]               dgtsl
    Use   [dgtsl.f, 118]               dgtsl
    Use   [dgtsl.f, 118]               dgtsl
    Use   [dgtsl.f, 118]               dgtsl
    Use   [dgtsl.f, 118]               dgtsl
    Use   [dgtsl.f, 118]               dgtsl
    Use   [dgtsl.f, 118]               dgtsl

K    (Local Variable)  Declared as: INTEGER
    Define   [particles_in_cell.f, 250]   INIT_PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 286]   INIT_PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 289]   INIT_PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 291]   INIT_PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 295]   INIT_PARTICLES_IN_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [particles_in_cell.f, 59]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 120]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 122]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 123]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 123]   PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 124]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 127]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 128]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 129]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 129]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 130]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 131]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 132]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 132]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 133]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 134]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 135]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 135]   PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 137]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 144]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 149]   PARTICLES_IN_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 251]      SET_WALL_BC1
    Set   [set_wall_bc.f, 273]         SET_WALL_BC1
    Use   [set_wall_bc.f, 276]         SET_WALL_BC1
    Use   [set_wall_bc.f, 278]         SET_WALL_BC1

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_v_is.f, 63]          DIF_V_IS
    Set   [dif_v_is.f, 97]             DIF_V_IS
    Use   [dif_v_is.f, 100]            DIF_V_IS
    Use   [dif_v_is.f, 101]            DIF_V_IS
    Use   [dif_v_is.f, 102]            DIF_V_IS
    Set   [dif_v_is.f, 118]            DIF_V_IS
    Use   [dif_v_is.f, 121]            DIF_V_IS
    Use   [dif_v_is.f, 122]            DIF_V_IS
    Use   [dif_v_is.f, 123]            DIF_V_IS
    Use Argument   [dif_v_is.f, 129]   DIF_V_IS
    Use Argument   [dif_v_is.f, 130]   DIF_V_IS
    Use   [dif_v_is.f, 130]            DIF_V_IS

K    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 61]            BC_PHI
    Set   [bc_phi.f, 239]              BC_PHI
    Use   [bc_phi.f, 242]              BC_PHI
    Use   [bc_phi.f, 243]              BC_PHI
    Use   [bc_phi.f, 244]              BC_PHI
    Use   [bc_phi.f, 247]              BC_PHI
    Use   [bc_phi.f, 313]              BC_PHI
    Use   [bc_phi.f, 314]              BC_PHI
    Set   [bc_phi.f, 358]              BC_PHI
    Use   [bc_phi.f, 361]              BC_PHI
    Use   [bc_phi.f, 362]              BC_PHI
    Use   [bc_phi.f, 363]              BC_PHI
    Set   [bc_phi.f, 412]              BC_PHI
    Use   [bc_phi.f, 415]              BC_PHI
    Use   [bc_phi.f, 416]              BC_PHI
    Use   [bc_phi.f, 417]              BC_PHI

K    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 504]           BC_PHI_CG
    Set   [bc_phi.f, 518]              BC_PHI_CG
    Use   [bc_phi.f, 522]              BC_PHI_CG
    Use   [bc_phi.f, 522]              BC_PHI_CG
    Use   [bc_phi.f, 540]              BC_PHI_CG
    Use   [bc_phi.f, 641]              BC_PHI_CG
    Use   [bc_phi.f, 642]              BC_PHI_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [source_rop_s.f, 156]     POINT_SOURCE_ROP_S
    Set   [source_rop_s.f, 168]        POINT_SOURCE_ROP_S
    Use   [source_rop_s.f, 172]        POINT_SOURCE_ROP_S
    Use   [source_rop_s.f, 173]        POINT_SOURCE_ROP_S
    Use   [source_rop_s.f, 175]        POINT_SOURCE_ROP_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_rop_s.f, 56]      SOURCE_ROP_S
    Set   [source_rop_s.f, 70]         SOURCE_ROP_S

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_d_ghd.f, 576]       CALC_D_ghd_T
    Set   [calc_d_ghd.f, 618]          CALC_D_ghd_T
    Use Argument   [calc_d_ghd.f, 620]   CALC_D_ghd_T
    Use Argument   [calc_d_ghd.f, 625]   CALC_D_ghd_T
    Set   [calc_d_ghd.f, 692]          CALC_D_ghd_T
    Use Argument   [calc_d_ghd.f, 694]   CALC_D_ghd_T
    Set   [calc_d_ghd.f, 721]          CALC_D_ghd_T
    Use Argument   [calc_d_ghd.f, 727]   CALC_D_ghd_T

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 1048]      POINT_SOURCE_W_G
    Set   [source_w_g.f, 1072]         POINT_SOURCE_W_G
    Use   [source_w_g.f, 1076]         POINT_SOURCE_W_G
    Use   [source_w_g.f, 1077]         POINT_SOURCE_W_G
    Use   [source_w_g.f, 1079]         POINT_SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 71]        SOURCE_W_G
    Set   [source_w_g.f, 126]          SOURCE_W_G
    Use Argument   [source_w_g.f, 137]   SOURCE_W_G
    Use Argument   [source_w_g.f, 207]   SOURCE_W_G
    Use Argument   [source_w_g.f, 208]   SOURCE_W_G
    Use Argument   [source_w_g.f, 211]   SOURCE_W_G
    Use Argument   [source_w_g.f, 216]   SOURCE_W_G
    Use Argument   [source_w_g.f, 246]   SOURCE_W_G
    Use Argument   [source_w_g.f, 247]   SOURCE_W_G
    Use Argument   [source_w_g.f, 259]   SOURCE_W_G
    Use Argument   [source_w_g.f, 270]   SOURCE_W_G
    Use Argument   [source_w_g.f, 280]   SOURCE_W_G
    Use Argument   [source_w_g.f, 297]   SOURCE_W_G
    Use Argument   [source_w_g.f, 299]   SOURCE_W_G
    Use Argument   [source_w_g.f, 310]   SOURCE_W_G
    Use Argument   [source_w_g.f, 331]   SOURCE_W_G
    Use Argument   [source_w_g.f, 352]   SOURCE_W_G
    Use Argument   [source_w_g.f, 355]   SOURCE_W_G
    Use   [source_w_g.f, 356]          SOURCE_W_G
    Use   [source_w_g.f, 356]          SOURCE_W_G
    Use Argument   [source_w_g.f, 360]   SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 467]       SOURCE_W_G_BC
    Set   [source_w_g.f, 626]          SOURCE_W_G_BC
    Use   [source_w_g.f, 629]          SOURCE_W_G_BC
    Use   [source_w_g.f, 630]          SOURCE_W_G_BC
    Use   [source_w_g.f, 631]          SOURCE_W_G_BC
    Set   [source_w_g.f, 661]          SOURCE_W_G_BC
    Use   [source_w_g.f, 664]          SOURCE_W_G_BC
    Use   [source_w_g.f, 665]          SOURCE_W_G_BC
    Use   [source_w_g.f, 666]          SOURCE_W_G_BC
    Set   [source_w_g.f, 696]          SOURCE_W_G_BC
    Use   [source_w_g.f, 699]          SOURCE_W_G_BC
    Use   [source_w_g.f, 700]          SOURCE_W_G_BC
    Use   [source_w_g.f, 701]          SOURCE_W_G_BC
    Set   [source_w_g.f, 786]          SOURCE_W_G_BC
    Use   [source_w_g.f, 789]          SOURCE_W_G_BC
    Use   [source_w_g.f, 790]          SOURCE_W_G_BC
    Use   [source_w_g.f, 791]          SOURCE_W_G_BC
    Set   [source_w_g.f, 872]          SOURCE_W_G_BC
    Use   [source_w_g.f, 875]          SOURCE_W_G_BC
    Use   [source_w_g.f, 876]          SOURCE_W_G_BC
    Use   [source_w_g.f, 877]          SOURCE_W_G_BC
    Set   [source_w_g.f, 903]          SOURCE_W_G_BC
    Use   [source_w_g.f, 906]          SOURCE_W_G_BC
    Use   [source_w_g.f, 907]          SOURCE_W_G_BC
    Use   [source_w_g.f, 908]          SOURCE_W_G_BC
    Set   [source_w_g.f, 936]          SOURCE_W_G_BC
    Use   [source_w_g.f, 939]          SOURCE_W_G_BC
    Use   [source_w_g.f, 940]          SOURCE_W_G_BC
    Use   [source_w_g.f, 941]          SOURCE_W_G_BC
    Set   [source_w_g.f, 969]          SOURCE_W_G_BC
    Use   [source_w_g.f, 972]          SOURCE_W_G_BC
    Use   [source_w_g.f, 973]          SOURCE_W_G_BC
    Use   [source_w_g.f, 974]          SOURCE_W_G_BC

k    (Local Variable)  Declared as: INTEGER
    Define   [thermal_mobility.f, 28]   thermal_mobility
    Set   [thermal_mobility.f, 58]     thermal_mobility
    Use   [thermal_mobility.f, 60]     thermal_mobility
    Use   [thermal_mobility.f, 60]     thermal_mobility
    Use   [thermal_mobility.f, 61]     thermal_mobility
    Use   [thermal_mobility.f, 61]     thermal_mobility
    Use   [thermal_mobility.f, 61]     thermal_mobility
    Use   [thermal_mobility.f, 61]     thermal_mobility

k    (Local Variable)  Declared as: INTEGER
    Define   [check_ab_m.f, 205]       CHECK_symmetry
    Set   [check_ab_m.f, 220]          CHECK_symmetry
    Use   [check_ab_m.f, 222]          CHECK_symmetry
    Use   [check_ab_m.f, 226]          CHECK_symmetry
    Use   [check_ab_m.f, 230]          CHECK_symmetry

k    (Local Variable)  Declared as: INTEGER
    Define   [ordinary_diff.f, 30]     ordinary_diff
    Set   [ordinary_diff.f, 246]       ordinary_diff
    Use Argument   [ordinary_diff.f, 247]   ordinary_diff
    Use   [ordinary_diff.f, 248]       ordinary_diff
    Set   [ordinary_diff.f, 263]       ordinary_diff
    Use   [ordinary_diff.f, 264]       ordinary_diff
    Use   [ordinary_diff.f, 265]       ordinary_diff
    Use   [ordinary_diff.f, 266]       ordinary_diff
    Use   [ordinary_diff.f, 267]       ordinary_diff
    Use   [ordinary_diff.f, 268]       ordinary_diff
    Use   [ordinary_diff.f, 268]       ordinary_diff
    Set   [ordinary_diff.f, 291]       ordinary_diff
    Use Argument   [ordinary_diff.f, 292]   ordinary_diff
    Use   [ordinary_diff.f, 293]       ordinary_diff
    Set   [ordinary_diff.f, 308]       ordinary_diff
    Use   [ordinary_diff.f, 309]       ordinary_diff
    Use   [ordinary_diff.f, 310]       ordinary_diff
    Use   [ordinary_diff.f, 311]       ordinary_diff
    Use   [ordinary_diff.f, 312]       ordinary_diff
    Use   [ordinary_diff.f, 313]       ordinary_diff
    Use   [ordinary_diff.f, 313]       ordinary_diff
    Set   [ordinary_diff.f, 342]       ordinary_diff
    Use Argument   [ordinary_diff.f, 343]   ordinary_diff
    Use   [ordinary_diff.f, 344]       ordinary_diff

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 32]   CHECK_CELL_MOVEMENT
    Set   [check_cell_movement.f, 52]   CHECK_CELL_MOVEMENT
    Use   [check_cell_movement.f, 56]   CHECK_CELL_MOVEMENT
    Use   [check_cell_movement.f, 56]   CHECK_CELL_MOVEMENT

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 100]   CHECK_CELL_MOVEMENT_DEM
    Set   [check_cell_movement.f, 120]   CHECK_CELL_MOVEMENT_DEM
    Use   [check_cell_movement.f, 134]   CHECK_CELL_MOVEMENT_DEM
    Use   [check_cell_movement.f, 134]   CHECK_CELL_MOVEMENT_DEM
    Use Argument   [check_cell_movement.f, 136]   CHECK_CELL_MOVEMENT_DEM

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 210]   CHECK_CELL_MOVEMENT_PIC
    Set   [check_cell_movement.f, 242]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 309]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 309]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 311]   CHECK_CELL_MOVEMENT_PIC
    Use Argument   [check_cell_movement.f, 318]   CHECK_CELL_MOVEMENT_PIC
    Use Argument   [check_cell_movement.f, 329]   CHECK_CELL_MOVEMENT_PIC

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 400]   REPORT_PIC_STATS
    Set   [check_cell_movement.f, 418]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 421]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 426]   REPORT_PIC_STATS
    Set   [check_cell_movement.f, 446]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 448]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 449]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 449]   REPORT_PIC_STATS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 143]     STORE_A_W_S0
    Set   [conv_dif_w_s.f, 169]        STORE_A_W_S0
    Use   [conv_dif_w_s.f, 179]        STORE_A_W_S0
    Use Argument   [conv_dif_w_s.f, 193]   STORE_A_W_S0
    Use Argument   [conv_dif_w_s.f, 198]   STORE_A_W_S0
    Use Argument   [conv_dif_w_s.f, 217]   STORE_A_W_S0
    Use Argument   [conv_dif_w_s.f, 222]   STORE_A_W_S0
    Use Argument   [conv_dif_w_s.f, 267]   STORE_A_W_S0
    Use Argument   [conv_dif_w_s.f, 272]   STORE_A_W_S0
    Use Argument   [conv_dif_w_s.f, 296]   STORE_A_W_S0
    Use Argument   [conv_dif_w_s.f, 301]   STORE_A_W_S0
    Use   [conv_dif_w_s.f, 314]        STORE_A_W_S0
    Use   [conv_dif_w_s.f, 325]        STORE_A_W_S0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 800]     STORE_A_W_S1
    Set   [conv_dif_w_s.f, 834]        STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 846]   STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 857]   STORE_A_W_S1
    Set   [conv_dif_w_s.f, 902]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 912]        STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 927]   STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 932]   STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 947]   STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 952]   STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 989]   STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 994]   STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 1015]   STORE_A_W_S1
    Use Argument   [conv_dif_w_s.f, 1020]   STORE_A_W_S1
    Use   [conv_dif_w_s.f, 1030]       STORE_A_W_S1
    Use   [conv_dif_w_s.f, 1041]       STORE_A_W_S1

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 403]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 455]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 456]        STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 465]        STORE_A_W_SDC
    Use Argument   [conv_dif_w_s.f, 477]   STORE_A_W_SDC
    Use Argument   [conv_dif_w_s.f, 488]   STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 525]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 539]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 701]        STORE_A_W_SDC

K    (Local Variable)  Declared as: INTEGER
    Define   [solid_drag.f, 165]       SOLID_DRAG_W
    Set   [solid_drag.f, 174]          SOLID_DRAG_W
    Use Argument   [solid_drag.f, 177]   SOLID_DRAG_W
    Use Argument   [solid_drag.f, 179]   SOLID_DRAG_W

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_20.f, 54]     CHECK_DATA_20
    Set   [check_data_20.f, 95]        CHECK_DATA_20
    Use   [check_data_20.f, 98]        CHECK_DATA_20
    Use Argument   [check_data_20.f, 100]   CHECK_DATA_20
    Use   [check_data_20.f, 110]       CHECK_DATA_20
    Use   [check_data_20.f, 117]       CHECK_DATA_20
    Use   [check_data_20.f, 124]       CHECK_DATA_20
    Use   [check_data_20.f, 131]       CHECK_DATA_20
    Use   [check_data_20.f, 138]       CHECK_DATA_20
    Use   [check_data_20.f, 147]       CHECK_DATA_20
    Use   [check_data_20.f, 155]       CHECK_DATA_20
    Use   [check_data_20.f, 162]       CHECK_DATA_20
    Use   [check_data_20.f, 169]       CHECK_DATA_20
    Use   [check_data_20.f, 176]       CHECK_DATA_20
    Use   [check_data_20.f, 184]       CHECK_DATA_20
    Use   [check_data_20.f, 186]       CHECK_DATA_20
    Use   [check_data_20.f, 191]       CHECK_DATA_20
    Use   [check_data_20.f, 202]       CHECK_DATA_20
    Use   [check_data_20.f, 214]       CHECK_DATA_20
    Use   [check_data_20.f, 232]       CHECK_DATA_20
    Use   [check_data_20.f, 240]       CHECK_DATA_20
    Use   [check_data_20.f, 249]       CHECK_DATA_20
    Use   [check_data_20.f, 258]       CHECK_DATA_20
    Use   [check_data_20.f, 266]       CHECK_DATA_20
    Use   [check_data_20.f, 274]       CHECK_DATA_20
    Use   [check_data_20.f, 282]       CHECK_DATA_20
    Use   [check_data_20.f, 290]       CHECK_DATA_20
    Use   [check_data_20.f, 292]       CHECK_DATA_20
    Use   [check_data_20.f, 298]       CHECK_DATA_20
    Use   [check_data_20.f, 308]       CHECK_DATA_20
    Set   [check_data_20.f, 333]       CHECK_DATA_20
    Use   [check_data_20.f, 336]       CHECK_DATA_20
    Use   [check_data_20.f, 356]       CHECK_DATA_20
    Use   [check_data_20.f, 365]       CHECK_DATA_20
    Use   [check_data_20.f, 374]       CHECK_DATA_20
    Use   [check_data_20.f, 393]       CHECK_DATA_20

K    (Local Variable)  Declared as: INTEGER
    Define   [usr_dqmom.f, 33]         USR_DQMOM
    Set   [usr_dqmom.f, 73]            USR_DQMOM
    Use   [usr_dqmom.f, 74]            USR_DQMOM
    Set   [usr_dqmom.f, 79]            USR_DQMOM
    Use   [usr_dqmom.f, 80]            USR_DQMOM

K    (Local Variable)  Declared as: INTEGER
    Define   [b_m_p_star.f, 53]        B_M_P_STAR_E
    Set   [b_m_p_star.f, 85]           B_M_P_STAR_E

K    (Local Variable)  Declared as: INTEGER
    Define   [b_m_p_star.f, 180]       B_M_P_STAR_N
    Set   [b_m_p_star.f, 213]          B_M_P_STAR_N

K    (Local Variable)  Declared as: INTEGER
    Define   [b_m_p_star.f, 564]       B_M_P_STAR_S
    Set   [b_m_p_star.f, 596]          B_M_P_STAR_S

K    (Local Variable)  Declared as: INTEGER
    Define   [b_m_p_star.f, 308]       B_M_P_STAR_T
    Set   [b_m_p_star.f, 341]          B_M_P_STAR_T
    Use Argument   [b_m_p_star.f, 350]   B_M_P_STAR_T
    Use Argument   [b_m_p_star.f, 361]   B_M_P_STAR_T
    Use Argument   [b_m_p_star.f, 364]   B_M_P_STAR_T
    Use Argument   [b_m_p_star.f, 367]   B_M_P_STAR_T

K    (Local Variable)  Declared as: INTEGER
    Define   [b_m_p_star.f, 435]       B_M_P_STAR_W
    Set   [b_m_p_star.f, 468]          B_M_P_STAR_W

k    (Local Variable)  Declared as: INTEGER
    Define   [ghd.f, 52]               GHD_MODEL
    Set   [ghd.f, 140]                 GHD_MODEL
    Use   [ghd.f, 141]                 GHD_MODEL
    Use   [ghd.f, 141]                 GHD_MODEL
    Use   [ghd.f, 142]                 GHD_MODEL
    Use   [ghd.f, 143]                 GHD_MODEL
    Use   [ghd.f, 143]                 GHD_MODEL
    Use   [ghd.f, 143]                 GHD_MODEL

K    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1478]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1608]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1609]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1611]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1612]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1617]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1618]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1619]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1619]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1620]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1629]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1633]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1638]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1642]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1645]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1646]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1647]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1648]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1654]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1904]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1988]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1989]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2049]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2052]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2061]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2077]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2078]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2086]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2087]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2100]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2104]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2113]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2131]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2132]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2140]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2141]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2154]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2158]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2167]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2181]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2184]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2193]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2211]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2215]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2224]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2238]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2241]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2250]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2267]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2268]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2276]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 2277]   CAD_INTERSECT

K    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 729]   CLEAN_INTERSECT
    Set   [cut_cell_preprocessing.f, 753]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 757]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 761]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 763]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 764]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 765]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 766]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 770]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 773]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 818]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 841]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 852]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 887]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 910]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 920]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 954]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 959]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 978]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 991]   CLEAN_INTERSECT

K    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 508]   INTERSECT
    Set   [cut_cell_preprocessing.f, 665]   INTERSECT
    Use   [cut_cell_preprocessing.f, 666]   INTERSECT

K    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1348]   REMOVE_INTERSECT_FLAG
    Set   [cut_cell_preprocessing.f, 1354]   REMOVE_INTERSECT_FLAG
    Use   [cut_cell_preprocessing.f, 1358]   REMOVE_INTERSECT_FLAG
    Use   [cut_cell_preprocessing.f, 1360]   REMOVE_INTERSECT_FLAG
    Use   [cut_cell_preprocessing.f, 1361]   REMOVE_INTERSECT_FLAG
    Use   [cut_cell_preprocessing.f, 1374]   REMOVE_INTERSECT_FLAG

K    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1118]   SET_SNAP_FLAG
    Set   [cut_cell_preprocessing.f, 1142]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1146]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1148]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1149]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1179]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1193]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1228]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1242]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1279]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1282]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1292]   SET_SNAP_FLAG

K    (Local Variable)  Declared as: INTEGER
    Define   [cfassign.f, 212]         compute_volume_of_nodes
    Set   [cfassign.f, 256]            compute_volume_of_nodes
    Use   [cfassign.f, 264]            compute_volume_of_nodes
    Use   [cfassign.f, 265]            compute_volume_of_nodes
    Use   [cfassign.f, 266]            compute_volume_of_nodes
    Use   [cfassign.f, 270]            compute_volume_of_nodes
    Use   [cfassign.f, 271]            compute_volume_of_nodes
    Use   [cfassign.f, 272]            compute_volume_of_nodes
    Use   [cfassign.f, 273]            compute_volume_of_nodes

K    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 42]      DRAG_GS_DES0
    Set   [drag_gs_des0.f, 102]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 110]        DRAG_GS_DES0
    Set   [drag_gs_des0.f, 118]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 123]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 129]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 130]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 131]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 132]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 133]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 140]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 140]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 141]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 141]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 142]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 145]        DRAG_GS_DES0

K    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 245]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 313]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 321]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 329]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 334]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 339]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 340]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 341]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 342]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 343]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 350]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 350]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 353]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 353]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 356]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 359]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 392]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 398]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 410]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 415]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 448]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 451]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 451]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 452]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 453]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 454]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 461]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 462]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 463]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 464]        DRAG_GS_GAS0

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_s.f, 59]        CALC_TRD_S
    Set   [calc_trd_s.f, 87]           CALC_TRD_S
    Use   [calc_trd_s.f, 100]          CALC_TRD_S

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_s.f, 321]       CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 356]          CG_CALC_VEL_S_GRAD

K    (Local Variable)  Declared as: INTEGER
    Define   [write_des_data.f, 252]   WRITE_DES_TECPLOT
    Use   [write_des_data.f, 313]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 313]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 313]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 313]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 317]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 317]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 317]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 317]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 340]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 341]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 344]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 345]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 361]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 361]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 365]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 365]      WRITE_DES_TECPLOT

K    (Local Variable)  Declared as: INTEGER
    Define   [write_des_data.f, 537]   WRITE_DES_THETA
    Set   [write_des_data.f, 593]      WRITE_DES_THETA
    Use   [write_des_data.f, 596]      WRITE_DES_THETA

K    (Local Variable)  Declared as: INTEGER
    Define   [set_geometry.f, 78]      SET_GEOMETRY
    Set   [set_geometry.f, 304]        SET_GEOMETRY
    Use   [set_geometry.f, 305]        SET_GEOMETRY
    Use   [set_geometry.f, 306]        SET_GEOMETRY
    Use   [set_geometry.f, 306]        SET_GEOMETRY
    Use   [set_geometry.f, 307]        SET_GEOMETRY
    Use   [set_geometry.f, 309]        SET_GEOMETRY
    Use   [set_geometry.f, 309]        SET_GEOMETRY
    Use   [set_geometry.f, 309]        SET_GEOMETRY
    Use   [set_geometry.f, 310]        SET_GEOMETRY
    Use   [set_geometry.f, 310]        SET_GEOMETRY
    Use   [set_geometry.f, 310]        SET_GEOMETRY
    Use   [set_geometry.f, 313]        SET_GEOMETRY
    Use   [set_geometry.f, 313]        SET_GEOMETRY
    Use   [set_geometry.f, 313]        SET_GEOMETRY
    Use   [set_geometry.f, 314]        SET_GEOMETRY
    Use   [set_geometry.f, 314]        SET_GEOMETRY
    Use   [set_geometry.f, 314]        SET_GEOMETRY
    Use   [set_geometry.f, 316]        SET_GEOMETRY
    Use   [set_geometry.f, 316]        SET_GEOMETRY
    Use   [set_geometry.f, 318]        SET_GEOMETRY
    Use   [set_geometry.f, 318]        SET_GEOMETRY
    Use   [set_geometry.f, 318]        SET_GEOMETRY
    Set   [set_geometry.f, 385]        SET_GEOMETRY
    Use   [set_geometry.f, 386]        SET_GEOMETRY
    Use   [set_geometry.f, 386]        SET_GEOMETRY
    Use   [set_geometry.f, 387]        SET_GEOMETRY
    Use   [set_geometry.f, 388]        SET_GEOMETRY
    Use   [set_geometry.f, 388]        SET_GEOMETRY
    Use   [set_geometry.f, 388]        SET_GEOMETRY
    Use   [set_geometry.f, 388]        SET_GEOMETRY
    Use   [set_geometry.f, 389]        SET_GEOMETRY
    Use   [set_geometry.f, 389]        SET_GEOMETRY

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 690]        leq_check
    Set   [leq_gmres.f, 710]           leq_check
    Use   [leq_gmres.f, 713]           leq_check
    Use   [leq_gmres.f, 713]           leq_check
    Use   [leq_gmres.f, 720]           leq_check

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 192]        LEQ_GMRES0
    Set   [leq_gmres.f, 322]           LEQ_GMRES0
    Use   [leq_gmres.f, 323]           LEQ_GMRES0
    Use   [leq_gmres.f, 324]           LEQ_GMRES0
    Use   [leq_gmres.f, 332]           LEQ_GMRES0
    Use   [leq_gmres.f, 332]           LEQ_GMRES0
    Set   [leq_gmres.f, 356]           LEQ_GMRES0
    Use   [leq_gmres.f, 357]           LEQ_GMRES0
    Use   [leq_gmres.f, 357]           LEQ_GMRES0
    Use   [leq_gmres.f, 357]           LEQ_GMRES0
    Use   [leq_gmres.f, 357]           LEQ_GMRES0
    Use   [leq_gmres.f, 358]           LEQ_GMRES0
    Use   [leq_gmres.f, 358]           LEQ_GMRES0
    Use   [leq_gmres.f, 358]           LEQ_GMRES0
    Use   [leq_gmres.f, 358]           LEQ_GMRES0
    Use   [leq_gmres.f, 358]           LEQ_GMRES0
    Use   [leq_gmres.f, 359]           LEQ_GMRES0

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_volume_area.f, 36]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 81]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 85]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 87]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 88]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 225]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 406]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 413]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 481]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 495]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 502]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 609]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 679]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 765]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 836]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 918]   GET_CUT_CELL_VOLUME_AND_AREAS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_volume_area.f, 1266]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1384]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1385]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1385]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1388]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1389]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1391]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1392]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1401]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1402]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1402]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1405]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1406]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1408]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1409]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1418]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1419]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1419]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1422]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1423]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1425]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1426]   REORDER_POLYGON

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_outflow.f, 43]      CALC_OUTFLOW
    Set   [calc_outflow.f, 51]         CALC_OUTFLOW
    Use   [calc_outflow.f, 55]         CALC_OUTFLOW
    Use   [calc_outflow.f, 56]         CALC_OUTFLOW
    Use   [calc_outflow.f, 57]         CALC_OUTFLOW
    Use   [calc_outflow.f, 61]         CALC_OUTFLOW
    Use   [calc_outflow.f, 63]         CALC_OUTFLOW
    Use   [calc_outflow.f, 67]         CALC_OUTFLOW
    Use   [calc_outflow.f, 69]         CALC_OUTFLOW
    Use   [calc_outflow.f, 73]         CALC_OUTFLOW
    Use   [calc_outflow.f, 75]         CALC_OUTFLOW
    Use   [calc_outflow.f, 79]         CALC_OUTFLOW
    Use   [calc_outflow.f, 81]         CALC_OUTFLOW
    Use   [calc_outflow.f, 102]        CALC_OUTFLOW
    Use   [calc_outflow.f, 104]        CALC_OUTFLOW
    Use   [calc_outflow.f, 108]        CALC_OUTFLOW
    Use   [calc_outflow.f, 110]        CALC_OUTFLOW
    Use   [calc_outflow.f, 114]        CALC_OUTFLOW
    Use   [calc_outflow.f, 116]        CALC_OUTFLOW
    Use   [calc_outflow.f, 120]        CALC_OUTFLOW
    Use   [calc_outflow.f, 122]        CALC_OUTFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_vort_out.f, 32]     CALC_VORTICITY
    Set   [calc_vort_out.f, 43]        CALC_VORTICITY
    Use   [calc_vort_out.f, 51]        CALC_VORTICITY
    Use   [calc_vort_out.f, 52]        CALC_VORTICITY
    Use   [calc_vort_out.f, 55]        CALC_VORTICITY
    Use   [calc_vort_out.f, 56]        CALC_VORTICITY
    Use   [calc_vort_out.f, 59]        CALC_VORTICITY
    Use   [calc_vort_out.f, 60]        CALC_VORTICITY

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 812]   CHECK_IF_PARCEL_OVELAPS_STL
    Set   [pic_bc_routines.f, 864]     CHECK_IF_PARCEL_OVELAPS_STL
    Use Argument   [pic_bc_routines.f, 867]   CHECK_IF_PARCEL_OVELAPS_STL

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 720]   PIC_FIND_NEW_CELL
    Set   [pic_bc_routines.f, 725]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 751]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 751]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 752]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 753]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 754]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 756]     PIC_FIND_NEW_CELL
    Set   [pic_bc_routines.f, 762]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 772]     PIC_FIND_NEW_CELL

k    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 954]   write_this_facet_and_parcel
    Use   [pic_bc_routines.f, 987]     write_this_facet_and_parcel
    Set   [pic_bc_routines.f, 987]     write_this_facet_and_parcel
    Use   [pic_bc_routines.f, 998]     write_this_facet_and_parcel
    Set   [pic_bc_routines.f, 998]     write_this_facet_and_parcel

K    (Local Variable)  Declared as: INTEGER
    Define   [qmomk_time_march.f, 49]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 160]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 334]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 456]    QMOMK_TIME_MARCH

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 158]     STORE_A_V_G0
    Set   [conv_dif_v_g.f, 211]        STORE_A_V_G0
    Use Argument   [conv_dif_v_g.f, 284]   STORE_A_V_G0
    Use Argument   [conv_dif_v_g.f, 285]   STORE_A_V_G0
    Use Argument   [conv_dif_v_g.f, 288]   STORE_A_V_G0
    Use Argument   [conv_dif_v_g.f, 289]   STORE_A_V_G0
    Use   [conv_dif_v_g.f, 289]        STORE_A_V_G0
    Use   [conv_dif_v_g.f, 365]        STORE_A_V_G0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 930]     STORE_A_V_G1
    Set   [conv_dif_v_g.f, 1040]       STORE_A_V_G1
    Use Argument   [conv_dif_v_g.f, 1110]   STORE_A_V_G1
    Use Argument   [conv_dif_v_g.f, 1111]   STORE_A_V_G1
    Use Argument   [conv_dif_v_g.f, 1114]   STORE_A_V_G1
    Use Argument   [conv_dif_v_g.f, 1115]   STORE_A_V_G1
    Use   [conv_dif_v_g.f, 1115]       STORE_A_V_G1
    Use   [conv_dif_v_g.f, 1184]       STORE_A_V_G1

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 474]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 528]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 529]        STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 628]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 809]        STORE_A_V_GDC

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_s.f, 73]           CALC_TAU_V_S
    Set   [tau_v_s.f, 132]             CALC_TAU_V_S
    Use   [tau_v_s.f, 133]             CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 168]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 169]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 202]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 203]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 372]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 373]    CALC_TAU_V_S

k    (Local Variable)  Declared as: INTEGER
    Define   [write_ab_m_var.f, 63]    WRITE_AB_M_VAR
    Set   [write_ab_m_var.f, 93]       WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 97]       WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 99]       WRITE_AB_M_VAR
    Set   [write_ab_m_var.f, 114]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 118]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 121]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 123]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 123]      WRITE_AB_M_VAR

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_pg_grad.f, 257]     CALC_PG_GRAD_CG
    Set   [calc_pg_grad.f, 273]        CALC_PG_GRAD_CG
    Use   [calc_pg_grad.f, 276]        CALC_PG_GRAD_CG
    Use   [calc_pg_grad.f, 322]        CALC_PG_GRAD_CG
    Use   [calc_pg_grad.f, 327]        CALC_PG_GRAD_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_pg_grad.f, 136]     CALC_PG_GRAD_STD
    Set   [calc_pg_grad.f, 157]        CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 200]        CALC_PG_GRAD_STD
    Use Argument   [calc_pg_grad.f, 201]   CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 203]        CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 204]        CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 205]        CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 207]        CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 208]        CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 208]        CALC_PG_GRAD_STD
    Use Argument   [calc_pg_grad.f, 209]   CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 210]        CALC_PG_GRAD_STD
    Use   [calc_pg_grad.f, 211]        CALC_PG_GRAD_STD

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_s.f, 70]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 178]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 206]       CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 231]   CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 232]   CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 250]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 253]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 256]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 257]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 258]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 259]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 260]       CG_SOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [bc_theta.f, 70]          BC_THETA
    Set   [bc_theta.f, 90]             BC_THETA
    Use   [bc_theta.f, 94]             BC_THETA
    Use   [bc_theta.f, 95]             BC_THETA
    Use   [bc_theta.f, 96]             BC_THETA
    Use   [bc_theta.f, 100]            BC_THETA
    Use   [bc_theta.f, 229]            BC_THETA
    Use   [bc_theta.f, 230]            BC_THETA

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mo.f, 41]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 125]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 129]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 130]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 132]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 166]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 170]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 171]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 173]       SET_BC_DEM_MO

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 707]        gt_pde_ahmadi
    Set   [calc_mu_s.f, 720]           gt_pde_ahmadi

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 1013]       gt_pde_gd
    Set   [calc_mu_s.f, 1030]          gt_pde_gd

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 1208]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1234]          gt_pde_gtsh

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 1446]       gt_pde_ia
    Set   [calc_mu_s.f, 1469]          gt_pde_ia

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 550]        gt_pde_lun
    Set   [calc_mu_s.f, 562]           gt_pde_lun

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 841]        gt_pde_simonin
    Set   [calc_mu_s.f, 855]           gt_pde_simonin

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 2626]       init_mu_s
    Set   [calc_mu_s.f, 2684]          init_mu_s
    Use   [calc_mu_s.f, 2687]          init_mu_s
    Use Argument   [calc_mu_s.f, 2718]   init_mu_s
    Use Argument   [calc_mu_s.f, 2747]   init_mu_s
    Use   [calc_mu_s.f, 2806]          init_mu_s
    Use   [calc_mu_s.f, 2809]          init_mu_s
    Use   [calc_mu_s.f, 2813]          init_mu_s
    Use Argument   [calc_mu_s.f, 2916]   init_mu_s
    Use Argument   [calc_mu_s.f, 2945]   init_mu_s
    Use   [calc_mu_s.f, 3004]          init_mu_s
    Use   [calc_mu_s.f, 3007]          init_mu_s
    Use   [calc_mu_s.f, 3011]          init_mu_s
    Use   [calc_mu_s.f, 3051]          init_mu_s
    Use   [calc_mu_s.f, 3052]          init_mu_s
    Use   [calc_mu_s.f, 3054]          init_mu_s

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 2011]       subgrid_stress_igci
    Set   [calc_mu_s.f, 2032]          subgrid_stress_igci

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 2191]       subgrid_stress_MILIOLI
    Set   [calc_mu_s.f, 2210]          subgrid_stress_MILIOLI

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_d_t.f, 166]         CALC_D_T_GAS_AND_SOLIDS
    Set   [calc_d_t.f, 217]            CALC_D_T_GAS_AND_SOLIDS
    Use Argument   [calc_d_t.f, 219]   CALC_D_T_GAS_AND_SOLIDS
    Use Argument   [calc_d_t.f, 223]   CALC_D_T_GAS_AND_SOLIDS

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_d_t.f, 422]         CALC_D_T_GAS_ONLY
    Set   [calc_d_t.f, 445]            CALC_D_T_GAS_ONLY
    Use Argument   [calc_d_t.f, 447]   CALC_D_T_GAS_ONLY
    Use Argument   [calc_d_t.f, 458]   CALC_D_T_GAS_ONLY

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_d_t.f, 548]         CALC_D_T_SOLIDS_ONLY
    Set   [calc_d_t.f, 583]            CALC_D_T_SOLIDS_ONLY
    Use Argument   [calc_d_t.f, 587]   CALC_D_T_SOLIDS_ONLY

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 155]       LEQ_BICGS0t
    Set   [leq_bicgst.f, 235]          LEQ_BICGS0t
    Use   [leq_bicgst.f, 238]          LEQ_BICGS0t

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1372]      LEQ_IJSWEEPt
    Set   [leq_bicgst.f, 1376]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1377]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1379]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1380]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1381]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1382]         LEQ_IJSWEEPt
    Set   [leq_bicgst.f, 1402]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1403]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1404]         LEQ_IJSWEEPt

K    (Dummy Argument)  Declared as: INTEGER
    Define   [leq_bicgst.f, 754]       LEQ_IKSWEEPt
    Declare   [leq_bicgst.f, 777]      LEQ_IKSWEEPt
    Use   [leq_bicgst.f, 813]          LEQ_IKSWEEPt
    Use   [leq_bicgst.f, 842]          LEQ_IKSWEEPt

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 698]       LEQ_ISWEEPt
    Set   [leq_bicgst.f, 702]          LEQ_ISWEEPt
    Use   [leq_bicgst.f, 706]          LEQ_ISWEEPt
    Use   [leq_bicgst.f, 730]          LEQ_ISWEEPt

K    (Dummy Argument)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1224]      LEQ_JKSWEEPt
    Declare   [leq_bicgst.f, 1245]     LEQ_JKSWEEPt
    Use   [leq_bicgst.f, 1275]         LEQ_JKSWEEPt
    Use   [leq_bicgst.f, 1301]         LEQ_JKSWEEPt

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 913]       LEQ_MATVECt
    Set   [leq_bicgst.f, 928]          LEQ_MATVECt
    Use   [leq_bicgst.f, 932]          LEQ_MATVECt
    Set   [leq_bicgst.f, 956]          LEQ_MATVECt
    Use   [leq_bicgst.f, 964]          LEQ_MATVECt

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1504]      LEQ_msolve1t
    Set   [leq_bicgst.f, 1522]         LEQ_msolve1t
    Use   [leq_bicgst.f, 1526]         LEQ_msolve1t

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1046]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1070]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1074]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1123]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1125]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1127]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1127]   LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1129]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1149]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1151]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1153]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1154]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1166]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1168]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1177]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1179]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1187]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1188]   LEQ_MSOLVEt

K    (Dummy Argument)  Declared as: INTEGER
    Define   [set_index1a.f, 34]       SET_INDEX1A
    Declare   [set_index1a.f, 60]      SET_INDEX1A
    Use Argument   [set_index1a.f, 97]   SET_INDEX1A
    Use Argument   [set_index1a.f, 120]   SET_INDEX1A
    Use Argument   [set_index1a.f, 143]   SET_INDEX1A
    Use Argument   [set_index1a.f, 166]   SET_INDEX1A
    Use   [set_index1a.f, 178]         SET_INDEX1A
    Use   [set_index1a.f, 189]         SET_INDEX1A
    Use   [set_index1a.f, 201]         SET_INDEX1A
    Use   [set_index1a.f, 212]         SET_INDEX1A

K    (Local Variable)  Declared as: INTEGER
    Define   [utilities.f, 75]         MAX_VEL_INLET
    Set   [utilities.f, 85]            MAX_VEL_INLET
    Use   [utilities.f, 88]            MAX_VEL_INLET
    Use   [utilities.f, 89]            MAX_VEL_INLET
    Use   [utilities.f, 90]            MAX_VEL_INLET

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_g.f, 73]           CALC_TAU_U_G
    Set   [tau_u_g.f, 124]             CALC_TAU_U_G
    Use   [tau_u_g.f, 125]             CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 158]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 159]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 183]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 184]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 373]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 374]    CALC_TAU_U_G
    Use   [tau_u_g.f, 421]             CALC_TAU_U_G
    Use   [tau_u_g.f, 422]             CALC_TAU_U_G

k    (Local Variable)  Declared as: INTEGER
    Define   [gaussj.f, 5]             gaussj
    Set   [gaussj.f, 14]               gaussj
    Use   [gaussj.f, 15]               gaussj
    Use   [gaussj.f, 16]               gaussj
    Use   [gaussj.f, 17]               gaussj
    Use   [gaussj.f, 19]               gaussj
    Use   [gaussj.f, 21]               gaussj
    Set   [gaussj.f, 66]               gaussj
    Use   [gaussj.f, 67]               gaussj
    Use   [gaussj.f, 68]               gaussj
    Use   [gaussj.f, 68]               gaussj
    Use   [gaussj.f, 69]               gaussj

K    (Local Variable)  Declared as: INTEGER
    Define   [nsquare.f, 25]           NSQUARE
    Set   [nsquare.f, 103]             NSQUARE
    Use   [nsquare.f, 104]             NSQUARE

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 353]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 358]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 362]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 366]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 368]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 369]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 372]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 402]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 402]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 403]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 417]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 417]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 418]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 432]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 432]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 433]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 443]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 443]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 444]    GET_CELL_NODE_COORDINATES

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 35]   GET_CONNECTIVITY
    Set   [get_connectivity.f, 56]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 60]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 62]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 63]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 66]     GET_CONNECTIVITY

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 543]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 548]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 552]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 556]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 558]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 559]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 562]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 589]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 589]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 590]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 604]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 604]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 605]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 619]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 619]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 620]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 630]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 630]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 631]    GET_GLOBAL_CELL_NODE_COORDINATES

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 1057]      JJ_BC_W_S
    Set   [source_w_s.f, 1062]         JJ_BC_W_S
    Use   [source_w_s.f, 1065]         JJ_BC_W_S
    Use   [source_w_s.f, 1066]         JJ_BC_W_S
    Use   [source_w_s.f, 1067]         JJ_BC_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 1226]      POINT_SOURCE_W_S
    Set   [source_w_s.f, 1246]         POINT_SOURCE_W_S
    Use   [source_w_s.f, 1250]         POINT_SOURCE_W_S
    Use   [source_w_s.f, 1251]         POINT_SOURCE_W_S
    Use   [source_w_s.f, 1253]         POINT_SOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 79]        SOURCE_W_S
    Set   [source_w_s.f, 134]          SOURCE_W_S
    Use Argument   [source_w_s.f, 151]   SOURCE_W_S
    Use Argument   [source_w_s.f, 163]   SOURCE_W_S
    Use Argument   [source_w_s.f, 275]   SOURCE_W_S
    Use Argument   [source_w_s.f, 299]   SOURCE_W_S
    Use Argument   [source_w_s.f, 301]   SOURCE_W_S
    Use Argument   [source_w_s.f, 305]   SOURCE_W_S
    Use Argument   [source_w_s.f, 335]   SOURCE_W_S
    Use Argument   [source_w_s.f, 336]   SOURCE_W_S
    Use Argument   [source_w_s.f, 352]   SOURCE_W_S
    Use Argument   [source_w_s.f, 360]   SOURCE_W_S
    Use Argument   [source_w_s.f, 365]   SOURCE_W_S
    Use Argument   [source_w_s.f, 377]   SOURCE_W_S
    Use Argument   [source_w_s.f, 382]   SOURCE_W_S
    Use Argument   [source_w_s.f, 393]   SOURCE_W_S
    Use Argument   [source_w_s.f, 395]   SOURCE_W_S
    Use Argument   [source_w_s.f, 405]   SOURCE_W_S
    Use Argument   [source_w_s.f, 425]   SOURCE_W_S
    Use Argument   [source_w_s.f, 447]   SOURCE_W_S
    Use Argument   [source_w_s.f, 450]   SOURCE_W_S
    Use   [source_w_s.f, 451]          SOURCE_W_S
    Use   [source_w_s.f, 451]          SOURCE_W_S
    Use Argument   [source_w_s.f, 455]   SOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 574]       SOURCE_W_S_BC
    Set   [source_w_s.f, 708]          SOURCE_W_S_BC
    Use   [source_w_s.f, 711]          SOURCE_W_S_BC
    Use   [source_w_s.f, 712]          SOURCE_W_S_BC
    Use   [source_w_s.f, 713]          SOURCE_W_S_BC
    Set   [source_w_s.f, 747]          SOURCE_W_S_BC
    Use   [source_w_s.f, 750]          SOURCE_W_S_BC
    Use   [source_w_s.f, 751]          SOURCE_W_S_BC
    Use   [source_w_s.f, 752]          SOURCE_W_S_BC
    Set   [source_w_s.f, 786]          SOURCE_W_S_BC
    Use   [source_w_s.f, 789]          SOURCE_W_S_BC
    Use   [source_w_s.f, 790]          SOURCE_W_S_BC
    Use   [source_w_s.f, 791]          SOURCE_W_S_BC
    Set   [source_w_s.f, 876]          SOURCE_W_S_BC
    Use   [source_w_s.f, 879]          SOURCE_W_S_BC
    Use   [source_w_s.f, 880]          SOURCE_W_S_BC
    Use   [source_w_s.f, 881]          SOURCE_W_S_BC
    Set   [source_w_s.f, 903]          SOURCE_W_S_BC
    Use   [source_w_s.f, 906]          SOURCE_W_S_BC
    Use   [source_w_s.f, 907]          SOURCE_W_S_BC
    Use   [source_w_s.f, 908]          SOURCE_W_S_BC
    Set   [source_w_s.f, 936]          SOURCE_W_S_BC
    Use   [source_w_s.f, 939]          SOURCE_W_S_BC
    Use   [source_w_s.f, 940]          SOURCE_W_S_BC
    Use   [source_w_s.f, 941]          SOURCE_W_S_BC
    Set   [source_w_s.f, 964]          SOURCE_W_S_BC
    Use   [source_w_s.f, 967]          SOURCE_W_S_BC
    Use   [source_w_s.f, 968]          SOURCE_W_S_BC
    Use   [source_w_s.f, 969]          SOURCE_W_S_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 353]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 475]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 495]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 495]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 502]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 504]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 505]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 507]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 508]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 510]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 511]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 536]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 537]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 537]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 538]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 538]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 539]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 539]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 540]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 540]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 561]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 562]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 563]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 564]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 575]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 577]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 579]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 580]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 582]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 593]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 595]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 597]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 598]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 600]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 611]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 612]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 613]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 614]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 639]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 640]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 641]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 642]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 653]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 655]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 657]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 658]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 660]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 671]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 673]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 675]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 676]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 678]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 689]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 690]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 691]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 692]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 714]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 717]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 718]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 719]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 728]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 732]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 734]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 735]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 737]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 746]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 750]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 752]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 753]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 755]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 764]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 767]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 768]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 769]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 814]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 820]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 820]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 825]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 826]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 1797]     RE_INDEX_ARRAYS
    Use   [set_increments.f, 1800]     RE_INDEX_ARRAYS
    Use   [set_increments.f, 1802]     RE_INDEX_ARRAYS

K    (Dummy Argument)  Declared as: INTEGER
    Define   [set_increments.f, 2002]   RECORD_NEW_IJK_CELL
    Declare   [set_increments.f, 2034]   RECORD_NEW_IJK_CELL
    Use   [set_increments.f, 2044]     RECORD_NEW_IJK_CELL
    Use   [set_increments.f, 2048]     RECORD_NEW_IJK_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 38]    SET_INCREMENTS
    Set   [set_increments.f, 104]      SET_INCREMENTS
    Use   [set_increments.f, 106]      SET_INCREMENTS
    Use   [set_increments.f, 106]      SET_INCREMENTS
    Use   [set_increments.f, 107]      SET_INCREMENTS
    Use   [set_increments.f, 107]      SET_INCREMENTS
    Use   [set_increments.f, 110]      SET_INCREMENTS
    Use   [set_increments.f, 110]      SET_INCREMENTS
    Use   [set_increments.f, 111]      SET_INCREMENTS
    Use   [set_increments.f, 111]      SET_INCREMENTS
    Use   [set_increments.f, 113]      SET_INCREMENTS
    Use   [set_increments.f, 113]      SET_INCREMENTS
    Use   [set_increments.f, 114]      SET_INCREMENTS
    Use   [set_increments.f, 114]      SET_INCREMENTS
    Set   [set_increments.f, 119]      SET_INCREMENTS
    Use   [set_increments.f, 123]      SET_INCREMENTS
    Use   [set_increments.f, 127]      SET_INCREMENTS
    Set   [set_increments.f, 138]      SET_INCREMENTS
    Use   [set_increments.f, 142]      SET_INCREMENTS
    Use Argument   [set_increments.f, 145]   SET_INCREMENTS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2627]   WRITE_IJK_VALUES
    Set   [set_increments.f, 2739]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2742]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2744]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2744]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2747]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2749]     WRITE_IJK_VALUES

K    (Local Variable)  Declared as: INTEGER
    Define   [set_geometry_des.f, 39]   SET_GEOMETRY_DES
    Set   [set_geometry_des.f, 84]     SET_GEOMETRY_DES
    Use   [set_geometry_des.f, 85]     SET_GEOMETRY_DES
    Use   [set_geometry_des.f, 85]     SET_GEOMETRY_DES
    Use   [set_geometry_des.f, 85]     SET_GEOMETRY_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_energy_dissipation_ss.f, 230]   CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 241]   CALC_GD_99_ENERGY_DISSIPATION_SS

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_energy_dissipation_ss.f, 340]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 359]   CALC_GTSH_ENERGY_DISSIPATION_SS

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_energy_dissipation_ss.f, 40]   CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 61]   CALC_IA_ENERGY_DISSIPATION_SS

K    (Local Variable)  Declared as: INTEGER
    Define   [check_odepack_stiff_chem.f, 49]   CHECK_ODEPACK_STIFF_CHEM
    Set   [check_odepack_stiff_chem.f, 78]   CHECK_ODEPACK_STIFF_CHEM
    Use   [check_odepack_stiff_chem.f, 81]   CHECK_ODEPACK_STIFF_CHEM

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 940]       POINT_SOURCE_V_G
    Set   [source_v_g.f, 964]          POINT_SOURCE_V_G
    Use   [source_v_g.f, 968]          POINT_SOURCE_V_G
    Use   [source_v_g.f, 969]          POINT_SOURCE_V_G
    Use   [source_v_g.f, 971]          POINT_SOURCE_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 72]        SOURCE_V_G
    Set   [source_v_g.f, 119]          SOURCE_V_G
    Use   [source_v_g.f, 244]          SOURCE_V_G
    Use Argument   [source_v_g.f, 245]   SOURCE_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 405]       SOURCE_V_G_BC
    Set   [source_v_g.f, 564]          SOURCE_V_G_BC
    Use   [source_v_g.f, 567]          SOURCE_V_G_BC
    Use   [source_v_g.f, 568]          SOURCE_V_G_BC
    Use   [source_v_g.f, 569]          SOURCE_V_G_BC
    Set   [source_v_g.f, 599]          SOURCE_V_G_BC
    Use   [source_v_g.f, 602]          SOURCE_V_G_BC
    Use   [source_v_g.f, 603]          SOURCE_V_G_BC
    Use   [source_v_g.f, 604]          SOURCE_V_G_BC
    Set   [source_v_g.f, 634]          SOURCE_V_G_BC
    Use   [source_v_g.f, 637]          SOURCE_V_G_BC
    Use   [source_v_g.f, 638]          SOURCE_V_G_BC
    Use   [source_v_g.f, 639]          SOURCE_V_G_BC
    Use   [source_v_g.f, 642]          SOURCE_V_G_BC
    Use   [source_v_g.f, 677]          SOURCE_V_G_BC
    Use   [source_v_g.f, 678]          SOURCE_V_G_BC
    Set   [source_v_g.f, 707]          SOURCE_V_G_BC
    Use   [source_v_g.f, 710]          SOURCE_V_G_BC
    Use   [source_v_g.f, 711]          SOURCE_V_G_BC
    Use   [source_v_g.f, 712]          SOURCE_V_G_BC
    Use   [source_v_g.f, 715]          SOURCE_V_G_BC
    Use   [source_v_g.f, 735]          SOURCE_V_G_BC
    Set   [source_v_g.f, 764]          SOURCE_V_G_BC
    Use   [source_v_g.f, 767]          SOURCE_V_G_BC
    Use   [source_v_g.f, 768]          SOURCE_V_G_BC
    Use   [source_v_g.f, 769]          SOURCE_V_G_BC
    Set   [source_v_g.f, 795]          SOURCE_V_G_BC
    Use   [source_v_g.f, 798]          SOURCE_V_G_BC
    Use   [source_v_g.f, 799]          SOURCE_V_G_BC
    Use   [source_v_g.f, 800]          SOURCE_V_G_BC
    Set   [source_v_g.f, 828]          SOURCE_V_G_BC
    Use   [source_v_g.f, 831]          SOURCE_V_G_BC
    Use   [source_v_g.f, 832]          SOURCE_V_G_BC
    Use   [source_v_g.f, 833]          SOURCE_V_G_BC
    Set   [source_v_g.f, 861]          SOURCE_V_G_BC
    Use   [source_v_g.f, 864]          SOURCE_V_G_BC
    Use   [source_v_g.f, 865]          SOURCE_V_G_BC
    Use   [source_v_g.f, 866]          SOURCE_V_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_des.f, 44]       DIF_PHI_DES
    Set   [dif_phi_des.f, 58]          DIF_PHI_DES
    Use   [dif_phi_des.f, 72]          DIF_PHI_DES
    Use   [dif_phi_des.f, 87]          DIF_PHI_DES
    Use   [dif_phi_des.f, 98]          DIF_PHI_DES
    Use   [dif_phi_des.f, 112]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 123]   DIF_PHI_DES
    Use   [dif_phi_des.f, 123]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 126]   DIF_PHI_DES
    Use   [dif_phi_des.f, 126]         DIF_PHI_DES
    Use   [dif_phi_des.f, 136]         DIF_PHI_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ic.f, 44]            SET_IC
    Set   [set_ic.f, 99]               SET_IC
    Use   [set_ic.f, 102]              SET_IC
    Use   [set_ic.f, 103]              SET_IC
    Use   [set_ic.f, 104]              SET_IC

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 142]     STORE_A_V_S0
    Set   [conv_dif_v_s.f, 169]        STORE_A_V_S0
    Use Argument   [conv_dif_v_s.f, 237]   STORE_A_V_S0
    Use Argument   [conv_dif_v_s.f, 238]   STORE_A_V_S0
    Use Argument   [conv_dif_v_s.f, 242]   STORE_A_V_S0
    Use Argument   [conv_dif_v_s.f, 243]   STORE_A_V_S0
    Use   [conv_dif_v_s.f, 244]        STORE_A_V_S0
    Use   [conv_dif_v_s.f, 311]        STORE_A_V_S0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 810]     STORE_A_V_S1
    Set   [conv_dif_v_s.f, 915]        STORE_A_V_S1
    Use Argument   [conv_dif_v_s.f, 976]   STORE_A_V_S1
    Use Argument   [conv_dif_v_s.f, 977]   STORE_A_V_S1
    Use Argument   [conv_dif_v_s.f, 981]   STORE_A_V_S1
    Use Argument   [conv_dif_v_s.f, 982]   STORE_A_V_S1
    Use   [conv_dif_v_s.f, 983]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 1040]       STORE_A_V_S1

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 406]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 457]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 458]        STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 534]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 707]        STORE_A_V_SDC

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_rop_g.f, 96]        CONV_ROP_G0
    Set   [conv_rop_g.f, 121]          CONV_ROP_G0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_rop_g.f, 207]       CONV_ROP_G1
    Set   [conv_rop_g.f, 235]          CONV_ROP_G1

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_w_s.f, 110]    CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 143]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 145]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 150]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 185]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 187]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 192]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 194]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 201]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 211]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 212]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 213]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 216]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 217]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 230]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 235]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 241]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 263]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 280]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 284]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 286]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 287]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 288]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 296]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 297]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 304]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 305]       CALC_IA_MOMSOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_w_is.f, 59]          DIF_W_IS
    Set   [dif_w_is.f, 93]             DIF_W_IS
    Use   [dif_w_is.f, 96]             DIF_W_IS
    Use   [dif_w_is.f, 97]             DIF_W_IS
    Use   [dif_w_is.f, 98]             DIF_W_IS
    Use Argument   [dif_w_is.f, 105]   DIF_W_IS
    Set   [dif_w_is.f, 113]            DIF_W_IS
    Use   [dif_w_is.f, 116]            DIF_W_IS
    Use   [dif_w_is.f, 117]            DIF_W_IS
    Use   [dif_w_is.f, 118]            DIF_W_IS
    Use Argument   [dif_w_is.f, 125]   DIF_W_IS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_delh.f, 37]          GET_DEL_H
    Set   [get_delh.f, 154]            GET_DEL_H
    Use   [get_delh.f, 159]            GET_DEL_H

K    (Local Variable)  Declared as: INTEGER
    Define   [get_delh.f, 195]         GET_DEL_H_DES
    Set   [get_delh.f, 314]            GET_DEL_H_DES
    Use   [get_delh.f, 317]            GET_DEL_H_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [out_array.f, 61]         OUT_ARRAY
    Set   [out_array.f, 75]            OUT_ARRAY
    Use   [out_array.f, 76]            OUT_ARRAY
    Use   [out_array.f, 77]            OUT_ARRAY
    Set   [out_array.f, 81]            OUT_ARRAY
    Use   [out_array.f, 82]            OUT_ARRAY
    Use   [out_array.f, 83]            OUT_ARRAY

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 156]     STORE_A_U_G0
    Set   [conv_dif_u_g.f, 203]        STORE_A_U_G0
    Use Argument   [conv_dif_u_g.f, 280]   STORE_A_U_G0
    Use Argument   [conv_dif_u_g.f, 281]   STORE_A_U_G0
    Use Argument   [conv_dif_u_g.f, 284]   STORE_A_U_G0
    Use Argument   [conv_dif_u_g.f, 285]   STORE_A_U_G0
    Use   [conv_dif_u_g.f, 285]        STORE_A_U_G0
    Use   [conv_dif_u_g.f, 362]        STORE_A_U_G0

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 943]     STORE_A_U_G1
    Set   [conv_dif_u_g.f, 1053]       STORE_A_U_G1
    Use Argument   [conv_dif_u_g.f, 1125]   STORE_A_U_G1
    Use Argument   [conv_dif_u_g.f, 1126]   STORE_A_U_G1
    Use Argument   [conv_dif_u_g.f, 1129]   STORE_A_U_G1
    Use Argument   [conv_dif_u_g.f, 1130]   STORE_A_U_G1
    Use   [conv_dif_u_g.f, 1130]       STORE_A_U_G1
    Use   [conv_dif_u_g.f, 1199]       STORE_A_U_G1

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 474]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 528]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 529]        STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 604]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 815]        STORE_A_U_GDC

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1695]       DOT_PRODUCT_PAR
    Set   [leq_bicgs.f, 1716]          DOT_PRODUCT_PAR
    Use   [leq_bicgs.f, 1719]          DOT_PRODUCT_PAR
    Set   [leq_bicgs.f, 1744]          DOT_PRODUCT_PAR
    Use   [leq_bicgs.f, 1747]          DOT_PRODUCT_PAR

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1797]       DOT_PRODUCT_PAR2
    Set   [leq_bicgs.f, 1805]          DOT_PRODUCT_PAR2
    Use   [leq_bicgs.f, 1809]          DOT_PRODUCT_PAR2
    Use   [leq_bicgs.f, 1811]          DOT_PRODUCT_PAR2
    Set   [leq_bicgs.f, 1837]          DOT_PRODUCT_PAR2
    Use   [leq_bicgs.f, 1840]          DOT_PRODUCT_PAR2
    Use   [leq_bicgs.f, 1841]          DOT_PRODUCT_PAR2

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 191]        LEQ_BICGS0
    Set   [leq_bicgs.f, 291]           LEQ_BICGS0
    Use   [leq_bicgs.f, 294]           LEQ_BICGS0

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1001]       LEQ_IJSWEEP
    Set   [leq_bicgs.f, 1007]          LEQ_IJSWEEP
    Use   [leq_bicgs.f, 1008]          LEQ_IJSWEEP
    Use   [leq_bicgs.f, 1009]          LEQ_IJSWEEP
    Use   [leq_bicgs.f, 1010]          LEQ_IJSWEEP
    Use   [leq_bicgs.f, 1011]          LEQ_IJSWEEP
    Use   [leq_bicgs.f, 1012]          LEQ_IJSWEEP
    Set   [leq_bicgs.f, 1030]          LEQ_IJSWEEP
    Use   [leq_bicgs.f, 1031]          LEQ_IJSWEEP
    Use   [leq_bicgs.f, 1032]          LEQ_IJSWEEP

K    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [leq_bicgs.f, 793]        LEQ_IKSWEEP
    Declare   [leq_bicgs.f, 813]       LEQ_IKSWEEP
    Use   [leq_bicgs.f, 836]           LEQ_IKSWEEP
    Use   [leq_bicgs.f, 863]           LEQ_IKSWEEP

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 742]        LEQ_ISWEEP
    Set   [leq_bicgs.f, 747]           LEQ_ISWEEP
    Use   [leq_bicgs.f, 750]           LEQ_ISWEEP
    Use   [leq_bicgs.f, 771]           LEQ_ISWEEP

K    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [leq_bicgs.f, 886]        LEQ_JKSWEEP
    Declare   [leq_bicgs.f, 904]       LEQ_JKSWEEP
    Use   [leq_bicgs.f, 924]           LEQ_JKSWEEP
    Use   [leq_bicgs.f, 947]           LEQ_JKSWEEP

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1089]       LEQ_MATVEC
    Set   [leq_bicgs.f, 1131]          LEQ_MATVEC
    Use   [leq_bicgs.f, 1134]          LEQ_MATVEC
    Set   [leq_bicgs.f, 1153]          LEQ_MATVEC
    Use   [leq_bicgs.f, 1157]          LEQ_MATVEC

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1238]       LEQ_MSOLVE
    Set   [leq_bicgs.f, 1256]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1259]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1320]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1322]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1324]          LEQ_MSOLVE
    Use Argument   [leq_bicgs.f, 1324]   LEQ_MSOLVE
    Use   [leq_bicgs.f, 1326]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1369]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1371]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1373]          LEQ_MSOLVE
    Use Argument   [leq_bicgs.f, 1373]   LEQ_MSOLVE
    Use   [leq_bicgs.f, 1375]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1407]          LEQ_MSOLVE
    Use Argument   [leq_bicgs.f, 1408]   LEQ_MSOLVE
    Use   [leq_bicgs.f, 1410]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1414]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1420]          LEQ_MSOLVE
    Use Argument   [leq_bicgs.f, 1421]   LEQ_MSOLVE
    Use   [leq_bicgs.f, 1423]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1427]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1451]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1453]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1455]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1456]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1467]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1468]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1478]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1480]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1487]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1488]          LEQ_MSOLVE

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1627]       LEQ_MSOLVE1
    Set   [leq_bicgs.f, 1642]          LEQ_MSOLVE1
    Use   [leq_bicgs.f, 1645]          LEQ_MSOLVE1

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 427]     MPPIC_APPLY_PS_GRAD_PART

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1041]    MPPIC_BC_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1120]    MPPIC_BC_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1197]    MPPIC_BC_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 331]     MPPIC_COMP_EULERIAN_VELS_CG
    Set   [pic_routines.f, 340]        MPPIC_COMP_EULERIAN_VELS_CG
    Use   [pic_routines.f, 348]        MPPIC_COMP_EULERIAN_VELS_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 248]     MPPIC_COMP_EULERIAN_VELS_NON_CG
    Set   [pic_routines.f, 257]        MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use   [pic_routines.f, 264]        MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use   [pic_routines.f, 284]        MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use   [pic_routines.f, 284]        MPPIC_COMP_EULERIAN_VELS_NON_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 656]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 716]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 744]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 747]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 766]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 786]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 810]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 817]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 843]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 846]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 851]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 856]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 891]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 892]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 893]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 906]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 908]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 912]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 915]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 917]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 919]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 920]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 925]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 925]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 928]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 928]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 930]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 930]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 932]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 936]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 936]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 938]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 938]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 939]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 943]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 943]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 945]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 945]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 947]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 951]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 952]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 953]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 958]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 958]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 960]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 960]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 962]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 962]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 976]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 976]        MPPIC_COMPUTE_PS_GRAD

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 34]      PIC_TIME_MARCH

k    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1305]    WRITE_MPPIC_VEL_S
    Set   [pic_routines.f, 1322]       WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 1325]       WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 1332]       WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 1337]       WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 1337]       WRITE_MPPIC_VEL_S

k    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1266]    WRITE_NODEDATA
    Set   [pic_routines.f, 1272]       WRITE_NODEDATA
    Use   [pic_routines.f, 1275]       WRITE_NODEDATA
    Use   [pic_routines.f, 1278]       WRITE_NODEDATA

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_s.f, 76]           CALC_TAU_U_S
    Set   [tau_u_s.f, 148]             CALC_TAU_U_S
    Use   [tau_u_s.f, 149]             CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 184]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 185]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 216]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 217]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 385]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 386]    CALC_TAU_U_S
    Use   [tau_u_s.f, 410]             CALC_TAU_U_S
    Use   [tau_u_s.f, 411]             CALC_TAU_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc1.f, 262]          SET_BC1_ADJUST_OUTFLOW
    Set   [set_bc1.f, 375]             SET_BC1_ADJUST_OUTFLOW
    Use   [set_bc1.f, 378]             SET_BC1_ADJUST_OUTFLOW
    Use   [set_bc1.f, 379]             SET_BC1_ADJUST_OUTFLOW
    Use   [set_bc1.f, 380]             SET_BC1_ADJUST_OUTFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc1.f, 90]           SET_BC1_JET
    Set   [set_bc1.f, 111]             SET_BC1_JET
    Use   [set_bc1.f, 114]             SET_BC1_JET
    Use   [set_bc1.f, 115]             SET_BC1_JET
    Use   [set_bc1.f, 116]             SET_BC1_JET

K    (Local Variable)  Declared as: INTEGER
    Define   [cfnewvalues.f, 504]      CFNEWVALUES_MPPIC
    Set   [cfnewvalues.f, 596]         CFNEWVALUES_MPPIC

K    (Local Variable)  Declared as: INTEGER
    Define   [cfnewvalues.f, 202]      CFNEWVALUES_MPPIC_SNIDER
    Set   [cfnewvalues.f, 297]         CFNEWVALUES_MPPIC_SNIDER

K    (Local Variable)  Declared as: INTEGER
    Define   [mass_inflow_dem.f, 421]   DES_NEW_PARTICLE_TEST
    Set   [mass_inflow_dem.f, 455]     DES_NEW_PARTICLE_TEST
    Use   [mass_inflow_dem.f, 461]     DES_NEW_PARTICLE_TEST

K1    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 2536]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3050]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3055]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3063]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3065]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3070]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3075]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3082]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3087]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3094]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3094]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3095]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3096]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3102]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3109]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3116]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3116]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3119]   GET_DXYZ_FROM_CONTROL_POINTS

K1    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1919]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 2000]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 2003]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2009]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2037]   GET_POTENTIAL_CUT_CELLS

K1    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 64]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 537]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 540]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 556]   SET_3D_CUT_CELL_FLAGS

K1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_v_s.f, 961]       JJ_BC_V_S
    Declare   [source_v_s.f, 993]      JJ_BC_V_S
    Use   [source_v_s.f, 1009]         JJ_BC_V_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 531]       SOURCE_V_S_BC
    Set   [source_v_s.f, 537]          SOURCE_V_S_BC
    Use   [source_v_s.f, 540]          SOURCE_V_S_BC
    Use   [source_v_s.f, 541]          SOURCE_V_S_BC
    Use   [source_v_s.f, 542]          SOURCE_V_S_BC
    Set   [source_v_s.f, 567]          SOURCE_V_S_BC
    Use   [source_v_s.f, 570]          SOURCE_V_S_BC
    Use   [source_v_s.f, 571]          SOURCE_V_S_BC
    Use   [source_v_s.f, 572]          SOURCE_V_S_BC
    Set   [source_v_s.f, 597]          SOURCE_V_S_BC
    Use   [source_v_s.f, 599]          SOURCE_V_S_BC
    Use   [source_v_s.f, 600]          SOURCE_V_S_BC
    Use   [source_v_s.f, 601]          SOURCE_V_S_BC
    Set   [source_v_s.f, 625]          SOURCE_V_S_BC
    Use   [source_v_s.f, 627]          SOURCE_V_S_BC
    Use   [source_v_s.f, 628]          SOURCE_V_S_BC
    Use   [source_v_s.f, 629]          SOURCE_V_S_BC
    Set   [source_v_s.f, 663]          SOURCE_V_S_BC
    Use   [source_v_s.f, 666]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 695]   SOURCE_V_S_BC
    Set   [source_v_s.f, 703]          SOURCE_V_S_BC
    Use   [source_v_s.f, 706]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 734]   SOURCE_V_S_BC
    Set   [source_v_s.f, 742]          SOURCE_V_S_BC
    Use   [source_v_s.f, 745]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 811]   SOURCE_V_S_BC
    Set   [source_v_s.f, 821]          SOURCE_V_S_BC
    Use   [source_v_s.f, 823]          SOURCE_V_S_BC
    Set   [source_v_s.f, 848]          SOURCE_V_S_BC
    Use   [source_v_s.f, 850]          SOURCE_V_S_BC
    Set   [source_v_s.f, 881]          SOURCE_V_S_BC
    Use   [source_v_s.f, 883]          SOURCE_V_S_BC
    Set   [source_v_s.f, 909]          SOURCE_V_S_BC
    Use   [source_v_s.f, 911]          SOURCE_V_S_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 35]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 64]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 68]      MAKE_ARRAYS_DES

K1    (Local Variable)  Declared as: INTEGER
    Define   [k_epsilon_prop.f, 80]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 312]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 314]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 314]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 314]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 314]      K_Epsilon_PROP

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 413]       SOURCE_U_G_BC
    Set   [source_u_g.f, 436]          SOURCE_U_G_BC
    Use   [source_u_g.f, 439]          SOURCE_U_G_BC
    Use   [source_u_g.f, 440]          SOURCE_U_G_BC
    Use   [source_u_g.f, 441]          SOURCE_U_G_BC
    Set   [source_u_g.f, 469]          SOURCE_U_G_BC
    Use   [source_u_g.f, 472]          SOURCE_U_G_BC
    Use   [source_u_g.f, 473]          SOURCE_U_G_BC
    Use   [source_u_g.f, 474]          SOURCE_U_G_BC
    Set   [source_u_g.f, 500]          SOURCE_U_G_BC
    Use   [source_u_g.f, 502]          SOURCE_U_G_BC
    Use   [source_u_g.f, 503]          SOURCE_U_G_BC
    Use   [source_u_g.f, 504]          SOURCE_U_G_BC
    Set   [source_u_g.f, 529]          SOURCE_U_G_BC
    Use   [source_u_g.f, 531]          SOURCE_U_G_BC
    Use   [source_u_g.f, 532]          SOURCE_U_G_BC
    Use   [source_u_g.f, 533]          SOURCE_U_G_BC
    Set   [source_u_g.f, 570]          SOURCE_U_G_BC
    Use   [source_u_g.f, 572]          SOURCE_U_G_BC
    Set   [source_u_g.f, 605]          SOURCE_U_G_BC
    Use   [source_u_g.f, 607]          SOURCE_U_G_BC
    Set   [source_u_g.f, 640]          SOURCE_U_G_BC
    Use   [source_u_g.f, 642]          SOURCE_U_G_BC
    Set   [source_u_g.f, 715]          SOURCE_U_G_BC
    Use   [source_u_g.f, 717]          SOURCE_U_G_BC
    Set   [source_u_g.f, 772]          SOURCE_U_G_BC
    Use   [source_u_g.f, 774]          SOURCE_U_G_BC
    Set   [source_u_g.f, 803]          SOURCE_U_G_BC
    Use   [source_u_g.f, 805]          SOURCE_U_G_BC
    Set   [source_u_g.f, 837]          SOURCE_U_G_BC
    Use   [source_u_g.f, 839]          SOURCE_U_G_BC
    Set   [source_u_g.f, 871]          SOURCE_U_G_BC
    Use   [source_u_g.f, 873]          SOURCE_U_G_BC

K1    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 462]   Calc_mass_flux
    Declare   [check_mass_balance.f, 469]   Calc_mass_flux
    Use Argument   [check_mass_balance.f, 491]   Calc_mass_flux

K1    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 512]   Calc_mass_flux_sp
    Declare   [check_mass_balance.f, 525]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 554]   Calc_mass_flux_sp

K1    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 689]   Calc_mass_flux_spHR
    Declare   [check_mass_balance.f, 704]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 743]   Calc_mass_flux_spHR

K1    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 642]   Calc_mass_fluxHR
    Declare   [check_mass_balance.f, 649]   Calc_mass_fluxHR
    Use Argument   [check_mass_balance.f, 668]   Calc_mass_fluxHR

K1    (Local Variable)  Declared as: INTEGER
    Define   [check_mass_balance.f, 70]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 145]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 150]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 152]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 160]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 162]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 180]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 184]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 187]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 210]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 215]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 219]   CHECK_Mass_balance

K1    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 1093]    DIF_PHI_IS
    Set   [conv_dif_phi.f, 1120]       DIF_PHI_IS
    Use   [conv_dif_phi.f, 1129]       DIF_PHI_IS
    Set   [conv_dif_phi.f, 1129]       DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 1129]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 1138]       DIF_PHI_IS

K1    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 44]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 234]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 239]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 263]   COMP_MEAN_FIELDS0

K1    (Local Variable)  Declared as: INTEGER
    Define   [radial_vel_correction.f, 33]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 55]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 56]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 58]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 73]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 74]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 75]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 76]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 78]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 81]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 90]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 92]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 93]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 94]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 116]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 117]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 118]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 129]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 130]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 131]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 132]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 134]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 136]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 145]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 146]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 147]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 148]   RADIAL_VEL_CORRECTION

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 44]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 57]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 59]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 60]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 61]       DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 76]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 78]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 79]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 80]       DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 95]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 97]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 98]       DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 99]       DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 114]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 116]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 117]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 118]      DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 133]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 136]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 137]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 138]      DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 154]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 157]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 158]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 159]      DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 184]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 187]      DIF_PHI_BC_DES

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_u_is.f, 59]          DIF_U_IS
    Set   [dif_u_is.f, 86]             DIF_U_IS
    Use   [dif_u_is.f, 91]             DIF_U_IS
    Set   [dif_u_is.f, 91]             DIF_U_IS
    Use Argument   [dif_u_is.f, 91]    DIF_U_IS
    Use   [dif_u_is.f, 98]             DIF_U_IS
    Use   [dif_u_is.f, 119]            DIF_U_IS

K1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_u_s.f, 969]       JJ_BC_U_S
    Declare   [source_u_s.f, 1001]     JJ_BC_U_S
    Use   [source_u_s.f, 1017]         JJ_BC_U_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 536]       SOURCE_U_S_BC
    Set   [source_u_s.f, 542]          SOURCE_U_S_BC
    Use   [source_u_s.f, 545]          SOURCE_U_S_BC
    Use   [source_u_s.f, 546]          SOURCE_U_S_BC
    Use   [source_u_s.f, 547]          SOURCE_U_S_BC
    Set   [source_u_s.f, 572]          SOURCE_U_S_BC
    Use   [source_u_s.f, 575]          SOURCE_U_S_BC
    Use   [source_u_s.f, 576]          SOURCE_U_S_BC
    Use   [source_u_s.f, 577]          SOURCE_U_S_BC
    Set   [source_u_s.f, 602]          SOURCE_U_S_BC
    Use   [source_u_s.f, 604]          SOURCE_U_S_BC
    Use   [source_u_s.f, 605]          SOURCE_U_S_BC
    Use   [source_u_s.f, 606]          SOURCE_U_S_BC
    Set   [source_u_s.f, 630]          SOURCE_U_S_BC
    Use   [source_u_s.f, 632]          SOURCE_U_S_BC
    Use   [source_u_s.f, 633]          SOURCE_U_S_BC
    Use   [source_u_s.f, 634]          SOURCE_U_S_BC
    Set   [source_u_s.f, 669]          SOURCE_U_S_BC
    Use   [source_u_s.f, 672]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 700]   SOURCE_U_S_BC
    Set   [source_u_s.f, 708]          SOURCE_U_S_BC
    Use   [source_u_s.f, 711]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 739]   SOURCE_U_S_BC
    Set   [source_u_s.f, 747]          SOURCE_U_S_BC
    Use   [source_u_s.f, 750]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 816]   SOURCE_U_S_BC
    Set   [source_u_s.f, 826]          SOURCE_U_S_BC
    Use   [source_u_s.f, 828]          SOURCE_U_S_BC
    Set   [source_u_s.f, 853]          SOURCE_U_S_BC
    Use   [source_u_s.f, 855]          SOURCE_U_S_BC
    Set   [source_u_s.f, 887]          SOURCE_U_S_BC
    Use   [source_u_s.f, 889]          SOURCE_U_S_BC
    Set   [source_u_s.f, 916]          SOURCE_U_S_BC
    Use   [source_u_s.f, 918]          SOURCE_U_S_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [get_philoss.f, 74]       GET_PHILOSS
    Set   [get_philoss.f, 87]          GET_PHILOSS
    Use   [get_philoss.f, 89]          GET_PHILOSS

K1    (Local Variable)  Declared as: INTEGER
    Define   [qmomk_set_bc.f, 31]      QMOMK_SET_BC
    Set   [qmomk_set_bc.f, 40]         QMOMK_SET_BC
    Use   [qmomk_set_bc.f, 47]         QMOMK_SET_BC
    Use   [qmomk_set_bc.f, 52]         QMOMK_SET_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [cal_d.f, 40]             CAL_D
    Set   [cal_d.f, 74]                CAL_D
    Use   [cal_d.f, 76]                CAL_D
    Use   [cal_d.f, 77]                CAL_D
    Use   [cal_d.f, 80]                CAL_D
    Use   [cal_d.f, 81]                CAL_D
    Use   [cal_d.f, 81]                CAL_D

K1    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 63]       SET_WALL_BC
    Set   [set_wall_bc.f, 76]          SET_WALL_BC
    Use Argument   [set_wall_bc.f, 81]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 85]   SET_WALL_BC
    Set   [set_wall_bc.f, 99]          SET_WALL_BC
    Use   [set_wall_bc.f, 102]         SET_WALL_BC
    Use   [set_wall_bc.f, 103]         SET_WALL_BC
    Use   [set_wall_bc.f, 104]         SET_WALL_BC
    Use   [set_wall_bc.f, 105]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 107]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 107]   SET_WALL_BC
    Set   [set_wall_bc.f, 112]         SET_WALL_BC
    Use   [set_wall_bc.f, 115]         SET_WALL_BC
    Use   [set_wall_bc.f, 116]         SET_WALL_BC
    Use   [set_wall_bc.f, 117]         SET_WALL_BC
    Use   [set_wall_bc.f, 118]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 120]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 120]   SET_WALL_BC
    Set   [set_wall_bc.f, 126]         SET_WALL_BC
    Use   [set_wall_bc.f, 129]         SET_WALL_BC
    Use   [set_wall_bc.f, 130]         SET_WALL_BC
    Use   [set_wall_bc.f, 131]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 133]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 133]   SET_WALL_BC
    Set   [set_wall_bc.f, 139]         SET_WALL_BC
    Use   [set_wall_bc.f, 142]         SET_WALL_BC
    Use   [set_wall_bc.f, 143]         SET_WALL_BC
    Use   [set_wall_bc.f, 144]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 146]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 146]   SET_WALL_BC
    Set   [set_wall_bc.f, 152]         SET_WALL_BC
    Use   [set_wall_bc.f, 155]         SET_WALL_BC
    Use   [set_wall_bc.f, 156]         SET_WALL_BC
    Use   [set_wall_bc.f, 157]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 159]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 159]   SET_WALL_BC
    Set   [set_wall_bc.f, 176]         SET_WALL_BC
    Use   [set_wall_bc.f, 179]         SET_WALL_BC
    Use   [set_wall_bc.f, 180]         SET_WALL_BC
    Use   [set_wall_bc.f, 181]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 183]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 183]   SET_WALL_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 253]      SET_WALL_BC1
    Set   [set_wall_bc.f, 263]         SET_WALL_BC1
    Use   [set_wall_bc.f, 268]         SET_WALL_BC1
    Set   [set_wall_bc.f, 268]         SET_WALL_BC1
    Use Argument   [set_wall_bc.f, 268]   SET_WALL_BC1
    Use   [set_wall_bc.f, 273]         SET_WALL_BC1

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_v_is.f, 63]          DIF_V_IS
    Set   [dif_v_is.f, 92]             DIF_V_IS
    Use   [dif_v_is.f, 97]             DIF_V_IS
    Use   [dif_v_is.f, 118]            DIF_V_IS

K1    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 61]            BC_PHI
    Set   [bc_phi.f, 73]               BC_PHI
    Use   [bc_phi.f, 77]               BC_PHI
    Use   [bc_phi.f, 78]               BC_PHI
    Use   [bc_phi.f, 79]               BC_PHI
    Set   [bc_phi.f, 99]               BC_PHI
    Use   [bc_phi.f, 103]              BC_PHI
    Use   [bc_phi.f, 104]              BC_PHI
    Use   [bc_phi.f, 105]              BC_PHI
    Set   [bc_phi.f, 126]              BC_PHI
    Use   [bc_phi.f, 128]              BC_PHI
    Use   [bc_phi.f, 129]              BC_PHI
    Use   [bc_phi.f, 130]              BC_PHI
    Set   [bc_phi.f, 150]              BC_PHI
    Use   [bc_phi.f, 152]              BC_PHI
    Use   [bc_phi.f, 153]              BC_PHI
    Use   [bc_phi.f, 154]              BC_PHI
    Set   [bc_phi.f, 174]              BC_PHI
    Use   [bc_phi.f, 176]              BC_PHI
    Use   [bc_phi.f, 177]              BC_PHI
    Use   [bc_phi.f, 178]              BC_PHI
    Set   [bc_phi.f, 198]              BC_PHI
    Use   [bc_phi.f, 200]              BC_PHI
    Use   [bc_phi.f, 201]              BC_PHI
    Use   [bc_phi.f, 202]              BC_PHI
    Set   [bc_phi.f, 236]              BC_PHI
    Use   [bc_phi.f, 239]              BC_PHI
    Set   [bc_phi.f, 355]              BC_PHI
    Use   [bc_phi.f, 358]              BC_PHI
    Set   [bc_phi.f, 409]              BC_PHI
    Use   [bc_phi.f, 412]              BC_PHI

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 467]       SOURCE_W_G_BC
    Set   [source_w_g.f, 492]          SOURCE_W_G_BC
    Use   [source_w_g.f, 494]          SOURCE_W_G_BC
    Use   [source_w_g.f, 495]          SOURCE_W_G_BC
    Use   [source_w_g.f, 496]          SOURCE_W_G_BC
    Set   [source_w_g.f, 521]          SOURCE_W_G_BC
    Use   [source_w_g.f, 523]          SOURCE_W_G_BC
    Use   [source_w_g.f, 524]          SOURCE_W_G_BC
    Use   [source_w_g.f, 525]          SOURCE_W_G_BC
    Set   [source_w_g.f, 554]          SOURCE_W_G_BC
    Use   [source_w_g.f, 556]          SOURCE_W_G_BC
    Use   [source_w_g.f, 557]          SOURCE_W_G_BC
    Use   [source_w_g.f, 558]          SOURCE_W_G_BC
    Set   [source_w_g.f, 583]          SOURCE_W_G_BC
    Use   [source_w_g.f, 585]          SOURCE_W_G_BC
    Use   [source_w_g.f, 586]          SOURCE_W_G_BC
    Use   [source_w_g.f, 587]          SOURCE_W_G_BC
    Set   [source_w_g.f, 624]          SOURCE_W_G_BC
    Use   [source_w_g.f, 626]          SOURCE_W_G_BC
    Set   [source_w_g.f, 659]          SOURCE_W_G_BC
    Use   [source_w_g.f, 661]          SOURCE_W_G_BC
    Set   [source_w_g.f, 694]          SOURCE_W_G_BC
    Use   [source_w_g.f, 696]          SOURCE_W_G_BC
    Set   [source_w_g.f, 784]          SOURCE_W_G_BC
    Use   [source_w_g.f, 786]          SOURCE_W_G_BC
    Set   [source_w_g.f, 870]          SOURCE_W_G_BC
    Use   [source_w_g.f, 872]          SOURCE_W_G_BC
    Set   [source_w_g.f, 901]          SOURCE_W_G_BC
    Use   [source_w_g.f, 903]          SOURCE_W_G_BC
    Set   [source_w_g.f, 934]          SOURCE_W_G_BC
    Use   [source_w_g.f, 936]          SOURCE_W_G_BC
    Set   [source_w_g.f, 967]          SOURCE_W_G_BC
    Use   [source_w_g.f, 969]          SOURCE_W_G_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [qmomk_init_bc.f, 31]     QMOMK_INIT_BC
    Set   [qmomk_init_bc.f, 40]        QMOMK_INIT_BC
    Use   [qmomk_init_bc.f, 47]        QMOMK_INIT_BC
    Use   [qmomk_init_bc.f, 52]        QMOMK_INIT_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1488]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1604]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1612]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1629]   CAD_INTERSECT

K1    (Local Variable)  Declared as: INTEGER
    Define   [bc_theta.f, 70]          BC_THETA
    Set   [bc_theta.f, 86]             BC_THETA
    Use   [bc_theta.f, 90]             BC_THETA

K1    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1047]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1113]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1117]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1123]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1125]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1127]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1139]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1143]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1149]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1151]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1153]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1166]         LEQ_MSOLVEt

K1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_w_s.f, 1013]      JJ_BC_W_S
    Declare   [source_w_s.f, 1046]     JJ_BC_W_S
    Use   [source_w_s.f, 1062]         JJ_BC_W_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 574]       SOURCE_W_S_BC
    Set   [source_w_s.f, 580]          SOURCE_W_S_BC
    Use   [source_w_s.f, 582]          SOURCE_W_S_BC
    Use   [source_w_s.f, 583]          SOURCE_W_S_BC
    Use   [source_w_s.f, 584]          SOURCE_W_S_BC
    Set   [source_w_s.f, 610]          SOURCE_W_S_BC
    Use   [source_w_s.f, 612]          SOURCE_W_S_BC
    Use   [source_w_s.f, 613]          SOURCE_W_S_BC
    Use   [source_w_s.f, 614]          SOURCE_W_S_BC
    Set   [source_w_s.f, 638]          SOURCE_W_S_BC
    Use   [source_w_s.f, 640]          SOURCE_W_S_BC
    Use   [source_w_s.f, 641]          SOURCE_W_S_BC
    Use   [source_w_s.f, 642]          SOURCE_W_S_BC
    Set   [source_w_s.f, 666]          SOURCE_W_S_BC
    Use   [source_w_s.f, 668]          SOURCE_W_S_BC
    Use   [source_w_s.f, 669]          SOURCE_W_S_BC
    Use   [source_w_s.f, 670]          SOURCE_W_S_BC
    Set   [source_w_s.f, 705]          SOURCE_W_S_BC
    Use   [source_w_s.f, 708]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 736]   SOURCE_W_S_BC
    Set   [source_w_s.f, 744]          SOURCE_W_S_BC
    Use   [source_w_s.f, 747]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 775]   SOURCE_W_S_BC
    Set   [source_w_s.f, 783]          SOURCE_W_S_BC
    Use   [source_w_s.f, 786]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 864]   SOURCE_W_S_BC
    Set   [source_w_s.f, 874]          SOURCE_W_S_BC
    Use   [source_w_s.f, 876]          SOURCE_W_S_BC
    Set   [source_w_s.f, 901]          SOURCE_W_S_BC
    Use   [source_w_s.f, 903]          SOURCE_W_S_BC
    Set   [source_w_s.f, 934]          SOURCE_W_S_BC
    Use   [source_w_s.f, 936]          SOURCE_W_S_BC
    Set   [source_w_s.f, 962]          SOURCE_W_S_BC
    Use   [source_w_s.f, 964]          SOURCE_W_S_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 382]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 629]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 707]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 784]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 799]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 820]      RE_INDEX_ARRAYS

K1    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2656]   WRITE_IJK_VALUES

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 405]       SOURCE_V_G_BC
    Set   [source_v_g.f, 428]          SOURCE_V_G_BC
    Use   [source_v_g.f, 431]          SOURCE_V_G_BC
    Use   [source_v_g.f, 432]          SOURCE_V_G_BC
    Use   [source_v_g.f, 433]          SOURCE_V_G_BC
    Set   [source_v_g.f, 461]          SOURCE_V_G_BC
    Use   [source_v_g.f, 464]          SOURCE_V_G_BC
    Use   [source_v_g.f, 465]          SOURCE_V_G_BC
    Use   [source_v_g.f, 466]          SOURCE_V_G_BC
    Set   [source_v_g.f, 493]          SOURCE_V_G_BC
    Use   [source_v_g.f, 495]          SOURCE_V_G_BC
    Use   [source_v_g.f, 496]          SOURCE_V_G_BC
    Use   [source_v_g.f, 497]          SOURCE_V_G_BC
    Set   [source_v_g.f, 522]          SOURCE_V_G_BC
    Use   [source_v_g.f, 524]          SOURCE_V_G_BC
    Use   [source_v_g.f, 525]          SOURCE_V_G_BC
    Use   [source_v_g.f, 526]          SOURCE_V_G_BC
    Set   [source_v_g.f, 562]          SOURCE_V_G_BC
    Use   [source_v_g.f, 564]          SOURCE_V_G_BC
    Set   [source_v_g.f, 597]          SOURCE_V_G_BC
    Use   [source_v_g.f, 599]          SOURCE_V_G_BC
    Set   [source_v_g.f, 632]          SOURCE_V_G_BC
    Use   [source_v_g.f, 634]          SOURCE_V_G_BC
    Set   [source_v_g.f, 705]          SOURCE_V_G_BC
    Use   [source_v_g.f, 707]          SOURCE_V_G_BC
    Set   [source_v_g.f, 762]          SOURCE_V_G_BC
    Use   [source_v_g.f, 764]          SOURCE_V_G_BC
    Set   [source_v_g.f, 793]          SOURCE_V_G_BC
    Use   [source_v_g.f, 795]          SOURCE_V_G_BC
    Set   [source_v_g.f, 826]          SOURCE_V_G_BC
    Use   [source_v_g.f, 828]          SOURCE_V_G_BC
    Set   [source_v_g.f, 859]          SOURCE_V_G_BC
    Use   [source_v_g.f, 861]          SOURCE_V_G_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_w_is.f, 59]          DIF_W_IS
    Set   [dif_w_is.f, 88]             DIF_W_IS
    Use   [dif_w_is.f, 93]             DIF_W_IS
    Use   [dif_w_is.f, 113]            DIF_W_IS

K1    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1239]       LEQ_MSOLVE
    Set   [leq_bicgs.f, 1311]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1315]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1320]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1322]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1324]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1359]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1363]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1369]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1371]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1373]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1442]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1446]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1451]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1453]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1455]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1467]          LEQ_MSOLVE

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1041]    MPPIC_BC_U_S
    Set   [pic_routines.f, 1047]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1050]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1051]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1052]       MPPIC_BC_U_S
    Set   [pic_routines.f, 1057]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1060]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1061]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1062]       MPPIC_BC_U_S
    Set   [pic_routines.f, 1069]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1071]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1072]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1073]       MPPIC_BC_U_S
    Set   [pic_routines.f, 1078]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1080]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1081]       MPPIC_BC_U_S
    Use   [pic_routines.f, 1082]       MPPIC_BC_U_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1120]    MPPIC_BC_V_S
    Set   [pic_routines.f, 1126]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1129]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1130]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1131]       MPPIC_BC_V_S
    Set   [pic_routines.f, 1135]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1138]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1139]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1140]       MPPIC_BC_V_S
    Set   [pic_routines.f, 1147]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1149]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1150]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1151]       MPPIC_BC_V_S
    Set   [pic_routines.f, 1157]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1159]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1160]       MPPIC_BC_V_S
    Use   [pic_routines.f, 1161]       MPPIC_BC_V_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1197]    MPPIC_BC_W_S
    Set   [pic_routines.f, 1203]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1205]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1206]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1207]       MPPIC_BC_W_S
    Set   [pic_routines.f, 1212]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1214]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1215]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1216]       MPPIC_BC_W_S
    Set   [pic_routines.f, 1221]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1223]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1224]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1225]       MPPIC_BC_W_S
    Set   [pic_routines.f, 1230]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1232]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1233]       MPPIC_BC_W_S
    Use   [pic_routines.f, 1234]       MPPIC_BC_W_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 663]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 758]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 762]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 763]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 778]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 782]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 783]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 802]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 805]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 806]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 807]        MPPIC_COMPUTE_PS_GRAD

K2    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 2536]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3051]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3055]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3065]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3070]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3075]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3083]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3087]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3096]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3100]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3100]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3101]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3102]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3109]   GET_DXYZ_FROM_CONTROL_POINTS

K2    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1919]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 2001]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 2004]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2009]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2037]   GET_POTENTIAL_CUT_CELLS

K2    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 64]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 538]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 541]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 556]   SET_3D_CUT_CELL_FLAGS

K2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_v_s.f, 961]       JJ_BC_V_S
    Declare   [source_v_s.f, 993]      JJ_BC_V_S
    Use   [source_v_s.f, 1009]         JJ_BC_V_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 531]       SOURCE_V_S_BC
    Set   [source_v_s.f, 664]          SOURCE_V_S_BC
    Use   [source_v_s.f, 666]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 695]   SOURCE_V_S_BC
    Set   [source_v_s.f, 704]          SOURCE_V_S_BC
    Use   [source_v_s.f, 706]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 734]   SOURCE_V_S_BC
    Set   [source_v_s.f, 743]          SOURCE_V_S_BC
    Use   [source_v_s.f, 745]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 811]   SOURCE_V_S_BC
    Set   [source_v_s.f, 822]          SOURCE_V_S_BC
    Use   [source_v_s.f, 823]          SOURCE_V_S_BC
    Set   [source_v_s.f, 849]          SOURCE_V_S_BC
    Use   [source_v_s.f, 850]          SOURCE_V_S_BC
    Set   [source_v_s.f, 882]          SOURCE_V_S_BC
    Use   [source_v_s.f, 883]          SOURCE_V_S_BC
    Set   [source_v_s.f, 910]          SOURCE_V_S_BC
    Use   [source_v_s.f, 911]          SOURCE_V_S_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 35]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 65]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 68]      MAKE_ARRAYS_DES

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 413]       SOURCE_U_G_BC
    Set   [source_u_g.f, 571]          SOURCE_U_G_BC
    Use   [source_u_g.f, 572]          SOURCE_U_G_BC
    Set   [source_u_g.f, 606]          SOURCE_U_G_BC
    Use   [source_u_g.f, 607]          SOURCE_U_G_BC
    Set   [source_u_g.f, 641]          SOURCE_U_G_BC
    Use   [source_u_g.f, 642]          SOURCE_U_G_BC
    Set   [source_u_g.f, 716]          SOURCE_U_G_BC
    Use   [source_u_g.f, 717]          SOURCE_U_G_BC
    Set   [source_u_g.f, 773]          SOURCE_U_G_BC
    Use   [source_u_g.f, 774]          SOURCE_U_G_BC
    Set   [source_u_g.f, 804]          SOURCE_U_G_BC
    Use   [source_u_g.f, 805]          SOURCE_U_G_BC
    Set   [source_u_g.f, 838]          SOURCE_U_G_BC
    Use   [source_u_g.f, 839]          SOURCE_U_G_BC
    Set   [source_u_g.f, 872]          SOURCE_U_G_BC
    Use   [source_u_g.f, 873]          SOURCE_U_G_BC

K2    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 462]   Calc_mass_flux
    Declare   [check_mass_balance.f, 469]   Calc_mass_flux
    Use Argument   [check_mass_balance.f, 491]   Calc_mass_flux

K2    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 512]   Calc_mass_flux_sp
    Declare   [check_mass_balance.f, 525]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 554]   Calc_mass_flux_sp

K2    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 689]   Calc_mass_flux_spHR
    Declare   [check_mass_balance.f, 704]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 743]   Calc_mass_flux_spHR

K2    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 642]   Calc_mass_fluxHR
    Declare   [check_mass_balance.f, 649]   Calc_mass_fluxHR
    Use Argument   [check_mass_balance.f, 668]   Calc_mass_fluxHR

K2    (Local Variable)  Declared as: INTEGER
    Define   [check_mass_balance.f, 70]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 146]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 150]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 152]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 160]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 162]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 181]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 184]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 187]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 211]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 215]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 219]   CHECK_Mass_balance

K2    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 1093]    DIF_PHI_IS
    Set   [conv_dif_phi.f, 1121]       DIF_PHI_IS
    Use   [conv_dif_phi.f, 1135]       DIF_PHI_IS
    Set   [conv_dif_phi.f, 1135]       DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 1135]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 1138]       DIF_PHI_IS

K2    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 44]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 235]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 239]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 263]   COMP_MEAN_FIELDS0

K2    (Local Variable)  Declared as: INTEGER
    Define   [radial_vel_correction.f, 33]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 76]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 78]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 82]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 132]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 134]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 137]   RADIAL_VEL_CORRECTION

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 44]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 185]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 187]      DIF_PHI_BC_DES

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_u_is.f, 59]          DIF_U_IS
    Set   [dif_u_is.f, 87]             DIF_U_IS
    Use   [dif_u_is.f, 94]             DIF_U_IS
    Set   [dif_u_is.f, 94]             DIF_U_IS
    Use Argument   [dif_u_is.f, 94]    DIF_U_IS
    Use   [dif_u_is.f, 98]             DIF_U_IS
    Use   [dif_u_is.f, 119]            DIF_U_IS

K2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_u_s.f, 969]       JJ_BC_U_S
    Declare   [source_u_s.f, 1001]     JJ_BC_U_S
    Use   [source_u_s.f, 1017]         JJ_BC_U_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 536]       SOURCE_U_S_BC
    Set   [source_u_s.f, 670]          SOURCE_U_S_BC
    Use   [source_u_s.f, 672]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 700]   SOURCE_U_S_BC
    Set   [source_u_s.f, 709]          SOURCE_U_S_BC
    Use   [source_u_s.f, 711]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 739]   SOURCE_U_S_BC
    Set   [source_u_s.f, 748]          SOURCE_U_S_BC
    Use   [source_u_s.f, 750]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 816]   SOURCE_U_S_BC
    Set   [source_u_s.f, 827]          SOURCE_U_S_BC
    Use   [source_u_s.f, 828]          SOURCE_U_S_BC
    Set   [source_u_s.f, 854]          SOURCE_U_S_BC
    Use   [source_u_s.f, 855]          SOURCE_U_S_BC
    Set   [source_u_s.f, 888]          SOURCE_U_S_BC
    Use   [source_u_s.f, 889]          SOURCE_U_S_BC
    Set   [source_u_s.f, 917]          SOURCE_U_S_BC
    Use   [source_u_s.f, 918]          SOURCE_U_S_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [get_philoss.f, 74]       GET_PHILOSS
    Set   [get_philoss.f, 88]          GET_PHILOSS
    Use   [get_philoss.f, 89]          GET_PHILOSS

K2    (Local Variable)  Declared as: INTEGER
    Define   [qmomk_set_bc.f, 31]      QMOMK_SET_BC
    Set   [qmomk_set_bc.f, 41]         QMOMK_SET_BC
    Use   [qmomk_set_bc.f, 47]         QMOMK_SET_BC
    Use   [qmomk_set_bc.f, 52]         QMOMK_SET_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 63]       SET_WALL_BC
    Set   [set_wall_bc.f, 77]          SET_WALL_BC
    Use Argument   [set_wall_bc.f, 81]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 85]   SET_WALL_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 253]      SET_WALL_BC1
    Set   [set_wall_bc.f, 264]         SET_WALL_BC1
    Use   [set_wall_bc.f, 271]         SET_WALL_BC1
    Set   [set_wall_bc.f, 271]         SET_WALL_BC1
    Use Argument   [set_wall_bc.f, 271]   SET_WALL_BC1
    Use   [set_wall_bc.f, 273]         SET_WALL_BC1

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_v_is.f, 63]          DIF_V_IS
    Set   [dif_v_is.f, 93]             DIF_V_IS
    Use   [dif_v_is.f, 97]             DIF_V_IS
    Use   [dif_v_is.f, 118]            DIF_V_IS

K2    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 61]            BC_PHI
    Set   [bc_phi.f, 237]              BC_PHI
    Use   [bc_phi.f, 239]              BC_PHI
    Set   [bc_phi.f, 356]              BC_PHI
    Use   [bc_phi.f, 358]              BC_PHI
    Set   [bc_phi.f, 410]              BC_PHI
    Use   [bc_phi.f, 412]              BC_PHI

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 467]       SOURCE_W_G_BC
    Set   [source_w_g.f, 625]          SOURCE_W_G_BC
    Use   [source_w_g.f, 626]          SOURCE_W_G_BC
    Set   [source_w_g.f, 660]          SOURCE_W_G_BC
    Use   [source_w_g.f, 661]          SOURCE_W_G_BC
    Set   [source_w_g.f, 695]          SOURCE_W_G_BC
    Use   [source_w_g.f, 696]          SOURCE_W_G_BC
    Set   [source_w_g.f, 785]          SOURCE_W_G_BC
    Use   [source_w_g.f, 786]          SOURCE_W_G_BC
    Set   [source_w_g.f, 871]          SOURCE_W_G_BC
    Use   [source_w_g.f, 872]          SOURCE_W_G_BC
    Set   [source_w_g.f, 902]          SOURCE_W_G_BC
    Use   [source_w_g.f, 903]          SOURCE_W_G_BC
    Set   [source_w_g.f, 935]          SOURCE_W_G_BC
    Use   [source_w_g.f, 936]          SOURCE_W_G_BC
    Set   [source_w_g.f, 968]          SOURCE_W_G_BC
    Use   [source_w_g.f, 969]          SOURCE_W_G_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [qmomk_init_bc.f, 31]     QMOMK_INIT_BC
    Set   [qmomk_init_bc.f, 41]        QMOMK_INIT_BC
    Use   [qmomk_init_bc.f, 47]        QMOMK_INIT_BC
    Use   [qmomk_init_bc.f, 52]        QMOMK_INIT_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1488]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1605]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1620]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1629]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1735]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1736]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1812]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1813]   CAD_INTERSECT

K2    (Local Variable)  Declared as: INTEGER
    Define   [bc_theta.f, 70]          BC_THETA
    Set   [bc_theta.f, 87]             BC_THETA
    Use   [bc_theta.f, 90]             BC_THETA

K2    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1047]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1115]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1117]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1141]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1143]         LEQ_MSOLVEt

K2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_w_s.f, 1013]      JJ_BC_W_S
    Declare   [source_w_s.f, 1046]     JJ_BC_W_S
    Use   [source_w_s.f, 1062]         JJ_BC_W_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 574]       SOURCE_W_S_BC
    Set   [source_w_s.f, 706]          SOURCE_W_S_BC
    Use   [source_w_s.f, 708]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 736]   SOURCE_W_S_BC
    Set   [source_w_s.f, 745]          SOURCE_W_S_BC
    Use   [source_w_s.f, 747]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 775]   SOURCE_W_S_BC
    Set   [source_w_s.f, 784]          SOURCE_W_S_BC
    Use   [source_w_s.f, 786]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 864]   SOURCE_W_S_BC
    Set   [source_w_s.f, 875]          SOURCE_W_S_BC
    Use   [source_w_s.f, 876]          SOURCE_W_S_BC
    Set   [source_w_s.f, 902]          SOURCE_W_S_BC
    Use   [source_w_s.f, 903]          SOURCE_W_S_BC
    Set   [source_w_s.f, 935]          SOURCE_W_S_BC
    Use   [source_w_s.f, 936]          SOURCE_W_S_BC
    Set   [source_w_s.f, 963]          SOURCE_W_S_BC
    Use   [source_w_s.f, 964]          SOURCE_W_S_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 382]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 630]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 708]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 785]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 800]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 820]      RE_INDEX_ARRAYS

K2    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2656]   WRITE_IJK_VALUES

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 405]       SOURCE_V_G_BC
    Set   [source_v_g.f, 563]          SOURCE_V_G_BC
    Use   [source_v_g.f, 564]          SOURCE_V_G_BC
    Set   [source_v_g.f, 598]          SOURCE_V_G_BC
    Use   [source_v_g.f, 599]          SOURCE_V_G_BC
    Set   [source_v_g.f, 633]          SOURCE_V_G_BC
    Use   [source_v_g.f, 634]          SOURCE_V_G_BC
    Set   [source_v_g.f, 706]          SOURCE_V_G_BC
    Use   [source_v_g.f, 707]          SOURCE_V_G_BC
    Set   [source_v_g.f, 763]          SOURCE_V_G_BC
    Use   [source_v_g.f, 764]          SOURCE_V_G_BC
    Set   [source_v_g.f, 794]          SOURCE_V_G_BC
    Use   [source_v_g.f, 795]          SOURCE_V_G_BC
    Set   [source_v_g.f, 827]          SOURCE_V_G_BC
    Use   [source_v_g.f, 828]          SOURCE_V_G_BC
    Set   [source_v_g.f, 860]          SOURCE_V_G_BC
    Use   [source_v_g.f, 861]          SOURCE_V_G_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_w_is.f, 59]          DIF_W_IS
    Set   [dif_w_is.f, 89]             DIF_W_IS
    Use   [dif_w_is.f, 93]             DIF_W_IS
    Use   [dif_w_is.f, 113]            DIF_W_IS

K2    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1239]       LEQ_MSOLVE
    Set   [leq_bicgs.f, 1313]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1315]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1361]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1363]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1444]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1446]          LEQ_MSOLVE

K2    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1041]    MPPIC_BC_U_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1120]    MPPIC_BC_V_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1197]    MPPIC_BC_W_S

K23    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1552]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1761]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1766]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1811]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1816]   SET_GHOST_CELL_FLAGS

K_1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 812]         THETA_HW_CW
    Set   [bc_theta.f, 898]            THETA_HW_CW
    Set   [bc_theta.f, 925]            THETA_HW_CW
    Set   [bc_theta.f, 934]            THETA_HW_CW
    Set   [bc_theta.f, 1071]           THETA_HW_CW
    Set   [bc_theta.f, 1135]           THETA_HW_CW
    Set   [bc_theta.f, 1190]           THETA_HW_CW
    Use   [bc_theta.f, 1216]           THETA_HW_CW
    Use   [bc_theta.f, 1249]           THETA_HW_CW
    Use   [bc_theta.f, 1269]           THETA_HW_CW

K_12_avg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 85]       CALC_GRBDRY
    Set   [calc_grbdry.f, 136]         CALC_GRBDRY
    Set   [calc_grbdry.f, 143]         CALC_GRBDRY
    Set   [calc_grbdry.f, 330]         CALC_GRBDRY
    Set   [calc_grbdry.f, 337]         CALC_GRBDRY
    Set   [calc_grbdry.f, 534]         CALC_GRBDRY
    Set   [calc_grbdry.f, 541]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 746]   CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 752]   CALC_GRBDRY

K_12_avg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 1289]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1327]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1332]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1381]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1394]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1401]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1449]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1462]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1469]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1518]   CG_CALC_GRBDRY

K_12_avg    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_grbdry.f, 803]      F_HW
    Declare   [calc_grbdry.f, 840]     F_HW
    Use   [calc_grbdry.f, 959]         F_HW

K_12_avg    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_grbdry.f, 1547]     GET_CG_F2
    Declare   [calc_grbdry.f, 1585]    GET_CG_F2

K_12_avg    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_u_friction.f, 30]   CALC_Gw_Hw_Cw
    Declare   [calc_u_friction.f, 68]   CALC_Gw_Hw_Cw
    Use   [calc_u_friction.f, 218]     CALC_Gw_Hw_Cw

K_12_avg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 346]         CALC_THETA_BC
    Set   [bc_theta.f, 391]            CALC_THETA_BC
    Set   [bc_theta.f, 394]            CALC_THETA_BC
    Use Argument   [bc_theta.f, 687]   CALC_THETA_BC

K_12_avg    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [bc_theta.f, 745]         THETA_HW_CW
    Declare   [bc_theta.f, 784]        THETA_HW_CW
    Use   [bc_theta.f, 917]            THETA_HW_CW

K_1m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 397]        Gt_algebraic
    Set   [calc_mu_s.f, 423]           Gt_algebraic
    Use   [calc_mu_s.f, 434]           Gt_algebraic
    Use   [calc_mu_s.f, 461]           Gt_algebraic

K_2m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 399]        Gt_algebraic
    Set   [calc_mu_s.f, 429]           Gt_algebraic
    Use   [calc_mu_s.f, 435]           Gt_algebraic
    Use   [calc_mu_s.f, 464]           Gt_algebraic

K_3m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 401]        Gt_algebraic
    Set   [calc_mu_s.f, 424]           Gt_algebraic
    Use   [calc_mu_s.f, 430]           Gt_algebraic
    Use   [calc_mu_s.f, 436]           Gt_algebraic
    Use   [calc_mu_s.f, 467]           Gt_algebraic

K_4m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 403]        Gt_algebraic
    Set   [calc_mu_s.f, 431]           Gt_algebraic
    Use   [calc_mu_s.f, 433]           Gt_algebraic
    Use   [calc_mu_s.f, 450]           Gt_algebraic

K_5m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 405]        Gt_algebraic
    Set   [calc_mu_s.f, 440]           Gt_algebraic
    Use   [calc_mu_s.f, 442]           Gt_algebraic
    Set   [calc_mu_s.f, 444]           Gt_algebraic
    Use   [calc_mu_s.f, 470]           Gt_algebraic

K_b    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mo.f, 42]     SET_BC_PIC_MO
    Set   [set_bc_pic_mo.f, 96]        SET_BC_PIC_MO
    Set   [set_bc_pic_mo.f, 105]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 105]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 105]       SET_BC_PIC_MO
    Set   [set_bc_pic_mo.f, 106]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 106]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 106]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 113]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 117]       SET_BC_PIC_MO

K_b    (Local Variable)  Declared as: INTEGER
    Define   [get_ps.f, 35]            GET_PS
    Use Argument   [get_ps.f, 103]     GET_PS
    Set   [get_ps.f, 107]              GET_PS
    Use   [get_ps.f, 107]              GET_PS
    Use Argument   [get_ps.f, 110]     GET_PS
    Use   [get_ps.f, 114]              GET_PS

K_b    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 416]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 488]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 492]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 492]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 494]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 498]   CHECK_BC_GEOMETRY_FLOW

K_b    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 227]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 301]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 304]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 305]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 305]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 310]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 313]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 321]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 324]   CHECK_BC_GEOMETRY_WALL

K_b    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mi.f, 352]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 408]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 417]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 418]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 425]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 429]       SET_DEM_BCMI_IJK

K_B    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3070]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3100]            SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3103]   SETUP_VTK_REGION
    Set   [vtk_out.f, 3104]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3104]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3169]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3228]            SETUP_VTK_REGION

K_b    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_k.f, 30]          MOD_BC_K
    Set   [mod_bc_k.f, 48]             MOD_BC_K
    Use   [mod_bc_k.f, 56]             MOD_BC_K
    Use   [mod_bc_k.f, 61]             MOD_BC_K
    Use   [mod_bc_k.f, 62]             MOD_BC_K
    Set   [mod_bc_k.f, 65]             MOD_BC_K
    Use   [mod_bc_k.f, 65]             MOD_BC_K
    Set   [mod_bc_k.f, 69]             MOD_BC_K
    Use   [mod_bc_k.f, 69]             MOD_BC_K
    Use Argument   [mod_bc_k.f, 78]    MOD_BC_K
    Use   [mod_bc_k.f, 87]             MOD_BC_K
    Use   [mod_bc_k.f, 100]            MOD_BC_K

K_b    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_j.f, 31]          MOD_BC_J
    Set   [mod_bc_j.f, 51]             MOD_BC_J
    Use   [mod_bc_j.f, 54]             MOD_BC_J
    Use   [mod_bc_j.f, 59]             MOD_BC_J
    Use   [mod_bc_j.f, 60]             MOD_BC_J
    Use   [mod_bc_j.f, 86]             MOD_BC_J

K_b    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mi.f, 159]    SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 215]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 224]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 225]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 232]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 236]       SET_PIC_BCMI_IJK

K_b    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_i.f, 36]          MOD_BC_I
    Set   [mod_bc_i.f, 57]             MOD_BC_I
    Use   [mod_bc_i.f, 60]             MOD_BC_I
    Use   [mod_bc_i.f, 65]             MOD_BC_I
    Use   [mod_bc_i.f, 66]             MOD_BC_I
    Use   [mod_bc_i.f, 97]             MOD_BC_I

K_b    (Local Variable)  Declared as: INTEGER
    Define   [check_initial_conditions.f, 130]   CHECK_IC_GEOMETRY
    Set   [check_initial_conditions.f, 301]   CHECK_IC_GEOMETRY
    Use Argument   [check_initial_conditions.f, 304]   CHECK_IC_GEOMETRY
    Set   [check_initial_conditions.f, 305]   CHECK_IC_GEOMETRY
    Use   [check_initial_conditions.f, 305]   CHECK_IC_GEOMETRY
    Use Argument   [check_initial_conditions.f, 309]   CHECK_IC_GEOMETRY
    Use   [check_initial_conditions.f, 312]   CHECK_IC_GEOMETRY

K_b    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mo.f, 42]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 104]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 113]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 113]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 113]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 114]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 114]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 114]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 121]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 125]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 145]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 147]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 155]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 155]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 162]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 166]       SET_BC_DEM_MO

K_b    (Local Variable)  Declared as: INTEGER
    Define   [get_is.f, 35]            GET_IS
    Use Argument   [get_is.f, 103]     GET_IS
    Set   [get_is.f, 107]              GET_IS
    Use   [get_is.f, 107]              GET_IS
    Use Argument   [get_is.f, 110]     GET_IS
    Use   [get_is.f, 114]              GET_IS

K_CELL    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 37]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 123]     MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 133]     MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 134]     MAKE_ARRAYS_DES
    Use Argument   [make_arrays_des.f, 136]   MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 149]     MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 150]     MAKE_ARRAYS_DES

K_CELL    (Local Variable)  Declared as: INTEGER
    Define   [des_time_march.f, 50]    DES_TIME_MARCH

K_CELL    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 816]   CHECK_IF_PARCEL_OVELAPS_STL
    Set   [pic_bc_routines.f, 837]     CHECK_IF_PARCEL_OVELAPS_STL
    Set   [pic_bc_routines.f, 838]     CHECK_IF_PARCEL_OVELAPS_STL
    Use Argument   [pic_bc_routines.f, 840]   CHECK_IF_PARCEL_OVELAPS_STL
    Use   [pic_bc_routines.f, 861]     CHECK_IF_PARCEL_OVELAPS_STL
    Use   [pic_bc_routines.f, 862]     CHECK_IF_PARCEL_OVELAPS_STL

K_common_term    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 831]         THETA_HW_CW
    Set   [bc_theta.f, 1006]           THETA_HW_CW
    Use   [bc_theta.f, 1011]           THETA_HW_CW

K_common_term    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1453]       gt_pde_ia
    Set   [calc_mu_s.f, 1708]          gt_pde_ia
    Use   [calc_mu_s.f, 1713]          gt_pde_ia
    Use   [calc_mu_s.f, 1733]          gt_pde_ia
    Use   [calc_mu_s.f, 1755]          gt_pde_ia
    Use   [calc_mu_s.f, 1761]          gt_pde_ia

K_eff.K1    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [des_thermo_cond_mod.f, 190]   K_eff
    Declare   [des_thermo_cond_mod.f, 195]   K_eff
    Use   [des_thermo_cond_mod.f, 197]   K_eff
    Use   [des_thermo_cond_mod.f, 197]   K_eff

K_eff.K2    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [des_thermo_cond_mod.f, 190]   K_eff
    Declare   [des_thermo_cond_mod.f, 195]   K_eff
    Use   [des_thermo_cond_mod.f, 197]   K_eff
    Use   [des_thermo_cond_mod.f, 197]   K_eff

K_FLUID    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_k.f, 40]          MOD_BC_K
    Set   [mod_bc_k.f, 105]            MOD_BC_K
    Use   [mod_bc_k.f, 113]            MOD_BC_K
    Use   [mod_bc_k.f, 115]            MOD_BC_K
    Use   [mod_bc_k.f, 119]            MOD_BC_K
    Use   [mod_bc_k.f, 145]            MOD_BC_K
    Use   [mod_bc_k.f, 147]            MOD_BC_K
    Use   [mod_bc_k.f, 151]            MOD_BC_K
    Use   [mod_bc_k.f, 158]            MOD_BC_K

K_masstr_MAX    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 144]    CHECK_DATA_30
    Set   [check_data_30.f, 595]       CHECK_DATA_30
    Use   [check_data_30.f, 702]       CHECK_DATA_30

K_MAX_g    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 90]     CHECK_DATA_30
    Set   [check_data_30.f, 173]       CHECK_DATA_30
    Set   [check_data_30.f, 393]       CHECK_DATA_30
    Use   [check_data_30.f, 722]       CHECK_DATA_30

K_MAX_s    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 116]    CHECK_DATA_30
    Set   [check_data_30.f, 186]       CHECK_DATA_30
    Set   [check_data_30.f, 502]       CHECK_DATA_30
    Use   [check_data_30.f, 741]       CHECK_DATA_30

K_MIN_g    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 87]     CHECK_DATA_30
    Set   [check_data_30.f, 170]       CHECK_DATA_30
    Set   [check_data_30.f, 388]       CHECK_DATA_30
    Use   [check_data_30.f, 720]       CHECK_DATA_30

K_MIN_s    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 112]    CHECK_DATA_30
    Set   [check_data_30.f, 183]       CHECK_DATA_30
    Set   [check_data_30.f, 497]       CHECK_DATA_30
    Use   [check_data_30.f, 739]       CHECK_DATA_30

K_OFFSET    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 3386]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3716]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3718]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3720]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3720]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3724]   ADJUST_IJK_SIZE

K_OFFSET    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4101]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4250]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4252]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4254]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4254]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4258]   REPORT_BEST_IJK_SIZE

K_OFFSET    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4927]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5123]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5125]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5127]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5127]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5131]   REPORT_BEST_IJK_SIZE0

K_P    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_source_epp.f, 108]   CONV_SOURCE_EPP0
    Set   [conv_source_epp.f, 157]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 166]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 173]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 184]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 191]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 202]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 209]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 220]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 227]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 239]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 246]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 257]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 264]     CONV_SOURCE_EPP0

K_P    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_source_epp.f, 371]   CONV_SOURCE_EPP1
    Set   [conv_source_epp.f, 446]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 454]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 463]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 473]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 483]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 494]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 504]     CONV_SOURCE_EPP1

K_RXNSUM_MAX    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 131]    CHECK_DATA_30
    Set   [check_data_30.f, 554]       CHECK_DATA_30
    Use   [check_data_30.f, 690]       CHECK_DATA_30

K_s_dil    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1450]       gt_pde_ia
    Set   [calc_mu_s.f, 1620]          gt_pde_ia
    Use   [calc_mu_s.f, 1624]          gt_pde_ia
    Use   [calc_mu_s.f, 1629]          gt_pde_ia
    Use   [calc_mu_s.f, 1630]          gt_pde_ia
    Use   [calc_mu_s.f, 1633]          gt_pde_ia
    Use   [calc_mu_s.f, 1634]          gt_pde_ia

K_s_LM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1459]       gt_pde_ia
    Set   [calc_mu_s.f, 1713]          gt_pde_ia
    Use   [calc_mu_s.f, 1769]          gt_pde_ia

K_s_MM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 829]         THETA_HW_CW
    Set   [bc_theta.f, 965]            THETA_HW_CW
    Use   [bc_theta.f, 976]            THETA_HW_CW

K_s_MM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1459]       gt_pde_ia
    Set   [calc_mu_s.f, 1639]          gt_pde_ia
    Use   [calc_mu_s.f, 1671]          gt_pde_ia

K_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 829]         THETA_HW_CW
    Set   [bc_theta.f, 949]            THETA_HW_CW
    Set   [bc_theta.f, 976]            THETA_HW_CW
    Use   [bc_theta.f, 976]            THETA_HW_CW
    Set   [bc_theta.f, 1062]           THETA_HW_CW
    Use   [bc_theta.f, 1062]           THETA_HW_CW
    Use   [bc_theta.f, 1071]           THETA_HW_CW

K_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1459]       gt_pde_ia
    Set   [calc_mu_s.f, 1618]          gt_pde_ia
    Set   [calc_mu_s.f, 1671]          gt_pde_ia
    Use   [calc_mu_s.f, 1671]          gt_pde_ia
    Set   [calc_mu_s.f, 1769]          gt_pde_ia
    Use   [calc_mu_s.f, 1769]          gt_pde_ia
    Use   [calc_mu_s.f, 1774]          gt_pde_ia

K_SIZE    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 419]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 1945]     RE_INDEX_ARRAYS
    Use   [set_increments.f, 1947]     RE_INDEX_ARRAYS

K_SLICE    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3072]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3124]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3172]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3231]            SETUP_VTK_REGION

K_sM_LM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 829]         THETA_HW_CW
    Set   [bc_theta.f, 1011]           THETA_HW_CW
    Use   [bc_theta.f, 1062]           THETA_HW_CW

K_t    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mo.f, 42]     SET_BC_PIC_MO
    Set   [set_bc_pic_mo.f, 96]        SET_BC_PIC_MO
    Set   [set_bc_pic_mo.f, 105]       SET_BC_PIC_MO
    Set   [set_bc_pic_mo.f, 106]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 113]       SET_BC_PIC_MO
    Use   [set_bc_pic_mo.f, 117]       SET_BC_PIC_MO

K_t    (Local Variable)  Declared as: INTEGER
    Define   [get_ps.f, 35]            GET_PS
    Use Argument   [get_ps.f, 104]     GET_PS
    Use Argument   [get_ps.f, 111]     GET_PS
    Use   [get_ps.f, 115]              GET_PS

K_t    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 416]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 489]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 495]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 499]   CHECK_BC_GEOMETRY_FLOW

K_t    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 227]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 302]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 306]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 311]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 314]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 322]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 325]   CHECK_BC_GEOMETRY_WALL

K_t    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mi.f, 352]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 408]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 417]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 418]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 425]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 429]       SET_DEM_BCMI_IJK

K_T    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3070]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3101]            SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3105]   SETUP_VTK_REGION
    Use   [vtk_out.f, 3169]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3228]            SETUP_VTK_REGION

K_t    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_k.f, 30]          MOD_BC_K
    Set   [mod_bc_k.f, 49]             MOD_BC_K
    Set   [mod_bc_k.f, 66]             MOD_BC_K
    Use   [mod_bc_k.f, 66]             MOD_BC_K
    Set   [mod_bc_k.f, 70]             MOD_BC_K
    Use   [mod_bc_k.f, 70]             MOD_BC_K
    Use Argument   [mod_bc_k.f, 79]    MOD_BC_K
    Use   [mod_bc_k.f, 87]             MOD_BC_K
    Use   [mod_bc_k.f, 101]            MOD_BC_K

K_t    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mi.f, 159]    SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 215]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 224]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 225]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 232]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 236]       SET_PIC_BCMI_IJK

K_t    (Local Variable)  Declared as: INTEGER
    Define   [check_initial_conditions.f, 130]   CHECK_IC_GEOMETRY
    Set   [check_initial_conditions.f, 302]   CHECK_IC_GEOMETRY
    Use Argument   [check_initial_conditions.f, 306]   CHECK_IC_GEOMETRY
    Use Argument   [check_initial_conditions.f, 310]   CHECK_IC_GEOMETRY
    Use   [check_initial_conditions.f, 313]   CHECK_IC_GEOMETRY

K_t    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mo.f, 42]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 104]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 113]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 114]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 121]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 125]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 145]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 147]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 155]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 155]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 162]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 166]       SET_BC_DEM_MO

K_t    (Local Variable)  Declared as: INTEGER
    Define   [get_is.f, 35]            GET_IS
    Use Argument   [get_is.f, 104]     GET_IS
    Use Argument   [get_is.f, 111]     GET_IS
    Use   [get_is.f, 115]              GET_IS

K_TMP    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3071]         SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3123]   SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3124]   SETUP_VTK_REGION

K_v    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_population_eq.f, 13]   Source_population_eq
    Set   [source_population_eq.f, 18]   Source_population_eq
    Use   [source_population_eq.f, 25]   Source_population_eq
    Use   [source_population_eq.f, 202]   Source_population_eq
    Use   [source_population_eq.f, 214]   Source_population_eq

K_WALL    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_k.f, 41]          MOD_BC_K
    Set   [mod_bc_k.f, 104]            MOD_BC_K
    Use   [mod_bc_k.f, 105]            MOD_BC_K
    Use   [mod_bc_k.f, 105]            MOD_BC_K
    Use   [mod_bc_k.f, 114]            MOD_BC_K
    Use   [mod_bc_k.f, 116]            MOD_BC_K
    Use   [mod_bc_k.f, 118]            MOD_BC_K
    Use   [mod_bc_k.f, 146]            MOD_BC_K
    Use   [mod_bc_k.f, 148]            MOD_BC_K
    Use   [mod_bc_k.f, 150]            MOD_BC_K
    Use   [mod_bc_k.f, 157]            MOD_BC_K

Kappa    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 147]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 166]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 433]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 452]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 480]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 501]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 528]      K_Epsilon_PROP

Kappa    (Local Variable)  Declared as: DOUBLE PRECISION PARAMETER
    Define   [source_u_g.f, 967]       Wall_Function
    Set   [source_u_g.f, 967]          Wall_Function
    Use   [source_u_g.f, 980]          Wall_Function

kappa    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [shear_viscosity.f, 16]   shear_viscosity
    Declare   [shear_viscosity.f, 23]   shear_viscosity
    Use   [shear_viscosity.f, 99]      shear_viscosity

Kappa    (Local Variable)  Declared as: DOUBLE PRECISION PARAMETER
    Define   [source_w_g.f, 460]       SOURCE_W_G_BC
    Set   [source_w_g.f, 460]          SOURCE_W_G_BC
    Use   [source_w_g.f, 810]          SOURCE_W_G_BC
    Use   [source_w_g.f, 829]          SOURCE_W_G_BC

kappa    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [ghd.f, 14]               GHD_MODEL
    Declare   [ghd.f, 41]              GHD_MODEL
    Set   [ghd.f, 101]                 GHD_MODEL
    Use Argument   [ghd.f, 167]        GHD_MODEL
    Use Argument   [ghd.f, 173]        GHD_MODEL
    Set   [ghd.f, 220]                 GHD_MODEL
    Use   [ghd.f, 220]                 GHD_MODEL

kappa    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [bulk_viscosity.f, 15]    bulk_viscosity
    Declare   [bulk_viscosity.f, 21]   bulk_viscosity
    Set   [bulk_viscosity.f, 28]       bulk_viscosity
    Set   [bulk_viscosity.f, 31]       bulk_viscosity
    Use   [bulk_viscosity.f, 31]       bulk_viscosity
    Set   [bulk_viscosity.f, 36]       bulk_viscosity
    Use   [bulk_viscosity.f, 36]       bulk_viscosity

kappa0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 834]         THETA_HW_CW
    Set   [bc_theta.f, 1107]           THETA_HW_CW
    Use   [bc_theta.f, 1124]           THETA_HW_CW
    Use   [bc_theta.f, 1128]           THETA_HW_CW
    Use   [bc_theta.f, 1130]           THETA_HW_CW

kappa0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1023]       gt_pde_gd
    Set   [calc_mu_s.f, 1099]          gt_pde_gd
    Use   [calc_mu_s.f, 1118]          gt_pde_gd
    Use   [calc_mu_s.f, 1122]          gt_pde_gd
    Use   [calc_mu_s.f, 1124]          gt_pde_gd
    Use   [calc_mu_s.f, 1126]          gt_pde_gd
    Use   [calc_mu_s.f, 1128]          gt_pde_gd

Kappa_Col    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 841]         THETA_HW_CW
    Set   [bc_theta.f, 921]            THETA_HW_CW
    Use   [bc_theta.f, 925]            THETA_HW_CW

Kappa_Col    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 847]        gt_pde_simonin
    Set   [calc_mu_s.f, 955]           gt_pde_simonin
    Use   [calc_mu_s.f, 957]           gt_pde_simonin

kappa_k_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 834]         THETA_HW_CW
    Set   [bc_theta.f, 1113]           THETA_HW_CW
    Use   [bc_theta.f, 1118]           THETA_HW_CW

kappa_k_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1023]       gt_pde_gd
    Set   [calc_mu_s.f, 1106]          gt_pde_gd
    Use   [calc_mu_s.f, 1112]          gt_pde_gd
    Use   [calc_mu_s.f, 1137]          gt_pde_gd

Kappa_kin    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 840]         THETA_HW_CW
    Set   [bc_theta.f, 917]            THETA_HW_CW
    Use   [bc_theta.f, 921]            THETA_HW_CW
    Use   [bc_theta.f, 925]            THETA_HW_CW

Kappa_kin    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 847]        gt_pde_simonin
    Set   [calc_mu_s.f, 952]           gt_pde_simonin
    Use   [calc_mu_s.f, 956]           gt_pde_simonin
    Use   [calc_mu_s.f, 957]           gt_pde_simonin

kappa_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 835]         THETA_HW_CW
    Set   [bc_theta.f, 1118]           THETA_HW_CW
    Use   [bc_theta.f, 1135]           THETA_HW_CW

kappa_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1024]       gt_pde_gd
    Set   [calc_mu_s.f, 1112]          gt_pde_gd
    Use   [calc_mu_s.f, 1132]          gt_pde_gd

KB    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 49]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 132]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 143]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 183]   COMP_MEAN_FIELDS0

kb    (Local Variable)  Declared as: INTEGER
    Define   [dgtsl.f, 14]             dgtsl
    Set   [dgtsl.f, 116]               dgtsl
    Use   [dgtsl.f, 117]               dgtsl

KB    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 48]      DRAG_GS_DES0
    Set   [drag_gs_des0.f, 114]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 123]        DRAG_GS_DES0

KB    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 252]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 325]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 334]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 398]        DRAG_GS_GAS0

kb    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 661]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 847]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 856]        MPPIC_COMPUTE_PS_GRAD

KC    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 50]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 99]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 103]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 104]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 105]   CALC_INTERP_WEIGHTS1

Kcp    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_k_cp.f, 25]         CALC_K_cp
    Declare   [calc_k_cp.f, 51]        CALC_K_cp
    Set   [calc_k_cp.f, 70]            CALC_K_cp
    Set   [calc_k_cp.f, 202]           CALC_K_cp
    Set   [calc_k_cp.f, 206]           CALC_K_cp
    Set   [calc_k_cp.f, 220]           CALC_K_cp
    Set   [calc_k_cp.f, 224]           CALC_K_cp
    Use   [calc_k_cp.f, 224]           CALC_K_cp
    Set   [calc_k_cp.f, 229]           CALC_K_cp
    Set   [calc_k_cp.f, 237]           CALC_K_cp
    Use Argument   [calc_k_cp.f, 243]   CALC_K_cp

KCUR    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 46]   COMP_MEAN_FIELDS0

KEEP    (Local Variable)  Declared as: LOGICAL
    Define   [get_cut_cell_volume_area.f, 1117]   GET_POLYGON_AREA_AND_CENTROID
    Set   [get_cut_cell_volume_area.f, 1126]   GET_POLYGON_AREA_AND_CENTROID
    Set   [get_cut_cell_volume_area.f, 1132]   GET_POLYGON_AREA_AND_CENTROID
    Use   [get_cut_cell_volume_area.f, 1139]   GET_POLYGON_AREA_AND_CENTROID

KEEP    (Local Variable)  Declared as: LOGICAL
    Define   [get_cut_cell_volume_area.f, 1275]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1284]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1290]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1297]   REORDER_POLYGON

KEEP_NEW_POINT    (Local Variable)  Declared as: LOGICAL ALLOCATABLE
    Define   [vtk_out.f, 2823]         CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2829]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2829]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2835]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2848]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2855]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2874]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2899]            CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2927]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2927]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2933]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2946]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2953]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2972]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2997]            CLEAN_GEOMETRY

KEEP_POINT    (Local Variable)  Declared as: LOGICAL ALLOCATABLE
    Define   [vtk_out.f, 2822]         CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2832]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2832]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2839]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2847]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2854]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2867]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2891]            CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2930]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2930]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2937]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2945]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2952]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2965]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2989]            CLEAN_GEOMETRY

KEEP_READING    (Local Variable)  Declared as: LOGICAL
    Define   [get_stl_data.f, 678]     GET_STL_DATA
    Set   [get_stl_data.f, 822]        GET_STL_DATA
    Use   [get_stl_data.f, 824]        GET_STL_DATA

KEEP_XDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3075]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3147]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3149]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3152]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3177]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3206]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3208]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3211]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3236]            SETUP_VTK_REGION

KEEP_YDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3075]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3157]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3159]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3162]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3177]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3216]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3218]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3221]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3236]            SETUP_VTK_REGION

KEEP_ZDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3075]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3167]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3169]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3172]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3177]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3226]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3228]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3231]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3236]            SETUP_VTK_REGION

kendl    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 689]        leq_check
    Set   [leq_gmres.f, 697]           leq_check
    Set   [leq_gmres.f, 705]           leq_check
    Use   [leq_gmres.f, 710]           leq_check

KFLUID    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 334]   PIC_MI_BC
    Set   [pic_bc_routines.f, 393]     PIC_MI_BC
    Use   [pic_bc_routines.f, 400]     PIC_MI_BC
    Use   [pic_bc_routines.f, 400]     PIC_MI_BC
    Use   [pic_bc_routines.f, 404]     PIC_MI_BC
    Use   [pic_bc_routines.f, 477]     PIC_MI_BC

Kg_micro    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_k_s.f, 78]          CALC_K_S
    Set   [calc_k_s.f, 90]             CALC_K_S
    Set   [calc_k_s.f, 92]             CALC_K_S
    Use   [calc_k_s.f, 98]             CALC_K_S
    Use   [calc_k_s.f, 106]            CALC_K_S

Kgran    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 814]         THETA_HW_CW
    Set   [bc_theta.f, 884]            THETA_HW_CW
    Use   [bc_theta.f, 888]            THETA_HW_CW
    Use   [bc_theta.f, 892]            THETA_HW_CW
    Use   [bc_theta.f, 894]            THETA_HW_CW
    Set   [bc_theta.f, 954]            THETA_HW_CW
    Use   [bc_theta.f, 957]            THETA_HW_CW
    Use   [bc_theta.f, 961]            THETA_HW_CW
    Use   [bc_theta.f, 962]            THETA_HW_CW

Kgran_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 816]         THETA_HW_CW
    Set   [bc_theta.f, 888]            THETA_HW_CW
    Set   [bc_theta.f, 890]            THETA_HW_CW
    Set   [bc_theta.f, 892]            THETA_HW_CW
    Use   [bc_theta.f, 898]            THETA_HW_CW
    Set   [bc_theta.f, 957]            THETA_HW_CW
    Set   [bc_theta.f, 959]            THETA_HW_CW
    Set   [bc_theta.f, 961]            THETA_HW_CW
    Use   [bc_theta.f, 965]            THETA_HW_CW
    Set   [bc_theta.f, 1124]           THETA_HW_CW
    Set   [bc_theta.f, 1126]           THETA_HW_CW
    Set   [bc_theta.f, 1128]           THETA_HW_CW
    Use   [bc_theta.f, 1135]           THETA_HW_CW

kintheory.A2_gtsh    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 62]     kintheory
    Set   [allocate_arrays.f, 396]     ALLOCATE_ARRAYS
    Use   [calc_mu_s.f, 1264]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1273]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1296]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1306]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1307]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1312]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1381]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1383]          gt_pde_gtsh
    Set   [set_constprop.f, 85]        SET_CONSTPROP
    Set   [kintheory_energy_dissipation_ss.f, 407]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 417]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 427]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 432]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 439]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 440]   CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.ED_ss_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 54]     kintheory
    Set   [allocate_arrays.f, 393]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 76]        SET_CONSTPROP
    Set   [kintheory_energy_dissipation_ss.f, 92]   CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 147]   CALC_IA_ENERGY_DISSIPATION_SS
    Use   [vtc_scalar.f, 57]           CALC_VTC_SS

kintheory.EDT_s_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 56]     kintheory
    Set   [allocate_arrays.f, 402]     ALLOCATE_ARRAYS
    Use   [source_granular_energy.f, 728]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 729]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 441]   SOURCE_GRANULAR_ENERGY_IA
    Use   [calc_mu_s.f, 1267]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1305]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1377]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1380]          gt_pde_gtsh
    Set   [set_constprop.f, 81]        SET_CONSTPROP
    Set   [kintheory_energy_dissipation_ss.f, 290]   CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 426]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 442]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 95]   CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 151]   CALC_IA_ENERGY_DISSIPATION_SS

kintheory.EDvel_sL_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 60]     kintheory
    Set   [allocate_arrays.f, 392]     ALLOCATE_ARRAYS
    Use   [source_granular_energy.f, 445]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 447]   SOURCE_GRANULAR_ENERGY_IA
    Set   [set_constprop.f, 77]        SET_CONSTPROP
    Set   [kintheory_energy_dissipation_ss.f, 104]   CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 114]   CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 162]   CALC_IA_ENERGY_DISSIPATION_SS

kintheory.EDvel_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 58]     kintheory
    Set   [allocate_arrays.f, 403]     ALLOCATE_ARRAYS
    Use   [source_granular_energy.f, 733]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 734]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 452]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 454]   SOURCE_GRANULAR_ENERGY_IA
    Set   [set_constprop.f, 82]        SET_CONSTPROP
    Set   [kintheory_energy_dissipation_ss.f, 286]   CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 445]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 114]   CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_energy_dissipation_ss.f, 173]   CALC_IA_ENERGY_DISSIPATION_SS

kintheory.Fnu_s_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 28]     kintheory
    Set   [allocate_arrays.f, 385]     ALLOCATE_ARRAYS
    Use Argument   [kintheory_v_s.f, 236]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 236]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_u_s.f, 264]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 264]   CALC_IA_MOMSOURCE_U_S
    Set   [drag_ss.f, 286]             DRAG_SS_IA
    Set   [drag_ss.f, 363]             DRAG_SS_IA
    Set   [drag_ss.f, 373]             DRAG_SS_IA
    Set   [set_constprop.f, 69]        SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 286]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 286]   CALC_IA_MOMSOURCE_W_S

kintheory.FT_sL_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 33]     kintheory
    Set   [allocate_arrays.f, 387]     ALLOCATE_ARRAYS
    Use Argument   [kintheory_v_s.f, 254]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 254]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_u_s.f, 282]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 282]   CALC_IA_MOMSOURCE_U_S
    Set   [drag_ss.f, 288]             DRAG_SS_IA
    Set   [drag_ss.f, 370]             DRAG_SS_IA
    Set   [drag_ss.f, 375]             DRAG_SS_IA
    Set   [set_constprop.f, 71]        SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 304]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 304]   CALC_IA_MOMSOURCE_W_S

kintheory.FT_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 31]     kintheory
    Set   [allocate_arrays.f, 386]     ALLOCATE_ARRAYS
    Use Argument   [kintheory_v_s.f, 246]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 246]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_u_s.f, 274]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 274]   CALC_IA_MOMSOURCE_U_S
    Set   [drag_ss.f, 287]             DRAG_SS_IA
    Set   [drag_ss.f, 368]             DRAG_SS_IA
    Set   [drag_ss.f, 374]             DRAG_SS_IA
    Set   [set_constprop.f, 70]        SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 296]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 296]   CALC_IA_MOMSOURCE_W_S

kintheory.Knu_sL_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 45]     kintheory
    Set   [allocate_arrays.f, 390]     ALLOCATE_ARRAYS
    Use Argument   [source_granular_energy.f, 506]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 506]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 508]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 508]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 510]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 510]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 512]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 512]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 514]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 514]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 516]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 516]   SOURCE_GRANULAR_ENERGY_IA
    Set   [calc_mu_s.f, 1663]          gt_pde_ia
    Set   [calc_mu_s.f, 1761]          gt_pde_ia
    Use   [calc_mu_s.f, 1767]          gt_pde_ia
    Set   [calc_mu_s.f, 1768]          gt_pde_ia
    Use   [calc_mu_s.f, 1768]          gt_pde_ia
    Set   [set_constprop.f, 74]        SET_CONSTPROP

kintheory.Knu_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 43]     kintheory
    Set   [allocate_arrays.f, 389]     ALLOCATE_ARRAYS
    Use Argument   [source_granular_energy.f, 507]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 507]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 509]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 509]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 511]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 511]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 513]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 513]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 515]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 515]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 517]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 517]   SOURCE_GRANULAR_ENERGY_IA
    Set   [calc_mu_s.f, 1667]          gt_pde_ia
    Set   [calc_mu_s.f, 1767]          gt_pde_ia
    Set   [set_constprop.f, 73]        SET_CONSTPROP

kintheory.Kth_sL_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 41]     kintheory
    Set   [allocate_arrays.f, 388]     ALLOCATE_ARRAYS
    Use Argument   [source_granular_energy.f, 486]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 486]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 487]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 487]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 488]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 488]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 489]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 489]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 490]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 490]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 491]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 491]   SOURCE_GRANULAR_ENERGY_IA
    Set   [calc_mu_s.f, 1750]          gt_pde_ia
    Use   [calc_mu_s.f, 1750]          gt_pde_ia
    Set   [set_constprop.f, 72]        SET_CONSTPROP

kintheory.KTMOM_U_s    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 67]     kintheory
    Set   [allocate_arrays.f, 373]     ALLOCATE_ARRAYS
    Use   [source_u_s.f, 453]          SOURCE_U_S
    Set   [kintheory_u_s.f, 301]       CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 303]       CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 43]        CALC_KTMOMSOURCE_U_S

kintheory.KTMOM_V_s    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 68]     kintheory
    Use   [source_v_s.f, 447]          SOURCE_V_S
    Set   [allocate_arrays.f, 374]     ALLOCATE_ARRAYS
    Set   [kintheory_v_s.f, 273]       CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 275]       CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 43]        CALC_KTMOMSOURCE_V_S

kintheory.KTMOM_W_s    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 69]     kintheory
    Set   [allocate_arrays.f, 375]     ALLOCATE_ARRAYS
    Use   [source_w_s.f, 490]          SOURCE_W_S
    Set   [kintheory_w_s.f, 322]       CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 324]       CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 38]        CALC_KTMOMSOURCE_W_S

kintheory.Kvel_s_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 47]     kintheory
    Set   [allocate_arrays.f, 391]     ALLOCATE_ARRAYS
    Use Argument   [source_granular_energy.f, 535]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 535]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 536]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 536]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 537]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 537]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 538]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 538]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 539]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 539]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 540]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 540]   SOURCE_GRANULAR_ENERGY_IA
    Set   [calc_mu_s.f, 1655]          gt_pde_ia
    Set   [calc_mu_s.f, 1755]          gt_pde_ia
    Set   [set_constprop.f, 75]        SET_CONSTPROP

kintheory.MU_sL_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 16]     kintheory
    Set   [allocate_arrays.f, 382]     ALLOCATE_ARRAYS
    Use   [source_granular_energy.f, 462]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 464]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 477]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 480]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [kintheory_v_s.f, 187]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 187]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 188]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 188]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 189]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 189]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 190]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 190]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 194]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 195]       CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 199]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 199]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 200]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 200]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 201]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 201]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 202]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 202]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_u_s.f, 189]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 190]       CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 194]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 194]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 195]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 195]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 196]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 196]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 197]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 197]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 201]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 201]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 202]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 202]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 203]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 203]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 204]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 204]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 234]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 234]   CALC_IA_MOMSOURCE_U_S
    Set   [calc_mu_s.f, 1540]          gt_pde_ia
    Set   [calc_mu_s.f, 1588]          gt_pde_ia
    Use   [calc_mu_s.f, 1610]          gt_pde_ia
    Set   [set_constprop.f, 66]        SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 184]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 184]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 185]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 185]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 186]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 186]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 187]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 187]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 191]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 191]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 192]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 192]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 193]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 193]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 194]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 194]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 198]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 199]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 230]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 230]   CALC_IA_MOMSOURCE_W_S

kintheory.MU_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 14]     kintheory
    Set   [allocate_arrays.f, 381]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1537]          gt_pde_ia
    Set   [calc_mu_s.f, 1584]          gt_pde_ia
    Use   [calc_mu_s.f, 1600]          gt_pde_ia
    Set   [set_constprop.f, 65]        SET_CONSTPROP

kintheory.XI_sL_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 20]     kintheory
    Set   [allocate_arrays.f, 384]     ALLOCATE_ARRAYS
    Use   [source_granular_energy.f, 477]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 480]   SOURCE_GRANULAR_ENERGY_IA
    Use   [kintheory_v_s.f, 207]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 208]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_u_s.f, 209]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 210]       CALC_IA_MOMSOURCE_U_S
    Set   [calc_mu_s.f, 1548]          gt_pde_ia
    Set   [calc_mu_s.f, 1596]          gt_pde_ia
    Use   [calc_mu_s.f, 1611]          gt_pde_ia
    Set   [set_constprop.f, 68]        SET_CONSTPROP
    Use   [kintheory_w_s.f, 204]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 205]       CALC_IA_MOMSOURCE_W_S

kintheory.XI_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 18]     kintheory
    Set   [allocate_arrays.f, 383]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1544]          gt_pde_ia
    Set   [calc_mu_s.f, 1592]          gt_pde_ia
    Use   [calc_mu_s.f, 1601]          gt_pde_ia
    Set   [set_constprop.f, 67]        SET_CONSTPROP

kintheory.xsi_gtsh    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 63]     kintheory
    Set   [allocate_arrays.f, 397]     ALLOCATE_ARRAYS
    Use   [source_granular_energy.f, 746]   SOURCE_GRANULAR_ENERGY_GD
    Use   [calc_mu_s.f, 1267]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1289]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1378]          gt_pde_gtsh
    Set   [set_constprop.f, 86]        SET_CONSTPROP
    Set   [kintheory_energy_dissipation_ss.f, 391]   CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_energy_dissipation_ss.f, 442]   CALC_GTSH_ENERGY_DISSIPATION_SS

KK    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1918]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 2009]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2012]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 2037]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 2040]   GET_POTENTIAL_CUT_CELLS

KK    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 64]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 556]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 559]   SET_3D_CUT_CELL_FLAGS

KK    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 35]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 68]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 71]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 72]      MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 153]     MAKE_ARRAYS_DES
    Use Argument   [make_arrays_des.f, 156]   MAKE_ARRAYS_DES

KK    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 43]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 143]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 144]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 148]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 183]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 185]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 239]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 243]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 263]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 266]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 338]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 341]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 343]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 344]   COMP_MEAN_FIELDS0

KK    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 468]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 499]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 502]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 502]   DRAG_WEIGHTFACTOR

kk    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 597]       gatherWriteSpx_netcdf
    Set   [write_spx1.f, 609]          gatherWriteSpx_netcdf
    Use   [write_spx1.f, 613]          gatherWriteSpx_netcdf

kk    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 641]       gatherWriteSpx_netcdf_int
    Set   [write_spx1.f, 653]          gatherWriteSpx_netcdf_int
    Use   [write_spx1.f, 657]          gatherWriteSpx_netcdf_int

kk    (Local Variable)  Declared as: INTEGER
    Define   [mass_mobility.f, 22]     mass_mobility
    Set   [mass_mobility.f, 51]        mass_mobility
    Use   [mass_mobility.f, 58]        mass_mobility
    Use   [mass_mobility.f, 65]        mass_mobility

kk    (Local Variable)  Declared as: INTEGER
    Define   [dufour_coeff.f, 32]      dufour_coeff
    Set   [dufour_coeff.f, 118]        dufour_coeff
    Use   [dufour_coeff.f, 125]        dufour_coeff
    Use   [dufour_coeff.f, 132]        dufour_coeff

kk    (Local Variable)  Declared as: INTEGER
    Define   [ghdmassflux.f, 442]      UpdateSpeciesVelocities
    Set   [ghdmassflux.f, 512]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 513]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 513]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 513]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 514]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 514]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 514]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 515]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 516]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 516]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 518]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 518]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 520]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 521]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 523]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 523]         UpdateSpeciesVelocities
    Set   [ghdmassflux.f, 604]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 606]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 606]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 606]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 607]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 607]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 607]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 609]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 610]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 610]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 612]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 612]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 615]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 616]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 618]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 618]         UpdateSpeciesVelocities
    Set   [ghdmassflux.f, 698]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 699]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 699]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 699]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 700]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 700]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 700]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 701]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 702]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 702]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 704]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 704]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 706]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 707]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 709]         UpdateSpeciesVelocities
    Use   [ghdmassflux.f, 709]         UpdateSpeciesVelocities

KK    (Local Variable)  Declared as: INTEGER
    Define   [des_time_march.f, 50]    DES_TIME_MARCH

kk    (Local Variable)  Declared as: INTEGER
    Define   [chi_ij_GHD.f, 13]        chi_ij_GHD
    Set   [chi_ij_GHD.f, 21]           chi_ij_GHD
    Use   [chi_ij_GHD.f, 22]           chi_ij_GHD
    Use   [chi_ij_GHD.f, 22]           chi_ij_GHD

kk    (Local Variable)  Declared as: INTEGER
    Define   [thermal_mobility.f, 28]   thermal_mobility
    Set   [thermal_mobility.f, 78]     thermal_mobility
    Use   [thermal_mobility.f, 85]     thermal_mobility
    Use   [thermal_mobility.f, 92]     thermal_mobility

kk    (Local Variable)  Declared as: INTEGER
    Define   [ordinary_diff.f, 30]     ordinary_diff
    Set   [ordinary_diff.f, 381]       ordinary_diff
    Use   [ordinary_diff.f, 388]       ordinary_diff
    Use   [ordinary_diff.f, 395]       ordinary_diff

KK    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 43]      DRAG_GS_DES0
    Set   [drag_gs_des0.f, 123]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 124]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 125]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 126]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 127]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 131]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 136]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 137]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 138]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 139]        DRAG_GS_DES0

KK    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 246]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 334]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 335]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 336]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 337]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 338]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 341]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 346]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 347]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 348]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 349]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 398]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 402]        DRAG_GS_GAS0

KK    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 502]     DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 536]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 539]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 539]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 540]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 540]        DRAG_INTERPOLATION

kk    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 690]        leq_check
    Set   [leq_gmres.f, 741]           leq_check
    Use   [leq_gmres.f, 744]           leq_check
    Use   [leq_gmres.f, 744]           leq_check

KK    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 192]        LEQ_GMRES0
    Set   [leq_gmres.f, 248]           LEQ_GMRES0
    Use   [leq_gmres.f, 251]           LEQ_GMRES0
    Set   [leq_gmres.f, 283]           LEQ_GMRES0
    Use   [leq_gmres.f, 286]           LEQ_GMRES0
    Set   [leq_gmres.f, 301]           LEQ_GMRES0
    Use   [leq_gmres.f, 304]           LEQ_GMRES0
    Set   [leq_gmres.f, 328]           LEQ_GMRES0
    Use   [leq_gmres.f, 331]           LEQ_GMRES0
    Set   [leq_gmres.f, 345]           LEQ_GMRES0
    Use   [leq_gmres.f, 348]           LEQ_GMRES0
    Set   [leq_gmres.f, 438]           LEQ_GMRES0
    Use   [leq_gmres.f, 441]           LEQ_GMRES0
    Set   [leq_gmres.f, 518]           LEQ_GMRES0
    Use   [leq_gmres.f, 521]           LEQ_GMRES0
    Set   [leq_gmres.f, 532]           LEQ_GMRES0
    Use   [leq_gmres.f, 535]           LEQ_GMRES0
    Set   [leq_gmres.f, 575]           LEQ_GMRES0
    Use   [leq_gmres.f, 578]           LEQ_GMRES0

KK    (Local Variable)  Declared as: INTEGER
    Define   [nsquare.f, 32]           NSQUARE
    Set   [nsquare.f, 62]              NSQUARE
    Set   [nsquare.f, 86]              NSQUARE
    Use   [nsquare.f, 87]              NSQUARE
    Set   [nsquare.f, 89]              NSQUARE
    Use   [nsquare.f, 90]              NSQUARE
    Use   [nsquare.f, 103]             NSQUARE

kk    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 397]   RE_INDEX_ARRAYS

kk    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2671]   WRITE_IJK_VALUES

KK    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 332]     MPPIC_COMP_EULERIAN_VELS_CG

KK    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 249]     MPPIC_COMP_EULERIAN_VELS_NON_CG

kk    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 663]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 856]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 857]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 858]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 859]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 860]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 879]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 880]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 881]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 882]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 893]        MPPIC_COMPUTE_PS_GRAD

KK1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [set_wall_bc.f, 216]      SET_WALL_BC1
    Declare   [set_wall_bc.f, 242]     SET_WALL_BC1
    Use   [set_wall_bc.f, 263]         SET_WALL_BC1

KK2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [set_wall_bc.f, 216]      SET_WALL_BC1
    Declare   [set_wall_bc.f, 242]     SET_WALL_BC1
    Use   [set_wall_bc.f, 264]         SET_WALL_BC1

klistsize    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4073]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4260]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4262]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4263]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4273]   REPORT_BEST_IJK_SIZE

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1404]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1442]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1446]   SET_3D_CUT_CELL_TREATMENT_FLAGS

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 1004]      JJ_BC_V_S
    Set   [source_v_s.f, 1018]         JJ_BC_V_S
    Use   [source_v_s.f, 1121]         JJ_BC_V_S
    Use   [source_v_s.f, 1122]         JJ_BC_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 532]       SOURCE_V_S_BC
    Set   [source_v_s.f, 753]          SOURCE_V_S_BC
    Use   [source_v_s.f, 800]          SOURCE_V_S_BC
    Use   [source_v_s.f, 802]          SOURCE_V_S_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_g.f, 93]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 274]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 285]       CG_SOURCE_W_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_granular_energy.f, 87]   SOURCE_GRANULAR_ENERGY
    Set   [source_granular_energy.f, 113]   SOURCE_GRANULAR_ENERGY
    Use Argument   [source_granular_energy.f, 207]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 220]   SOURCE_GRANULAR_ENERGY

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_granular_energy.f, 631]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 664]   SOURCE_GRANULAR_ENERGY_GD
    Use Argument   [source_granular_energy.f, 756]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 773]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 774]   SOURCE_GRANULAR_ENERGY_GD

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_granular_energy.f, 298]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 342]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 491]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 501]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 516]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 517]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 530]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 540]   SOURCE_GRANULAR_ENERGY_IA

KM    (Local Variable)  Declared as: INTEGER
    Define   [k_epsilon_prop.f, 78]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 193]      K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 219]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 227]   K_Epsilon_PROP

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 414]       SOURCE_U_G_BC
    Set   [source_u_g.f, 650]          SOURCE_U_G_BC
    Use   [source_u_g.f, 695]          SOURCE_U_G_BC
    Use   [source_u_g.f, 697]          SOURCE_U_G_BC
    Set   [source_u_g.f, 725]          SOURCE_U_G_BC
    Use   [source_u_g.f, 750]          SOURCE_U_G_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 198]     CONV_DIF_PHI0
    Set   [conv_dif_phi.f, 358]        CONV_DIF_PHI0
    Use Argument   [conv_dif_phi.f, 361]   CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 361]        CONV_DIF_PHI0
    Use Argument   [conv_dif_phi.f, 368]   CONV_DIF_PHI0
    Use   [conv_dif_phi.f, 368]        CONV_DIF_PHI0

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 818]     CONV_DIF_PHI1
    Set   [conv_dif_phi.f, 993]        CONV_DIF_PHI1
    Use Argument   [conv_dif_phi.f, 996]   CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 996]        CONV_DIF_PHI1
    Use Argument   [conv_dif_phi.f, 1003]   CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 1003]       CONV_DIF_PHI1

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 146]     STORE_A_U_S0
    Set   [conv_dif_u_s.f, 313]        STORE_A_U_S0
    Use Argument   [conv_dif_u_s.f, 323]   STORE_A_U_S0
    Use Argument   [conv_dif_u_s.f, 324]   STORE_A_U_S0
    Use Argument   [conv_dif_u_s.f, 328]   STORE_A_U_S0
    Use Argument   [conv_dif_u_s.f, 329]   STORE_A_U_S0
    Use   [conv_dif_u_s.f, 330]        STORE_A_U_S0

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 813]     STORE_A_U_S1
    Set   [conv_dif_u_s.f, 1040]       STORE_A_U_S1
    Use Argument   [conv_dif_u_s.f, 1050]   STORE_A_U_S1
    Use Argument   [conv_dif_u_s.f, 1051]   STORE_A_U_S1
    Use Argument   [conv_dif_u_s.f, 1055]   STORE_A_U_S1
    Use Argument   [conv_dif_u_s.f, 1056]   STORE_A_U_S1
    Use   [conv_dif_u_s.f, 1057]       STORE_A_U_S1

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 412]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 707]        STORE_A_U_SDC

KM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_v_s.f, 113]    CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 155]       CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 201]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 202]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 204]       CALC_IA_MOMSOURCE_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 45]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 226]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 227]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 228]      DIF_PHI_BC_DES

KM    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 290]   DIF_PHI_BC_DES_CG
    Set   [dif_phi_bc_des.f, 357]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 358]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 359]      DIF_PHI_BC_DES_CG

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_s.f, 71]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 248]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 257]       CG_SOURCE_W_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1012]      JJ_BC_U_S
    Set   [source_u_s.f, 1026]         JJ_BC_U_S
    Use   [source_u_s.f, 1129]         JJ_BC_U_S
    Use   [source_u_s.f, 1130]         JJ_BC_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 537]       SOURCE_U_S_BC
    Set   [source_u_s.f, 758]          SOURCE_U_S_BC
    Use   [source_u_s.f, 805]          SOURCE_U_S_BC
    Use   [source_u_s.f, 807]          SOURCE_U_S_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 89]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 212]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 244]   CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 245]   CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 268]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 279]       CG_SOURCE_V_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 409]    CG_SOURCE_V_G_BC
    Set   [CG_source_v_g.f, 470]       CG_SOURCE_V_G_BC
    Set   [CG_source_v_g.f, 582]       CG_SOURCE_V_G_BC

Km    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 51]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 84]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 89]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 99]   CALC_INTERP_WEIGHTS1

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_ghd_granular_energy.f, 55]   SOURCE_GHD_GRANULAR_ENERGY
    Set   [source_ghd_granular_energy.f, 99]   SOURCE_GHD_GRANULAR_ENERGY
    Use Argument   [source_ghd_granular_energy.f, 234]   SOURCE_GHD_GRANULAR_ENERGY
    Use Argument   [source_ghd_granular_energy.f, 235]   SOURCE_GHD_GRANULAR_ENERGY
    Use   [source_ghd_granular_energy.f, 244]   SOURCE_GHD_GRANULAR_ENERGY
    Use Argument   [source_ghd_granular_energy.f, 299]   SOURCE_GHD_GRANULAR_ENERGY
    Use Argument   [source_ghd_granular_energy.f, 300]   SOURCE_GHD_GRANULAR_ENERGY

KM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_u_s.f, 113]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 157]       CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 203]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 204]   CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 206]       CALC_IA_MOMSOURCE_U_S

KM    (Dummy Argument)  Declared as: INTEGER
    Define   [set_index1.f, 38]        SET_INDEX1
    Declare   [set_index1.f, 67]       SET_INDEX1
    Set   [set_index1.f, 77]           SET_INDEX1

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 157]     STORE_A_W_G0
    Set   [conv_dif_w_g.f, 356]        STORE_A_W_G0

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 918]     STORE_A_W_G1
    Set   [conv_dif_w_g.f, 1162]       STORE_A_W_G1

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 463]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 794]        STORE_A_W_GDC

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_s.f, 69]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 197]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 222]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 223]   CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 241]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 250]       CG_SOURCE_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 34]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 84]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 94]            GET_3D_ALPHA_U_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 453]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 502]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 512]           GET_3D_ALPHA_V_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 879]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 926]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 936]           GET_3D_ALPHA_W_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_g.f, 74]           CALC_TAU_V_G
    Set   [tau_v_g.f, 119]             CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 154]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 155]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 183]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 184]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 374]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 375]    CALC_TAU_V_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 91]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 219]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 249]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 250]   CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 275]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 286]       CG_SOURCE_U_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 414]    CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 473]       CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 587]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 591]       CG_SOURCE_U_G_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_g.f, 74]         CALC_MU_G
    Set   [calc_mu_g.f, 209]           CALC_MU_G
    Use Argument   [calc_mu_g.f, 235]   CALC_MU_G
    Use Argument   [calc_mu_g.f, 243]   CALC_MU_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 62]            BC_PHI
    Set   [bc_phi.f, 247]              BC_PHI
    Use   [bc_phi.f, 325]              BC_PHI
    Use   [bc_phi.f, 327]              BC_PHI

KM    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 504]           BC_PHI_CG
    Set   [bc_phi.f, 540]              BC_PHI_CG
    Use   [bc_phi.f, 662]              BC_PHI_CG
    Use   [bc_phi.f, 663]              BC_PHI_CG

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 147]     STORE_A_W_S0
    Set   [conv_dif_w_s.f, 314]        STORE_A_W_S0

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 804]     STORE_A_W_S1
    Set   [conv_dif_w_s.f, 1030]       STORE_A_W_S1

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 407]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 701]        STORE_A_W_SDC

KM    (Local Variable)  Declared as: INTEGER
    Define   [check_data_20.f, 56]     CHECK_DATA_20
    Use Argument   [check_data_20.f, 102]   CHECK_DATA_20

KM    (Local Variable)  Declared as: INTEGER
    Define   [b_m_p_star.f, 691]       B_M_P_STAR_B
    Set   [b_m_p_star.f, 723]          B_M_P_STAR_B
    Use Argument   [b_m_p_star.f, 733]   B_M_P_STAR_B
    Use Argument   [b_m_p_star.f, 744]   B_M_P_STAR_B
    Use Argument   [b_m_p_star.f, 747]   B_M_P_STAR_B
    Use Argument   [b_m_p_star.f, 750]   B_M_P_STAR_B

KM    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1479]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1638]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1649]   CAD_INTERSECT

KM    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 729]   CLEAN_INTERSECT
    Set   [cut_cell_preprocessing.f, 757]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 767]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 776]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 777]   CLEAN_INTERSECT

KM    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1118]   SET_SNAP_FLAG
    Set   [cut_cell_preprocessing.f, 1146]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1150]   SET_SNAP_FLAG

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_volume_area.f, 37]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 85]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 89]   GET_CUT_CELL_VOLUME_AND_AREAS

KM    (Local Variable)  Declared as: INTEGER
    Define   [calc_vort_out.f, 32]     CALC_VORTICITY
    Set   [calc_vort_out.f, 51]        CALC_VORTICITY
    Use   [calc_vort_out.f, 61]        CALC_VORTICITY

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 164]     STORE_A_V_G0
    Set   [conv_dif_v_g.f, 365]        STORE_A_V_G0
    Use Argument   [conv_dif_v_g.f, 376]   STORE_A_V_G0
    Use Argument   [conv_dif_v_g.f, 377]   STORE_A_V_G0
    Use Argument   [conv_dif_v_g.f, 380]   STORE_A_V_G0
    Use Argument   [conv_dif_v_g.f, 381]   STORE_A_V_G0
    Use   [conv_dif_v_g.f, 381]        STORE_A_V_G0

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 934]     STORE_A_V_G1
    Set   [conv_dif_v_g.f, 1184]       STORE_A_V_G1
    Use Argument   [conv_dif_v_g.f, 1196]   STORE_A_V_G1
    Use Argument   [conv_dif_v_g.f, 1197]   STORE_A_V_G1
    Use Argument   [conv_dif_v_g.f, 1200]   STORE_A_V_G1
    Use Argument   [conv_dif_v_g.f, 1201]   STORE_A_V_G1
    Use   [conv_dif_v_g.f, 1201]       STORE_A_V_G1

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 478]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 809]        STORE_A_V_GDC

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_s.f, 73]           CALC_TAU_V_S
    Set   [tau_v_s.f, 133]             CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 171]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 172]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 205]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 206]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 375]    CALC_TAU_V_S
    Use Argument   [tau_v_s.f, 376]    CALC_TAU_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_s.f, 70]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 206]       CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 233]   CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 234]   CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 253]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 262]       CG_SOURCE_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [bc_theta.f, 71]          BC_THETA
    Set   [bc_theta.f, 100]            BC_THETA
    Use   [bc_theta.f, 253]            BC_THETA
    Use   [bc_theta.f, 254]            BC_THETA

KM    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 2628]       init_mu_s
    Set   [calc_mu_s.f, 2687]          init_mu_s
    Use Argument   [calc_mu_s.f, 2721]   init_mu_s
    Use Argument   [calc_mu_s.f, 2750]   init_mu_s
    Use Argument   [calc_mu_s.f, 2919]   init_mu_s
    Use Argument   [calc_mu_s.f, 2948]   init_mu_s
    Use   [calc_mu_s.f, 3052]          init_mu_s
    Use   [calc_mu_s.f, 3053]          init_mu_s
    Use   [calc_mu_s.f, 3054]          init_mu_s

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_g.f, 73]           CALC_TAU_U_G
    Set   [tau_u_g.f, 125]             CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 160]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 161]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 185]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 186]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 375]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 376]    CALC_TAU_U_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 353]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 366]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 370]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 373]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 374]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 376]    GET_CELL_NODE_COORDINATES

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 35]   GET_CONNECTIVITY
    Set   [get_connectivity.f, 60]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 64]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 67]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 68]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 70]     GET_CONNECTIVITY

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 543]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 556]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 560]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 563]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 564]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 566]    GET_GLOBAL_CELL_NODE_COORDINATES

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 406]       SOURCE_V_G_BC
    Set   [source_v_g.f, 642]          SOURCE_V_G_BC
    Use   [source_v_g.f, 687]          SOURCE_V_G_BC
    Use   [source_v_g.f, 688]          SOURCE_V_G_BC
    Set   [source_v_g.f, 715]          SOURCE_V_G_BC
    Use   [source_v_g.f, 740]          SOURCE_V_G_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_des.f, 47]       DIF_PHI_DES
    Set   [dif_phi_des.f, 136]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 138]   DIF_PHI_DES
    Use   [dif_phi_des.f, 138]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 141]   DIF_PHI_DES
    Use   [dif_phi_des.f, 141]         DIF_PHI_DES

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 146]     STORE_A_V_S0
    Set   [conv_dif_v_s.f, 311]        STORE_A_V_S0
    Use Argument   [conv_dif_v_s.f, 321]   STORE_A_V_S0
    Use Argument   [conv_dif_v_s.f, 322]   STORE_A_V_S0
    Use Argument   [conv_dif_v_s.f, 326]   STORE_A_V_S0
    Use Argument   [conv_dif_v_s.f, 327]   STORE_A_V_S0
    Use   [conv_dif_v_s.f, 328]        STORE_A_V_S0

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 814]     STORE_A_V_S1
    Set   [conv_dif_v_s.f, 1040]       STORE_A_V_S1
    Use Argument   [conv_dif_v_s.f, 1050]   STORE_A_V_S1
    Use Argument   [conv_dif_v_s.f, 1051]   STORE_A_V_S1
    Use Argument   [conv_dif_v_s.f, 1055]   STORE_A_V_S1
    Use Argument   [conv_dif_v_s.f, 1056]   STORE_A_V_S1
    Use   [conv_dif_v_s.f, 1057]       STORE_A_V_S1

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 410]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 707]        STORE_A_V_SDC

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 161]     STORE_A_U_G0
    Set   [conv_dif_u_g.f, 362]        STORE_A_U_G0
    Use Argument   [conv_dif_u_g.f, 373]   STORE_A_U_G0
    Use Argument   [conv_dif_u_g.f, 374]   STORE_A_U_G0
    Use Argument   [conv_dif_u_g.f, 378]   STORE_A_U_G0
    Use Argument   [conv_dif_u_g.f, 379]   STORE_A_U_G0
    Use   [conv_dif_u_g.f, 379]        STORE_A_U_G0

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 947]     STORE_A_U_G1
    Set   [conv_dif_u_g.f, 1199]       STORE_A_U_G1
    Use Argument   [conv_dif_u_g.f, 1211]   STORE_A_U_G1
    Use Argument   [conv_dif_u_g.f, 1212]   STORE_A_U_G1
    Use Argument   [conv_dif_u_g.f, 1216]   STORE_A_U_G1
    Use Argument   [conv_dif_u_g.f, 1217]   STORE_A_U_G1
    Use   [conv_dif_u_g.f, 1217]       STORE_A_U_G1

KM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 478]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 815]        STORE_A_U_GDC

KM    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1042]    MPPIC_BC_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1121]    MPPIC_BC_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1197]    MPPIC_BC_W_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_s.f, 76]           CALC_TAU_U_S
    Set   [tau_u_s.f, 149]             CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 186]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 187]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 218]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 219]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 387]    CALC_TAU_U_S
    Use Argument   [tau_u_s.f, 388]    CALC_TAU_U_S

KM_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 364]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 856]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 872]      RE_INDEX_ARRAYS

KM_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2638]   WRITE_IJK_VALUES

kmax1    (Local Variable)  Declared as: INTEGER
    Define   [odeint.f, 9]             odeint
    Set   [odeint.f, 20]               odeint
    Use   [odeint.f, 32]               odeint
    Use   [odeint.f, 39]               odeint
    Use   [odeint.f, 41]               odeint
    Use   [odeint.f, 62]               odeint

KMAXX    (Local Variable)  Declared as: INTEGER PARAMETER
    Define   [odeint.f, 5]             odeint
    Declare   [odeint.f, 8]            odeint
    Set   [odeint.f, 8]                odeint
    Use   [odeint.f, 11]               odeint
    Use   [odeint.f, 11]               odeint

KMINUS1    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 38]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 134]     MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 153]     MAKE_ARRAYS_DES

KMINUS1    (Local Variable)  Declared as: INTEGER
    Define   [des_time_march.f, 51]    DES_TIME_MARCH

KMINUS1    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 817]   CHECK_IF_PARCEL_OVELAPS_STL
    Set   [pic_bc_routines.f, 862]     CHECK_IF_PARCEL_OVELAPS_STL
    Use   [pic_bc_routines.f, 864]     CHECK_IF_PARCEL_OVELAPS_STL

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 482]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 573]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 574]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 574]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 574]        CONV_DIF_PHI_DC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 414]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 559]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 560]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 560]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 560]        STORE_A_U_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 465]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 620]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 621]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 621]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 621]        STORE_A_W_GDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 409]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 555]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 556]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 556]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 556]        STORE_A_W_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 480]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 621]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 622]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 622]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 622]        STORE_A_V_GDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 412]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 556]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 557]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 557]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 557]        STORE_A_V_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 480]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 624]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 625]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 625]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 625]        STORE_A_U_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 482]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 574]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 691]        CONV_DIF_PHI_DC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 414]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 560]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 714]        STORE_A_U_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 465]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 621]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 800]        STORE_A_W_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 409]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 556]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 706]        STORE_A_W_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 480]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 622]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 817]        STORE_A_V_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 412]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 557]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 714]        STORE_A_V_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 480]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 625]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 823]        STORE_A_U_GDC

KN_DES    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_force_dem.f, 67]    CALC_FORCE_DEM
    Set   [calc_force_dem.f, 187]      CALC_FORCE_DEM
    Set   [calc_force_dem.f, 195]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 202]      CALC_FORCE_DEM

Knu_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 99]   SOURCE_GRANULAR_ENERGY
    Set   [source_granular_energy.f, 207]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 219]   SOURCE_GRANULAR_ENERGY

Knu_e    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 98]   SOURCE_GRANULAR_ENERGY
    Set   [source_granular_energy.f, 202]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 209]   SOURCE_GRANULAR_ENERGY

Knu_n    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 98]   SOURCE_GRANULAR_ENERGY
    Set   [source_granular_energy.f, 204]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 213]   SOURCE_GRANULAR_ENERGY

Knu_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 98]   SOURCE_GRANULAR_ENERGY
    Set   [source_granular_energy.f, 205]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 215]   SOURCE_GRANULAR_ENERGY

Knu_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 831]         THETA_HW_CW
    Set   [bc_theta.f, 951]            THETA_HW_CW

Knu_sL_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 318]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 516]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 529]   SOURCE_GRANULAR_ENERGY_IA

Knu_sL_e    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 317]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 506]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 519]   SOURCE_GRANULAR_ENERGY_IA

Knu_sL_n    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 317]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 510]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 523]   SOURCE_GRANULAR_ENERGY_IA

Knu_sL_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 317]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 512]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 524]   SOURCE_GRANULAR_ENERGY_IA

Knu_sL_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 317]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 514]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 527]   SOURCE_GRANULAR_ENERGY_IA

Knu_sL_w    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 317]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 508]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 520]   SOURCE_GRANULAR_ENERGY_IA

Knu_sM_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 640]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 756]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 773]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 774]   SOURCE_GRANULAR_ENERGY_GD

Knu_sM_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 319]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 517]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 529]   SOURCE_GRANULAR_ENERGY_IA

Knu_sM_e    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 639]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 751]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 758]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 759]   SOURCE_GRANULAR_ENERGY_GD

Knu_sM_e    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 318]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 507]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 520]   SOURCE_GRANULAR_ENERGY_IA

Knu_sM_n    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 639]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 753]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 764]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 765]   SOURCE_GRANULAR_ENERGY_GD

Knu_sM_n    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 318]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 511]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 524]   SOURCE_GRANULAR_ENERGY_IA

Knu_sM_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 639]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 754]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 767]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 768]   SOURCE_GRANULAR_ENERGY_GD

Knu_sM_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 318]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 513]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 525]   SOURCE_GRANULAR_ENERGY_IA

Knu_sM_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 640]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 755]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 770]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 771]   SOURCE_GRANULAR_ENERGY_GD

Knu_sM_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 319]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 515]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 528]   SOURCE_GRANULAR_ENERGY_IA

Knu_sM_w    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 639]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 752]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 761]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 762]   SOURCE_GRANULAR_ENERGY_GD

Knu_sM_w    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 318]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 509]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 521]   SOURCE_GRANULAR_ENERGY_IA

Knu_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 99]   SOURCE_GRANULAR_ENERGY
    Set   [source_granular_energy.f, 206]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 217]   SOURCE_GRANULAR_ENERGY

Knu_w    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 98]   SOURCE_GRANULAR_ENERGY
    Set   [source_granular_energy.f, 203]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 211]   SOURCE_GRANULAR_ENERGY

korder    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 661]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 832]        MPPIC_COMPUTE_PS_GRAD

kount    (Local Variable)  Declared as: INTEGER
    Define   [odeint.f, 9]             odeint
    Set   [odeint.f, 16]               odeint
    Use   [odeint.f, 41]               odeint
    Set   [odeint.f, 42]               odeint
    Use   [odeint.f, 42]               odeint
    Use   [odeint.f, 43]               odeint
    Use   [odeint.f, 45]               odeint
    Set   [odeint.f, 63]               odeint
    Use   [odeint.f, 63]               odeint
    Use   [odeint.f, 64]               odeint
    Use   [odeint.f, 66]               odeint

KP    (Local Variable)  Declared as: INTEGER
    Define   [set_Odxyz.f, 35]         SET_ODXYZ_U_CUT_CELL
    Set   [set_Odxyz.f, 109]           SET_ODXYZ_U_CUT_CELL
    Use   [set_Odxyz.f, 110]           SET_ODXYZ_U_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [set_Odxyz.f, 166]        SET_ODXYZ_V_CUT_CELL
    Set   [set_Odxyz.f, 240]           SET_ODXYZ_V_CUT_CELL
    Use   [set_Odxyz.f, 241]           SET_ODXYZ_V_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [set_Odxyz.f, 301]        SET_ODXYZ_W_CUT_CELL
    Set   [set_Odxyz.f, 370]           SET_ODXYZ_W_CUT_CELL
    Use   [set_Odxyz.f, 371]           SET_ODXYZ_W_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1404]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1438]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1450]   SET_3D_CUT_CELL_TREATMENT_FLAGS

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_g.f, 93]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 223]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 278]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 284]       CG_SOURCE_W_G

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_s.f, 71]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 204]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 251]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 256]       CG_SOURCE_W_S

KP    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_g.f, 79]           CALC_TAU_W_G
    Set   [tau_w_g.f, 140]             CALC_TAU_W_G
    Use   [tau_w_g.f, 160]             CALC_TAU_W_G
    Use   [tau_w_g.f, 168]             CALC_TAU_W_G

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 89]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 272]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 278]       CG_SOURCE_V_G

Kp    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 51]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 84]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 89]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 99]   CALC_INTERP_WEIGHTS1

KP    (Local Variable)  Declared as: INTEGER
    Define   [set_geometry1.f, 48]     SET_GEOMETRY1
    Set   [set_geometry1.f, 76]        SET_GEOMETRY1
    Use   [set_geometry1.f, 85]        SET_GEOMETRY1
    Use   [set_geometry1.f, 90]        SET_GEOMETRY1
    Use   [set_geometry1.f, 100]       SET_GEOMETRY1

KP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 153]     STORE_A_W_G0
    Set   [conv_dif_w_g.f, 209]        STORE_A_W_G0
    Use   [conv_dif_w_g.f, 278]        STORE_A_W_G0

KP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 914]     STORE_A_W_G1
    Set   [conv_dif_w_g.f, 1034]       STORE_A_W_G1
    Use   [conv_dif_w_g.f, 1097]       STORE_A_W_G1

KP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 459]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 603]        STORE_A_W_GDC

KP    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_s.f, 75]           CALC_TAU_W_S
    Set   [tau_w_s.f, 150]             CALC_TAU_W_S
    Use   [tau_w_s.f, 168]             CALC_TAU_W_S
    Use   [tau_w_s.f, 177]             CALC_TAU_W_S

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_s.f, 69]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 244]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 249]       CG_SOURCE_V_S

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 34]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 88]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 95]            GET_3D_ALPHA_U_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 453]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 506]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 513]           GET_3D_ALPHA_V_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 879]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 930]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 937]           GET_3D_ALPHA_W_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 91]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 279]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 285]       CG_SOURCE_U_G

KP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 143]     STORE_A_W_S0
    Set   [conv_dif_w_s.f, 179]        STORE_A_W_S0
    Use   [conv_dif_w_s.f, 243]        STORE_A_W_S0

KP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 800]     STORE_A_W_S1
    Set   [conv_dif_w_s.f, 912]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 969]        STORE_A_W_S1

KP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 403]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 539]        STORE_A_W_SDC

KP    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1479]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1609]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1611]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1618]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1619]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1642]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1650]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1652]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1653]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1735]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1736]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1812]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1813]   CAD_INTERSECT

KP    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 729]   CLEAN_INTERSECT
    Set   [cut_cell_preprocessing.f, 761]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 768]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 771]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 774]   CLEAN_INTERSECT

KP    (Local Variable)  Declared as: INTEGER
    Define   [cut_cell_preprocessing.f, 1348]   REMOVE_INTERSECT_FLAG
    Set   [cut_cell_preprocessing.f, 1358]   REMOVE_INTERSECT_FLAG
    Use   [cut_cell_preprocessing.f, 1362]   REMOVE_INTERSECT_FLAG

kp    (Local Variable)  Declared as: INTEGER
    Define   [cfassign.f, 212]         compute_volume_of_nodes
    Set   [cfassign.f, 304]            compute_volume_of_nodes
    Use   [cfassign.f, 305]            compute_volume_of_nodes
    Use   [cfassign.f, 306]            compute_volume_of_nodes
    Use   [cfassign.f, 307]            compute_volume_of_nodes
    Use   [cfassign.f, 308]            compute_volume_of_nodes
    Use   [cfassign.f, 310]            compute_volume_of_nodes
    Use   [cfassign.f, 311]            compute_volume_of_nodes
    Use   [cfassign.f, 312]            compute_volume_of_nodes
    Use   [cfassign.f, 313]            compute_volume_of_nodes

KP    (Local Variable)  Declared as: INTEGER
    Define   [calc_vort_out.f, 32]     CALC_VORTICITY
    Set   [calc_vort_out.f, 52]        CALC_VORTICITY
    Use   [calc_vort_out.f, 57]        CALC_VORTICITY

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_s.f, 70]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 256]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 261]       CG_SOURCE_U_S

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 353]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 362]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 444]    GET_CELL_NODE_COORDINATES

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 543]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 552]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 631]    GET_GLOBAL_CELL_NODE_COORDINATES

KP    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_w_s.f, 110]    CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 150]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 200]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 213]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 263]       CALC_IA_MOMSOURCE_W_S

kp1    (Local Variable)  Declared as: INTEGER
    Define   [dgtsl.f, 14]             dgtsl
    Set   [dgtsl.f, 72]                dgtsl
    Use   [dgtsl.f, 76]                dgtsl
    Use   [dgtsl.f, 80]                dgtsl
    Use   [dgtsl.f, 81]                dgtsl
    Use   [dgtsl.f, 84]                dgtsl
    Use   [dgtsl.f, 85]                dgtsl
    Use   [dgtsl.f, 88]                dgtsl
    Use   [dgtsl.f, 89]                dgtsl
    Use   [dgtsl.f, 92]                dgtsl
    Use   [dgtsl.f, 93]                dgtsl
    Use   [dgtsl.f, 101]               dgtsl
    Use   [dgtsl.f, 102]               dgtsl
    Use   [dgtsl.f, 102]               dgtsl
    Use   [dgtsl.f, 103]               dgtsl
    Use   [dgtsl.f, 103]               dgtsl
    Use   [dgtsl.f, 104]               dgtsl
    Use   [dgtsl.f, 105]               dgtsl
    Use   [dgtsl.f, 105]               dgtsl

KP_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 364]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 857]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 873]      RE_INDEX_ARRAYS

KP_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2638]   WRITE_IJK_VALUES

Kphidphi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1216]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1330]          gt_pde_gtsh
    Set   [calc_mu_s.f, 1332]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1337]          gt_pde_gtsh

KPLUS1    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 38]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 133]     MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 153]     MAKE_ARRAYS_DES

KPLUS1    (Local Variable)  Declared as: INTEGER
    Define   [des_time_march.f, 51]    DES_TIME_MARCH

KPLUS1    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 817]   CHECK_IF_PARCEL_OVELAPS_STL
    Set   [pic_bc_routines.f, 861]     CHECK_IF_PARCEL_OVELAPS_STL
    Use   [pic_bc_routines.f, 864]     CHECK_IF_PARCEL_OVELAPS_STL

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 481]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 571]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 572]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 572]        CONV_DIF_PHI_DC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 413]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 557]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 558]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 558]        STORE_A_U_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 464]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 618]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 619]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 619]        STORE_A_W_GDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 408]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 553]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 554]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 554]        STORE_A_W_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 479]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 619]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 620]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 620]        STORE_A_V_GDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 411]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 554]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 555]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 555]        STORE_A_V_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 479]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 622]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 623]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 623]        STORE_A_U_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 481]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 572]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 630]        CONV_DIF_PHI_DC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 413]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 558]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 626]        STORE_A_U_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 464]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 619]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 699]        STORE_A_W_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 408]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 554]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 619]        STORE_A_W_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 479]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 620]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 714]        STORE_A_V_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 411]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 555]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 624]        STORE_A_V_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 479]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 623]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 714]        STORE_A_U_GDC

kraw    (Local Variable)  Declared as: INTEGER
    Define   [cfassign.f, 209]         compute_volume_of_nodes
    Set   [cfassign.f, 234]            compute_volume_of_nodes
    Use   [cfassign.f, 248]            compute_volume_of_nodes
    Use   [cfassign.f, 248]            compute_volume_of_nodes
    Use   [cfassign.f, 256]            compute_volume_of_nodes
    Use   [cfassign.f, 304]            compute_volume_of_nodes

KREMAIN    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4098]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4441]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4442]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4443]   REPORT_BEST_IJK_SIZE

KREMAIN    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 374]   RE_INDEX_ARRAYS

KREMAIN    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2648]   WRITE_IJK_VALUES

kronecker    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [mass_mobility.f, 23]     mass_mobility
    Set   [mass_mobility.f, 33]        mass_mobility
    Set   [mass_mobility.f, 35]        mass_mobility
    Use   [mass_mobility.f, 42]        mass_mobility
    Use   [mass_mobility.f, 43]        mass_mobility

kronecker    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [dufour_coeff.f, 33]      dufour_coeff
    Set   [dufour_coeff.f, 50]         dufour_coeff
    Set   [dufour_coeff.f, 52]         dufour_coeff
    Use   [dufour_coeff.f, 63]         dufour_coeff
    Use   [dufour_coeff.f, 96]         dufour_coeff
    Use   [dufour_coeff.f, 110]        dufour_coeff
    Use   [dufour_coeff.f, 150]        dufour_coeff
    Use   [dufour_coeff.f, 158]        dufour_coeff

kronecker    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [thermal_mobility.f, 29]   thermal_mobility
    Set   [thermal_mobility.f, 43]     thermal_mobility
    Set   [thermal_mobility.f, 45]     thermal_mobility
    Use   [thermal_mobility.f, 61]     thermal_mobility
    Use   [thermal_mobility.f, 70]     thermal_mobility

kronecker    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ordinary_diff.f, 31]     ordinary_diff
    Set   [ordinary_diff.f, 54]        ordinary_diff
    Set   [ordinary_diff.f, 56]        ordinary_diff
    Use   [ordinary_diff.f, 81]        ordinary_diff
    Use   [ordinary_diff.f, 359]       ordinary_diff
    Use   [ordinary_diff.f, 369]       ordinary_diff

kronecker    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cooling_rate_tc.f, 27]   cooling_rate_tc
    Set   [cooling_rate_tc.f, 40]      cooling_rate_tc
    Set   [cooling_rate_tc.f, 42]      cooling_rate_tc
    Use   [cooling_rate_tc.f, 112]     cooling_rate_tc

Ks_micro    (Local Variable)  Declared as: DOUBLE PRECISION PARAMETER
    Define   [calc_k_s.f, 59]          CALC_K_S
    Declare   [calc_k_s.f, 60]         CALC_K_S
    Set   [calc_k_s.f, 60]             CALC_K_S
    Use   [calc_k_s.f, 98]             CALC_K_S

KSIZE    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4098]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4438]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4439]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4441]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4443]   REPORT_BEST_IJK_SIZE

KSIZE    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1047]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1117]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1121]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1143]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1147]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1160]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1161]   LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1162]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1164]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1166]         LEQ_MSOLVEt

KSIZE    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 374]   RE_INDEX_ARRAYS

KSIZE    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2648]   WRITE_IJK_VALUES

KSIZE    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 1240]       LEQ_MSOLVE
    Set   [leq_bicgs.f, 1315]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1318]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1363]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1367]          LEQ_MSOLVE
    Set   [leq_bicgs.f, 1446]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1449]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1461]          LEQ_MSOLVE
    Use Argument   [leq_bicgs.f, 1462]   LEQ_MSOLVE
    Use   [leq_bicgs.f, 1463]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1465]          LEQ_MSOLVE
    Use   [leq_bicgs.f, 1467]          LEQ_MSOLVE

KSIZE_OLD    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4096]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4439]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4443]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4446]   REPORT_BEST_IJK_SIZE

KSIZE_OLD    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 372]   RE_INDEX_ARRAYS

KSIZE_OLD    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2646]   WRITE_IJK_VALUES

Kslip    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 649]   SOURCE_GRANULAR_ENERGY_GD
    Set   [source_granular_energy.f, 794]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 797]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 798]   SOURCE_GRANULAR_ENERGY_GD

kstartl    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 689]        leq_check
    Set   [leq_gmres.f, 696]           leq_check
    Set   [leq_gmres.f, 704]           leq_check
    Use   [leq_gmres.f, 710]           leq_check

KT_DES    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_force_dem.f, 67]    CALC_FORCE_DEM
    Set   [calc_force_dem.f, 188]      CALC_FORCE_DEM
    Set   [calc_force_dem.f, 196]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 212]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 272]      CALC_FORCE_DEM

Kth    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 554]        gt_pde_lun
    Set   [calc_mu_s.f, 615]           gt_pde_lun
    Use   [calc_mu_s.f, 619]           gt_pde_lun
    Use   [calc_mu_s.f, 623]           gt_pde_lun
    Use   [calc_mu_s.f, 625]           gt_pde_lun
    Use   [calc_mu_s.f, 627]           gt_pde_lun
    Use   [calc_mu_s.f, 629]           gt_pde_lun

Kth0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 838]         THETA_HW_CW
    Set   [bc_theta.f, 1180]           THETA_HW_CW
    Use   [bc_theta.f, 1184]           THETA_HW_CW
    Use   [bc_theta.f, 1191]           THETA_HW_CW

Kth0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1215]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1299]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1304]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1312]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1376]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1378]          gt_pde_gtsh

Kth_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 830]         THETA_HW_CW
    Set   [bc_theta.f, 952]            THETA_HW_CW

Kth_sL_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 323]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 491]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 500]   SOURCE_GRANULAR_ENERGY_IA

Kth_sL_e    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 322]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 486]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 493]   SOURCE_GRANULAR_ENERGY_IA

Kth_sL_iptmp    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1463]       gt_pde_ia
    Set   [calc_mu_s.f, 1733]          gt_pde_ia
    Use   [calc_mu_s.f, 1751]          gt_pde_ia

Kth_sL_n    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 322]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 488]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 496]   SOURCE_GRANULAR_ENERGY_IA

Kth_sL_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 322]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 489]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 497]   SOURCE_GRANULAR_ENERGY_IA

Kth_sL_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 322]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 490]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 499]   SOURCE_GRANULAR_ENERGY_IA

Kth_sL_w    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 322]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 487]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 494]   SOURCE_GRANULAR_ENERGY_IA

Kth_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1015]       gt_pde_gd
    Set   [calc_mu_s.f, 1118]          gt_pde_gd
    Set   [calc_mu_s.f, 1120]          gt_pde_gd
    Set   [calc_mu_s.f, 1122]          gt_pde_gd
    Set   [calc_mu_s.f, 1126]          gt_pde_gd
    Use   [calc_mu_s.f, 1132]          gt_pde_gd
    Use   [calc_mu_s.f, 1150]          gt_pde_gd

Kth_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1450]       gt_pde_ia
    Set   [calc_mu_s.f, 1624]          gt_pde_ia
    Set   [calc_mu_s.f, 1626]          gt_pde_ia
    Set   [calc_mu_s.f, 1629]          gt_pde_ia
    Set   [calc_mu_s.f, 1633]          gt_pde_ia
    Use   [calc_mu_s.f, 1639]          gt_pde_ia

Kth_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 554]        gt_pde_lun
    Set   [calc_mu_s.f, 619]           gt_pde_lun
    Set   [calc_mu_s.f, 621]           gt_pde_lun
    Set   [calc_mu_s.f, 623]           gt_pde_lun
    Set   [calc_mu_s.f, 627]           gt_pde_lun
    Use   [calc_mu_s.f, 633]           gt_pde_lun

KthK    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 838]         THETA_HW_CW
    Set   [bc_theta.f, 1183]           THETA_HW_CW
    Set   [bc_theta.f, 1184]           THETA_HW_CW
    Use   [bc_theta.f, 1190]           THETA_HW_CW

KthK    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1215]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1303]          gt_pde_gtsh
    Set   [calc_mu_s.f, 1304]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1310]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1378]          gt_pde_gtsh

KTP    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 49]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 132]   COMP_MEAN_FIELDS0

KTP    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 48]      DRAG_GS_DES0
    Set   [drag_gs_des0.f, 115]        DRAG_GS_DES0

KTP    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 252]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 326]        DRAG_GS_GAS0

ktp    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 661]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 848]        MPPIC_COMPUTE_PS_GRAD

Kvel_s_b    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 321]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 540]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 545]   SOURCE_GRANULAR_ENERGY_IA

Kvel_s_e    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 320]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 535]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 542]   SOURCE_GRANULAR_ENERGY_IA

Kvel_s_n    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 320]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 537]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 543]   SOURCE_GRANULAR_ENERGY_IA

Kvel_s_s    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 320]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 538]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 544]   SOURCE_GRANULAR_ENERGY_IA

Kvel_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 830]         THETA_HW_CW
    Set   [bc_theta.f, 950]            THETA_HW_CW

Kvel_s_t    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 320]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 539]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 544]   SOURCE_GRANULAR_ENERGY_IA

Kvel_s_w    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_granular_energy.f, 320]   SOURCE_GRANULAR_ENERGY_IA
    Set   [source_granular_energy.f, 536]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 543]   SOURCE_GRANULAR_ENERGY_IA

KX    (Local Variable)  Declared as: INTEGER
    Define   [BLAS.f, 3273]            SDSDOT
    Set   [BLAS.f, 3295]               SDSDOT
    Set   [BLAS.f, 3297]               SDSDOT
    Use   [BLAS.f, 3300]               SDSDOT
    Set   [BLAS.f, 3301]               SDSDOT
    Use   [BLAS.f, 3301]               SDSDOT

KY    (Local Variable)  Declared as: INTEGER
    Define   [BLAS.f, 3273]            SDSDOT
    Set   [BLAS.f, 3296]               SDSDOT
    Set   [BLAS.f, 3298]               SDSDOT
    Use   [BLAS.f, 3300]               SDSDOT
    Set   [BLAS.f, 3302]               SDSDOT
    Use   [BLAS.f, 3302]               SDSDOT

Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ