Object Cross Reference


Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ

K    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 58]            BC_PHI
    Set   [bc_phi.f, 236]              BC_PHI
    Use Argument   [bc_phi.f, 239]     BC_PHI
    Use   [bc_phi.f, 240]              BC_PHI
    Use Argument   [bc_phi.f, 241]     BC_PHI
    Use   [bc_phi.f, 244]              BC_PHI
    Use   [bc_phi.f, 310]              BC_PHI
    Use   [bc_phi.f, 311]              BC_PHI
    Set   [bc_phi.f, 355]              BC_PHI
    Use Argument   [bc_phi.f, 358]     BC_PHI
    Use   [bc_phi.f, 359]              BC_PHI
    Use Argument   [bc_phi.f, 360]     BC_PHI
    Set   [bc_phi.f, 409]              BC_PHI
    Use Argument   [bc_phi.f, 412]     BC_PHI
    Use   [bc_phi.f, 413]              BC_PHI
    Use Argument   [bc_phi.f, 414]     BC_PHI

K    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 500]           BC_PHI_CG
    Set   [bc_phi.f, 514]              BC_PHI_CG
    Use   [bc_phi.f, 518]              BC_PHI_CG
    Use   [bc_phi.f, 518]              BC_PHI_CG
    Use   [bc_phi.f, 536]              BC_PHI_CG
    Use   [bc_phi.f, 637]              BC_PHI_CG
    Use   [bc_phi.f, 638]              BC_PHI_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_g.f, 291]          CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 336]             CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 338]    CALC_CG_TAU_w_G
    Use   [tau_w_g.f, 344]             CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 369]    CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 372]    CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 376]    CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 379]    CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 497]    CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 500]    CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 561]    CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 564]    CALC_CG_TAU_w_G

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_g.f, 92]           CALC_TAU_W_G
    Set   [tau_w_g.f, 121]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 123]    CALC_TAU_W_G
    Use   [tau_w_g.f, 129]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 162]    CALC_TAU_W_G
    Use   [tau_w_g.f, 163]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 166]    CALC_TAU_W_G
    Use   [tau_w_g.f, 167]             CALC_TAU_W_G
    Use   [tau_w_g.f, 168]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 175]    CALC_TAU_W_G
    Use   [tau_w_g.f, 176]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 178]    CALC_TAU_W_G
    Use   [tau_w_g.f, 179]             CALC_TAU_W_G
    Use   [tau_w_g.f, 186]             CALC_TAU_W_G
    Use   [tau_w_g.f, 206]             CALC_TAU_W_G
    Use Argument   [tau_w_g.f, 210]    CALC_TAU_W_G
    Use   [tau_w_g.f, 211]             CALC_TAU_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_g.f, 638]          GET_FULL_TAU_W_G
    Set   [tau_w_g.f, 665]             GET_FULL_TAU_W_G
    Use Argument   [tau_w_g.f, 678]    GET_FULL_TAU_W_G
    Use Argument   [tau_w_g.f, 681]    GET_FULL_TAU_W_G
    Use   [tau_w_g.f, 682]             GET_FULL_TAU_W_G
    Use   [tau_w_g.f, 682]             GET_FULL_TAU_W_G
    Use Argument   [tau_w_g.f, 690]    GET_FULL_TAU_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 1048]      JJ_BC_W_S
    Set   [source_w_s.f, 1053]         JJ_BC_W_S
    Use Argument   [source_w_s.f, 1056]   JJ_BC_W_S
    Use   [source_w_s.f, 1057]         JJ_BC_W_S
    Use Argument   [source_w_s.f, 1058]   JJ_BC_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 1219]      POINT_SOURCE_W_S
    Set   [source_w_s.f, 1239]         POINT_SOURCE_W_S
    Use Argument   [source_w_s.f, 1243]   POINT_SOURCE_W_S
    Use   [source_w_s.f, 1244]         POINT_SOURCE_W_S
    Use Argument   [source_w_s.f, 1246]   POINT_SOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 77]        SOURCE_W_S
    Set   [source_w_s.f, 132]          SOURCE_W_S
    Use Argument   [source_w_s.f, 149]   SOURCE_W_S
    Use Argument   [source_w_s.f, 161]   SOURCE_W_S
    Use Argument   [source_w_s.f, 273]   SOURCE_W_S
    Use Argument   [source_w_s.f, 297]   SOURCE_W_S
    Use Argument   [source_w_s.f, 299]   SOURCE_W_S
    Use Argument   [source_w_s.f, 303]   SOURCE_W_S
    Use Argument   [source_w_s.f, 333]   SOURCE_W_S
    Use Argument   [source_w_s.f, 334]   SOURCE_W_S
    Use Argument   [source_w_s.f, 350]   SOURCE_W_S
    Use Argument   [source_w_s.f, 358]   SOURCE_W_S
    Use Argument   [source_w_s.f, 363]   SOURCE_W_S
    Use Argument   [source_w_s.f, 375]   SOURCE_W_S
    Use Argument   [source_w_s.f, 380]   SOURCE_W_S
    Use Argument   [source_w_s.f, 391]   SOURCE_W_S
    Use Argument   [source_w_s.f, 393]   SOURCE_W_S
    Use Argument   [source_w_s.f, 403]   SOURCE_W_S
    Use Argument   [source_w_s.f, 423]   SOURCE_W_S
    Use Argument   [source_w_s.f, 445]   SOURCE_W_S
    Use Argument   [source_w_s.f, 448]   SOURCE_W_S
    Use   [source_w_s.f, 449]          SOURCE_W_S
    Use   [source_w_s.f, 449]          SOURCE_W_S
    Use Argument   [source_w_s.f, 453]   SOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 565]       SOURCE_W_S_BC
    Set   [source_w_s.f, 699]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 702]   SOURCE_W_S_BC
    Use   [source_w_s.f, 703]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 704]   SOURCE_W_S_BC
    Set   [source_w_s.f, 738]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 741]   SOURCE_W_S_BC
    Use   [source_w_s.f, 742]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 743]   SOURCE_W_S_BC
    Set   [source_w_s.f, 777]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 780]   SOURCE_W_S_BC
    Use   [source_w_s.f, 781]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 782]   SOURCE_W_S_BC
    Set   [source_w_s.f, 867]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 870]   SOURCE_W_S_BC
    Use   [source_w_s.f, 871]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 872]   SOURCE_W_S_BC
    Set   [source_w_s.f, 894]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 897]   SOURCE_W_S_BC
    Use   [source_w_s.f, 898]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 899]   SOURCE_W_S_BC
    Set   [source_w_s.f, 927]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 930]   SOURCE_W_S_BC
    Use   [source_w_s.f, 931]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 932]   SOURCE_W_S_BC
    Set   [source_w_s.f, 955]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 958]   SOURCE_W_S_BC
    Use   [source_w_s.f, 959]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 960]   SOURCE_W_S_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_u_s.f, 112]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 155]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 156]       CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 200]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 201]   CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 204]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 235]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 236]       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 Argument   [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   [interpolate_pic.f, 137]   INTERPOLATE_PIC0
    Set   [interpolate_pic.f, 163]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 167]     INTERPOLATE_PIC0
    Set   [interpolate_pic.f, 173]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 179]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 214]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 215]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 216]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 229]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 233]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 238]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 242]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 246]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 250]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 253]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 262]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 262]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 266]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 266]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 270]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 270]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 274]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 280]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 280]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 283]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 283]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 286]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 291]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 292]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 296]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 297]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 301]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 308]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 309]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 310]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 318]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 319]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 321]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 322]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 325]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 326]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 332]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 332]     INTERPOLATE_PIC0

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 336]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 341]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 345]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 349]    GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 351]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 352]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 355]   GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 385]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 385]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 386]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 400]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 400]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 401]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 415]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 415]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 416]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 426]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 426]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 427]    GET_CELL_NODE_COORDINATES

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 29]   GET_CONNECTIVITY
    Set   [get_connectivity.f, 50]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 54]     GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 56]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 57]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 60]   GET_CONNECTIVITY

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 516]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 521]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 525]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 529]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 531]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 532]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 535]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 562]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 562]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 563]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 577]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 577]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 578]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 592]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 592]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 593]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 603]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 603]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 604]    GET_GLOBAL_CELL_NODE_COORDINATES

K    (Local Variable)  Declared as: INTEGER
    Define   [gas_drag.f, 63]          GAS_DRAG_U
    Set   [gas_drag.f, 91]             GAS_DRAG_U
    Use   [gas_drag.f, 95]             GAS_DRAG_U
    Use   [gas_drag.f, 95]             GAS_DRAG_U
    Use   [gas_drag.f, 97]             GAS_DRAG_U
    Use   [gas_drag.f, 103]            GAS_DRAG_U
    Use   [gas_drag.f, 104]            GAS_DRAG_U

K    (Local Variable)  Declared as: INTEGER
    Define   [gas_drag.f, 202]         GAS_DRAG_V
    Set   [gas_drag.f, 228]            GAS_DRAG_V
    Use   [gas_drag.f, 232]            GAS_DRAG_V
    Use   [gas_drag.f, 232]            GAS_DRAG_V
    Use   [gas_drag.f, 234]            GAS_DRAG_V
    Use   [gas_drag.f, 241]            GAS_DRAG_V
    Use   [gas_drag.f, 242]            GAS_DRAG_V

K    (Local Variable)  Declared as: INTEGER
    Define   [gas_drag.f, 337]         GAS_DRAG_W
    Set   [gas_drag.f, 364]            GAS_DRAG_W
    Use   [gas_drag.f, 368]            GAS_DRAG_W
    Use   [gas_drag.f, 368]            GAS_DRAG_W
    Use   [gas_drag.f, 370]            GAS_DRAG_W
    Use   [gas_drag.f, 371]            GAS_DRAG_W
    Use   [gas_drag.f, 372]            GAS_DRAG_W
    Set   [gas_drag.f, 393]            GAS_DRAG_W
    Use Argument   [gas_drag.f, 396]   GAS_DRAG_W
    Use Argument   [gas_drag.f, 397]   GAS_DRAG_W

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mi.f, 383]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 481]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 485]       SET_DEM_BCMI_IJK
    Use Argument   [set_bc_dem_mi.f, 487]   SET_DEM_BCMI_IJK

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

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 404]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 434]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 435]        CONV_DIF_PHI_DC

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 759]     DIF_PHI_IS
    Set   [conv_dif_phi.f, 784]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 787]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 788]   DIF_PHI_IS
    Set   [conv_dif_phi.f, 800]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 803]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 804]   DIF_PHI_IS
    Set   [conv_dif_phi.f, 817]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 823]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 824]        DIF_PHI_IS

k    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 131]     GET_PHICELL_DIFF_TERMS
    Set   [conv_dif_phi.f, 145]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 148]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 159]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 167]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 168]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 169]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 170]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 171]        GET_PHICELL_DIFF_TERMS
    Use Argument   [conv_dif_phi.f, 192]   GET_PHICELL_DIFF_TERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 959]       POINT_SOURCE_V_G
    Set   [source_v_g.f, 983]          POINT_SOURCE_V_G
    Use Argument   [source_v_g.f, 987]   POINT_SOURCE_V_G
    Use   [source_v_g.f, 988]          POINT_SOURCE_V_G
    Use Argument   [source_v_g.f, 990]   POINT_SOURCE_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 83]        SOURCE_V_G
    Set   [source_v_g.f, 133]          SOURCE_V_G
    Use   [source_v_g.f, 260]          SOURCE_V_G
    Use Argument   [source_v_g.f, 261]   SOURCE_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 422]       SOURCE_V_G_BC
    Set   [source_v_g.f, 581]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 584]   SOURCE_V_G_BC
    Use   [source_v_g.f, 585]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 586]   SOURCE_V_G_BC
    Set   [source_v_g.f, 616]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 619]   SOURCE_V_G_BC
    Use   [source_v_g.f, 620]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 621]   SOURCE_V_G_BC
    Set   [source_v_g.f, 651]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 654]   SOURCE_V_G_BC
    Use   [source_v_g.f, 655]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 656]   SOURCE_V_G_BC
    Use   [source_v_g.f, 659]          SOURCE_V_G_BC
    Use   [source_v_g.f, 694]          SOURCE_V_G_BC
    Use   [source_v_g.f, 695]          SOURCE_V_G_BC
    Set   [source_v_g.f, 724]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 727]   SOURCE_V_G_BC
    Use   [source_v_g.f, 728]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 729]   SOURCE_V_G_BC
    Use   [source_v_g.f, 732]          SOURCE_V_G_BC
    Use   [source_v_g.f, 752]          SOURCE_V_G_BC
    Set   [source_v_g.f, 781]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 784]   SOURCE_V_G_BC
    Use   [source_v_g.f, 785]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 786]   SOURCE_V_G_BC
    Set   [source_v_g.f, 812]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 815]   SOURCE_V_G_BC
    Use   [source_v_g.f, 816]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 817]   SOURCE_V_G_BC
    Set   [source_v_g.f, 845]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 848]   SOURCE_V_G_BC
    Use   [source_v_g.f, 849]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 850]   SOURCE_V_G_BC
    Set   [source_v_g.f, 878]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 881]   SOURCE_V_G_BC
    Use   [source_v_g.f, 882]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 883]   SOURCE_V_G_BC

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_cg.f, 160]           LEQ_CG0
    Set   [leq_cg.f, 199]              LEQ_CG0
    Use Argument   [leq_cg.f, 202]     LEQ_CG0

K    (Local Variable)  Declared as: INTEGER
    Define   [partial_elim.f, 723]     PARTIAL_ELIM_W
    Set   [partial_elim.f, 761]        PARTIAL_ELIM_W
    Use Argument   [partial_elim.f, 763]   PARTIAL_ELIM_W

k    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 318]     GET_UCELL_SDIFF_TERMS
    Set   [conv_dif_u_s.f, 332]        GET_UCELL_SDIFF_TERMS
    Use   [conv_dif_u_s.f, 335]        GET_UCELL_SDIFF_TERMS
    Use   [conv_dif_u_s.f, 360]        GET_UCELL_SDIFF_TERMS
    Use Argument   [conv_dif_u_s.f, 386]   GET_UCELL_SDIFF_TERMS
    Use Argument   [conv_dif_u_s.f, 387]   GET_UCELL_SDIFF_TERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 594]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 633]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 634]        STORE_A_U_SDC

K    (Local Variable)  Declared as: INTEGER
    Define   [set_flags.f, 62]         SET_FLAGS
    Set   [set_flags.f, 95]            SET_FLAGS
    Use Argument   [set_flags.f, 97]   SET_FLAGS
    Use Argument   [set_flags.f, 101]   SET_FLAGS
    Use Argument   [set_flags.f, 104]   SET_FLAGS
    Use Argument   [set_flags.f, 107]   SET_FLAGS
    Use Argument   [set_flags.f, 110]   SET_FLAGS
    Use   [set_flags.f, 113]           SET_FLAGS
    Use   [set_flags.f, 116]           SET_FLAGS
    Set   [set_flags.f, 179]           SET_FLAGS
    Use   [set_flags.f, 180]           SET_FLAGS
    Use Argument   [set_flags.f, 180]   SET_FLAGS
    Set   [set_flags.f, 187]           SET_FLAGS
    Use   [set_flags.f, 189]           SET_FLAGS
    Use   [set_flags.f, 189]           SET_FLAGS
    Use   [set_flags.f, 193]           SET_FLAGS
    Use   [set_flags.f, 193]           SET_FLAGS
    Use   [set_flags.f, 196]           SET_FLAGS
    Use   [set_flags.f, 197]           SET_FLAGS
    Use   [set_flags.f, 197]           SET_FLAGS
    Use   [set_flags.f, 201]           SET_FLAGS
    Use   [set_flags.f, 201]           SET_FLAGS
    Use   [set_flags.f, 205]           SET_FLAGS
    Use   [set_flags.f, 205]           SET_FLAGS
    Use   [set_flags.f, 208]           SET_FLAGS
    Use   [set_flags.f, 209]           SET_FLAGS
    Use   [set_flags.f, 209]           SET_FLAGS
    Set   [set_flags.f, 242]           SET_FLAGS
    Use Argument   [set_flags.f, 244]   SET_FLAGS
    Use   [set_flags.f, 245]           SET_FLAGS
    Use Argument   [set_flags.f, 246]   SET_FLAGS
    Set   [set_flags.f, 253]           SET_FLAGS
    Use Argument   [set_flags.f, 255]   SET_FLAGS
    Use   [set_flags.f, 256]           SET_FLAGS
    Use Argument   [set_flags.f, 257]   SET_FLAGS
    Set   [set_flags.f, 267]           SET_FLAGS
    Use Argument   [set_flags.f, 269]   SET_FLAGS
    Use   [set_flags.f, 270]           SET_FLAGS
    Use Argument   [set_flags.f, 271]   SET_FLAGS
    Set   [set_flags.f, 278]           SET_FLAGS
    Use Argument   [set_flags.f, 280]   SET_FLAGS
    Use   [set_flags.f, 281]           SET_FLAGS
    Use Argument   [set_flags.f, 282]   SET_FLAGS
    Set   [set_flags.f, 291]           SET_FLAGS
    Use Argument   [set_flags.f, 294]   SET_FLAGS
    Use   [set_flags.f, 295]           SET_FLAGS
    Use Argument   [set_flags.f, 296]   SET_FLAGS
    Set   [set_flags.f, 302]           SET_FLAGS
    Use Argument   [set_flags.f, 305]   SET_FLAGS
    Use   [set_flags.f, 306]           SET_FLAGS
    Use Argument   [set_flags.f, 307]   SET_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_flags.f, 388]        SET_FLAGS1
    Set   [set_flags.f, 412]           SET_FLAGS1
    Use Argument   [set_flags.f, 413]   SET_FLAGS1
    Use   [set_flags.f, 414]           SET_FLAGS1
    Use   [set_flags.f, 435]           SET_FLAGS1
    Use   [set_flags.f, 435]           SET_FLAGS1
    Use   [set_flags.f, 435]           SET_FLAGS1
    Use   [set_flags.f, 435]           SET_FLAGS1
    Use   [set_flags.f, 444]           SET_FLAGS1
    Use   [set_flags.f, 444]           SET_FLAGS1
    Use   [set_flags.f, 444]           SET_FLAGS1
    Use   [set_flags.f, 444]           SET_FLAGS1
    Use   [set_flags.f, 449]           SET_FLAGS1

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_s.f, 55]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 95]        CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 195]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 218]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 219]   CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 239]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 242]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 243]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 244]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 245]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 246]   CG_SOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [bc_theta.f, 69]          BC_THETA
    Set   [bc_theta.f, 89]             BC_THETA
    Use Argument   [bc_theta.f, 93]    BC_THETA
    Use   [bc_theta.f, 94]             BC_THETA
    Use Argument   [bc_theta.f, 95]    BC_THETA
    Use   [bc_theta.f, 99]             BC_THETA
    Use   [bc_theta.f, 228]            BC_THETA
    Use   [bc_theta.f, 229]            BC_THETA

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   [conv_rop_g.f, 93]        CONV_ROP_G0
    Set   [conv_rop_g.f, 118]          CONV_ROP_G0

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

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_d_t.f, 166]         CALC_D_T_GAS_AND_SOLIDS
    Set   [calc_d_t.f, 219]            CALC_D_T_GAS_AND_SOLIDS
    Use Argument   [calc_d_t.f, 221]   CALC_D_T_GAS_AND_SOLIDS
    Use Argument   [calc_d_t.f, 225]   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   [get_cut_cell_volume_area.f, 34]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 79]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 83]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 85]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 86]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 215]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 395]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 402]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 468]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 482]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 489]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 594]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 661]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 744]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 811]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 891]   GET_CUT_CELL_VOLUME_AND_AREAS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_volume_area.f, 1215]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1333]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1334]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1334]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1337]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1338]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1340]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1341]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1350]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1351]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1351]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1354]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1355]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1357]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1358]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1367]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1368]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1368]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1371]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1372]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1374]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1375]   REORDER_POLYGON

K    (Local Variable)  Declared as: INTEGER
    Define   [particles_in_cell.f, 243]   INIT_PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 277]   INIT_PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 280]   INIT_PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 282]   INIT_PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 286]   INIT_PARTICLES_IN_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [particles_in_cell.f, 58]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 118]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 120]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 121]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 121]   PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 122]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 125]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 126]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 127]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 127]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 128]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 129]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 130]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 130]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 131]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 132]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 133]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 133]   PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 135]   PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 142]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 147]   PARTICLES_IN_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 49]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 141]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 167]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 189]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 190]   CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 213]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 216]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 219]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 220]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 221]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 222]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 223]   CG_SOURCE_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 318]    CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 363]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 367]       CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 477]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 481]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 483]   CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 484]   CG_SOURCE_U_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 76]     CHECK_FLOW_CELL_PROPS
    Set   [check_data_30.f, 87]        CHECK_FLOW_CELL_PROPS
    Use   [check_data_30.f, 91]        CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 93]   CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 99]   CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 103]   CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 106]   CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 110]   CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 116]   CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 119]   CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 122]   CHECK_FLOW_CELL_PROPS
    Use Argument   [check_data_30.f, 126]   CHECK_FLOW_CELL_PROPS

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 186]    CHECK_PHYSICAL_BOUNDS
    Set   [check_data_30.f, 197]       CHECK_PHYSICAL_BOUNDS
    Use   [check_data_30.f, 200]       CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 201]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 206]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 210]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 216]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 219]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 222]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 224]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 229]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 231]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 233]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 247]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 249]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 259]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 265]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 269]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 273]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 275]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 281]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 293]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 295]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 304]   CHECK_PHYSICAL_BOUNDS
    Use Argument   [check_data_30.f, 306]   CHECK_PHYSICAL_BOUNDS

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 572]    CHECK_RXN_MASS_BALANCE
    Set   [check_data_30.f, 590]       CHECK_RXN_MASS_BALANCE
    Use   [check_data_30.f, 593]       CHECK_RXN_MASS_BALANCE
    Use Argument   [check_data_30.f, 594]   CHECK_RXN_MASS_BALANCE

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_30.f, 363]    REPORT_SPECIES_STATS
    Set   [check_data_30.f, 390]       REPORT_SPECIES_STATS
    Use   [check_data_30.f, 393]       REPORT_SPECIES_STATS
    Use Argument   [check_data_30.f, 394]   REPORT_SPECIES_STATS

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 Argument   [set_bc_pic_mo.f, 122]   SET_BC_PIC_MO
    Use Argument   [set_bc_pic_mo.f, 123]   SET_BC_PIC_MO

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_s.f, 298]          CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 317]             CALC_CG_TAU_W_S
    Use   [tau_w_s.f, 322]             CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 349]    CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 352]    CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 355]    CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 358]    CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 476]    CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 479]    CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 536]    CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 539]    CALC_CG_TAU_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_s.f, 148]          CALC_REG_TAU_W_S
    Set   [tau_w_s.f, 157]             CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 162]             CALC_REG_TAU_W_S
    Use Argument   [tau_w_s.f, 196]    CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 197]             CALC_REG_TAU_W_S
    Use Argument   [tau_w_s.f, 199]    CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 200]             CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 200]             CALC_REG_TAU_W_S
    Use Argument   [tau_w_s.f, 207]    CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 208]             CALC_REG_TAU_W_S
    Use Argument   [tau_w_s.f, 210]    CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 211]             CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 219]             CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 237]             CALC_REG_TAU_W_S
    Use Argument   [tau_w_s.f, 241]    CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 242]             CALC_REG_TAU_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_s.f, 46]           CALC_TAU_W_S
    Set   [tau_w_s.f, 70]              CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 76]     CALC_TAU_W_S
    Use Argument   [tau_w_s.f, 80]     CALC_TAU_W_S

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   [set_outflow.f, 67]       SET_OUTFLOW
    Set   [set_outflow.f, 78]          SET_OUTFLOW
    Use Argument   [set_outflow.f, 82]   SET_OUTFLOW
    Use   [set_outflow.f, 83]          SET_OUTFLOW
    Use Argument   [set_outflow.f, 84]   SET_OUTFLOW

k    (Local Variable)  Declared as: INTEGER
    Define   [read_particle_input.f, 28]   READ_PAR_INPUT
    Use   [read_particle_input.f, 84]   READ_PAR_INPUT
    Set   [read_particle_input.f, 84]   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, 104]   READ_PAR_INPUT
    Set   [read_particle_input.f, 104]   READ_PAR_INPUT
    Use   [read_particle_input.f, 105]   READ_PAR_INPUT
    Set   [read_particle_input.f, 105]   READ_PAR_INPUT

K    (Local Variable)  Declared as: INTEGER
    Define   [set_fluidbed_p.f, 63]    SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 97]       SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 100]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 101]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 102]   SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 114]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 117]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 118]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 119]   SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 129]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 130]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 130]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 134]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 135]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 136]   SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 186]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 188]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 189]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 190]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 193]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 195]      SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 223]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 225]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 226]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 227]   SET_FLUIDBED_P

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 41]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 184]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 188]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 189]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 191]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 219]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 220]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 223]      DIF_PHI_BC_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 286]   DIF_PHI_BC_DES_CG
    Set   [dif_phi_bc_des.f, 296]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 302]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 302]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 346]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 347]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 353]      DIF_PHI_BC_DES_CG

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 Argument   [get_bc_area.f, 202]   CG_GET_BC_AREA
    Use   [get_bc_area.f, 203]         CG_GET_BC_AREA
    Use Argument   [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   [qmomk_time_march.f, 48]   QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 159]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 333]    QMOMK_TIME_MARCH
    Set   [qmomk_time_march.f, 455]    QMOMK_TIME_MARCH

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_g.f, 231]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 282]             CALC_CG_TAU_V_G
    Use   [tau_v_g.f, 285]             CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 323]    CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 324]    CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 519]    CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 520]    CALC_CG_TAU_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_g.f, 66]           CALC_TAU_V_G
    Set   [tau_v_g.f, 96]              CALC_TAU_V_G
    Use   [tau_v_g.f, 99]              CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 148]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 149]    CALC_TAU_V_G

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   [adjust_eps.f, 44]        ADJUST_EPS
    Set   [adjust_eps.f, 54]           ADJUST_EPS
    Use   [adjust_eps.f, 58]           ADJUST_EPS
    Use Argument   [adjust_eps.f, 60]   ADJUST_EPS

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 1000]      JJ_BC_V_S
    Set   [source_v_s.f, 1005]         JJ_BC_V_S
    Use Argument   [source_v_s.f, 1008]   JJ_BC_V_S
    Use   [source_v_s.f, 1009]         JJ_BC_V_S
    Use Argument   [source_v_s.f, 1011]   JJ_BC_V_S
    Use   [source_v_s.f, 1014]         JJ_BC_V_S
    Use   [source_v_s.f, 1094]         JJ_BC_V_S
    Use   [source_v_s.f, 1095]         JJ_BC_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 1169]      POINT_SOURCE_V_S
    Set   [source_v_s.f, 1190]         POINT_SOURCE_V_S
    Use Argument   [source_v_s.f, 1194]   POINT_SOURCE_V_S
    Use   [source_v_s.f, 1195]         POINT_SOURCE_V_S
    Use Argument   [source_v_s.f, 1197]   POINT_SOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 79]        SOURCE_V_S
    Set   [source_v_s.f, 136]          SOURCE_V_S
    Use   [source_v_s.f, 348]          SOURCE_V_S
    Use Argument   [source_v_s.f, 349]   SOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 527]       SOURCE_V_S_BC
    Set   [source_v_s.f, 662]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 665]   SOURCE_V_S_BC
    Use   [source_v_s.f, 666]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 667]   SOURCE_V_S_BC
    Use   [source_v_s.f, 669]          SOURCE_V_S_BC
    Set   [source_v_s.f, 702]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 705]   SOURCE_V_S_BC
    Use   [source_v_s.f, 706]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 707]   SOURCE_V_S_BC
    Set   [source_v_s.f, 741]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 744]   SOURCE_V_S_BC
    Use   [source_v_s.f, 745]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 746]   SOURCE_V_S_BC
    Use   [source_v_s.f, 749]          SOURCE_V_S_BC
    Use   [source_v_s.f, 784]          SOURCE_V_S_BC
    Use   [source_v_s.f, 786]          SOURCE_V_S_BC
    Set   [source_v_s.f, 819]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 822]   SOURCE_V_S_BC
    Use   [source_v_s.f, 823]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 824]   SOURCE_V_S_BC
    Set   [source_v_s.f, 846]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 849]   SOURCE_V_S_BC
    Use   [source_v_s.f, 850]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 851]   SOURCE_V_S_BC
    Set   [source_v_s.f, 879]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 882]   SOURCE_V_S_BC
    Use   [source_v_s.f, 883]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 884]   SOURCE_V_S_BC
    Set   [source_v_s.f, 907]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 910]   SOURCE_V_S_BC
    Use   [source_v_s.f, 911]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 912]   SOURCE_V_S_BC

K    (Variable)  Declared as: INTEGER
    Define   [check_data_20.f, 59]     CHECK_DATA_20
    Set   [check_data_20.f, 98]        CHECK_DATA_20
    Use Argument   [check_data_20.f, 101]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 110]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 112]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 114]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 116]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 118]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 121]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 123]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 125]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 128]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 130]   CHECK_DATA_20
    Use   [check_data_20.f, 132]       CHECK_DATA_20
    Use Argument   [check_data_20.f, 137]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 144]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 150]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 159]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 162]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 165]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 167]   CHECK_DATA_20
    Use   [check_data_20.f, 168]       CHECK_DATA_20
    Use Argument   [check_data_20.f, 169]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 172]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 174]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 176]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 180]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 186]   CHECK_DATA_20
    Set   [check_data_20.f, 210]       CHECK_DATA_20
    Use Argument   [check_data_20.f, 213]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 222]   CHECK_DATA_20
    Use Argument   [check_data_20.f, 230]   CHECK_DATA_20
    Use   [check_data_20.f, 293]       REPORT_ERROR
    Use   [check_data_20.f, 318]       REPORT_UNPHYSICAL

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   [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   [dif_w_is.f, 45]          DIF_W_IS
    Set   [dif_w_is.f, 60]             DIF_W_IS
    Use Argument   [dif_w_is.f, 63]    DIF_W_IS
    Use   [dif_w_is.f, 64]             DIF_W_IS
    Use Argument   [dif_w_is.f, 65]    DIF_W_IS
    Use Argument   [dif_w_is.f, 72]    DIF_W_IS
    Set   [dif_w_is.f, 82]             DIF_W_IS
    Use Argument   [dif_w_is.f, 85]    DIF_W_IS
    Use   [dif_w_is.f, 86]             DIF_W_IS
    Use Argument   [dif_w_is.f, 87]    DIF_W_IS
    Use Argument   [dif_w_is.f, 94]    DIF_W_IS

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

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

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 Argument   [calc_vort_out.f, 55]   CALC_VORTICITY
    Use Argument   [calc_vort_out.f, 56]   CALC_VORTICITY
    Use Argument   [calc_vort_out.f, 59]   CALC_VORTICITY
    Use Argument   [calc_vort_out.f, 60]   CALC_VORTICITY

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 1047]      POINT_SOURCE_U_G
    Set   [source_u_g.f, 1071]         POINT_SOURCE_U_G
    Use Argument   [source_u_g.f, 1075]   POINT_SOURCE_U_G
    Use   [source_u_g.f, 1076]         POINT_SOURCE_U_G
    Use Argument   [source_u_g.f, 1078]   POINT_SOURCE_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 83]        SOURCE_U_G
    Set   [source_u_g.f, 132]          SOURCE_U_G
    Use   [source_u_g.f, 262]          SOURCE_U_G
    Use Argument   [source_u_g.f, 263]   SOURCE_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 433]       SOURCE_U_G_BC
    Set   [source_u_g.f, 592]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 595]   SOURCE_U_G_BC
    Use   [source_u_g.f, 596]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 597]   SOURCE_U_G_BC
    Set   [source_u_g.f, 627]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 630]   SOURCE_U_G_BC
    Use   [source_u_g.f, 631]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 632]   SOURCE_U_G_BC
    Set   [source_u_g.f, 662]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 665]   SOURCE_U_G_BC
    Use   [source_u_g.f, 666]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 667]   SOURCE_U_G_BC
    Use   [source_u_g.f, 670]          SOURCE_U_G_BC
    Use   [source_u_g.f, 705]          SOURCE_U_G_BC
    Use   [source_u_g.f, 706]          SOURCE_U_G_BC
    Set   [source_u_g.f, 737]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 740]   SOURCE_U_G_BC
    Use   [source_u_g.f, 741]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 742]   SOURCE_U_G_BC
    Use   [source_u_g.f, 745]          SOURCE_U_G_BC
    Use   [source_u_g.f, 765]          SOURCE_U_G_BC
    Set   [source_u_g.f, 794]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 797]   SOURCE_U_G_BC
    Use   [source_u_g.f, 798]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 799]   SOURCE_U_G_BC
    Set   [source_u_g.f, 825]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 828]   SOURCE_U_G_BC
    Use   [source_u_g.f, 829]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 830]   SOURCE_U_G_BC
    Set   [source_u_g.f, 859]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 862]   SOURCE_U_G_BC
    Use   [source_u_g.f, 863]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 864]   SOURCE_U_G_BC
    Set   [source_u_g.f, 893]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 896]   SOURCE_U_G_BC
    Use   [source_u_g.f, 897]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 898]   SOURCE_U_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [get_philoss.f, 70]       GET_PHILOSS
    Set   [get_philoss.f, 89]          GET_PHILOSS
    Use Argument   [get_philoss.f, 92]   GET_PHILOSS
    Use   [get_philoss.f, 93]          GET_PHILOSS
    Use Argument   [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   [CG_source_u_s.f, 68]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 176]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 204]       CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 229]   CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 230]   CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 248]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 251]       CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 254]       CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 255]   CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 256]   CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 257]   CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 258]   CG_SOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc1.f, 257]          SET_BC1_ADJUST_OUTFLOW
    Set   [set_bc1.f, 370]             SET_BC1_ADJUST_OUTFLOW
    Use Argument   [set_bc1.f, 373]    SET_BC1_ADJUST_OUTFLOW
    Use   [set_bc1.f, 374]             SET_BC1_ADJUST_OUTFLOW
    Use Argument   [set_bc1.f, 375]    SET_BC1_ADJUST_OUTFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc1.f, 89]           SET_BC1_JET
    Set   [set_bc1.f, 108]             SET_BC1_JET
    Use Argument   [set_bc1.f, 111]    SET_BC1_JET
    Use   [set_bc1.f, 112]             SET_BC1_JET
    Use Argument   [set_bc1.f, 113]    SET_BC1_JET

