Object Cross Reference


Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ

K    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 440]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 538]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 558]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 558]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 565]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 567]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 568]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 570]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 571]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 573]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 574]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 599]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 600]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 600]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 601]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 601]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 602]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 602]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 603]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 603]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 624]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 625]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 626]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 627]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 638]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 640]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 642]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 643]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 645]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 656]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 658]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 660]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 661]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 663]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 674]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 675]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 676]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 677]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 702]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 703]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 704]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 705]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 716]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 718]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 720]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 721]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 723]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 734]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 736]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 738]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 739]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 741]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 752]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 753]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 754]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 755]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 777]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 780]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 781]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 782]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 791]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 795]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 797]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 798]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 800]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 809]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 813]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 815]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 816]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 818]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 827]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 830]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 831]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 832]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 877]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 883]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 883]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 888]      RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 889]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 1858]     RE_INDEX_ARRAYS
    Use Argument   [set_increments.f, 1861]   RE_INDEX_ARRAYS
    Use   [set_increments.f, 1863]     RE_INDEX_ARRAYS

K    (Dummy Argument)  Declared as: INTEGER
    Define   [set_increments.f, 2052]   RECORD_NEW_IJK_CELL
    Declare   [set_increments.f, 2084]   RECORD_NEW_IJK_CELL
    Use   [set_increments.f, 2094]     RECORD_NEW_IJK_CELL
    Use   [set_increments.f, 2098]     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, 2675]   WRITE_IJK_VALUES
    Set   [set_increments.f, 2724]     WRITE_IJK_VALUES
    Use Argument   [set_increments.f, 2727]   WRITE_IJK_VALUES
    Use   [set_increments.f, 2729]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2729]     WRITE_IJK_VALUES
    Use   [set_increments.f, 2732]     WRITE_IJK_VALUES
    Use Argument   [set_increments.f, 2734]   WRITE_IJK_VALUES

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   [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    (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   [cut_cell_preprocessing.f, 1478]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1608]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1609]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1611]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1612]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1617]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1618]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1619]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1619]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1620]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1629]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1633]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1638]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1642]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1645]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1646]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1647]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1648]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1654]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1904]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1988]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1989]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2049]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2052]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2061]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2077]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2078]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2086]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2087]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2100]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2104]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2113]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2131]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2132]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2140]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2141]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2154]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2158]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2167]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2181]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2184]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2193]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2211]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2215]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2224]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2238]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2241]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2250]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2267]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2268]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 2276]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 2277]   CAD_INTERSECT

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

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

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

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

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 799]   CHECK_IF_PARCEL_OVERLAPS_STL
    Set   [pic_bc_routines.f, 850]     CHECK_IF_PARCEL_OVERLAPS_STL
    Use Argument   [pic_bc_routines.f, 853]   CHECK_IF_PARCEL_OVERLAPS_STL

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 713]   PIC_FIND_NEW_CELL
    Set   [pic_bc_routines.f, 718]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 744]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 744]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 745]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 746]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 747]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 749]     PIC_FIND_NEW_CELL
    Set   [pic_bc_routines.f, 755]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 765]     PIC_FIND_NEW_CELL

k    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 939]   write_this_facet_and_parcel
    Use   [pic_bc_routines.f, 972]     write_this_facet_and_parcel
    Set   [pic_bc_routines.f, 972]     write_this_facet_and_parcel
    Use   [pic_bc_routines.f, 983]     write_this_facet_and_parcel
    Set   [pic_bc_routines.f, 983]     write_this_facet_and_parcel

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

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 333]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 338]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 342]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 346]    GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 348]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 349]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 352]   GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 382]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 382]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 383]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 397]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 397]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 398]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 412]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 412]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 413]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 423]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 423]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 424]    GET_CELL_NODE_COORDINATES

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 27]   GET_CONNECTIVITY
    Set   [get_connectivity.f, 48]     GET_CONNECTIVITY
    Use   [get_connectivity.f, 52]     GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 54]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 55]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 58]   GET_CONNECTIVITY

K    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 511]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 516]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 520]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 524]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 526]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 527]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 530]   GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 557]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 557]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 558]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 572]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 572]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 573]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 587]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 587]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 588]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 598]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 598]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 599]    GET_GLOBAL_CELL_NODE_COORDINATES

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   [particles_in_cell.f, 236]   INIT_PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 270]   INIT_PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 273]   INIT_PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 275]   INIT_PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 279]   INIT_PARTICLES_IN_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [particles_in_cell.f, 55]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 114]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 116]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 117]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 117]   PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 118]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 121]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 122]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 123]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 123]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 124]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 125]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 126]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 126]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 127]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 128]   PARTICLES_IN_CELL
    Set   [particles_in_cell.f, 129]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 129]   PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 131]   PARTICLES_IN_CELL
    Use Argument   [particles_in_cell.f, 138]   PARTICLES_IN_CELL
    Use   [particles_in_cell.f, 143]   PARTICLES_IN_CELL

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

K    (Local Variable)  Declared as: INTEGER
    Define   [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   [calc_trd_g.f, 58]        CALC_TRD_G
    Set   [calc_trd_g.f, 87]           CALC_TRD_G
    Use   [calc_trd_g.f, 98]           CALC_TRD_G

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

k    (Local Variable)  Declared as: INTEGER
    Define   [mfix.f, 568]             debug_write_layout
    Set   [mfix.f, 600]                debug_write_layout
    Use Argument   [mfix.f, 603]       debug_write_layout
    Use Argument   [mfix.f, 604]       debug_write_layout
    Use Argument   [mfix.f, 605]       debug_write_layout
    Use Argument   [mfix.f, 606]       debug_write_layout
    Use   [mfix.f, 608]                debug_write_layout
    Set   [mfix.f, 616]                debug_write_layout
    Use Argument   [mfix.f, 619]       debug_write_layout
    Use Argument   [mfix.f, 620]       debug_write_layout
    Use   [mfix.f, 622]                debug_write_layout
    Set   [mfix.f, 631]                debug_write_layout
    Use Argument   [mfix.f, 634]       debug_write_layout
    Use Argument   [mfix.f, 635]       debug_write_layout
    Use   [mfix.f, 637]                debug_write_layout
    Set   [mfix.f, 649]                debug_write_layout
    Use   [mfix.f, 654]                debug_write_layout
    Use   [mfix.f, 654]                debug_write_layout
    Set   [mfix.f, 664]                debug_write_layout
    Use   [mfix.f, 668]                debug_write_layout
    Use   [mfix.f, 668]                debug_write_layout
    Set   [mfix.f, 672]                debug_write_layout
    Use Argument   [mfix.f, 675]       debug_write_layout
    Use Argument   [mfix.f, 676]       debug_write_layout
    Use   [mfix.f, 714]                debug_write_layout

k    (Local Variable)  Declared as: INTEGER
    Define   [mfix.f, 858]             write_parallel_info
    Set   [mfix.f, 879]                write_parallel_info
    Use Argument   [mfix.f, 882]       write_parallel_info
    Use Argument   [mfix.f, 883]       write_parallel_info
    Use Argument   [mfix.f, 884]       write_parallel_info
    Use Argument   [mfix.f, 885]       write_parallel_info
    Use   [mfix.f, 887]                write_parallel_info

K    (Local Variable)  Declared as: INTEGER
    Define   [write_des_data.f, 251]   WRITE_DES_TECPLOT
    Use   [write_des_data.f, 312]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 312]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 312]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 312]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 316]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 316]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 316]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 316]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 339]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 340]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 343]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 344]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 360]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 360]      WRITE_DES_TECPLOT
    Use   [write_des_data.f, 364]      WRITE_DES_TECPLOT
    Set   [write_des_data.f, 364]      WRITE_DES_TECPLOT

K    (Local Variable)  Declared as: INTEGER
    Define   [write_des_data.f, 533]   WRITE_DES_THETA
    Set   [write_des_data.f, 589]      WRITE_DES_THETA
    Use   [write_des_data.f, 592]      WRITE_DES_THETA

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_w_is.f, 46]          DIF_W_IS
    Set   [dif_w_is.f, 61]             DIF_W_IS
    Use Argument   [dif_w_is.f, 64]    DIF_W_IS
    Use   [dif_w_is.f, 65]             DIF_W_IS
    Use Argument   [dif_w_is.f, 66]    DIF_W_IS
    Use Argument   [dif_w_is.f, 73]    DIF_W_IS
    Set   [dif_w_is.f, 83]             DIF_W_IS
    Use Argument   [dif_w_is.f, 86]    DIF_W_IS
    Use   [dif_w_is.f, 87]             DIF_W_IS
    Use Argument   [dif_w_is.f, 88]    DIF_W_IS
    Use Argument   [dif_w_is.f, 95]    DIF_W_IS

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   [set_ps.f, 280]           DEBUG_PS
    Set   [set_ps.f, 297]              DEBUG_PS
    Use Argument   [set_ps.f, 302]     DEBUG_PS
    Use   [set_ps.f, 303]              DEBUG_PS
    Use Argument   [set_ps.f, 304]     DEBUG_PS
    Set   [set_ps.f, 379]              DEBUG_PS
    Use   [set_ps.f, 382]              DEBUG_PS
    Use   [set_ps.f, 384]              DEBUG_PS

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ps.f, 25]            SET_PS
    Set   [set_ps.f, 85]               SET_PS
    Use Argument   [set_ps.f, 89]      SET_PS
    Use   [set_ps.f, 90]               SET_PS
    Use Argument   [set_ps.f, 91]      SET_PS

k    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 324]     GET_VCELL_SDIFF_TERMS
    Set   [conv_dif_v_s.f, 337]        GET_VCELL_SDIFF_TERMS
    Use   [conv_dif_v_s.f, 340]        GET_VCELL_SDIFF_TERMS
    Use   [conv_dif_v_s.f, 365]        GET_VCELL_SDIFF_TERMS
    Use Argument   [conv_dif_v_s.f, 390]   GET_VCELL_SDIFF_TERMS
    Use Argument   [conv_dif_v_s.f, 391]   GET_VCELL_SDIFF_TERMS

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 606]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 647]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 648]        STORE_A_V_SDC

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   [CG_source_w_g.f, 71]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 120]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 122]   CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 219]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 231]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 234]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 237]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 240]   CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 266]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 270]       CG_SOURCE_W_G
    Use   [CG_source_w_g.f, 274]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 276]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 277]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 278]   CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 279]   CG_SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [solve_pp_g.f, 177]       POINT_SOURCE_PP_G
    Set   [solve_pp_g.f, 189]          POINT_SOURCE_PP_G
    Use Argument   [solve_pp_g.f, 193]   POINT_SOURCE_PP_G
    Use   [solve_pp_g.f, 194]          POINT_SOURCE_PP_G
    Use Argument   [solve_pp_g.f, 196]   POINT_SOURCE_PP_G

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

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   [get_cut_cell_flags.f, 1860]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1889]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1895]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1895]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1926]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1934]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1935]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1937]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1938]   GET_POTENTIAL_CUT_CELLS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 28]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 93]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 94]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 94]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 94]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 124]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 135]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 135]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 503]   SET_3D_CUT_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 504]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 512]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 513]   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

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1318]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1348]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1352]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use   [get_cut_cell_flags.f, 1356]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1358]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1359]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1362]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1363]   SET_3D_CUT_CELL_TREATMENT_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1458]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1469]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1472]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1473]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1519]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1522]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1523]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1569]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1572]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1573]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1618]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1621]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1622]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1665]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1667]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1673]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1715]   SET_GHOST_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 1717]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1723]   SET_GHOST_CELL_FLAGS

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 46]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 66]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 81]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 82]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 100]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 101]   CALC_INTERP_WEIGHTS1

K    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_g.f, 277]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 329]             CALC_CG_TAU_U_G
    Use   [tau_u_g.f, 332]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 370]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 371]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 566]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 567]    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   [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   [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, 391]   SET_BC_FLAGS_FLOW
    Set   [set_icbc_flags.f, 450]      SET_BC_FLAGS_FLOW
    Use Argument   [set_icbc_flags.f, 454]   SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 455]      SET_BC_FLAGS_FLOW
    Use Argument   [set_icbc_flags.f, 457]   SET_BC_FLAGS_FLOW
    Set   [set_icbc_flags.f, 494]      SET_BC_FLAGS_FLOW
    Use Argument   [set_icbc_flags.f, 498]   SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 499]      SET_BC_FLAGS_FLOW
    Use Argument   [set_icbc_flags.f, 501]   SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 505]      SET_BC_FLAGS_FLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_icbc_flags.f, 310]   SET_BC_FLAGS_WALL
    Set   [set_icbc_flags.f, 329]      SET_BC_FLAGS_WALL
    Use Argument   [set_icbc_flags.f, 333]   SET_BC_FLAGS_WALL
    Use   [set_icbc_flags.f, 334]      SET_BC_FLAGS_WALL
    Use Argument   [set_icbc_flags.f, 336]   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   [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, 602]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 643]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 644]        STORE_A_U_GDC

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 1078]      POINT_SOURCE_W_G
    Set   [source_w_g.f, 1102]         POINT_SOURCE_W_G
    Use Argument   [source_w_g.f, 1106]   POINT_SOURCE_W_G
    Use   [source_w_g.f, 1107]         POINT_SOURCE_W_G
    Use Argument   [source_w_g.f, 1109]   POINT_SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 86]        SOURCE_W_G
    Set   [source_w_g.f, 136]          SOURCE_W_G
    Use Argument   [source_w_g.f, 147]   SOURCE_W_G
    Use Argument   [source_w_g.f, 149]   SOURCE_W_G
    Use Argument   [source_w_g.f, 219]   SOURCE_W_G
    Use Argument   [source_w_g.f, 220]   SOURCE_W_G
    Use Argument   [source_w_g.f, 223]   SOURCE_W_G
    Use Argument   [source_w_g.f, 228]   SOURCE_W_G
    Use Argument   [source_w_g.f, 258]   SOURCE_W_G
    Use Argument   [source_w_g.f, 259]   SOURCE_W_G
    Use Argument   [source_w_g.f, 271]   SOURCE_W_G
    Use Argument   [source_w_g.f, 282]   SOURCE_W_G
    Use Argument   [source_w_g.f, 292]   SOURCE_W_G
    Use Argument   [source_w_g.f, 309]   SOURCE_W_G
    Use Argument   [source_w_g.f, 311]   SOURCE_W_G
    Use Argument   [source_w_g.f, 322]   SOURCE_W_G
    Use Argument   [source_w_g.f, 343]   SOURCE_W_G
    Use Argument   [source_w_g.f, 366]   SOURCE_W_G
    Use Argument   [source_w_g.f, 369]   SOURCE_W_G
    Use   [source_w_g.f, 370]          SOURCE_W_G
    Use   [source_w_g.f, 370]          SOURCE_W_G
    Use Argument   [source_w_g.f, 377]   SOURCE_W_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 495]       SOURCE_W_G_BC
    Set   [source_w_g.f, 654]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 657]   SOURCE_W_G_BC
    Use   [source_w_g.f, 658]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 659]   SOURCE_W_G_BC
    Set   [source_w_g.f, 689]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 692]   SOURCE_W_G_BC
    Use   [source_w_g.f, 693]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 694]   SOURCE_W_G_BC
    Set   [source_w_g.f, 724]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 727]   SOURCE_W_G_BC
    Use   [source_w_g.f, 728]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 729]   SOURCE_W_G_BC
    Set   [source_w_g.f, 814]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 817]   SOURCE_W_G_BC
    Use   [source_w_g.f, 818]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 819]   SOURCE_W_G_BC
    Set   [source_w_g.f, 900]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 903]   SOURCE_W_G_BC
    Use   [source_w_g.f, 904]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 905]   SOURCE_W_G_BC
    Set   [source_w_g.f, 931]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 934]   SOURCE_W_G_BC
    Use   [source_w_g.f, 935]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 936]   SOURCE_W_G_BC
    Set   [source_w_g.f, 964]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 967]   SOURCE_W_G_BC
    Use   [source_w_g.f, 968]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 969]   SOURCE_W_G_BC
    Set   [source_w_g.f, 997]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 1000]   SOURCE_W_G_BC
    Use   [source_w_g.f, 1001]         SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 1002]   SOURCE_W_G_BC

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

k    (Local Variable)  Declared as: INTEGER
    Define   [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   [drag_gs_des0.f, 42]      DRAG_GS_DES0
    Set   [drag_gs_des0.f, 97]         DRAG_GS_DES0
    Use   [drag_gs_des0.f, 105]        DRAG_GS_DES0
    Set   [drag_gs_des0.f, 113]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 118]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 124]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 125]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 126]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 127]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 128]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 135]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 135]        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, 140]        DRAG_GS_DES0

K    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 237]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 305]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 313]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 321]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 326]        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, 334]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 335]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 342]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 342]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 345]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 345]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 348]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 351]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 384]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 390]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 402]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 407]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 440]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 443]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 443]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 444]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 445]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 446]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 453]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 454]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 455]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 456]        DRAG_GS_GAS0

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

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

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

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_source_epp.f, 604]   POINT_SOURCE_EPP
    Set   [conv_source_epp.f, 629]     POINT_SOURCE_EPP
    Use Argument   [conv_source_epp.f, 633]   POINT_SOURCE_EPP
    Use   [conv_source_epp.f, 634]     POINT_SOURCE_EPP
    Use Argument   [conv_source_epp.f, 635]   POINT_SOURCE_EPP

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   [k_epsilon_prop.f, 58]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 146]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 149]      K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 172]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 180]   K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 210]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 213]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 216]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 222]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 226]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 229]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 270]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 273]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 353]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 358]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 363]      K_Epsilon_PROP

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   [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   [calc_trd_s.f, 59]        CALC_TRD_S
    Set   [calc_trd_s.f, 87]           CALC_TRD_S
    Use   [calc_trd_s.f, 100]          CALC_TRD_S

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

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mi.f, 356]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 455]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 459]       SET_DEM_BCMI_IJK
    Use Argument   [set_bc_dem_mi.f, 461]   SET_DEM_BCMI_IJK

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_des.f, 42]       DIF_PHI_DES
    Set   [dif_phi_des.f, 56]          DIF_PHI_DES
    Use   [dif_phi_des.f, 70]          DIF_PHI_DES
    Use   [dif_phi_des.f, 85]          DIF_PHI_DES
    Use   [dif_phi_des.f, 96]          DIF_PHI_DES
    Use   [dif_phi_des.f, 110]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 121]   DIF_PHI_DES
    Use   [dif_phi_des.f, 121]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 124]   DIF_PHI_DES
    Use   [dif_phi_des.f, 124]         DIF_PHI_DES
    Use   [dif_phi_des.f, 134]         DIF_PHI_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_g.f, 74]         CALC_MU_G
    Set   [calc_mu_g.f, 222]           CALC_MU_G
    Use   [calc_mu_g.f, 225]           CALC_MU_G
    Use Argument   [calc_mu_g.f, 249]   CALC_MU_G
    Use Argument   [calc_mu_g.f, 257]   CALC_MU_G
    Use   [calc_mu_g.f, 283]           CALC_MU_G
    Use   [calc_mu_g.f, 286]           CALC_MU_G
    Use   [calc_mu_g.f, 290]           CALC_MU_G

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   [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   [CG_source_w_s.f, 58]     CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 101]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 110]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 114]   CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 204]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 216]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 218]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 220]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 222]   CG_SOURCE_W_S
    Set   [CG_source_w_s.f, 245]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 248]       CG_SOURCE_W_S
    Use   [CG_source_w_s.f, 251]       CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 252]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 253]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 254]   CG_SOURCE_W_S
    Use Argument   [CG_source_w_s.f, 255]   CG_SOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 3359]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3479]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3480]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3480]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3480]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3480]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3517]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3523]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3607]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3613]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3674]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3676]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3685]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3698]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3698]   ADJUST_IJK_SIZE

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 2542]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3069]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3070]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3070]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3100]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3101]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3101]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3106]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3107]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3107]   GET_DXYZ_FROM_CONTROL_POINTS

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4061]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4126]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4127]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4178]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4179]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4227]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4228]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4231]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4232]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4232]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4262]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4262]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4268]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4269]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4269]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4269]   REPORT_BEST_IJK_SIZE

K    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4902]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 4971]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 4973]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5027]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5029]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5094]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5096]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5101]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5102]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5102]   REPORT_BEST_IJK_SIZE0

K    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 59]            BC_PHI
    Set   [bc_phi.f, 237]              BC_PHI
    Use Argument   [bc_phi.f, 240]     BC_PHI
    Use   [bc_phi.f, 241]              BC_PHI
    Use Argument   [bc_phi.f, 242]     BC_PHI
    Use   [bc_phi.f, 245]              BC_PHI
    Use   [bc_phi.f, 311]              BC_PHI
    Use   [bc_phi.f, 312]              BC_PHI
    Set   [bc_phi.f, 356]              BC_PHI
    Use Argument   [bc_phi.f, 359]     BC_PHI
    Use   [bc_phi.f, 360]              BC_PHI
    Use Argument   [bc_phi.f, 361]     BC_PHI
    Set   [bc_phi.f, 410]              BC_PHI
    Use Argument   [bc_phi.f, 413]     BC_PHI
    Use   [bc_phi.f, 414]              BC_PHI
    Use Argument   [bc_phi.f, 415]     BC_PHI

K    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 502]           BC_PHI_CG
    Set   [bc_phi.f, 516]              BC_PHI_CG
    Use   [bc_phi.f, 520]              BC_PHI_CG
    Use   [bc_phi.f, 520]              BC_PHI_CG
    Use   [bc_phi.f, 538]              BC_PHI_CG
    Use   [bc_phi.f, 639]              BC_PHI_CG
    Use   [bc_phi.f, 640]              BC_PHI_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   [set_ic_dem.f, 45]        SET_IC_DEM
    Set   [set_ic_dem.f, 57]           SET_IC_DEM
    Use Argument   [set_ic_dem.f, 63]   SET_IC_DEM
    Use   [set_ic_dem.f, 64]           SET_IC_DEM
    Use Argument   [set_ic_dem.f, 66]   SET_IC_DEM

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

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1351]      LEQ_IJSWEEPt
    Set   [leq_bicgst.f, 1355]         LEQ_IJSWEEPt
    Use Argument   [leq_bicgst.f, 1356]   LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1358]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1359]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1360]         LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1361]         LEQ_IJSWEEPt
    Set   [leq_bicgst.f, 1381]         LEQ_IJSWEEPt
    Use Argument   [leq_bicgst.f, 1382]   LEQ_IJSWEEPt
    Use   [leq_bicgst.f, 1383]         LEQ_IJSWEEPt

K    (Dummy Argument)  Declared as: INTEGER
    Define   [leq_bicgst.f, 736]       LEQ_IKSWEEPt
    Declare   [leq_bicgst.f, 759]      LEQ_IKSWEEPt
    Use Argument   [leq_bicgst.f, 795]   LEQ_IKSWEEPt
    Use Argument   [leq_bicgst.f, 824]   LEQ_IKSWEEPt

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 680]       LEQ_ISWEEPt
    Set   [leq_bicgst.f, 684]          LEQ_ISWEEPt
    Use Argument   [leq_bicgst.f, 688]   LEQ_ISWEEPt
    Use Argument   [leq_bicgst.f, 712]   LEQ_ISWEEPt

K    (Dummy Argument)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1203]      LEQ_JKSWEEPt
    Declare   [leq_bicgst.f, 1224]     LEQ_JKSWEEPt
    Use Argument   [leq_bicgst.f, 1254]   LEQ_JKSWEEPt
    Use Argument   [leq_bicgst.f, 1280]   LEQ_JKSWEEPt

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 895]       LEQ_MATVECt
    Set   [leq_bicgst.f, 907]          LEQ_MATVECt
    Use Argument   [leq_bicgst.f, 911]   LEQ_MATVECt
    Set   [leq_bicgst.f, 935]          LEQ_MATVECt
    Use Argument   [leq_bicgst.f, 943]   LEQ_MATVECt

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1483]      LEQ_msolve1t
    Set   [leq_bicgst.f, 1501]         LEQ_msolve1t
    Use Argument   [leq_bicgst.f, 1505]   LEQ_msolve1t

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1025]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1049]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1053]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1102]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1104]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1106]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1106]   LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1108]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1128]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1130]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1132]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1133]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1145]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1147]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1156]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1158]   LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1166]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1167]   LEQ_MSOLVEt

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 412]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 439]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 440]        CONV_DIF_PHI_DC

K    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 776]     DIF_PHI_IS
    Set   [conv_dif_phi.f, 801]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 804]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 805]   DIF_PHI_IS
    Set   [conv_dif_phi.f, 817]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 820]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 821]   DIF_PHI_IS
    Set   [conv_dif_phi.f, 834]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 840]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 841]        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   [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   [tau_u_s.f, 320]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 345]             CALC_CG_TAU_U_S
    Use   [tau_u_s.f, 346]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 385]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 386]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 583]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 584]    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   [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, 308]     ludcmp
    Set   [cooling_rate.f, 329]        ludcmp
    Use   [cooling_rate.f, 330]        ludcmp
    Use   [cooling_rate.f, 330]        ludcmp
    Set   [cooling_rate.f, 337]        ludcmp
    Use   [cooling_rate.f, 338]        ludcmp
    Use   [cooling_rate.f, 338]        ludcmp
    Set   [cooling_rate.f, 348]        ludcmp
    Use   [cooling_rate.f, 349]        ludcmp
    Use   [cooling_rate.f, 350]        ludcmp
    Use   [cooling_rate.f, 350]        ludcmp
    Use   [cooling_rate.f, 351]        ludcmp

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

K    (Local Variable)  Declared as: INTEGER
    Define   [set_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   [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   [partial_elim.f, 728]     PARTIAL_ELIM_W
    Set   [partial_elim.f, 766]        PARTIAL_ELIM_W
    Use Argument   [partial_elim.f, 768]   PARTIAL_ELIM_W

k    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 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, 602]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 643]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 644]        STORE_A_U_SDC

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

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

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 1050]      JJ_BC_W_S
    Set   [source_w_s.f, 1055]         JJ_BC_W_S
    Use Argument   [source_w_s.f, 1058]   JJ_BC_W_S
    Use   [source_w_s.f, 1059]         JJ_BC_W_S
    Use Argument   [source_w_s.f, 1060]   JJ_BC_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 1220]      POINT_SOURCE_W_S
    Set   [source_w_s.f, 1240]         POINT_SOURCE_W_S
    Use Argument   [source_w_s.f, 1244]   POINT_SOURCE_W_S
    Use   [source_w_s.f, 1245]         POINT_SOURCE_W_S
    Use Argument   [source_w_s.f, 1247]   POINT_SOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 78]        SOURCE_W_S
    Set   [source_w_s.f, 133]          SOURCE_W_S
    Use Argument   [source_w_s.f, 150]   SOURCE_W_S
    Use Argument   [source_w_s.f, 162]   SOURCE_W_S
    Use Argument   [source_w_s.f, 274]   SOURCE_W_S
    Use Argument   [source_w_s.f, 298]   SOURCE_W_S
    Use Argument   [source_w_s.f, 300]   SOURCE_W_S
    Use Argument   [source_w_s.f, 304]   SOURCE_W_S
    Use Argument   [source_w_s.f, 334]   SOURCE_W_S
    Use Argument   [source_w_s.f, 335]   SOURCE_W_S
    Use Argument   [source_w_s.f, 351]   SOURCE_W_S
    Use Argument   [source_w_s.f, 359]   SOURCE_W_S
    Use Argument   [source_w_s.f, 364]   SOURCE_W_S
    Use Argument   [source_w_s.f, 376]   SOURCE_W_S
    Use Argument   [source_w_s.f, 381]   SOURCE_W_S
    Use Argument   [source_w_s.f, 392]   SOURCE_W_S
    Use Argument   [source_w_s.f, 394]   SOURCE_W_S
    Use Argument   [source_w_s.f, 404]   SOURCE_W_S
    Use Argument   [source_w_s.f, 424]   SOURCE_W_S
    Use Argument   [source_w_s.f, 446]   SOURCE_W_S
    Use Argument   [source_w_s.f, 449]   SOURCE_W_S
    Use   [source_w_s.f, 450]          SOURCE_W_S
    Use   [source_w_s.f, 450]          SOURCE_W_S
    Use Argument   [source_w_s.f, 454]   SOURCE_W_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 567]       SOURCE_W_S_BC
    Set   [source_w_s.f, 701]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 704]   SOURCE_W_S_BC
    Use   [source_w_s.f, 705]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 706]   SOURCE_W_S_BC
    Set   [source_w_s.f, 740]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 743]   SOURCE_W_S_BC
    Use   [source_w_s.f, 744]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 745]   SOURCE_W_S_BC
    Set   [source_w_s.f, 779]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 782]   SOURCE_W_S_BC
    Use   [source_w_s.f, 783]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 784]   SOURCE_W_S_BC
    Set   [source_w_s.f, 869]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 872]   SOURCE_W_S_BC
    Use   [source_w_s.f, 873]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 874]   SOURCE_W_S_BC
    Set   [source_w_s.f, 896]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 899]   SOURCE_W_S_BC
    Use   [source_w_s.f, 900]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 901]   SOURCE_W_S_BC
    Set   [source_w_s.f, 929]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 932]   SOURCE_W_S_BC
    Use   [source_w_s.f, 933]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 934]   SOURCE_W_S_BC
    Set   [source_w_s.f, 957]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 960]   SOURCE_W_S_BC
    Use   [source_w_s.f, 961]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 962]   SOURCE_W_S_BC

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

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

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

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 682]        leq_check
    Set   [leq_gmres.f, 702]           leq_check
    Use   [leq_gmres.f, 705]           leq_check
    Use   [leq_gmres.f, 705]           leq_check
    Use Argument   [leq_gmres.f, 712]   leq_check

K    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 173]        LEQ_GMRES0
    Set   [leq_gmres.f, 309]           LEQ_GMRES0
    Use   [leq_gmres.f, 310]           LEQ_GMRES0
    Use   [leq_gmres.f, 311]           LEQ_GMRES0
    Use   [leq_gmres.f, 319]           LEQ_GMRES0
    Use   [leq_gmres.f, 319]           LEQ_GMRES0
    Set   [leq_gmres.f, 343]           LEQ_GMRES0
    Use   [leq_gmres.f, 344]           LEQ_GMRES0
    Use   [leq_gmres.f, 344]           LEQ_GMRES0
    Use   [leq_gmres.f, 344]           LEQ_GMRES0
    Use   [leq_gmres.f, 344]           LEQ_GMRES0
    Use   [leq_gmres.f, 345]           LEQ_GMRES0
    Use   [leq_gmres.f, 345]           LEQ_GMRES0
    Use   [leq_gmres.f, 345]           LEQ_GMRES0
    Use   [leq_gmres.f, 345]           LEQ_GMRES0
    Use   [leq_gmres.f, 345]           LEQ_GMRES0
    Use   [leq_gmres.f, 346]           LEQ_GMRES0

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    (Local Variable)  Declared as: INTEGER
    Define   [dif_u_is.f, 48]          DIF_U_IS
    Set   [dif_u_is.f, 72]             DIF_U_IS
    Use Argument   [dif_u_is.f, 75]    DIF_U_IS
    Use   [dif_u_is.f, 76]             DIF_U_IS
    Use Argument   [dif_u_is.f, 77]    DIF_U_IS
    Set   [dif_u_is.f, 95]             DIF_U_IS
    Use Argument   [dif_u_is.f, 98]    DIF_U_IS
    Use   [dif_u_is.f, 99]             DIF_U_IS
    Use Argument   [dif_u_is.f, 100]   DIF_U_IS
    Use Argument   [dif_u_is.f, 106]   DIF_U_IS
    Use Argument   [dif_u_is.f, 107]   DIF_U_IS
    Use   [dif_u_is.f, 108]            DIF_U_IS

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

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_cg.f, 162]           LEQ_CG0
    Set   [leq_cg.f, 201]              LEQ_CG0
    Use Argument   [leq_cg.f, 204]     LEQ_CG0

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 983]          IJK_Pg_SEARCH
    Set   [set_bc0.f, 1025]            IJK_Pg_SEARCH
    Set   [set_bc0.f, 1027]            IJK_Pg_SEARCH
    Set   [set_bc0.f, 1029]            IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1035]   IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1037]   IJK_Pg_SEARCH
    Set   [set_bc0.f, 1101]            IJK_Pg_SEARCH
    Use   [set_bc0.f, 1116]            IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1126]   IJK_Pg_SEARCH
    Use Argument   [set_bc0.f, 1127]   IJK_Pg_SEARCH

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 395]          SET_BC0_INFLOW
    Set   [set_bc0.f, 404]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 407]    SET_BC0_INFLOW
    Use   [set_bc0.f, 408]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 409]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 449]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 453]    SET_BC0_INFLOW
    Use   [set_bc0.f, 457]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 504]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 507]    SET_BC0_INFLOW
    Use   [set_bc0.f, 510]             SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 540]    SET_BC0_INFLOW
    Use Argument   [set_bc0.f, 544]    SET_BC0_INFLOW
    Use   [set_bc0.f, 548]             SET_BC0_INFLOW

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc0.f, 703]          set_bc0_init_bcscalars
    Set   [set_bc0.f, 710]             set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 713]    set_bc0_init_bcscalars
    Use   [set_bc0.f, 714]             set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 715]    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 Argument   [set_bc0.f, 723]    set_bc0_init_bcscalars
    Use Argument   [set_bc0.f, 725]    set_bc0_init_bcscalars
    Use   [set_bc0.f, 727]             set_bc0_init_bcscalars
    Use   [set_bc0.f, 729]             set_bc0_init_bcscalars

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

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