K    (Local Variable)  Declared as: INTEGER
    Define   [write_des_data.f, 288]   WRITE_DES_TECPLOT
    Use   [write_des_data.f, 349]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 349]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 349]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 349]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 353]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 353]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 353]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 353]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 376]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 377]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 380]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 381]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 397]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 397]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 401]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 401]      WRITE_DES_TECPLOT

K    (Local Variable)  Declared as: INTEGER
    Define   [write_des_data.f, 572]   WRITE_DES_THETA
    Set   [write_des_data.f, 631]      WRITE_DES_THETA
    Use   [write_des_data.f, 634]      WRITE_DES_THETA

K    (Local Variable)  Declared as: INTEGER
    Define   [cooling_rate.f, 170]     FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 195]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 196]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 196]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 201]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 203]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 203]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 203]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 204]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 204]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 204]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 222]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 223]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 225]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 226]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 228]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 229]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 230]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 230]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 231]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 235]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 235]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 235]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 235]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 236]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 236]        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
    Set   [cooling_rate.f, 244]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 245]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 247]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 247]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 248]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 249]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 250]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 252]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 252]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 252]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 252]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 253]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 253]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 254]        FUNC_JACOBI_EVAL
    Set   [cooling_rate.f, 259]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 260]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 260]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 262]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 262]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 263]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 263]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 264]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 264]        FUNC_JACOBI_EVAL

k    (Local Variable)  Declared as: INTEGER
    Define   [cooling_rate.f, 309]     ludcmp
    Set   [cooling_rate.f, 330]        ludcmp
    Use   [cooling_rate.f, 331]        ludcmp
    Use   [cooling_rate.f, 331]        ludcmp
    Set   [cooling_rate.f, 338]        ludcmp
    Use   [cooling_rate.f, 339]        ludcmp
    Use   [cooling_rate.f, 339]        ludcmp
    Set   [cooling_rate.f, 349]        ludcmp
    Use   [cooling_rate.f, 350]        ludcmp
    Use   [cooling_rate.f, 351]        ludcmp
    Use   [cooling_rate.f, 351]        ludcmp
    Use   [cooling_rate.f, 352]        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   [source_rop_g.f, 52]      SOURCE_ROP_G
    Set   [source_rop_g.f, 65]         SOURCE_ROP_G

K    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 42]      DRAG_GS_DES0
    Set   [drag_gs_des0.f, 98]         DRAG_GS_DES0
    Use   [drag_gs_des0.f, 106]        DRAG_GS_DES0
    Set   [drag_gs_des0.f, 114]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 119]        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, 128]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 129]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 136]        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, 137]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 138]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 141]        DRAG_GS_DES0

K    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 237]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 303]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 311]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 319]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 324]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 329]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 330]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 331]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 332]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 333]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 340]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 340]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 343]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 343]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 346]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 349]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 382]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 388]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 400]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 405]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 437]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 440]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 440]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 441]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 442]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 443]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 450]        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

K    (Local Variable)  Declared as: INTEGER
    Define   [apply_wall_bc_pic.f, 320]   CHECK_IF_PARCEL_OVERLAPS_STL
    Set   [apply_wall_bc_pic.f, 327]   CHECK_IF_PARCEL_OVERLAPS_STL
    Set   [apply_wall_bc_pic.f, 328]   CHECK_IF_PARCEL_OVERLAPS_STL
    Use Argument   [apply_wall_bc_pic.f, 332]   CHECK_IF_PARCEL_OVERLAPS_STL

k    (Local Variable)  Declared as: INTEGER
    Define   [apply_wall_bc_pic.f, 389]   write_this_facet_and_parcel
    Use   [apply_wall_bc_pic.f, 422]   write_this_facet_and_parcel
    Set   [apply_wall_bc_pic.f, 422]   write_this_facet_and_parcel
    Use   [apply_wall_bc_pic.f, 433]   write_this_facet_and_parcel
    Set   [apply_wall_bc_pic.f, 433]   write_this_facet_and_parcel

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 538]    LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 651]       LAYOUT_DEM_MI_EW
    Use Argument   [layout_mi_dem.f, 654]   LAYOUT_DEM_MI_EW
    Use Argument   [layout_mi_dem.f, 659]   LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 660]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 664]       LAYOUT_DEM_MI_EW
    Use Argument   [layout_mi_dem.f, 667]   LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 668]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 671]       LAYOUT_DEM_MI_EW
    Set   [layout_mi_dem.f, 675]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 677]       LAYOUT_DEM_MI_EW
    Use   [layout_mi_dem.f, 681]       LAYOUT_DEM_MI_EW

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 125]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 237]       LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 240]   LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 245]   LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 246]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 250]       LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 253]   LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 254]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 257]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 261]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 263]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 267]       LAYOUT_DEM_MI_NS

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 957]    LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 1021]   LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1024]      LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 1058]   LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 1069]   LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1073]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1077]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1081]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1084]      LAYOUT_DEM_MI_TB

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 1327]   SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1340]      SET_DEM_MI_OWNER
    Use Argument   [layout_mi_dem.f, 1341]   SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1350]      SET_DEM_MI_OWNER
    Use Argument   [layout_mi_dem.f, 1351]   SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1357]      SET_DEM_MI_OWNER
    Use Argument   [layout_mi_dem.f, 1361]   SET_DEM_MI_OWNER

K    (Local Variable)  Declared as: INTEGER
    Define   [vf_gs_z.f, 44]           VF_GS_Z
    Set   [vf_gs_z.f, 55]              VF_GS_Z
    Use Argument   [vf_gs_z.f, 58]     VF_GS_Z
    Set   [vf_gs_z.f, 69]              VF_GS_Z
    Use Argument   [vf_gs_z.f, 72]     VF_GS_Z

K    (Local Variable)  Declared as: INTEGER
    Define   [vf_gs_z.f, 125]          VF_SS_Z
    Set   [vf_gs_z.f, 141]             VF_SS_Z
    Use Argument   [vf_gs_z.f, 143]    VF_SS_Z
    Set   [vf_gs_z.f, 156]             VF_SS_Z
    Use Argument   [vf_gs_z.f, 158]    VF_SS_Z

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, 288]     GET_WCELL_GDIFF_TERMS
    Set   [conv_dif_w_g.f, 303]        GET_WCELL_GDIFF_TERMS
    Use   [conv_dif_w_g.f, 304]        GET_WCELL_GDIFF_TERMS
    Use   [conv_dif_w_g.f, 336]        GET_WCELL_GDIFF_TERMS
    Use Argument   [conv_dif_w_g.f, 341]   GET_WCELL_GDIFF_TERMS
    Use Argument   [conv_dif_w_g.f, 345]   GET_WCELL_GDIFF_TERMS
    Use Argument   [conv_dif_w_g.f, 350]   GET_WCELL_GDIFF_TERMS
    Use Argument   [conv_dif_w_g.f, 354]   GET_WCELL_GDIFF_TERMS
    Use Argument   [conv_dif_w_g.f, 371]   GET_WCELL_GDIFF_TERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 90]      GET_WCELL_GVTERMS
    Set   [conv_dif_w_g.f, 98]         GET_WCELL_GVTERMS
    Use Argument   [conv_dif_w_g.f, 125]   GET_WCELL_GVTERMS
    Use Argument   [conv_dif_w_g.f, 126]   GET_WCELL_GVTERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 569]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 608]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 609]        STORE_A_W_GDC

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 Argument   [out_array_c.f, 72]   OUT_ARRAY_C
    Use   [out_array_c.f, 74]          OUT_ARRAY_C

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 977]          IJK_Pg_SEARCH
    Set   [set_bc0.f, 1019]            IJK_Pg_SEARCH
    Set   [set_bc0.f, 1021]            IJK_Pg_SEARCH
    Set   [set_bc0.f, 1023]            IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1029]   IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1031]   IJK_Pg_SEARCH
    Set   [set_bc0.f, 1095]            IJK_Pg_SEARCH
    Use   [set_bc0.f, 1110]            IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1120]   IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1121]   IJK_Pg_SEARCH

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 392]          SET_BC0_INFLOW
    Set   [set_bc0.f, 401]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 404]    SET_BC0_INFLOW
    Use   [set_bc0.f, 405]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 406]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 446]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 450]    SET_BC0_INFLOW
    Use   [set_bc0.f, 454]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 501]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 504]    SET_BC0_INFLOW
    Use   [set_bc0.f, 507]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 537]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 541]    SET_BC0_INFLOW
    Use   [set_bc0.f, 545]             SET_BC0_INFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 699]          set_bc0_init_bcscalars
    Set   [set_bc0.f, 706]             set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 709]    set_bc0_init_bcscalars
    Use   [set_bc0.f, 710]             set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 711]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 715]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 717]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 719]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 721]    set_bc0_init_bcscalars
    Use   [set_bc0.f, 723]             set_bc0_init_bcscalars
    Use   [set_bc0.f, 725]             set_bc0_init_bcscalars

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 236]          SET_BC0_OUTFLOW
    Set   [set_bc0.f, 242]             SET_BC0_OUTFLOW
    Use Argument   [set_bc0.f, 245]    SET_BC0_OUTFLOW
    Use   [set_bc0.f, 246]             SET_BC0_OUTFLOW
    Use Argument   [set_bc0.f, 247]    SET_BC0_OUTFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 126]          SET_BC0_WALLS
    Set   [set_bc0.f, 129]             SET_BC0_WALLS
    Use Argument   [set_bc0.f, 133]    SET_BC0_WALLS
    Use   [set_bc0.f, 134]             SET_BC0_WALLS
    Use Argument   [set_bc0.f, 135]    SET_BC0_WALLS

k    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 688]       copy_d_to_r
    Set   [write_spx1.f, 695]          copy_d_to_r
    Use   [write_spx1.f, 697]          copy_d_to_r

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_s.f, 284]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 307]             CALC_CG_TAU_V_S
    Use   [tau_v_s.f, 308]             CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 345]    CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 346]    CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 536]    CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 537]    CALC_CG_TAU_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_s.f, 165]          CALC_REG_TAU_V_S
    Set   [tau_v_s.f, 176]             CALC_REG_TAU_V_S
    Use   [tau_v_s.f, 177]             CALC_REG_TAU_V_S
    Use Argument   [tau_v_s.f, 225]    CALC_REG_TAU_V_S
    Use Argument   [tau_v_s.f, 226]    CALC_REG_TAU_V_S

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 675]        leq_check
    Set   [leq_gmres.f, 695]           leq_check
    Use   [leq_gmres.f, 698]           leq_check
    Use   [leq_gmres.f, 698]           leq_check
    Use Argument   [leq_gmres.f, 705]   leq_check

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 167]        LEQ_GMRES0
    Set   [leq_gmres.f, 303]           LEQ_GMRES0
    Use   [leq_gmres.f, 304]           LEQ_GMRES0
    Use   [leq_gmres.f, 305]           LEQ_GMRES0
    Use   [leq_gmres.f, 313]           LEQ_GMRES0
    Use   [leq_gmres.f, 313]           LEQ_GMRES0
    Set   [leq_gmres.f, 337]           LEQ_GMRES0
    Use   [leq_gmres.f, 338]           LEQ_GMRES0
    Use   [leq_gmres.f, 338]           LEQ_GMRES0
    Use   [leq_gmres.f, 338]           LEQ_GMRES0
    Use   [leq_gmres.f, 338]           LEQ_GMRES0
    Use   [leq_gmres.f, 339]           LEQ_GMRES0
    Use   [leq_gmres.f, 339]           LEQ_GMRES0
    Use   [leq_gmres.f, 339]           LEQ_GMRES0
    Use   [leq_gmres.f, 339]           LEQ_GMRES0
    Use   [leq_gmres.f, 339]           LEQ_GMRES0
    Use   [leq_gmres.f, 340]           LEQ_GMRES0

K    (Local Variable)  Declared as: INTEGER
    Define   [solve_pp_g.f, 169]       POINT_SOURCE_PP_G
    Set   [solve_pp_g.f, 181]          POINT_SOURCE_PP_G
    Use Argument   [solve_pp_g.f, 185]   POINT_SOURCE_PP_G
    Use   [solve_pp_g.f, 186]          POINT_SOURCE_PP_G
    Use Argument   [solve_pp_g.f, 188]   POINT_SOURCE_PP_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   [write_ab_m.f, 67]        WRITE_AB_M
    Set   [write_ab_m.f, 100]          WRITE_AB_M
    Use   [write_ab_m.f, 104]          WRITE_AB_M
    Use Argument   [write_ab_m.f, 107]   WRITE_AB_M
    Set   [write_ab_m.f, 118]          WRITE_AB_M
    Use   [write_ab_m.f, 122]          WRITE_AB_M
    Use Argument   [write_ab_m.f, 124]   WRITE_AB_M
    Use Argument   [write_ab_m.f, 126]   WRITE_AB_M
    Use   [write_ab_m.f, 126]          WRITE_AB_M

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 48]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 68]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 83]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 84]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 102]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 103]   CALC_INTERP_WEIGHTS1

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 180]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 197]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 226]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 226]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 227]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 227]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 228]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 232]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 252]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 253]   CALC_INTERP_WEIGHTS2

k    (Local Variable)  Declared as: INTEGER
    Define   [source_population_eq.f, 17]   Source_population_eq
    Set   [source_population_eq.f, 194]   Source_population_eq
    Use   [source_population_eq.f, 196]   Source_population_eq
    Use   [source_population_eq.f, 196]   Source_population_eq

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 28]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 73]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 77]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 81]            GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 83]   GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 84]   GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 85]   GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 86]   GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 317]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 334]           GET_3D_ALPHA_U_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 433]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 478]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 482]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 486]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 488]   GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 489]   GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 490]   GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 491]   GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 724]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 741]           GET_3D_ALPHA_V_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 839]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 882]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 886]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 890]           GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 892]   GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 893]   GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 894]   GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 895]   GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 1113]          GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 1133]          GET_3D_ALPHA_W_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [source_phi.f, 198]       POINT_SOURCE_PHI
    Set   [source_phi.f, 211]          POINT_SOURCE_PHI
    Use Argument   [source_phi.f, 215]   POINT_SOURCE_PHI
    Use   [source_phi.f, 216]          POINT_SOURCE_PHI
    Use Argument   [source_phi.f, 218]   POINT_SOURCE_PHI

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_g.f, 278]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 330]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 333]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 371]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 372]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 567]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 568]    CALC_CG_TAU_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_g.f, 82]           CALC_TAU_U_G
    Set   [tau_u_g.f, 119]             CALC_TAU_U_G
    Use   [tau_u_g.f, 122]             CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 172]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 173]    CALC_TAU_U_G
    Use   [tau_u_g.f, 197]             CALC_TAU_U_G
    Use   [tau_u_g.f, 198]             CALC_TAU_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 2760]       CALC_BOYLE_MASSOUDI_STRESS
    Set   [calc_mu_s.f, 2776]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 2779]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 2797]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 2798]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 2800]          CALC_BOYLE_MASSOUDI_STRESS

k    (Local Variable)  Declared as: INTEGER
    Define   [write_ab_m_var.f, 65]    WRITE_AB_M_VAR
    Set   [write_ab_m_var.f, 95]       WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 99]       WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 101]      WRITE_AB_M_VAR
    Set   [write_ab_m_var.f, 116]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 120]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 123]      WRITE_AB_M_VAR
    Use Argument   [write_ab_m_var.f, 125]   WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 125]      WRITE_AB_M_VAR

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1008]      JJ_BC_U_S
    Set   [source_u_s.f, 1013]         JJ_BC_U_S
    Use Argument   [source_u_s.f, 1016]   JJ_BC_U_S
    Use   [source_u_s.f, 1017]         JJ_BC_U_S
    Use Argument   [source_u_s.f, 1019]   JJ_BC_U_S
    Use   [source_u_s.f, 1022]         JJ_BC_U_S
    Use   [source_u_s.f, 1102]         JJ_BC_U_S
    Use   [source_u_s.f, 1103]         JJ_BC_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1177]      POINT_SOURCE_U_S
    Set   [source_u_s.f, 1201]         POINT_SOURCE_U_S
    Use Argument   [source_u_s.f, 1205]   POINT_SOURCE_U_S
    Use   [source_u_s.f, 1206]         POINT_SOURCE_U_S
    Use Argument   [source_u_s.f, 1208]   POINT_SOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 76]        SOURCE_U_S
    Set   [source_u_s.f, 130]          SOURCE_U_S
    Use   [source_u_s.f, 346]          SOURCE_U_S
    Use Argument   [source_u_s.f, 347]   SOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 532]       SOURCE_U_S_BC
    Set   [source_u_s.f, 668]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 671]   SOURCE_U_S_BC
    Use   [source_u_s.f, 672]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 673]   SOURCE_U_S_BC
    Set   [source_u_s.f, 707]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 710]   SOURCE_U_S_BC
    Use   [source_u_s.f, 711]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 712]   SOURCE_U_S_BC
    Set   [source_u_s.f, 746]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 749]   SOURCE_U_S_BC
    Use   [source_u_s.f, 750]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 751]   SOURCE_U_S_BC
    Use   [source_u_s.f, 754]          SOURCE_U_S_BC
    Use   [source_u_s.f, 789]          SOURCE_U_S_BC
    Use   [source_u_s.f, 791]          SOURCE_U_S_BC
    Set   [source_u_s.f, 824]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 827]   SOURCE_U_S_BC
    Use   [source_u_s.f, 828]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 829]   SOURCE_U_S_BC
    Set   [source_u_s.f, 851]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 854]   SOURCE_U_S_BC
    Use   [source_u_s.f, 855]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 856]   SOURCE_U_S_BC
    Set   [source_u_s.f, 885]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 888]   SOURCE_U_S_BC
    Use   [source_u_s.f, 889]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 890]   SOURCE_U_S_BC
    Set   [source_u_s.f, 914]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 917]   SOURCE_U_S_BC
    Use   [source_u_s.f, 918]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 920]   SOURCE_U_S_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 253]      SET_WALL_BC1
    Set   [set_wall_bc.f, 275]         SET_WALL_BC1
    Use Argument   [set_wall_bc.f, 278]   SET_WALL_BC1
    Use   [set_wall_bc.f, 280]         SET_WALL_BC1

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   [read_res1.f, 693]        PATCH_AFTER_RESTART
    Set   [read_res1.f, 716]           PATCH_AFTER_RESTART
    Use   [read_res1.f, 733]           PATCH_AFTER_RESTART
    Use   [read_res1.f, 793]           PATCH_AFTER_RESTART

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_w_s.f, 63]     CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 96]        CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 98]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 103]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 138]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 140]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 145]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 147]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 154]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 164]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 165]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 166]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 169]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 170]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 183]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 188]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 194]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 216]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 233]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 237]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 239]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 240]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 241]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 249]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 250]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 257]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 258]       CALC_IA_MOMSOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [partial_elim_ghd.f, 440]   PARTIAL_ELIM_GHD_W
    Set   [partial_elim_ghd.f, 490]    PARTIAL_ELIM_GHD_W
    Use Argument   [partial_elim_ghd.f, 492]   PARTIAL_ELIM_GHD_W
    Set   [partial_elim_ghd.f, 564]    PARTIAL_ELIM_GHD_W
    Use Argument   [partial_elim_ghd.f, 566]   PARTIAL_ELIM_GHD_W

K    (Local Variable)  Declared as: INTEGER
    Define   [mass_inflow_dem.f, 424]   DES_NEW_PARTICLE_TEST
    Set   [mass_inflow_dem.f, 458]     DES_NEW_PARTICLE_TEST
    Use Argument   [mass_inflow_dem.f, 464]   DES_NEW_PARTICLE_TEST

K    (Local Variable)  Declared as: INTEGER
    Define   [source_rop_s.f, 157]     POINT_SOURCE_ROP_S
    Set   [source_rop_s.f, 169]        POINT_SOURCE_ROP_S
    Use Argument   [source_rop_s.f, 173]   POINT_SOURCE_ROP_S
    Use   [source_rop_s.f, 174]        POINT_SOURCE_ROP_S
    Use Argument   [source_rop_s.f, 176]   POINT_SOURCE_ROP_S

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

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_grad_des.f, 182]    CALC_GRAD_DES_CG
    Set   [calc_grad_des.f, 193]       CALC_GRAD_DES_CG
    Use   [calc_grad_des.f, 240]       CALC_GRAD_DES_CG
    Use   [calc_grad_des.f, 245]       CALC_GRAD_DES_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_grad_des.f, 77]     CALC_GRAD_DES_STD
    Set   [calc_grad_des.f, 125]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 130]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 130]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 131]       CALC_GRAD_DES_STD
    Use Argument   [calc_grad_des.f, 131]   CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 132]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 133]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 134]       CALC_GRAD_DES_STD
    Use Argument   [calc_grad_des.f, 135]   CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 136]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 137]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 138]       CALC_GRAD_DES_STD

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   [mass_inflow_pic.f, 357]   PIC_FIND_NEW_CELL
    Set   [mass_inflow_pic.f, 362]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 388]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 388]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 389]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 390]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 391]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 393]     PIC_FIND_NEW_CELL
    Set   [mass_inflow_pic.f, 399]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 409]     PIC_FIND_NEW_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 432]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 528]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 545]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 545]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 552]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 554]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 555]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 557]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 558]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 560]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 561]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 586]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 587]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 587]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 588]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 588]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 589]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 589]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 590]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 590]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 611]      RE_INDEX_ARRAYS
    Use Argument   [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, 625]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 627]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 629]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 630]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 632]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 643]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 645]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 647]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 648]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 650]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 661]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 662]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 663]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 664]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 689]      RE_INDEX_ARRAYS
    Use Argument   [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, 703]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 705]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 707]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 708]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 710]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 721]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 723]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 725]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 726]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 728]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 739]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 740]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 741]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 742]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 764]      RE_INDEX_ARRAYS
    Use Argument   [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, 778]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 782]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 784]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 785]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 787]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 796]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 800]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 802]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 803]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 805]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 814]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 817]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 818]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 819]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 864]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 870]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 870]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 875]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 876]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 1835]     RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 1838]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 1840]     RE_INDEX_ARRAYS

K    (Dummy Argument)  Declared as: INTEGER
    Define   [set_increments.f, 2023]   RECORD_NEW_IJK_CELL
    Declare   [set_increments.f, 2055]   RECORD_NEW_IJK_CELL
    Use   [set_increments.f, 2065]     RECORD_NEW_IJK_CELL
    Use   [set_increments.f, 2069]     RECORD_NEW_IJK_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 37]    SET_INCREMENTS
    Set   [set_increments.f, 100]      SET_INCREMENTS
    Use   [set_increments.f, 102]      SET_INCREMENTS
    Use   [set_increments.f, 102]      SET_INCREMENTS
    Use   [set_increments.f, 103]      SET_INCREMENTS
    Use   [set_increments.f, 103]      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, 109]      SET_INCREMENTS
    Use   [set_increments.f, 109]      SET_INCREMENTS
    Use   [set_increments.f, 110]      SET_INCREMENTS
    Use   [set_increments.f, 110]      SET_INCREMENTS
    Set   [set_increments.f, 115]      SET_INCREMENTS
    Use Argument   [set_increments.f, 119]   SET_INCREMENTS
    Use   [set_increments.f, 123]      SET_INCREMENTS
    Set   [set_increments.f, 132]      SET_INCREMENTS
    Use Argument   [set_increments.f, 136]   SET_INCREMENTS
    Use Argument   [set_increments.f, 139]   SET_INCREMENTS
    Set   [set_increments.f, 252]      SET_INCREMENTS
    Use Argument   [set_increments.f, 255]   SET_INCREMENTS
    Use   [set_increments.f, 257]      SET_INCREMENTS
    Use   [set_increments.f, 262]      SET_INCREMENTS
    Set   [set_increments.f, 283]      SET_INCREMENTS
    Use   [set_increments.f, 287]      SET_INCREMENTS
    Use   [set_increments.f, 287]      SET_INCREMENTS
    Use Argument   [set_increments.f, 302]   SET_INCREMENTS
    Use Argument   [set_increments.f, 306]   SET_INCREMENTS
    Set   [set_increments.f, 312]      SET_INCREMENTS
    Use Argument   [set_increments.f, 315]   SET_INCREMENTS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 2574]   WRITE_IJK_VALUES
    Set   [set_increments.f, 2623]     WRITE_IJK_VALUES
    Use Argument   [set_increments.f, 2626]   WRITE_IJK_VALUES
    Use   [set_increments.f, 2628]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2628]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2631]     WRITE_IJK_VALUES
    Use Argument   [set_increments.f, 2633]   WRITE_IJK_VALUES

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mi.f, 154]    SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 232]       SET_PIC_BCMI_IJK
    Use Argument   [set_bc_pic_mi.f, 237]   SET_PIC_BCMI_IJK
    Use Argument   [set_bc_pic_mi.f, 238]   SET_PIC_BCMI_IJK

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ic.f, 37]            SET_IC
    Set   [set_ic.f, 91]               SET_IC
    Use Argument   [set_ic.f, 94]      SET_IC
    Use   [set_ic.f, 95]               SET_IC
    Use Argument   [set_ic.f, 96]      SET_IC

k    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 310]     GET_WCELL_SDIFF_TERMS
    Set   [conv_dif_w_s.f, 324]        GET_WCELL_SDIFF_TERMS
    Use   [conv_dif_w_s.f, 325]        GET_WCELL_SDIFF_TERMS
    Use   [conv_dif_w_s.f, 357]        GET_WCELL_SDIFF_TERMS
    Use Argument   [conv_dif_w_s.f, 362]   GET_WCELL_SDIFF_TERMS
    Use Argument   [conv_dif_w_s.f, 366]   GET_WCELL_SDIFF_TERMS
    Use Argument   [conv_dif_w_s.f, 371]   GET_WCELL_SDIFF_TERMS
    Use Argument   [conv_dif_w_s.f, 375]   GET_WCELL_SDIFF_TERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 109]     GET_WCELL_SVTERMS
    Set   [conv_dif_w_s.f, 117]        GET_WCELL_SVTERMS
    Use Argument   [conv_dif_w_s.f, 144]   GET_WCELL_SVTERMS
    Use Argument   [conv_dif_w_s.f, 145]   GET_WCELL_SVTERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 578]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 617]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 618]        STORE_A_W_SDC

K    (Local Variable)  Declared as: INTEGER
    Define   [solid_drag.f, 162]       SOLID_DRAG_W
    Set   [solid_drag.f, 171]          SOLID_DRAG_W
    Use Argument   [solid_drag.f, 174]   SOLID_DRAG_W
    Use Argument   [solid_drag.f, 176]   SOLID_DRAG_W

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   [dif_u_is.f, 47]          DIF_U_IS
    Set   [dif_u_is.f, 71]             DIF_U_IS
    Use Argument   [dif_u_is.f, 74]    DIF_U_IS
    Use   [dif_u_is.f, 75]             DIF_U_IS
    Use Argument   [dif_u_is.f, 76]    DIF_U_IS
    Set   [dif_u_is.f, 94]             DIF_U_IS
    Use Argument   [dif_u_is.f, 97]    DIF_U_IS
    Use   [dif_u_is.f, 98]             DIF_U_IS
    Use Argument   [dif_u_is.f, 99]    DIF_U_IS
    Use Argument   [dif_u_is.f, 105]   DIF_U_IS
    Use Argument   [dif_u_is.f, 106]   DIF_U_IS
    Use   [dif_u_is.f, 107]            DIF_U_IS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_geometry.f, 57]      SET_GEOMETRY
    Set   [set_geometry.f, 281]        SET_GEOMETRY
    Use   [set_geometry.f, 282]        SET_GEOMETRY
    Use   [set_geometry.f, 283]        SET_GEOMETRY
    Use   [set_geometry.f, 283]        SET_GEOMETRY
    Use   [set_geometry.f, 284]        SET_GEOMETRY
    Use   [set_geometry.f, 286]        SET_GEOMETRY
    Use   [set_geometry.f, 286]        SET_GEOMETRY
    Use   [set_geometry.f, 286]        SET_GEOMETRY
    Use   [set_geometry.f, 287]        SET_GEOMETRY
    Use   [set_geometry.f, 287]        SET_GEOMETRY
    Use   [set_geometry.f, 287]        SET_GEOMETRY
    Use   [set_geometry.f, 290]        SET_GEOMETRY
    Use   [set_geometry.f, 290]        SET_GEOMETRY
    Use   [set_geometry.f, 290]        SET_GEOMETRY
    Use   [set_geometry.f, 291]        SET_GEOMETRY
    Use   [set_geometry.f, 291]        SET_GEOMETRY
    Use   [set_geometry.f, 291]        SET_GEOMETRY
    Use   [set_geometry.f, 293]        SET_GEOMETRY
    Use   [set_geometry.f, 293]        SET_GEOMETRY
    Use   [set_geometry.f, 295]        SET_GEOMETRY
    Use   [set_geometry.f, 295]        SET_GEOMETRY
    Use   [set_geometry.f, 295]        SET_GEOMETRY
    Set   [set_geometry.f, 362]        SET_GEOMETRY
    Use   [set_geometry.f, 363]        SET_GEOMETRY
    Use   [set_geometry.f, 363]        SET_GEOMETRY
    Use   [set_geometry.f, 364]        SET_GEOMETRY
    Use   [set_geometry.f, 365]        SET_GEOMETRY
    Use   [set_geometry.f, 365]        SET_GEOMETRY
    Use   [set_geometry.f, 365]        SET_GEOMETRY
    Use   [set_geometry.f, 365]        SET_GEOMETRY
    Use   [set_geometry.f, 366]        SET_GEOMETRY
    Use   [set_geometry.f, 366]        SET_GEOMETRY