K    (Local Variable)  Declared as: INTEGER
    Define   [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   [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_v_g.f, 960]       POINT_SOURCE_V_G
    Set   [source_v_g.f, 984]          POINT_SOURCE_V_G
    Use Argument   [source_v_g.f, 988]   POINT_SOURCE_V_G
    Use   [source_v_g.f, 989]          POINT_SOURCE_V_G
    Use Argument   [source_v_g.f, 991]   POINT_SOURCE_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 84]        SOURCE_V_G
    Set   [source_v_g.f, 134]          SOURCE_V_G
    Use   [source_v_g.f, 261]          SOURCE_V_G
    Use Argument   [source_v_g.f, 262]   SOURCE_V_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_g.f, 424]       SOURCE_V_G_BC
    Set   [source_v_g.f, 583]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 586]   SOURCE_V_G_BC
    Use   [source_v_g.f, 587]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 588]   SOURCE_V_G_BC
    Set   [source_v_g.f, 618]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 621]   SOURCE_V_G_BC
    Use   [source_v_g.f, 622]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 623]   SOURCE_V_G_BC
    Set   [source_v_g.f, 653]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 656]   SOURCE_V_G_BC
    Use   [source_v_g.f, 657]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 658]   SOURCE_V_G_BC
    Use   [source_v_g.f, 661]          SOURCE_V_G_BC
    Use   [source_v_g.f, 696]          SOURCE_V_G_BC
    Use   [source_v_g.f, 697]          SOURCE_V_G_BC
    Set   [source_v_g.f, 726]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 729]   SOURCE_V_G_BC
    Use   [source_v_g.f, 730]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 731]   SOURCE_V_G_BC
    Use   [source_v_g.f, 734]          SOURCE_V_G_BC
    Use   [source_v_g.f, 754]          SOURCE_V_G_BC
    Set   [source_v_g.f, 783]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 786]   SOURCE_V_G_BC
    Use   [source_v_g.f, 787]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 788]   SOURCE_V_G_BC
    Set   [source_v_g.f, 814]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 817]   SOURCE_V_G_BC
    Use   [source_v_g.f, 818]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 819]   SOURCE_V_G_BC
    Set   [source_v_g.f, 847]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 850]   SOURCE_V_G_BC
    Use   [source_v_g.f, 851]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 852]   SOURCE_V_G_BC
    Set   [source_v_g.f, 880]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 883]   SOURCE_V_G_BC
    Use   [source_v_g.f, 884]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 885]   SOURCE_V_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_v_s.f, 108]    CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 149]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 150]       CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 194]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 195]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 198]       CALC_IA_MOMSOURCE_V_S

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   [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   [calc_mu_s.f, 3028]       CALC_BOYLE_MASSOUDI_STRESS
    Set   [calc_mu_s.f, 3044]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 3047]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 3065]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 3066]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 3068]          CALC_BOYLE_MASSOUDI_STRESS

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 2663]       init1_mu_s
    Set   [calc_mu_s.f, 2692]          init1_mu_s
    Use   [calc_mu_s.f, 2695]          init1_mu_s
    Use Argument   [calc_mu_s.f, 2726]   init1_mu_s
    Use Argument   [calc_mu_s.f, 2755]   init1_mu_s
    Use   [calc_mu_s.f, 2814]          init1_mu_s
    Use   [calc_mu_s.f, 2817]          init1_mu_s
    Use   [calc_mu_s.f, 2821]          init1_mu_s
    Use Argument   [calc_mu_s.f, 2863]   init1_mu_s
    Use Argument   [calc_mu_s.f, 2892]   init1_mu_s
    Use   [calc_mu_s.f, 2952]          init1_mu_s
    Use   [calc_mu_s.f, 2956]          init1_mu_s
    Use   [calc_mu_s.f, 2960]          init1_mu_s

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

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

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 275]     MPPIC_COMP_EULERIAN_VELS_CG
    Set   [pic_routines.f, 283]        MPPIC_COMP_EULERIAN_VELS_CG
    Use Argument   [pic_routines.f, 291]   MPPIC_COMP_EULERIAN_VELS_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 195]     MPPIC_COMP_EULERIAN_VELS_NON_CG
    Set   [pic_routines.f, 203]        MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use Argument   [pic_routines.f, 210]   MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use   [pic_routines.f, 230]        MPPIC_COMP_EULERIAN_VELS_NON_CG
    Use   [pic_routines.f, 230]        MPPIC_COMP_EULERIAN_VELS_NON_CG

K    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 591]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 651]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 679]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 682]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 701]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 721]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 745]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 752]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 778]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 781]        MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 786]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 791]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 826]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 827]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 828]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 841]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 843]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 847]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 850]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 852]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 854]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 855]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 860]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 860]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 863]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 863]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 865]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 865]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 867]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 871]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 871]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 873]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 873]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 874]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 878]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 878]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 880]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 880]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 882]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 886]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 887]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 888]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 893]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 893]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 895]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 895]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 897]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 897]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 911]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 911]        MPPIC_COMPUTE_PS_GRAD

k    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1227]    WRITE_MPPIC_VEL_S
    Set   [pic_routines.f, 1243]       WRITE_MPPIC_VEL_S
    Use Argument   [pic_routines.f, 1246]   WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 1253]       WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 1258]       WRITE_MPPIC_VEL_S
    Use   [pic_routines.f, 1258]       WRITE_MPPIC_VEL_S

k    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1188]    WRITE_NODEDATA
    Set   [pic_routines.f, 1194]       WRITE_NODEDATA
    Use Argument   [pic_routines.f, 1197]   WRITE_NODEDATA
    Use   [pic_routines.f, 1200]       WRITE_NODEDATA

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   [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_cell_movement.f, 31]   CHECK_CELL_MOVEMENT
    Set   [check_cell_movement.f, 50]   CHECK_CELL_MOVEMENT
    Use   [check_cell_movement.f, 54]   CHECK_CELL_MOVEMENT
    Use   [check_cell_movement.f, 54]   CHECK_CELL_MOVEMENT

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 97]   CHECK_CELL_MOVEMENT_DEM
    Set   [check_cell_movement.f, 117]   CHECK_CELL_MOVEMENT_DEM
    Use   [check_cell_movement.f, 131]   CHECK_CELL_MOVEMENT_DEM
    Use   [check_cell_movement.f, 131]   CHECK_CELL_MOVEMENT_DEM
    Use Argument   [check_cell_movement.f, 133]   CHECK_CELL_MOVEMENT_DEM

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 205]   CHECK_CELL_MOVEMENT_PIC
    Set   [check_cell_movement.f, 237]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 304]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 304]   CHECK_CELL_MOVEMENT_PIC
    Use   [check_cell_movement.f, 306]   CHECK_CELL_MOVEMENT_PIC
    Use Argument   [check_cell_movement.f, 313]   CHECK_CELL_MOVEMENT_PIC
    Use Argument   [check_cell_movement.f, 324]   CHECK_CELL_MOVEMENT_PIC

K    (Local Variable)  Declared as: INTEGER
    Define   [check_cell_movement.f, 396]   REPORT_PIC_STATS
    Set   [check_cell_movement.f, 414]   REPORT_PIC_STATS
    Use Argument   [check_cell_movement.f, 417]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 422]   REPORT_PIC_STATS
    Set   [check_cell_movement.f, 442]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 444]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 445]   REPORT_PIC_STATS
    Use   [check_cell_movement.f, 445]   REPORT_PIC_STATS

K    (Local Variable)  Declared as: INTEGER
    Define   [check_mass_balance.f, 548]   Calc_mass_flux_sp
    Set   [check_mass_balance.f, 555]   Calc_mass_flux_sp
    Use Argument   [check_mass_balance.f, 558]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 559]   Calc_mass_flux_sp
    Use Argument   [check_mass_balance.f, 563]   Calc_mass_flux_sp
    Use Argument   [check_mass_balance.f, 571]   Calc_mass_flux_sp
    Use Argument   [check_mass_balance.f, 579]   Calc_mass_flux_sp
    Use Argument   [check_mass_balance.f, 587]   Calc_mass_flux_sp
    Use Argument   [check_mass_balance.f, 595]   Calc_mass_flux_sp
    Use Argument   [check_mass_balance.f, 603]   Calc_mass_flux_sp

K    (Local Variable)  Declared as: INTEGER
    Define   [check_mass_balance.f, 731]   Calc_mass_flux_spHR
    Set   [check_mass_balance.f, 744]   Calc_mass_flux_spHR
    Use Argument   [check_mass_balance.f, 747]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 748]   Calc_mass_flux_spHR
    Use Argument   [check_mass_balance.f, 752]   Calc_mass_flux_spHR
    Use Argument   [check_mass_balance.f, 757]   Calc_mass_flux_spHR
    Use Argument   [check_mass_balance.f, 762]   Calc_mass_flux_spHR
    Use Argument   [check_mass_balance.f, 767]   Calc_mass_flux_spHR
    Use Argument   [check_mass_balance.f, 772]   Calc_mass_flux_spHR
    Use Argument   [check_mass_balance.f, 777]   Calc_mass_flux_spHR

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   [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_bc_pic_mi.f, 158]    SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 236]       SET_PIC_BCMI_IJK
    Use Argument   [set_bc_pic_mi.f, 241]   SET_PIC_BCMI_IJK
    Use Argument   [set_bc_pic_mi.f, 242]   SET_PIC_BCMI_IJK

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_v_s.f, 57]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 97]        CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 197]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 220]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 221]   CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 241]       CG_SOURCE_V_S
    Use   [CG_source_v_s.f, 244]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 245]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 246]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 247]   CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 248]   CG_SOURCE_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   [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   [set_fluidbed_p.f, 62]    SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 96]       SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 99]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 100]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 101]   SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 113]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 116]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 117]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 118]   SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 128]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 129]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 129]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 133]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 134]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 135]   SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 185]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 187]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 188]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 189]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 192]      SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 194]      SET_FLUIDBED_P
    Set   [set_fluidbed_p.f, 222]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 224]   SET_FLUIDBED_P
    Use   [set_fluidbed_p.f, 225]      SET_FLUIDBED_P
    Use Argument   [set_fluidbed_p.f, 226]   SET_FLUIDBED_P

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

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 122]    LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 235]       LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 238]   LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 243]   LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 244]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 248]       LAYOUT_DEM_MI_NS
    Use Argument   [layout_mi_dem.f, 251]   LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 252]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 255]       LAYOUT_DEM_MI_NS
    Set   [layout_mi_dem.f, 259]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 261]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 265]       LAYOUT_DEM_MI_NS
    Use   [layout_mi_dem.f, 301]       LAYOUT_DEM_MI_NS

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 910]    LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 973]   LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 976]       LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 1010]   LAYOUT_DEM_MI_TB
    Use Argument   [layout_mi_dem.f, 1021]   LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1025]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1029]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1033]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1036]      LAYOUT_DEM_MI_TB
    Use   [layout_mi_dem.f, 1070]      LAYOUT_DEM_MI_TB

K    (Local Variable)  Declared as: INTEGER
    Define   [layout_mi_dem.f, 1258]   SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1271]      SET_DEM_MI_OWNER
    Use Argument   [layout_mi_dem.f, 1272]   SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1281]      SET_DEM_MI_OWNER
    Use Argument   [layout_mi_dem.f, 1282]   SET_DEM_MI_OWNER
    Set   [layout_mi_dem.f, 1288]      SET_DEM_MI_OWNER
    Use Argument   [layout_mi_dem.f, 1292]   SET_DEM_MI_OWNER

K    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 42]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 135]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 141]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 144]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 145]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 146]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 175]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 181]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 185]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 227]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 232]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 232]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 233]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 323]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 326]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 327]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 336]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 336]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 336]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 426]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 429]   COMP_MEAN_FIELDS0

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

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 87]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 183]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 215]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 242]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 243]   CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 267]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 271]       CG_SOURCE_U_G
    Use   [CG_source_u_g.f, 275]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 277]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 278]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 279]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 280]   CG_SOURCE_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 409]    CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 465]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 469]       CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 579]       CG_SOURCE_U_G_BC
    Use   [CG_source_u_g.f, 583]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 585]   CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 586]   CG_SOURCE_U_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 42]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 185]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 189]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 190]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 192]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 220]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 221]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 224]      DIF_PHI_BC_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 288]   DIF_PHI_BC_DES_CG
    Set   [dif_phi_bc_des.f, 298]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 304]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 304]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 348]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 349]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 355]      DIF_PHI_BC_DES_CG

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, 1002]      JJ_BC_V_S
    Set   [source_v_s.f, 1007]         JJ_BC_V_S
    Use Argument   [source_v_s.f, 1010]   JJ_BC_V_S
    Use   [source_v_s.f, 1011]         JJ_BC_V_S
    Use Argument   [source_v_s.f, 1013]   JJ_BC_V_S
    Use   [source_v_s.f, 1016]         JJ_BC_V_S
    Use   [source_v_s.f, 1096]         JJ_BC_V_S
    Use   [source_v_s.f, 1097]         JJ_BC_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 1170]      POINT_SOURCE_V_S
    Set   [source_v_s.f, 1191]         POINT_SOURCE_V_S
    Use Argument   [source_v_s.f, 1195]   POINT_SOURCE_V_S
    Use   [source_v_s.f, 1196]         POINT_SOURCE_V_S
    Use Argument   [source_v_s.f, 1198]   POINT_SOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 80]        SOURCE_V_S
    Set   [source_v_s.f, 137]          SOURCE_V_S
    Use   [source_v_s.f, 349]          SOURCE_V_S
    Use Argument   [source_v_s.f, 350]   SOURCE_V_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 529]       SOURCE_V_S_BC
    Set   [source_v_s.f, 664]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 667]   SOURCE_V_S_BC
    Use   [source_v_s.f, 668]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 669]   SOURCE_V_S_BC
    Use   [source_v_s.f, 671]          SOURCE_V_S_BC
    Set   [source_v_s.f, 704]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 707]   SOURCE_V_S_BC
    Use   [source_v_s.f, 708]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 709]   SOURCE_V_S_BC
    Set   [source_v_s.f, 743]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 746]   SOURCE_V_S_BC
    Use   [source_v_s.f, 747]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 748]   SOURCE_V_S_BC
    Use   [source_v_s.f, 751]          SOURCE_V_S_BC
    Use   [source_v_s.f, 786]          SOURCE_V_S_BC
    Use   [source_v_s.f, 788]          SOURCE_V_S_BC
    Set   [source_v_s.f, 821]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 824]   SOURCE_V_S_BC
    Use   [source_v_s.f, 825]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 826]   SOURCE_V_S_BC
    Set   [source_v_s.f, 848]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 851]   SOURCE_V_S_BC
    Use   [source_v_s.f, 852]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 853]   SOURCE_V_S_BC
    Set   [source_v_s.f, 881]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 884]   SOURCE_V_S_BC
    Use   [source_v_s.f, 885]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 886]   SOURCE_V_S_BC
    Set   [source_v_s.f, 909]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 912]   SOURCE_V_S_BC
    Use   [source_v_s.f, 913]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 914]   SOURCE_V_S_BC

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   [source_rop_g.f, 53]      SOURCE_ROP_G
    Set   [source_rop_g.f, 66]         SOURCE_ROP_G

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 26]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 71]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 75]            GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 79]            GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 81]   GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 82]   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   [get_alpha.f, 316]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 333]           GET_3D_ALPHA_U_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 430]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 475]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 479]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 483]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 485]   GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 486]   GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 487]   GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 488]   GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 721]           GET_3D_ALPHA_V_CUT_CELL
    Use   [get_alpha.f, 738]           GET_3D_ALPHA_V_CUT_CELL

K    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 834]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 877]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 881]           GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 885]           GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 887]   GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 888]   GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 889]   GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 890]   GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 1108]          GET_3D_ALPHA_W_CUT_CELL
    Use   [get_alpha.f, 1128]          GET_3D_ALPHA_W_CUT_CELL

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    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1746]         GATHER_DATA
    Set   [vtk_out.f, 1834]            GATHER_DATA
    Use Argument   [vtk_out.f, 1835]   GATHER_DATA

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 1933]         SETUP_VTK_NO_CUTCELL
    Set   [vtk_out.f, 1980]            SETUP_VTK_NO_CUTCELL
    Use   [vtk_out.f, 1991]            SETUP_VTK_NO_CUTCELL
    Use   [vtk_out.f, 1991]            SETUP_VTK_NO_CUTCELL
    Set   [vtk_out.f, 2042]            SETUP_VTK_NO_CUTCELL
    Use Argument   [vtk_out.f, 2043]   SETUP_VTK_NO_CUTCELL

K    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3089]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3162]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3187]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3187]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3190]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3220]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3245]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3245]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3248]            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    (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_rop_s.f, 98]        CONV_ROP_S0
    Set   [conv_rop_s.f, 130]          CONV_ROP_S0

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

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, 639]          GET_FULL_TAU_W_G
    Set   [tau_w_g.f, 666]             GET_FULL_TAU_W_G
    Use Argument   [tau_w_g.f, 679]    GET_FULL_TAU_W_G
    Use Argument   [tau_w_g.f, 682]    GET_FULL_TAU_W_G
    Use   [tau_w_g.f, 683]             GET_FULL_TAU_W_G
    Use   [tau_w_g.f, 683]             GET_FULL_TAU_W_G
    Use Argument   [tau_w_g.f, 691]    GET_FULL_TAU_W_G

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

k    (Local Variable)  Declared as: INTEGER
    Define   [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, 577]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 618]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 619]        STORE_A_W_GDC

k    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgs.f, 182]        LEQ_BICGS0
    Set   [leq_bicgs.f, 258]           LEQ_BICGS0
    Use Argument   [leq_bicgs.f, 261]   LEQ_BICGS0

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

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 84]        SOURCE_U_G
    Set   [source_u_g.f, 133]          SOURCE_U_G
    Use   [source_u_g.f, 263]          SOURCE_U_G
    Use Argument   [source_u_g.f, 264]   SOURCE_U_G

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 435]       SOURCE_U_G_BC
    Set   [source_u_g.f, 594]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 597]   SOURCE_U_G_BC
    Use   [source_u_g.f, 598]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 599]   SOURCE_U_G_BC
    Set   [source_u_g.f, 629]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 632]   SOURCE_U_G_BC
    Use   [source_u_g.f, 633]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 634]   SOURCE_U_G_BC
    Set   [source_u_g.f, 664]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 667]   SOURCE_U_G_BC
    Use   [source_u_g.f, 668]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 669]   SOURCE_U_G_BC
    Use   [source_u_g.f, 672]          SOURCE_U_G_BC
    Use   [source_u_g.f, 707]          SOURCE_U_G_BC
    Use   [source_u_g.f, 708]          SOURCE_U_G_BC
    Set   [source_u_g.f, 739]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 742]   SOURCE_U_G_BC
    Use   [source_u_g.f, 743]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 744]   SOURCE_U_G_BC
    Use   [source_u_g.f, 747]          SOURCE_U_G_BC
    Use   [source_u_g.f, 767]          SOURCE_U_G_BC
    Set   [source_u_g.f, 796]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 799]   SOURCE_U_G_BC
    Use   [source_u_g.f, 800]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 801]   SOURCE_U_G_BC
    Set   [source_u_g.f, 827]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 830]   SOURCE_U_G_BC
    Use   [source_u_g.f, 831]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 832]   SOURCE_U_G_BC
    Set   [source_u_g.f, 861]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 864]   SOURCE_U_G_BC
    Use   [source_u_g.f, 865]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 866]   SOURCE_U_G_BC
    Set   [source_u_g.f, 895]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 898]   SOURCE_U_G_BC
    Use   [source_u_g.f, 899]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 900]   SOURCE_U_G_BC

K    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_u_s.f, 108]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 151]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 152]       CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 196]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 197]   CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 200]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 231]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 232]       CALC_IA_MOMSOURCE_U_S

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

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

K    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 36]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 54]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 57]      MAKE_ARRAYS_DES
    Use Argument   [make_arrays_des.f, 58]   MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 63]      MAKE_ARRAYS_DES
    Use Argument   [make_arrays_des.f, 64]   MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 64]      MAKE_ARRAYS_DES

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_volume_area.f, 30]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 75]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 79]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 81]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 82]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 211]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 392]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 399]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 465]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 479]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 486]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 591]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 658]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 741]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 808]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 888]   GET_CUT_CELL_VOLUME_AND_AREAS

K    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_volume_area.f, 1217]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1335]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1336]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1336]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1339]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1340]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1342]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1343]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1352]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1353]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1353]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1356]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1357]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1359]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1360]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1369]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1370]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1370]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1373]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1374]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1376]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1377]   REORDER_POLYGON

K    (Local Variable)  Declared as: INTEGER
    Define   [qmomk_gas_drag.f, 63]    QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 78]       QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 100]      QMOMK_GAS_DRAG
    Set   [qmomk_gas_drag.f, 123]      QMOMK_GAS_DRAG
    Use Argument   [qmomk_gas_drag.f, 127]   QMOMK_GAS_DRAG

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   [dif_v_is.f, 45]          DIF_V_IS
    Set   [dif_v_is.f, 63]             DIF_V_IS
    Use Argument   [dif_v_is.f, 66]    DIF_V_IS
    Use   [dif_v_is.f, 67]             DIF_V_IS
    Use Argument   [dif_v_is.f, 68]    DIF_V_IS
    Set   [dif_v_is.f, 86]             DIF_V_IS
    Use Argument   [dif_v_is.f, 89]    DIF_V_IS
    Use   [dif_v_is.f, 90]             DIF_V_IS
    Use Argument   [dif_v_is.f, 91]    DIF_V_IS
    Use Argument   [dif_v_is.f, 97]    DIF_V_IS
    Use Argument   [dif_v_is.f, 98]    DIF_V_IS
    Use   [dif_v_is.f, 99]             DIF_V_IS

K    (Local Variable)  Declared as: INTEGER
    Define   [calc_grad_des.f, 179]    CALC_GRAD_DES_CG
    Set   [calc_grad_des.f, 190]       CALC_GRAD_DES_CG
    Use   [calc_grad_des.f, 237]       CALC_GRAD_DES_CG
    Use   [calc_grad_des.f, 242]       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, 123]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 127]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 127]       CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 128]       CALC_GRAD_DES_STD
    Use Argument   [calc_grad_des.f, 128]   CALC_GRAD_DES_STD
    Use   [calc_grad_des.f, 129]       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, 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   [calc_grad_des.f, 135]       CALC_GRAD_DES_STD

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

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

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

k    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 696]       copy_d_to_r
    Set   [write_spx1.f, 703]          copy_d_to_r
    Use   [write_spx1.f, 705]          copy_d_to_r

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

K    (Local Variable)  Declared as: INTEGER
    Define   [nsquare.f, 26]           NSQUARE
    Set   [nsquare.f, 107]             NSQUARE
    Use   [nsquare.f, 108]             NSQUARE

k    (Local Variable)  Declared as: INTEGER
    Define   [write_ab_m.f, 68]        WRITE_AB_M
    Set   [write_ab_m.f, 101]          WRITE_AB_M
    Use   [write_ab_m.f, 105]          WRITE_AB_M
    Use Argument   [write_ab_m.f, 108]   WRITE_AB_M
    Set   [write_ab_m.f, 119]          WRITE_AB_M
    Use   [write_ab_m.f, 123]          WRITE_AB_M
    Use Argument   [write_ab_m.f, 125]   WRITE_AB_M
    Use Argument   [write_ab_m.f, 127]   WRITE_AB_M
    Use   [write_ab_m.f, 127]          WRITE_AB_M

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   [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, 56]      SOURCE_ROP_S
    Set   [source_rop_s.f, 70]         SOURCE_ROP_S

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   [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   [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   [source_phi.f, 195]       POINT_SOURCE_PHI
    Set   [source_phi.f, 208]          POINT_SOURCE_PHI
    Use Argument   [source_phi.f, 212]   POINT_SOURCE_PHI
    Use   [source_phi.f, 213]          POINT_SOURCE_PHI
    Use Argument   [source_phi.f, 215]   POINT_SOURCE_PHI

K    (Local Variable)  Declared as: INTEGER
    Define   [set_bc_dem_mo.f, 45]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 129]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 133]       SET_BC_DEM_MO
    Use Argument   [set_bc_dem_mo.f, 135]   SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 169]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 173]       SET_BC_DEM_MO
    Use Argument   [set_bc_dem_mo.f, 175]   SET_BC_DEM_MO

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   [write_ab_m_var.f, 66]    WRITE_AB_M_VAR
    Set   [write_ab_m_var.f, 96]       WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 100]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 102]      WRITE_AB_M_VAR
    Set   [write_ab_m_var.f, 117]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 121]      WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 124]      WRITE_AB_M_VAR
    Use Argument   [write_ab_m_var.f, 126]   WRITE_AB_M_VAR
    Use   [write_ab_m_var.f, 126]      WRITE_AB_M_VAR

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   [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, 586]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 627]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 628]        STORE_A_W_SDC

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1010]      JJ_BC_U_S
    Set   [source_u_s.f, 1015]         JJ_BC_U_S
    Use Argument   [source_u_s.f, 1018]   JJ_BC_U_S
    Use   [source_u_s.f, 1019]         JJ_BC_U_S
    Use Argument   [source_u_s.f, 1021]   JJ_BC_U_S
    Use   [source_u_s.f, 1024]         JJ_BC_U_S
    Use   [source_u_s.f, 1104]         JJ_BC_U_S
    Use   [source_u_s.f, 1105]         JJ_BC_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1178]      POINT_SOURCE_U_S
    Set   [source_u_s.f, 1202]         POINT_SOURCE_U_S
    Use Argument   [source_u_s.f, 1206]   POINT_SOURCE_U_S
    Use   [source_u_s.f, 1207]         POINT_SOURCE_U_S
    Use Argument   [source_u_s.f, 1209]   POINT_SOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 77]        SOURCE_U_S
    Set   [source_u_s.f, 131]          SOURCE_U_S
    Use   [source_u_s.f, 347]          SOURCE_U_S
    Use Argument   [source_u_s.f, 348]   SOURCE_U_S

K    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 534]       SOURCE_U_S_BC
    Set   [source_u_s.f, 670]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 673]   SOURCE_U_S_BC
    Use   [source_u_s.f, 674]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 675]   SOURCE_U_S_BC
    Set   [source_u_s.f, 709]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 712]   SOURCE_U_S_BC
    Use   [source_u_s.f, 713]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 714]   SOURCE_U_S_BC
    Set   [source_u_s.f, 748]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 751]   SOURCE_U_S_BC
    Use   [source_u_s.f, 752]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 753]   SOURCE_U_S_BC
    Use   [source_u_s.f, 756]          SOURCE_U_S_BC
    Use   [source_u_s.f, 791]          SOURCE_U_S_BC
    Use   [source_u_s.f, 793]          SOURCE_U_S_BC
    Set   [source_u_s.f, 826]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 829]   SOURCE_U_S_BC
    Use   [source_u_s.f, 830]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 831]   SOURCE_U_S_BC
    Set   [source_u_s.f, 853]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 856]   SOURCE_U_S_BC
    Use   [source_u_s.f, 857]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 858]   SOURCE_U_S_BC
    Set   [source_u_s.f, 887]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 890]   SOURCE_U_S_BC
    Use   [source_u_s.f, 891]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 892]   SOURCE_U_S_BC
    Set   [source_u_s.f, 916]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 919]   SOURCE_U_S_BC
    Use   [source_u_s.f, 920]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 922]   SOURCE_U_S_BC

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   [cfassign.f, 209]         compute_volume_of_nodes
    Set   [cfassign.f, 253]            compute_volume_of_nodes
    Use Argument   [cfassign.f, 261]   compute_volume_of_nodes
    Use Argument   [cfassign.f, 262]   compute_volume_of_nodes
    Use Argument   [cfassign.f, 263]   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
    Use   [cfassign.f, 270]            compute_volume_of_nodes

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

k    (Local Variable)  Declared as: INTEGER
    Define   [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   [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   [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   [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   [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   [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, 602]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 643]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 644]        STORE_A_V_GDC

K    (Local Variable)  Declared as: INTEGER
    Define   [set_ic.f, 37]            SET_IC
    Set   [set_ic.f, 93]               SET_IC
    Use Argument   [set_ic.f, 96]      SET_IC
    Use   [set_ic.f, 97]               SET_IC
    Use Argument   [set_ic.f, 98]      SET_IC

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

K1    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 459]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 692]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 770]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 847]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 862]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 883]      RE_INDEX_ARRAYS

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

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

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_w_is.f, 46]          DIF_W_IS
    Set   [dif_w_is.f, 57]             DIF_W_IS
    Use   [dif_w_is.f, 61]             DIF_W_IS
    Use   [dif_w_is.f, 83]             DIF_W_IS

K1    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1861]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1934]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1937]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1943]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1971]   GET_POTENTIAL_CUT_CELLS

K1    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 47]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 512]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 515]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 531]   SET_3D_CUT_CELL_FLAGS

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 495]       SOURCE_W_G_BC
    Set   [source_w_g.f, 520]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 522]   SOURCE_W_G_BC
    Use   [source_w_g.f, 523]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 524]   SOURCE_W_G_BC
    Set   [source_w_g.f, 549]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 551]   SOURCE_W_G_BC
    Use   [source_w_g.f, 552]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 553]   SOURCE_W_G_BC
    Set   [source_w_g.f, 582]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 584]   SOURCE_W_G_BC
    Use   [source_w_g.f, 585]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 586]   SOURCE_W_G_BC
    Set   [source_w_g.f, 611]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 613]   SOURCE_W_G_BC
    Use   [source_w_g.f, 614]          SOURCE_W_G_BC
    Use Argument   [source_w_g.f, 615]   SOURCE_W_G_BC
    Set   [source_w_g.f, 652]          SOURCE_W_G_BC
    Use   [source_w_g.f, 654]          SOURCE_W_G_BC
    Set   [source_w_g.f, 687]          SOURCE_W_G_BC
    Use   [source_w_g.f, 689]          SOURCE_W_G_BC
    Set   [source_w_g.f, 722]          SOURCE_W_G_BC
    Use   [source_w_g.f, 724]          SOURCE_W_G_BC
    Set   [source_w_g.f, 812]          SOURCE_W_G_BC
    Use   [source_w_g.f, 814]          SOURCE_W_G_BC
    Set   [source_w_g.f, 898]          SOURCE_W_G_BC
    Use   [source_w_g.f, 900]          SOURCE_W_G_BC
    Set   [source_w_g.f, 929]          SOURCE_W_G_BC
    Use   [source_w_g.f, 931]          SOURCE_W_G_BC
    Set   [source_w_g.f, 962]          SOURCE_W_G_BC
    Use   [source_w_g.f, 964]          SOURCE_W_G_BC
    Set   [source_w_g.f, 995]          SOURCE_W_G_BC
    Use   [source_w_g.f, 997]          SOURCE_W_G_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [k_epsilon_prop.f, 62]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 246]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 248]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 248]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 249]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 249]      K_Epsilon_PROP

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   [check_data_cartesian.f, 2542]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3054]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3059]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3067]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3069]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3074]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3079]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3086]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3091]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3098]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3098]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3099]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3100]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3106]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3113]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3120]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3120]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3123]   GET_DXYZ_FROM_CONTROL_POINTS

K1    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 59]            BC_PHI
    Set   [bc_phi.f, 71]               BC_PHI
    Use Argument   [bc_phi.f, 75]      BC_PHI
    Use   [bc_phi.f, 76]               BC_PHI
    Use Argument   [bc_phi.f, 77]      BC_PHI
    Set   [bc_phi.f, 97]               BC_PHI
    Use Argument   [bc_phi.f, 101]     BC_PHI
    Use   [bc_phi.f, 102]              BC_PHI
    Use Argument   [bc_phi.f, 103]     BC_PHI
    Set   [bc_phi.f, 124]              BC_PHI
    Use Argument   [bc_phi.f, 126]     BC_PHI
    Use   [bc_phi.f, 127]              BC_PHI
    Use Argument   [bc_phi.f, 128]     BC_PHI
    Set   [bc_phi.f, 148]              BC_PHI
    Use Argument   [bc_phi.f, 150]     BC_PHI
    Use   [bc_phi.f, 151]              BC_PHI
    Use Argument   [bc_phi.f, 152]     BC_PHI
    Set   [bc_phi.f, 172]              BC_PHI
    Use Argument   [bc_phi.f, 174]     BC_PHI
    Use   [bc_phi.f, 175]              BC_PHI
    Use Argument   [bc_phi.f, 176]     BC_PHI
    Set   [bc_phi.f, 196]              BC_PHI
    Use Argument   [bc_phi.f, 198]     BC_PHI
    Use   [bc_phi.f, 199]              BC_PHI
    Use Argument   [bc_phi.f, 200]     BC_PHI
    Set   [bc_phi.f, 234]              BC_PHI
    Use   [bc_phi.f, 237]              BC_PHI
    Set   [bc_phi.f, 353]              BC_PHI
    Use   [bc_phi.f, 356]              BC_PHI
    Set   [bc_phi.f, 407]              BC_PHI
    Use   [bc_phi.f, 410]              BC_PHI

K1    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1026]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1092]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1096]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1102]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1104]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1106]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1118]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1122]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1128]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1130]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1132]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1145]         LEQ_MSOLVEt

K1    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 775]     DIF_PHI_IS
    Set   [conv_dif_phi.f, 789]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 795]        DIF_PHI_IS
    Set   [conv_dif_phi.f, 795]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 795]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 801]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 817]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 834]        DIF_PHI_IS