K    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 38]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 56]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 59]      MAKE_ARRAYS_DES
    Use Argument   [make_arrays_des.f, 60]   MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 65]      MAKE_ARRAYS_DES
    Use Argument   [make_arrays_des.f, 66]   MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 66]      MAKE_ARRAYS_DES

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, 657]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 660]   SOURCE_GRANULAR_ENERGY_GD
    Use Argument   [source_granular_energy.f, 751]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 766]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 767]   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   [calc_outflow.f, 43]      CALC_OUTFLOW
    Set   [calc_outflow.f, 51]         CALC_OUTFLOW
    Use Argument   [calc_outflow.f, 55]   CALC_OUTFLOW
    Use   [calc_outflow.f, 56]         CALC_OUTFLOW
    Use Argument   [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   [qmomk_gas_drag.f, 50]    QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 65]       QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 86]       QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 108]      QMOMK_GAS_DRAG
    Use Argument   [qmomk_gas_drag.f, 112]   QMOMK_GAS_DRAG

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mo.f, 45]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 133]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 137]       SET_BC_DEM_MO
    Use Argument   [set_bc_dem_mo.f, 139]   SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 173]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 177]       SET_BC_DEM_MO
    Use Argument   [set_bc_dem_mo.f, 179]   SET_BC_DEM_MO

k    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 300]     GET_VCELL_GDIFF_TERMS
    Set   [conv_dif_v_g.f, 315]        GET_VCELL_GDIFF_TERMS
    Use   [conv_dif_v_g.f, 318]        GET_VCELL_GDIFF_TERMS
    Use   [conv_dif_v_g.f, 343]        GET_VCELL_GDIFF_TERMS
    Use Argument   [conv_dif_v_g.f, 370]   GET_VCELL_GDIFF_TERMS
    Use Argument   [conv_dif_v_g.f, 371]   GET_VCELL_GDIFF_TERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 593]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 632]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 633]        STORE_A_V_GDC

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_g.f, 44]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 78]        CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 80]   CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 173]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 185]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 188]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 191]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 194]   CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 219]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 222]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 225]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 226]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 227]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 228]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 229]   CG_SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [usr_src_mod.f, 96]       CALC_USR_SOURCE
    Set   [usr_src_mod.f, 258]         CALC_USR_SOURCE
    Use Argument   [usr_src_mod.f, 260]   CALC_USR_SOURCE
    Set   [usr_src_mod.f, 275]         CALC_USR_SOURCE
    Use Argument   [usr_src_mod.f, 280]   CALC_USR_SOURCE
    Use Argument   [usr_src_mod.f, 284]   CALC_USR_SOURCE

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_s.f, 319]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 344]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 345]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 384]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 385]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 582]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 583]    CALC_CG_TAU_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_s.f, 170]          CALC_REG_TAU_U_S
    Set   [tau_u_s.f, 185]             CALC_REG_TAU_U_S
    Use   [tau_u_s.f, 186]             CALC_REG_TAU_U_S
    Use Argument   [tau_u_s.f, 236]    CALC_REG_TAU_U_S
    Use Argument   [tau_u_s.f, 237]    CALC_REG_TAU_U_S
    Use   [tau_u_s.f, 262]             CALC_REG_TAU_U_S
    Use   [tau_u_s.f, 263]             CALC_REG_TAU_U_S

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

K    (Dummy Argument)  Declared as: INTEGER
    Define   [set_index1a.f, 34]       SET_INDEX1A
    Declare   [set_index1a.f, 59]      SET_INDEX1A
    Use Argument   [set_index1a.f, 96]   SET_INDEX1A
    Use Argument   [set_index1a.f, 119]   SET_INDEX1A
    Use Argument   [set_index1a.f, 142]   SET_INDEX1A
    Use Argument   [set_index1a.f, 165]   SET_INDEX1A
    Use   [set_index1a.f, 177]         SET_INDEX1A
    Use   [set_index1a.f, 188]         SET_INDEX1A
    Use   [set_index1a.f, 200]         SET_INDEX1A
    Use   [set_index1a.f, 211]         SET_INDEX1A

K    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 36]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 136]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 141]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 143]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 144]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 145]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 169]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 175]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 177]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 217]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 222]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 222]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 223]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 313]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 316]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 317]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 325]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 325]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 325]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 404]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 406]   COMP_MEAN_FIELDS0

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_g.f, 552]       CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 576]          CALC_CG_DERIV_VEL_GAS

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_g.f, 110]       CALC_CG_TRD_G
    Set   [calc_trd_g.f, 126]          CALC_CG_TRD_G

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_g.f, 451]       CALC_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 461]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 471]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 475]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 479]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 488]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 493]          CALC_DERIV_VEL_GAS
    Use   [calc_trd_g.f, 498]          CALC_DERIV_VEL_GAS

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

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_g.f, 342]       GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 350]          GET_FACE_VEL_GAS
    Use   [calc_trd_g.f, 353]          GET_FACE_VEL_GAS
    Use Argument   [calc_trd_g.f, 376]   GET_FACE_VEL_GAS
    Use Argument   [calc_trd_g.f, 387]   GET_FACE_VEL_GAS

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   [leq_bicgs.f, 184]        LEQ_BICGS0
    Set   [leq_bicgs.f, 212]           LEQ_BICGS0
    Use Argument   [leq_bicgs.f, 215]   LEQ_BICGS0

K    (Local Variable)  Declared as: INTEGER
    Define   [cfassign.f, 208]         compute_volume_of_nodes
    Set   [cfassign.f, 252]            compute_volume_of_nodes
    Use Argument   [cfassign.f, 260]   compute_volume_of_nodes
    Use Argument   [cfassign.f, 261]   compute_volume_of_nodes
    Use Argument   [cfassign.f, 262]   compute_volume_of_nodes
    Use   [cfassign.f, 266]            compute_volume_of_nodes
    Use   [cfassign.f, 267]            compute_volume_of_nodes
    Use   [cfassign.f, 268]            compute_volume_of_nodes
    Use   [cfassign.f, 269]            compute_volume_of_nodes

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   [usr_dqmom.f, 34]         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   [check_odepack_stiff_chem.f, 47]   CHECK_ODEPACK_STIFF_CHEM
    Set   [check_odepack_stiff_chem.f, 76]   CHECK_ODEPACK_STIFF_CHEM
    Use Argument   [check_odepack_stiff_chem.f, 79]   CHECK_ODEPACK_STIFF_CHEM

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18227]        CNTNZU
    Set   [ODEPACK.F, 18240]           CNTNZU
    Use   [ODEPACK.F, 18241]           CNTNZU

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26475]        DAINVGS
    Set   [ODEPACK.F, 26526]           DAINVGS
    Use   [ODEPACK.F, 26527]           DAINVGS
    Set   [ODEPACK.F, 26530]           DAINVGS
    Use   [ODEPACK.F, 26531]           DAINVGS
    Use   [ODEPACK.F, 26532]           DAINVGS

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25911]        DDECBT
    Set   [ODEPACK.F, 25918]           DDECBT
    Set   [ODEPACK.F, 25932]           DDECBT
    Use   [ODEPACK.F, 25933]           DDECBT
    Use   [ODEPACK.F, 25936]           DDECBT
    Use   [ODEPACK.F, 25937]           DDECBT
    Use   [ODEPACK.F, 25937]           DDECBT
    Use   [ODEPACK.F, 25940]           DDECBT
    Use   [ODEPACK.F, 25940]           DDECBT
    Use   [ODEPACK.F, 25943]           DDECBT
    Use   [ODEPACK.F, 25943]           DDECBT
    Use   [ODEPACK.F, 25943]           DDECBT
    Set   [ODEPACK.F, 25959]           DDECBT
    Use   [ODEPACK.F, 25963]           DDECBT

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 27058]        DGBFA
    Set   [ODEPACK.F, 27083]           DGBFA
    Use   [ODEPACK.F, 27084]           DGBFA
    Use   [ODEPACK.F, 27098]           DGBFA
    Use   [ODEPACK.F, 27099]           DGBFA
    Use   [ODEPACK.F, 27100]           DGBFA
    Use   [ODEPACK.F, 27100]           DGBFA
    Use   [ODEPACK.F, 27104]           DGBFA
    Use   [ODEPACK.F, 27109]           DGBFA
    Use   [ODEPACK.F, 27110]           DGBFA
    Use   [ODEPACK.F, 27110]           DGBFA
    Use   [ODEPACK.F, 27111]           DGBFA
    Use   [ODEPACK.F, 27116]           DGBFA
    Use   [ODEPACK.F, 27117]           DGBFA
    Use   [ODEPACK.F, 27121]           DGBFA
    Use   [ODEPACK.F, 27132]           DGBFA
    Use   [ODEPACK.F, 27137]           DGBFA

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 27226]        DGBSL
    Set   [ODEPACK.F, 27237]           DGBSL
    Use   [ODEPACK.F, 27238]           DGBSL
    Use   [ODEPACK.F, 27239]           DGBSL
    Use   [ODEPACK.F, 27241]           DGBSL
    Use   [ODEPACK.F, 27242]           DGBSL
    Use   [ODEPACK.F, 27243]           DGBSL
    Use   [ODEPACK.F, 27245]           DGBSL
    Use   [ODEPACK.F, 27245]           DGBSL
    Set   [ODEPACK.F, 27252]           DGBSL
    Use   [ODEPACK.F, 27253]           DGBSL
    Use   [ODEPACK.F, 27253]           DGBSL
    Use   [ODEPACK.F, 27253]           DGBSL
    Use Argument   [ODEPACK.F, 27254]   DGBSL
    Use   [ODEPACK.F, 27256]           DGBSL
    Use   [ODEPACK.F, 27257]           DGBSL
    Use   [ODEPACK.F, 27258]           DGBSL
    Set   [ODEPACK.F, 27266]           DGBSL
    Use Argument   [ODEPACK.F, 27267]   DGBSL
    Use   [ODEPACK.F, 27269]           DGBSL
    Use   [ODEPACK.F, 27270]           DGBSL
    Use   [ODEPACK.F, 27271]           DGBSL
    Use   [ODEPACK.F, 27271]           DGBSL
    Use   [ODEPACK.F, 27271]           DGBSL
    Set   [ODEPACK.F, 27279]           DGBSL
    Use   [ODEPACK.F, 27280]           DGBSL
    Use   [ODEPACK.F, 27281]           DGBSL
    Use   [ODEPACK.F, 27281]           DGBSL
    Use   [ODEPACK.F, 27281]           DGBSL
    Use   [ODEPACK.F, 27281]           DGBSL
    Use   [ODEPACK.F, 27282]           DGBSL
    Use   [ODEPACK.F, 27283]           DGBSL
    Use   [ODEPACK.F, 27285]           DGBSL
    Use   [ODEPACK.F, 27286]           DGBSL

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26776]        DGEFA
    Set   [ODEPACK.F, 26784]           DGEFA
    Use   [ODEPACK.F, 26785]           DGEFA
    Use   [ODEPACK.F, 26789]           DGEFA
    Use   [ODEPACK.F, 26789]           DGEFA
    Use   [ODEPACK.F, 26789]           DGEFA
    Use   [ODEPACK.F, 26789]           DGEFA
    Use   [ODEPACK.F, 26790]           DGEFA
    Use   [ODEPACK.F, 26794]           DGEFA
    Use   [ODEPACK.F, 26798]           DGEFA
    Use   [ODEPACK.F, 26799]           DGEFA
    Use   [ODEPACK.F, 26800]           DGEFA
    Use   [ODEPACK.F, 26800]           DGEFA
    Use   [ODEPACK.F, 26800]           DGEFA
    Use   [ODEPACK.F, 26801]           DGEFA
    Use   [ODEPACK.F, 26801]           DGEFA
    Use   [ODEPACK.F, 26806]           DGEFA
    Use   [ODEPACK.F, 26806]           DGEFA
    Use   [ODEPACK.F, 26807]           DGEFA
    Use   [ODEPACK.F, 26807]           DGEFA
    Use   [ODEPACK.F, 26807]           DGEFA
    Use   [ODEPACK.F, 26813]           DGEFA
    Use   [ODEPACK.F, 26814]           DGEFA
    Use   [ODEPACK.F, 26815]           DGEFA
    Use   [ODEPACK.F, 26817]           DGEFA
    Use   [ODEPACK.F, 26817]           DGEFA
    Use   [ODEPACK.F, 26817]           DGEFA
    Use   [ODEPACK.F, 26817]           DGEFA
    Use   [ODEPACK.F, 26821]           DGEFA

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26903]        DGESL
    Set   [ODEPACK.F, 26912]           DGESL
    Use   [ODEPACK.F, 26913]           DGESL
    Use   [ODEPACK.F, 26915]           DGESL
    Use   [ODEPACK.F, 26916]           DGESL
    Use   [ODEPACK.F, 26917]           DGESL
    Use   [ODEPACK.F, 26919]           DGESL
    Use   [ODEPACK.F, 26919]           DGESL
    Use   [ODEPACK.F, 26919]           DGESL
    Use   [ODEPACK.F, 26919]           DGESL
    Set   [ODEPACK.F, 26926]           DGESL
    Use   [ODEPACK.F, 26927]           DGESL
    Use   [ODEPACK.F, 26927]           DGESL
    Use   [ODEPACK.F, 26927]           DGESL
    Use   [ODEPACK.F, 26927]           DGESL
    Use   [ODEPACK.F, 26928]           DGESL
    Use   [ODEPACK.F, 26929]           DGESL
    Use   [ODEPACK.F, 26929]           DGESL
    Set   [ODEPACK.F, 26937]           DGESL
    Use   [ODEPACK.F, 26938]           DGESL
    Use   [ODEPACK.F, 26938]           DGESL
    Use   [ODEPACK.F, 26939]           DGESL
    Use   [ODEPACK.F, 26939]           DGESL
    Use   [ODEPACK.F, 26939]           DGESL
    Use   [ODEPACK.F, 26939]           DGESL
    Set   [ODEPACK.F, 26946]           DGESL
    Use   [ODEPACK.F, 26947]           DGESL
    Use   [ODEPACK.F, 26947]           DGESL
    Use   [ODEPACK.F, 26947]           DGESL
    Use   [ODEPACK.F, 26947]           DGESL
    Use   [ODEPACK.F, 26947]           DGESL
    Use   [ODEPACK.F, 26947]           DGESL
    Use   [ODEPACK.F, 26948]           DGESL
    Use   [ODEPACK.F, 26949]           DGESL
    Use   [ODEPACK.F, 26951]           DGESL
    Use   [ODEPACK.F, 26952]           DGESL

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 23690]        DHEFA
    Set   [ODEPACK.F, 23704]           DHEFA
    Use   [ODEPACK.F, 23705]           DHEFA
    Use   [ODEPACK.F, 23709]           DHEFA
    Use   [ODEPACK.F, 23709]           DHEFA
    Use   [ODEPACK.F, 23709]           DHEFA
    Use   [ODEPACK.F, 23710]           DHEFA
    Use   [ODEPACK.F, 23714]           DHEFA
    Use   [ODEPACK.F, 23718]           DHEFA
    Use   [ODEPACK.F, 23719]           DHEFA
    Use   [ODEPACK.F, 23720]           DHEFA
    Use   [ODEPACK.F, 23720]           DHEFA
    Use   [ODEPACK.F, 23720]           DHEFA
    Use   [ODEPACK.F, 23721]           DHEFA
    Use   [ODEPACK.F, 23721]           DHEFA
    Use   [ODEPACK.F, 23726]           DHEFA
    Use   [ODEPACK.F, 23726]           DHEFA
    Use   [ODEPACK.F, 23727]           DHEFA
    Use   [ODEPACK.F, 23727]           DHEFA
    Use   [ODEPACK.F, 23727]           DHEFA
    Use   [ODEPACK.F, 23727]           DHEFA
    Use   [ODEPACK.F, 23733]           DHEFA
    Use   [ODEPACK.F, 23734]           DHEFA
    Use   [ODEPACK.F, 23735]           DHEFA
    Use   [ODEPACK.F, 23737]           DHEFA
    Use   [ODEPACK.F, 23737]           DHEFA
    Use   [ODEPACK.F, 23737]           DHEFA
    Use   [ODEPACK.F, 23737]           DHEFA
    Use   [ODEPACK.F, 23741]           DHEFA
    Set   [ODEPACK.F, 23760]           DHEFA
    Use   [ODEPACK.F, 23761]           DHEFA
    Use   [ODEPACK.F, 23768]           DHEFA
    Use   [ODEPACK.F, 23768]           DHEFA
    Use   [ODEPACK.F, 23768]           DHEFA

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 24083]        DHELS
    Set   [ODEPACK.F, 24089]           DHELS
    Use   [ODEPACK.F, 24090]           DHELS
    Use   [ODEPACK.F, 24091]           DHELS
    Use   [ODEPACK.F, 24094]           DHELS
    Use   [ODEPACK.F, 24096]           DHELS
    Set   [ODEPACK.F, 24103]           DHELS
    Use   [ODEPACK.F, 24104]           DHELS
    Use   [ODEPACK.F, 24104]           DHELS
    Use   [ODEPACK.F, 24104]           DHELS
    Use   [ODEPACK.F, 24104]           DHELS
    Use   [ODEPACK.F, 24105]           DHELS
    Use   [ODEPACK.F, 24106]           DHELS
    Use   [ODEPACK.F, 24106]           DHELS

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 23936]        DHEQR
    Set   [ODEPACK.F, 23946]           DHEQR
    Use   [ODEPACK.F, 23947]           DHEQR
    Use   [ODEPACK.F, 23948]           DHEQR
    Use   [ODEPACK.F, 23957]           DHEQR
    Use   [ODEPACK.F, 23958]           DHEQR
    Use   [ODEPACK.F, 23961]           DHEQR
    Use   [ODEPACK.F, 23962]           DHEQR
    Use   [ODEPACK.F, 23969]           DHEQR
    Use   [ODEPACK.F, 23969]           DHEQR
    Use   [ODEPACK.F, 23970]           DHEQR
    Use   [ODEPACK.F, 23988]           DHEQR
    Use   [ODEPACK.F, 23988]           DHEQR
    Use   [ODEPACK.F, 23989]           DHEQR
    Use   [ODEPACK.F, 23989]           DHEQR
    Use   [ODEPACK.F, 23989]           DHEQR
    Set   [ODEPACK.F, 24002]           DHEQR
    Use   [ODEPACK.F, 24003]           DHEQR
    Use   [ODEPACK.F, 24004]           DHEQR
    Use   [ODEPACK.F, 24005]           DHEQR
    Use   [ODEPACK.F, 24008]           DHEQR
    Use   [ODEPACK.F, 24009]           DHEQR

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 23852]        DHESL
    Set   [ODEPACK.F, 23861]           DHESL
    Use   [ODEPACK.F, 23862]           DHESL
    Use   [ODEPACK.F, 23864]           DHESL
    Use   [ODEPACK.F, 23865]           DHESL
    Use   [ODEPACK.F, 23866]           DHESL
    Use   [ODEPACK.F, 23868]           DHESL
    Use   [ODEPACK.F, 23868]           DHESL
    Use   [ODEPACK.F, 23868]           DHESL
    Use   [ODEPACK.F, 23868]           DHESL
    Set   [ODEPACK.F, 23875]           DHESL
    Use   [ODEPACK.F, 23876]           DHESL
    Use   [ODEPACK.F, 23876]           DHESL
    Use   [ODEPACK.F, 23876]           DHESL
    Use   [ODEPACK.F, 23876]           DHESL
    Use   [ODEPACK.F, 23877]           DHESL
    Use   [ODEPACK.F, 23878]           DHESL
    Use   [ODEPACK.F, 23878]           DHESL

K    (Dummy Argument)  Declared as: INTEGER
    Define   [ODEPACK.F, 16762]        DINTDY
    Declare   [ODEPACK.F, 16802]       DINTDY
    Use   [ODEPACK.F, 16823]           DINTDY
    Use   [ODEPACK.F, 16823]           DINTDY
    Use   [ODEPACK.F, 16829]           DINTDY
    Use   [ODEPACK.F, 16830]           DINTDY
    Use   [ODEPACK.F, 16836]           DINTDY
    Use   [ODEPACK.F, 16837]           DINTDY
    Use   [ODEPACK.F, 16842]           DINTDY
    Use   [ODEPACK.F, 16843]           DINTDY
    Use   [ODEPACK.F, 16850]           DINTDY
    Use   [ODEPACK.F, 16851]           DINTDY
    Use Argument   [ODEPACK.F, 16857]   DINTDY

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25691]        DPJIBT
    Set   [ODEPACK.F, 25762]           DPJIBT
    Use   [ODEPACK.F, 25765]           DPJIBT
    Use   [ODEPACK.F, 25775]           DPJIBT

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 17896]        DPREP
    Set   [ODEPACK.F, 17966]           DPREP
    Use   [ODEPACK.F, 17967]           DPREP
    Set   [ODEPACK.F, 17986]           DPREP
    Use   [ODEPACK.F, 17989]           DPREP
    Use   [ODEPACK.F, 17990]           DPREP
    Set   [ODEPACK.F, 17991]           DPREP
    Use   [ODEPACK.F, 17991]           DPREP
    Use   [ODEPACK.F, 17998]           DPREP
    Use   [ODEPACK.F, 17999]           DPREP
    Set   [ODEPACK.F, 18000]           DPREP
    Use   [ODEPACK.F, 18000]           DPREP
    Use   [ODEPACK.F, 18002]           DPREP
    Set   [ODEPACK.F, 18007]           DPREP
    Use   [ODEPACK.F, 18011]           DPREP
    Use   [ODEPACK.F, 18012]           DPREP
    Set   [ODEPACK.F, 18013]           DPREP
    Use   [ODEPACK.F, 18013]           DPREP
    Use   [ODEPACK.F, 18024]           DPREP
    Use   [ODEPACK.F, 18025]           DPREP
    Set   [ODEPACK.F, 18026]           DPREP
    Use   [ODEPACK.F, 18026]           DPREP
    Use   [ODEPACK.F, 18028]           DPREP

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26129]        DPREPI
    Set   [ODEPACK.F, 26213]           DPREPI
    Use   [ODEPACK.F, 26214]           DPREPI
    Set   [ODEPACK.F, 26223]           DPREPI
    Use   [ODEPACK.F, 26224]           DPREPI
    Set   [ODEPACK.F, 26244]           DPREPI
    Use   [ODEPACK.F, 26257]           DPREPI
    Use   [ODEPACK.F, 26258]           DPREPI
    Set   [ODEPACK.F, 26259]           DPREPI
    Use   [ODEPACK.F, 26259]           DPREPI
    Use   [ODEPACK.F, 26261]           DPREPI
    Set   [ODEPACK.F, 26268]           DPREPI
    Use   [ODEPACK.F, 26288]           DPREPI
    Use   [ODEPACK.F, 26289]           DPREPI
    Set   [ODEPACK.F, 26290]           DPREPI
    Use   [ODEPACK.F, 26290]           DPREPI
    Use   [ODEPACK.F, 26292]           DPREPI
    Set   [ODEPACK.F, 26311]           DPREPI
    Use   [ODEPACK.F, 26312]           DPREPI
    Set   [ODEPACK.F, 26347]           DPREPI
    Use   [ODEPACK.F, 26348]           DPREPI

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26587]        DPRJIS
    Set   [ODEPACK.F, 26644]           DPRJIS
    Use   [ODEPACK.F, 26645]           DPRJIS
    Use   [ODEPACK.F, 26646]           DPRJIS
    Set   [ODEPACK.F, 26676]           DPRJIS
    Use   [ODEPACK.F, 26677]           DPRJIS
    Set   [ODEPACK.F, 26681]           DPRJIS
    Use   [ODEPACK.F, 26682]           DPRJIS
    Use   [ODEPACK.F, 26683]           DPRJIS

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18279]        DPRJS
    Set   [ODEPACK.F, 18347]           DPRJS
    Use   [ODEPACK.F, 18348]           DPRJS
    Use   [ODEPACK.F, 18349]           DPRJS
    Use   [ODEPACK.F, 18350]           DPRJS
    Use   [ODEPACK.F, 18350]           DPRJS
    Set   [ODEPACK.F, 18377]           DPRJS
    Use   [ODEPACK.F, 18378]           DPRJS
    Use   [ODEPACK.F, 18379]           DPRJS
    Use   [ODEPACK.F, 18380]           DPRJS
    Use   [ODEPACK.F, 18380]           DPRJS
    Set   [ODEPACK.F, 18396]           DPRJS
    Use   [ODEPACK.F, 18397]           DPRJS
    Use   [ODEPACK.F, 18398]           DPRJS
    Use   [ODEPACK.F, 18406]           DPRJS

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25992]        DSOLBT
    Set   [ODEPACK.F, 25998]           DSOLBT
    Use   [ODEPACK.F, 25999]           DSOLBT
    Use   [ODEPACK.F, 26001]           DSOLBT
    Use   [ODEPACK.F, 26002]           DSOLBT
    Use   [ODEPACK.F, 26002]           DSOLBT
    Use   [ODEPACK.F, 26004]           DSOLBT
    Use   [ODEPACK.F, 26004]           DSOLBT
    Use   [ODEPACK.F, 26004]           DSOLBT
    Set   [ODEPACK.F, 26014]           DSOLBT
    Use   [ODEPACK.F, 26015]           DSOLBT
    Use   [ODEPACK.F, 26017]           DSOLBT
    Use   [ODEPACK.F, 26018]           DSOLBT
    Use   [ODEPACK.F, 26018]           DSOLBT

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 22998]        DSPIGMR
    Set   [ODEPACK.F, 23074]           DSPIGMR
    Use   [ODEPACK.F, 23075]           DSPIGMR
    Use   [ODEPACK.F, 23075]           DSPIGMR
    Use   [ODEPACK.F, 23075]           DSPIGMR
    Set   [ODEPACK.F, 23081]           DSPIGMR
    Use   [ODEPACK.F, 23082]           DSPIGMR
    Use   [ODEPACK.F, 23082]           DSPIGMR
    Use   [ODEPACK.F, 23082]           DSPIGMR
    Set   [ODEPACK.F, 23113]           DSPIGMR
    Use   [ODEPACK.F, 23114]           DSPIGMR
    Set   [ODEPACK.F, 23117]           DSPIGMR
    Use   [ODEPACK.F, 23118]           DSPIGMR

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 22565]        DSPIOM
    Set   [ODEPACK.F, 22668]           DSPIOM
    Use   [ODEPACK.F, 22669]           DSPIOM
    Set   [ODEPACK.F, 22672]           DSPIOM
    Use   [ODEPACK.F, 22673]           DSPIOM

K    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18151]        JGROUP
    Set   [ODEPACK.F, 18166]           JGROUP
    Use   [ODEPACK.F, 18168]           JGROUP
    Set   [ODEPACK.F, 18175]           JGROUP
    Use   [ODEPACK.F, 18176]           JGROUP

k    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 18853]           md
    Use   [ODEPACK.F, 18857]           md
    Set   [ODEPACK.F, 18870]           md
    Use   [ODEPACK.F, 18870]           md
    Use   [ODEPACK.F, 18871]           md
    Use Argument   [ODEPACK.F, 18882]   md
    Set   [ODEPACK.F, 18891]           md
    Use   [ODEPACK.F, 18892]           md
    Use   [ODEPACK.F, 18892]           md
    Use   [ODEPACK.F, 18893]           md
    Use   [ODEPACK.F, 18893]           md

k    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 18927]           mdi

k    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 20174]           nnfc
    Use   [ODEPACK.F, 20175]           nnfc
    Use   [ODEPACK.F, 20175]           nnfc
    Use   [ODEPACK.F, 20176]           nnfc
    Set   [ODEPACK.F, 20180]           nnfc
    Use   [ODEPACK.F, 20182]           nnfc
    Use   [ODEPACK.F, 20184]           nnfc
    Use   [ODEPACK.F, 20185]           nnfc
    Use   [ODEPACK.F, 20193]           nnfc
    Use   [ODEPACK.F, 20194]           nnfc
    Use   [ODEPACK.F, 20194]           nnfc
    Use   [ODEPACK.F, 20199]           nnfc
    Use   [ODEPACK.F, 20224]           nnfc
    Use   [ODEPACK.F, 20225]           nnfc
    Use   [ODEPACK.F, 20226]           nnfc
    Use   [ODEPACK.F, 20227]           nnfc
    Use   [ODEPACK.F, 20228]           nnfc
    Use   [ODEPACK.F, 20229]           nnfc
    Use   [ODEPACK.F, 20230]           nnfc
    Use   [ODEPACK.F, 20232]           nnfc
    Use   [ODEPACK.F, 20252]           nnfc
    Use   [ODEPACK.F, 20252]           nnfc
    Use   [ODEPACK.F, 20253]           nnfc
    Use   [ODEPACK.F, 20254]           nnfc
    Use   [ODEPACK.F, 20255]           nnfc
    Set   [ODEPACK.F, 20259]           nnfc
    Use   [ODEPACK.F, 20261]           nnfc
    Use   [ODEPACK.F, 20262]           nnfc
    Use   [ODEPACK.F, 20263]           nnfc
    Use   [ODEPACK.F, 20265]           nnfc
    Use   [ODEPACK.F, 20268]           nnfc
    Use   [ODEPACK.F, 20269]           nnfc
    Set   [ODEPACK.F, 20270]           nnfc
    Use   [ODEPACK.F, 20270]           nnfc
    Use   [ODEPACK.F, 20281]           nnfc

k    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 20307]           nnsc
    Use   [ODEPACK.F, 20308]           nnsc
    Use   [ODEPACK.F, 20308]           nnsc
    Set   [ODEPACK.F, 20310]           nnsc
    Use   [ODEPACK.F, 20311]           nnsc
    Use   [ODEPACK.F, 20312]           nnsc
    Use   [ODEPACK.F, 20313]           nnsc
    Use   [ODEPACK.F, 20313]           nnsc
    Use   [ODEPACK.F, 20314]           nnsc
    Use   [ODEPACK.F, 20316]           nnsc
    Set   [ODEPACK.F, 20321]           nnsc
    Use   [ODEPACK.F, 20323]           nnsc
    Use   [ODEPACK.F, 20324]           nnsc
    Use   [ODEPACK.F, 20325]           nnsc
    Use   [ODEPACK.F, 20327]           nnsc
    Use   [ODEPACK.F, 20330]           nnsc
    Use   [ODEPACK.F, 20331]           nnsc
    Set   [ODEPACK.F, 20332]           nnsc
    Use   [ODEPACK.F, 20332]           nnsc

k    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 20360]           nntc
    Use   [ODEPACK.F, 20361]           nntc
    Use   [ODEPACK.F, 20361]           nntc
    Set   [ODEPACK.F, 20363]           nntc
    Use   [ODEPACK.F, 20364]           nntc
    Use   [ODEPACK.F, 20365]           nntc
    Use   [ODEPACK.F, 20366]           nntc
    Use   [ODEPACK.F, 20368]           nntc
    Set   [ODEPACK.F, 20373]           nntc
    Use   [ODEPACK.F, 20375]           nntc
    Use   [ODEPACK.F, 20376]           nntc
    Use   [ODEPACK.F, 20377]           nntc
    Use   [ODEPACK.F, 20379]           nntc
    Use   [ODEPACK.F, 20382]           nntc
    Use   [ODEPACK.F, 20382]           nntc
    Use   [ODEPACK.F, 20383]           nntc
    Use   [ODEPACK.F, 20383]           nntc
    Set   [ODEPACK.F, 20384]           nntc
    Use   [ODEPACK.F, 20384]           nntc

k    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 19771]           nroc
    Use   [ODEPACK.F, 19772]           nroc
    Use   [ODEPACK.F, 19773]           nroc
    Use   [ODEPACK.F, 19800]           nroc