K1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_w_s.f, 1006]      JJ_BC_W_S
    Declare   [source_w_s.f, 1039]     JJ_BC_W_S
    Use   [source_w_s.f, 1055]         JJ_BC_W_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 567]       SOURCE_W_S_BC
    Set   [source_w_s.f, 573]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 575]   SOURCE_W_S_BC
    Use   [source_w_s.f, 576]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 577]   SOURCE_W_S_BC
    Set   [source_w_s.f, 603]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 605]   SOURCE_W_S_BC
    Use   [source_w_s.f, 606]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 607]   SOURCE_W_S_BC
    Set   [source_w_s.f, 631]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 633]   SOURCE_W_S_BC
    Use   [source_w_s.f, 634]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 635]   SOURCE_W_S_BC
    Set   [source_w_s.f, 659]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 661]   SOURCE_W_S_BC
    Use   [source_w_s.f, 662]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 663]   SOURCE_W_S_BC
    Set   [source_w_s.f, 698]          SOURCE_W_S_BC
    Use   [source_w_s.f, 701]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 729]   SOURCE_W_S_BC
    Set   [source_w_s.f, 737]          SOURCE_W_S_BC
    Use   [source_w_s.f, 740]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 768]   SOURCE_W_S_BC
    Set   [source_w_s.f, 776]          SOURCE_W_S_BC
    Use   [source_w_s.f, 779]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 857]   SOURCE_W_S_BC
    Set   [source_w_s.f, 867]          SOURCE_W_S_BC
    Use   [source_w_s.f, 869]          SOURCE_W_S_BC
    Set   [source_w_s.f, 894]          SOURCE_W_S_BC
    Use   [source_w_s.f, 896]          SOURCE_W_S_BC
    Set   [source_w_s.f, 927]          SOURCE_W_S_BC
    Use   [source_w_s.f, 929]          SOURCE_W_S_BC
    Set   [source_w_s.f, 955]          SOURCE_W_S_BC
    Use   [source_w_s.f, 957]          SOURCE_W_S_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_u_is.f, 48]          DIF_U_IS
    Set   [dif_u_is.f, 60]             DIF_U_IS
    Use   [dif_u_is.f, 66]             DIF_U_IS
    Set   [dif_u_is.f, 66]             DIF_U_IS
    Use Argument   [dif_u_is.f, 66]    DIF_U_IS
    Use   [dif_u_is.f, 72]             DIF_U_IS
    Use   [dif_u_is.f, 95]             DIF_U_IS

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   [source_v_g.f, 424]       SOURCE_V_G_BC
    Set   [source_v_g.f, 447]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 450]   SOURCE_V_G_BC
    Use   [source_v_g.f, 451]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 452]   SOURCE_V_G_BC
    Set   [source_v_g.f, 480]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 483]   SOURCE_V_G_BC
    Use   [source_v_g.f, 484]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 485]   SOURCE_V_G_BC
    Set   [source_v_g.f, 512]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 514]   SOURCE_V_G_BC
    Use   [source_v_g.f, 515]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 516]   SOURCE_V_G_BC
    Set   [source_v_g.f, 541]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 543]   SOURCE_V_G_BC
    Use   [source_v_g.f, 544]          SOURCE_V_G_BC
    Use Argument   [source_v_g.f, 545]   SOURCE_V_G_BC
    Set   [source_v_g.f, 581]          SOURCE_V_G_BC
    Use   [source_v_g.f, 583]          SOURCE_V_G_BC
    Set   [source_v_g.f, 616]          SOURCE_V_G_BC
    Use   [source_v_g.f, 618]          SOURCE_V_G_BC
    Set   [source_v_g.f, 651]          SOURCE_V_G_BC
    Use   [source_v_g.f, 653]          SOURCE_V_G_BC
    Set   [source_v_g.f, 724]          SOURCE_V_G_BC
    Use   [source_v_g.f, 726]          SOURCE_V_G_BC
    Set   [source_v_g.f, 781]          SOURCE_V_G_BC
    Use   [source_v_g.f, 783]          SOURCE_V_G_BC
    Set   [source_v_g.f, 812]          SOURCE_V_G_BC
    Use   [source_v_g.f, 814]          SOURCE_V_G_BC
    Set   [source_v_g.f, 845]          SOURCE_V_G_BC
    Use   [source_v_g.f, 847]          SOURCE_V_G_BC
    Set   [source_v_g.f, 878]          SOURCE_V_G_BC
    Use   [source_v_g.f, 880]          SOURCE_V_G_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 972]     MPPIC_BC_U_S
    Set   [pic_routines.f, 978]        MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 981]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 982]   MPPIC_BC_U_S
    Use   [pic_routines.f, 983]        MPPIC_BC_U_S
    Set   [pic_routines.f, 988]        MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 991]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 992]   MPPIC_BC_U_S
    Use   [pic_routines.f, 993]        MPPIC_BC_U_S
    Set   [pic_routines.f, 1000]       MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 1002]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 1003]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 1004]   MPPIC_BC_U_S
    Set   [pic_routines.f, 1009]       MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 1011]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 1012]   MPPIC_BC_U_S
    Use Argument   [pic_routines.f, 1013]   MPPIC_BC_U_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1047]    MPPIC_BC_V_S
    Set   [pic_routines.f, 1053]       MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1056]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1057]   MPPIC_BC_V_S
    Use   [pic_routines.f, 1058]       MPPIC_BC_V_S
    Set   [pic_routines.f, 1062]       MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1065]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1066]   MPPIC_BC_V_S
    Use   [pic_routines.f, 1067]       MPPIC_BC_V_S
    Set   [pic_routines.f, 1074]       MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1076]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1077]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1078]   MPPIC_BC_V_S
    Set   [pic_routines.f, 1084]       MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1086]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1087]   MPPIC_BC_V_S
    Use Argument   [pic_routines.f, 1088]   MPPIC_BC_V_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 1120]    MPPIC_BC_W_S
    Set   [pic_routines.f, 1126]       MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1128]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1129]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1130]   MPPIC_BC_W_S
    Set   [pic_routines.f, 1135]       MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1137]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1138]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1139]   MPPIC_BC_W_S
    Set   [pic_routines.f, 1144]       MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1146]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1147]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1148]   MPPIC_BC_W_S
    Set   [pic_routines.f, 1153]       MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1155]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1156]   MPPIC_BC_W_S
    Use Argument   [pic_routines.f, 1157]   MPPIC_BC_W_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 598]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 693]        MPPIC_COMPUTE_PS_GRAD
    Use Argument   [pic_routines.f, 697]   MPPIC_COMPUTE_PS_GRAD
    Use Argument   [pic_routines.f, 698]   MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 713]        MPPIC_COMPUTE_PS_GRAD
    Use Argument   [pic_routines.f, 717]   MPPIC_COMPUTE_PS_GRAD
    Use Argument   [pic_routines.f, 718]   MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 737]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 740]        MPPIC_COMPUTE_PS_GRAD
    Use Argument   [pic_routines.f, 741]   MPPIC_COMPUTE_PS_GRAD
    Use Argument   [pic_routines.f, 742]   MPPIC_COMPUTE_PS_GRAD

K1    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 463]   Calc_mass_flux
    Declare   [check_mass_balance.f, 470]   Calc_mass_flux
    Use Argument   [check_mass_balance.f, 492]   Calc_mass_flux

K1    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 513]   Calc_mass_flux_sp
    Declare   [check_mass_balance.f, 526]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 555]   Calc_mass_flux_sp

K1    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 690]   Calc_mass_flux_spHR
    Declare   [check_mass_balance.f, 705]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 744]   Calc_mass_flux_spHR

K1    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 643]   Calc_mass_fluxHR
    Declare   [check_mass_balance.f, 650]   Calc_mass_fluxHR
    Use Argument   [check_mass_balance.f, 669]   Calc_mass_fluxHR

K1    (Local Variable)  Declared as: INTEGER
    Define   [check_mass_balance.f, 71]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 146]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 151]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 153]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 161]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 163]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 181]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 185]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 188]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 211]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 216]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 220]   CHECK_Mass_balance

K1    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 44]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 232]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 237]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 261]   COMP_MEAN_FIELDS0

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

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

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 42]    DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 55]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 57]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 58]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 59]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 74]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 76]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 77]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 78]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 93]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 95]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 96]       DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 97]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 112]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 114]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 115]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 116]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 131]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 134]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 135]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 136]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 152]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 155]   DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 156]      DIF_PHI_BC_DES
    Use Argument   [dif_phi_bc_des.f, 157]   DIF_PHI_BC_DES
    Set   [dif_phi_bc_des.f, 182]      DIF_PHI_BC_DES
    Use   [dif_phi_bc_des.f, 185]      DIF_PHI_BC_DES

K1    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_v_s.f, 959]       JJ_BC_V_S
    Declare   [source_v_s.f, 991]      JJ_BC_V_S
    Use   [source_v_s.f, 1007]         JJ_BC_V_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 529]       SOURCE_V_S_BC
    Set   [source_v_s.f, 535]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 538]   SOURCE_V_S_BC
    Use   [source_v_s.f, 539]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 540]   SOURCE_V_S_BC
    Set   [source_v_s.f, 565]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 568]   SOURCE_V_S_BC
    Use   [source_v_s.f, 569]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 570]   SOURCE_V_S_BC
    Set   [source_v_s.f, 595]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 597]   SOURCE_V_S_BC
    Use   [source_v_s.f, 598]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 599]   SOURCE_V_S_BC
    Set   [source_v_s.f, 623]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 625]   SOURCE_V_S_BC
    Use   [source_v_s.f, 626]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 627]   SOURCE_V_S_BC
    Set   [source_v_s.f, 661]          SOURCE_V_S_BC
    Use   [source_v_s.f, 664]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 693]   SOURCE_V_S_BC
    Set   [source_v_s.f, 701]          SOURCE_V_S_BC
    Use   [source_v_s.f, 704]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 732]   SOURCE_V_S_BC
    Set   [source_v_s.f, 740]          SOURCE_V_S_BC
    Use   [source_v_s.f, 743]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 809]   SOURCE_V_S_BC
    Set   [source_v_s.f, 819]          SOURCE_V_S_BC
    Use   [source_v_s.f, 821]          SOURCE_V_S_BC
    Set   [source_v_s.f, 846]          SOURCE_V_S_BC
    Use   [source_v_s.f, 848]          SOURCE_V_S_BC
    Set   [source_v_s.f, 879]          SOURCE_V_S_BC
    Use   [source_v_s.f, 881]          SOURCE_V_S_BC
    Set   [source_v_s.f, 907]          SOURCE_V_S_BC
    Use   [source_v_s.f, 909]          SOURCE_V_S_BC

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    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 435]       SOURCE_U_G_BC
    Set   [source_u_g.f, 458]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 461]   SOURCE_U_G_BC
    Use   [source_u_g.f, 462]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 463]   SOURCE_U_G_BC
    Set   [source_u_g.f, 491]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 494]   SOURCE_U_G_BC
    Use   [source_u_g.f, 495]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 496]   SOURCE_U_G_BC
    Set   [source_u_g.f, 522]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 524]   SOURCE_U_G_BC
    Use   [source_u_g.f, 525]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 526]   SOURCE_U_G_BC
    Set   [source_u_g.f, 551]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 553]   SOURCE_U_G_BC
    Use   [source_u_g.f, 554]          SOURCE_U_G_BC
    Use Argument   [source_u_g.f, 555]   SOURCE_U_G_BC
    Set   [source_u_g.f, 592]          SOURCE_U_G_BC
    Use   [source_u_g.f, 594]          SOURCE_U_G_BC
    Set   [source_u_g.f, 627]          SOURCE_U_G_BC
    Use   [source_u_g.f, 629]          SOURCE_U_G_BC
    Set   [source_u_g.f, 662]          SOURCE_U_G_BC
    Use   [source_u_g.f, 664]          SOURCE_U_G_BC
    Set   [source_u_g.f, 737]          SOURCE_U_G_BC
    Use   [source_u_g.f, 739]          SOURCE_U_G_BC
    Set   [source_u_g.f, 794]          SOURCE_U_G_BC
    Use   [source_u_g.f, 796]          SOURCE_U_G_BC
    Set   [source_u_g.f, 825]          SOURCE_U_G_BC
    Use   [source_u_g.f, 827]          SOURCE_U_G_BC
    Set   [source_u_g.f, 859]          SOURCE_U_G_BC
    Use   [source_u_g.f, 861]          SOURCE_U_G_BC
    Set   [source_u_g.f, 893]          SOURCE_U_G_BC
    Use   [source_u_g.f, 895]          SOURCE_U_G_BC

K1    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 37]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 63]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 67]      MAKE_ARRAYS_DES

K1    (Local Variable)  Declared as: INTEGER
    Define   [dif_v_is.f, 45]          DIF_V_IS
    Set   [dif_v_is.f, 59]             DIF_V_IS
    Use   [dif_v_is.f, 63]             DIF_V_IS
    Use   [dif_v_is.f, 86]             DIF_V_IS

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    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_u_s.f, 967]       JJ_BC_U_S
    Declare   [source_u_s.f, 999]      JJ_BC_U_S
    Use   [source_u_s.f, 1015]         JJ_BC_U_S

K1    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 534]       SOURCE_U_S_BC
    Set   [source_u_s.f, 540]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 543]   SOURCE_U_S_BC
    Use   [source_u_s.f, 544]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 545]   SOURCE_U_S_BC
    Set   [source_u_s.f, 570]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 573]   SOURCE_U_S_BC
    Use   [source_u_s.f, 574]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 575]   SOURCE_U_S_BC
    Set   [source_u_s.f, 600]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 602]   SOURCE_U_S_BC
    Use   [source_u_s.f, 603]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 604]   SOURCE_U_S_BC
    Set   [source_u_s.f, 628]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 630]   SOURCE_U_S_BC
    Use   [source_u_s.f, 631]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 632]   SOURCE_U_S_BC
    Set   [source_u_s.f, 667]          SOURCE_U_S_BC
    Use   [source_u_s.f, 670]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 698]   SOURCE_U_S_BC
    Set   [source_u_s.f, 706]          SOURCE_U_S_BC
    Use   [source_u_s.f, 709]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 737]   SOURCE_U_S_BC
    Set   [source_u_s.f, 745]          SOURCE_U_S_BC
    Use   [source_u_s.f, 748]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 814]   SOURCE_U_S_BC
    Set   [source_u_s.f, 824]          SOURCE_U_S_BC
    Use   [source_u_s.f, 826]          SOURCE_U_S_BC
    Set   [source_u_s.f, 851]          SOURCE_U_S_BC
    Use   [source_u_s.f, 853]          SOURCE_U_S_BC
    Set   [source_u_s.f, 885]          SOURCE_U_S_BC
    Use   [source_u_s.f, 887]          SOURCE_U_S_BC
    Set   [source_u_s.f, 914]          SOURCE_U_S_BC
    Use   [source_u_s.f, 916]          SOURCE_U_S_BC

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

K2    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 459]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 693]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 771]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 848]      RE_INDEX_ARRAYS
    Set   [set_increments.f, 863]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 883]      RE_INDEX_ARRAYS

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

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_w_is.f, 46]          DIF_W_IS
    Set   [dif_w_is.f, 58]             DIF_W_IS
    Use   [dif_w_is.f, 61]             DIF_W_IS
    Use   [dif_w_is.f, 83]             DIF_W_IS

K2    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1861]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1935]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1938]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1943]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1971]   GET_POTENTIAL_CUT_CELLS

K2    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 47]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 513]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 516]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 531]   SET_3D_CUT_CELL_FLAGS

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_w_g.f, 495]       SOURCE_W_G_BC
    Set   [source_w_g.f, 653]          SOURCE_W_G_BC
    Use   [source_w_g.f, 654]          SOURCE_W_G_BC
    Set   [source_w_g.f, 688]          SOURCE_W_G_BC
    Use   [source_w_g.f, 689]          SOURCE_W_G_BC
    Set   [source_w_g.f, 723]          SOURCE_W_G_BC
    Use   [source_w_g.f, 724]          SOURCE_W_G_BC
    Set   [source_w_g.f, 813]          SOURCE_W_G_BC
    Use   [source_w_g.f, 814]          SOURCE_W_G_BC
    Set   [source_w_g.f, 899]          SOURCE_W_G_BC
    Use   [source_w_g.f, 900]          SOURCE_W_G_BC
    Set   [source_w_g.f, 930]          SOURCE_W_G_BC
    Use   [source_w_g.f, 931]          SOURCE_W_G_BC
    Set   [source_w_g.f, 963]          SOURCE_W_G_BC
    Use   [source_w_g.f, 964]          SOURCE_W_G_BC
    Set   [source_w_g.f, 996]          SOURCE_W_G_BC
    Use   [source_w_g.f, 997]          SOURCE_W_G_BC

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

K2    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 2542]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3055]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3059]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3069]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3074]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3079]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3087]   GET_DXYZ_FROM_CONTROL_POINTS
    Set   [check_data_cartesian.f, 3091]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3100]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3104]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3104]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3105]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3106]   GET_DXYZ_FROM_CONTROL_POINTS
    Use   [check_data_cartesian.f, 3113]   GET_DXYZ_FROM_CONTROL_POINTS

K2    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 59]            BC_PHI
    Set   [bc_phi.f, 235]              BC_PHI
    Use   [bc_phi.f, 237]              BC_PHI
    Set   [bc_phi.f, 354]              BC_PHI
    Use   [bc_phi.f, 356]              BC_PHI
    Set   [bc_phi.f, 408]              BC_PHI
    Use   [bc_phi.f, 410]              BC_PHI

K2    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1026]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1094]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1096]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1120]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1122]         LEQ_MSOLVEt

K2    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 775]     DIF_PHI_IS
    Set   [conv_dif_phi.f, 790]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 798]        DIF_PHI_IS
    Set   [conv_dif_phi.f, 798]        DIF_PHI_IS
    Use Argument   [conv_dif_phi.f, 798]   DIF_PHI_IS
    Use   [conv_dif_phi.f, 801]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 817]        DIF_PHI_IS
    Use   [conv_dif_phi.f, 834]        DIF_PHI_IS

K2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_w_s.f, 1006]      JJ_BC_W_S
    Declare   [source_w_s.f, 1039]     JJ_BC_W_S
    Use   [source_w_s.f, 1055]         JJ_BC_W_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_w_s.f, 567]       SOURCE_W_S_BC
    Set   [source_w_s.f, 699]          SOURCE_W_S_BC
    Use   [source_w_s.f, 701]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 729]   SOURCE_W_S_BC
    Set   [source_w_s.f, 738]          SOURCE_W_S_BC
    Use   [source_w_s.f, 740]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 768]   SOURCE_W_S_BC
    Set   [source_w_s.f, 777]          SOURCE_W_S_BC
    Use   [source_w_s.f, 779]          SOURCE_W_S_BC
    Use Argument   [source_w_s.f, 857]   SOURCE_W_S_BC
    Set   [source_w_s.f, 868]          SOURCE_W_S_BC
    Use   [source_w_s.f, 869]          SOURCE_W_S_BC
    Set   [source_w_s.f, 895]          SOURCE_W_S_BC
    Use   [source_w_s.f, 896]          SOURCE_W_S_BC
    Set   [source_w_s.f, 928]          SOURCE_W_S_BC
    Use   [source_w_s.f, 929]          SOURCE_W_S_BC
    Set   [source_w_s.f, 956]          SOURCE_W_S_BC
    Use   [source_w_s.f, 957]          SOURCE_W_S_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_u_is.f, 48]          DIF_U_IS
    Set   [dif_u_is.f, 61]             DIF_U_IS
    Use   [dif_u_is.f, 69]             DIF_U_IS
    Set   [dif_u_is.f, 69]             DIF_U_IS
    Use Argument   [dif_u_is.f, 69]    DIF_U_IS
    Use   [dif_u_is.f, 72]             DIF_U_IS
    Use   [dif_u_is.f, 95]             DIF_U_IS

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   [source_v_g.f, 424]       SOURCE_V_G_BC
    Set   [source_v_g.f, 582]          SOURCE_V_G_BC
    Use   [source_v_g.f, 583]          SOURCE_V_G_BC
    Set   [source_v_g.f, 617]          SOURCE_V_G_BC
    Use   [source_v_g.f, 618]          SOURCE_V_G_BC
    Set   [source_v_g.f, 652]          SOURCE_V_G_BC
    Use   [source_v_g.f, 653]          SOURCE_V_G_BC
    Set   [source_v_g.f, 725]          SOURCE_V_G_BC
    Use   [source_v_g.f, 726]          SOURCE_V_G_BC
    Set   [source_v_g.f, 782]          SOURCE_V_G_BC
    Use   [source_v_g.f, 783]          SOURCE_V_G_BC
    Set   [source_v_g.f, 813]          SOURCE_V_G_BC
    Use   [source_v_g.f, 814]          SOURCE_V_G_BC
    Set   [source_v_g.f, 846]          SOURCE_V_G_BC
    Use   [source_v_g.f, 847]          SOURCE_V_G_BC
    Set   [source_v_g.f, 879]          SOURCE_V_G_BC
    Use   [source_v_g.f, 880]          SOURCE_V_G_BC