k    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 19871]           nsfc
    Use   [ODEPACK.F, 19872]           nsfc
    Use   [ODEPACK.F, 19873]           nsfc
    Use   [ODEPACK.F, 19874]           nsfc
    Use   [ODEPACK.F, 19875]           nsfc
    Set   [ODEPACK.F, 19877]           nsfc
    Use   [ODEPACK.F, 19878]           nsfc
    Use   [ODEPACK.F, 19882]           nsfc
    Use   [ODEPACK.F, 19883]           nsfc
    Use   [ODEPACK.F, 19884]           nsfc
    Use   [ODEPACK.F, 19885]           nsfc
    Set   [ODEPACK.F, 19888]           nsfc
    Use   [ODEPACK.F, 19894]           nsfc
    Use   [ODEPACK.F, 19909]           nsfc
    Use   [ODEPACK.F, 19910]           nsfc
    Use   [ODEPACK.F, 19919]           nsfc
    Use   [ODEPACK.F, 19920]           nsfc
    Use   [ODEPACK.F, 19940]           nsfc
    Use   [ODEPACK.F, 19945]           nsfc
    Use   [ODEPACK.F, 19946]           nsfc
    Use   [ODEPACK.F, 19946]           nsfc
    Use   [ODEPACK.F, 19946]           nsfc
    Use   [ODEPACK.F, 19955]           nsfc
    Use   [ODEPACK.F, 19964]           nsfc
    Use   [ODEPACK.F, 19972]           nsfc
    Use   [ODEPACK.F, 19972]           nsfc
    Use   [ODEPACK.F, 19973]           nsfc
    Use   [ODEPACK.F, 19973]           nsfc
    Use   [ODEPACK.F, 19979]           nsfc
    Use   [ODEPACK.F, 19980]           nsfc
    Use   [ODEPACK.F, 19997]           nsfc
    Use   [ODEPACK.F, 19998]           nsfc
    Use   [ODEPACK.F, 19999]           nsfc
    Use   [ODEPACK.F, 20009]           nsfc
    Use   [ODEPACK.F, 20035]           nsfc
    Use   [ODEPACK.F, 20035]           nsfc
    Use   [ODEPACK.F, 20036]           nsfc
    Use   [ODEPACK.F, 20037]           nsfc
    Use   [ODEPACK.F, 20038]           nsfc
    Use   [ODEPACK.F, 20042]           nsfc
    Use   [ODEPACK.F, 20047]           nsfc
    Use   [ODEPACK.F, 20048]           nsfc
    Use   [ODEPACK.F, 20048]           nsfc
    Use   [ODEPACK.F, 20048]           nsfc
    Use   [ODEPACK.F, 20057]           nsfc
    Use   [ODEPACK.F, 20066]           nsfc
    Use   [ODEPACK.F, 20074]           nsfc
    Use   [ODEPACK.F, 20074]           nsfc
    Use   [ODEPACK.F, 20075]           nsfc
    Use   [ODEPACK.F, 20075]           nsfc
    Use   [ODEPACK.F, 20078]           nsfc
    Use   [ODEPACK.F, 20094]           nsfc
    Use   [ODEPACK.F, 20120]           nsfc
    Use   [ODEPACK.F, 20123]           nsfc
    Use   [ODEPACK.F, 20126]           nsfc

k    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 19246]           sro
    Use   [ODEPACK.F, 19247]           sro
    Use   [ODEPACK.F, 19248]           sro
    Set   [ODEPACK.F, 19248]           sro
    Use   [ODEPACK.F, 19249]           sro
    Use   [ODEPACK.F, 19252]           sro
    Use   [ODEPACK.F, 19252]           sro
    Set   [ODEPACK.F, 19287]           sro
    Use   [ODEPACK.F, 19288]           sro
    Use   [ODEPACK.F, 19289]           sro
    Use   [ODEPACK.F, 19289]           sro
    Use   [ODEPACK.F, 19290]           sro
    Use   [ODEPACK.F, 19291]           sro
    Use   [ODEPACK.F, 19293]           sro
    Use   [ODEPACK.F, 19294]           sro

K    (Local Variable)  Declared as: INTEGER
    Define   [integrate_time_pic.f, 306]   INTEGRATE_TIME_PIC_GARG
    Set   [integrate_time_pic.f, 399]   INTEGRATE_TIME_PIC_GARG

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   [set_ps.f, 277]           DEBUG_PS
    Set   [set_ps.f, 294]              DEBUG_PS
    Use Argument   [set_ps.f, 299]     DEBUG_PS
    Use   [set_ps.f, 300]              DEBUG_PS
    Use Argument   [set_ps.f, 301]     DEBUG_PS
    Set   [set_ps.f, 376]              DEBUG_PS
    Use   [set_ps.f, 379]              DEBUG_PS
    Use   [set_ps.f, 381]              DEBUG_PS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ps.f, 26]            SET_PS
    Set   [set_ps.f, 86]               SET_PS
    Use Argument   [set_ps.f, 90]      SET_PS
    Use   [set_ps.f, 91]               SET_PS
    Use Argument   [set_ps.f, 92]      SET_PS

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   [kintheory_v_s.f, 61]     CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 102]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 103]       CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 147]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 148]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 151]       CALC_IA_MOMSOURCE_V_S

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 Argument   [mod_bc_j.f, 112]   MOD_BC_J
    Use Argument   [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 Argument   [mod_bc_j.f, 117]   MOD_BC_J
    Use Argument   [mod_bc_j.f, 118]   MOD_BC_J
    Set   [mod_bc_j.f, 142]            MOD_BC_J
    Use Argument   [mod_bc_j.f, 145]   MOD_BC_J
    Use Argument   [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 Argument   [mod_bc_j.f, 150]   MOD_BC_J
    Use Argument   [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   [check_cell_movement.f, 35]   CHECK_CELL_MOVEMENT
    Set   [check_cell_movement.f, 53]   CHECK_CELL_MOVEMENT
    Use   [check_cell_movement.f, 58]   CHECK_CELL_MOVEMENT
    Use   [check_cell_movement.f, 58]   CHECK_CELL_MOVEMENT

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 119]   CHECK_CELL_MOVEMENT_DEM
    Set   [check_cell_movement.f, 139]   CHECK_CELL_MOVEMENT_DEM
    Use   [check_cell_movement.f, 153]   CHECK_CELL_MOVEMENT_DEM
    Use   [check_cell_movement.f, 153]   CHECK_CELL_MOVEMENT_DEM
    Use Argument   [check_cell_movement.f, 155]   CHECK_CELL_MOVEMENT_DEM

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 350]   CHECK_CELL_MOVEMENT_PIC
    Set   [check_cell_movement.f, 380]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 447]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 447]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 449]   CHECK_CELL_MOVEMENT_PIC
    Use Argument   [check_cell_movement.f, 456]   CHECK_CELL_MOVEMENT_PIC
    Use Argument   [check_cell_movement.f, 467]   CHECK_CELL_MOVEMENT_PIC

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 233]   RECOVER_PARCEL
    Use Argument   [check_cell_movement.f, 257]   RECOVER_PARCEL
    Use Argument   [check_cell_movement.f, 260]   RECOVER_PARCEL
    Use   [check_cell_movement.f, 266]   RECOVER_PARCEL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 136]   CHECK_ICBC_FLAG
    Set   [set_icbc_flags.f, 145]      CHECK_ICBC_FLAG
    Use Argument   [set_icbc_flags.f, 148]   CHECK_ICBC_FLAG
    Set   [set_icbc_flags.f, 166]      CHECK_ICBC_FLAG
    Use Argument   [set_icbc_flags.f, 169]   CHECK_ICBC_FLAG
    Use   [set_icbc_flags.f, 170]      CHECK_ICBC_FLAG

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 44]    INIT_ICBC_FLAG
    Set   [set_icbc_flags.f, 47]       INIT_ICBC_FLAG
    Use Argument   [set_icbc_flags.f, 51]   INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 59]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 59]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 59]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 59]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 98]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 98]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 98]       INIT_ICBC_FLAG
    Use   [set_icbc_flags.f, 98]       INIT_ICBC_FLAG

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 379]   SET_BC_FLAGS_FLOW
    Set   [set_icbc_flags.f, 438]      SET_BC_FLAGS_FLOW
    Use Argument   [set_icbc_flags.f, 442]   SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 443]      SET_BC_FLAGS_FLOW
    Use Argument   [set_icbc_flags.f, 445]   SET_BC_FLAGS_FLOW
    Set   [set_icbc_flags.f, 482]      SET_BC_FLAGS_FLOW
    Use Argument   [set_icbc_flags.f, 486]   SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 487]      SET_BC_FLAGS_FLOW
    Use Argument   [set_icbc_flags.f, 489]   SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 493]      SET_BC_FLAGS_FLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 301]   SET_BC_FLAGS_WALL
    Set   [set_icbc_flags.f, 317]      SET_BC_FLAGS_WALL
    Use Argument   [set_icbc_flags.f, 321]   SET_BC_FLAGS_WALL
    Use   [set_icbc_flags.f, 322]      SET_BC_FLAGS_WALL
    Use Argument   [set_icbc_flags.f, 324]   SET_BC_FLAGS_WALL

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 233]   SET_IC_FLAGS
    Set   [set_icbc_flags.f, 246]      SET_IC_FLAGS
    Use Argument   [set_icbc_flags.f, 249]   SET_IC_FLAGS
    Use   [set_icbc_flags.f, 250]      SET_IC_FLAGS
    Use Argument   [set_icbc_flags.f, 251]   SET_IC_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [solve_k_epsilon_eq.f, 56]   SOLVE_K_Epsilon_EQ
    Set   [solve_k_epsilon_eq.f, 196]   SOLVE_K_Epsilon_EQ

K    (Local Variable)  Declared as: INTEGER
    Define   [solve_k_epsilon_eq.f, 308]   SOURCE_K_EPSILON_BC
    Set   [solve_k_epsilon_eq.f, 314]   SOURCE_K_EPSILON_BC
    Use   [solve_k_epsilon_eq.f, 335]   SOURCE_K_EPSILON_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ic_dem.f, 45]        SET_IC_DEM
    Set   [set_ic_dem.f, 55]           SET_IC_DEM
    Use Argument   [set_ic_dem.f, 61]   SET_IC_DEM
    Use   [set_ic_dem.f, 62]           SET_IC_DEM
    Use Argument   [set_ic_dem.f, 64]   SET_IC_DEM

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 1077]      POINT_SOURCE_W_G
    Set   [source_w_g.f, 1101]         POINT_SOURCE_W_G
    Use Argument   [source_w_g.f, 1105]   POINT_SOURCE_W_G
    Use   [source_w_g.f, 1106]         POINT_SOURCE_W_G
    Use Argument   [source_w_g.f, 1108]   POINT_SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 85]        SOURCE_W_G
    Set   [source_w_g.f, 135]          SOURCE_W_G
    Use Argument   [source_w_g.f, 146]   SOURCE_W_G
    Use Argument   [source_w_g.f, 148]   SOURCE_W_G
    Use Argument   [source_w_g.f, 218]   SOURCE_W_G
    Use Argument   [source_w_g.f, 219]   SOURCE_W_G
    Use Argument   [source_w_g.f, 222]   SOURCE_W_G
    Use Argument   [source_w_g.f, 227]   SOURCE_W_G
    Use Argument   [source_w_g.f, 257]   SOURCE_W_G
    Use Argument   [source_w_g.f, 258]   SOURCE_W_G
    Use Argument   [source_w_g.f, 270]   SOURCE_W_G
    Use Argument   [source_w_g.f, 281]   SOURCE_W_G
    Use Argument   [source_w_g.f, 291]   SOURCE_W_G
    Use Argument   [source_w_g.f, 308]   SOURCE_W_G
    Use Argument   [source_w_g.f, 310]   SOURCE_W_G
    Use Argument   [source_w_g.f, 321]   SOURCE_W_G
    Use Argument   [source_w_g.f, 342]   SOURCE_W_G
    Use Argument   [source_w_g.f, 365]   SOURCE_W_G
    Use Argument   [source_w_g.f, 368]   SOURCE_W_G
    Use   [source_w_g.f, 369]          SOURCE_W_G
    Use   [source_w_g.f, 369]          SOURCE_W_G
    Use Argument   [source_w_g.f, 376]   SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 493]       SOURCE_W_G_BC
    Set   [source_w_g.f, 652]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 655]   SOURCE_W_G_BC
    Use   [source_w_g.f, 656]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 657]   SOURCE_W_G_BC
    Set   [source_w_g.f, 687]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 690]   SOURCE_W_G_BC
    Use   [source_w_g.f, 691]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 692]   SOURCE_W_G_BC
    Set   [source_w_g.f, 722]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 725]   SOURCE_W_G_BC
    Use   [source_w_g.f, 726]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 727]   SOURCE_W_G_BC
    Set   [source_w_g.f, 812]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 815]   SOURCE_W_G_BC
    Use   [source_w_g.f, 816]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 817]   SOURCE_W_G_BC
    Set   [source_w_g.f, 898]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 901]   SOURCE_W_G_BC
    Use   [source_w_g.f, 902]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 903]   SOURCE_W_G_BC
    Set   [source_w_g.f, 929]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 932]   SOURCE_W_G_BC
    Use   [source_w_g.f, 933]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 934]   SOURCE_W_G_BC
    Set   [source_w_g.f, 962]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 965]   SOURCE_W_G_BC
    Use   [source_w_g.f, 966]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 967]   SOURCE_W_G_BC
    Set   [source_w_g.f, 995]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 998]   SOURCE_W_G_BC
    Use   [source_w_g.f, 999]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 1000]   SOURCE_W_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1720]         GATHER_DATA
    Set   [vtk_out.f, 1808]            GATHER_DATA
    Use Argument   [vtk_out.f, 1809]   GATHER_DATA

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1907]         SETUP_VTK_NO_CUTCELL
    Set   [vtk_out.f, 1954]            SETUP_VTK_NO_CUTCELL
    Use   [vtk_out.f, 1965]            SETUP_VTK_NO_CUTCELL
    Use   [vtk_out.f, 1965]            SETUP_VTK_NO_CUTCELL
    Set   [vtk_out.f, 2016]            SETUP_VTK_NO_CUTCELL
    Use Argument   [vtk_out.f, 2017]   SETUP_VTK_NO_CUTCELL

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3063]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3136]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3141]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3141]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3174]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3174]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3177]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3207]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3232]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3232]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3235]            SETUP_VTK_REGION

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 78]           WRITE_VTU_FILE
    Set   [vtk_out.f, 121]             WRITE_VTU_FILE
    Use   [vtk_out.f, 122]             WRITE_VTU_FILE
    Use   [vtk_out.f, 122]             WRITE_VTU_FILE
    Use   [vtk_out.f, 122]             WRITE_VTU_FILE

K    (Local Variable)  Declared as: INTEGER
    Define   [solve_energy_eq.f, 70]   SOLVE_ENERGY_EQ
    Set   [solve_energy_eq.f, 119]     SOLVE_ENERGY_EQ
    Use Argument   [solve_energy_eq.f, 121]   SOLVE_ENERGY_EQ
    Use Argument   [solve_energy_eq.f, 129]   SOLVE_ENERGY_EQ
    Use   [solve_energy_eq.f, 137]     SOLVE_ENERGY_EQ
    Set   [solve_energy_eq.f, 182]     SOLVE_ENERGY_EQ
    Use Argument   [solve_energy_eq.f, 184]   SOLVE_ENERGY_EQ
    Use Argument   [solve_energy_eq.f, 192]   SOLVE_ENERGY_EQ
    Use   [solve_energy_eq.f, 200]     SOLVE_ENERGY_EQ

k    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 322]     GET_VCELL_SDIFF_TERMS
    Set   [conv_dif_v_s.f, 335]        GET_VCELL_SDIFF_TERMS
    Use   [conv_dif_v_s.f, 338]        GET_VCELL_SDIFF_TERMS
    Use   [conv_dif_v_s.f, 363]        GET_VCELL_SDIFF_TERMS
    Use Argument   [conv_dif_v_s.f, 388]   GET_VCELL_SDIFF_TERMS
    Use Argument   [conv_dif_v_s.f, 389]   GET_VCELL_SDIFF_TERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 596]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 635]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 636]        STORE_A_V_SDC

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 112]     MPPIC_COMP_EULERIAN_VELS_CG
    Set   [pic_routines.f, 123]        MPPIC_COMP_EULERIAN_VELS_CG
    Use Argument   [pic_routines.f, 131]   MPPIC_COMP_EULERIAN_VELS_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 26]      MPPIC_COMP_EULERIAN_VELS_NON_CG
    Set   [pic_routines.f, 37]         MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use Argument   [pic_routines.f, 45]   MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use   [pic_routines.f, 65]         MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use   [pic_routines.f, 65]         MPPIC_COMP_EULERIAN_VELS_NON_CG

k    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 686]     WRITE_MPPIC_VEL_S
    Set   [pic_routines.f, 707]        WRITE_MPPIC_VEL_S
    Use Argument   [pic_routines.f, 710]   WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 717]        WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 723]        WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 723]        WRITE_MPPIC_VEL_S

k    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 643]     WRITE_NODEDATA
    Set   [pic_routines.f, 651]        WRITE_NODEDATA
    Use Argument   [pic_routines.f, 654]   WRITE_NODEDATA
    Use   [pic_routines.f, 657]        WRITE_NODEDATA

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 Argument   [mod_bc_i.f, 124]   MOD_BC_I
    Use Argument   [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 Argument   [mod_bc_i.f, 129]   MOD_BC_I
    Use Argument   [mod_bc_i.f, 130]   MOD_BC_I
    Set   [mod_bc_i.f, 152]            MOD_BC_I
    Use Argument   [mod_bc_i.f, 155]   MOD_BC_I
    Use Argument   [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 Argument   [mod_bc_i.f, 160]   MOD_BC_I
    Use Argument   [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   [CG_source_w_s.f, 56]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 99]        CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 108]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 112]   CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 202]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 214]   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
    Set   [CG_source_w_s.f, 243]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 246]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 249]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 250]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 251]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 252]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 253]   CG_SOURCE_W_S

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   [check_ab_m.f, 204]       CHECK_symmetry
    Set   [check_ab_m.f, 219]          CHECK_symmetry
    Use   [check_ab_m.f, 221]          CHECK_symmetry
    Use   [check_ab_m.f, 225]          CHECK_symmetry
    Use   [check_ab_m.f, 229]          CHECK_symmetry

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   [k_epsilon_prop.f, 58]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 136]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 177]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 180]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 273]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 278]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 283]      K_Epsilon_PROP

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   [cal_d.f, 39]             CAL_D
    Set   [cal_d.f, 89]                CAL_D
    Use   [cal_d.f, 91]                CAL_D

K    (Local Variable)  Declared as: INTEGER
    Define   [get_stats.f, 59]         GET_STATS
    Set   [get_stats.f, 90]            GET_STATS
    Use   [get_stats.f, 123]           GET_STATS
    Use   [get_stats.f, 125]           GET_STATS
    Set   [get_stats.f, 153]           GET_STATS
    Use   [get_stats.f, 185]           GET_STATS
    Use   [get_stats.f, 187]           GET_STATS

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_s.f, 611]       CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 638]          CALC_CG_DERIV_VEL_SOLIDS

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_s.f, 117]       CALC_CG_TRD_S
    Set   [calc_trd_s.f, 135]          CALC_CG_TRD_S

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_s.f, 507]       CALC_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 517]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 528]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 532]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 536]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 545]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 550]          CALC_DERIV_VEL_SOLIDS
    Use   [calc_trd_s.f, 555]          CALC_DERIV_VEL_SOLIDS

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_s.f, 35]        CALC_TRD_S
    Set   [calc_trd_s.f, 47]           CALC_TRD_S
    Use   [calc_trd_s.f, 60]           CALC_TRD_S

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_s.f, 351]       GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 361]          GET_FACE_VEL_SOLIDS
    Use   [calc_trd_s.f, 364]          GET_FACE_VEL_SOLIDS
    Use Argument   [calc_trd_s.f, 386]   GET_FACE_VEL_SOLIDS
    Use Argument   [calc_trd_s.f, 411]   GET_FACE_VEL_SOLIDS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1878]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1907]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1913]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1913]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1944]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1952]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1953]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1955]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1956]   GET_POTENTIAL_CUT_CELLS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 31]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 96]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 97]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 97]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 97]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 127]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 138]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 138]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 506]   SET_3D_CUT_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 507]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 515]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 516]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 518]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 519]   SET_3D_CUT_CELL_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1326]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1355]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1359]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1363]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1365]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1366]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1369]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1370]   SET_3D_CUT_CELL_TREATMENT_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1463]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1473]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1476]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1477]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1523]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1526]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1527]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1573]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1576]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1577]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1622]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1625]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1626]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1669]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1671]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1677]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1719]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1721]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1727]   SET_GHOST_CELL_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [report_stats_pic.f, 29]   REPORT_STATS_PIC
    Set   [report_stats_pic.f, 47]     REPORT_STATS_PIC
    Use Argument   [report_stats_pic.f, 50]   REPORT_STATS_PIC
    Use   [report_stats_pic.f, 55]     REPORT_STATS_PIC
    Set   [report_stats_pic.f, 75]     REPORT_STATS_PIC
    Use   [report_stats_pic.f, 77]     REPORT_STATS_PIC
    Use   [report_stats_pic.f, 78]     REPORT_STATS_PIC
    Use   [report_stats_pic.f, 78]     REPORT_STATS_PIC

k    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 297]     GET_UCELL_GDIFF_TERMS
    Set   [conv_dif_u_g.f, 312]        GET_UCELL_GDIFF_TERMS
    Use   [conv_dif_u_g.f, 315]        GET_UCELL_GDIFF_TERMS
    Use   [conv_dif_u_g.f, 340]        GET_UCELL_GDIFF_TERMS
    Use Argument   [conv_dif_u_g.f, 368]   GET_UCELL_GDIFF_TERMS
    Use Argument   [conv_dif_u_g.f, 369]   GET_UCELL_GDIFF_TERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 591]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 630]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 631]        STORE_A_U_GDC

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 44]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 81]        CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 164]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 190]   CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 191]   CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 214]       CG_SOURCE_V_G
    Use   [CG_source_v_g.f, 217]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 218]   CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 219]   CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 220]   CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 221]   CG_SOURCE_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 313]    CG_SOURCE_V_G_BC
    Set   [CG_source_v_g.f, 358]       CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 362]       CG_SOURCE_V_G_BC
    Set   [CG_source_v_g.f, 470]       CG_SOURCE_V_G_BC
    Use   [CG_source_v_g.f, 474]       CG_SOURCE_V_G_BC
    Use Argument   [CG_source_v_g.f, 476]   CG_SOURCE_V_G_BC

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   [conv_source_epp.f, 102]   CONV_SOURCE_EPP0
    Set   [conv_source_epp.f, 125]     CONV_SOURCE_EPP0

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

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_source_epp.f, 578]   POINT_SOURCE_EPP
    Set   [conv_source_epp.f, 591]     POINT_SOURCE_EPP
    Use Argument   [conv_source_epp.f, 595]   POINT_SOURCE_EPP
    Use   [conv_source_epp.f, 596]     POINT_SOURCE_EPP
    Use Argument   [conv_source_epp.f, 597]   POINT_SOURCE_EPP

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   [nsquare.f, 27]           NSQUARE
    Set   [nsquare.f, 108]             NSQUARE
    Use   [nsquare.f, 109]             NSQUARE

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 154]       LEQ_BICGS0t
    Set   [leq_bicgst.f, 216]          LEQ_BICGS0t
    Use Argument   [leq_bicgst.f, 219]   LEQ_BICGS0t

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1345]      LEQ_IJSWEEPt
    Set   [leq_bicgst.f, 1349]         LEQ_IJSWEEPt
    Use Argument   [leq_bicgst.f, 1350]   LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1352]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1353]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1354]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1355]         LEQ_IJSWEEPt
    Set   [leq_bicgst.f, 1375]         LEQ_IJSWEEPt
    Use Argument   [leq_bicgst.f, 1376]   LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1377]         LEQ_IJSWEEPt

K    (Dummy Argument)  Declared as: INTEGER
    Define   [leq_bicgst.f, 734]       LEQ_IKSWEEPt
    Declare   [leq_bicgst.f, 756]      LEQ_IKSWEEPt
    Use Argument   [leq_bicgst.f, 792]   LEQ_IKSWEEPt
    Use Argument   [leq_bicgst.f, 821]   LEQ_IKSWEEPt

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 678]       LEQ_ISWEEPt
    Set   [leq_bicgst.f, 682]          LEQ_ISWEEPt
    Use Argument   [leq_bicgst.f, 686]   LEQ_ISWEEPt
    Use Argument   [leq_bicgst.f, 710]   LEQ_ISWEEPt

K    (Dummy Argument)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1198]      LEQ_JKSWEEPt
    Declare   [leq_bicgst.f, 1219]     LEQ_JKSWEEPt
    Use Argument   [leq_bicgst.f, 1248]   LEQ_JKSWEEPt
    Use Argument   [leq_bicgst.f, 1274]   LEQ_JKSWEEPt

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 891]       LEQ_MATVECt
    Set   [leq_bicgst.f, 903]          LEQ_MATVECt
    Use Argument   [leq_bicgst.f, 907]   LEQ_MATVECt
    Set   [leq_bicgst.f, 931]          LEQ_MATVECt
    Use Argument   [leq_bicgst.f, 939]   LEQ_MATVECt

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1475]      LEQ_msolve1t
    Set   [leq_bicgst.f, 1493]         LEQ_msolve1t
    Use Argument   [leq_bicgst.f, 1497]   LEQ_msolve1t

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1020]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1044]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1048]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1097]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1099]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1101]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1101]   LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1103]   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, 1128]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1140]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1142]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1151]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1153]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1161]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1162]   LEQ_MSOLVEt

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_des.f, 41]       DIF_PHI_DES
    Set   [dif_phi_des.f, 55]          DIF_PHI_DES
    Use   [dif_phi_des.f, 69]          DIF_PHI_DES
    Use   [dif_phi_des.f, 84]          DIF_PHI_DES
    Use   [dif_phi_des.f, 95]          DIF_PHI_DES
    Use   [dif_phi_des.f, 109]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 120]   DIF_PHI_DES
    Use   [dif_phi_des.f, 120]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 123]   DIF_PHI_DES
    Use   [dif_phi_des.f, 123]         DIF_PHI_DES
    Use   [dif_phi_des.f, 133]         DIF_PHI_DES

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 Argument   [set_Odxyz.f, 58]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [set_Odxyz.f, 59]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [set_Odxyz.f, 61]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [set_Odxyz.f, 62]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [set_Odxyz.f, 65]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [set_Odxyz.f, 80]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [set_Odxyz.f, 81]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [set_Odxyz.f, 83]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [set_Odxyz.f, 84]   SET_ODXYZ_U_CUT_CELL
    Use Argument   [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 Argument   [set_Odxyz.f, 189]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [set_Odxyz.f, 190]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [set_Odxyz.f, 192]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [set_Odxyz.f, 193]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [set_Odxyz.f, 196]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [set_Odxyz.f, 211]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [set_Odxyz.f, 212]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [set_Odxyz.f, 214]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [set_Odxyz.f, 215]   SET_ODXYZ_V_CUT_CELL
    Use Argument   [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 Argument   [set_Odxyz.f, 320]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [set_Odxyz.f, 321]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [set_Odxyz.f, 323]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [set_Odxyz.f, 324]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [set_Odxyz.f, 327]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [set_Odxyz.f, 341]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [set_Odxyz.f, 342]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [set_Odxyz.f, 344]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [set_Odxyz.f, 345]   SET_ODXYZ_W_CUT_CELL
    Use Argument   [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   [dif_v_is.f, 44]          DIF_V_IS
    Set   [dif_v_is.f, 62]             DIF_V_IS
    Use Argument   [dif_v_is.f, 65]    DIF_V_IS
    Use   [dif_v_is.f, 66]             DIF_V_IS
    Use Argument   [dif_v_is.f, 67]    DIF_V_IS
    Set   [dif_v_is.f, 85]             DIF_V_IS
    Use Argument   [dif_v_is.f, 88]    DIF_V_IS
    Use   [dif_v_is.f, 89]             DIF_V_IS
    Use Argument   [dif_v_is.f, 90]    DIF_V_IS
    Use Argument   [dif_v_is.f, 96]    DIF_V_IS
    Use Argument   [dif_v_is.f, 97]    DIF_V_IS
    Use   [dif_v_is.f, 98]             DIF_V_IS

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_set_outflow.f, 58]    CG_SET_OUTFLOW
    Set   [CG_set_outflow.f, 83]       CG_SET_OUTFLOW
    Use Argument   [CG_set_outflow.f, 86]   CG_SET_OUTFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_ps_grad_pic.f, 60]   CALC_PS_GRAD_PIC0
    Set   [calc_ps_grad_pic.f, 74]     CALC_PS_GRAD_PIC0
    Use   [calc_ps_grad_pic.f, 115]    CALC_PS_GRAD_PIC0
    Use   [calc_ps_grad_pic.f, 120]    CALC_PS_GRAD_PIC0
    Use   [calc_ps_grad_pic.f, 181]    CALC_PS_GRAD_PIC0

K1    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 58]            BC_PHI
    Set   [bc_phi.f, 70]               BC_PHI
    Use Argument   [bc_phi.f, 74]      BC_PHI
    Use   [bc_phi.f, 75]               BC_PHI
    Use Argument   [bc_phi.f, 76]      BC_PHI
    Set   [bc_phi.f, 96]               BC_PHI
    Use Argument   [bc_phi.f, 100]     BC_PHI
    Use   [bc_phi.f, 101]              BC_PHI
    Use Argument   [bc_phi.f, 102]     BC_PHI
    Set   [bc_phi.f, 123]              BC_PHI
    Use Argument   [bc_phi.f, 125]     BC_PHI
    Use   [bc_phi.f, 126]              BC_PHI
    Use Argument   [bc_phi.f, 127]     BC_PHI
    Set   [bc_phi.f, 147]              BC_PHI
    Use Argument   [bc_phi.f, 149]     BC_PHI
    Use   [bc_phi.f, 150]              BC_PHI
    Use Argument   [bc_phi.f, 151]     BC_PHI
    Set   [bc_phi.f, 171]              BC_PHI
    Use Argument   [bc_phi.f, 173]     BC_PHI
    Use   [bc_phi.f, 174]              BC_PHI
    Use Argument   [bc_phi.f, 175]     BC_PHI
    Set   [bc_phi.f, 195]              BC_PHI
    Use Argument   [bc_phi.f, 197]     BC_PHI
    Use   [bc_phi.f, 198]              BC_PHI
    Use Argument   [bc_phi.f, 199]     BC_PHI
    Set   [bc_phi.f, 233]              BC_PHI
    Use   [bc_phi.f, 236]              BC_PHI
    Set   [bc_phi.f, 352]              BC_PHI
    Use   [bc_phi.f, 355]              BC_PHI
    Set   [bc_phi.f, 406]              BC_PHI
    Use   [bc_phi.f, 409]              BC_PHI

K1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_w_s.f, 1004]      JJ_BC_W_S
    Declare   [source_w_s.f, 1037]     JJ_BC_W_S
    Use   [source_w_s.f, 1053]         JJ_BC_W_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 565]       SOURCE_W_S_BC
    Set   [source_w_s.f, 571]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 573]   SOURCE_W_S_BC
    Use   [source_w_s.f, 574]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 575]   SOURCE_W_S_BC
    Set   [source_w_s.f, 601]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 603]   SOURCE_W_S_BC
    Use   [source_w_s.f, 604]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 605]   SOURCE_W_S_BC
    Set   [source_w_s.f, 629]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 631]   SOURCE_W_S_BC
    Use   [source_w_s.f, 632]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 633]   SOURCE_W_S_BC
    Set   [source_w_s.f, 657]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 659]   SOURCE_W_S_BC
    Use   [source_w_s.f, 660]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 661]   SOURCE_W_S_BC
    Set   [source_w_s.f, 696]          SOURCE_W_S_BC
    Use   [source_w_s.f, 699]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 727]   SOURCE_W_S_BC
    Set   [source_w_s.f, 735]          SOURCE_W_S_BC
    Use   [source_w_s.f, 738]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 766]   SOURCE_W_S_BC
    Set   [source_w_s.f, 774]          SOURCE_W_S_BC
    Use   [source_w_s.f, 777]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 855]   SOURCE_W_S_BC
    Set   [source_w_s.f, 865]          SOURCE_W_S_BC
    Use   [source_w_s.f, 867]          SOURCE_W_S_BC
    Set   [source_w_s.f, 892]          SOURCE_W_S_BC
    Use   [source_w_s.f, 894]          SOURCE_W_S_BC
    Set   [source_w_s.f, 925]          SOURCE_W_S_BC
    Use   [source_w_s.f, 927]          SOURCE_W_S_BC
    Set   [source_w_s.f, 953]          SOURCE_W_S_BC
    Use   [source_w_s.f, 955]          SOURCE_W_S_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   [conv_dif_phi.f, 758]     DIF_PHI_IS
    Set   [conv_dif_phi.f, 772]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 778]        DIF_PHI_IS
    Set   [conv_dif_phi.f, 778]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 778]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 784]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 800]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 817]        DIF_PHI_IS

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 422]       SOURCE_V_G_BC
    Set   [source_v_g.f, 445]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 448]   SOURCE_V_G_BC
    Use   [source_v_g.f, 449]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 450]   SOURCE_V_G_BC
    Set   [source_v_g.f, 478]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 481]   SOURCE_V_G_BC
    Use   [source_v_g.f, 482]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 483]   SOURCE_V_G_BC
    Set   [source_v_g.f, 510]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 512]   SOURCE_V_G_BC
    Use   [source_v_g.f, 513]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 514]   SOURCE_V_G_BC
    Set   [source_v_g.f, 539]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 541]   SOURCE_V_G_BC
    Use   [source_v_g.f, 542]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 543]   SOURCE_V_G_BC
    Set   [source_v_g.f, 579]          SOURCE_V_G_BC
    Use   [source_v_g.f, 581]          SOURCE_V_G_BC
    Set   [source_v_g.f, 614]          SOURCE_V_G_BC
    Use   [source_v_g.f, 616]          SOURCE_V_G_BC
    Set   [source_v_g.f, 649]          SOURCE_V_G_BC
    Use   [source_v_g.f, 651]          SOURCE_V_G_BC
    Set   [source_v_g.f, 722]          SOURCE_V_G_BC
    Use   [source_v_g.f, 724]          SOURCE_V_G_BC
    Set   [source_v_g.f, 779]          SOURCE_V_G_BC
    Use   [source_v_g.f, 781]          SOURCE_V_G_BC
    Set   [source_v_g.f, 810]          SOURCE_V_G_BC
    Use   [source_v_g.f, 812]          SOURCE_V_G_BC
    Set   [source_v_g.f, 843]          SOURCE_V_G_BC
    Use   [source_v_g.f, 845]          SOURCE_V_G_BC
    Set   [source_v_g.f, 876]          SOURCE_V_G_BC
    Use   [source_v_g.f, 878]          SOURCE_V_G_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [bc_theta.f, 69]          BC_THETA
    Set   [bc_theta.f, 85]             BC_THETA
    Use   [bc_theta.f, 89]             BC_THETA

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 41]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 54]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 56]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 57]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 58]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 73]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 75]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 76]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 77]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 92]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 94]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 95]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 96]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 111]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 113]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 114]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 115]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 130]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 133]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 134]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 135]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 151]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 154]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 155]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 156]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 181]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 184]      DIF_PHI_BC_DES

K1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_v_s.f, 957]       JJ_BC_V_S
    Declare   [source_v_s.f, 989]      JJ_BC_V_S
    Use   [source_v_s.f, 1005]         JJ_BC_V_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 527]       SOURCE_V_S_BC
    Set   [source_v_s.f, 533]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 536]   SOURCE_V_S_BC
    Use   [source_v_s.f, 537]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 538]   SOURCE_V_S_BC
    Set   [source_v_s.f, 563]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 566]   SOURCE_V_S_BC
    Use   [source_v_s.f, 567]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 568]   SOURCE_V_S_BC
    Set   [source_v_s.f, 593]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 595]   SOURCE_V_S_BC
    Use   [source_v_s.f, 596]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 597]   SOURCE_V_S_BC
    Set   [source_v_s.f, 621]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 623]   SOURCE_V_S_BC
    Use   [source_v_s.f, 624]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 625]   SOURCE_V_S_BC
    Set   [source_v_s.f, 659]          SOURCE_V_S_BC
    Use   [source_v_s.f, 662]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 691]   SOURCE_V_S_BC
    Set   [source_v_s.f, 699]          SOURCE_V_S_BC
    Use   [source_v_s.f, 702]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 730]   SOURCE_V_S_BC
    Set   [source_v_s.f, 738]          SOURCE_V_S_BC
    Use   [source_v_s.f, 741]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 807]   SOURCE_V_S_BC
    Set   [source_v_s.f, 817]          SOURCE_V_S_BC
    Use   [source_v_s.f, 819]          SOURCE_V_S_BC
    Set   [source_v_s.f, 844]          SOURCE_V_S_BC
    Use   [source_v_s.f, 846]          SOURCE_V_S_BC
    Set   [source_v_s.f, 877]          SOURCE_V_S_BC
    Use   [source_v_s.f, 879]          SOURCE_V_S_BC
    Set   [source_v_s.f, 905]          SOURCE_V_S_BC
    Use   [source_v_s.f, 907]          SOURCE_V_S_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_w_is.f, 45]          DIF_W_IS
    Set   [dif_w_is.f, 56]             DIF_W_IS
    Use   [dif_w_is.f, 60]             DIF_W_IS
    Use   [dif_w_is.f, 82]             DIF_W_IS

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 433]       SOURCE_U_G_BC
    Set   [source_u_g.f, 456]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 459]   SOURCE_U_G_BC
    Use   [source_u_g.f, 460]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 461]   SOURCE_U_G_BC
    Set   [source_u_g.f, 489]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 492]   SOURCE_U_G_BC
    Use   [source_u_g.f, 493]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 494]   SOURCE_U_G_BC
    Set   [source_u_g.f, 520]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 522]   SOURCE_U_G_BC
    Use   [source_u_g.f, 523]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 524]   SOURCE_U_G_BC
    Set   [source_u_g.f, 549]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 551]   SOURCE_U_G_BC
    Use   [source_u_g.f, 552]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 553]   SOURCE_U_G_BC
    Set   [source_u_g.f, 590]          SOURCE_U_G_BC
    Use   [source_u_g.f, 592]          SOURCE_U_G_BC
    Set   [source_u_g.f, 625]          SOURCE_U_G_BC
    Use   [source_u_g.f, 627]          SOURCE_U_G_BC
    Set   [source_u_g.f, 660]          SOURCE_U_G_BC
    Use   [source_u_g.f, 662]          SOURCE_U_G_BC
    Set   [source_u_g.f, 735]          SOURCE_U_G_BC
    Use   [source_u_g.f, 737]          SOURCE_U_G_BC
    Set   [source_u_g.f, 792]          SOURCE_U_G_BC
    Use   [source_u_g.f, 794]          SOURCE_U_G_BC
    Set   [source_u_g.f, 823]          SOURCE_U_G_BC
    Use   [source_u_g.f, 825]          SOURCE_U_G_BC
    Set   [source_u_g.f, 857]          SOURCE_U_G_BC
    Use   [source_u_g.f, 859]          SOURCE_U_G_BC
    Set   [source_u_g.f, 891]          SOURCE_U_G_BC
    Use   [source_u_g.f, 893]          SOURCE_U_G_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   [radial_vel_correction.f, 33]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 55]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 56]   RADIAL_VEL_CORRECTION
    Use Argument   [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 Argument   [radial_vel_correction.f, 81]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 90]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 92]   RADIAL_VEL_CORRECTION
    Use Argument   [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 Argument   [radial_vel_correction.f, 117]   RADIAL_VEL_CORRECTION
    Use Argument   [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 Argument   [radial_vel_correction.f, 136]   RADIAL_VEL_CORRECTION
    Set   [radial_vel_correction.f, 145]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 146]   RADIAL_VEL_CORRECTION
    Use Argument   [radial_vel_correction.f, 147]   RADIAL_VEL_CORRECTION
    Use   [radial_vel_correction.f, 148]   RADIAL_VEL_CORRECTION

K1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_u_s.f, 965]       JJ_BC_U_S
    Declare   [source_u_s.f, 997]      JJ_BC_U_S
    Use   [source_u_s.f, 1013]         JJ_BC_U_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 532]       SOURCE_U_S_BC
    Set   [source_u_s.f, 538]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 541]   SOURCE_U_S_BC
    Use   [source_u_s.f, 542]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 543]   SOURCE_U_S_BC
    Set   [source_u_s.f, 568]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 571]   SOURCE_U_S_BC
    Use   [source_u_s.f, 572]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 573]   SOURCE_U_S_BC
    Set   [source_u_s.f, 598]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 600]   SOURCE_U_S_BC
    Use   [source_u_s.f, 601]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 602]   SOURCE_U_S_BC
    Set   [source_u_s.f, 626]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 628]   SOURCE_U_S_BC
    Use   [source_u_s.f, 629]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 630]   SOURCE_U_S_BC
    Set   [source_u_s.f, 665]          SOURCE_U_S_BC
    Use   [source_u_s.f, 668]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 696]   SOURCE_U_S_BC
    Set   [source_u_s.f, 704]          SOURCE_U_S_BC
    Use   [source_u_s.f, 707]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 735]   SOURCE_U_S_BC
    Set   [source_u_s.f, 743]          SOURCE_U_S_BC
    Use   [source_u_s.f, 746]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 812]   SOURCE_U_S_BC
    Set   [source_u_s.f, 822]          SOURCE_U_S_BC
    Use   [source_u_s.f, 824]          SOURCE_U_S_BC
    Set   [source_u_s.f, 849]          SOURCE_U_S_BC
    Use   [source_u_s.f, 851]          SOURCE_U_S_BC
    Set   [source_u_s.f, 883]          SOURCE_U_S_BC
    Use   [source_u_s.f, 885]          SOURCE_U_S_BC
    Set   [source_u_s.f, 912]          SOURCE_U_S_BC
    Use   [source_u_s.f, 914]          SOURCE_U_S_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 62]       SET_WALL_BC
    Set   [set_wall_bc.f, 75]          SET_WALL_BC
    Use Argument   [set_wall_bc.f, 80]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 84]   SET_WALL_BC
    Set   [set_wall_bc.f, 98]          SET_WALL_BC
    Use   [set_wall_bc.f, 101]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 102]   SET_WALL_BC
    Use   [set_wall_bc.f, 103]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 104]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 106]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 106]   SET_WALL_BC
    Set   [set_wall_bc.f, 111]         SET_WALL_BC
    Use   [set_wall_bc.f, 114]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 115]   SET_WALL_BC
    Use   [set_wall_bc.f, 116]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 117]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 119]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 119]   SET_WALL_BC
    Set   [set_wall_bc.f, 125]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 128]   SET_WALL_BC
    Use   [set_wall_bc.f, 129]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 130]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 132]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 132]   SET_WALL_BC
    Set   [set_wall_bc.f, 138]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 141]   SET_WALL_BC
    Use   [set_wall_bc.f, 142]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 143]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 145]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 145]   SET_WALL_BC
    Set   [set_wall_bc.f, 151]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 154]   SET_WALL_BC
    Use   [set_wall_bc.f, 155]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 156]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 158]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 158]   SET_WALL_BC
    Set   [set_wall_bc.f, 175]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 178]   SET_WALL_BC
    Use   [set_wall_bc.f, 179]         SET_WALL_BC
    Use Argument   [set_wall_bc.f, 180]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 182]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 182]   SET_WALL_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 255]      SET_WALL_BC1
    Set   [set_wall_bc.f, 265]         SET_WALL_BC1
    Use   [set_wall_bc.f, 270]         SET_WALL_BC1
    Set   [set_wall_bc.f, 270]         SET_WALL_BC1
    Use Argument   [set_wall_bc.f, 270]   SET_WALL_BC1
    Use   [set_wall_bc.f, 275]         SET_WALL_BC1

K1    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 451]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 679]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 757]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 834]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 849]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 870]      RE_INDEX_ARRAYS

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_u_is.f, 47]          DIF_U_IS
    Set   [dif_u_is.f, 59]             DIF_U_IS
    Use   [dif_u_is.f, 65]             DIF_U_IS
    Set   [dif_u_is.f, 65]             DIF_U_IS
    Use Argument   [dif_u_is.f, 65]    DIF_U_IS
    Use   [dif_u_is.f, 71]             DIF_U_IS
    Use   [dif_u_is.f, 94]             DIF_U_IS

K1    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 39]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 65]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 69]      MAKE_ARRAYS_DES

K1    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 38]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 222]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 227]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 250]   COMP_MEAN_FIELDS0

K1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25691]        DPJIBT
    Set   [ODEPACK.F, 25775]           DPJIBT
    Use   [ODEPACK.F, 25783]           DPJIBT
    Use   [ODEPACK.F, 25786]           DPJIBT
    Use   [ODEPACK.F, 25793]           DPJIBT
    Use   [ODEPACK.F, 25800]           DPJIBT
    Use   [ODEPACK.F, 25806]           DPJIBT
    Set   [ODEPACK.F, 25812]           DPJIBT
    Use   [ODEPACK.F, 25812]           DPJIBT

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   [source_w_g.f, 493]       SOURCE_W_G_BC
    Set   [source_w_g.f, 518]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 520]   SOURCE_W_G_BC
    Use   [source_w_g.f, 521]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 522]   SOURCE_W_G_BC
    Set   [source_w_g.f, 547]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 549]   SOURCE_W_G_BC
    Use   [source_w_g.f, 550]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 551]   SOURCE_W_G_BC
    Set   [source_w_g.f, 580]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 582]   SOURCE_W_G_BC
    Use   [source_w_g.f, 583]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 584]   SOURCE_W_G_BC
    Set   [source_w_g.f, 609]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 611]   SOURCE_W_G_BC
    Use   [source_w_g.f, 612]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 613]   SOURCE_W_G_BC
    Set   [source_w_g.f, 650]          SOURCE_W_G_BC
    Use   [source_w_g.f, 652]          SOURCE_W_G_BC
    Set   [source_w_g.f, 685]          SOURCE_W_G_BC
    Use   [source_w_g.f, 687]          SOURCE_W_G_BC
    Set   [source_w_g.f, 720]          SOURCE_W_G_BC
    Use   [source_w_g.f, 722]          SOURCE_W_G_BC
    Set   [source_w_g.f, 810]          SOURCE_W_G_BC
    Use   [source_w_g.f, 812]          SOURCE_W_G_BC
    Set   [source_w_g.f, 896]          SOURCE_W_G_BC
    Use   [source_w_g.f, 898]          SOURCE_W_G_BC
    Set   [source_w_g.f, 927]          SOURCE_W_G_BC
    Use   [source_w_g.f, 929]          SOURCE_W_G_BC
    Set   [source_w_g.f, 960]          SOURCE_W_G_BC
    Use   [source_w_g.f, 962]          SOURCE_W_G_BC
    Set   [source_w_g.f, 993]          SOURCE_W_G_BC
    Use   [source_w_g.f, 995]          SOURCE_W_G_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 427]     MPPIC_BC_U_S
    Set   [pic_routines.f, 433]        MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 436]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 437]   MPPIC_BC_U_S
    Use   [pic_routines.f, 438]        MPPIC_BC_U_S
    Set   [pic_routines.f, 443]        MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 446]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 447]   MPPIC_BC_U_S
    Use   [pic_routines.f, 448]        MPPIC_BC_U_S
    Set   [pic_routines.f, 455]        MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 457]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 458]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 459]   MPPIC_BC_U_S
    Set   [pic_routines.f, 464]        MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 466]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 467]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 468]   MPPIC_BC_U_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 502]     MPPIC_BC_V_S
    Set   [pic_routines.f, 508]        MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 511]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 512]   MPPIC_BC_V_S
    Use   [pic_routines.f, 513]        MPPIC_BC_V_S
    Set   [pic_routines.f, 517]        MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 520]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 521]   MPPIC_BC_V_S
    Use   [pic_routines.f, 522]        MPPIC_BC_V_S
    Set   [pic_routines.f, 529]        MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 531]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 532]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 533]   MPPIC_BC_V_S
    Set   [pic_routines.f, 539]        MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 541]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 542]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 543]   MPPIC_BC_V_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 575]     MPPIC_BC_W_S
    Set   [pic_routines.f, 581]        MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 583]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 584]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 585]   MPPIC_BC_W_S
    Set   [pic_routines.f, 590]        MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 592]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 593]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 594]   MPPIC_BC_W_S
    Set   [pic_routines.f, 599]        MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 601]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 602]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 603]   MPPIC_BC_W_S
    Set   [pic_routines.f, 608]        MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 610]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 611]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 612]   MPPIC_BC_W_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [k_epsilon_prop.f, 61]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 155]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 157]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 157]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 158]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 158]      K_Epsilon_PROP

K1    (Local Variable)  Declared as: INTEGER
    Define   [cal_d.f, 39]             CAL_D
    Set   [cal_d.f, 73]                CAL_D
    Use   [cal_d.f, 75]                CAL_D
    Use   [cal_d.f, 76]                CAL_D
    Use   [cal_d.f, 79]                CAL_D
    Use   [cal_d.f, 80]                CAL_D
    Use   [cal_d.f, 80]                CAL_D

K1    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1879]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1952]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1955]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1961]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1989]   GET_POTENTIAL_CUT_CELLS

K1    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 50]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 515]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 518]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 534]   SET_3D_CUT_CELL_FLAGS

K1    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1021]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1087]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1091]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1097]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1099]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1101]         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
    Use   [leq_bicgst.f, 1140]         LEQ_MSOLVEt

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_v_is.f, 44]          DIF_V_IS
    Set   [dif_v_is.f, 58]             DIF_V_IS
    Use   [dif_v_is.f, 62]             DIF_V_IS
    Use   [dif_v_is.f, 85]             DIF_V_IS

K1    (Local Variable)  Declared as: INTEGER
    Define   [calc_ps_grad_pic.f, 61]   CALC_PS_GRAD_PIC0
    Set   [calc_ps_grad_pic.f, 132]    CALC_PS_GRAD_PIC0
    Use Argument   [calc_ps_grad_pic.f, 134]   CALC_PS_GRAD_PIC0
    Use Argument   [calc_ps_grad_pic.f, 135]   CALC_PS_GRAD_PIC0
    Set   [calc_ps_grad_pic.f, 152]    CALC_PS_GRAD_PIC0
    Use Argument   [calc_ps_grad_pic.f, 154]   CALC_PS_GRAD_PIC0
    Use Argument   [calc_ps_grad_pic.f, 155]   CALC_PS_GRAD_PIC0
    Set   [calc_ps_grad_pic.f, 171]    CALC_PS_GRAD_PIC0
    Use   [calc_ps_grad_pic.f, 172]    CALC_PS_GRAD_PIC0
    Use Argument   [calc_ps_grad_pic.f, 175]   CALC_PS_GRAD_PIC0
    Use Argument   [calc_ps_grad_pic.f, 176]   CALC_PS_GRAD_PIC0

K2    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 58]            BC_PHI
    Set   [bc_phi.f, 234]              BC_PHI
    Use   [bc_phi.f, 236]              BC_PHI
    Set   [bc_phi.f, 353]              BC_PHI
    Use   [bc_phi.f, 355]              BC_PHI
    Set   [bc_phi.f, 407]              BC_PHI
    Use   [bc_phi.f, 409]              BC_PHI

K2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_w_s.f, 1004]      JJ_BC_W_S
    Declare   [source_w_s.f, 1037]     JJ_BC_W_S
    Use   [source_w_s.f, 1053]         JJ_BC_W_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 565]       SOURCE_W_S_BC
    Set   [source_w_s.f, 697]          SOURCE_W_S_BC
    Use   [source_w_s.f, 699]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 727]   SOURCE_W_S_BC
    Set   [source_w_s.f, 736]          SOURCE_W_S_BC
    Use   [source_w_s.f, 738]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 766]   SOURCE_W_S_BC
    Set   [source_w_s.f, 775]          SOURCE_W_S_BC
    Use   [source_w_s.f, 777]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 855]   SOURCE_W_S_BC
    Set   [source_w_s.f, 866]          SOURCE_W_S_BC
    Use   [source_w_s.f, 867]          SOURCE_W_S_BC
    Set   [source_w_s.f, 893]          SOURCE_W_S_BC
    Use   [source_w_s.f, 894]          SOURCE_W_S_BC
    Set   [source_w_s.f, 926]          SOURCE_W_S_BC
    Use   [source_w_s.f, 927]          SOURCE_W_S_BC
    Set   [source_w_s.f, 954]          SOURCE_W_S_BC
    Use   [source_w_s.f, 955]          SOURCE_W_S_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   [conv_dif_phi.f, 758]     DIF_PHI_IS
    Set   [conv_dif_phi.f, 773]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 781]        DIF_PHI_IS
    Set   [conv_dif_phi.f, 781]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 781]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 784]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 800]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 817]        DIF_PHI_IS

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 422]       SOURCE_V_G_BC
    Set   [source_v_g.f, 580]          SOURCE_V_G_BC
    Use   [source_v_g.f, 581]          SOURCE_V_G_BC
    Set   [source_v_g.f, 615]          SOURCE_V_G_BC
    Use   [source_v_g.f, 616]          SOURCE_V_G_BC
    Set   [source_v_g.f, 650]          SOURCE_V_G_BC
    Use   [source_v_g.f, 651]          SOURCE_V_G_BC
    Set   [source_v_g.f, 723]          SOURCE_V_G_BC
    Use   [source_v_g.f, 724]          SOURCE_V_G_BC
    Set   [source_v_g.f, 780]          SOURCE_V_G_BC
    Use   [source_v_g.f, 781]          SOURCE_V_G_BC
    Set   [source_v_g.f, 811]          SOURCE_V_G_BC
    Use   [source_v_g.f, 812]          SOURCE_V_G_BC
    Set   [source_v_g.f, 844]          SOURCE_V_G_BC
    Use   [source_v_g.f, 845]          SOURCE_V_G_BC
    Set   [source_v_g.f, 877]          SOURCE_V_G_BC
    Use   [source_v_g.f, 878]          SOURCE_V_G_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [bc_theta.f, 69]          BC_THETA
    Set   [bc_theta.f, 86]             BC_THETA
    Use   [bc_theta.f, 89]             BC_THETA

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 41]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 182]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 184]      DIF_PHI_BC_DES

K2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_v_s.f, 957]       JJ_BC_V_S
    Declare   [source_v_s.f, 989]      JJ_BC_V_S
    Use   [source_v_s.f, 1005]         JJ_BC_V_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 527]       SOURCE_V_S_BC
    Set   [source_v_s.f, 660]          SOURCE_V_S_BC
    Use   [source_v_s.f, 662]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 691]   SOURCE_V_S_BC
    Set   [source_v_s.f, 700]          SOURCE_V_S_BC
    Use   [source_v_s.f, 702]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 730]   SOURCE_V_S_BC
    Set   [source_v_s.f, 739]          SOURCE_V_S_BC
    Use   [source_v_s.f, 741]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 807]   SOURCE_V_S_BC
    Set   [source_v_s.f, 818]          SOURCE_V_S_BC
    Use   [source_v_s.f, 819]          SOURCE_V_S_BC
    Set   [source_v_s.f, 845]          SOURCE_V_S_BC
    Use   [source_v_s.f, 846]          SOURCE_V_S_BC
    Set   [source_v_s.f, 878]          SOURCE_V_S_BC
    Use   [source_v_s.f, 879]          SOURCE_V_S_BC
    Set   [source_v_s.f, 906]          SOURCE_V_S_BC
    Use   [source_v_s.f, 907]          SOURCE_V_S_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_w_is.f, 45]          DIF_W_IS
    Set   [dif_w_is.f, 57]             DIF_W_IS
    Use   [dif_w_is.f, 60]             DIF_W_IS
    Use   [dif_w_is.f, 82]             DIF_W_IS

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 433]       SOURCE_U_G_BC
    Set   [source_u_g.f, 591]          SOURCE_U_G_BC
    Use   [source_u_g.f, 592]          SOURCE_U_G_BC
    Set   [source_u_g.f, 626]          SOURCE_U_G_BC
    Use   [source_u_g.f, 627]          SOURCE_U_G_BC
    Set   [source_u_g.f, 661]          SOURCE_U_G_BC
    Use   [source_u_g.f, 662]          SOURCE_U_G_BC
    Set   [source_u_g.f, 736]          SOURCE_U_G_BC
    Use   [source_u_g.f, 737]          SOURCE_U_G_BC
    Set   [source_u_g.f, 793]          SOURCE_U_G_BC
    Use   [source_u_g.f, 794]          SOURCE_U_G_BC
    Set   [source_u_g.f, 824]          SOURCE_U_G_BC
    Use   [source_u_g.f, 825]          SOURCE_U_G_BC
    Set   [source_u_g.f, 858]          SOURCE_U_G_BC
    Use   [source_u_g.f, 859]          SOURCE_U_G_BC
    Set   [source_u_g.f, 892]          SOURCE_U_G_BC
    Use   [source_u_g.f, 893]          SOURCE_U_G_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   [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 Argument   [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 Argument   [radial_vel_correction.f, 137]   RADIAL_VEL_CORRECTION

K2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_u_s.f, 965]       JJ_BC_U_S
    Declare   [source_u_s.f, 997]      JJ_BC_U_S
    Use   [source_u_s.f, 1013]         JJ_BC_U_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 532]       SOURCE_U_S_BC
    Set   [source_u_s.f, 666]          SOURCE_U_S_BC
    Use   [source_u_s.f, 668]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 696]   SOURCE_U_S_BC
    Set   [source_u_s.f, 705]          SOURCE_U_S_BC
    Use   [source_u_s.f, 707]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 735]   SOURCE_U_S_BC
    Set   [source_u_s.f, 744]          SOURCE_U_S_BC
    Use   [source_u_s.f, 746]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 812]   SOURCE_U_S_BC
    Set   [source_u_s.f, 823]          SOURCE_U_S_BC
    Use   [source_u_s.f, 824]          SOURCE_U_S_BC
    Set   [source_u_s.f, 850]          SOURCE_U_S_BC
    Use   [source_u_s.f, 851]          SOURCE_U_S_BC
    Set   [source_u_s.f, 884]          SOURCE_U_S_BC
    Use   [source_u_s.f, 885]          SOURCE_U_S_BC
    Set   [source_u_s.f, 913]          SOURCE_U_S_BC
    Use   [source_u_s.f, 914]          SOURCE_U_S_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 62]       SET_WALL_BC
    Set   [set_wall_bc.f, 76]          SET_WALL_BC
    Use Argument   [set_wall_bc.f, 80]   SET_WALL_BC
    Use Argument   [set_wall_bc.f, 84]   SET_WALL_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [set_wall_bc.f, 255]      SET_WALL_BC1
    Set   [set_wall_bc.f, 266]         SET_WALL_BC1
    Use   [set_wall_bc.f, 273]         SET_WALL_BC1
    Set   [set_wall_bc.f, 273]         SET_WALL_BC1
    Use Argument   [set_wall_bc.f, 273]   SET_WALL_BC1
    Use   [set_wall_bc.f, 275]         SET_WALL_BC1

K2    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 451]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 680]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 758]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 835]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 850]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 870]      RE_INDEX_ARRAYS

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_u_is.f, 47]          DIF_U_IS
    Set   [dif_u_is.f, 60]             DIF_U_IS
    Use   [dif_u_is.f, 68]             DIF_U_IS
    Set   [dif_u_is.f, 68]             DIF_U_IS
    Use Argument   [dif_u_is.f, 68]    DIF_U_IS
    Use   [dif_u_is.f, 71]             DIF_U_IS
    Use   [dif_u_is.f, 94]             DIF_U_IS

K2    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 39]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 66]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 69]      MAKE_ARRAYS_DES

K2    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 38]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 223]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 227]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 250]   COMP_MEAN_FIELDS0

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   [source_w_g.f, 493]       SOURCE_W_G_BC
    Set   [source_w_g.f, 651]          SOURCE_W_G_BC
    Use   [source_w_g.f, 652]          SOURCE_W_G_BC
    Set   [source_w_g.f, 686]          SOURCE_W_G_BC
    Use   [source_w_g.f, 687]          SOURCE_W_G_BC
    Set   [source_w_g.f, 721]          SOURCE_W_G_BC
    Use   [source_w_g.f, 722]          SOURCE_W_G_BC
    Set   [source_w_g.f, 811]          SOURCE_W_G_BC
    Use   [source_w_g.f, 812]          SOURCE_W_G_BC
    Set   [source_w_g.f, 897]          SOURCE_W_G_BC
    Use   [source_w_g.f, 898]          SOURCE_W_G_BC
    Set   [source_w_g.f, 928]          SOURCE_W_G_BC
    Use   [source_w_g.f, 929]          SOURCE_W_G_BC
    Set   [source_w_g.f, 961]          SOURCE_W_G_BC
    Use   [source_w_g.f, 962]          SOURCE_W_G_BC
    Set   [source_w_g.f, 994]          SOURCE_W_G_BC
    Use   [source_w_g.f, 995]          SOURCE_W_G_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1879]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1953]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1956]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1961]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1989]   GET_POTENTIAL_CUT_CELLS

K2    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 50]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 516]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 519]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 534]   SET_3D_CUT_CELL_FLAGS

K2    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1021]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1089]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1091]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1115]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1117]         LEQ_MSOLVEt

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_v_is.f, 44]          DIF_V_IS
    Set   [dif_v_is.f, 59]             DIF_V_IS
    Use   [dif_v_is.f, 62]             DIF_V_IS
    Use   [dif_v_is.f, 85]             DIF_V_IS

K23    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1463]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1673]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1678]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1723]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1728]   SET_GHOST_CELL_FLAGS

K_1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 812]         THETA_HW_CW
    Set   [bc_theta.f, 897]            THETA_HW_CW
    Set   [bc_theta.f, 924]            THETA_HW_CW
    Set   [bc_theta.f, 933]            THETA_HW_CW
    Set   [bc_theta.f, 1070]           THETA_HW_CW
    Set   [bc_theta.f, 1134]           THETA_HW_CW
    Set   [bc_theta.f, 1189]           THETA_HW_CW
    Use   [bc_theta.f, 1215]           THETA_HW_CW
    Use   [bc_theta.f, 1248]           THETA_HW_CW
    Use   [bc_theta.f, 1268]           THETA_HW_CW

K_12_avg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 345]         CALC_THETA_BC
    Set   [bc_theta.f, 389]            CALC_THETA_BC
    Set   [bc_theta.f, 392]            CALC_THETA_BC
    Use Argument   [bc_theta.f, 685]   CALC_THETA_BC

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

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_1m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 328]        Gt_algebraic
    Set   [calc_mu_s.f, 351]           Gt_algebraic
    Use   [calc_mu_s.f, 363]           Gt_algebraic
    Use   [calc_mu_s.f, 392]           Gt_algebraic

K_2m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 330]        Gt_algebraic
    Set   [calc_mu_s.f, 357]           Gt_algebraic
    Use   [calc_mu_s.f, 364]           Gt_algebraic
    Use   [calc_mu_s.f, 395]           Gt_algebraic

K_3m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 332]        Gt_algebraic
    Set   [calc_mu_s.f, 352]           Gt_algebraic
    Use   [calc_mu_s.f, 359]           Gt_algebraic
    Use   [calc_mu_s.f, 365]           Gt_algebraic
    Use   [calc_mu_s.f, 398]           Gt_algebraic

K_4m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 334]        Gt_algebraic
    Set   [calc_mu_s.f, 360]           Gt_algebraic
    Use   [calc_mu_s.f, 362]           Gt_algebraic
    Use   [calc_mu_s.f, 381]           Gt_algebraic

K_5m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 336]        Gt_algebraic
    Set   [calc_mu_s.f, 369]           Gt_algebraic
    Use   [calc_mu_s.f, 372]           Gt_algebraic
    Set   [calc_mu_s.f, 375]           Gt_algebraic
    Use   [calc_mu_s.f, 401]           Gt_algebraic