K2    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 463]   Calc_mass_flux
    Declare   [check_mass_balance.f, 470]   Calc_mass_flux
    Use Argument   [check_mass_balance.f, 492]   Calc_mass_flux

K2    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 513]   Calc_mass_flux_sp
    Declare   [check_mass_balance.f, 526]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 555]   Calc_mass_flux_sp

K2    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 690]   Calc_mass_flux_spHR
    Declare   [check_mass_balance.f, 705]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 744]   Calc_mass_flux_spHR

K2    (Dummy Argument)  Declared as: INTEGER
    Define   [check_mass_balance.f, 643]   Calc_mass_fluxHR
    Declare   [check_mass_balance.f, 650]   Calc_mass_fluxHR
    Use Argument   [check_mass_balance.f, 669]   Calc_mass_fluxHR

K2    (Local Variable)  Declared as: INTEGER
    Define   [check_mass_balance.f, 71]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 147]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 151]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 153]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 161]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 163]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 182]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 185]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 188]   CHECK_Mass_balance
    Set   [check_mass_balance.f, 212]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 216]   CHECK_Mass_balance
    Use Argument   [check_mass_balance.f, 220]   CHECK_Mass_balance

K2    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 44]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 233]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 237]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 261]   COMP_MEAN_FIELDS0

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

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

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

K2    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_v_s.f, 959]       JJ_BC_V_S
    Declare   [source_v_s.f, 991]      JJ_BC_V_S
    Use   [source_v_s.f, 1007]         JJ_BC_V_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 529]       SOURCE_V_S_BC
    Set   [source_v_s.f, 662]          SOURCE_V_S_BC
    Use   [source_v_s.f, 664]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 693]   SOURCE_V_S_BC
    Set   [source_v_s.f, 702]          SOURCE_V_S_BC
    Use   [source_v_s.f, 704]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 732]   SOURCE_V_S_BC
    Set   [source_v_s.f, 741]          SOURCE_V_S_BC
    Use   [source_v_s.f, 743]          SOURCE_V_S_BC
    Use Argument   [source_v_s.f, 809]   SOURCE_V_S_BC
    Set   [source_v_s.f, 820]          SOURCE_V_S_BC
    Use   [source_v_s.f, 821]          SOURCE_V_S_BC
    Set   [source_v_s.f, 847]          SOURCE_V_S_BC
    Use   [source_v_s.f, 848]          SOURCE_V_S_BC
    Set   [source_v_s.f, 880]          SOURCE_V_S_BC
    Use   [source_v_s.f, 881]          SOURCE_V_S_BC
    Set   [source_v_s.f, 908]          SOURCE_V_S_BC
    Use   [source_v_s.f, 909]          SOURCE_V_S_BC

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    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 435]       SOURCE_U_G_BC
    Set   [source_u_g.f, 593]          SOURCE_U_G_BC
    Use   [source_u_g.f, 594]          SOURCE_U_G_BC
    Set   [source_u_g.f, 628]          SOURCE_U_G_BC
    Use   [source_u_g.f, 629]          SOURCE_U_G_BC
    Set   [source_u_g.f, 663]          SOURCE_U_G_BC
    Use   [source_u_g.f, 664]          SOURCE_U_G_BC
    Set   [source_u_g.f, 738]          SOURCE_U_G_BC
    Use   [source_u_g.f, 739]          SOURCE_U_G_BC
    Set   [source_u_g.f, 795]          SOURCE_U_G_BC
    Use   [source_u_g.f, 796]          SOURCE_U_G_BC
    Set   [source_u_g.f, 826]          SOURCE_U_G_BC
    Use   [source_u_g.f, 827]          SOURCE_U_G_BC
    Set   [source_u_g.f, 860]          SOURCE_U_G_BC
    Use   [source_u_g.f, 861]          SOURCE_U_G_BC
    Set   [source_u_g.f, 894]          SOURCE_U_G_BC
    Use   [source_u_g.f, 895]          SOURCE_U_G_BC

K2    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 37]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 64]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 67]      MAKE_ARRAYS_DES

K2    (Local Variable)  Declared as: INTEGER
    Define   [dif_v_is.f, 45]          DIF_V_IS
    Set   [dif_v_is.f, 60]             DIF_V_IS
    Use   [dif_v_is.f, 63]             DIF_V_IS
    Use   [dif_v_is.f, 86]             DIF_V_IS

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    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [source_u_s.f, 967]       JJ_BC_U_S
    Declare   [source_u_s.f, 999]      JJ_BC_U_S
    Use   [source_u_s.f, 1015]         JJ_BC_U_S

K2    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 534]       SOURCE_U_S_BC
    Set   [source_u_s.f, 668]          SOURCE_U_S_BC
    Use   [source_u_s.f, 670]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 698]   SOURCE_U_S_BC
    Set   [source_u_s.f, 707]          SOURCE_U_S_BC
    Use   [source_u_s.f, 709]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 737]   SOURCE_U_S_BC
    Set   [source_u_s.f, 746]          SOURCE_U_S_BC
    Use   [source_u_s.f, 748]          SOURCE_U_S_BC
    Use Argument   [source_u_s.f, 814]   SOURCE_U_S_BC
    Set   [source_u_s.f, 825]          SOURCE_U_S_BC
    Use   [source_u_s.f, 826]          SOURCE_U_S_BC
    Set   [source_u_s.f, 852]          SOURCE_U_S_BC
    Use   [source_u_s.f, 853]          SOURCE_U_S_BC
    Set   [source_u_s.f, 886]          SOURCE_U_S_BC
    Use   [source_u_s.f, 887]          SOURCE_U_S_BC
    Set   [source_u_s.f, 915]          SOURCE_U_S_BC
    Use   [source_u_s.f, 916]          SOURCE_U_S_BC

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

K23    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1458]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1669]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1674]   SET_GHOST_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 1719]   SET_GHOST_CELL_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1724]   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   [calc_grbdry.f, 85]       CALC_GRBDRY
    Set   [calc_grbdry.f, 136]         CALC_GRBDRY
    Set   [calc_grbdry.f, 143]         CALC_GRBDRY
    Set   [calc_grbdry.f, 330]         CALC_GRBDRY
    Set   [calc_grbdry.f, 337]         CALC_GRBDRY
    Set   [calc_grbdry.f, 534]         CALC_GRBDRY
    Set   [calc_grbdry.f, 541]         CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 746]   CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 752]   CALC_GRBDRY

K_12_avg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_grbdry.f, 1280]     CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1318]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1323]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1372]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1385]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1392]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1440]   CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1453]        CG_CALC_GRBDRY
    Set   [calc_grbdry.f, 1460]        CG_CALC_GRBDRY
    Use Argument   [calc_grbdry.f, 1509]   CG_CALC_GRBDRY

K_12_avg    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [calc_grbdry.f, 795]      F_HW
    Declare   [calc_grbdry.f, 833]     F_HW
    Use   [calc_grbdry.f, 950]         F_HW

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

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

K_12_avg    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 346]         CALC_THETA_BC
    Set   [bc_theta.f, 390]            CALC_THETA_BC
    Set   [bc_theta.f, 393]            CALC_THETA_BC
    Use Argument   [bc_theta.f, 686]   CALC_THETA_BC

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

K_1m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 318]        Gt_algebraic
    Set   [calc_mu_s.f, 341]           Gt_algebraic
    Use   [calc_mu_s.f, 353]           Gt_algebraic
    Use   [calc_mu_s.f, 382]           Gt_algebraic

K_2m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 320]        Gt_algebraic
    Set   [calc_mu_s.f, 347]           Gt_algebraic
    Use   [calc_mu_s.f, 354]           Gt_algebraic
    Use   [calc_mu_s.f, 385]           Gt_algebraic

K_3m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 322]        Gt_algebraic
    Set   [calc_mu_s.f, 342]           Gt_algebraic
    Use   [calc_mu_s.f, 349]           Gt_algebraic
    Use   [calc_mu_s.f, 355]           Gt_algebraic
    Use   [calc_mu_s.f, 388]           Gt_algebraic

K_4m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 324]        Gt_algebraic
    Set   [calc_mu_s.f, 350]           Gt_algebraic
    Use   [calc_mu_s.f, 352]           Gt_algebraic
    Use   [calc_mu_s.f, 371]           Gt_algebraic

K_5m    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 326]        Gt_algebraic
    Set   [calc_mu_s.f, 359]           Gt_algebraic
    Use   [calc_mu_s.f, 362]           Gt_algebraic
    Set   [calc_mu_s.f, 365]           Gt_algebraic
    Use   [calc_mu_s.f, 391]           Gt_algebraic

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   [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   [set_bc_dem_mi.f, 357]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 421]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 440]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 443]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 451]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 455]       SET_DEM_BCMI_IJK

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   [set_bc_pic_mi.f, 159]    SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 215]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 224]       SET_PIC_BCMI_IJK
    Set   [set_bc_pic_mi.f, 225]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 232]       SET_PIC_BCMI_IJK
    Use   [set_bc_pic_mi.f, 236]       SET_PIC_BCMI_IJK

K_b    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_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   [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_B    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3089]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3118]            SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3121]   SETUP_VTK_REGION
    Set   [vtk_out.f, 3122]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3122]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3187]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3245]            SETUP_VTK_REGION

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_dem_mo.f, 46]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 108]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 117]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 117]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 117]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 118]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 118]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 118]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 125]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 129]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 148]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 150]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 158]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 158]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 165]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 169]       SET_BC_DEM_MO

K_b    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 428]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 503]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 507]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 507]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 509]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 513]   CHECK_BC_GEOMETRY_FLOW

K_b    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 245]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 324]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 327]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 328]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 328]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 333]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 336]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 344]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 347]   CHECK_BC_GEOMETRY_WALL

K_CELL    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 803]   CHECK_IF_PARCEL_OVERLAPS_STL
    Set   [pic_bc_routines.f, 823]     CHECK_IF_PARCEL_OVERLAPS_STL
    Set   [pic_bc_routines.f, 824]     CHECK_IF_PARCEL_OVERLAPS_STL
    Use Argument   [pic_bc_routines.f, 826]   CHECK_IF_PARCEL_OVERLAPS_STL
    Use   [pic_bc_routines.f, 847]     CHECK_IF_PARCEL_OVERLAPS_STL
    Use   [pic_bc_routines.f, 848]     CHECK_IF_PARCEL_OVERLAPS_STL

K_CELL    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 39]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 122]     MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 132]     MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 133]     MAKE_ARRAYS_DES
    Use Argument   [make_arrays_des.f, 135]   MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 148]     MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 149]     MAKE_ARRAYS_DES

K_common_term    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1411]       gt_pde_ia
    Set   [calc_mu_s.f, 1665]          gt_pde_ia
    Use   [calc_mu_s.f, 1670]          gt_pde_ia
    Use   [calc_mu_s.f, 1690]          gt_pde_ia
    Use   [calc_mu_s.f, 1712]          gt_pde_ia
    Use   [calc_mu_s.f, 1718]          gt_pde_ia

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_eff.K1    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [des_thermo_cond_mod.f, 190]   K_eff
    Declare   [des_thermo_cond_mod.f, 195]   K_eff
    Use   [des_thermo_cond_mod.f, 197]   K_eff
    Use   [des_thermo_cond_mod.f, 197]   K_eff

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

K_FLUID    (Local Variable)  Declared as: INTEGER
    Define   [mod_bc_k.f, 40]          MOD_BC_K
    Set   [mod_bc_k.f, 105]            MOD_BC_K
    Use 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_OFFSET    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 3381]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3711]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3713]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3715]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3715]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3719]   ADJUST_IJK_SIZE

K_OFFSET    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4096]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4245]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4247]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4249]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4249]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4253]   REPORT_BEST_IJK_SIZE

K_OFFSET    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4919]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5115]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5117]   REPORT_BEST_IJK_SIZE0
    Set   [check_data_cartesian.f, 5119]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5119]   REPORT_BEST_IJK_SIZE0
    Use   [check_data_cartesian.f, 5123]   REPORT_BEST_IJK_SIZE0

K_P    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_source_epp.f, 106]   CONV_SOURCE_EPP0
    Set   [conv_source_epp.f, 155]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 164]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 171]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 182]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 189]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 200]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 207]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 218]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 225]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 237]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 244]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 255]     CONV_SOURCE_EPP0
    Use   [conv_source_epp.f, 262]     CONV_SOURCE_EPP0

K_P    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [conv_source_epp.f, 369]   CONV_SOURCE_EPP1
    Set   [conv_source_epp.f, 444]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 452]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 461]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 471]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 481]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 492]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 502]     CONV_SOURCE_EPP1

K_s_dil    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1408]       gt_pde_ia
    Set   [calc_mu_s.f, 1578]          gt_pde_ia
    Use   [calc_mu_s.f, 1582]          gt_pde_ia
    Use   [calc_mu_s.f, 1587]          gt_pde_ia
    Use   [calc_mu_s.f, 1588]          gt_pde_ia
    Use   [calc_mu_s.f, 1591]          gt_pde_ia
    Use   [calc_mu_s.f, 1592]          gt_pde_ia

K_s_LM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1417]       gt_pde_ia
    Set   [calc_mu_s.f, 1670]          gt_pde_ia
    Use   [calc_mu_s.f, 1726]          gt_pde_ia

K_s_MM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1417]       gt_pde_ia
    Set   [calc_mu_s.f, 1597]          gt_pde_ia
    Use   [calc_mu_s.f, 1629]          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_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1417]       gt_pde_ia
    Set   [calc_mu_s.f, 1576]          gt_pde_ia
    Set   [calc_mu_s.f, 1629]          gt_pde_ia
    Use   [calc_mu_s.f, 1629]          gt_pde_ia
    Set   [calc_mu_s.f, 1726]          gt_pde_ia
    Use   [calc_mu_s.f, 1726]          gt_pde_ia
    Use   [calc_mu_s.f, 1731]          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_SIZE    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 485]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 2001]     RE_INDEX_ARRAYS
    Use   [set_increments.f, 2003]     RE_INDEX_ARRAYS

K_SLICE    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3091]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3142]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3190]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3248]            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   [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   [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   [set_bc_dem_mi.f, 357]    SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 422]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 441]       SET_DEM_BCMI_IJK
    Set   [set_bc_dem_mi.f, 444]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 451]       SET_DEM_BCMI_IJK
    Use   [set_bc_dem_mi.f, 455]       SET_DEM_BCMI_IJK

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

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

K_T    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3089]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3119]            SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3123]   SETUP_VTK_REGION
    Use   [vtk_out.f, 3187]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3245]            SETUP_VTK_REGION

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_dem_mo.f, 46]     SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 108]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 117]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 118]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 125]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 129]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 148]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 150]       SET_BC_DEM_MO
    Set   [set_bc_dem_mo.f, 158]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 158]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 165]       SET_BC_DEM_MO
    Use   [set_bc_dem_mo.f, 169]       SET_BC_DEM_MO

K_t    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 428]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 504]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 510]   CHECK_BC_GEOMETRY_FLOW
    Use   [check_bc_geometry.f, 514]   CHECK_BC_GEOMETRY_FLOW

K_t    (Local Variable)  Declared as: INTEGER
    Define   [check_bc_geometry.f, 245]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 325]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 329]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 334]   CHECK_BC_GEOMETRY_WALL
    Set   [check_bc_geometry.f, 337]   CHECK_BC_GEOMETRY_WALL
    Use Argument   [check_bc_geometry.f, 345]   CHECK_BC_GEOMETRY_WALL
    Use   [check_bc_geometry.f, 348]   CHECK_BC_GEOMETRY_WALL

K_TMP    (Local Variable)  Declared as: INTEGER
    Define   [vtk_out.f, 3090]         SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3141]   SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3142]   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

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_w_g.f, 488]       SOURCE_W_G_BC
    Set   [source_w_g.f, 488]          SOURCE_W_G_BC
    Use   [source_w_g.f, 838]          SOURCE_W_G_BC
    Use   [source_w_g.f, 857]          SOURCE_W_G_BC

Kappa    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 111]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 130]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 347]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 362]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 383]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 399]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 419]      K_Epsilon_PROP

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_u_g.f, 989]       Wall_Function
    Set   [source_u_g.f, 989]          Wall_Function
    Use   [source_u_g.f, 1002]         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

kappa0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 979]        gt_pde_gd
    Set   [calc_mu_s.f, 1055]          gt_pde_gd
    Use   [calc_mu_s.f, 1074]          gt_pde_gd
    Use   [calc_mu_s.f, 1078]          gt_pde_gd
    Use   [calc_mu_s.f, 1080]          gt_pde_gd
    Use   [calc_mu_s.f, 1082]          gt_pde_gd
    Use   [calc_mu_s.f, 1084]          gt_pde_gd

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

Kappa_Col    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 795]        gt_pde_simonin
    Set   [calc_mu_s.f, 915]           gt_pde_simonin
    Use   [calc_mu_s.f, 917]           gt_pde_simonin

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_k_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 979]        gt_pde_gd
    Set   [calc_mu_s.f, 1062]          gt_pde_gd
    Use   [calc_mu_s.f, 1068]          gt_pde_gd
    Use   [calc_mu_s.f, 1093]          gt_pde_gd

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_kin    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 795]        gt_pde_simonin
    Set   [calc_mu_s.f, 912]           gt_pde_simonin
    Use   [calc_mu_s.f, 916]           gt_pde_simonin
    Use   [calc_mu_s.f, 917]           gt_pde_simonin

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_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 980]        gt_pde_gd
    Set   [calc_mu_s.f, 1068]          gt_pde_gd
    Use   [calc_mu_s.f, 1088]          gt_pde_gd

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

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

KB    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 244]     DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 317]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 326]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 390]        DRAG_GS_GAS0

kb    (Local Variable)  Declared as: INTEGER
    Define   [pic_routines.f, 596]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 782]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 791]        MPPIC_COMPUTE_PS_GRAD

KB    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 49]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 130]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 141]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 181]   COMP_MEAN_FIELDS0

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

KC    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 47]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 95]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 99]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 100]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 101]   CALC_INTERP_WEIGHTS1

Kcp    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_k_cp.f, 25]         CALC_K_cp
    Declare   [calc_k_cp.f, 51]        CALC_K_cp
    Set   [calc_k_cp.f, 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
    Define   [get_cut_cell_volume_area.f, 1079]   GET_POLYGON_AREA_AND_CENTROID
    Set   [get_cut_cell_volume_area.f, 1088]   GET_POLYGON_AREA_AND_CENTROID
    Set   [get_cut_cell_volume_area.f, 1094]   GET_POLYGON_AREA_AND_CENTROID
    Use   [get_cut_cell_volume_area.f, 1101]   GET_POLYGON_AREA_AND_CENTROID

KEEP    (Local Variable)  Declared as: LOGICAL
    Define   [get_cut_cell_volume_area.f, 1226]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1235]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1241]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1248]   REORDER_POLYGON

KEEP_NEW_POINT    (Local Variable)  Declared as: LOGICAL ALLOCATABLE
    Define   [vtk_out.f, 2860]         CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2866]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2866]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2872]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2885]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2892]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2911]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2936]            CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2964]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2964]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2970]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2983]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2990]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 3009]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 3034]            CLEAN_GEOMETRY

KEEP_POINT    (Local Variable)  Declared as: LOGICAL ALLOCATABLE
    Define   [vtk_out.f, 2859]         CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2869]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2869]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2876]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2884]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2891]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2904]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 2928]            CLEAN_GEOMETRY
    Use Argument   [vtk_out.f, 2967]   CLEAN_GEOMETRY
    Set   [vtk_out.f, 2967]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2974]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2982]            CLEAN_GEOMETRY
    Set   [vtk_out.f, 2989]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 3002]            CLEAN_GEOMETRY
    Use   [vtk_out.f, 3026]            CLEAN_GEOMETRY

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

KEEP_XDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3094]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3165]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3167]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3170]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3195]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3223]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3225]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3228]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3253]            SETUP_VTK_REGION

KEEP_YDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3094]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3175]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3177]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3180]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3195]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3233]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3235]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3238]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3253]            SETUP_VTK_REGION

KEEP_ZDIR    (Local Variable)  Declared as: LOGICAL
    Define   [vtk_out.f, 3094]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3185]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3187]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3190]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3195]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3243]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3245]            SETUP_VTK_REGION
    Set   [vtk_out.f, 3248]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3253]            SETUP_VTK_REGION

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

KFLUID    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 331]   PIC_MI_BC
    Set   [pic_bc_routines.f, 390]     PIC_MI_BC
    Use   [pic_bc_routines.f, 397]     PIC_MI_BC
    Use   [pic_bc_routines.f, 397]     PIC_MI_BC
    Use   [pic_bc_routines.f, 401]     PIC_MI_BC
    Use   [pic_bc_routines.f, 474]     PIC_MI_BC

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

Kgran    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 814]         THETA_HW_CW
    Set   [bc_theta.f, 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   [set_constprop.f, 133]       SET_CONSTPROP
    Set   [allocate_arrays.f, 406]     ALLOCATE_ARRAYS
    Use   [calc_mu_s.f, 1213]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1222]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1245]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1255]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1256]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1261]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1330]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1332]          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   [set_constprop.f, 121]       SET_CONSTPROP
    Set   [allocate_arrays.f, 403]     ALLOCATE_ARRAYS
    Use   [vtc_scalar.f, 57]           CALC_VTC_SS

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   [set_constprop.f, 128]       SET_CONSTPROP
    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
    Set   [allocate_arrays.f, 412]     ALLOCATE_ARRAYS
    Use   [calc_mu_s.f, 1216]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1254]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1326]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1329]          gt_pde_gtsh

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   [set_constprop.f, 122]       SET_CONSTPROP
    Use   [source_granular_energy.f, 445]   SOURCE_GRANULAR_ENERGY_IA
    Use   [source_granular_energy.f, 447]   SOURCE_GRANULAR_ENERGY_IA
    Set   [allocate_arrays.f, 402]     ALLOCATE_ARRAYS

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   [set_constprop.f, 129]       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
    Set   [allocate_arrays.f, 413]     ALLOCATE_ARRAYS

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 Argument   [calc_grbdry.f, 1101]   F_HW
    Use Argument   [calc_mu_s.f, 1277]   gt_pde_gtsh

kintheory.Fnu_s_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 38]     kintheory
    Set   [set_constprop.f, 114]       SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 286]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 286]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_v_s.f, 231]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 231]   CALC_IA_MOMSOURCE_V_S
    Set   [allocate_arrays.f, 395]     ALLOCATE_ARRAYS
    Use Argument   [kintheory_u_s.f, 259]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 259]   CALC_IA_MOMSOURCE_U_S
    Set   [drag_ss.f, 286]             DRAG_SS_IA
    Set   [drag_ss.f, 363]             DRAG_SS_IA
    Set   [drag_ss.f, 373]             DRAG_SS_IA

kintheory.FT_sL_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 43]     kintheory
    Set   [set_constprop.f, 116]       SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 304]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 304]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_v_s.f, 249]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 249]   CALC_IA_MOMSOURCE_V_S
    Set   [allocate_arrays.f, 397]     ALLOCATE_ARRAYS
    Use Argument   [kintheory_u_s.f, 277]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 277]   CALC_IA_MOMSOURCE_U_S
    Set   [drag_ss.f, 288]             DRAG_SS_IA
    Set   [drag_ss.f, 370]             DRAG_SS_IA
    Set   [drag_ss.f, 375]             DRAG_SS_IA

kintheory.FT_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 41]     kintheory
    Set   [set_constprop.f, 115]       SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 296]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 296]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_v_s.f, 241]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 241]   CALC_IA_MOMSOURCE_V_S
    Set   [allocate_arrays.f, 396]     ALLOCATE_ARRAYS
    Use Argument   [kintheory_u_s.f, 269]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 269]   CALC_IA_MOMSOURCE_U_S
    Set   [drag_ss.f, 287]             DRAG_SS_IA
    Set   [drag_ss.f, 368]             DRAG_SS_IA
    Set   [drag_ss.f, 374]             DRAG_SS_IA

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   [set_constprop.f, 119]       SET_CONSTPROP
    Use Argument   [source_granular_energy.f, 506]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 506]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 508]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 508]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 510]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 510]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 512]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 512]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 514]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 514]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 516]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 516]   SOURCE_GRANULAR_ENERGY_IA
    Set   [allocate_arrays.f, 400]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1621]          gt_pde_ia
    Set   [calc_mu_s.f, 1718]          gt_pde_ia
    Use   [calc_mu_s.f, 1724]          gt_pde_ia
    Set   [calc_mu_s.f, 1725]          gt_pde_ia
    Use   [calc_mu_s.f, 1725]          gt_pde_ia

kintheory.Knu_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 52]     kintheory
    Set   [set_constprop.f, 118]       SET_CONSTPROP
    Use Argument   [source_granular_energy.f, 507]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 507]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 509]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 509]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 511]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 511]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 513]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 513]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 515]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 515]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 517]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 517]   SOURCE_GRANULAR_ENERGY_IA
    Set   [allocate_arrays.f, 399]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1625]          gt_pde_ia
    Set   [calc_mu_s.f, 1724]          gt_pde_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   [set_constprop.f, 117]       SET_CONSTPROP
    Use Argument   [source_granular_energy.f, 486]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 486]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 487]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 487]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 488]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 488]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 489]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 489]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 490]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 490]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 491]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 491]   SOURCE_GRANULAR_ENERGY_IA
    Set   [allocate_arrays.f, 398]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1707]          gt_pde_ia
    Use   [calc_mu_s.f, 1707]          gt_pde_ia

kintheory.KTMOM_U_s    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 75]     kintheory
    Set   [allocate_arrays.f, 383]     ALLOCATE_ARRAYS
    Set   [kintheory_u_s.f, 296]       CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 298]       CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 38]        CALC_KTMOMSOURCE_U_S
    Use   [source_u_s.f, 452]          SOURCE_U_S

kintheory.KTMOM_V_s    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 76]     kintheory
    Set   [kintheory_v_s.f, 268]       CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 270]       CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 38]        CALC_KTMOMSOURCE_V_S
    Set   [allocate_arrays.f, 384]     ALLOCATE_ARRAYS
    Use   [source_v_s.f, 447]          SOURCE_V_S

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

kintheory.Kvel_s_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 56]     kintheory
    Set   [set_constprop.f, 120]       SET_CONSTPROP
    Use Argument   [source_granular_energy.f, 535]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 535]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 536]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 536]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 537]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 537]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 538]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 538]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 539]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 539]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 540]   SOURCE_GRANULAR_ENERGY_IA
    Use Argument   [source_granular_energy.f, 540]   SOURCE_GRANULAR_ENERGY_IA
    Set   [allocate_arrays.f, 401]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1613]          gt_pde_ia
    Set   [calc_mu_s.f, 1712]          gt_pde_ia

kintheory.MU_sL_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 27]     kintheory
    Set   [set_constprop.f, 111]       SET_CONSTPROP
    Use Argument   [kintheory_w_s.f, 184]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 184]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 185]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 185]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 186]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 186]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 187]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 187]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 191]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 191]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 192]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 192]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 193]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 193]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 194]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 194]   CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 198]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 199]       CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 230]   CALC_IA_MOMSOURCE_W_S
    Use Argument   [kintheory_w_s.f, 230]   CALC_IA_MOMSOURCE_W_S
    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, 182]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 182]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 183]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 183]   CALC_IA_MOMSOURCE_V_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
    Use Argument   [kintheory_v_s.f, 185]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 185]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 189]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 190]       CALC_IA_MOMSOURCE_V_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
    Use Argument   [kintheory_v_s.f, 195]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 195]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 196]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 196]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 197]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 197]   CALC_IA_MOMSOURCE_V_S
    Set   [allocate_arrays.f, 392]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1498]          gt_pde_ia
    Set   [calc_mu_s.f, 1546]          gt_pde_ia
    Use   [calc_mu_s.f, 1568]          gt_pde_ia
    Use   [kintheory_u_s.f, 184]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 185]       CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 189]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 189]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 190]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 190]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 191]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 191]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 192]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 192]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 196]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 196]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 197]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 197]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 198]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 198]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 199]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 199]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 229]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 229]   CALC_IA_MOMSOURCE_U_S

kintheory.MU_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 25]     kintheory
    Set   [set_constprop.f, 110]       SET_CONSTPROP
    Set   [allocate_arrays.f, 391]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1495]          gt_pde_ia
    Set   [calc_mu_s.f, 1542]          gt_pde_ia
    Use   [calc_mu_s.f, 1558]          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
    Set   [set_constprop.f, 113]       SET_CONSTPROP
    Use   [kintheory_w_s.f, 204]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 205]       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, 202]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 203]       CALC_IA_MOMSOURCE_V_S
    Set   [allocate_arrays.f, 394]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1506]          gt_pde_ia
    Set   [calc_mu_s.f, 1554]          gt_pde_ia
    Use   [calc_mu_s.f, 1569]          gt_pde_ia
    Use   [kintheory_u_s.f, 204]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 205]       CALC_IA_MOMSOURCE_U_S

kintheory.XI_sM_ip    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [kintheory_mod.f, 29]     kintheory
    Set   [set_constprop.f, 112]       SET_CONSTPROP
    Set   [allocate_arrays.f, 393]     ALLOCATE_ARRAYS
    Set   [calc_mu_s.f, 1502]          gt_pde_ia
    Set   [calc_mu_s.f, 1550]          gt_pde_ia
    Use   [calc_mu_s.f, 1559]          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   [set_constprop.f, 134]       SET_CONSTPROP
    Use   [source_granular_energy.f, 742]   SOURCE_GRANULAR_ENERGY_GD
    Set   [allocate_arrays.f, 407]     ALLOCATE_ARRAYS
    Use   [calc_mu_s.f, 1216]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1238]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1327]          gt_pde_gtsh

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, 1860]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1943]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1946]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1971]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1974]   GET_POTENTIAL_CUT_CELLS

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

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   [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   [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, 118]        DRAG_GS_DES0
    Use   [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, 126]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 131]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 132]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 133]        DRAG_GS_DES0
    Use   [drag_gs_des0.f, 134]        DRAG_GS_DES0

KK    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 238]     DRAG_GS_GAS0
    Set   [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, 329]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 330]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 333]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 338]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 339]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 340]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 341]        DRAG_GS_GAS0
    Set   [drag_gs_des0.f, 390]        DRAG_GS_GAS0
    Use   [drag_gs_des0.f, 394]        DRAG_GS_GAS0

KK    (Local Variable)  Declared as: INTEGER
    Define   [drag_gs_des0.f, 494]     DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 528]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 531]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 531]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 532]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 532]        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   [leq_gmres.f, 682]        leq_check
    Set   [leq_gmres.f, 733]           leq_check
    Use   [leq_gmres.f, 736]           leq_check
    Use   [leq_gmres.f, 736]           leq_check

KK    (Local Variable)  Declared as: INTEGER
    Define   [leq_gmres.f, 173]        LEQ_GMRES0
    Set   [leq_gmres.f, 235]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 238]   LEQ_GMRES0
    Set   [leq_gmres.f, 270]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 273]   LEQ_GMRES0
    Set   [leq_gmres.f, 288]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 291]   LEQ_GMRES0
    Set   [leq_gmres.f, 315]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 318]   LEQ_GMRES0
    Set   [leq_gmres.f, 332]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 335]   LEQ_GMRES0
    Set   [leq_gmres.f, 425]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 428]   LEQ_GMRES0
    Set   [leq_gmres.f, 505]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 508]   LEQ_GMRES0
    Set   [leq_gmres.f, 519]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 522]   LEQ_GMRES0
    Set   [leq_gmres.f, 562]           LEQ_GMRES0
    Use Argument   [leq_gmres.f, 565]   LEQ_GMRES0

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   [pic_routines.f, 598]     MPPIC_COMPUTE_PS_GRAD
    Set   [pic_routines.f, 791]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 792]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 793]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 794]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 795]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 814]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 815]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 816]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 817]        MPPIC_COMPUTE_PS_GRAD
    Use   [pic_routines.f, 828]        MPPIC_COMPUTE_PS_GRAD

KK    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 43]   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, 146]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 181]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 183]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 237]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 241]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 261]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 264]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 336]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 339]   COMP_MEAN_FIELDS0
    Use   [comp_mean_fields0.f, 341]   COMP_MEAN_FIELDS0
    Use Argument   [comp_mean_fields0.f, 342]   COMP_MEAN_FIELDS0

KK    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 466]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 497]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 500]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 500]   DRAG_WEIGHTFACTOR

KK    (Local Variable)  Declared as: INTEGER
    Define   [make_arrays_des.f, 37]   MAKE_ARRAYS_DES
    Set   [make_arrays_des.f, 67]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 70]      MAKE_ARRAYS_DES
    Use   [make_arrays_des.f, 71]      MAKE_ARRAYS_DES

kk    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 614]       gatherWriteSpx_netcdf
    Set   [write_spx1.f, 626]          gatherWriteSpx_netcdf
    Use   [write_spx1.f, 630]          gatherWriteSpx_netcdf

kk    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 659]       gatherWriteSpx_netcdf_int
    Set   [write_spx1.f, 671]          gatherWriteSpx_netcdf_int
    Use   [write_spx1.f, 675]          gatherWriteSpx_netcdf_int

KK    (Local Variable)  Declared as: INTEGER
    Define   [nsquare.f, 33]           NSQUARE
    Set   [nsquare.f, 66]              NSQUARE
    Set   [nsquare.f, 90]              NSQUARE
    Use   [nsquare.f, 91]              NSQUARE
    Set   [nsquare.f, 93]              NSQUARE
    Use   [nsquare.f, 94]              NSQUARE
    Use   [nsquare.f, 107]             NSQUARE

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

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

klistsize    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4068]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4255]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4257]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4258]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4268]   REPORT_BEST_IJK_SIZE

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   [cut_cell_preprocessing.f, 1479]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1638]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1649]   CAD_INTERSECT

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

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

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 333]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 346]    GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 350]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 353]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 354]   GET_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 356]   GET_CELL_NODE_COORDINATES

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 27]   GET_CONNECTIVITY
    Set   [get_connectivity.f, 52]     GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 56]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 59]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 60]   GET_CONNECTIVITY
    Use Argument   [get_connectivity.f, 62]   GET_CONNECTIVITY

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 511]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 524]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use Argument   [get_connectivity.f, 528]   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, 534]   GET_GLOBAL_CELL_NODE_COORDINATES

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   [conv_dif_v_s.f, 324]     GET_VCELL_SDIFF_TERMS
    Set   [conv_dif_v_s.f, 340]        GET_VCELL_SDIFF_TERMS
    Use   [conv_dif_v_s.f, 366]        GET_VCELL_SDIFF_TERMS
    Use Argument   [conv_dif_v_s.f, 394]   GET_VCELL_SDIFF_TERMS
    Use Argument   [conv_dif_v_s.f, 395]   GET_VCELL_SDIFF_TERMS

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_g.f, 89]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 270]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 281]   CG_SOURCE_W_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1318]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1356]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1360]   SET_3D_CUT_CELL_TREATMENT_FLAGS

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1459]   SET_GHOST_CELL_FLAGS