K_b    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mi.f, 384]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 447]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 466]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 469]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 477]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 481]       SET_DEM_BCMI_IJK

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   [check_initial_conditions.f, 131]   CHECK_IC_GEOMETRY
    Set   [check_initial_conditions.f, 310]   CHECK_IC_GEOMETRY
    Use Argument   [check_initial_conditions.f, 313]   CHECK_IC_GEOMETRY
    Set   [check_initial_conditions.f, 314]   CHECK_IC_GEOMETRY
    Use   [check_initial_conditions.f, 314]   CHECK_IC_GEOMETRY
    Use Argument   [check_initial_conditions.f, 318]   CHECK_IC_GEOMETRY
    Use   [check_initial_conditions.f, 321]   CHECK_IC_GEOMETRY

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_b    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mi.f, 155]    SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 211]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 220]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 221]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 228]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 232]       SET_PIC_BCMI_IJK

K_b    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mo.f, 46]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 109]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 111]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 121]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 121]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 121]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 122]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 122]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 122]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 129]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 133]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 152]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 154]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 162]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 162]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 169]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 173]       SET_BC_DEM_MO

K_b    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 420]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 495]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 499]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 499]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 501]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 505]   CHECK_BC_GEOMETRY_FLOW

K_b    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 237]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 316]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 319]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 320]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 320]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 325]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 328]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 336]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 339]   CHECK_BC_GEOMETRY_WALL

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 Argument   [mod_bc_k.f, 56]    MOD_BC_K
    Use Argument   [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   [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   [mod_bc_j.f, 31]          MOD_BC_J
    Set   [mod_bc_j.f, 51]             MOD_BC_J
    Use Argument   [mod_bc_j.f, 54]    MOD_BC_J
    Use Argument   [mod_bc_j.f, 59]    MOD_BC_J
    Use Argument   [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   [vtk_out.f, 3063]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3092]            SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3095]   SETUP_VTK_REGION
    Set   [vtk_out.f, 3096]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3096]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3174]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3232]            SETUP_VTK_REGION

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 Argument   [mod_bc_i.f, 60]    MOD_BC_I
    Use Argument   [mod_bc_i.f, 65]    MOD_BC_I
    Use Argument   [mod_bc_i.f, 66]    MOD_BC_I
    Use   [mod_bc_i.f, 97]             MOD_BC_I

K_CELL    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 41]   MAKE_ARRAYS_DES

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

K_common_term    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1421]       gt_pde_ia
    Set   [calc_mu_s.f, 1675]          gt_pde_ia
    Use   [calc_mu_s.f, 1680]          gt_pde_ia
    Use   [calc_mu_s.f, 1700]          gt_pde_ia
    Use   [calc_mu_s.f, 1722]          gt_pde_ia
    Use   [calc_mu_s.f, 1728]          gt_pde_ia

K_eff.K1    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [des_thermo_cond_mod.f, 295]   K_eff
    Declare   [des_thermo_cond_mod.f, 300]   K_eff
    Use   [des_thermo_cond_mod.f, 302]   K_eff
    Use   [des_thermo_cond_mod.f, 302]   K_eff

K_eff.K2    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [des_thermo_cond_mod.f, 295]   K_eff
    Declare   [des_thermo_cond_mod.f, 300]   K_eff
    Use   [des_thermo_cond_mod.f, 302]   K_eff
    Use   [des_thermo_cond_mod.f, 302]   K_eff

K_Epsilon_E    (Unknown Variable)
    Use   [usr_src_mod.f, 300]         CALC_USR_SOURCE
    Use   [usr_sources.f, 123]         USR_SOURCES
    Use Argument   [solve_k_epsilon_eq.f, 226]   SOLVE_K_Epsilon_EQ

K_Epsilon_K    (Unknown Variable)
    Use   [usr_src_mod.f, 300]         CALC_USR_SOURCE
    Use   [usr_sources.f, 120]         USR_SOURCES
    Use Argument   [solve_k_epsilon_eq.f, 147]   SOLVE_K_Epsilon_EQ

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 Argument   [mod_bc_k.f, 113]   MOD_BC_K
    Use   [mod_bc_k.f, 115]            MOD_BC_K
    Use Argument   [mod_bc_k.f, 119]   MOD_BC_K
    Use Argument   [mod_bc_k.f, 145]   MOD_BC_K
    Use   [mod_bc_k.f, 147]            MOD_BC_K
    Use Argument   [mod_bc_k.f, 151]   MOD_BC_K
    Use   [mod_bc_k.f, 158]            MOD_BC_K

K_P    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_source_epp.f, 107]   CONV_SOURCE_EPP0
    Set   [conv_source_epp.f, 145]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 154]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 161]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 172]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 179]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 190]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 197]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 208]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 215]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 227]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 234]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 245]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 252]     CONV_SOURCE_EPP0

K_P    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_source_epp.f, 359]   CONV_SOURCE_EPP1
    Set   [conv_source_epp.f, 421]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 429]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 438]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 448]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 458]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 469]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 479]     CONV_SOURCE_EPP1

K_s_dil    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1418]       gt_pde_ia
    Set   [calc_mu_s.f, 1588]          gt_pde_ia
    Use   [calc_mu_s.f, 1592]          gt_pde_ia
    Use   [calc_mu_s.f, 1597]          gt_pde_ia
    Use   [calc_mu_s.f, 1598]          gt_pde_ia
    Use   [calc_mu_s.f, 1601]          gt_pde_ia
    Use   [calc_mu_s.f, 1602]          gt_pde_ia

K_s_LM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1427]       gt_pde_ia
    Set   [calc_mu_s.f, 1680]          gt_pde_ia
    Use   [calc_mu_s.f, 1736]          gt_pde_ia

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

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

K_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 829]         THETA_HW_CW
    Set   [bc_theta.f, 948]            THETA_HW_CW
    Set   [bc_theta.f, 975]            THETA_HW_CW
    Use   [bc_theta.f, 975]            THETA_HW_CW
    Set   [bc_theta.f, 1061]           THETA_HW_CW
    Use   [bc_theta.f, 1061]           THETA_HW_CW
    Use   [bc_theta.f, 1070]           THETA_HW_CW

K_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1427]       gt_pde_ia
    Set   [calc_mu_s.f, 1586]          gt_pde_ia
    Set   [calc_mu_s.f, 1639]          gt_pde_ia
    Use   [calc_mu_s.f, 1639]          gt_pde_ia
    Set   [calc_mu_s.f, 1736]          gt_pde_ia
    Use   [calc_mu_s.f, 1736]          gt_pde_ia
    Use   [calc_mu_s.f, 1741]          gt_pde_ia

K_SIZE    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 477]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 1971]     RE_INDEX_ARRAYS
    Use   [set_increments.f, 1973]     RE_INDEX_ARRAYS

K_SLICE    (Local Variable)  Declared as: INTEGER (DIM_K)
    Define   [vtk_out.f, 3065]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3116]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3177]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3235]            SETUP_VTK_REGION

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

K_t    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mi.f, 384]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 448]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 467]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 470]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 477]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 481]       SET_DEM_BCMI_IJK

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   [check_initial_conditions.f, 131]   CHECK_IC_GEOMETRY
    Set   [check_initial_conditions.f, 311]   CHECK_IC_GEOMETRY
    Use Argument   [check_initial_conditions.f, 315]   CHECK_IC_GEOMETRY
    Use Argument   [check_initial_conditions.f, 319]   CHECK_IC_GEOMETRY
    Use   [check_initial_conditions.f, 322]   CHECK_IC_GEOMETRY

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_t    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_pic_mi.f, 155]    SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 211]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 220]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 221]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 228]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 232]       SET_PIC_BCMI_IJK

K_t    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mo.f, 46]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 109]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 111]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 121]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 122]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 129]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 133]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 152]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 154]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 162]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 162]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 169]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 173]       SET_BC_DEM_MO

K_t    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 420]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 496]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 502]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 506]   CHECK_BC_GEOMETRY_FLOW

K_t    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 237]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 317]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 321]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 326]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 329]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 337]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 340]   CHECK_BC_GEOMETRY_WALL

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   [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   [vtk_out.f, 3063]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3093]            SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3097]   SETUP_VTK_REGION
    Use   [vtk_out.f, 3174]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3232]            SETUP_VTK_REGION

K_TMP    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3064]         SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3115]   SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3116]   SETUP_VTK_REGION

K_v    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [source_population_eq.f, 14]   Source_population_eq
    Set   [source_population_eq.f, 19]   Source_population_eq
    Use   [source_population_eq.f, 26]   Source_population_eq
    Use   [source_population_eq.f, 203]   Source_population_eq
    Use   [source_population_eq.f, 215]   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 Argument   [mod_bc_k.f, 114]   MOD_BC_K
    Use   [mod_bc_k.f, 116]            MOD_BC_K
    Use Argument   [mod_bc_k.f, 118]   MOD_BC_K
    Use Argument   [mod_bc_k.f, 146]   MOD_BC_K
    Use   [mod_bc_k.f, 148]            MOD_BC_K
    Use Argument   [mod_bc_k.f, 150]   MOD_BC_K
    Use   [mod_bc_k.f, 157]            MOD_BC_K

KAMAX    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26129]        DPREPI
    Set   [ODEPACK.F, 26211]           DPREPI
    Use   [ODEPACK.F, 26212]           DPREPI
    Use   [ODEPACK.F, 26213]           DPREPI
    Use   [ODEPACK.F, 26220]           DPREPI
    Set   [ODEPACK.F, 26309]           DPREPI
    Use   [ODEPACK.F, 26310]           DPREPI
    Use   [ODEPACK.F, 26311]           DPREPI
    Use   [ODEPACK.F, 26318]           DPREPI
    Set   [ODEPACK.F, 26345]           DPREPI
    Use   [ODEPACK.F, 26346]           DPREPI
    Use   [ODEPACK.F, 26347]           DPREPI
    Use   [ODEPACK.F, 26354]           DPREPI

KAMIN    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26130]        DPREPI
    Set   [ODEPACK.F, 26205]           DPREPI
    Use   [ODEPACK.F, 26212]           DPREPI
    Use   [ODEPACK.F, 26213]           DPREPI
    Set   [ODEPACK.F, 26220]           DPREPI
    Set   [ODEPACK.F, 26305]           DPREPI
    Use   [ODEPACK.F, 26310]           DPREPI
    Use   [ODEPACK.F, 26311]           DPREPI
    Set   [ODEPACK.F, 26318]           DPREPI
    Set   [ODEPACK.F, 26332]           DPREPI
    Use   [ODEPACK.F, 26346]           DPREPI
    Use   [ODEPACK.F, 26347]           DPREPI
    Set   [ODEPACK.F, 26354]           DPREPI

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    (Local Variable)  Declared as: DOUBLE PRECISION PARAMETER
    Define   [source_u_g.f, 987]       Wall_Function
    Set   [source_u_g.f, 987]          Wall_Function
    Use   [source_u_g.f, 1000]         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    (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

Kappa    (Local Variable)  Declared as: DOUBLE PRECISION PARAMETER
    Define   [source_w_g.f, 486]       SOURCE_W_G_BC
    Set   [source_w_g.f, 486]          SOURCE_W_G_BC
    Use   [source_w_g.f, 836]          SOURCE_W_G_BC
    Use   [source_w_g.f, 855]          SOURCE_W_G_BC

Kappa    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 104]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 123]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 267]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 282]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 302]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 318]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 338]      K_Epsilon_PROP

kappa0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 834]         THETA_HW_CW
    Set   [bc_theta.f, 1106]           THETA_HW_CW
    Use   [bc_theta.f, 1123]           THETA_HW_CW
    Use   [bc_theta.f, 1127]           THETA_HW_CW
    Use   [bc_theta.f, 1129]           THETA_HW_CW

kappa0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 989]        gt_pde_gd
    Set   [calc_mu_s.f, 1065]          gt_pde_gd
    Use   [calc_mu_s.f, 1084]          gt_pde_gd
    Use   [calc_mu_s.f, 1088]          gt_pde_gd
    Use   [calc_mu_s.f, 1090]          gt_pde_gd
    Use   [calc_mu_s.f, 1092]          gt_pde_gd
    Use   [calc_mu_s.f, 1094]          gt_pde_gd

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

Kappa_Col    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 805]        gt_pde_simonin
    Set   [calc_mu_s.f, 925]           gt_pde_simonin
    Use   [calc_mu_s.f, 927]           gt_pde_simonin

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

kappa_k_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 989]        gt_pde_gd
    Set   [calc_mu_s.f, 1072]          gt_pde_gd
    Use   [calc_mu_s.f, 1078]          gt_pde_gd
    Use   [calc_mu_s.f, 1103]          gt_pde_gd

Kappa_kin    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 840]         THETA_HW_CW
    Set   [bc_theta.f, 916]            THETA_HW_CW
    Use   [bc_theta.f, 920]            THETA_HW_CW
    Use   [bc_theta.f, 924]            THETA_HW_CW

Kappa_kin    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 805]        gt_pde_simonin
    Set   [calc_mu_s.f, 922]           gt_pde_simonin
    Use   [calc_mu_s.f, 926]           gt_pde_simonin
    Use   [calc_mu_s.f, 927]           gt_pde_simonin

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

kappa_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 990]        gt_pde_gd
    Set   [calc_mu_s.f, 1078]          gt_pde_gd
    Use   [calc_mu_s.f, 1098]          gt_pde_gd

kb    (Local Variable)  Declared as: INTEGER
    Define   [interpolate_pic.f, 142]   INTERPOLATE_PIC0
    Set   [interpolate_pic.f, 169]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 179]     INTERPOLATE_PIC0

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

KB    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 244]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 315]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 324]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 388]        DRAG_GS_GAS0

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   [comp_mean_fields0.f, 43]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 131]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 141]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 175]   COMP_MEAN_FIELDS0

KB    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 27226]        DGBSL
    Set   [ODEPACK.F, 27251]           DGBSL
    Use   [ODEPACK.F, 27252]           DGBSL
    Set   [ODEPACK.F, 27278]           DGBSL
    Use   [ODEPACK.F, 27279]           DGBSL

KB    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26903]        DGESL
    Set   [ODEPACK.F, 26925]           DGESL
    Use   [ODEPACK.F, 26926]           DGESL
    Set   [ODEPACK.F, 26945]           DGESL
    Use   [ODEPACK.F, 26946]           DGESL

KB    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 24083]        DHELS
    Set   [ODEPACK.F, 24102]           DHELS
    Use   [ODEPACK.F, 24103]           DHELS

KB    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 23852]        DHESL
    Set   [ODEPACK.F, 23874]           DHESL
    Use   [ODEPACK.F, 23875]           DHESL

KB    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25992]        DSOLBT
    Set   [ODEPACK.F, 26013]           DSOLBT
    Use   [ODEPACK.F, 26014]           DSOLBT

KC    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 49]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 97]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 101]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 102]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 103]   CALC_INTERP_WEIGHTS1

KC    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 181]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 247]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 251]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 252]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 253]   CALC_INTERP_WEIGHTS2

KCMAX    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26130]        DPREPI
    Set   [ODEPACK.F, 26221]           DPREPI
    Use   [ODEPACK.F, 26222]           DPREPI
    Use   [ODEPACK.F, 26223]           DPREPI
    Use   [ODEPACK.F, 26231]           DPREPI

KCMIN    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26130]        DPREPI
    Set   [ODEPACK.F, 26206]           DPREPI
    Use   [ODEPACK.F, 26222]           DPREPI
    Use   [ODEPACK.F, 26223]           DPREPI
    Set   [ODEPACK.F, 26231]           DPREPI

Kcp    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [calc_k_cp.f, 25]         CALC_K_cp
    Declare   [calc_k_cp.f, 51]        CALC_K_cp
    Set   [calc_k_cp.f, 69]            CALC_K_cp
    Set   [calc_k_cp.f, 201]           CALC_K_cp
    Set   [calc_k_cp.f, 205]           CALC_K_cp
    Set   [calc_k_cp.f, 219]           CALC_K_cp
    Set   [calc_k_cp.f, 223]           CALC_K_cp
    Use   [calc_k_cp.f, 223]           CALC_K_cp
    Set   [calc_k_cp.f, 228]           CALC_K_cp
    Set   [calc_k_cp.f, 236]           CALC_K_cp
    Use Argument   [calc_k_cp.f, 242]   CALC_K_cp

KEEP    (Local Variable)  Declared as: LOGICAL (15)
    Define   [get_cut_cell_volume_area.f, 1078]   GET_POLYGON_AREA_AND_CENTROID
    Set   [get_cut_cell_volume_area.f, 1087]   GET_POLYGON_AREA_AND_CENTROID
    Set   [get_cut_cell_volume_area.f, 1093]   GET_POLYGON_AREA_AND_CENTROID
    Use   [get_cut_cell_volume_area.f, 1100]   GET_POLYGON_AREA_AND_CENTROID

KEEP    (Local Variable)  Declared as: LOGICAL (15)
    Define   [get_cut_cell_volume_area.f, 1224]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1233]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1239]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1246]   REORDER_POLYGON

KEEP_NEW_POINT    (Local Variable)  Declared as: LOGICAL (:) ALLOCATABLE
    Define   [vtk_out.f, 2834]         CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2840]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2840]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2846]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2859]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2866]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2885]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2910]            CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2938]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2938]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2944]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2957]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2964]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2983]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 3008]            CLEAN_GEOMETRY

KEEP_POINT    (Local Variable)  Declared as: LOGICAL (:) ALLOCATABLE
    Define   [vtk_out.f, 2833]         CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2843]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2843]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2850]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2858]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2865]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2878]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2902]            CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2941]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2941]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2948]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2956]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2963]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2976]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 3000]            CLEAN_GEOMETRY

KEEP_READING    (Local Variable)  Declared as: LOGICAL
    Define   [get_stl_data.f, 682]     GET_STL_DATA
    Set   [get_stl_data.f, 821]        GET_STL_DATA
    Use   [get_stl_data.f, 823]        GET_STL_DATA

KEEP_XDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3068]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3152]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3154]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3157]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3182]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3210]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3212]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3215]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3240]            SETUP_VTK_REGION

KEEP_YDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3068]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3162]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3164]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3167]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3182]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3220]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3222]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3225]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3240]            SETUP_VTK_REGION

KEEP_ZDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3068]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3172]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3174]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3177]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3182]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3230]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3232]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3235]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3240]            SETUP_VTK_REGION

kendl    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 674]        leq_check
    Set   [leq_gmres.f, 682]           leq_check
    Set   [leq_gmres.f, 690]           leq_check
    Use   [leq_gmres.f, 695]           leq_check

KFLUID    (Local Variable)  Declared as: INTEGER
    Define   [mass_inflow_pic.f, 32]   MASS_INFLOW_PIC
    Set   [mass_inflow_pic.f, 92]      MASS_INFLOW_PIC
    Use   [mass_inflow_pic.f, 99]      MASS_INFLOW_PIC
    Use   [mass_inflow_pic.f, 99]      MASS_INFLOW_PIC
    Use   [mass_inflow_pic.f, 103]     MASS_INFLOW_PIC
    Use   [mass_inflow_pic.f, 178]     MASS_INFLOW_PIC

Kg_micro    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_k_s.f, 94]          CALC_DEFAULT_Ks
    Set   [calc_k_s.f, 106]            CALC_DEFAULT_Ks
    Set   [calc_k_s.f, 109]            CALC_DEFAULT_Ks
    Use   [calc_k_s.f, 114]            CALC_DEFAULT_Ks
    Use   [calc_k_s.f, 122]            CALC_DEFAULT_Ks

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 4728]         DLSODA
    Set   [ODEPACK.F, 5092]            DLSODA
    Use   [ODEPACK.F, 5093]            DLSODA

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 6483]         DLSODAR
    Set   [ODEPACK.F, 6900]            DLSODAR
    Use   [ODEPACK.F, 6901]            DLSODAR

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 1214]         DLSODE
    Set   [ODEPACK.F, 1525]            DLSODE
    Use   [ODEPACK.F, 1526]            DLSODE

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 3017]         DLSODES
    Set   [ODEPACK.F, 3447]            DLSODES
    Use   [ODEPACK.F, 3448]            DLSODES

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 12031]        DLSODI
    Set   [ODEPACK.F, 12352]           DLSODI
    Use   [ODEPACK.F, 12353]           DLSODI

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 15803]        DLSODIS
    Set   [ODEPACK.F, 16251]           DLSODIS
    Use   [ODEPACK.F, 16252]           DLSODIS

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 10162]        DLSODKR
    Set   [ODEPACK.F, 10581]           DLSODKR
    Use   [ODEPACK.F, 10582]           DLSODKR

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 8319]         DLSODPK
    Set   [ODEPACK.F, 8711]            DLSODPK
    Use   [ODEPACK.F, 8712]            DLSODPK

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 13833]        DLSOIBT
    Set   [ODEPACK.F, 14151]           DLSOIBT
    Use   [ODEPACK.F, 14152]           DLSOIBT

KGO    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25012]        DSTODI
    Set   [ODEPACK.F, 25252]           DSTODI
    Use   [ODEPACK.F, 25253]           DSTODI
    Set   [ODEPACK.F, 25284]           DSTODI
    Use   [ODEPACK.F, 25285]           DSTODI

Kgran    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 814]         THETA_HW_CW
    Set   [bc_theta.f, 883]            THETA_HW_CW
    Use   [bc_theta.f, 887]            THETA_HW_CW
    Use   [bc_theta.f, 891]            THETA_HW_CW
    Use   [bc_theta.f, 893]            THETA_HW_CW
    Set   [bc_theta.f, 953]            THETA_HW_CW
    Use   [bc_theta.f, 956]            THETA_HW_CW
    Use   [bc_theta.f, 960]            THETA_HW_CW
    Use   [bc_theta.f, 961]            THETA_HW_CW

Kgran_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 816]         THETA_HW_CW
    Set   [bc_theta.f, 887]            THETA_HW_CW
    Set   [bc_theta.f, 889]            THETA_HW_CW
    Set   [bc_theta.f, 891]            THETA_HW_CW
    Use   [bc_theta.f, 897]            THETA_HW_CW
    Set   [bc_theta.f, 956]            THETA_HW_CW
    Set   [bc_theta.f, 958]            THETA_HW_CW
    Set   [bc_theta.f, 960]            THETA_HW_CW
    Use   [bc_theta.f, 964]            THETA_HW_CW
    Set   [bc_theta.f, 1123]           THETA_HW_CW
    Set   [bc_theta.f, 1125]           THETA_HW_CW
    Set   [bc_theta.f, 1127]           THETA_HW_CW
    Use   [bc_theta.f, 1134]           THETA_HW_CW

kintheory.A2_gtsh    (Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [kintheory_mod.f, 70]     kintheory
    Set   [kintheory_mod.f, 660]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 670]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 680]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 685]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 692]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 693]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [allocate_arrays.f, 389]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 135]       SET_CONSTPROP
    Use   [calc_mu_s.f, 1223]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1232]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1255]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1265]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1266]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1271]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1340]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1342]          gt_pde_gtsh

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.c_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 511]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 533]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 537]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 540]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 544]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 550]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 551]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 552]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 558]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.cd_num    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 513]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 549]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 558]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.Chi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 515]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 524]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 531]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 536]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 539]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 549]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 552]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 558]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.D_PM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 514]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 526]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 529]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.EP_SM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 514]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 525]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 529]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 531]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 549]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.IJK    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 509]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 518]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 519]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 524]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 525]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 526]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 529]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 562]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 562]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 566]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 566]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.lambda_num    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 513]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 543]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 549]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.M    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 487]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Declare   [kintheory_mod.f, 504]   kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 524]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 524]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 525]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 526]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 529]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 562]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 562]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 562]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 566]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 566]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 566]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.nu0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 515]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 529]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 566]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.nu_gamma_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 512]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 539]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 551]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.press_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 511]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 531]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 550]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 557]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.zeta0_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 511]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 536]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 551]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 566]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS.zeta1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 513]    kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 557]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 562]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.Chi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 615]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 627]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 646]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 649]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 658]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 665]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 679]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 686]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 690]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 691]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 694]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.D_PM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 614]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 629]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 630]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 634]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 639]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 640]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 644]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 645]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 680]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.EP_SM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 614]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 628]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 631]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 634]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 646]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 661]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 665]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 665]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 665]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 690]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 691]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 694]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.IJK    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 612]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 623]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 624]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 627]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 628]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 629]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 632]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 634]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 637]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 639]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 639]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 640]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 640]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 640]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 644]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 644]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 645]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 660]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 664]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 664]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 670]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 679]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 680]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 680]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 685]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 692]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 693]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 694]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 695]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 695]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 695]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 698]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.M    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 586]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Declare   [kintheory_mod.f, 607]   kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 627]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 627]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 628]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 629]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 632]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 634]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 637]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 640]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 645]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 664]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 679]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 679]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 680]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 694]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 695]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 695]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 695]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 698]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 698]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.M_p    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 614]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 632]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 645]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 694]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.mu2_0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 618]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 649]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 652]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 657]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 670]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 671]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.mu4_0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 618]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 652]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 670]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.mu4_1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 618]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 657]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 670]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.N_p    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 614]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 631]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 680]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.nu0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 615]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 634]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 684]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 686]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 693]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.nu_j    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 619]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 686]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 694]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.omega    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 619]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 684]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 692]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.Re_m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 617]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 639]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 664]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.Re_T    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 617]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 640]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 665]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.rho_10    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 619]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 690]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 698]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.rho_11    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 619]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 691]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 698]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.V_p    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 614]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 630]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 631]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 632]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.VREL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 616]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 637]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 639]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 644]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS.zeta_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 618]    kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 663]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 671]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.Ap_lm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 347]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 372]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 374]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 375]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 407]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 414]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 415]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 416]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 418]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 419]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 420]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 422]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 423]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 424]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 426]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 427]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 428]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 430]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 431]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 432]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.Bp_lm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 348]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 409]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 415]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 415]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 416]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 419]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 419]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 420]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 423]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 423]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 424]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 427]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 427]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 428]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 431]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 431]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 432]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 446]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 448]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 457]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 459]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.D_PL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 346]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 360]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 361]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 364]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.D_PM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 345]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 354]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 355]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 364]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.Dp_lm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 347]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 373]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 374]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 375]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 411]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 414]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 415]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 416]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 418]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 419]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 420]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 422]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 423]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 424]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 426]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 427]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 428]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 430]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 431]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 432]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.DPSUMo2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 346]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 364]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 367]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 367]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 392]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 445]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 446]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 447]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 449]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 456]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 457]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 458]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 460]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.ED_common_term    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 343]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 367]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 384]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 391]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 436]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 440]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 445]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 456]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.EDvel_sL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 344]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 391]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 393]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 445]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 451]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.EDvel_sM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 344]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 456]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 462]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.IJK    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 336]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 351]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 352]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 354]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 355]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 356]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 360]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 361]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 365]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 368]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 381]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 384]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 386]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 393]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 393]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 403]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 403]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 407]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 407]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 409]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 410]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 411]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 412]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 436]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 437]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 437]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 440]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 441]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 441]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 451]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 451]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 452]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 462]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 462]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 463]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.L    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 338]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 358]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 359]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 360]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 361]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 365]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 368]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 371]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 384]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 393]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 393]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 403]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 403]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 407]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 409]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 412]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 437]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 440]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 441]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 451]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 452]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 462]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 463]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.LM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 341]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 359]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 381]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 436]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.M    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 312]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Declare   [kintheory_mod.f, 331]   kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 354]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 355]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 356]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 359]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 368]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 371]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 384]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 386]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 393]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 403]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 403]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 407]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 410]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 411]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 437]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 440]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 441]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 451]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 451]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 462]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 462]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.M_PL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 345]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 361]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 363]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 365]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 369]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 369]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 373]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 385]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 391]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 392]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 407]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 409]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 411]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 411]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 436]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 440]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 445]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 446]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 447]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 448]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 448]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 449]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 457]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 458]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 459]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 460]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.M_PM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 345]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 355]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 356]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 363]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 368]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 369]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 373]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 392]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 407]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 409]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 411]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 411]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 436]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 446]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 449]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 456]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 457]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 459]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 460]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.MPSUM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 345]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 363]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 369]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 372]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 373]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 385]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 391]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 392]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 410]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 412]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 412]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 437]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 440]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 446]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 447]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 448]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 449]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 457]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 458]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 459]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 460]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.NU_PL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 345]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 365]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 368]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.NU_PM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 345]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 356]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 368]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.R10p_lm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 347]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 430]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 446]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 457]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.R1p_lm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 347]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 374]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 385]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 414]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 441]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.R3p_lm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 347]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 375]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 392]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 418]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 449]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 460]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.R4p_lm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 348]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 422]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 447]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 448]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 458]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 459]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.CALC_IA_ENERGY_DISSIPATION_SS.R5p_lm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 348]    kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 426]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 437]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS

kintheory.ED_ss_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 62]     kintheory
    Set   [kintheory_mod.f, 381]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 436]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [allocate_arrays.f, 386]     ALLOCATE_ARRAYS
    Use   [vtc_scalar.f, 57]           CALC_VTC_SS
    Set   [set_constprop.f, 123]       SET_CONSTPROP

kintheory.EDT_s_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 64]     kintheory
    Set   [kintheory_mod.f, 566]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 679]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 695]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 384]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 440]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [allocate_arrays.f, 395]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 130]       SET_CONSTPROP
    Use   [calc_mu_s.f, 1226]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1264]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1336]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1339]          gt_pde_gtsh
    Use   [source_granular_energy.f, 724]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 725]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 441]   SOURCE_GRANULAR_ENERGY_IA

kintheory.EDvel_sL_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 68]     kintheory
    Set   [kintheory_mod.f, 393]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 403]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 451]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [allocate_arrays.f, 385]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 124]       SET_CONSTPROP
    Use   [source_granular_energy.f, 445]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 447]   SOURCE_GRANULAR_ENERGY_IA

kintheory.EDvel_sM_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 66]     kintheory
    Set   [kintheory_mod.f, 562]       kintheory.CALC_GD_99_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 698]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 403]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [kintheory_mod.f, 462]       kintheory.CALC_IA_ENERGY_DISSIPATION_SS
    Set   [allocate_arrays.f, 396]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 131]       SET_CONSTPROP
    Use   [source_granular_energy.f, 729]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 730]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 452]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 454]   SOURCE_GRANULAR_ENERGY_IA

kintheory.EpM    (Variable)  Declared as: DOUBLE PRECISION PARAMETER
    Define   [kintheory_mod.f, 81]     kintheory
    Set   [kintheory_mod.f, 81]        kintheory
    Use   [kintheory_mod.f, 758]       kintheory.G_gtsh
    Use   [calc_grbdry.f, 1098]        CALC_GR_BOUNDARY.F_HW
    Use Argument   [calc_mu_s.f, 1287]   gt_pde_gtsh

kintheory.Fnu_s_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 38]     kintheory
    Use Argument   [kintheory_u_s.f, 263]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 263]   CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 374]       COLL_MOMENTUM_COEFF_IA
    Set   [kintheory_u_s.f, 441]       COLL_MOMENTUM_COEFF_IA
    Set   [kintheory_u_s.f, 449]       COLL_MOMENTUM_COEFF_IA
    Set   [allocate_arrays.f, 378]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 116]       SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 239]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 239]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_v_s.f, 184]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 184]   CALC_IA_MOMSOURCE_V_S

kintheory.FT_sL_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 43]     kintheory
    Use Argument   [kintheory_u_s.f, 281]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 281]   CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 376]       COLL_MOMENTUM_COEFF_IA
    Set   [kintheory_u_s.f, 447]       COLL_MOMENTUM_COEFF_IA
    Set   [kintheory_u_s.f, 451]       COLL_MOMENTUM_COEFF_IA
    Set   [allocate_arrays.f, 380]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 118]       SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 257]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 257]   CALC_IA_MOMSOURCE_W_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

kintheory.FT_sM_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 41]     kintheory
    Use Argument   [kintheory_u_s.f, 273]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 273]   CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 375]       COLL_MOMENTUM_COEFF_IA
    Set   [kintheory_u_s.f, 446]       COLL_MOMENTUM_COEFF_IA
    Set   [kintheory_u_s.f, 450]       COLL_MOMENTUM_COEFF_IA
    Set   [allocate_arrays.f, 379]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 117]       SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 249]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 249]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_v_s.f, 194]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 194]   CALC_IA_MOMSOURCE_V_S