Km    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 48]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 80]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 85]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 95]   CALC_INTERP_WEIGHTS1

KM    (Local Variable)  Declared as: INTEGER
    Define   [tau_u_g.f, 277]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 332]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 372]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 373]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 568]    CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 569]    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   [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   [k_epsilon_prop.f, 58]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 149]      K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 174]   K_Epsilon_PROP
    Use Argument   [k_epsilon_prop.f, 182]   K_Epsilon_PROP

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   [dif_phi_des.f, 45]       DIF_PHI_DES
    Set   [dif_phi_des.f, 134]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 136]   DIF_PHI_DES
    Use   [dif_phi_des.f, 136]         DIF_PHI_DES
    Use Argument   [dif_phi_des.f, 139]   DIF_PHI_DES
    Use   [dif_phi_des.f, 139]         DIF_PHI_DES

KM    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_g.f, 74]         CALC_MU_G
    Set   [calc_mu_g.f, 225]           CALC_MU_G
    Use Argument   [calc_mu_g.f, 251]   CALC_MU_G
    Use Argument   [calc_mu_g.f, 259]   CALC_MU_G

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

KM    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 60]            BC_PHI
    Set   [bc_phi.f, 245]              BC_PHI
    Use   [bc_phi.f, 323]              BC_PHI
    Use   [bc_phi.f, 325]              BC_PHI

KM    (Local Variable)  Declared as: INTEGER
    Define   [bc_phi.f, 502]           BC_PHI_CG
    Set   [bc_phi.f, 538]              BC_PHI_CG
    Use   [bc_phi.f, 660]              BC_PHI_CG
    Use   [bc_phi.f, 661]              BC_PHI_CG

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   [tau_u_s.f, 320]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 346]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 387]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 388]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 585]    CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 586]    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   [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_g.f, 89]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 212]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 244]   CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 245]   CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 268]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 279]   CG_SOURCE_V_G

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

KM    (Local Variable)  Declared as: INTEGER
    Define   [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   [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_v_g.f, 425]       SOURCE_V_G_BC
    Set   [source_v_g.f, 661]          SOURCE_V_G_BC
    Use   [source_v_g.f, 706]          SOURCE_V_G_BC
    Use   [source_v_g.f, 707]          SOURCE_V_G_BC
    Set   [source_v_g.f, 734]          SOURCE_V_G_BC
    Use   [source_v_g.f, 759]          SOURCE_V_G_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_v_s.f, 108]    CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 150]       CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 196]   CALC_IA_MOMSOURCE_V_S
    Use Argument   [kintheory_v_s.f, 197]   CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 199]       CALC_IA_MOMSOURCE_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 3028]       CALC_BOYLE_MASSOUDI_STRESS
    Set   [calc_mu_s.f, 3047]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 3066]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 3067]          CALC_BOYLE_MASSOUDI_STRESS
    Use   [calc_mu_s.f, 3068]          CALC_BOYLE_MASSOUDI_STRESS

KM    (Local Variable)  Declared as: INTEGER
    Define   [calc_mu_s.f, 2665]       init1_mu_s
    Set   [calc_mu_s.f, 2695]          init1_mu_s
    Use Argument   [calc_mu_s.f, 2729]   init1_mu_s
    Use Argument   [calc_mu_s.f, 2758]   init1_mu_s
    Use Argument   [calc_mu_s.f, 2866]   init1_mu_s
    Use Argument   [calc_mu_s.f, 2895]   init1_mu_s

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

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   [CG_source_u_g.f, 87]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 215]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 245]   CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 246]   CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 271]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 282]   CG_SOURCE_U_G

KM    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 410]    CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 469]       CG_SOURCE_U_G_BC
    Set   [CG_source_u_g.f, 583]       CG_SOURCE_U_G_BC
    Use Argument   [CG_source_u_g.f, 587]   CG_SOURCE_U_G_BC

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

KM    (Local Variable)  Declared as: INTEGER
    Define   [dif_phi_bc_des.f, 288]   DIF_PHI_BC_DES_CG
    Set   [dif_phi_bc_des.f, 355]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 356]      DIF_PHI_BC_DES_CG
    Use   [dif_phi_bc_des.f, 357]      DIF_PHI_BC_DES_CG

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 1002]      JJ_BC_V_S
    Set   [source_v_s.f, 1016]         JJ_BC_V_S
    Use   [source_v_s.f, 1119]         JJ_BC_V_S
    Use   [source_v_s.f, 1120]         JJ_BC_V_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_v_s.f, 530]       SOURCE_V_S_BC
    Set   [source_v_s.f, 751]          SOURCE_V_S_BC
    Use   [source_v_s.f, 798]          SOURCE_V_S_BC
    Use   [source_v_s.f, 800]          SOURCE_V_S_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 26]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 75]            GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 85]   GET_3D_ALPHA_U_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 430]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 479]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 489]   GET_3D_ALPHA_V_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 834]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 881]           GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 891]   GET_3D_ALPHA_W_CUT_CELL

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_g.f, 436]       SOURCE_U_G_BC
    Set   [source_u_g.f, 672]          SOURCE_U_G_BC
    Use   [source_u_g.f, 717]          SOURCE_U_G_BC
    Use   [source_u_g.f, 719]          SOURCE_U_G_BC
    Set   [source_u_g.f, 747]          SOURCE_U_G_BC
    Use   [source_u_g.f, 772]          SOURCE_U_G_BC

KM    (Local Variable)  Declared as: INTEGER
    Define   [kintheory_u_s.f, 108]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 152]       CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 198]   CALC_IA_MOMSOURCE_U_S
    Use Argument   [kintheory_u_s.f, 199]   CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 201]       CALC_IA_MOMSOURCE_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_volume_area.f, 31]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 79]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 83]   GET_CUT_CELL_VOLUME_AND_AREAS

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

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 1010]      JJ_BC_U_S
    Set   [source_u_s.f, 1024]         JJ_BC_U_S
    Use   [source_u_s.f, 1127]         JJ_BC_U_S
    Use   [source_u_s.f, 1128]         JJ_BC_U_S

KM    (Local Variable)  Declared as: INTEGER
    Define   [source_u_s.f, 535]       SOURCE_U_S_BC
    Set   [source_u_s.f, 756]          SOURCE_U_S_BC
    Use   [source_u_s.f, 803]          SOURCE_U_S_BC
    Use   [source_u_s.f, 805]          SOURCE_U_S_BC

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

KM    (Local Variable)  Declared as: INTEGER
    Define   [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   [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_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 449]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 919]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 935]      RE_INDEX_ARRAYS

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

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

KMINUS1    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 804]   CHECK_IF_PARCEL_OVERLAPS_STL
    Set   [pic_bc_routines.f, 848]     CHECK_IF_PARCEL_OVERLAPS_STL
    Use   [pic_bc_routines.f, 850]     CHECK_IF_PARCEL_OVERLAPS_STL

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

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 609]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 690]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 691]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 691]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 691]        STORE_A_V_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 605]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 687]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 688]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 688]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 688]        STORE_A_U_GDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 415]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 477]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 478]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 478]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 478]        CONV_DIF_PHI_DC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 605]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 686]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 687]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 687]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 687]        STORE_A_U_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 580]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 663]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 664]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 664]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 664]        STORE_A_W_GDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 589]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 671]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 672]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 672]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 672]        STORE_A_W_SDC

KMMM    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 605]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 687]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 688]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 688]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 688]        STORE_A_V_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 609]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 691]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 772]        STORE_A_V_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 605]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 688]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 768]        STORE_A_U_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 415]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 478]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 569]        CONV_DIF_PHI_DC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 605]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 687]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 767]        STORE_A_U_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 580]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 664]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 746]        STORE_A_W_GDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 589]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 672]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 751]        STORE_A_W_SDC

KMMM4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 605]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 688]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 775]        STORE_A_V_GDC

KN_DES    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_force_dem.f, 62]    CALC_FORCE_DEM
    Set   [calc_force_dem.f, 179]      CALC_FORCE_DEM
    Set   [calc_force_dem.f, 187]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 194]      CALC_FORCE_DEM

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

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

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

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

Knu_s_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [bc_theta.f, 831]         THETA_HW_CW
    Set   [bc_theta.f, 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

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

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

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

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

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

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 333]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 342]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 424]    GET_CELL_NODE_COORDINATES

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_connectivity.f, 511]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 520]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 599]    GET_GLOBAL_CELL_NODE_COORDINATES

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_w_g.f, 89]     CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 219]       CG_SOURCE_W_G
    Set   [CG_source_w_g.f, 274]       CG_SOURCE_W_G
    Use Argument   [CG_source_w_g.f, 280]   CG_SOURCE_W_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

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1318]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Set   [get_cut_cell_flags.f, 1352]   SET_3D_CUT_CELL_TREATMENT_FLAGS
    Use Argument   [get_cut_cell_flags.f, 1364]   SET_3D_CUT_CELL_TREATMENT_FLAGS

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_cut_cell_flags.f, 1459]   SET_GHOST_CELL_FLAGS

Kp    (Local Variable)  Declared as: INTEGER
    Define   [calc_interp_weights.f, 48]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 80]   CALC_INTERP_WEIGHTS1
    Set   [calc_interp_weights.f, 85]   CALC_INTERP_WEIGHTS1
    Use   [calc_interp_weights.f, 95]   CALC_INTERP_WEIGHTS1

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

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

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   [CG_source_v_g.f, 89]     CG_SOURCE_V_G
    Set   [CG_source_v_g.f, 272]       CG_SOURCE_V_G
    Use Argument   [CG_source_v_g.f, 278]   CG_SOURCE_V_G

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_v_s.f, 69]     CG_SOURCE_V_S
    Set   [CG_source_v_s.f, 244]       CG_SOURCE_V_S
    Use Argument   [CG_source_v_s.f, 249]   CG_SOURCE_V_S

KP    (Local Variable)  Declared as: INTEGER
    Define   [CG_source_u_g.f, 87]     CG_SOURCE_U_G
    Set   [CG_source_u_g.f, 275]       CG_SOURCE_U_G
    Use Argument   [CG_source_u_g.f, 281]   CG_SOURCE_U_G

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 26]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 79]            GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 86]   GET_3D_ALPHA_U_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 430]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 483]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 490]   GET_3D_ALPHA_V_CUT_CELL

KP    (Local Variable)  Declared as: INTEGER
    Define   [get_alpha.f, 834]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 885]           GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 892]   GET_3D_ALPHA_W_CUT_CELL

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   [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   [CG_source_u_s.f, 70]     CG_SOURCE_U_S
    Set   [CG_source_u_s.f, 256]       CG_SOURCE_U_S
    Use Argument   [CG_source_u_s.f, 261]   CG_SOURCE_U_S

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   [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   [cfassign.f, 209]         compute_volume_of_nodes
    Set   [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 Argument   [cfassign.f, 305]   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
    Use   [cfassign.f, 310]            compute_volume_of_nodes

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

KP_COPY    (Local Variable)  Declared as: INTEGER
    Define   [set_increments.f, 449]   RE_INDEX_ARRAYS
    Set   [set_increments.f, 920]      RE_INDEX_ARRAYS
    Use   [set_increments.f, 936]      RE_INDEX_ARRAYS

Kphidphi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1177]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1279]          gt_pde_gtsh
    Set   [calc_mu_s.f, 1281]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1286]          gt_pde_gtsh

KPLUS1    (Local Variable)  Declared as: INTEGER
    Define   [pic_bc_routines.f, 804]   CHECK_IF_PARCEL_OVERLAPS_STL
    Set   [pic_bc_routines.f, 847]     CHECK_IF_PARCEL_OVERLAPS_STL
    Use   [pic_bc_routines.f, 850]     CHECK_IF_PARCEL_OVERLAPS_STL

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

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 608]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 688]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 689]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 689]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 689]        STORE_A_V_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 604]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 685]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 686]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 686]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 686]        STORE_A_U_GDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 414]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 475]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 476]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 476]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 476]        CONV_DIF_PHI_DC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 604]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 684]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 685]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 685]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 685]        STORE_A_U_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 579]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 661]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 662]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 662]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 662]        STORE_A_W_GDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 588]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 669]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 670]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 670]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 670]        STORE_A_W_SDC

KPPP    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 604]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 685]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 686]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 686]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 686]        STORE_A_V_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_s.f, 608]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 689]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 762]        STORE_A_V_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_g.f, 604]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 686]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 758]        STORE_A_U_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_phi.f, 414]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 476]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 521]        CONV_DIF_PHI_DC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_u_s.f, 604]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 685]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 757]        STORE_A_U_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_g.f, 579]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 662]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 705]        STORE_A_W_GDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_w_s.f, 588]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 670]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 741]        STORE_A_W_SDC

KPPP4    (Local Variable)  Declared as: INTEGER
    Define   [conv_dif_v_g.f, 604]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 686]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 730]        STORE_A_V_GDC

kraw    (Local Variable)  Declared as: INTEGER
    Define   [cfassign.f, 206]         compute_volume_of_nodes
    Set   [cfassign.f, 231]            compute_volume_of_nodes
    Use   [cfassign.f, 245]            compute_volume_of_nodes
    Use   [cfassign.f, 245]            compute_volume_of_nodes
    Use   [cfassign.f, 253]            compute_volume_of_nodes
    Use   [cfassign.f, 301]            compute_volume_of_nodes

KREMAIN    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4093]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4436]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4437]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4438]   REPORT_BEST_IJK_SIZE

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

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

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

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

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

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

KSIZE    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4093]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4433]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4434]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4436]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4438]   REPORT_BEST_IJK_SIZE

KSIZE    (Local Variable)  Declared as: INTEGER
    Define   [leq_bicgst.f, 1026]      LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1096]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1100]         LEQ_MSOLVEt
    Set   [leq_bicgst.f, 1122]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1126]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1139]         LEQ_MSOLVEt
    Use Argument   [leq_bicgst.f, 1140]   LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1141]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1143]         LEQ_MSOLVEt
    Use   [leq_bicgst.f, 1145]         LEQ_MSOLVEt

KSIZE_OLD    (Local Variable)  Declared as: INTEGER
    Define   [check_data_cartesian.f, 4091]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4434]   REPORT_BEST_IJK_SIZE
    Set   [check_data_cartesian.f, 4438]   REPORT_BEST_IJK_SIZE
    Use   [check_data_cartesian.f, 4441]   REPORT_BEST_IJK_SIZE

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, 681]        leq_check
    Set   [leq_gmres.f, 688]           leq_check
    Set   [leq_gmres.f, 696]           leq_check
    Use   [leq_gmres.f, 702]           leq_check

KT_DES    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_force_dem.f, 62]    CALC_FORCE_DEM
    Set   [calc_force_dem.f, 180]      CALC_FORCE_DEM
    Set   [calc_force_dem.f, 188]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 204]      CALC_FORCE_DEM
    Use   [calc_force_dem.f, 212]      CALC_FORCE_DEM

Kth    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 466]        gt_pde_lun
    Set   [calc_mu_s.f, 528]           gt_pde_lun
    Use   [calc_mu_s.f, 532]           gt_pde_lun
    Use   [calc_mu_s.f, 537]           gt_pde_lun
    Use   [calc_mu_s.f, 539]           gt_pde_lun
    Use   [calc_mu_s.f, 542]           gt_pde_lun
    Use   [calc_mu_s.f, 544]           gt_pde_lun

Kth0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1176]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1248]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1253]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1261]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1325]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1327]          gt_pde_gtsh

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

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, 1421]       gt_pde_ia
    Set   [calc_mu_s.f, 1690]          gt_pde_ia
    Use   [calc_mu_s.f, 1708]          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, 971]        gt_pde_gd
    Set   [calc_mu_s.f, 1074]          gt_pde_gd
    Set   [calc_mu_s.f, 1076]          gt_pde_gd
    Set   [calc_mu_s.f, 1078]          gt_pde_gd
    Set   [calc_mu_s.f, 1082]          gt_pde_gd
    Use   [calc_mu_s.f, 1088]          gt_pde_gd
    Use   [calc_mu_s.f, 1106]          gt_pde_gd

Kth_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1408]       gt_pde_ia
    Set   [calc_mu_s.f, 1582]          gt_pde_ia
    Set   [calc_mu_s.f, 1584]          gt_pde_ia
    Set   [calc_mu_s.f, 1587]          gt_pde_ia
    Set   [calc_mu_s.f, 1591]          gt_pde_ia
    Use   [calc_mu_s.f, 1597]          gt_pde_ia

Kth_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 466]        gt_pde_lun
    Set   [calc_mu_s.f, 532]           gt_pde_lun
    Set   [calc_mu_s.f, 534]           gt_pde_lun
    Set   [calc_mu_s.f, 536]           gt_pde_lun
    Set   [calc_mu_s.f, 541]           gt_pde_lun
    Use   [calc_mu_s.f, 548]           gt_pde_lun

KthK    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1176]       gt_pde_gtsh
    Set   [calc_mu_s.f, 1252]          gt_pde_gtsh
    Set   [calc_mu_s.f, 1253]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1259]          gt_pde_gtsh
    Use   [calc_mu_s.f, 1327]          gt_pde_gtsh

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

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

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

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

KTP    (Local Variable)  Declared as: INTEGER
    Define   [comp_mean_fields0.f, 49]   COMP_MEAN_FIELDS0
    Set   [comp_mean_fields0.f, 130]   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