kintheory.G_gtsh.Chi    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [kintheory_mod.f, 722]    kintheory.G_gtsh
    Declare   [kintheory_mod.f, 738]   kintheory.G_gtsh
    Use   [kintheory_mod.f, 758]       kintheory.G_gtsh

kintheory.G_gtsh.EP_SM    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [kintheory_mod.f, 722]    kintheory.G_gtsh
    Declare   [kintheory_mod.f, 736]   kintheory.G_gtsh
    Use   [kintheory_mod.f, 752]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 753]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 756]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 756]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 756]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 757]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 757]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 757]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 758]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 758]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 763]       kintheory.G_gtsh

kintheory.G_gtsh.IJK    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 722]    kintheory.G_gtsh
    Declare   [kintheory_mod.f, 740]   kintheory.G_gtsh
    Use   [kintheory_mod.f, 761]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 761]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 761]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 761]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 765]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 765]       kintheory.G_gtsh

kintheory.G_gtsh.M    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 722]    kintheory.G_gtsh
    Declare   [kintheory_mod.f, 743]   kintheory.G_gtsh
    Use   [kintheory_mod.f, 761]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 761]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 765]       kintheory.G_gtsh

kintheory.G_gtsh.Rdiss    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 748]    kintheory.G_gtsh
    Set   [kintheory_mod.f, 763]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 765]       kintheory.G_gtsh

kintheory.G_gtsh.RdissP    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 748]    kintheory.G_gtsh
    Set   [kintheory_mod.f, 753]       kintheory.G_gtsh
    Set   [kintheory_mod.f, 755]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 763]       kintheory.G_gtsh

kintheory.G_gtsh.Re_T    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 747]    kintheory.G_gtsh
    Set   [kintheory_mod.f, 761]       kintheory.G_gtsh
    Use   [kintheory_mod.f, 763]       kintheory.G_gtsh

kintheory.K_phi.phi    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [kintheory_mod.f, 776]    kintheory.K_phi
    Declare   [kintheory_mod.f, 782]   kintheory.K_phi
    Use   [kintheory_mod.f, 785]       kintheory.K_phi
    Use   [kintheory_mod.f, 785]       kintheory.K_phi

kintheory.Knu_sL_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 54]     kintheory
    Set   [allocate_arrays.f, 383]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 121]       SET_CONSTPROP
    Set   [calc_mu_s.f, 1631]          gt_pde_ia
    Set   [calc_mu_s.f, 1728]          gt_pde_ia
    Use   [calc_mu_s.f, 1734]          gt_pde_ia
    Set   [calc_mu_s.f, 1735]          gt_pde_ia
    Use   [calc_mu_s.f, 1735]          gt_pde_ia
    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

kintheory.Knu_sM_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 52]     kintheory
    Set   [allocate_arrays.f, 382]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 120]       SET_CONSTPROP
    Set   [calc_mu_s.f, 1635]          gt_pde_ia
    Set   [calc_mu_s.f, 1734]          gt_pde_ia
    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

kintheory.KT_COS_THETA.I    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 190]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 197]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 216]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 220]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.ijk    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 163]    kintheory.KT_COS_THETA
    Declare   [kintheory_mod.f, 183]   kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 197]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 198]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 199]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 200]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 205]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 208]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 208]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 216]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 217]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 218]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 220]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 222]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 231]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.IJKM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 190]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 200]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 218]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 222]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.IJMK    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 190]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 199]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 206]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 209]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 210]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 210]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 212]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 217]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.IMJK    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 190]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 198]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 216]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 220]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.M    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 163]    kintheory.KT_COS_THETA
    Declare   [kintheory_mod.f, 185]   kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 205]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 206]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 208]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 210]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 212]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 220]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 220]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 222]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 222]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 231]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.rvel    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 194]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 224]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 230]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 233]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.speed    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 194]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 227]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 230]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 233]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.UGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 193]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 216]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 224]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 232]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.USCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 192]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 220]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 224]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 227]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 232]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 232]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.VGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 193]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 217]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 224]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 232]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.vs_j    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 194]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 205]       kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 208]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 221]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.vs_jm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 194]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 206]       kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 210]       kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 212]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 221]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.VSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 192]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 221]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 224]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 227]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 232]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 232]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 193]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 218]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 225]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 233]       kintheory.KT_COS_THETA

kintheory.KT_COS_THETA.WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 192]    kintheory.KT_COS_THETA
    Set   [kintheory_mod.f, 222]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 225]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 227]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 233]       kintheory.KT_COS_THETA
    Use   [kintheory_mod.f, 233]       kintheory.KT_COS_THETA

kintheory.KT_DGA.C_d    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 273]    kintheory.KT_DGA
    Set   [kintheory_mod.f, 287]       kintheory.KT_DGA
    Set   [kintheory_mod.f, 290]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 294]       kintheory.KT_DGA

kintheory.KT_DGA.IJK    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 253]    kintheory.KT_DGA
    Declare   [kintheory_mod.f, 266]   kintheory.KT_DGA
    Use   [kintheory_mod.f, 281]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 285]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 285]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 285]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 294]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 294]       kintheory.KT_DGA

kintheory.KT_DGA.M    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 253]    kintheory.KT_DGA
    Declare   [kintheory_mod.f, 268]   kintheory.KT_DGA
    Use   [kintheory_mod.f, 281]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 285]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 294]       kintheory.KT_DGA

kintheory.KT_DGA.Re    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 273]    kintheory.KT_DGA
    Set   [kintheory_mod.f, 285]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 286]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 287]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 288]       kintheory.KT_DGA

kintheory.KT_DGA.rvel    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 275]    kintheory.KT_DGA
    Set   [kintheory_mod.f, 280]       kintheory.KT_DGA
    Set   [kintheory_mod.f, 281]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 285]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 294]       kintheory.KT_DGA
    Use   [kintheory_mod.f, 297]       kintheory.KT_DGA

kintheory.KT_RVEL.I    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 117]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 124]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 145]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 149]       kintheory.KT_RVEL

kintheory.KT_RVEL.ijk    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 93]     kintheory.KT_RVEL
    Declare   [kintheory_mod.f, 110]   kintheory.KT_RVEL
    Use   [kintheory_mod.f, 124]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 125]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 126]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 127]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 132]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 135]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 135]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 145]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 146]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 147]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 149]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 151]       kintheory.KT_RVEL

kintheory.KT_RVEL.IJKM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 117]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 127]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 147]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 151]       kintheory.KT_RVEL

kintheory.KT_RVEL.IJMK    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 117]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 126]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 133]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 136]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 137]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 137]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 139]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 146]       kintheory.KT_RVEL

kintheory.KT_RVEL.IMJK    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_mod.f, 117]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 125]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 145]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 149]       kintheory.KT_RVEL

kintheory.KT_RVEL.M    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [kintheory_mod.f, 93]     kintheory.KT_RVEL
    Declare   [kintheory_mod.f, 112]   kintheory.KT_RVEL
    Use   [kintheory_mod.f, 132]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 133]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 135]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 137]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 139]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 149]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 149]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 151]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 151]       kintheory.KT_RVEL

kintheory.KT_RVEL.UGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 120]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 145]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 154]       kintheory.KT_RVEL

kintheory.KT_RVEL.USCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 119]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 149]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 154]       kintheory.KT_RVEL

kintheory.KT_RVEL.VGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 120]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 146]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 154]       kintheory.KT_RVEL

kintheory.KT_RVEL.vs_j    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 122]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 132]       kintheory.KT_RVEL
    Set   [kintheory_mod.f, 135]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 150]       kintheory.KT_RVEL

kintheory.KT_RVEL.vs_jm    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 122]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 133]       kintheory.KT_RVEL
    Set   [kintheory_mod.f, 137]       kintheory.KT_RVEL
    Set   [kintheory_mod.f, 139]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 150]       kintheory.KT_RVEL

kintheory.KT_RVEL.VSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 119]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 150]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 154]       kintheory.KT_RVEL

kintheory.KT_RVEL.WGC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 120]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 147]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 155]       kintheory.KT_RVEL

kintheory.KT_RVEL.WSCM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_mod.f, 119]    kintheory.KT_RVEL
    Set   [kintheory_mod.f, 151]       kintheory.KT_RVEL
    Use   [kintheory_mod.f, 155]       kintheory.KT_RVEL

kintheory.Kth_sL_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 50]     kintheory
    Set   [allocate_arrays.f, 381]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 119]       SET_CONSTPROP
    Set   [calc_mu_s.f, 1717]          gt_pde_ia
    Use   [calc_mu_s.f, 1717]          gt_pde_ia
    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

kintheory.KTMOM_U_s    (Variable)  Declared as: DOUBLE PRECISION (:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 75]     kintheory
    Set   [kintheory_u_s.f, 37]        CALC_EXPLICIT_MOM_SOURCE_S
    Set   [kintheory_u_s.f, 300]       CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 302]       CALC_IA_MOMSOURCE_U_S
    Set   [allocate_arrays.f, 366]     ALLOCATE_ARRAYS
    Use   [source_u_s.f, 451]          SOURCE_U_S

kintheory.KTMOM_V_s    (Variable)  Declared as: DOUBLE PRECISION (:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 76]     kintheory
    Set   [kintheory_u_s.f, 38]        CALC_EXPLICIT_MOM_SOURCE_S
    Set   [allocate_arrays.f, 367]     ALLOCATE_ARRAYS
    Use   [source_v_s.f, 446]          SOURCE_V_S
    Set   [kintheory_v_s.f, 221]       CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 223]       CALC_IA_MOMSOURCE_V_S

kintheory.KTMOM_W_s    (Variable)  Declared as: DOUBLE PRECISION (:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 77]     kintheory
    Use   [source_w_s.f, 482]          SOURCE_W_S
    Set   [kintheory_u_s.f, 39]        CALC_EXPLICIT_MOM_SOURCE_S
    Set   [allocate_arrays.f, 368]     ALLOCATE_ARRAYS
    Set   [kintheory_w_s.f, 275]       CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 277]       CALC_IA_MOMSOURCE_W_S

kintheory.Kvel_s_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 56]     kintheory
    Set   [allocate_arrays.f, 384]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 122]       SET_CONSTPROP
    Set   [calc_mu_s.f, 1623]          gt_pde_ia
    Set   [calc_mu_s.f, 1722]          gt_pde_ia
    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

kintheory.MU_sL_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 27]     kintheory
    Use   [kintheory_u_s.f, 188]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 189]       CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 193]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 193]   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, 200]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 200]   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, 233]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 233]   CALC_IA_MOMSOURCE_U_S
    Set   [allocate_arrays.f, 375]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 113]       SET_CONSTPROP
    Set   [calc_mu_s.f, 1508]          gt_pde_ia
    Set   [calc_mu_s.f, 1556]          gt_pde_ia
    Use   [calc_mu_s.f, 1578]          gt_pde_ia
    Use Argument   [kintheory_w_s.f, 137]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 137]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 138]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 138]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 139]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 139]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 140]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 140]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 144]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 144]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 145]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 145]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 146]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 146]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 147]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 147]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 151]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 152]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 183]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 183]   CALC_IA_MOMSOURCE_W_S
    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, 135]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 135]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 136]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 136]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 137]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 137]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 138]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 138]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 142]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 143]       CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 147]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 147]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 148]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 148]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 149]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 149]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 150]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 150]   CALC_IA_MOMSOURCE_V_S

kintheory.MU_sM_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 25]     kintheory
    Set   [allocate_arrays.f, 374]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 112]       SET_CONSTPROP
    Set   [calc_mu_s.f, 1505]          gt_pde_ia
    Set   [calc_mu_s.f, 1552]          gt_pde_ia
    Use   [calc_mu_s.f, 1568]          gt_pde_ia

kintheory.R_d.phi    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [kintheory_mod.f, 796]    kintheory.R_d
    Declare   [kintheory_mod.f, 802]   kintheory.R_d
    Use   [kintheory_mod.f, 806]       kintheory.R_d
    Use   [kintheory_mod.f, 806]       kintheory.R_d
    Use   [kintheory_mod.f, 807]       kintheory.R_d
    Use   [kintheory_mod.f, 807]       kintheory.R_d
    Use   [kintheory_mod.f, 807]       kintheory.R_d
    Use   [kintheory_mod.f, 807]       kintheory.R_d
    Use   [kintheory_mod.f, 808]       kintheory.R_d
    Use   [kintheory_mod.f, 808]       kintheory.R_d
    Use   [kintheory_mod.f, 808]       kintheory.R_d
    Use   [kintheory_mod.f, 809]       kintheory.R_d
    Use   [kintheory_mod.f, 810]       kintheory.R_d
    Use   [kintheory_mod.f, 810]       kintheory.R_d

kintheory.S_star.Chi    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [kintheory_mod.f, 821]    kintheory.S_star
    Declare   [kintheory_mod.f, 829]   kintheory.S_star
    Use   [kintheory_mod.f, 835]       kintheory.S_star

kintheory.S_star.phi    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [kintheory_mod.f, 821]    kintheory.S_star
    Declare   [kintheory_mod.f, 827]   kintheory.S_star
    Use   [kintheory_mod.f, 834]       kintheory.S_star
    Use   [kintheory_mod.f, 835]       kintheory.S_star
    Use   [kintheory_mod.f, 835]       kintheory.S_star
    Use   [kintheory_mod.f, 835]       kintheory.S_star

kintheory.XI_sL_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 31]     kintheory
    Use   [kintheory_u_s.f, 208]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 209]       CALC_IA_MOMSOURCE_U_S
    Set   [allocate_arrays.f, 377]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 115]       SET_CONSTPROP
    Set   [calc_mu_s.f, 1516]          gt_pde_ia
    Set   [calc_mu_s.f, 1564]          gt_pde_ia
    Use   [calc_mu_s.f, 1579]          gt_pde_ia
    Use   [kintheory_w_s.f, 157]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 158]       CALC_IA_MOMSOURCE_W_S
    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, 155]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 156]       CALC_IA_MOMSOURCE_V_S

kintheory.XI_sM_ip    (Variable)  Declared as: DOUBLE PRECISION (:,:,:) ALLOCATABLE
    Define   [kintheory_mod.f, 29]     kintheory
    Set   [allocate_arrays.f, 376]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 114]       SET_CONSTPROP
    Set   [calc_mu_s.f, 1512]          gt_pde_ia
    Set   [calc_mu_s.f, 1560]          gt_pde_ia
    Use   [calc_mu_s.f, 1569]          gt_pde_ia

kintheory.xsi_gtsh    (Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [kintheory_mod.f, 71]     kintheory
    Set   [kintheory_mod.f, 644]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Use   [kintheory_mod.f, 695]       kintheory.CALC_GTSH_ENERGY_DISSIPATION_SS
    Set   [allocate_arrays.f, 390]     ALLOCATE_ARRAYS
    Set   [set_constprop.f, 136]       SET_CONSTPROP
    Use   [calc_mu_s.f, 1226]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1248]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1337]          gt_pde_gtsh
    Use   [source_granular_energy.f, 742]   SOURCE_GRANULAR_ENERGY_GD

kk    (Local Variable)  Declared as: INTEGER
    Define   [interpolate_pic.f, 144]   INTERPOLATE_PIC0
    Set   [interpolate_pic.f, 179]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 181]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 183]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 184]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 185]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 203]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 204]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 205]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 206]     INTERPOLATE_PIC0
    Use   [interpolate_pic.f, 216]     INTERPOLATE_PIC0

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   [drag_gs_des0.f, 43]      DRAG_GS_DES0
    Set   [drag_gs_des0.f, 119]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 120]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 121]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 122]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 123]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 127]        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, 134]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 135]        DRAG_GS_DES0

KK    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 238]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 324]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 325]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 326]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 327]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 328]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 331]        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, 339]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 388]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 392]        DRAG_GS_GAS0

KK    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 490]     DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 525]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 528]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 528]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 529]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 529]        DRAG_INTERPOLATION

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   [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   [write_spx1.f, 609]       gatherWriteSpx_netcdf
    Set   [write_spx1.f, 621]          gatherWriteSpx_netcdf
    Use   [write_spx1.f, 625]          gatherWriteSpx_netcdf

kk    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 654]       gatherWriteSpx_netcdf_int
    Set   [write_spx1.f, 666]          gatherWriteSpx_netcdf_int
    Use   [write_spx1.f, 670]          gatherWriteSpx_netcdf_int

kk    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 675]        leq_check
    Set   [leq_gmres.f, 726]           leq_check
    Use   [leq_gmres.f, 729]           leq_check
    Use   [leq_gmres.f, 729]           leq_check

KK    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 167]        LEQ_GMRES0
    Set   [leq_gmres.f, 229]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 232]   LEQ_GMRES0
    Set   [leq_gmres.f, 264]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 267]   LEQ_GMRES0
    Set   [leq_gmres.f, 282]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 285]   LEQ_GMRES0
    Set   [leq_gmres.f, 309]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 312]   LEQ_GMRES0
    Set   [leq_gmres.f, 326]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 329]   LEQ_GMRES0
    Set   [leq_gmres.f, 419]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 422]   LEQ_GMRES0
    Set   [leq_gmres.f, 499]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 502]   LEQ_GMRES0
    Set   [leq_gmres.f, 513]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 516]   LEQ_GMRES0
    Set   [leq_gmres.f, 556]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 559]   LEQ_GMRES0

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   [make_arrays_des.f, 39]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 69]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 72]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 73]      MAKE_ARRAYS_DES

KK    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 37]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 141]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 142]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 145]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 175]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 176]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 227]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 230]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 250]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 253]   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, 330]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 331]   COMP_MEAN_FIELDS0

KK    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 446]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 477]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 480]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 480]   DRAG_WEIGHTFACTOR

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   [get_cut_cell_flags.f, 1878]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1961]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1964]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1989]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1992]   GET_POTENTIAL_CUT_CELLS

KK    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 50]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 534]   SET_3D_CUT_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 537]   SET_3D_CUT_CELL_FLAGS

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   [nsquare.f, 34]           NSQUARE
    Set   [nsquare.f, 67]              NSQUARE
    Set   [nsquare.f, 91]              NSQUARE
    Use   [nsquare.f, 92]              NSQUARE
    Set   [nsquare.f, 94]              NSQUARE
    Use   [nsquare.f, 95]              NSQUARE
    Use   [nsquare.f, 108]             NSQUARE

KK1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [set_wall_bc.f, 219]      SET_WALL_BC1
    Declare   [set_wall_bc.f, 244]     SET_WALL_BC1
    Use   [set_wall_bc.f, 265]         SET_WALL_BC1

KK2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [set_wall_bc.f, 219]      SET_WALL_BC1
    Declare   [set_wall_bc.f, 244]     SET_WALL_BC1
    Use   [set_wall_bc.f, 266]         SET_WALL_BC1

KM    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 59]            BC_PHI
    Set   [bc_phi.f, 244]              BC_PHI
    Use   [bc_phi.f, 322]              BC_PHI
    Use   [bc_phi.f, 324]              BC_PHI

KM    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 500]           BC_PHI_CG
    Set   [bc_phi.f, 536]              BC_PHI_CG
    Use   [bc_phi.f, 658]              BC_PHI_CG
    Use   [bc_phi.f, 659]              BC_PHI_CG

KM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_u_s.f, 112]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 156]       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   [kintheory_u_s.f, 205]       CALC_IA_MOMSOURCE_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 336]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 349]    GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 353]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 356]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 357]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 359]   GET_CELL_NODE_COORDINATES

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 29]   GET_CONNECTIVITY
    Set   [get_connectivity.f, 54]     GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 58]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 61]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 62]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 64]   GET_CONNECTIVITY

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 516]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 529]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 533]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 536]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 537]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 539]   GET_GLOBAL_CELL_NODE_COORDINATES

km    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 131]     GET_PHICELL_DIFF_TERMS
    Set   [conv_dif_phi.f, 148]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 160]        GET_PHICELL_DIFF_TERMS
    Use   [conv_dif_phi.f, 172]        GET_PHICELL_DIFF_TERMS
    Use Argument   [conv_dif_phi.f, 194]   GET_PHICELL_DIFF_TERMS

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 423]       SOURCE_V_G_BC
    Set   [source_v_g.f, 659]          SOURCE_V_G_BC
    Use   [source_v_g.f, 704]          SOURCE_V_G_BC
    Use   [source_v_g.f, 705]          SOURCE_V_G_BC
    Set   [source_v_g.f, 732]          SOURCE_V_G_BC
    Use   [source_v_g.f, 757]          SOURCE_V_G_BC

km    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 318]     GET_UCELL_SDIFF_TERMS
    Set   [conv_dif_u_s.f, 335]        GET_UCELL_SDIFF_TERMS
    Use   [conv_dif_u_s.f, 361]        GET_UCELL_SDIFF_TERMS
    Use Argument   [conv_dif_u_s.f, 390]   GET_UCELL_SDIFF_TERMS
    Use Argument   [conv_dif_u_s.f, 391]   GET_UCELL_SDIFF_TERMS

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_s.f, 67]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 195]       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
    Set   [CG_source_v_s.f, 239]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 248]   CG_SOURCE_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [bc_theta.f, 70]          BC_THETA
    Set   [bc_theta.f, 99]             BC_THETA
    Use   [bc_theta.f, 252]            BC_THETA
    Use   [bc_theta.f, 253]            BC_THETA

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   [get_cut_cell_volume_area.f, 35]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 83]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 87]   GET_CUT_CELL_VOLUME_AND_AREAS

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 49]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 167]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 192]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 193]   CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 216]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 225]   CG_SOURCE_U_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 319]    CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 367]       CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 481]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 485]   CG_SOURCE_U_G_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 42]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 223]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 224]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 225]      DIF_PHI_BC_DES

KM    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 286]   DIF_PHI_BC_DES_CG
    Set   [dif_phi_bc_des.f, 353]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 354]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 355]      DIF_PHI_BC_DES_CG

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_g.f, 231]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 285]             CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 326]    CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 327]    CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 522]    CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 523]    CALC_CG_TAU_V_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_g.f, 66]           CALC_TAU_V_G
    Set   [tau_v_g.f, 99]              CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 151]    CALC_TAU_V_G
    Use Argument   [tau_v_g.f, 152]    CALC_TAU_V_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 1000]      JJ_BC_V_S
    Set   [source_v_s.f, 1014]         JJ_BC_V_S
    Use   [source_v_s.f, 1117]         JJ_BC_V_S
    Use   [source_v_s.f, 1118]         JJ_BC_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 528]       SOURCE_V_S_BC
    Set   [source_v_s.f, 749]          SOURCE_V_S_BC
    Use   [source_v_s.f, 796]          SOURCE_V_S_BC
    Use   [source_v_s.f, 798]          SOURCE_V_S_BC

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

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 434]       SOURCE_U_G_BC
    Set   [source_u_g.f, 670]          SOURCE_U_G_BC
    Use   [source_u_g.f, 715]          SOURCE_U_G_BC
    Use   [source_u_g.f, 717]          SOURCE_U_G_BC
    Set   [source_u_g.f, 745]          SOURCE_U_G_BC
    Use   [source_u_g.f, 770]          SOURCE_U_G_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_s.f, 68]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 204]       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, 251]       CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 260]   CG_SOURCE_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_s.f, 284]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 308]             CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 348]    CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 349]    CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 539]    CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 540]    CALC_CG_TAU_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_v_s.f, 165]          CALC_REG_TAU_V_S
    Set   [tau_v_s.f, 177]             CALC_REG_TAU_V_S
    Use Argument   [tau_v_s.f, 228]    CALC_REG_TAU_V_S
    Use Argument   [tau_v_s.f, 229]    CALC_REG_TAU_V_S

Km    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 50]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 82]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 87]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 97]   CALC_INTERP_WEIGHTS1

Km    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 182]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 225]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 237]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 247]   CALC_INTERP_WEIGHTS2

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 28]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 77]            GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 87]   GET_3D_ALPHA_U_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 433]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 482]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 492]   GET_3D_ALPHA_V_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 839]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 886]           GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 896]   GET_3D_ALPHA_W_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_g.f, 278]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 333]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 373]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 374]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 569]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 570]    CALC_CG_TAU_U_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_g.f, 82]           CALC_TAU_U_G
    Set   [tau_u_g.f, 122]             CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 174]    CALC_TAU_U_G
    Use Argument   [tau_u_g.f, 175]    CALC_TAU_U_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 2760]       CALC_BOYLE_MASSOUDI_STRESS
    Set   [calc_mu_s.f, 2779]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 2798]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 2799]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 2800]          CALC_BOYLE_MASSOUDI_STRESS

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1008]      JJ_BC_U_S
    Set   [source_u_s.f, 1022]         JJ_BC_U_S
    Use   [source_u_s.f, 1125]         JJ_BC_U_S
    Use   [source_u_s.f, 1126]         JJ_BC_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 533]       SOURCE_U_S_BC
    Set   [source_u_s.f, 754]          SOURCE_U_S_BC
    Use   [source_u_s.f, 801]          SOURCE_U_S_BC
    Use   [source_u_s.f, 803]          SOURCE_U_S_BC

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   [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, 660]   SOURCE_GRANULAR_ENERGY_GD
    Use Argument   [source_granular_energy.f, 752]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 769]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 770]   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   [conv_dif_v_g.f, 300]     GET_VCELL_GDIFF_TERMS
    Set   [conv_dif_v_g.f, 318]        GET_VCELL_GDIFF_TERMS
    Use   [conv_dif_v_g.f, 344]        GET_VCELL_GDIFF_TERMS
    Use Argument   [conv_dif_v_g.f, 374]   GET_VCELL_GDIFF_TERMS
    Use Argument   [conv_dif_v_g.f, 375]   GET_VCELL_GDIFF_TERMS

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_g.f, 51]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 222]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 231]   CG_SOURCE_W_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_s.f, 319]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 345]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 386]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 387]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 584]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 585]    CALC_CG_TAU_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_s.f, 170]          CALC_REG_TAU_U_S
    Set   [tau_u_s.f, 186]             CALC_REG_TAU_U_S
    Use Argument   [tau_u_s.f, 238]    CALC_REG_TAU_U_S
    Use Argument   [tau_u_s.f, 239]    CALC_REG_TAU_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [calc_trd_g.f, 342]       GET_FACE_VEL_GAS
    Set   [calc_trd_g.f, 353]          GET_FACE_VEL_GAS
    Use Argument   [calc_trd_g.f, 378]   GET_FACE_VEL_GAS
    Use Argument   [calc_trd_g.f, 389]   GET_FACE_VEL_GAS

KM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_v_s.f, 61]     CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 103]       CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 149]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 150]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 152]       CALC_IA_MOMSOURCE_V_S

km    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 322]     GET_VCELL_SDIFF_TERMS
    Set   [conv_dif_v_s.f, 338]        GET_VCELL_SDIFF_TERMS
    Use   [conv_dif_v_s.f, 364]        GET_VCELL_SDIFF_TERMS
    Use Argument   [conv_dif_v_s.f, 392]   GET_VCELL_SDIFF_TERMS
    Use Argument   [conv_dif_v_s.f, 393]   GET_VCELL_SDIFF_TERMS

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_s.f, 69]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 246]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 255]   CG_SOURCE_W_S

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   [calc_trd_s.f, 351]       GET_FACE_VEL_SOLIDS
    Set   [calc_trd_s.f, 364]          GET_FACE_VEL_SOLIDS
    Use Argument   [calc_trd_s.f, 388]   GET_FACE_VEL_SOLIDS
    Use Argument   [calc_trd_s.f, 413]   GET_FACE_VEL_SOLIDS

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1326]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1363]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1367]   SET_3D_CUT_CELL_TREATMENT_FLAGS

km    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 297]     GET_UCELL_GDIFF_TERMS
    Set   [conv_dif_u_g.f, 315]        GET_UCELL_GDIFF_TERMS
    Use   [conv_dif_u_g.f, 341]        GET_UCELL_GDIFF_TERMS
    Use Argument   [conv_dif_u_g.f, 372]   GET_UCELL_GDIFF_TERMS
    Use Argument   [conv_dif_u_g.f, 373]   GET_UCELL_GDIFF_TERMS

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 49]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 164]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 193]   CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 194]   CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 214]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 223]   CG_SOURCE_V_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 314]    CG_SOURCE_V_G_BC
    Set   [CG_source_v_g.f, 362]       CG_SOURCE_V_G_BC
    Set   [CG_source_v_g.f, 474]       CG_SOURCE_V_G_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_des.f, 44]       DIF_PHI_DES
    Set   [dif_phi_des.f, 133]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 135]   DIF_PHI_DES
    Use   [dif_phi_des.f, 135]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 138]   DIF_PHI_DES
    Use   [dif_phi_des.f, 138]         DIF_PHI_DES

KM1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25911]        DDECBT
    Set   [ODEPACK.F, 25933]           DDECBT
    Use   [ODEPACK.F, 25936]           DDECBT

KM1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 23690]        DHEFA
    Set   [ODEPACK.F, 23761]           DHEFA
    Use   [ODEPACK.F, 23762]           DHEFA
    Use   [ODEPACK.F, 23764]           DHEFA
    Use   [ODEPACK.F, 23765]           DHEFA
    Use   [ODEPACK.F, 23766]           DHEFA
    Use   [ODEPACK.F, 23768]           DHEFA

KM1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 23936]        DHEQR
    Set   [ODEPACK.F, 23947]           DHEQR
    Use   [ODEPACK.F, 23954]           DHEQR
    Use   [ODEPACK.F, 23955]           DHEQR
    Use   [ODEPACK.F, 23968]           DHEQR

KM1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25992]        DSOLBT
    Set   [ODEPACK.F, 25999]           DSOLBT
    Use   [ODEPACK.F, 26001]           DSOLBT

KM_COPY    (Local Variable)  Declared as: INTEGER (DIMENSION_3)
    Define   [set_increments.f, 441]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 906]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 922]      RE_INDEX_ARRAYS

KMAX    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18227]        CNTNZU
    Set   [ODEPACK.F, 18238]           CNTNZU
    Use   [ODEPACK.F, 18239]           CNTNZU
    Use   [ODEPACK.F, 18240]           CNTNZU

KMAX    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26475]        DAINVGS
    Set   [ODEPACK.F, 26525]           DAINVGS
    Use   [ODEPACK.F, 26526]           DAINVGS
    Use   [ODEPACK.F, 26530]           DAINVGS
    Use   [ODEPACK.F, 26533]           DAINVGS

KMAX    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 17897]        DPREP
    Set   [ODEPACK.F, 17964]           DPREP
    Use   [ODEPACK.F, 17965]           DPREP
    Use   [ODEPACK.F, 17966]           DPREP
    Use   [ODEPACK.F, 17978]           DPREP

KMAX    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26587]        DPRJIS
    Set   [ODEPACK.F, 26637]           DPRJIS
    Use   [ODEPACK.F, 26644]           DPRJIS
    Use   [ODEPACK.F, 26648]           DPRJIS
    Set   [ODEPACK.F, 26675]           DPRJIS
    Use   [ODEPACK.F, 26676]           DPRJIS
    Use   [ODEPACK.F, 26681]           DPRJIS

KMAX    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18279]        DPRJS
    Set   [ODEPACK.F, 18343]           DPRJS
    Use   [ODEPACK.F, 18347]           DPRJS
    Use   [ODEPACK.F, 18352]           DPRJS
    Set   [ODEPACK.F, 18376]           DPRJS
    Use   [ODEPACK.F, 18377]           DPRJS
    Set   [ODEPACK.F, 18395]           DPRJS
    Use   [ODEPACK.F, 18396]           DPRJS
    Use   [ODEPACK.F, 18408]           DPRJS

KMAX    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18151]        JGROUP
    Set   [ODEPACK.F, 18165]           JGROUP
    Use   [ODEPACK.F, 18166]           JGROUP
    Use   [ODEPACK.F, 18175]           JGROUP

kmax    (Local Variable)  Declared as: INTEGER (implicit)
    Set   [ODEPACK.F, 18925]           mdi
    Use   [ODEPACK.F, 18926]           mdi
    Use   [ODEPACK.F, 18927]           mdi

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

KMIN    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18227]        CNTNZU
    Set   [ODEPACK.F, 18237]           CNTNZU
    Use   [ODEPACK.F, 18239]           CNTNZU
    Use   [ODEPACK.F, 18240]           CNTNZU

KMIN    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26475]        DAINVGS
    Set   [ODEPACK.F, 26523]           DAINVGS
    Use   [ODEPACK.F, 26526]           DAINVGS
    Use   [ODEPACK.F, 26530]           DAINVGS
    Set   [ODEPACK.F, 26533]           DAINVGS

KMIN    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 17897]        DPREP
    Set   [ODEPACK.F, 17960]           DPREP
    Use   [ODEPACK.F, 17965]           DPREP
    Use   [ODEPACK.F, 17966]           DPREP
    Set   [ODEPACK.F, 17978]           DPREP

KMIN    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26587]        DPRJIS
    Set   [ODEPACK.F, 26635]           DPRJIS
    Use   [ODEPACK.F, 26644]           DPRJIS
    Set   [ODEPACK.F, 26648]           DPRJIS
    Set   [ODEPACK.F, 26674]           DPRJIS
    Use   [ODEPACK.F, 26676]           DPRJIS
    Use   [ODEPACK.F, 26681]           DPRJIS

KMIN    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18279]        DPRJS
    Set   [ODEPACK.F, 18341]           DPRJS
    Use   [ODEPACK.F, 18347]           DPRJS
    Set   [ODEPACK.F, 18352]           DPRJS
    Set   [ODEPACK.F, 18375]           DPRJS
    Use   [ODEPACK.F, 18377]           DPRJS
    Set   [ODEPACK.F, 18393]           DPRJS
    Use   [ODEPACK.F, 18396]           DPRJS
    Set   [ODEPACK.F, 18408]           DPRJS

KMIN    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 18151]        JGROUP
    Set   [ODEPACK.F, 18164]           JGROUP
    Use   [ODEPACK.F, 18166]           JGROUP
    Use   [ODEPACK.F, 18175]           JGROUP

KMINUS1    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 42]   MAKE_ARRAYS_DES

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 407]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 472]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 473]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 473]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 473]        CONV_DIF_PHI_DC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 597]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 676]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 677]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 677]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 677]        STORE_A_U_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 572]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 652]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 653]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 653]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 653]        STORE_A_W_GDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 581]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 660]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 661]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 661]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 661]        STORE_A_W_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 596]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 675]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 676]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 676]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 676]        STORE_A_V_GDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 599]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 678]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 679]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 679]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 679]        STORE_A_V_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 594]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 674]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 675]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 675]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 675]        STORE_A_U_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 407]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 473]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 564]        CONV_DIF_PHI_DC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 597]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 677]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 757]        STORE_A_U_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 572]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 653]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 735]        STORE_A_W_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 581]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 661]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 740]        STORE_A_W_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 596]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 676]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 763]        STORE_A_V_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 599]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 679]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 760]        STORE_A_V_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 594]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 675]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 755]        STORE_A_U_GDC

KMP    (Dummy Argument)  Declared as: INTEGER
    Define   [ODEPACK.F, 22818]        DORTHOG
    Declare   [ODEPACK.F, 22819]       DORTHOG
    Use   [ODEPACK.F, 22872]           DORTHOG

KMP    (Dummy Argument)  Declared as: INTEGER
    Define   [ODEPACK.F, 22904]        DSPIGMR
    Declare   [ODEPACK.F, 22907]       DSPIGMR
    Use Argument   [ODEPACK.F, 23054]   DSPIGMR
    Use   [ODEPACK.F, 23066]           DSPIGMR
    Use   [ODEPACK.F, 23066]           DSPIGMR
    Use   [ODEPACK.F, 23067]           DSPIGMR
    Use   [ODEPACK.F, 23069]           DSPIGMR

KMP    (Dummy Argument)  Declared as: INTEGER
    Define   [ODEPACK.F, 22478]        DSPIOM
    Declare   [ODEPACK.F, 22482]       DSPIOM
    Use Argument   [ODEPACK.F, 22621]   DSPIOM

KN_DES    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_force_dem.f, 67]    CALC_FORCE_DEM
    Set   [calc_force_dem.f, 264]      CALC_FORCE_DEM
    Set   [calc_force_dem.f, 272]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 279]      CALC_FORCE_DEM

KNEW    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 17897]        DPREP
    Set   [ODEPACK.F, 17959]           DPREP
    Use   [ODEPACK.F, 17969]           DPREP
    Use   [ODEPACK.F, 17970]           DPREP
    Set   [ODEPACK.F, 17971]           DPREP
    Use   [ODEPACK.F, 17971]           DPREP
    Use   [ODEPACK.F, 17974]           DPREP
    Use   [ODEPACK.F, 17975]           DPREP
    Set   [ODEPACK.F, 17976]           DPREP
    Use   [ODEPACK.F, 17976]           DPREP
    Use   [ODEPACK.F, 17977]           DPREP

KNEW    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26129]        DPREPI
    Set   [ODEPACK.F, 26204]           DPREPI
    Use   [ODEPACK.F, 26216]           DPREPI
    Use   [ODEPACK.F, 26217]           DPREPI
    Set   [ODEPACK.F, 26218]           DPREPI
    Use   [ODEPACK.F, 26218]           DPREPI
    Use   [ODEPACK.F, 26226]           DPREPI
    Use   [ODEPACK.F, 26227]           DPREPI
    Set   [ODEPACK.F, 26228]           DPREPI
    Use   [ODEPACK.F, 26228]           DPREPI
    Use   [ODEPACK.F, 26230]           DPREPI
    Set   [ODEPACK.F, 26304]           DPREPI
    Use   [ODEPACK.F, 26314]           DPREPI
    Use   [ODEPACK.F, 26315]           DPREPI
    Set   [ODEPACK.F, 26316]           DPREPI
    Use   [ODEPACK.F, 26316]           DPREPI
    Use   [ODEPACK.F, 26322]           DPREPI
    Use   [ODEPACK.F, 26323]           DPREPI
    Set   [ODEPACK.F, 26324]           DPREPI
    Use   [ODEPACK.F, 26324]           DPREPI
    Use   [ODEPACK.F, 26326]           DPREPI
    Set   [ODEPACK.F, 26331]           DPREPI
    Use   [ODEPACK.F, 26350]           DPREPI
    Use   [ODEPACK.F, 26351]           DPREPI
    Set   [ODEPACK.F, 26352]           DPREPI
    Use   [ODEPACK.F, 26352]           DPREPI
    Use   [ODEPACK.F, 26357]           DPREPI
    Use   [ODEPACK.F, 26358]           DPREPI
    Set   [ODEPACK.F, 26359]           DPREPI
    Use   [ODEPACK.F, 26359]           DPREPI
    Use   [ODEPACK.F, 26361]           DPREPI

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, 950]            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, 752]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 769]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 770]   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, 747]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 754]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 755]   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, 749]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 760]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 761]   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, 750]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 763]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 764]   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, 751]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 766]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 767]   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, 748]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 757]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 758]   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

koch_hill    (Unknown Variable)
    Use   [drag_gs.f, 235]             DRAG_GS
    Use   [check_solids_common_all.f, 231]   CHECK_SOLIDS_DRAG
    Use   [drag_gp_des.f, 117]         DES_DRAG_GP

koch_hill_pcf    (Unknown Variable)
    Use   [drag_gs.f, 238]             DRAG_GS
    Use   [drag_gs.f, 309]             DRAG_GS
    Use   [check_solids_common_all.f, 232]   CHECK_SOLIDS_DRAG
    Use   [drag_gp_des.f, 162]         DES_DRAG_GP

korder    (Local Variable)  Declared as: INTEGER
    Define   [interpolate_pic.f, 142]   INTERPOLATE_PIC0
    Set   [interpolate_pic.f, 152]     INTERPOLATE_PIC0

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   [tau_w_g.f, 291]          CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 344]             CALC_CG_TAU_w_G

KP    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_g.f, 92]           CALC_TAU_W_G
    Set   [tau_w_g.f, 129]             CALC_TAU_W_G
    Use   [tau_w_g.f, 168]             CALC_TAU_W_G
    Use   [tau_w_g.f, 184]             CALC_TAU_W_G

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   [get_connectivity.f, 336]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 345]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 427]    GET_CELL_NODE_COORDINATES

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 516]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 525]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 604]    GET_GLOBAL_CELL_NODE_COORDINATES

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_s.f, 67]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 242]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 247]   CG_SOURCE_V_S

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 49]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 219]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 224]   CG_SOURCE_U_G

KP    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_s.f, 298]          CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 322]             CALC_CG_TAU_W_S

KP    (Local Variable)  Declared as: INTEGER
    Define   [tau_w_s.f, 148]          CALC_REG_TAU_W_S
    Set   [tau_w_s.f, 162]             CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 200]             CALC_REG_TAU_W_S
    Use   [tau_w_s.f, 217]             CALC_REG_TAU_W_S

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

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_s.f, 68]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 254]       CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 259]   CG_SOURCE_U_S

kp    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 288]     GET_WCELL_GDIFF_TERMS
    Set   [conv_dif_w_g.f, 304]        GET_WCELL_GDIFF_TERMS
    Use   [conv_dif_w_g.f, 335]        GET_WCELL_GDIFF_TERMS

Kp    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 50]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 82]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 87]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 97]   CALC_INTERP_WEIGHTS1

Kp    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 182]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 225]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 237]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 247]   CALC_INTERP_WEIGHTS2

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

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 433]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 486]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 493]   GET_3D_ALPHA_V_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 839]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 890]           GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 897]   GET_3D_ALPHA_W_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_w_s.f, 63]     CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 103]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 153]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 166]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 216]       CALC_IA_MOMSOURCE_W_S

kp    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 310]     GET_WCELL_SDIFF_TERMS
    Set   [conv_dif_w_s.f, 325]        GET_WCELL_SDIFF_TERMS
    Use   [conv_dif_w_s.f, 356]        GET_WCELL_SDIFF_TERMS

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_g.f, 51]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 173]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 225]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 230]   CG_SOURCE_W_G

kp    (Local Variable)  Declared as: INTEGER
    Define   [cfassign.f, 208]         compute_volume_of_nodes
    Set   [cfassign.f, 300]            compute_volume_of_nodes
    Use Argument   [cfassign.f, 301]   compute_volume_of_nodes
    Use Argument   [cfassign.f, 302]   compute_volume_of_nodes
    Use Argument   [cfassign.f, 303]   compute_volume_of_nodes
    Use Argument   [cfassign.f, 304]   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, 309]            compute_volume_of_nodes

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_s.f, 69]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 202]       CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 249]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 254]   CG_SOURCE_W_S

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1326]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1359]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1371]   SET_3D_CUT_CELL_TREATMENT_FLAGS

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_g.f, 49]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 217]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 222]   CG_SOURCE_V_G

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 Argument   [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 Argument   [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 Argument   [set_Odxyz.f, 371]   SET_ODXYZ_W_CUT_CELL

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

KP1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 27058]        DGBFA
    Set   [ODEPACK.F, 27084]           DGBFA
    Use   [ODEPACK.F, 27123]           DGBFA
    Use   [ODEPACK.F, 27124]           DGBFA

KP1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 26776]        DGEFA
    Set   [ODEPACK.F, 26785]           DGEFA
    Use   [ODEPACK.F, 26811]           DGEFA

KP1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 23690]        DHEFA
    Set   [ODEPACK.F, 23705]           DHEFA
    Use   [ODEPACK.F, 23731]           DHEFA

KP1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 24083]        DHELS
    Set   [ODEPACK.F, 24090]           DHELS
    Use   [ODEPACK.F, 24095]           DHELS
    Use   [ODEPACK.F, 24097]           DHELS

KP1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 23936]        DHEQR
    Set   [ODEPACK.F, 23948]           DHEQR
    Use   [ODEPACK.F, 23970]           DHEQR

KP1    (Local Variable)  Declared as: INTEGER
    Define   [ODEPACK.F, 25992]        DSOLBT
    Set   [ODEPACK.F, 26015]           DSOLBT
    Use   [ODEPACK.F, 26017]           DSOLBT

KP_COPY    (Local Variable)  Declared as: INTEGER (DIMENSION_3)
    Define   [set_increments.f, 441]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 907]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 923]      RE_INDEX_ARRAYS

Kphidphi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1187]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1289]          gt_pde_gtsh
    Set   [calc_mu_s.f, 1291]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1296]          gt_pde_gtsh

KPLUS1    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 42]   MAKE_ARRAYS_DES

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 406]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 470]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 471]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 471]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 471]        CONV_DIF_PHI_DC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 596]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 674]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 675]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 675]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 675]        STORE_A_U_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 571]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 650]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 651]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 651]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 651]        STORE_A_W_GDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 580]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 658]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 659]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 659]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 659]        STORE_A_W_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 595]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 673]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 674]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 674]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 674]        STORE_A_V_GDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 598]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 676]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 677]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 677]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 677]        STORE_A_V_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 593]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 672]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 673]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 673]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 673]        STORE_A_U_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 406]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 471]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 516]        CONV_DIF_PHI_DC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 596]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 675]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 747]        STORE_A_U_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 571]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 651]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 694]        STORE_A_W_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 580]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 659]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 730]        STORE_A_W_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 595]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 674]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 718]        STORE_A_V_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 598]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 677]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 750]        STORE_A_V_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 593]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 673]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 745]        STORE_A_U_GDC

kraw    (Local Variable)  Declared as: INTEGER
    Define   [cfassign.f, 205]         compute_volume_of_nodes
    Set   [cfassign.f, 230]            compute_volume_of_nodes
    Use   [cfassign.f, 244]            compute_volume_of_nodes
    Use   [cfassign.f, 244]            compute_volume_of_nodes
    Use   [cfassign.f, 252]            compute_volume_of_nodes
    Use   [cfassign.f, 300]            compute_volume_of_nodes

kronecker    (Local Variable)  Declared as: DOUBLE PRECISION (s,s)
    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 (s,s)
    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 (s,s)
    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 (s,s)
    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 (s,s)
    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, 81]          CALC_DEFAULT_Ks
    Declare   [calc_k_s.f, 82]         CALC_DEFAULT_Ks
    Set   [calc_k_s.f, 82]             CALC_DEFAULT_Ks
    Use   [calc_k_s.f, 114]            CALC_DEFAULT_Ks

KSIZE    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1021]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1091]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1095]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1117]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1121]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1134]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1135]   LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1136]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1138]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1140]         LEQ_MSOLVEt

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

kstartl    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 674]        leq_check
    Set   [leq_gmres.f, 681]           leq_check
    Set   [leq_gmres.f, 689]           leq_check
    Use   [leq_gmres.f, 695]           leq_check

KT_DES    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_force_dem.f, 67]    CALC_FORCE_DEM
    Set   [calc_force_dem.f, 265]      CALC_FORCE_DEM
    Set   [calc_force_dem.f, 273]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 289]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 297]      CALC_FORCE_DEM

KT_TYPE    (Unknown Variable)
    Use   [calc_grbdry.f, 1148]        CALC_GR_BOUNDARY.F_HW
    Use   [calc_grbdry.f, 1202]        CALC_GR_BOUNDARY.F_HW
    Use   [calc_grbdry.f, 1646]        CALC_GR_BOUNDARY.GET_CG_F2
    Use   [calc_grbdry.f, 1700]        CALC_GR_BOUNDARY.GET_CG_F2
    Use   [solve_granular_energy.f, 450]   SOLVE_GRANULAR_ENERGY
    Use   [drag_ss.f, 59]              DRAG_SS
    Use   [bc_theta.f, 1200]           THETA_HW_CW
    Use   [bc_theta.f, 1286]           THETA_HW_CW
    Use Argument   [check_solids_model_prereqs.f, 76]   CHECK_SOLIDS_MODEL_PREREQS
    Use Argument   [check_solids_model_prereqs.f, 114]   CHECK_SOLIDS_MODEL_PREREQS
    Use   [write_out0.f, 135]          WRITE_OUT0
    Use   [write_out0.f, 135]          WRITE_OUT0
    Use   [calc_mu_s.f, 225]           CALC_DEFAULT_MUS
    Use   [check_solids_continuum.f, 385]   CHECK_KT_TYPE
    Use   [check_solids_continuum.f, 386]   CHECK_KT_TYPE
    Pointer   [check_solids_continuum.f, 387]   CHECK_KT_TYPE
    Set   [check_solids_continuum.f, 390]   CHECK_KT_TYPE
    Use   [check_solids_continuum.f, 393]   CHECK_KT_TYPE
    Use   [check_solids_continuum.f, 394]   CHECK_KT_TYPE
    Use Argument   [check_solids_continuum.f, 395]   CHECK_KT_TYPE
    Set   [check_solids_continuum.f, 398]   CHECK_KT_TYPE
    Use Argument   [check_solids_continuum.f, 411]   CHECK_KT_TYPE
    Use Argument   [check_solids_continuum.f, 429]   CHECK_KT_TYPE
    Use Argument   [check_solids_continuum.f, 441]   CHECK_KT_TYPE
    Use Argument   [check_solids_continuum.f, 548]   CHECK_KT_TYPE
    Set   [init_namelist.f, 1373]      INIT_NAMELIST
    Use   [adjust_theta.f, 102]        ADJUST_THETA

KT_TYPE    (Local Variable)  Declared as: CHARACTER (64)
    Define   [derived_types_mod.f, 79]   (Unnamed_Main)

KT_TYPE_ENUM    (Unknown Variable)
    Use   [calc_grbdry.f, 137]         CALC_GR_BOUNDARY.CALC_GRBDRY
    Use   [calc_grbdry.f, 138]         CALC_GR_BOUNDARY.CALC_GRBDRY
    Use   [calc_grbdry.f, 331]         CALC_GR_BOUNDARY.CALC_GRBDRY
    Use   [calc_grbdry.f, 332]         CALC_GR_BOUNDARY.CALC_GRBDRY
    Use   [calc_grbdry.f, 535]         CALC_GR_BOUNDARY.CALC_GRBDRY
    Use   [calc_grbdry.f, 536]         CALC_GR_BOUNDARY.CALC_GRBDRY
    Use   [calc_grbdry.f, 1316]        CALC_GR_BOUNDARY.CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1317]        CALC_GR_BOUNDARY.CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1383]        CALC_GR_BOUNDARY.CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1384]        CALC_GR_BOUNDARY.CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1451]        CALC_GR_BOUNDARY.CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 1452]        CALC_GR_BOUNDARY.CG_CALC_GRBDRY
    Use   [calc_grbdry.f, 915]         CALC_GR_BOUNDARY.F_HW
    Use   [calc_grbdry.f, 1154]        CALC_GR_BOUNDARY.F_HW
    Use   [calc_grbdry.f, 1610]        CALC_GR_BOUNDARY.GET_CG_F2
    Use   [calc_grbdry.f, 1653]        CALC_GR_BOUNDARY.GET_CG_F2
    Use   [solve_granular_energy.f, 120]   SOLVE_GRANULAR_ENERGY
    Use   [solve_granular_energy.f, 139]   SOLVE_GRANULAR_ENERGY
    Use   [solve_granular_energy.f, 140]   SOLVE_GRANULAR_ENERGY
    Use   [source_w_s.f, 109]          SOURCE_W_S
    Use   [source_w_s.f, 110]          SOURCE_W_S
    Use   [source_w_s.f, 143]          SOURCE_W_S
    Use   [source_w_s.f, 197]          SOURCE_W_S
    Use   [source_w_s.f, 269]          SOURCE_W_S
    Use   [source_w_s.f, 355]          SOURCE_W_S
    Use   [source_w_s.f, 372]          SOURCE_W_S
    Use   [source_w_s.f, 389]          SOURCE_W_S
    Use   [source_w_s.f, 400]          SOURCE_W_S
    Use   [source_w_s.f, 481]          SOURCE_W_S
    Use   [source_w_s.f, 483]          SOURCE_W_S
    Use   [drag_ss.f, 43]              DRAG_SS
    Use   [kintheory_u_s.f, 41]        CALC_EXPLICIT_MOM_SOURCE_S
    Use   [source_v_g.f, 299]          SOURCE_V_G
    Use   [source_v_g.f, 310]          SOURCE_V_G
    Use   [conv_dif_u_s.f, 42]         CONV_DIF_U_S
    Use   [conv_dif_u_s.f, 43]         CONV_DIF_U_S
    Use   [CG_source_v_s.f, 80]        CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 81]        CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 101]       CG_SOURCE_V_S
    Use   [bc_theta.f, 388]            CALC_THETA_BC
    Use   [bc_theta.f, 880]            THETA_HW_CW
    Use   [bc_theta.f, 1210]           THETA_HW_CW
    Use   [iterate.f, 247]             ITERATE.DO_ITERATION
    Use   [allocate_arrays.f, 221]     ALLOCATE_ARRAYS
    Use   [allocate_arrays.f, 222]     ALLOCATE_ARRAYS
    Use   [allocate_arrays.f, 310]     ALLOCATE_ARRAYS
    Use   [allocate_arrays.f, 372]     ALLOCATE_ARRAYS
    Use   [allocate_arrays.f, 388]     ALLOCATE_ARRAYS
    Use   [allocate_arrays.f, 392]     ALLOCATE_ARRAYS
    Use   [allocate_arrays.f, 393]     ALLOCATE_ARRAYS
    Use   [allocate_arrays.f, 394]     ALLOCATE_ARRAYS
    Use   [tau_w_s.f, 58]              CALC_TAU_W_S
    Use   [tau_w_s.f, 73]              CALC_TAU_W_S
    Use   [set_outflow.f, 487]         SET_OUTFLOW_EP
    Use   [set_outflow.f, 574]         SET_OUTFLOW_FLUXES
    Use   [set_outflow.f, 397]         SET_OUTFLOW_MISC
    Use   [set_outflow.f, 706]         SET_PINOUTFLOW
    Use   [adjust_eps.f, 75]           ADJUST_EPS
    Use   [adjust_eps.f, 89]           ADJUST_EPS
    Use   [source_v_s.f, 114]          SOURCE_V_S
    Use   [source_v_s.f, 115]          SOURCE_V_S
    Use   [source_v_s.f, 147]          SOURCE_V_S
    Use   [source_v_s.f, 200]          SOURCE_V_S
    Use   [source_v_s.f, 278]          SOURCE_V_S
    Use   [source_v_s.f, 360]          SOURCE_V_S
    Use   [source_v_s.f, 377]          SOURCE_V_S
    Use   [source_v_s.f, 394]          SOURCE_V_S
    Use   [source_v_s.f, 406]          SOURCE_V_S
    Use   [source_v_s.f, 445]          SOURCE_V_S
    Use   [source_v_s.f, 447]          SOURCE_V_S
    Use   [coeff_mod.f, 179]           coeff.INIT_COEFF
    Use   [coeff_mod.f, 199]           coeff.INIT_COEFF
    Use   [coeff_mod.f, 200]           coeff.INIT_COEFF
    Use   [coeff_mod.f, 201]           coeff.INIT_COEFF
    Use   [drag_gs.f, 124]             DRAG_GS
    Use   [drag_gs.f, 340]             DRAG_GS
    Use   [drag_gs.f, 351]             DRAG_GS
    Use   [calc_mu_g.f, 219]           CALC_K_EPSILON_MU
    Use   [source_u_g.f, 303]          SOURCE_U_G
    Use   [source_u_g.f, 314]          SOURCE_U_G
    Use   [CG_source_u_s.f, 82]        CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 83]        CG_SOURCE_U_S
    Use   [CG_source_u_s.f, 105]       CG_SOURCE_U_S
    Use   [set_bc1.f, 414]             SET_BC1_ADJUST_OUTFLOW
    Use   [solve_vel_star.f, 102]      SOLVE_VEL_STAR
    Use   [solve_vel_star.f, 144]      init
    Use   [solve_vel_star.f, 145]      init
    Use   [solve_vel_star.f, 176]      save
    Use   [solve_vel_star.f, 177]      save
    Use   [solve_vel_star.f, 236]      U_m_star
    Use   [solve_vel_star.f, 241]      U_m_star
    Use   [solve_vel_star.f, 253]      U_m_star
    Use   [solve_vel_star.f, 291]      U_m_star
    Use   [solve_vel_star.f, 292]      U_m_star
    Use   [solve_vel_star.f, 322]      U_m_star
    Use   [solve_vel_star.f, 323]      U_m_star
    Use   [solve_vel_star.f, 392]      V_m_star
    Use   [solve_vel_star.f, 397]      V_m_star
    Use   [solve_vel_star.f, 409]      V_m_star
    Use   [solve_vel_star.f, 449]      V_m_star
    Use   [solve_vel_star.f, 450]      V_m_star
    Use   [solve_vel_star.f, 479]      V_m_star
    Use   [solve_vel_star.f, 480]      V_m_star
    Use   [solve_vel_star.f, 550]      W_m_star
    Use   [solve_vel_star.f, 555]      W_m_star
    Use   [solve_vel_star.f, 567]      W_m_star
    Use   [solve_vel_star.f, 605]      W_m_star
    Use   [solve_vel_star.f, 606]      W_m_star
    Use   [solve_vel_star.f, 636]      W_m_star
    Use   [solve_vel_star.f, 637]      W_m_star
    Use   [time_step.f, 48]            STEP.TIME_STEP_INIT
    Use   [set_bc0.f, 460]             SET_BC0_INFLOW
    Use   [set_bc0.f, 750]             set_bc0_init_bcscalars
    Use   [set_bc0.f, 285]             SET_BC0_OUTFLOW
    Use   [tau_v_s.f, 63]              CALC_TAU_V_S
    Use   [tau_v_s.f, 77]              CALC_TAU_V_S
    Use   [set_constprop.f, 111]       SET_CONSTPROP
    Use   [set_constprop.f, 127]       SET_CONSTPROP
    Use   [set_constprop.f, 128]       SET_CONSTPROP
    Use   [set_constprop.f, 129]       SET_CONSTPROP
    Use   [set_constprop.f, 134]       SET_CONSTPROP
    Use   [calc_vol_fr.f, 165]         CALC_VOL_FR
    Use   [calc_vol_fr.f, 178]         CALC_VOL_FR
    Use   [calc_mu_s.f, 207]           CALC_DEFAULT_MUS
    Use   [calc_mu_s.f, 1967]          Friction_princeton
    Use   [calc_mu_s.f, 2031]          Friction_princeton
    Use   [calc_mu_s.f, 2628]          init1_mu_s
    Use   [calc_mu_s.f, 2675]          init1_mu_s
    Use   [calc_mu_s.f, 2710]          init1_mu_s
    Use   [check_bc_walls.f, 54]       CHECK_BC_WALLS
    Use   [check_bc_walls.f, 290]      CHECK_BC_WALLS_TFM
    Use   [check_bc_walls.f, 399]      CHECK_BC_WALLS_TFM
    Use   [source_u_s.f, 108]          SOURCE_U_S
    Use   [source_u_s.f, 109]          SOURCE_U_S
    Use   [source_u_s.f, 141]          SOURCE_U_S
    Use   [source_u_s.f, 195]          SOURCE_U_S
    Use   [source_u_s.f, 273]          SOURCE_U_S
    Use   [source_u_s.f, 362]          SOURCE_U_S
    Use   [source_u_s.f, 381]          SOURCE_U_S
    Use   [source_u_s.f, 398]          SOURCE_U_S
    Use   [source_u_s.f, 410]          SOURCE_U_S
    Use   [source_u_s.f, 450]          SOURCE_U_S
    Use   [source_u_s.f, 452]          SOURCE_U_S
    Set   [check_solids_continuum.f, 415]   CHECK_KT_TYPE
    Set   [check_solids_continuum.f, 424]   CHECK_KT_TYPE
    Set   [check_solids_continuum.f, 436]   CHECK_KT_TYPE
    Set   [check_solids_continuum.f, 448]   CHECK_KT_TYPE
    Set   [check_solids_continuum.f, 498]   CHECK_KT_TYPE
    Set   [check_solids_continuum.f, 516]   CHECK_KT_TYPE
    Set   [check_solids_continuum.f, 535]   CHECK_KT_TYPE
    Use   [set_ic.f, 158]              SET_IC
    Use   [conv_dif_w_s.f, 43]         CONV_DIF_W_S
    Use   [conv_dif_w_s.f, 44]         CONV_DIF_W_S
    Use   [source_granular_energy.f, 164]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 165]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 173]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 175]   SOURCE_GRANULAR_ENERGY
    Use   [source_granular_energy.f, 736]   SOURCE_GRANULAR_ENERGY_GD
    Use   [source_granular_energy.f, 783]   SOURCE_GRANULAR_ENERGY_GD
    Use   [usr_src_mod.f, 184]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 185]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 192]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 227]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 228]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 235]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 270]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 271]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 278]         CALC_USR_SOURCE
    Use   [usr_src_mod.f, 320]         CALC_USR_SOURCE
    Use   [tau_u_s.f, 64]              CALC_TAU_U_S
    Use   [tau_u_s.f, 86]              CALC_TAU_U_S
    Use   [exchange.f, 60]             EXCHANGE
    Use   [source_w_g.f, 306]          SOURCE_W_G
    Use   [source_w_g.f, 317]          SOURCE_W_G
    Use   [conv_dif_v_s.f, 45]         CONV_DIF_V_S
    Use   [conv_dif_v_s.f, 46]         CONV_DIF_V_S
    Use   [CG_source_w_s.f, 82]        CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 83]        CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 105]       CG_SOURCE_W_S
    Use   [adjust_theta.f, 77]         ADJUST_THETA
    Use   [transport_prop.f, 60]       TRANSPORT_PROP

KT_TYPE_ENUM    (Local Variable)  Declared as: INTEGER
    Define   [derived_types_mod.f, 80]   (Unnamed_Main)

Kth    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 476]        gt_pde_lun
    Set   [calc_mu_s.f, 538]           gt_pde_lun
    Use   [calc_mu_s.f, 542]           gt_pde_lun
    Use   [calc_mu_s.f, 547]           gt_pde_lun
    Use   [calc_mu_s.f, 549]           gt_pde_lun
    Use   [calc_mu_s.f, 552]           gt_pde_lun
    Use   [calc_mu_s.f, 554]           gt_pde_lun

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

Kth0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1186]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1258]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1263]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1271]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1335]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1337]          gt_pde_gtsh

Kth_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 830]         THETA_HW_CW
    Set   [bc_theta.f, 951]            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, 1431]       gt_pde_ia
    Set   [calc_mu_s.f, 1700]          gt_pde_ia
    Use   [calc_mu_s.f, 1718]          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, 981]        gt_pde_gd
    Set   [calc_mu_s.f, 1084]          gt_pde_gd
    Set   [calc_mu_s.f, 1086]          gt_pde_gd
    Set   [calc_mu_s.f, 1088]          gt_pde_gd
    Set   [calc_mu_s.f, 1092]          gt_pde_gd
    Use   [calc_mu_s.f, 1098]          gt_pde_gd
    Use   [calc_mu_s.f, 1116]          gt_pde_gd

Kth_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1418]       gt_pde_ia
    Set   [calc_mu_s.f, 1592]          gt_pde_ia
    Set   [calc_mu_s.f, 1594]          gt_pde_ia
    Set   [calc_mu_s.f, 1597]          gt_pde_ia
    Set   [calc_mu_s.f, 1601]          gt_pde_ia
    Use   [calc_mu_s.f, 1607]          gt_pde_ia

Kth_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 476]        gt_pde_lun
    Set   [calc_mu_s.f, 542]           gt_pde_lun
    Set   [calc_mu_s.f, 544]           gt_pde_lun
    Set   [calc_mu_s.f, 546]           gt_pde_lun
    Set   [calc_mu_s.f, 551]           gt_pde_lun
    Use   [calc_mu_s.f, 558]           gt_pde_lun

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

KthK    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1186]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1262]          gt_pde_gtsh
    Set   [calc_mu_s.f, 1263]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1269]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1337]          gt_pde_gtsh

ktp    (Local Variable)  Declared as: INTEGER
    Define   [interpolate_pic.f, 142]   INTERPOLATE_PIC0
    Set   [interpolate_pic.f, 170]     INTERPOLATE_PIC0

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

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

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

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, 949]            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