Object Cross Reference

X    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [ghdmassflux.f, 838]      Ur_JACOBI_EVAL
    Declare   [ghdmassflux.f, 847]     Ur_JACOBI_EVAL
    Use   [ghdmassflux.f, 873]         Ur_JACOBI_EVAL
    Use Argument   [ghdmassflux.f, 886]   Ur_JACOBI_EVAL
    Use Argument   [ghdmassflux.f, 889]   Ur_JACOBI_EVAL
    Use   [ghdmassflux.f, 898]         Ur_JACOBI_EVAL
    Use   [ghdmassflux.f, 902]         Ur_JACOBI_EVAL
    Use   [ghdmassflux.f, 911]         Ur_JACOBI_EVAL
    Use   [ghdmassflux.f, 916]         Ur_JACOBI_EVAL

X    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(INOUT)
    Define   [ghdmassflux.f, 771]      UrNEWT
    Declare   [ghdmassflux.f, 784]     UrNEWT
    Use Argument   [ghdmassflux.f, 801]   UrNEWT
    Set   [ghdmassflux.f, 822]         UrNEWT
    Use   [ghdmassflux.f, 822]         UrNEWT

x    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [rkqs.f, 1]               rkqs
    Declare   [rkqs.f, 10]             rkqs
    Use Argument   [rkqs.f, 27]        rkqs
    Use   [rkqs.f, 36]                 rkqs
    Use   [rkqs.f, 37]                 rkqs
    Set   [rkqs.f, 43]                 rkqs
    Use   [rkqs.f, 43]                 rkqs

x    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [rkck.f, 1]               rkck
    Declare   [rkck.f, 5]              rkck
    Use   [rkck.f, 23]                 rkck
    Use   [rkck.f, 27]                 rkck
    Use   [rkck.f, 31]                 rkck
    Use   [rkck.f, 35]                 rkck
    Use   [rkck.f, 40]                 rkck

X    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cooling_rate.f, 142]     FUNC_JACOBI_EVAL
    Declare   [cooling_rate.f, 150]    FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 185]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 185]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 185]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 185]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 186]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 186]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 186]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 196]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 217]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 225]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 225]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 225]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 225]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 226]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 226]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 226]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 226]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 227]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 227]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 227]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 227]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 227]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 228]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 228]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 229]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 229]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 229]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 229]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 229]        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, 236]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 236]        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, 237]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 237]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 237]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 239]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 239]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 239]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 239]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 239]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 246]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 247]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 247]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 249]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 252]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 254]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 261]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 262]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 262]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 263]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 264]        FUNC_JACOBI_EVAL
    Use   [cooling_rate.f, 264]        FUNC_JACOBI_EVAL

X    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cooling_rate.f, 69]      MNEWT
    Declare   [cooling_rate.f, 86]     MNEWT
    Use Argument   [cooling_rate.f, 102]   MNEWT
    Set   [cooling_rate.f, 120]        MNEWT
    Use   [cooling_rate.f, 120]        MNEWT

x    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [update_dashboard.f, 188]   WRITE_SIMPLE_PROGRESS_BAR
    Declare   [update_dashboard.f, 207]   WRITE_SIMPLE_PROGRESS_BAR
    Use   [update_dashboard.f, 220]    WRITE_SIMPLE_PROGRESS_BAR

x    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [odeint.f, 10]            odeint
    Set   [odeint.f, 12]               odeint
    Use   [odeint.f, 32]               odeint
    Use Argument   [odeint.f, 34]      odeint
    Use   [odeint.f, 40]               odeint
    Use   [odeint.f, 43]               odeint
    Use   [odeint.f, 47]               odeint
    Use   [odeint.f, 51]               odeint
    Use   [odeint.f, 51]               odeint
    Use   [odeint.f, 51]               odeint
    Use Argument   [odeint.f, 52]      odeint
    Use   [odeint.f, 58]               odeint
    Use   [odeint.f, 64]               odeint

x    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [source_population_eq.f, 2]   Source_population_eq
    Declare   [source_population_eq.f, 13]   Source_population_eq

X    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [BLAS.f, 2348]            DNRM2
    Declare   [BLAS.f, 2359]           DNRM2
    Use Argument   [BLAS.f, 2378]      DNRM2
    Use   [BLAS.f, 2387]               DNRM2
    Use Argument   [BLAS.f, 2388]      DNRM2

X    (Dummy Argument)  Declared as: COMPLEX
    Define   [BLAS.f, 2988]            SCNRM2
    Declare   [BLAS.f, 2999]           SCNRM2
    Use Argument   [BLAS.f, 3025]      SCNRM2
    Use Argument   [BLAS.f, 3026]      SCNRM2
    Use Argument   [BLAS.f, 3034]      SCNRM2
    Use Argument   [BLAS.f, 3035]      SCNRM2

X    (Dummy Argument)  Declared as: REAL
    Define   [BLAS.f, 3362]            SNRM2
    Declare   [BLAS.f, 3373]           SNRM2
    Use Argument   [BLAS.f, 3392]      SNRM2
    Use   [BLAS.f, 3401]               SNRM2
    Use Argument   [BLAS.f, 3402]      SNRM2

X0    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_delh.f, 18]          GET_DEL_H
    Declare   [get_delh.f, 36]         GET_DEL_H
    Use   [get_delh.f, 146]            GET_DEL_H

X0    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_delh.f, 176]         GET_DEL_H_DES
    Declare   [get_delh.f, 194]        GET_DEL_H_DES
    Use   [get_delh.f, 306]            GET_DEL_H_DES

X0    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_delh.f, 611]         GET_DISTANCE_TO_WALL
    Set   [get_delh.f, 761]            GET_DISTANCE_TO_WALL
    Use   [get_delh.f, 777]            GET_DISTANCE_TO_WALL
    Use   [get_delh.f, 800]            GET_DISTANCE_TO_WALL
    Use   [get_delh.f, 823]            GET_DISTANCE_TO_WALL
    Use   [get_delh.f, 838]            GET_DISTANCE_TO_WALL

X1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1484]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1553]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1564]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1567]   CAD_INTERSECT

x1    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 246]   EVAL_F
    Declare   [cut_cell_preprocessing.f, 259]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 282]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 289]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 291]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 314]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 318]   EVAL_F

x1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 373]   INTERSECT_LINE
    Set   [cut_cell_preprocessing.f, 382]   INTERSECT_LINE
    Use Argument   [cut_cell_preprocessing.f, 392]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 421]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 421]   INTERSECT_LINE

X1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_flags.f, 42]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 432]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 445]   SET_3D_CUT_CELL_FLAGS

x1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_data_cartesian.f, 1512]   BUILD_CONE_FOR_C2C
    Set   [check_data_cartesian.f, 1552]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1554]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1562]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1570]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1573]   BUILD_CONE_FOR_C2C
    Set   [check_data_cartesian.f, 1607]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1609]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1617]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1625]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1628]   BUILD_CONE_FOR_C2C

x1    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [eval_usr_fct.f, 19]      EVAL_USR_FCT
    Declare   [eval_usr_fct.f, 44]     EVAL_USR_FCT

x1    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 82]   GET_F_QUADRIC
    Declare   [define_quadrics.f, 90]   GET_F_QUADRIC
    Use   [define_quadrics.f, 110]     GET_F_QUADRIC
    Use   [define_quadrics.f, 110]     GET_F_QUADRIC
    Use   [define_quadrics.f, 121]     GET_F_QUADRIC
    Use   [define_quadrics.f, 121]     GET_F_QUADRIC
    Use   [define_quadrics.f, 130]     GET_F_QUADRIC
    Use   [define_quadrics.f, 134]     GET_F_QUADRIC
    Use   [define_quadrics.f, 146]     GET_F_QUADRIC
    Use   [define_quadrics.f, 173]     GET_F_QUADRIC
    Use   [define_quadrics.f, 213]     GET_F_QUADRIC
    Use   [define_quadrics.f, 279]     GET_F_QUADRIC
    Use   [define_quadrics.f, 335]     GET_F_QUADRIC
    Use   [define_quadrics.f, 347]     GET_F_QUADRIC
    Use   [define_quadrics.f, 361]     GET_F_QUADRIC
    Use   [define_quadrics.f, 382]     GET_F_QUADRIC
    Use   [define_quadrics.f, 419]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 505]   GET_F_QUADRIC
    Use   [define_quadrics.f, 530]     GET_F_QUADRIC
    Use   [define_quadrics.f, 535]     GET_F_QUADRIC
    Use   [define_quadrics.f, 562]     GET_F_QUADRIC
    Use   [define_quadrics.f, 567]     GET_F_QUADRIC

x1    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 618]   REASSSIGN_QUADRIC
    Declare   [define_quadrics.f, 625]   REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 641]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 641]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 652]     REASSSIGN_QUADRIC

X1    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_vort_out.f, 344]    BAIRSTOW
    Declare   [calc_vort_out.f, 355]   BAIRSTOW
    Set   [calc_vort_out.f, 417]       BAIRSTOW
    Set   [calc_vort_out.f, 434]       BAIRSTOW
    Set   [calc_vort_out.f, 439]       BAIRSTOW
    Use   [calc_vort_out.f, 466]       BAIRSTOW
    Use   [calc_vort_out.f, 467]       BAIRSTOW
    Set   [calc_vort_out.f, 468]       BAIRSTOW
    Use   [calc_vort_out.f, 478]       BAIRSTOW
    Use   [calc_vort_out.f, 479]       BAIRSTOW
    Set   [calc_vort_out.f, 480]       BAIRSTOW

x1    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 131]    EVAL_POLY_FCT
    Declare   [get_poly_data.f, 149]   EVAL_POLY_FCT
    Use   [get_poly_data.f, 198]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 198]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 215]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 216]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 227]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 227]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 247]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 249]       EVAL_POLY_FCT

x1    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [odeint.f, 2]             odeint
    Declare   [odeint.f, 7]            odeint
    Use   [odeint.f, 12]               odeint
    Use   [odeint.f, 13]               odeint
    Use   [odeint.f, 51]               odeint
    Use   [odeint.f, 58]               odeint

x12    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 684]     GET_STL_DATA
    Set   [get_stl_data.f, 867]        GET_STL_DATA
    Use   [get_stl_data.f, 876]        GET_STL_DATA
    Use   [get_stl_data.f, 877]        GET_STL_DATA

x13    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 684]     GET_STL_DATA
    Set   [get_stl_data.f, 871]        GET_STL_DATA
    Use   [get_stl_data.f, 876]        GET_STL_DATA
    Use   [get_stl_data.f, 878]        GET_STL_DATA

X2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1484]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1554]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1564]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1575]   CAD_INTERSECT

x2    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 246]   EVAL_F
    Declare   [cut_cell_preprocessing.f, 259]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 282]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 289]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 291]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 314]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 318]   EVAL_F

x2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 373]   INTERSECT_LINE
    Set   [cut_cell_preprocessing.f, 387]   INTERSECT_LINE
    Use Argument   [cut_cell_preprocessing.f, 393]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 421]   INTERSECT_LINE

X2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_flags.f, 42]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 440]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 445]   SET_3D_CUT_CELL_FLAGS

x2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_data_cartesian.f, 1512]   BUILD_CONE_FOR_C2C
    Set   [check_data_cartesian.f, 1553]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1554]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1562]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1571]   BUILD_CONE_FOR_C2C
    Set   [check_data_cartesian.f, 1608]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1609]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1617]   BUILD_CONE_FOR_C2C
    Use   [check_data_cartesian.f, 1626]   BUILD_CONE_FOR_C2C

x2    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [eval_usr_fct.f, 19]      EVAL_USR_FCT
    Declare   [eval_usr_fct.f, 44]     EVAL_USR_FCT

x2    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 82]   GET_F_QUADRIC
    Declare   [define_quadrics.f, 90]   GET_F_QUADRIC
    Use   [define_quadrics.f, 111]     GET_F_QUADRIC
    Use   [define_quadrics.f, 111]     GET_F_QUADRIC
    Use   [define_quadrics.f, 122]     GET_F_QUADRIC
    Use   [define_quadrics.f, 122]     GET_F_QUADRIC
    Use   [define_quadrics.f, 130]     GET_F_QUADRIC
    Use   [define_quadrics.f, 135]     GET_F_QUADRIC
    Use   [define_quadrics.f, 147]     GET_F_QUADRIC
    Use   [define_quadrics.f, 188]     GET_F_QUADRIC
    Use   [define_quadrics.f, 189]     GET_F_QUADRIC
    Use   [define_quadrics.f, 190]     GET_F_QUADRIC
    Use   [define_quadrics.f, 191]     GET_F_QUADRIC
    Use   [define_quadrics.f, 214]     GET_F_QUADRIC
    Use   [define_quadrics.f, 280]     GET_F_QUADRIC
    Use   [define_quadrics.f, 336]     GET_F_QUADRIC
    Use   [define_quadrics.f, 348]     GET_F_QUADRIC
    Use   [define_quadrics.f, 362]     GET_F_QUADRIC
    Use   [define_quadrics.f, 383]     GET_F_QUADRIC
    Use   [define_quadrics.f, 420]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 505]   GET_F_QUADRIC
    Use   [define_quadrics.f, 540]     GET_F_QUADRIC
    Use   [define_quadrics.f, 545]     GET_F_QUADRIC
    Use   [define_quadrics.f, 572]     GET_F_QUADRIC
    Use   [define_quadrics.f, 577]     GET_F_QUADRIC

x2    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 618]   REASSSIGN_QUADRIC
    Declare   [define_quadrics.f, 625]   REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 642]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 642]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 652]     REASSSIGN_QUADRIC

X2    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_vort_out.f, 344]    BAIRSTOW
    Declare   [calc_vort_out.f, 355]   BAIRSTOW
    Set   [calc_vort_out.f, 418]       BAIRSTOW
    Set   [calc_vort_out.f, 435]       BAIRSTOW
    Set   [calc_vort_out.f, 440]       BAIRSTOW
    Use   [calc_vort_out.f, 466]       BAIRSTOW
    Use   [calc_vort_out.f, 468]       BAIRSTOW
    Set   [calc_vort_out.f, 469]       BAIRSTOW
    Use   [calc_vort_out.f, 472]       BAIRSTOW
    Use   [calc_vort_out.f, 473]       BAIRSTOW
    Set   [calc_vort_out.f, 474]       BAIRSTOW
    Use   [calc_vort_out.f, 478]       BAIRSTOW
    Use   [calc_vort_out.f, 480]       BAIRSTOW
    Set   [calc_vort_out.f, 481]       BAIRSTOW

x2    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 131]    EVAL_POLY_FCT
    Declare   [get_poly_data.f, 149]   EVAL_POLY_FCT
    Use   [get_poly_data.f, 199]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 199]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 215]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 216]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 224]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 236]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 236]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 239]       EVAL_POLY_FCT

x2    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [odeint.f, 2]             odeint
    Declare   [odeint.f, 7]            odeint
    Use   [odeint.f, 13]               odeint
    Use   [odeint.f, 51]               odeint
    Use   [odeint.f, 51]               odeint
    Use   [odeint.f, 58]               odeint
    Use   [odeint.f, 58]               odeint

x3    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 246]   EVAL_F
    Declare   [cut_cell_preprocessing.f, 259]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 282]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 289]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 291]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 314]   EVAL_F
    Use Argument   [cut_cell_preprocessing.f, 318]   EVAL_F

x3    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 373]   INTERSECT_LINE
    Set   [cut_cell_preprocessing.f, 421]   INTERSECT_LINE
    Use Argument   [cut_cell_preprocessing.f, 425]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 437]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 450]   INTERSECT_LINE

x3    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [eval_usr_fct.f, 19]      EVAL_USR_FCT
    Declare   [eval_usr_fct.f, 44]     EVAL_USR_FCT

x3    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 82]   GET_F_QUADRIC
    Declare   [define_quadrics.f, 90]   GET_F_QUADRIC
    Use   [define_quadrics.f, 112]     GET_F_QUADRIC
    Use   [define_quadrics.f, 112]     GET_F_QUADRIC
    Use   [define_quadrics.f, 123]     GET_F_QUADRIC
    Use   [define_quadrics.f, 123]     GET_F_QUADRIC
    Use   [define_quadrics.f, 130]     GET_F_QUADRIC
    Use   [define_quadrics.f, 136]     GET_F_QUADRIC
    Use   [define_quadrics.f, 148]     GET_F_QUADRIC
    Use   [define_quadrics.f, 174]     GET_F_QUADRIC
    Use   [define_quadrics.f, 215]     GET_F_QUADRIC
    Use   [define_quadrics.f, 281]     GET_F_QUADRIC
    Use   [define_quadrics.f, 337]     GET_F_QUADRIC
    Use   [define_quadrics.f, 349]     GET_F_QUADRIC
    Use   [define_quadrics.f, 363]     GET_F_QUADRIC
    Use   [define_quadrics.f, 384]     GET_F_QUADRIC
    Use   [define_quadrics.f, 421]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 505]   GET_F_QUADRIC
    Use   [define_quadrics.f, 550]     GET_F_QUADRIC
    Use   [define_quadrics.f, 555]     GET_F_QUADRIC
    Use   [define_quadrics.f, 582]     GET_F_QUADRIC
    Use   [define_quadrics.f, 587]     GET_F_QUADRIC

x3    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 618]   REASSSIGN_QUADRIC
    Declare   [define_quadrics.f, 625]   REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 643]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 643]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 652]     REASSSIGN_QUADRIC

X3    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [calc_vort_out.f, 344]    BAIRSTOW
    Declare   [calc_vort_out.f, 355]   BAIRSTOW
    Set   [calc_vort_out.f, 419]       BAIRSTOW
    Set   [calc_vort_out.f, 457]       BAIRSTOW
    Set   [calc_vort_out.f, 459]       BAIRSTOW
    Use   [calc_vort_out.f, 472]       BAIRSTOW
    Use   [calc_vort_out.f, 474]       BAIRSTOW
    Set   [calc_vort_out.f, 475]       BAIRSTOW

x3    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 131]    EVAL_POLY_FCT
    Declare   [get_poly_data.f, 149]   EVAL_POLY_FCT

X_21    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 794]        gt_pde_simonin
    Set   [calc_mu_s.f, 866]           gt_pde_simonin
    Use   [calc_mu_s.f, 872]           gt_pde_simonin
    Use   [calc_mu_s.f, 873]           gt_pde_simonin

X_ACT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [test_lin_eq.f, 51]       TEST_LIN_EQ
    Set   [test_lin_eq.f, 71]          TEST_LIN_EQ
    Use   [test_lin_eq.f, 108]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 109]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 110]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 111]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 112]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 116]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 117]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 133]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 134]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 134]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 144]         TEST_LIN_EQ
    Use Argument   [test_lin_eq.f, 145]   TEST_LIN_EQ
    Use   [test_lin_eq.f, 167]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 170]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 170]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 171]         TEST_LIN_EQ

X_CONSTANT    (Local Variable)  Declared as: LOGICAL
    Define   [get_ps.f, 37]            GET_PS
    Set   [get_ps.f, 42]               GET_PS
    Set   [get_ps.f, 50]               GET_PS
    Set   [get_ps.f, 65]               GET_PS

X_CONSTANT    (Local Variable)  Declared as: LOGICAL
    Define   [set_icbc_flags.f, 398]   SET_BC_FLAGS_FLOW
    Set   [set_icbc_flags.f, 416]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 420]      SET_BC_FLAGS_FLOW

X_CONSTANT    (Dummy Argument)  Declared as: LOGICAL INTENT(IN)
    Define   [check_plane.f, 20]       CHECK_PLANE
    Declare   [check_plane.f, 33]      CHECK_PLANE
    Use   [check_plane.f, 48]          CHECK_PLANE

X_CONSTANT    (Local Variable)  Declared as: LOGICAL
    Define   [get_is.f, 37]            GET_IS
    Set   [get_is.f, 42]               GET_IS
    Set   [get_is.f, 50]               GET_IS
    Set   [get_is.f, 65]               GET_IS
    Use   [get_is.f, 132]              GET_IS
    Use Argument   [get_is.f, 134]     GET_IS

X_CONSTANT    (Local Variable)  Declared as: LOGICAL
    Define   [check_bc_geometry.f, 436]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 444]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 452]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 466]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 532]   CHECK_BC_GEOMETRY_FLOW

X_COPY    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_data_cartesian.f, 3360]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3521]   ADJUST_IJK_SIZE
    Use Argument   [check_data_cartesian.f, 3526]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3611]   ADJUST_IJK_SIZE
    Use Argument   [check_data_cartesian.f, 3616]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3683]   ADJUST_IJK_SIZE
    Use Argument   [check_data_cartesian.f, 3688]   ADJUST_IJK_SIZE

X_COPY    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_delh.f, 514]         TEST_DEL_H
    Set   [get_delh.f, 544]            TEST_DEL_H
    Use Argument   [get_delh.f, 552]   TEST_DEL_H
    Use   [get_delh.f, 560]            TEST_DEL_H

X_COPY    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [vtk_out.f, 1536]         WRITE_CUT_SURFACE_VTK
    Set   [vtk_out.f, 1574]            WRITE_CUT_SURFACE_VTK
    Set   [vtk_out.f, 1583]            WRITE_CUT_SURFACE_VTK
    Use   [vtk_out.f, 1589]            WRITE_CUT_SURFACE_VTK
    Use Argument   [vtk_out.f, 1601]   WRITE_CUT_SURFACE_VTK
    Use Argument   [vtk_out.f, 1603]   WRITE_CUT_SURFACE_VTK
    Use Argument   [vtk_out.f, 1605]   WRITE_CUT_SURFACE_VTK
    Use   [vtk_out.f, 1616]            WRITE_CUT_SURFACE_VTK

X_COPY    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_volume_area.f, 43]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 109]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 119]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 125]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 133]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 148]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 154]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 156]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 158]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 166]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 171]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 173]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 180]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 187]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 193]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 195]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 204]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 214]   GET_CUT_CELL_VOLUME_AND_AREAS

x_d    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 1115]         SUBGRID_DRAG_WALL
    Set   [drag_gs.f, 1121]            SUBGRID_DRAG_WALL
    Use   [drag_gs.f, 1125]            SUBGRID_DRAG_WALL

x_d    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2424]       subgrid_stress_wall
    Set   [calc_mu_s.f, 2432]          subgrid_stress_wall
    Use   [calc_mu_s.f, 2434]          subgrid_stress_wall
    Use   [calc_mu_s.f, 2436]          subgrid_stress_wall

x_dimid    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 740]       write_mesh_netcdf
    Use   [write_spx1.f, 796]          write_mesh_netcdf
    Set   [write_spx1.f, 796]          write_mesh_netcdf
    Use   [write_spx1.f, 802]          write_mesh_netcdf
    Use Argument   [write_spx1.f, 808]   write_mesh_netcdf

x_dimid    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 871]       write_netcdf
    Use   [write_spx1.f, 1000]         write_netcdf
    Set   [write_spx1.f, 1000]         write_netcdf
    Use Argument   [write_spx1.f, 1007]   write_netcdf
    Use   [write_spx1.f, 1013]         write_netcdf

x_east    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 159]    EVAL_POLY_FCT
    Set   [get_poly_data.f, 226]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 227]       EVAL_POLY_FCT

X_FACE_POINT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [vtk_out.f, 1532]         WRITE_CUT_SURFACE_VTK
    Set   [vtk_out.f, 1640]            WRITE_CUT_SURFACE_VTK
    Use   [vtk_out.f, 1666]            WRITE_CUT_SURFACE_VTK

X_IJ    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_p_star.f, 174]      CALC_ep_star
    Set   [calc_p_star.f, 260]         CALC_ep_star
    Set   [calc_p_star.f, 263]         CALC_ep_star
    Use   [calc_p_star.f, 286]         CALC_ep_star
    Use   [calc_p_star.f, 297]         CALC_ep_star

X_intersect    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 16]   GET_CONNECTIVITY
    Declare   [get_connectivity.f, 37]   GET_CONNECTIVITY
    Use   [get_connectivity.f, 125]    GET_CONNECTIVITY
    Use   [get_connectivity.f, 149]    GET_CONNECTIVITY
    Use   [get_connectivity.f, 176]    GET_CONNECTIVITY
    Use   [get_connectivity.f, 200]    GET_CONNECTIVITY

x_intersection    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 376]   INTERSECT_LINE
    Set   [cut_cell_preprocessing.f, 458]   INTERSECT_LINE

x_max    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [update_dashboard.f, 188]   WRITE_SIMPLE_PROGRESS_BAR
    Declare   [update_dashboard.f, 207]   WRITE_SIMPLE_PROGRESS_BAR
    Use   [update_dashboard.f, 210]    WRITE_SIMPLE_PROGRESS_BAR
    Use   [update_dashboard.f, 220]    WRITE_SIMPLE_PROGRESS_BAR

X_MEAN    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_delh.f, 345]         STORE_CUT_FACE_INFO
    Declare   [get_delh.f, 366]        STORE_CUT_FACE_INFO
    Use   [get_delh.f, 405]            STORE_CUT_FACE_INFO
    Use   [get_delh.f, 423]            STORE_CUT_FACE_INFO

X_MEAN    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_volume_area.f, 44]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 95]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 148]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 148]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 223]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 223]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 382]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 384]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 424]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 434]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 437]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 635]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 644]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 647]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 785]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 794]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 797]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 928]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 934]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 937]   GET_CUT_CELL_VOLUME_AND_AREAS

X_NP    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 15]   GET_CONNECTIVITY
    Declare   [get_connectivity.f, 36]   GET_CONNECTIVITY
    Set   [get_connectivity.f, 125]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 137]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 149]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 161]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 176]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 188]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 200]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 212]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 227]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 239]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 251]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 263]    GET_CONNECTIVITY

X_NP    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_volume_area.f, 15]   GET_CUT_CELL_VOLUME_AND_AREAS
    Declare   [get_cut_cell_volume_area.f, 56]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 109]   GET_CUT_CELL_VOLUME_AND_AREAS

X_OFFSET    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1490]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1515]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1521]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1527]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1533]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1567]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1575]   CAD_INTERSECT

X_OLD_POINT    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [get_cut_cell_flags.f, 36]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 50]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 627]   SET_3D_CUT_CELL_FLAGS

X_s_temp    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [solve_species_eq.f, 74]   SOLVE_SPECIES_EQ
    Set   [solve_species_eq.f, 193]    SOLVE_SPECIES_EQ
    Use   [solve_species_eq.f, 196]    SOLVE_SPECIES_EQ

X_SOL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [test_lin_eq.f, 51]       TEST_LIN_EQ
    Set   [test_lin_eq.f, 72]          TEST_LIN_EQ
    Use Argument   [test_lin_eq.f, 124]   TEST_LIN_EQ
    Use   [test_lin_eq.f, 134]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 135]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 144]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 167]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 173]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 173]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 174]         TEST_LIN_EQ

x_star    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 159]    EVAL_POLY_FCT
    Set   [get_poly_data.f, 239]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 247]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 249]       EVAL_POLY_FCT

X_VECTOR    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 97]   GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 505]   GET_F_QUADRIC
    Use   [define_quadrics.f, 507]     GET_F_QUADRIC

X_VERTEX_MAX    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 157]    EVAL_POLY_FCT
    Set   [get_poly_data.f, 193]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 198]       EVAL_POLY_FCT

X_VERTEX_MIN    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 157]    EVAL_POLY_FCT
    Set   [get_poly_data.f, 192]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 198]       EVAL_POLY_FCT

x_west    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 159]    EVAL_POLY_FCT
    Set   [get_poly_data.f, 225]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 227]       EVAL_POLY_FCT

xa    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1481]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1666]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1676]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1704]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1720]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1750]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1756]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1775]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1797]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1830]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1836]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1855]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1877]   CAD_INTERSECT

xa    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 732]   CLEAN_INTERSECT
    Set   [cut_cell_preprocessing.f, 800]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 808]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 812]   CLEAN_INTERSECT
    Set   [cut_cell_preprocessing.f, 872]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 876]   CLEAN_INTERSECT
    Set   [cut_cell_preprocessing.f, 940]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 944]   CLEAN_INTERSECT

xa    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 509]   INTERSECT
    Set   [cut_cell_preprocessing.f, 526]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 538]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 553]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 558]   INTERSECT
    Set   [cut_cell_preprocessing.f, 580]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 587]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 601]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 606]   INTERSECT
    Set   [cut_cell_preprocessing.f, 627]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 634]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 648]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 653]   INTERSECT

xa    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 358]   INTERSECT_LINE
    Declare   [cut_cell_preprocessing.f, 374]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 382]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 444]   INTERSECT_LINE
    Use Argument   [cut_cell_preprocessing.f, 446]   INTERSECT_LINE

xa    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1121]   SET_SNAP_FLAG
    Set   [cut_cell_preprocessing.f, 1160]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1169]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1173]   SET_SNAP_FLAG
    Set   [cut_cell_preprocessing.f, 1213]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1217]   SET_SNAP_FLAG
    Set   [cut_cell_preprocessing.f, 1265]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1269]   SET_SNAP_FLAG

xa    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 1180]    INTERSECT_LINE_WITH_FACET
    Declare   [get_stl_data.f, 1196]   INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1231]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1252]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1270]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1296]       INTERSECT_LINE_WITH_FACET

xb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1481]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1670]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1687]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1704]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1726]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1775]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1803]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1855]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1883]   CAD_INTERSECT

xb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 732]   CLEAN_INTERSECT
    Set   [cut_cell_preprocessing.f, 804]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 808]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 835]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 876]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 944]   CLEAN_INTERSECT

xb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 509]   INTERSECT
    Set   [cut_cell_preprocessing.f, 530]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 538]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 553]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 558]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 587]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 601]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 606]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 634]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 648]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 653]   INTERSECT

xb    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 358]   INTERSECT_LINE
    Declare   [cut_cell_preprocessing.f, 374]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 387]   INTERSECT_LINE
    Use   [cut_cell_preprocessing.f, 445]   INTERSECT_LINE
    Use Argument   [cut_cell_preprocessing.f, 447]   INTERSECT_LINE

xb    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1121]   SET_SNAP_FLAG
    Set   [cut_cell_preprocessing.f, 1164]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1169]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1187]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1217]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1269]   SET_SNAP_FLAG

xb    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 1180]    INTERSECT_LINE_WITH_FACET
    Declare   [get_stl_data.f, 1196]   INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1231]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1297]       INTERSECT_LINE_WITH_FACET

xc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1481]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1704]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1709]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1716]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1720]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1726]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1775]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1797]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1803]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1855]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1877]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1883]   CAD_INTERSECT

xc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 509]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 538]   INTERSECT
    Use   [cut_cell_preprocessing.f, 539]   INTERSECT
    Use   [cut_cell_preprocessing.f, 543]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 553]   INTERSECT
    Use   [cut_cell_preprocessing.f, 554]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 558]   INTERSECT
    Use   [cut_cell_preprocessing.f, 559]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 587]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 601]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 606]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 634]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 648]   INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 653]   INTERSECT

xc    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 358]   INTERSECT_LINE
    Declare   [cut_cell_preprocessing.f, 374]   INTERSECT_LINE
    Set   [cut_cell_preprocessing.f, 405]   INTERSECT_LINE
    Set   [cut_cell_preprocessing.f, 410]   INTERSECT_LINE
    Set   [cut_cell_preprocessing.f, 437]   INTERSECT_LINE
    Set   [cut_cell_preprocessing.f, 463]   INTERSECT_LINE

xc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_flags.f, 1868]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1891]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1901]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1903]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1905]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1907]   GET_POTENTIAL_CUT_CELLS

xc    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 1180]    INTERSECT_LINE_WITH_FACET
    Declare   [get_stl_data.f, 1196]   INTERSECT_LINE_WITH_FACET
    Set   [get_stl_data.f, 1278]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1296]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1297]       INTERSECT_LINE_WITH_FACET

Xc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_volume_area.f, 1221]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1275]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1280]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1280]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1285]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1285]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1351]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1353]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1368]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1370]   REORDER_POLYGON

Xc_backup    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 510]   INTERSECT
    Set   [cut_cell_preprocessing.f, 542]   INTERSECT

XCC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_data_cartesian.f, 3362]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3445]   ADJUST_IJK_SIZE
    Set   [check_data_cartesian.f, 3447]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3447]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3521]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3611]   ADJUST_IJK_SIZE
    Use   [check_data_cartesian.f, 3683]   ADJUST_IJK_SIZE

xdist    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cal_d.f, 37]             CAL_D
    Set   [cal_d.f, 46]                CAL_D
    Set   [cal_d.f, 47]                CAL_D
    Set   [cal_d.f, 49]                CAL_D
    Use   [cal_d.f, 49]                CAL_D
    Use   [cal_d.f, 57]                CAL_D
    Set   [cal_d.f, 78]                CAL_D

xdist3    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cal_d.f, 38]             CAL_D
    Set   [cal_d.f, 77]                CAL_D
    Set   [cal_d.f, 81]                CAL_D
    Use   [cal_d.f, 81]                CAL_D
    Use   [cal_d.f, 92]                CAL_D

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 332]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 373]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 388]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 403]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 418]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 439]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 449]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 459]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 469]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 479]    GET_CELL_NODE_COORDINATES

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 510]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 548]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 563]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 578]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 593]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 614]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 624]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 634]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 644]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 654]    GET_GLOBAL_CELL_NODE_COORDINATES

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 25]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 194]           GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 199]   GET_3D_ALPHA_U_CUT_CELL

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 429]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 607]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 614]   GET_3D_ALPHA_V_CUT_CELL

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 833]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 999]           GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 1005]   GET_3D_ALPHA_W_CUT_CELL

XE    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [vtk_out.f, 3092]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3097]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3128]            SETUP_VTK_REGION

Xi    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 709]   CLEAN_INTERSECT
    Declare   [cut_cell_preprocessing.f, 733]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 812]   CLEAN_INTERSECT
    Use   [cut_cell_preprocessing.f, 835]   CLEAN_INTERSECT

Xi    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 489]   INTERSECT
    Declare   [cut_cell_preprocessing.f, 510]   INTERSECT
    Set   [cut_cell_preprocessing.f, 513]   INTERSECT
    Use   [cut_cell_preprocessing.f, 539]   INTERSECT
    Use   [cut_cell_preprocessing.f, 542]   INTERSECT
    Set   [cut_cell_preprocessing.f, 543]   INTERSECT
    Set   [cut_cell_preprocessing.f, 547]   INTERSECT
    Set   [cut_cell_preprocessing.f, 554]   INTERSECT
    Set   [cut_cell_preprocessing.f, 559]   INTERSECT
    Set   [cut_cell_preprocessing.f, 571]   INTERSECT

Xi    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1098]   SET_SNAP_FLAG
    Declare   [cut_cell_preprocessing.f, 1122]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1173]   SET_SNAP_FLAG
    Use   [cut_cell_preprocessing.f, 1187]   SET_SNAP_FLAG

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 67]        CALC_TRD_G
    Set   [calc_trd_g.f, 160]          CALC_TRD_G
    Use Argument   [calc_trd_g.f, 167]   CALC_TRD_G
    Set   [calc_trd_g.f, 188]          CALC_TRD_G
    Use Argument   [calc_trd_g.f, 195]   CALC_TRD_G
    Set   [calc_trd_g.f, 231]          CALC_TRD_G
    Use Argument   [calc_trd_g.f, 238]   CALC_TRD_G

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 339]       CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 429]          CG_CALC_VEL_G_GRAD
    Use Argument   [calc_trd_g.f, 436]   CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 486]          CG_CALC_VEL_G_GRAD
    Use Argument   [calc_trd_g.f, 493]   CG_CALC_VEL_G_GRAD
    Set   [calc_trd_g.f, 553]          CG_CALC_VEL_G_GRAD
    Use Argument   [calc_trd_g.f, 560]   CG_CALC_VEL_G_GRAD

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_s.f, 296]          CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 424]             CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 430]    CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 441]             CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 447]    CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 495]             CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 501]    CALC_CG_TAU_V_S
    Set   [tau_v_s.f, 512]             CALC_CG_TAU_V_S
    Use Argument   [tau_v_s.f, 518]    CALC_CG_TAU_V_S

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_g.f, 294]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 459]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 465]    CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 477]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 483]    CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 522]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 528]    CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 540]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 547]    CALC_CG_TAU_U_G

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 68]        CALC_TRD_S
    Set   [calc_trd_s.f, 165]          CALC_TRD_S
    Use Argument   [calc_trd_s.f, 172]   CALC_TRD_S
    Set   [calc_trd_s.f, 193]          CALC_TRD_S
    Use Argument   [calc_trd_s.f, 200]   CALC_TRD_S
    Set   [calc_trd_s.f, 227]          CALC_TRD_S
    Use Argument   [calc_trd_s.f, 234]   CALC_TRD_S

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 327]       CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 430]          CG_CALC_VEL_S_GRAD
    Use Argument   [calc_trd_s.f, 437]   CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 485]          CG_CALC_VEL_S_GRAD
    Use Argument   [calc_trd_s.f, 492]   CG_CALC_VEL_S_GRAD
    Set   [calc_trd_s.f, 548]          CG_CALC_VEL_S_GRAD
    Use Argument   [calc_trd_s.f, 555]   CG_CALC_VEL_S_GRAD

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_s.f, 334]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 478]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 484]    CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 496]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 502]    CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 540]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 546]    CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 558]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 564]    CALC_CG_TAU_U_S

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 27]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 109]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 111]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 113]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 113]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 117]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 119]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 121]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 148]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 149]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 149]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 152]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 153]           GET_3D_ALPHA_U_CUT_CELL

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_w_g.f, 306]          CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 452]             CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 458]    CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 471]             CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 477]    CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 515]             CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 521]    CALC_CG_TAU_w_G
    Set   [tau_w_g.f, 534]             CALC_CG_TAU_w_G
    Use Argument   [tau_w_g.f, 540]    CALC_CG_TAU_w_G

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_w_s.f, 311]          CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 434]             CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 440]    CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 451]             CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 457]    CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 494]             CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 500]    CALC_CG_TAU_W_S
    Set   [tau_w_s.f, 511]             CALC_CG_TAU_W_S
    Use Argument   [tau_w_s.f, 517]    CALC_CG_TAU_W_S

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_v_g.f, 247]          CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 400]             CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 406]    CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 418]             CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 424]    CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 474]             CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 480]    CALC_CG_TAU_V_G
    Set   [tau_v_g.f, 493]             CALC_CG_TAU_V_G
    Use Argument   [tau_v_g.f, 499]    CALC_CG_TAU_V_G

XI_s_v    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1413]       gt_pde_ia
    Set   [calc_mu_s.f, 1569]          gt_pde_ia
    Use   [calc_mu_s.f, 1572]          gt_pde_ia

XI_sL_pB    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_w_s.f, 118]    CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 205]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 207]       CALC_IA_MOMSOURCE_W_S

XI_sL_pE    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_u_s.f, 118]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 204]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 206]       CALC_IA_MOMSOURCE_U_S

XI_sL_pN    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_v_s.f, 118]    CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 202]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 204]       CALC_IA_MOMSOURCE_V_S

XI_sL_pS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_v_s.f, 118]    CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 203]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 205]       CALC_IA_MOMSOURCE_V_S

XI_sL_pT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_w_s.f, 118]    CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 204]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 206]       CALC_IA_MOMSOURCE_W_S

XI_sL_pW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_u_s.f, 118]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 205]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 207]       CALC_IA_MOMSOURCE_U_S

XI_sM_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1413]       gt_pde_ia
    Set   [calc_mu_s.f, 1441]          gt_pde_ia
    Set   [calc_mu_s.f, 1559]          gt_pde_ia
    Use   [calc_mu_s.f, 1559]          gt_pde_ia
    Use   [calc_mu_s.f, 1569]          gt_pde_ia

Xint    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cut_cell_preprocessing.f, 1456]   CAD_INTERSECT
    Declare   [cut_cell_preprocessing.f, 1486]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1505]   CAD_INTERSECT
    Use   [cut_cell_preprocessing.f, 1709]   CAD_INTERSECT
    Set   [cut_cell_preprocessing.f, 1716]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1933]   CAD_INTERSECT
    Use Argument   [cut_cell_preprocessing.f, 1949]   CAD_INTERSECT

xloc    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [write_spx1.f, 746]       write_mesh_netcdf
    Set   [write_spx1.f, 765]          write_mesh_netcdf
    Set   [write_spx1.f, 772]          write_mesh_netcdf
    Set   [write_spx1.f, 778]          write_mesh_netcdf
    Set   [write_spx1.f, 780]          write_mesh_netcdf
    Use   [write_spx1.f, 780]          write_mesh_netcdf
    Use Argument   [write_spx1.f, 821]   write_mesh_netcdf
    Set   [write_spx1.f, 841]          write_mesh_netcdf

xloc    (Local Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [write_spx1.f, 901]       write_netcdf
    Set   [write_spx1.f, 933]          write_netcdf
    Set   [write_spx1.f, 944]          write_netcdf
    Set   [write_spx1.f, 953]          write_netcdf
    Set   [write_spx1.f, 955]          write_netcdf
    Use   [write_spx1.f, 955]          write_netcdf
    Use Argument   [write_spx1.f, 1094]   write_netcdf
    Set   [write_spx1.f, 1246]         write_netcdf

XMIN    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [write_out0.f, 930]       LOCATION
    Declare   [write_out0.f, 948]      LOCATION
    Use   [write_out0.f, 961]          LOCATION

XMT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 97]   GET_F_QUADRIC
    Set   [define_quadrics.f, 507]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 508]   GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 510]   GET_F_QUADRIC

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 835]   Accumulation
    Set   [check_mass_balance.f, 842]   Accumulation
    Use Argument   [check_mass_balance.f, 843]   Accumulation

Xn    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 858]   Accumulation_sp
    Declare   [check_mass_balance.f, 889]   Accumulation_sp
    Use   [check_mass_balance.f, 901]   Accumulation_sp

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 482]   Calc_mass_flux
    Set   [check_mass_balance.f, 491]   Calc_mass_flux
    Use Argument   [check_mass_balance.f, 492]   Calc_mass_flux

Xn    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 513]   Calc_mass_flux_sp
    Declare   [check_mass_balance.f, 538]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 565]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 567]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 573]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 575]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 581]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 583]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 589]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 591]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 597]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 599]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 605]   Calc_mass_flux_sp
    Use   [check_mass_balance.f, 607]   Calc_mass_flux_sp

Xn    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 690]   Calc_mass_flux_spHR
    Declare   [check_mass_balance.f, 714]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 738]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 753]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 753]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 758]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 758]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 763]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 763]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 768]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 768]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 773]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 773]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 778]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 778]   Calc_mass_flux_spHR

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [check_mass_balance.f, 659]   Calc_mass_fluxHR
    Set   [check_mass_balance.f, 668]   Calc_mass_fluxHR
    Use Argument   [check_mass_balance.f, 669]   Calc_mass_fluxHR

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 25]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 249]           GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 254]   GET_3D_ALPHA_U_CUT_CELL

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 429]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 650]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 656]   GET_3D_ALPHA_V_CUT_CELL

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 833]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 1051]          GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 1057]   GET_3D_ALPHA_W_CUT_CELL

xnew    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [rkqs.f, 16]              rkqs
    Set   [rkqs.f, 36]                 rkqs
    Use   [rkqs.f, 37]                 rkqs

xp    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [odeint.f, 11]            odeint
    Set   [odeint.f, 43]               odeint
    Set   [odeint.f, 64]               odeint

XPOS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [pic_bc_routines.f, 712]   PIC_FIND_NEW_CELL
    Set   [pic_bc_routines.f, 719]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 725]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 725]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 727]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 758]     PIC_FIND_NEW_CELL
    Use   [pic_bc_routines.f, 758]     PIC_FIND_NEW_CELL

XPOS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [cfwallcontact.f, 37]     CFWALLCONTACT
    Set   [cfwallcontact.f, 53]        CFWALLCONTACT
    Use   [cfwallcontact.f, 78]        CFWALLCONTACT
    Use   [cfwallcontact.f, 85]        CFWALLCONTACT

XPOS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [nsquare.f, 31]           NSQUARE
    Set   [nsquare.f, 62]              NSQUARE
    Set   [nsquare.f, 71]              NSQUARE
    Set   [nsquare.f, 74]              NSQUARE
    Use   [nsquare.f, 104]             NSQUARE

XREF    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_delh.f, 36]          GET_DEL_H
    Set   [get_delh.f, 55]             GET_DEL_H
    Set   [get_delh.f, 72]             GET_DEL_H
    Set   [get_delh.f, 97]             GET_DEL_H
    Set   [get_delh.f, 122]            GET_DEL_H
    Use   [get_delh.f, 146]            GET_DEL_H

XREF    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_delh.f, 194]         GET_DEL_H_DES
    Set   [get_delh.f, 216]            GET_DEL_H_DES
    Set   [get_delh.f, 233]            GET_DEL_H_DES
    Set   [get_delh.f, 258]            GET_DEL_H_DES
    Set   [get_delh.f, 283]            GET_DEL_H_DES
    Use   [get_delh.f, 306]            GET_DEL_H_DES

XREF    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_delh.f, 611]         GET_DISTANCE_TO_WALL
    Set   [get_delh.f, 773]            GET_DISTANCE_TO_WALL
    Use   [get_delh.f, 777]            GET_DISTANCE_TO_WALL
    Set   [get_delh.f, 796]            GET_DISTANCE_TO_WALL
    Use   [get_delh.f, 800]            GET_DISTANCE_TO_WALL
    Set   [get_delh.f, 819]            GET_DISTANCE_TO_WALL
    Use   [get_delh.f, 823]            GET_DISTANCE_TO_WALL
    Set   [get_delh.f, 834]            GET_DISTANCE_TO_WALL
    Use   [get_delh.f, 838]            GET_DISTANCE_TO_WALL

xsav    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [odeint.f, 10]            odeint
    Set   [odeint.f, 32]               odeint
    Use   [odeint.f, 40]               odeint
    Set   [odeint.f, 47]               odeint

XSI.CALC_XSI.cf    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 89]           XSI.CALC_XSI
    Set   [xsi_mod.f, 234]             XSI.CALC_XSI
    Use   [xsi_mod.f, 235]             XSI.CALC_XSI
    Set   [xsi_mod.f, 249]             XSI.CALC_XSI
    Use   [xsi_mod.f, 250]             XSI.CALC_XSI
    Set   [xsi_mod.f, 265]             XSI.CALC_XSI
    Use   [xsi_mod.f, 266]             XSI.CALC_XSI
    Set   [xsi_mod.f, 295]             XSI.CALC_XSI
    Use   [xsi_mod.f, 296]             XSI.CALC_XSI
    Set   [xsi_mod.f, 314]             XSI.CALC_XSI
    Use   [xsi_mod.f, 315]             XSI.CALC_XSI
    Set   [xsi_mod.f, 334]             XSI.CALC_XSI
    Use   [xsi_mod.f, 335]             XSI.CALC_XSI

XSI.CALC_XSI.DISCR    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [xsi_mod.f, 21]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 66]          XSI.CALC_XSI
    Use   [xsi_mod.f, 96]              XSI.CALC_XSI
    Use   [xsi_mod.f, 99]              XSI.CALC_XSI
    Use Argument   [xsi_mod.f, 549]    XSI.CALC_XSI

XSI.CALC_XSI.dwf    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 87]           XSI.CALC_XSI
    Set   [xsi_mod.f, 125]             XSI.CALC_XSI
    Use   [xsi_mod.f, 126]             XSI.CALC_XSI
    Set   [xsi_mod.f, 138]             XSI.CALC_XSI
    Use   [xsi_mod.f, 139]             XSI.CALC_XSI
    Set   [xsi_mod.f, 152]             XSI.CALC_XSI
    Use   [xsi_mod.f, 153]             XSI.CALC_XSI
    Set   [xsi_mod.f, 174]             XSI.CALC_XSI
    Set   [xsi_mod.f, 176]             XSI.CALC_XSI
    Use   [xsi_mod.f, 178]             XSI.CALC_XSI
    Set   [xsi_mod.f, 191]             XSI.CALC_XSI
    Set   [xsi_mod.f, 193]             XSI.CALC_XSI
    Use   [xsi_mod.f, 195]             XSI.CALC_XSI
    Set   [xsi_mod.f, 209]             XSI.CALC_XSI
    Set   [xsi_mod.f, 211]             XSI.CALC_XSI
    Use   [xsi_mod.f, 213]             XSI.CALC_XSI
    Set   [xsi_mod.f, 235]             XSI.CALC_XSI
    Use   [xsi_mod.f, 236]             XSI.CALC_XSI
    Set   [xsi_mod.f, 250]             XSI.CALC_XSI
    Use   [xsi_mod.f, 251]             XSI.CALC_XSI
    Set   [xsi_mod.f, 266]             XSI.CALC_XSI
    Use   [xsi_mod.f, 267]             XSI.CALC_XSI
    Set   [xsi_mod.f, 296]             XSI.CALC_XSI
    Use   [xsi_mod.f, 297]             XSI.CALC_XSI
    Set   [xsi_mod.f, 315]             XSI.CALC_XSI
    Use   [xsi_mod.f, 316]             XSI.CALC_XSI
    Set   [xsi_mod.f, 335]             XSI.CALC_XSI
    Use   [xsi_mod.f, 336]             XSI.CALC_XSI
    Set   [xsi_mod.f, 357]             XSI.CALC_XSI
    Set   [xsi_mod.f, 359]             XSI.CALC_XSI
    Use   [xsi_mod.f, 361]             XSI.CALC_XSI
    Set   [xsi_mod.f, 374]             XSI.CALC_XSI
    Set   [xsi_mod.f, 376]             XSI.CALC_XSI
    Use   [xsi_mod.f, 378]             XSI.CALC_XSI
    Set   [xsi_mod.f, 392]             XSI.CALC_XSI
    Set   [xsi_mod.f, 394]             XSI.CALC_XSI
    Use   [xsi_mod.f, 396]             XSI.CALC_XSI
    Set   [xsi_mod.f, 416]             XSI.CALC_XSI
    Use   [xsi_mod.f, 417]             XSI.CALC_XSI
    Set   [xsi_mod.f, 429]             XSI.CALC_XSI
    Use   [xsi_mod.f, 430]             XSI.CALC_XSI
    Set   [xsi_mod.f, 443]             XSI.CALC_XSI
    Use   [xsi_mod.f, 444]             XSI.CALC_XSI
    Set   [xsi_mod.f, 464]             XSI.CALC_XSI
    Use   [xsi_mod.f, 465]             XSI.CALC_XSI
    Set   [xsi_mod.f, 477]             XSI.CALC_XSI
    Use   [xsi_mod.f, 478]             XSI.CALC_XSI
    Set   [xsi_mod.f, 492]             XSI.CALC_XSI
    Use   [xsi_mod.f, 493]             XSI.CALC_XSI
    Set   [xsi_mod.f, 513]             XSI.CALC_XSI
    Use   [xsi_mod.f, 514]             XSI.CALC_XSI
    Set   [xsi_mod.f, 526]             XSI.CALC_XSI
    Use   [xsi_mod.f, 527]             XSI.CALC_XSI
    Set   [xsi_mod.f, 540]             XSI.CALC_XSI
    Use   [xsi_mod.f, 541]             XSI.CALC_XSI

XSI.CALC_XSI.I    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 83]           XSI.CALC_XSI
    Set   [xsi_mod.f, 223]             XSI.CALC_XSI
    Use   [xsi_mod.f, 234]             XSI.CALC_XSI
    Use   [xsi_mod.f, 265]             XSI.CALC_XSI
    Set   [xsi_mod.f, 280]             XSI.CALC_XSI
    Use   [xsi_mod.f, 285]             XSI.CALC_XSI
    Use   [xsi_mod.f, 286]             XSI.CALC_XSI
    Use   [xsi_mod.f, 291]             XSI.CALC_XSI
    Use   [xsi_mod.f, 292]             XSI.CALC_XSI
    Use   [xsi_mod.f, 295]             XSI.CALC_XSI
    Use   [xsi_mod.f, 296]             XSI.CALC_XSI
    Use   [xsi_mod.f, 334]             XSI.CALC_XSI

XSI.CALC_XSI.IJK    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 83]           XSI.CALC_XSI
    Set   [xsi_mod.f, 103]             XSI.CALC_XSI
    Use   [xsi_mod.f, 104]             XSI.CALC_XSI
    Use   [xsi_mod.f, 104]             XSI.CALC_XSI
    Use   [xsi_mod.f, 105]             XSI.CALC_XSI
    Use   [xsi_mod.f, 105]             XSI.CALC_XSI
    Use   [xsi_mod.f, 106]             XSI.CALC_XSI
    Use   [xsi_mod.f, 106]             XSI.CALC_XSI
    Set   [xsi_mod.f, 113]             XSI.CALC_XSI
    Use   [xsi_mod.f, 115]             XSI.CALC_XSI
    Use   [xsi_mod.f, 116]             XSI.CALC_XSI
    Use   [xsi_mod.f, 117]             XSI.CALC_XSI
    Use   [xsi_mod.f, 120]             XSI.CALC_XSI
    Use   [xsi_mod.f, 121]             XSI.CALC_XSI
    Use   [xsi_mod.f, 126]             XSI.CALC_XSI
    Use   [xsi_mod.f, 126]             XSI.CALC_XSI
    Use   [xsi_mod.f, 128]             XSI.CALC_XSI
    Use   [xsi_mod.f, 129]             XSI.CALC_XSI
    Use   [xsi_mod.f, 130]             XSI.CALC_XSI
    Use   [xsi_mod.f, 133]             XSI.CALC_XSI
    Use   [xsi_mod.f, 134]             XSI.CALC_XSI
    Use   [xsi_mod.f, 139]             XSI.CALC_XSI
    Use   [xsi_mod.f, 139]             XSI.CALC_XSI
    Use   [xsi_mod.f, 142]             XSI.CALC_XSI
    Use   [xsi_mod.f, 143]             XSI.CALC_XSI
    Use   [xsi_mod.f, 144]             XSI.CALC_XSI
    Use   [xsi_mod.f, 147]             XSI.CALC_XSI
    Use   [xsi_mod.f, 148]             XSI.CALC_XSI
    Use   [xsi_mod.f, 153]             XSI.CALC_XSI
    Use   [xsi_mod.f, 153]             XSI.CALC_XSI
    Set   [xsi_mod.f, 161]             XSI.CALC_XSI
    Use   [xsi_mod.f, 163]             XSI.CALC_XSI
    Use   [xsi_mod.f, 164]             XSI.CALC_XSI
    Use   [xsi_mod.f, 165]             XSI.CALC_XSI
    Use   [xsi_mod.f, 168]             XSI.CALC_XSI
    Use   [xsi_mod.f, 169]             XSI.CALC_XSI
    Use   [xsi_mod.f, 174]             XSI.CALC_XSI
    Use   [xsi_mod.f, 178]             XSI.CALC_XSI
    Use   [xsi_mod.f, 178]             XSI.CALC_XSI
    Use   [xsi_mod.f, 180]             XSI.CALC_XSI
    Use   [xsi_mod.f, 181]             XSI.CALC_XSI
    Use   [xsi_mod.f, 182]             XSI.CALC_XSI
    Use   [xsi_mod.f, 185]             XSI.CALC_XSI
    Use   [xsi_mod.f, 186]             XSI.CALC_XSI
    Use   [xsi_mod.f, 191]             XSI.CALC_XSI
    Use   [xsi_mod.f, 195]             XSI.CALC_XSI
    Use   [xsi_mod.f, 195]             XSI.CALC_XSI
    Use   [xsi_mod.f, 198]             XSI.CALC_XSI
    Use   [xsi_mod.f, 199]             XSI.CALC_XSI
    Use   [xsi_mod.f, 200]             XSI.CALC_XSI
    Use   [xsi_mod.f, 203]             XSI.CALC_XSI
    Use   [xsi_mod.f, 204]             XSI.CALC_XSI
    Use   [xsi_mod.f, 209]             XSI.CALC_XSI
    Use   [xsi_mod.f, 213]             XSI.CALC_XSI
    Use   [xsi_mod.f, 213]             XSI.CALC_XSI
    Set   [xsi_mod.f, 221]             XSI.CALC_XSI
    Use   [xsi_mod.f, 223]             XSI.CALC_XSI
    Use   [xsi_mod.f, 224]             XSI.CALC_XSI
    Use   [xsi_mod.f, 225]             XSI.CALC_XSI
    Use   [xsi_mod.f, 226]             XSI.CALC_XSI
    Use   [xsi_mod.f, 229]             XSI.CALC_XSI
    Use   [xsi_mod.f, 230]             XSI.CALC_XSI
    Use   [xsi_mod.f, 234]             XSI.CALC_XSI
    Use   [xsi_mod.f, 236]             XSI.CALC_XSI
    Use   [xsi_mod.f, 236]             XSI.CALC_XSI
    Use   [xsi_mod.f, 238]             XSI.CALC_XSI
    Use   [xsi_mod.f, 239]             XSI.CALC_XSI
    Use   [xsi_mod.f, 240]             XSI.CALC_XSI
    Use   [xsi_mod.f, 241]             XSI.CALC_XSI
    Use   [xsi_mod.f, 244]             XSI.CALC_XSI
    Use   [xsi_mod.f, 245]             XSI.CALC_XSI
    Use   [xsi_mod.f, 249]             XSI.CALC_XSI
    Use   [xsi_mod.f, 251]             XSI.CALC_XSI
    Use   [xsi_mod.f, 251]             XSI.CALC_XSI
    Use   [xsi_mod.f, 254]             XSI.CALC_XSI
    Use   [xsi_mod.f, 255]             XSI.CALC_XSI
    Use   [xsi_mod.f, 256]             XSI.CALC_XSI
    Use   [xsi_mod.f, 257]             XSI.CALC_XSI
    Use   [xsi_mod.f, 260]             XSI.CALC_XSI
    Use   [xsi_mod.f, 261]             XSI.CALC_XSI
    Use   [xsi_mod.f, 265]             XSI.CALC_XSI
    Use   [xsi_mod.f, 267]             XSI.CALC_XSI
    Use   [xsi_mod.f, 267]             XSI.CALC_XSI
    Set   [xsi_mod.f, 278]             XSI.CALC_XSI
    Use   [xsi_mod.f, 280]             XSI.CALC_XSI
    Use   [xsi_mod.f, 281]             XSI.CALC_XSI
    Use   [xsi_mod.f, 282]             XSI.CALC_XSI
    Use   [xsi_mod.f, 283]             XSI.CALC_XSI
    Use   [xsi_mod.f, 288]             XSI.CALC_XSI
    Use   [xsi_mod.f, 289]             XSI.CALC_XSI
    Use   [xsi_mod.f, 295]             XSI.CALC_XSI
    Use   [xsi_mod.f, 297]             XSI.CALC_XSI
    Use   [xsi_mod.f, 297]             XSI.CALC_XSI
    Use   [xsi_mod.f, 299]             XSI.CALC_XSI
    Use   [xsi_mod.f, 300]             XSI.CALC_XSI
    Use   [xsi_mod.f, 301]             XSI.CALC_XSI
    Use   [xsi_mod.f, 302]             XSI.CALC_XSI
    Use   [xsi_mod.f, 307]             XSI.CALC_XSI
    Use   [xsi_mod.f, 308]             XSI.CALC_XSI
    Use   [xsi_mod.f, 314]             XSI.CALC_XSI
    Use   [xsi_mod.f, 316]             XSI.CALC_XSI
    Use   [xsi_mod.f, 316]             XSI.CALC_XSI
    Use   [xsi_mod.f, 319]             XSI.CALC_XSI
    Use   [xsi_mod.f, 320]             XSI.CALC_XSI
    Use   [xsi_mod.f, 321]             XSI.CALC_XSI
    Use   [xsi_mod.f, 322]             XSI.CALC_XSI
    Use   [xsi_mod.f, 327]             XSI.CALC_XSI
    Use   [xsi_mod.f, 328]             XSI.CALC_XSI
    Use   [xsi_mod.f, 334]             XSI.CALC_XSI
    Use   [xsi_mod.f, 336]             XSI.CALC_XSI
    Use   [xsi_mod.f, 336]             XSI.CALC_XSI
    Set   [xsi_mod.f, 344]             XSI.CALC_XSI
    Use   [xsi_mod.f, 346]             XSI.CALC_XSI
    Use   [xsi_mod.f, 347]             XSI.CALC_XSI
    Use   [xsi_mod.f, 348]             XSI.CALC_XSI
    Use   [xsi_mod.f, 351]             XSI.CALC_XSI
    Use   [xsi_mod.f, 352]             XSI.CALC_XSI
    Use   [xsi_mod.f, 357]             XSI.CALC_XSI
    Use   [xsi_mod.f, 361]             XSI.CALC_XSI
    Use   [xsi_mod.f, 361]             XSI.CALC_XSI
    Use   [xsi_mod.f, 363]             XSI.CALC_XSI
    Use   [xsi_mod.f, 364]             XSI.CALC_XSI
    Use   [xsi_mod.f, 365]             XSI.CALC_XSI
    Use   [xsi_mod.f, 368]             XSI.CALC_XSI
    Use   [xsi_mod.f, 369]             XSI.CALC_XSI
    Use   [xsi_mod.f, 374]             XSI.CALC_XSI
    Use   [xsi_mod.f, 378]             XSI.CALC_XSI
    Use   [xsi_mod.f, 378]             XSI.CALC_XSI
    Use   [xsi_mod.f, 381]             XSI.CALC_XSI
    Use   [xsi_mod.f, 382]             XSI.CALC_XSI
    Use   [xsi_mod.f, 383]             XSI.CALC_XSI
    Use   [xsi_mod.f, 386]             XSI.CALC_XSI
    Use   [xsi_mod.f, 387]             XSI.CALC_XSI
    Use   [xsi_mod.f, 392]             XSI.CALC_XSI
    Use   [xsi_mod.f, 396]             XSI.CALC_XSI
    Use   [xsi_mod.f, 396]             XSI.CALC_XSI
    Set   [xsi_mod.f, 404]             XSI.CALC_XSI
    Use   [xsi_mod.f, 406]             XSI.CALC_XSI
    Use   [xsi_mod.f, 407]             XSI.CALC_XSI
    Use   [xsi_mod.f, 408]             XSI.CALC_XSI
    Use   [xsi_mod.f, 411]             XSI.CALC_XSI
    Use   [xsi_mod.f, 412]             XSI.CALC_XSI
    Use   [xsi_mod.f, 417]             XSI.CALC_XSI
    Use   [xsi_mod.f, 417]             XSI.CALC_XSI
    Use   [xsi_mod.f, 419]             XSI.CALC_XSI
    Use   [xsi_mod.f, 420]             XSI.CALC_XSI
    Use   [xsi_mod.f, 421]             XSI.CALC_XSI
    Use   [xsi_mod.f, 424]             XSI.CALC_XSI
    Use   [xsi_mod.f, 425]             XSI.CALC_XSI
    Use   [xsi_mod.f, 430]             XSI.CALC_XSI
    Use   [xsi_mod.f, 430]             XSI.CALC_XSI
    Use   [xsi_mod.f, 433]             XSI.CALC_XSI
    Use   [xsi_mod.f, 434]             XSI.CALC_XSI
    Use   [xsi_mod.f, 435]             XSI.CALC_XSI
    Use   [xsi_mod.f, 438]             XSI.CALC_XSI
    Use   [xsi_mod.f, 439]             XSI.CALC_XSI
    Use   [xsi_mod.f, 444]             XSI.CALC_XSI
    Use   [xsi_mod.f, 444]             XSI.CALC_XSI
    Set   [xsi_mod.f, 452]             XSI.CALC_XSI
    Use   [xsi_mod.f, 454]             XSI.CALC_XSI
    Use   [xsi_mod.f, 455]             XSI.CALC_XSI
    Use   [xsi_mod.f, 456]             XSI.CALC_XSI
    Use   [xsi_mod.f, 459]             XSI.CALC_XSI
    Use   [xsi_mod.f, 460]             XSI.CALC_XSI
    Use   [xsi_mod.f, 465]             XSI.CALC_XSI
    Use   [xsi_mod.f, 465]             XSI.CALC_XSI
    Use   [xsi_mod.f, 467]             XSI.CALC_XSI
    Use   [xsi_mod.f, 468]             XSI.CALC_XSI
    Use   [xsi_mod.f, 469]             XSI.CALC_XSI
    Use   [xsi_mod.f, 472]             XSI.CALC_XSI
    Use   [xsi_mod.f, 473]             XSI.CALC_XSI
    Use   [xsi_mod.f, 478]             XSI.CALC_XSI
    Use   [xsi_mod.f, 478]             XSI.CALC_XSI
    Use   [xsi_mod.f, 481]             XSI.CALC_XSI
    Use   [xsi_mod.f, 482]             XSI.CALC_XSI
    Use   [xsi_mod.f, 483]             XSI.CALC_XSI
    Use   [xsi_mod.f, 486]             XSI.CALC_XSI
    Use   [xsi_mod.f, 487]             XSI.CALC_XSI
    Use   [xsi_mod.f, 493]             XSI.CALC_XSI
    Use   [xsi_mod.f, 493]             XSI.CALC_XSI
    Set   [xsi_mod.f, 501]             XSI.CALC_XSI
    Use   [xsi_mod.f, 503]             XSI.CALC_XSI
    Use   [xsi_mod.f, 504]             XSI.CALC_XSI
    Use   [xsi_mod.f, 505]             XSI.CALC_XSI
    Use   [xsi_mod.f, 508]             XSI.CALC_XSI
    Use   [xsi_mod.f, 509]             XSI.CALC_XSI
    Use   [xsi_mod.f, 514]             XSI.CALC_XSI
    Use   [xsi_mod.f, 514]             XSI.CALC_XSI
    Use   [xsi_mod.f, 516]             XSI.CALC_XSI
    Use   [xsi_mod.f, 517]             XSI.CALC_XSI
    Use   [xsi_mod.f, 518]             XSI.CALC_XSI
    Use   [xsi_mod.f, 521]             XSI.CALC_XSI
    Use   [xsi_mod.f, 522]             XSI.CALC_XSI
    Use   [xsi_mod.f, 527]             XSI.CALC_XSI
    Use   [xsi_mod.f, 527]             XSI.CALC_XSI
    Use   [xsi_mod.f, 530]             XSI.CALC_XSI
    Use   [xsi_mod.f, 531]             XSI.CALC_XSI
    Use   [xsi_mod.f, 532]             XSI.CALC_XSI
    Use   [xsi_mod.f, 535]             XSI.CALC_XSI
    Use   [xsi_mod.f, 536]             XSI.CALC_XSI
    Use   [xsi_mod.f, 541]             XSI.CALC_XSI
    Use   [xsi_mod.f, 541]             XSI.CALC_XSI

XSI.CALC_XSI.IJKC    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 83]           XSI.CALC_XSI
    Set   [xsi_mod.f, 116]             XSI.CALC_XSI
    Use   [xsi_mod.f, 118]             XSI.CALC_XSI
    Set   [xsi_mod.f, 120]             XSI.CALC_XSI
    Use   [xsi_mod.f, 122]             XSI.CALC_XSI
    Use   [xsi_mod.f, 124]             XSI.CALC_XSI
    Set   [xsi_mod.f, 129]             XSI.CALC_XSI
    Use   [xsi_mod.f, 131]             XSI.CALC_XSI
    Set   [xsi_mod.f, 133]             XSI.CALC_XSI
    Use   [xsi_mod.f, 135]             XSI.CALC_XSI
    Use   [xsi_mod.f, 137]             XSI.CALC_XSI
    Set   [xsi_mod.f, 143]             XSI.CALC_XSI
    Use   [xsi_mod.f, 145]             XSI.CALC_XSI
    Set   [xsi_mod.f, 147]             XSI.CALC_XSI
    Use   [xsi_mod.f, 149]             XSI.CALC_XSI
    Use   [xsi_mod.f, 151]             XSI.CALC_XSI
    Set   [xsi_mod.f, 164]             XSI.CALC_XSI
    Use   [xsi_mod.f, 166]             XSI.CALC_XSI
    Set   [xsi_mod.f, 168]             XSI.CALC_XSI
    Use   [xsi_mod.f, 170]             XSI.CALC_XSI
    Use   [xsi_mod.f, 172]             XSI.CALC_XSI
    Set   [xsi_mod.f, 181]             XSI.CALC_XSI
    Use   [xsi_mod.f, 183]             XSI.CALC_XSI
    Set   [xsi_mod.f, 185]             XSI.CALC_XSI
    Use   [xsi_mod.f, 187]             XSI.CALC_XSI
    Use   [xsi_mod.f, 189]             XSI.CALC_XSI
    Set   [xsi_mod.f, 199]             XSI.CALC_XSI
    Use   [xsi_mod.f, 201]             XSI.CALC_XSI
    Set   [xsi_mod.f, 203]             XSI.CALC_XSI
    Use   [xsi_mod.f, 205]             XSI.CALC_XSI
    Use   [xsi_mod.f, 207]             XSI.CALC_XSI
    Set   [xsi_mod.f, 225]             XSI.CALC_XSI
    Use   [xsi_mod.f, 227]             XSI.CALC_XSI
    Set   [xsi_mod.f, 229]             XSI.CALC_XSI
    Use   [xsi_mod.f, 231]             XSI.CALC_XSI
    Use   [xsi_mod.f, 233]             XSI.CALC_XSI
    Set   [xsi_mod.f, 240]             XSI.CALC_XSI
    Use   [xsi_mod.f, 242]             XSI.CALC_XSI
    Set   [xsi_mod.f, 244]             XSI.CALC_XSI
    Use   [xsi_mod.f, 246]             XSI.CALC_XSI
    Use   [xsi_mod.f, 248]             XSI.CALC_XSI
    Set   [xsi_mod.f, 256]             XSI.CALC_XSI
    Use   [xsi_mod.f, 258]             XSI.CALC_XSI
    Set   [xsi_mod.f, 260]             XSI.CALC_XSI
    Use   [xsi_mod.f, 262]             XSI.CALC_XSI
    Use   [xsi_mod.f, 264]             XSI.CALC_XSI
    Set   [xsi_mod.f, 282]             XSI.CALC_XSI
    Use   [xsi_mod.f, 284]             XSI.CALC_XSI
    Set   [xsi_mod.f, 288]             XSI.CALC_XSI
    Use   [xsi_mod.f, 290]             XSI.CALC_XSI
    Use   [xsi_mod.f, 294]             XSI.CALC_XSI
    Set   [xsi_mod.f, 301]             XSI.CALC_XSI
    Use   [xsi_mod.f, 303]             XSI.CALC_XSI
    Set   [xsi_mod.f, 307]             XSI.CALC_XSI
    Use   [xsi_mod.f, 309]             XSI.CALC_XSI
    Use   [xsi_mod.f, 313]             XSI.CALC_XSI
    Set   [xsi_mod.f, 321]             XSI.CALC_XSI
    Use   [xsi_mod.f, 323]             XSI.CALC_XSI
    Set   [xsi_mod.f, 327]             XSI.CALC_XSI
    Use   [xsi_mod.f, 329]             XSI.CALC_XSI
    Use   [xsi_mod.f, 333]             XSI.CALC_XSI
    Set   [xsi_mod.f, 347]             XSI.CALC_XSI
    Use   [xsi_mod.f, 349]             XSI.CALC_XSI
    Set   [xsi_mod.f, 351]             XSI.CALC_XSI
    Use   [xsi_mod.f, 353]             XSI.CALC_XSI
    Use   [xsi_mod.f, 355]             XSI.CALC_XSI
    Set   [xsi_mod.f, 364]             XSI.CALC_XSI
    Use   [xsi_mod.f, 366]             XSI.CALC_XSI
    Set   [xsi_mod.f, 368]             XSI.CALC_XSI
    Use   [xsi_mod.f, 370]             XSI.CALC_XSI
    Use   [xsi_mod.f, 372]             XSI.CALC_XSI
    Set   [xsi_mod.f, 382]             XSI.CALC_XSI
    Use   [xsi_mod.f, 384]             XSI.CALC_XSI
    Set   [xsi_mod.f, 386]             XSI.CALC_XSI
    Use   [xsi_mod.f, 388]             XSI.CALC_XSI
    Use   [xsi_mod.f, 390]             XSI.CALC_XSI
    Set   [xsi_mod.f, 407]             XSI.CALC_XSI
    Use   [xsi_mod.f, 409]             XSI.CALC_XSI
    Set   [xsi_mod.f, 411]             XSI.CALC_XSI
    Use   [xsi_mod.f, 413]             XSI.CALC_XSI
    Use   [xsi_mod.f, 415]             XSI.CALC_XSI
    Set   [xsi_mod.f, 420]             XSI.CALC_XSI
    Use   [xsi_mod.f, 422]             XSI.CALC_XSI
    Set   [xsi_mod.f, 424]             XSI.CALC_XSI
    Use   [xsi_mod.f, 426]             XSI.CALC_XSI
    Use   [xsi_mod.f, 428]             XSI.CALC_XSI
    Set   [xsi_mod.f, 434]             XSI.CALC_XSI
    Use   [xsi_mod.f, 436]             XSI.CALC_XSI
    Set   [xsi_mod.f, 438]             XSI.CALC_XSI
    Use   [xsi_mod.f, 440]             XSI.CALC_XSI
    Use   [xsi_mod.f, 442]             XSI.CALC_XSI
    Set   [xsi_mod.f, 455]             XSI.CALC_XSI
    Use   [xsi_mod.f, 457]             XSI.CALC_XSI
    Set   [xsi_mod.f, 459]             XSI.CALC_XSI
    Use   [xsi_mod.f, 461]             XSI.CALC_XSI
    Use   [xsi_mod.f, 463]             XSI.CALC_XSI
    Set   [xsi_mod.f, 468]             XSI.CALC_XSI
    Use   [xsi_mod.f, 470]             XSI.CALC_XSI
    Set   [xsi_mod.f, 472]             XSI.CALC_XSI
    Use   [xsi_mod.f, 474]             XSI.CALC_XSI
    Use   [xsi_mod.f, 476]             XSI.CALC_XSI
    Set   [xsi_mod.f, 482]             XSI.CALC_XSI
    Use   [xsi_mod.f, 484]             XSI.CALC_XSI
    Set   [xsi_mod.f, 486]             XSI.CALC_XSI
    Use   [xsi_mod.f, 488]             XSI.CALC_XSI
    Use   [xsi_mod.f, 491]             XSI.CALC_XSI
    Set   [xsi_mod.f, 504]             XSI.CALC_XSI
    Use   [xsi_mod.f, 506]             XSI.CALC_XSI
    Set   [xsi_mod.f, 508]             XSI.CALC_XSI
    Use   [xsi_mod.f, 510]             XSI.CALC_XSI
    Use   [xsi_mod.f, 512]             XSI.CALC_XSI
    Set   [xsi_mod.f, 517]             XSI.CALC_XSI
    Use   [xsi_mod.f, 519]             XSI.CALC_XSI
    Set   [xsi_mod.f, 521]             XSI.CALC_XSI
    Use   [xsi_mod.f, 523]             XSI.CALC_XSI
    Use   [xsi_mod.f, 525]             XSI.CALC_XSI
    Set   [xsi_mod.f, 531]             XSI.CALC_XSI
    Use   [xsi_mod.f, 533]             XSI.CALC_XSI
    Set   [xsi_mod.f, 535]             XSI.CALC_XSI
    Use   [xsi_mod.f, 537]             XSI.CALC_XSI
    Use   [xsi_mod.f, 539]             XSI.CALC_XSI

XSI.CALC_XSI.IJKD    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 83]           XSI.CALC_XSI
    Set   [xsi_mod.f, 117]             XSI.CALC_XSI
    Set   [xsi_mod.f, 121]             XSI.CALC_XSI
    Use   [xsi_mod.f, 124]             XSI.CALC_XSI
    Set   [xsi_mod.f, 130]             XSI.CALC_XSI
    Set   [xsi_mod.f, 134]             XSI.CALC_XSI
    Use   [xsi_mod.f, 137]             XSI.CALC_XSI
    Set   [xsi_mod.f, 144]             XSI.CALC_XSI
    Set   [xsi_mod.f, 148]             XSI.CALC_XSI
    Use   [xsi_mod.f, 151]             XSI.CALC_XSI
    Set   [xsi_mod.f, 165]             XSI.CALC_XSI
    Set   [xsi_mod.f, 169]             XSI.CALC_XSI
    Use   [xsi_mod.f, 172]             XSI.CALC_XSI
    Set   [xsi_mod.f, 182]             XSI.CALC_XSI
    Set   [xsi_mod.f, 186]             XSI.CALC_XSI
    Use   [xsi_mod.f, 189]             XSI.CALC_XSI
    Set   [xsi_mod.f, 200]             XSI.CALC_XSI
    Set   [xsi_mod.f, 204]             XSI.CALC_XSI
    Use   [xsi_mod.f, 207]             XSI.CALC_XSI
    Set   [xsi_mod.f, 226]             XSI.CALC_XSI
    Set   [xsi_mod.f, 230]             XSI.CALC_XSI
    Use   [xsi_mod.f, 233]             XSI.CALC_XSI
    Set   [xsi_mod.f, 241]             XSI.CALC_XSI
    Set   [xsi_mod.f, 245]             XSI.CALC_XSI
    Use   [xsi_mod.f, 248]             XSI.CALC_XSI
    Set   [xsi_mod.f, 257]             XSI.CALC_XSI
    Set   [xsi_mod.f, 261]             XSI.CALC_XSI
    Use   [xsi_mod.f, 264]             XSI.CALC_XSI
    Set   [xsi_mod.f, 283]             XSI.CALC_XSI
    Set   [xsi_mod.f, 289]             XSI.CALC_XSI
    Use   [xsi_mod.f, 294]             XSI.CALC_XSI
    Set   [xsi_mod.f, 302]             XSI.CALC_XSI
    Set   [xsi_mod.f, 308]             XSI.CALC_XSI
    Use   [xsi_mod.f, 313]             XSI.CALC_XSI
    Set   [xsi_mod.f, 322]             XSI.CALC_XSI
    Set   [xsi_mod.f, 328]             XSI.CALC_XSI
    Use   [xsi_mod.f, 333]             XSI.CALC_XSI
    Set   [xsi_mod.f, 348]             XSI.CALC_XSI
    Set   [xsi_mod.f, 352]             XSI.CALC_XSI
    Use   [xsi_mod.f, 355]             XSI.CALC_XSI
    Set   [xsi_mod.f, 365]             XSI.CALC_XSI
    Set   [xsi_mod.f, 369]             XSI.CALC_XSI
    Use   [xsi_mod.f, 372]             XSI.CALC_XSI
    Set   [xsi_mod.f, 383]             XSI.CALC_XSI
    Set   [xsi_mod.f, 387]             XSI.CALC_XSI
    Use   [xsi_mod.f, 390]             XSI.CALC_XSI
    Set   [xsi_mod.f, 408]             XSI.CALC_XSI
    Set   [xsi_mod.f, 412]             XSI.CALC_XSI
    Use   [xsi_mod.f, 415]             XSI.CALC_XSI
    Set   [xsi_mod.f, 421]             XSI.CALC_XSI
    Set   [xsi_mod.f, 425]             XSI.CALC_XSI
    Use   [xsi_mod.f, 428]             XSI.CALC_XSI
    Set   [xsi_mod.f, 435]             XSI.CALC_XSI
    Set   [xsi_mod.f, 439]             XSI.CALC_XSI
    Use   [xsi_mod.f, 442]             XSI.CALC_XSI
    Set   [xsi_mod.f, 456]             XSI.CALC_XSI
    Set   [xsi_mod.f, 460]             XSI.CALC_XSI
    Use   [xsi_mod.f, 463]             XSI.CALC_XSI
    Set   [xsi_mod.f, 469]             XSI.CALC_XSI
    Set   [xsi_mod.f, 473]             XSI.CALC_XSI
    Use   [xsi_mod.f, 476]             XSI.CALC_XSI
    Set   [xsi_mod.f, 483]             XSI.CALC_XSI
    Set   [xsi_mod.f, 487]             XSI.CALC_XSI
    Use   [xsi_mod.f, 491]             XSI.CALC_XSI
    Set   [xsi_mod.f, 505]             XSI.CALC_XSI
    Set   [xsi_mod.f, 509]             XSI.CALC_XSI
    Use   [xsi_mod.f, 512]             XSI.CALC_XSI
    Set   [xsi_mod.f, 518]             XSI.CALC_XSI
    Set   [xsi_mod.f, 522]             XSI.CALC_XSI
    Use   [xsi_mod.f, 525]             XSI.CALC_XSI
    Set   [xsi_mod.f, 532]             XSI.CALC_XSI
    Set   [xsi_mod.f, 536]             XSI.CALC_XSI
    Use   [xsi_mod.f, 539]             XSI.CALC_XSI

XSI.CALC_XSI.IJKU    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 83]           XSI.CALC_XSI
    Set   [xsi_mod.f, 118]             XSI.CALC_XSI
    Set   [xsi_mod.f, 122]             XSI.CALC_XSI
    Use   [xsi_mod.f, 124]             XSI.CALC_XSI
    Set   [xsi_mod.f, 131]             XSI.CALC_XSI
    Set   [xsi_mod.f, 135]             XSI.CALC_XSI
    Use   [xsi_mod.f, 137]             XSI.CALC_XSI
    Set   [xsi_mod.f, 145]             XSI.CALC_XSI
    Set   [xsi_mod.f, 149]             XSI.CALC_XSI
    Use   [xsi_mod.f, 151]             XSI.CALC_XSI
    Set   [xsi_mod.f, 166]             XSI.CALC_XSI
    Set   [xsi_mod.f, 170]             XSI.CALC_XSI
    Use   [xsi_mod.f, 172]             XSI.CALC_XSI
    Set   [xsi_mod.f, 183]             XSI.CALC_XSI
    Set   [xsi_mod.f, 187]             XSI.CALC_XSI
    Use   [xsi_mod.f, 189]             XSI.CALC_XSI
    Set   [xsi_mod.f, 201]             XSI.CALC_XSI
    Set   [xsi_mod.f, 205]             XSI.CALC_XSI
    Use   [xsi_mod.f, 207]             XSI.CALC_XSI
    Set   [xsi_mod.f, 227]             XSI.CALC_XSI
    Set   [xsi_mod.f, 231]             XSI.CALC_XSI
    Use   [xsi_mod.f, 233]             XSI.CALC_XSI
    Set   [xsi_mod.f, 242]             XSI.CALC_XSI
    Set   [xsi_mod.f, 246]             XSI.CALC_XSI
    Use   [xsi_mod.f, 248]             XSI.CALC_XSI
    Set   [xsi_mod.f, 258]             XSI.CALC_XSI
    Set   [xsi_mod.f, 262]             XSI.CALC_XSI
    Use   [xsi_mod.f, 264]             XSI.CALC_XSI
    Set   [xsi_mod.f, 284]             XSI.CALC_XSI
    Set   [xsi_mod.f, 290]             XSI.CALC_XSI
    Use   [xsi_mod.f, 294]             XSI.CALC_XSI
    Set   [xsi_mod.f, 303]             XSI.CALC_XSI
    Set   [xsi_mod.f, 309]             XSI.CALC_XSI
    Use   [xsi_mod.f, 313]             XSI.CALC_XSI
    Set   [xsi_mod.f, 323]             XSI.CALC_XSI
    Set   [xsi_mod.f, 329]             XSI.CALC_XSI
    Use   [xsi_mod.f, 333]             XSI.CALC_XSI
    Set   [xsi_mod.f, 349]             XSI.CALC_XSI
    Set   [xsi_mod.f, 353]             XSI.CALC_XSI
    Use   [xsi_mod.f, 355]             XSI.CALC_XSI
    Set   [xsi_mod.f, 366]             XSI.CALC_XSI
    Set   [xsi_mod.f, 370]             XSI.CALC_XSI
    Use   [xsi_mod.f, 372]             XSI.CALC_XSI
    Set   [xsi_mod.f, 384]             XSI.CALC_XSI
    Set   [xsi_mod.f, 388]             XSI.CALC_XSI
    Use   [xsi_mod.f, 390]             XSI.CALC_XSI
    Set   [xsi_mod.f, 409]             XSI.CALC_XSI
    Set   [xsi_mod.f, 413]             XSI.CALC_XSI
    Use   [xsi_mod.f, 415]             XSI.CALC_XSI
    Set   [xsi_mod.f, 422]             XSI.CALC_XSI
    Set   [xsi_mod.f, 426]             XSI.CALC_XSI
    Use   [xsi_mod.f, 428]             XSI.CALC_XSI
    Set   [xsi_mod.f, 436]             XSI.CALC_XSI
    Set   [xsi_mod.f, 440]             XSI.CALC_XSI
    Use   [xsi_mod.f, 442]             XSI.CALC_XSI
    Set   [xsi_mod.f, 457]             XSI.CALC_XSI
    Set   [xsi_mod.f, 461]             XSI.CALC_XSI
    Use   [xsi_mod.f, 463]             XSI.CALC_XSI
    Set   [xsi_mod.f, 470]             XSI.CALC_XSI
    Set   [xsi_mod.f, 474]             XSI.CALC_XSI
    Use   [xsi_mod.f, 476]             XSI.CALC_XSI
    Set   [xsi_mod.f, 484]             XSI.CALC_XSI
    Set   [xsi_mod.f, 488]             XSI.CALC_XSI
    Use   [xsi_mod.f, 491]             XSI.CALC_XSI
    Set   [xsi_mod.f, 506]             XSI.CALC_XSI
    Set   [xsi_mod.f, 510]             XSI.CALC_XSI
    Use   [xsi_mod.f, 512]             XSI.CALC_XSI
    Set   [xsi_mod.f, 519]             XSI.CALC_XSI
    Set   [xsi_mod.f, 523]             XSI.CALC_XSI
    Use   [xsi_mod.f, 525]             XSI.CALC_XSI
    Set   [xsi_mod.f, 533]             XSI.CALC_XSI
    Set   [xsi_mod.f, 537]             XSI.CALC_XSI
    Use   [xsi_mod.f, 539]             XSI.CALC_XSI

XSI.CALC_XSI.incr    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [xsi_mod.f, 22]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 78]          XSI.CALC_XSI
    Use   [xsi_mod.f, 96]              XSI.CALC_XSI

XSI.CALC_XSI.J    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 83]           XSI.CALC_XSI
    Set   [xsi_mod.f, 238]             XSI.CALC_XSI
    Use   [xsi_mod.f, 249]             XSI.CALC_XSI
    Set   [xsi_mod.f, 299]             XSI.CALC_XSI
    Use   [xsi_mod.f, 304]             XSI.CALC_XSI
    Use   [xsi_mod.f, 305]             XSI.CALC_XSI
    Use   [xsi_mod.f, 310]             XSI.CALC_XSI
    Use   [xsi_mod.f, 311]             XSI.CALC_XSI
    Use   [xsi_mod.f, 314]             XSI.CALC_XSI
    Use   [xsi_mod.f, 315]             XSI.CALC_XSI

XSI.CALC_XSI.K    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 83]           XSI.CALC_XSI
    Set   [xsi_mod.f, 254]             XSI.CALC_XSI
    Use   [xsi_mod.f, 265]             XSI.CALC_XSI
    Set   [xsi_mod.f, 319]             XSI.CALC_XSI
    Use   [xsi_mod.f, 324]             XSI.CALC_XSI
    Use   [xsi_mod.f, 325]             XSI.CALC_XSI
    Use   [xsi_mod.f, 330]             XSI.CALC_XSI
    Use   [xsi_mod.f, 331]             XSI.CALC_XSI
    Use   [xsi_mod.f, 334]             XSI.CALC_XSI
    Use   [xsi_mod.f, 335]             XSI.CALC_XSI

XSI.CALC_XSI.oDXc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 91]           XSI.CALC_XSI
    Set   [xsi_mod.f, 285]             XSI.CALC_XSI
    Set   [xsi_mod.f, 291]             XSI.CALC_XSI
    Use   [xsi_mod.f, 296]             XSI.CALC_XSI

XSI.CALC_XSI.oDXuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 91]           XSI.CALC_XSI
    Set   [xsi_mod.f, 286]             XSI.CALC_XSI
    Set   [xsi_mod.f, 292]             XSI.CALC_XSI
    Use   [xsi_mod.f, 296]             XSI.CALC_XSI

XSI.CALC_XSI.oDYc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 91]           XSI.CALC_XSI
    Set   [xsi_mod.f, 304]             XSI.CALC_XSI
    Set   [xsi_mod.f, 310]             XSI.CALC_XSI
    Use   [xsi_mod.f, 315]             XSI.CALC_XSI

XSI.CALC_XSI.oDYuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 91]           XSI.CALC_XSI
    Set   [xsi_mod.f, 305]             XSI.CALC_XSI
    Set   [xsi_mod.f, 311]             XSI.CALC_XSI
    Use   [xsi_mod.f, 315]             XSI.CALC_XSI

XSI.CALC_XSI.oDZc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 91]           XSI.CALC_XSI
    Set   [xsi_mod.f, 324]             XSI.CALC_XSI
    Set   [xsi_mod.f, 330]             XSI.CALC_XSI
    Use   [xsi_mod.f, 335]             XSI.CALC_XSI

XSI.CALC_XSI.oDZuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 91]           XSI.CALC_XSI
    Set   [xsi_mod.f, 325]             XSI.CALC_XSI
    Set   [xsi_mod.f, 331]             XSI.CALC_XSI
    Use   [xsi_mod.f, 335]             XSI.CALC_XSI

XSI.CALC_XSI.PHI    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 21]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 68]          XSI.CALC_XSI
    Use   [xsi_mod.f, 96]              XSI.CALC_XSI
    Use   [xsi_mod.f, 124]             XSI.CALC_XSI
    Use   [xsi_mod.f, 124]             XSI.CALC_XSI
    Use   [xsi_mod.f, 124]             XSI.CALC_XSI
    Use   [xsi_mod.f, 137]             XSI.CALC_XSI
    Use   [xsi_mod.f, 137]             XSI.CALC_XSI
    Use   [xsi_mod.f, 137]             XSI.CALC_XSI
    Use   [xsi_mod.f, 151]             XSI.CALC_XSI
    Use   [xsi_mod.f, 151]             XSI.CALC_XSI
    Use   [xsi_mod.f, 151]             XSI.CALC_XSI
    Use   [xsi_mod.f, 172]             XSI.CALC_XSI
    Use   [xsi_mod.f, 172]             XSI.CALC_XSI
    Use   [xsi_mod.f, 172]             XSI.CALC_XSI
    Use   [xsi_mod.f, 189]             XSI.CALC_XSI
    Use   [xsi_mod.f, 189]             XSI.CALC_XSI
    Use   [xsi_mod.f, 189]             XSI.CALC_XSI
    Use   [xsi_mod.f, 207]             XSI.CALC_XSI
    Use   [xsi_mod.f, 207]             XSI.CALC_XSI
    Use   [xsi_mod.f, 207]             XSI.CALC_XSI
    Use   [xsi_mod.f, 233]             XSI.CALC_XSI
    Use   [xsi_mod.f, 233]             XSI.CALC_XSI
    Use   [xsi_mod.f, 233]             XSI.CALC_XSI
    Use   [xsi_mod.f, 248]             XSI.CALC_XSI
    Use   [xsi_mod.f, 248]             XSI.CALC_XSI
    Use   [xsi_mod.f, 248]             XSI.CALC_XSI
    Use   [xsi_mod.f, 264]             XSI.CALC_XSI
    Use   [xsi_mod.f, 264]             XSI.CALC_XSI
    Use   [xsi_mod.f, 264]             XSI.CALC_XSI
    Use   [xsi_mod.f, 294]             XSI.CALC_XSI
    Use   [xsi_mod.f, 294]             XSI.CALC_XSI
    Use   [xsi_mod.f, 294]             XSI.CALC_XSI
    Use   [xsi_mod.f, 313]             XSI.CALC_XSI
    Use   [xsi_mod.f, 313]             XSI.CALC_XSI
    Use   [xsi_mod.f, 313]             XSI.CALC_XSI
    Use   [xsi_mod.f, 333]             XSI.CALC_XSI
    Use   [xsi_mod.f, 333]             XSI.CALC_XSI
    Use   [xsi_mod.f, 333]             XSI.CALC_XSI
    Use   [xsi_mod.f, 355]             XSI.CALC_XSI
    Use   [xsi_mod.f, 355]             XSI.CALC_XSI
    Use   [xsi_mod.f, 355]             XSI.CALC_XSI
    Use   [xsi_mod.f, 372]             XSI.CALC_XSI
    Use   [xsi_mod.f, 372]             XSI.CALC_XSI
    Use   [xsi_mod.f, 372]             XSI.CALC_XSI
    Use   [xsi_mod.f, 390]             XSI.CALC_XSI
    Use   [xsi_mod.f, 390]             XSI.CALC_XSI
    Use   [xsi_mod.f, 390]             XSI.CALC_XSI
    Use   [xsi_mod.f, 415]             XSI.CALC_XSI
    Use   [xsi_mod.f, 415]             XSI.CALC_XSI
    Use   [xsi_mod.f, 415]             XSI.CALC_XSI
    Use   [xsi_mod.f, 428]             XSI.CALC_XSI
    Use   [xsi_mod.f, 428]             XSI.CALC_XSI
    Use   [xsi_mod.f, 428]             XSI.CALC_XSI
    Use   [xsi_mod.f, 442]             XSI.CALC_XSI
    Use   [xsi_mod.f, 442]             XSI.CALC_XSI
    Use   [xsi_mod.f, 442]             XSI.CALC_XSI
    Use   [xsi_mod.f, 463]             XSI.CALC_XSI
    Use   [xsi_mod.f, 463]             XSI.CALC_XSI
    Use   [xsi_mod.f, 463]             XSI.CALC_XSI
    Use   [xsi_mod.f, 476]             XSI.CALC_XSI
    Use   [xsi_mod.f, 476]             XSI.CALC_XSI
    Use   [xsi_mod.f, 476]             XSI.CALC_XSI
    Use   [xsi_mod.f, 491]             XSI.CALC_XSI
    Use   [xsi_mod.f, 491]             XSI.CALC_XSI
    Use   [xsi_mod.f, 491]             XSI.CALC_XSI
    Use   [xsi_mod.f, 512]             XSI.CALC_XSI
    Use   [xsi_mod.f, 512]             XSI.CALC_XSI
    Use   [xsi_mod.f, 512]             XSI.CALC_XSI
    Use   [xsi_mod.f, 525]             XSI.CALC_XSI
    Use   [xsi_mod.f, 525]             XSI.CALC_XSI
    Use   [xsi_mod.f, 525]             XSI.CALC_XSI
    Use   [xsi_mod.f, 539]             XSI.CALC_XSI
    Use   [xsi_mod.f, 539]             XSI.CALC_XSI
    Use   [xsi_mod.f, 539]             XSI.CALC_XSI

XSI.CALC_XSI.PHI_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 85]           XSI.CALC_XSI
    Set   [xsi_mod.f, 124]             XSI.CALC_XSI
    Use   [xsi_mod.f, 125]             XSI.CALC_XSI
    Set   [xsi_mod.f, 137]             XSI.CALC_XSI
    Use   [xsi_mod.f, 138]             XSI.CALC_XSI
    Set   [xsi_mod.f, 151]             XSI.CALC_XSI
    Use   [xsi_mod.f, 152]             XSI.CALC_XSI
    Set   [xsi_mod.f, 172]             XSI.CALC_XSI
    Use   [xsi_mod.f, 174]             XSI.CALC_XSI
    Use   [xsi_mod.f, 176]             XSI.CALC_XSI
    Set   [xsi_mod.f, 189]             XSI.CALC_XSI
    Use   [xsi_mod.f, 191]             XSI.CALC_XSI
    Use   [xsi_mod.f, 193]             XSI.CALC_XSI
    Set   [xsi_mod.f, 207]             XSI.CALC_XSI
    Use   [xsi_mod.f, 209]             XSI.CALC_XSI
    Use   [xsi_mod.f, 211]             XSI.CALC_XSI
    Set   [xsi_mod.f, 233]             XSI.CALC_XSI
    Use   [xsi_mod.f, 235]             XSI.CALC_XSI
    Set   [xsi_mod.f, 248]             XSI.CALC_XSI
    Use   [xsi_mod.f, 250]             XSI.CALC_XSI
    Set   [xsi_mod.f, 264]             XSI.CALC_XSI
    Use   [xsi_mod.f, 266]             XSI.CALC_XSI
    Set   [xsi_mod.f, 294]             XSI.CALC_XSI
    Use   [xsi_mod.f, 296]             XSI.CALC_XSI
    Set   [xsi_mod.f, 313]             XSI.CALC_XSI
    Use   [xsi_mod.f, 315]             XSI.CALC_XSI
    Set   [xsi_mod.f, 333]             XSI.CALC_XSI
    Use   [xsi_mod.f, 335]             XSI.CALC_XSI
    Set   [xsi_mod.f, 355]             XSI.CALC_XSI
    Use   [xsi_mod.f, 357]             XSI.CALC_XSI
    Use   [xsi_mod.f, 359]             XSI.CALC_XSI
    Set   [xsi_mod.f, 372]             XSI.CALC_XSI
    Use   [xsi_mod.f, 374]             XSI.CALC_XSI
    Use   [xsi_mod.f, 376]             XSI.CALC_XSI
    Set   [xsi_mod.f, 390]             XSI.CALC_XSI
    Use   [xsi_mod.f, 392]             XSI.CALC_XSI
    Use   [xsi_mod.f, 394]             XSI.CALC_XSI
    Set   [xsi_mod.f, 415]             XSI.CALC_XSI
    Use   [xsi_mod.f, 416]             XSI.CALC_XSI
    Set   [xsi_mod.f, 428]             XSI.CALC_XSI
    Use   [xsi_mod.f, 429]             XSI.CALC_XSI
    Set   [xsi_mod.f, 442]             XSI.CALC_XSI
    Use   [xsi_mod.f, 443]             XSI.CALC_XSI
    Set   [xsi_mod.f, 463]             XSI.CALC_XSI
    Use   [xsi_mod.f, 464]             XSI.CALC_XSI
    Set   [xsi_mod.f, 476]             XSI.CALC_XSI
    Use   [xsi_mod.f, 477]             XSI.CALC_XSI
    Set   [xsi_mod.f, 491]             XSI.CALC_XSI
    Use   [xsi_mod.f, 492]             XSI.CALC_XSI
    Set   [xsi_mod.f, 512]             XSI.CALC_XSI
    Use   [xsi_mod.f, 513]             XSI.CALC_XSI
    Set   [xsi_mod.f, 525]             XSI.CALC_XSI
    Use   [xsi_mod.f, 526]             XSI.CALC_XSI
    Set   [xsi_mod.f, 539]             XSI.CALC_XSI
    Use   [xsi_mod.f, 540]             XSI.CALC_XSI

XSI.CALC_XSI.U    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 21]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 70]          XSI.CALC_XSI
    Use   [xsi_mod.f, 96]              XSI.CALC_XSI
    Use   [xsi_mod.f, 104]             XSI.CALC_XSI
    Use   [xsi_mod.f, 115]             XSI.CALC_XSI
    Use   [xsi_mod.f, 126]             XSI.CALC_XSI
    Use   [xsi_mod.f, 163]             XSI.CALC_XSI
    Use   [xsi_mod.f, 178]             XSI.CALC_XSI
    Use   [xsi_mod.f, 224]             XSI.CALC_XSI
    Use   [xsi_mod.f, 234]             XSI.CALC_XSI
    Use   [xsi_mod.f, 236]             XSI.CALC_XSI
    Use   [xsi_mod.f, 281]             XSI.CALC_XSI
    Use   [xsi_mod.f, 295]             XSI.CALC_XSI
    Use   [xsi_mod.f, 297]             XSI.CALC_XSI
    Use   [xsi_mod.f, 346]             XSI.CALC_XSI
    Use   [xsi_mod.f, 361]             XSI.CALC_XSI
    Use   [xsi_mod.f, 406]             XSI.CALC_XSI
    Use   [xsi_mod.f, 417]             XSI.CALC_XSI
    Use   [xsi_mod.f, 454]             XSI.CALC_XSI
    Use   [xsi_mod.f, 465]             XSI.CALC_XSI
    Use   [xsi_mod.f, 503]             XSI.CALC_XSI
    Use   [xsi_mod.f, 514]             XSI.CALC_XSI

XSI.CALC_XSI.V    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 21]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 71]          XSI.CALC_XSI
    Use   [xsi_mod.f, 96]              XSI.CALC_XSI
    Use   [xsi_mod.f, 105]             XSI.CALC_XSI
    Use   [xsi_mod.f, 128]             XSI.CALC_XSI
    Use   [xsi_mod.f, 139]             XSI.CALC_XSI
    Use   [xsi_mod.f, 180]             XSI.CALC_XSI
    Use   [xsi_mod.f, 195]             XSI.CALC_XSI
    Use   [xsi_mod.f, 239]             XSI.CALC_XSI
    Use   [xsi_mod.f, 249]             XSI.CALC_XSI
    Use   [xsi_mod.f, 251]             XSI.CALC_XSI
    Use   [xsi_mod.f, 300]             XSI.CALC_XSI
    Use   [xsi_mod.f, 314]             XSI.CALC_XSI
    Use   [xsi_mod.f, 316]             XSI.CALC_XSI
    Use   [xsi_mod.f, 363]             XSI.CALC_XSI
    Use   [xsi_mod.f, 378]             XSI.CALC_XSI
    Use   [xsi_mod.f, 419]             XSI.CALC_XSI
    Use   [xsi_mod.f, 430]             XSI.CALC_XSI
    Use   [xsi_mod.f, 467]             XSI.CALC_XSI
    Use   [xsi_mod.f, 478]             XSI.CALC_XSI
    Use   [xsi_mod.f, 516]             XSI.CALC_XSI
    Use   [xsi_mod.f, 527]             XSI.CALC_XSI

XSI.CALC_XSI.W    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 21]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 72]          XSI.CALC_XSI
    Use   [xsi_mod.f, 96]              XSI.CALC_XSI
    Use   [xsi_mod.f, 106]             XSI.CALC_XSI
    Use   [xsi_mod.f, 142]             XSI.CALC_XSI
    Use   [xsi_mod.f, 153]             XSI.CALC_XSI
    Use   [xsi_mod.f, 198]             XSI.CALC_XSI
    Use   [xsi_mod.f, 213]             XSI.CALC_XSI
    Use   [xsi_mod.f, 255]             XSI.CALC_XSI
    Use   [xsi_mod.f, 265]             XSI.CALC_XSI
    Use   [xsi_mod.f, 267]             XSI.CALC_XSI
    Use   [xsi_mod.f, 320]             XSI.CALC_XSI
    Use   [xsi_mod.f, 334]             XSI.CALC_XSI
    Use   [xsi_mod.f, 336]             XSI.CALC_XSI
    Use   [xsi_mod.f, 381]             XSI.CALC_XSI
    Use   [xsi_mod.f, 396]             XSI.CALC_XSI
    Use   [xsi_mod.f, 433]             XSI.CALC_XSI
    Use   [xsi_mod.f, 444]             XSI.CALC_XSI
    Use   [xsi_mod.f, 481]             XSI.CALC_XSI
    Use   [xsi_mod.f, 493]             XSI.CALC_XSI
    Use   [xsi_mod.f, 530]             XSI.CALC_XSI
    Use   [xsi_mod.f, 541]             XSI.CALC_XSI

XSI.CALC_XSI.XSI_e    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 21]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 74]          XSI.CALC_XSI
    Set   [xsi_mod.f, 96]              XSI.CALC_XSI
    Set   [xsi_mod.f, 104]             XSI.CALC_XSI
    Set   [xsi_mod.f, 126]             XSI.CALC_XSI
    Set   [xsi_mod.f, 178]             XSI.CALC_XSI
    Set   [xsi_mod.f, 236]             XSI.CALC_XSI
    Set   [xsi_mod.f, 297]             XSI.CALC_XSI
    Set   [xsi_mod.f, 361]             XSI.CALC_XSI
    Set   [xsi_mod.f, 417]             XSI.CALC_XSI
    Set   [xsi_mod.f, 465]             XSI.CALC_XSI
    Set   [xsi_mod.f, 514]             XSI.CALC_XSI
    Use Argument   [xsi_mod.f, 561]    XSI.CALC_XSI

XSI.CALC_XSI.XSI_n    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 21]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 75]          XSI.CALC_XSI
    Set   [xsi_mod.f, 96]              XSI.CALC_XSI
    Set   [xsi_mod.f, 105]             XSI.CALC_XSI
    Set   [xsi_mod.f, 139]             XSI.CALC_XSI
    Set   [xsi_mod.f, 195]             XSI.CALC_XSI
    Set   [xsi_mod.f, 251]             XSI.CALC_XSI
    Set   [xsi_mod.f, 316]             XSI.CALC_XSI
    Set   [xsi_mod.f, 378]             XSI.CALC_XSI
    Set   [xsi_mod.f, 430]             XSI.CALC_XSI
    Set   [xsi_mod.f, 478]             XSI.CALC_XSI
    Set   [xsi_mod.f, 527]             XSI.CALC_XSI
    Use Argument   [xsi_mod.f, 562]    XSI.CALC_XSI

XSI.CALC_XSI.XSI_t    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 21]           XSI.CALC_XSI
    Declare   [xsi_mod.f, 76]          XSI.CALC_XSI
    Set   [xsi_mod.f, 96]              XSI.CALC_XSI
    Set   [xsi_mod.f, 106]             XSI.CALC_XSI
    Set   [xsi_mod.f, 153]             XSI.CALC_XSI
    Set   [xsi_mod.f, 213]             XSI.CALC_XSI
    Set   [xsi_mod.f, 267]             XSI.CALC_XSI
    Set   [xsi_mod.f, 336]             XSI.CALC_XSI
    Set   [xsi_mod.f, 396]             XSI.CALC_XSI
    Set   [xsi_mod.f, 444]             XSI.CALC_XSI
    Set   [xsi_mod.f, 493]             XSI.CALC_XSI
    Set   [xsi_mod.f, 541]             XSI.CALC_XSI
    Use Argument   [xsi_mod.f, 563]    XSI.CALC_XSI

XSI.CXS.DISCR    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 596]         XSI.CXS
    Use   [xsi_mod.f, 682]             XSI.CXS
    Use   [xsi_mod.f, 754]             XSI.CXS
    Use   [xsi_mod.f, 826]             XSI.CXS

XSI.CXS.DWFE    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 609]          XSI.CXS
    Set   [xsi_mod.f, 682]             XSI.CXS
    Use   [xsi_mod.f, 684]             XSI.CXS
    Set   [xsi_mod.f, 754]             XSI.CXS
    Use   [xsi_mod.f, 756]             XSI.CXS
    Set   [xsi_mod.f, 826]             XSI.CXS
    Use   [xsi_mod.f, 828]             XSI.CXS

XSI.CXS.DWFN    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 609]          XSI.CXS
    Set   [xsi_mod.f, 682]             XSI.CXS
    Use   [xsi_mod.f, 685]             XSI.CXS
    Set   [xsi_mod.f, 754]             XSI.CXS
    Use   [xsi_mod.f, 757]             XSI.CXS
    Set   [xsi_mod.f, 826]             XSI.CXS
    Use   [xsi_mod.f, 829]             XSI.CXS

XSI.CXS.DWFT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 609]          XSI.CXS
    Set   [xsi_mod.f, 677]             XSI.CXS
    Set   [xsi_mod.f, 682]             XSI.CXS
    Use   [xsi_mod.f, 686]             XSI.CXS
    Set   [xsi_mod.f, 749]             XSI.CXS
    Set   [xsi_mod.f, 754]             XSI.CXS
    Use   [xsi_mod.f, 758]             XSI.CXS
    Set   [xsi_mod.f, 821]             XSI.CXS
    Set   [xsi_mod.f, 826]             XSI.CXS
    Use   [xsi_mod.f, 830]             XSI.CXS

XSI.CXS.I    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 613]          XSI.CXS
    Set   [xsi_mod.f, 624]             XSI.CXS
    Use   [xsi_mod.f, 632]             XSI.CXS
    Use   [xsi_mod.f, 633]             XSI.CXS
    Use   [xsi_mod.f, 638]             XSI.CXS
    Use   [xsi_mod.f, 640]             XSI.CXS
    Use   [xsi_mod.f, 641]             XSI.CXS

XSI.CXS.IJK    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 613]          XSI.CXS
    Set   [xsi_mod.f, 622]             XSI.CXS
    Use   [xsi_mod.f, 624]             XSI.CXS
    Use   [xsi_mod.f, 625]             XSI.CXS
    Use   [xsi_mod.f, 625]             XSI.CXS
    Use   [xsi_mod.f, 625]             XSI.CXS
    Use   [xsi_mod.f, 627]             XSI.CXS
    Use   [xsi_mod.f, 628]             XSI.CXS
    Use   [xsi_mod.f, 629]             XSI.CXS
    Use   [xsi_mod.f, 635]             XSI.CXS
    Use   [xsi_mod.f, 636]             XSI.CXS
    Use   [xsi_mod.f, 644]             XSI.CXS
    Use   [xsi_mod.f, 645]             XSI.CXS
    Use   [xsi_mod.f, 646]             XSI.CXS
    Use   [xsi_mod.f, 652]             XSI.CXS
    Use   [xsi_mod.f, 653]             XSI.CXS
    Use   [xsi_mod.f, 661]             XSI.CXS
    Use   [xsi_mod.f, 662]             XSI.CXS
    Use   [xsi_mod.f, 663]             XSI.CXS
    Use   [xsi_mod.f, 666]             XSI.CXS
    Use   [xsi_mod.f, 667]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Use   [xsi_mod.f, 684]             XSI.CXS
    Use   [xsi_mod.f, 684]             XSI.CXS
    Use   [xsi_mod.f, 685]             XSI.CXS
    Use   [xsi_mod.f, 685]             XSI.CXS
    Use   [xsi_mod.f, 686]             XSI.CXS
    Use   [xsi_mod.f, 686]             XSI.CXS
    Use   [xsi_mod.f, 688]             XSI.CXS
    Use   [xsi_mod.f, 688]             XSI.CXS
    Use   [xsi_mod.f, 688]             XSI.CXS
    Set   [xsi_mod.f, 697]             XSI.CXS
    Use   [xsi_mod.f, 699]             XSI.CXS
    Use   [xsi_mod.f, 699]             XSI.CXS
    Use   [xsi_mod.f, 699]             XSI.CXS
    Use   [xsi_mod.f, 700]             XSI.CXS
    Use   [xsi_mod.f, 701]             XSI.CXS
    Use   [xsi_mod.f, 702]             XSI.CXS
    Use   [xsi_mod.f, 708]             XSI.CXS
    Use   [xsi_mod.f, 709]             XSI.CXS
    Use   [xsi_mod.f, 716]             XSI.CXS
    Use   [xsi_mod.f, 717]             XSI.CXS
    Use   [xsi_mod.f, 718]             XSI.CXS
    Use   [xsi_mod.f, 724]             XSI.CXS
    Use   [xsi_mod.f, 725]             XSI.CXS
    Use   [xsi_mod.f, 733]             XSI.CXS
    Use   [xsi_mod.f, 734]             XSI.CXS
    Use   [xsi_mod.f, 735]             XSI.CXS
    Use   [xsi_mod.f, 738]             XSI.CXS
    Use   [xsi_mod.f, 739]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Use   [xsi_mod.f, 756]             XSI.CXS
    Use   [xsi_mod.f, 756]             XSI.CXS
    Use   [xsi_mod.f, 757]             XSI.CXS
    Use   [xsi_mod.f, 757]             XSI.CXS
    Use   [xsi_mod.f, 758]             XSI.CXS
    Use   [xsi_mod.f, 758]             XSI.CXS
    Use   [xsi_mod.f, 760]             XSI.CXS
    Use   [xsi_mod.f, 760]             XSI.CXS
    Use   [xsi_mod.f, 760]             XSI.CXS
    Set   [xsi_mod.f, 769]             XSI.CXS
    Use   [xsi_mod.f, 771]             XSI.CXS
    Use   [xsi_mod.f, 771]             XSI.CXS
    Use   [xsi_mod.f, 771]             XSI.CXS
    Use   [xsi_mod.f, 772]             XSI.CXS
    Use   [xsi_mod.f, 773]             XSI.CXS
    Use   [xsi_mod.f, 774]             XSI.CXS
    Use   [xsi_mod.f, 780]             XSI.CXS
    Use   [xsi_mod.f, 781]             XSI.CXS
    Use   [xsi_mod.f, 788]             XSI.CXS
    Use   [xsi_mod.f, 789]             XSI.CXS
    Use   [xsi_mod.f, 790]             XSI.CXS
    Use   [xsi_mod.f, 796]             XSI.CXS
    Use   [xsi_mod.f, 797]             XSI.CXS
    Use   [xsi_mod.f, 805]             XSI.CXS
    Use   [xsi_mod.f, 806]             XSI.CXS
    Use   [xsi_mod.f, 807]             XSI.CXS
    Use   [xsi_mod.f, 810]             XSI.CXS
    Use   [xsi_mod.f, 811]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS
    Use   [xsi_mod.f, 828]             XSI.CXS
    Use   [xsi_mod.f, 828]             XSI.CXS
    Use   [xsi_mod.f, 829]             XSI.CXS
    Use   [xsi_mod.f, 829]             XSI.CXS
    Use   [xsi_mod.f, 830]             XSI.CXS
    Use   [xsi_mod.f, 830]             XSI.CXS
    Use   [xsi_mod.f, 832]             XSI.CXS
    Use   [xsi_mod.f, 832]             XSI.CXS
    Use   [xsi_mod.f, 832]             XSI.CXS

XSI.CXS.IJKC    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 613]          XSI.CXS
    Set   [xsi_mod.f, 628]             XSI.CXS
    Use   [xsi_mod.f, 630]             XSI.CXS
    Use   [xsi_mod.f, 631]             XSI.CXS
    Set   [xsi_mod.f, 635]             XSI.CXS
    Use   [xsi_mod.f, 637]             XSI.CXS
    Use   [xsi_mod.f, 638]             XSI.CXS
    Set   [xsi_mod.f, 645]             XSI.CXS
    Use   [xsi_mod.f, 647]             XSI.CXS
    Use   [xsi_mod.f, 648]             XSI.CXS
    Set   [xsi_mod.f, 652]             XSI.CXS
    Use   [xsi_mod.f, 654]             XSI.CXS
    Use   [xsi_mod.f, 655]             XSI.CXS
    Set   [xsi_mod.f, 662]             XSI.CXS
    Use   [xsi_mod.f, 664]             XSI.CXS
    Set   [xsi_mod.f, 666]             XSI.CXS
    Use   [xsi_mod.f, 668]             XSI.CXS
    Use   [xsi_mod.f, 670]             XSI.CXS
    Set   [xsi_mod.f, 701]             XSI.CXS
    Use   [xsi_mod.f, 703]             XSI.CXS
    Use   [xsi_mod.f, 704]             XSI.CXS
    Set   [xsi_mod.f, 708]             XSI.CXS
    Use   [xsi_mod.f, 710]             XSI.CXS
    Use   [xsi_mod.f, 711]             XSI.CXS
    Set   [xsi_mod.f, 717]             XSI.CXS
    Use   [xsi_mod.f, 719]             XSI.CXS
    Use   [xsi_mod.f, 720]             XSI.CXS
    Set   [xsi_mod.f, 724]             XSI.CXS
    Use   [xsi_mod.f, 726]             XSI.CXS
    Use   [xsi_mod.f, 727]             XSI.CXS
    Set   [xsi_mod.f, 734]             XSI.CXS
    Use   [xsi_mod.f, 736]             XSI.CXS
    Set   [xsi_mod.f, 738]             XSI.CXS
    Use   [xsi_mod.f, 740]             XSI.CXS
    Use   [xsi_mod.f, 742]             XSI.CXS
    Set   [xsi_mod.f, 773]             XSI.CXS
    Use   [xsi_mod.f, 775]             XSI.CXS
    Use   [xsi_mod.f, 776]             XSI.CXS
    Set   [xsi_mod.f, 780]             XSI.CXS
    Use   [xsi_mod.f, 782]             XSI.CXS
    Use   [xsi_mod.f, 783]             XSI.CXS
    Set   [xsi_mod.f, 789]             XSI.CXS
    Use   [xsi_mod.f, 791]             XSI.CXS
    Use   [xsi_mod.f, 792]             XSI.CXS
    Set   [xsi_mod.f, 796]             XSI.CXS
    Use   [xsi_mod.f, 798]             XSI.CXS
    Use   [xsi_mod.f, 799]             XSI.CXS
    Set   [xsi_mod.f, 806]             XSI.CXS
    Use   [xsi_mod.f, 808]             XSI.CXS
    Set   [xsi_mod.f, 810]             XSI.CXS
    Use   [xsi_mod.f, 812]             XSI.CXS
    Use   [xsi_mod.f, 814]             XSI.CXS

XSI.CXS.IJKD    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 613]          XSI.CXS
    Set   [xsi_mod.f, 629]             XSI.CXS
    Use   [xsi_mod.f, 632]             XSI.CXS
    Set   [xsi_mod.f, 636]             XSI.CXS
    Use   [xsi_mod.f, 639]             XSI.CXS
    Set   [xsi_mod.f, 646]             XSI.CXS
    Use   [xsi_mod.f, 649]             XSI.CXS
    Set   [xsi_mod.f, 653]             XSI.CXS
    Use   [xsi_mod.f, 656]             XSI.CXS
    Set   [xsi_mod.f, 663]             XSI.CXS
    Set   [xsi_mod.f, 667]             XSI.CXS
    Use   [xsi_mod.f, 671]             XSI.CXS
    Set   [xsi_mod.f, 702]             XSI.CXS
    Use   [xsi_mod.f, 705]             XSI.CXS
    Set   [xsi_mod.f, 709]             XSI.CXS
    Use   [xsi_mod.f, 712]             XSI.CXS
    Set   [xsi_mod.f, 718]             XSI.CXS
    Use   [xsi_mod.f, 721]             XSI.CXS
    Set   [xsi_mod.f, 725]             XSI.CXS
    Use   [xsi_mod.f, 728]             XSI.CXS
    Set   [xsi_mod.f, 735]             XSI.CXS
    Set   [xsi_mod.f, 739]             XSI.CXS
    Use   [xsi_mod.f, 743]             XSI.CXS
    Set   [xsi_mod.f, 774]             XSI.CXS
    Use   [xsi_mod.f, 777]             XSI.CXS
    Set   [xsi_mod.f, 781]             XSI.CXS
    Use   [xsi_mod.f, 784]             XSI.CXS
    Set   [xsi_mod.f, 790]             XSI.CXS
    Use   [xsi_mod.f, 793]             XSI.CXS
    Set   [xsi_mod.f, 797]             XSI.CXS
    Use   [xsi_mod.f, 800]             XSI.CXS
    Set   [xsi_mod.f, 807]             XSI.CXS
    Set   [xsi_mod.f, 811]             XSI.CXS
    Use   [xsi_mod.f, 815]             XSI.CXS

XSI.CXS.IJKU    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 613]          XSI.CXS
    Set   [xsi_mod.f, 630]             XSI.CXS
    Use   [xsi_mod.f, 633]             XSI.CXS
    Set   [xsi_mod.f, 637]             XSI.CXS
    Use   [xsi_mod.f, 640]             XSI.CXS
    Set   [xsi_mod.f, 647]             XSI.CXS
    Use   [xsi_mod.f, 650]             XSI.CXS
    Set   [xsi_mod.f, 654]             XSI.CXS
    Use   [xsi_mod.f, 657]             XSI.CXS
    Set   [xsi_mod.f, 664]             XSI.CXS
    Set   [xsi_mod.f, 668]             XSI.CXS
    Use   [xsi_mod.f, 672]             XSI.CXS
    Set   [xsi_mod.f, 703]             XSI.CXS
    Use   [xsi_mod.f, 706]             XSI.CXS
    Set   [xsi_mod.f, 710]             XSI.CXS
    Use   [xsi_mod.f, 713]             XSI.CXS
    Set   [xsi_mod.f, 719]             XSI.CXS
    Use   [xsi_mod.f, 722]             XSI.CXS
    Set   [xsi_mod.f, 726]             XSI.CXS
    Use   [xsi_mod.f, 729]             XSI.CXS
    Set   [xsi_mod.f, 736]             XSI.CXS
    Set   [xsi_mod.f, 740]             XSI.CXS
    Use   [xsi_mod.f, 744]             XSI.CXS
    Set   [xsi_mod.f, 775]             XSI.CXS
    Use   [xsi_mod.f, 778]             XSI.CXS
    Set   [xsi_mod.f, 782]             XSI.CXS
    Use   [xsi_mod.f, 785]             XSI.CXS
    Set   [xsi_mod.f, 791]             XSI.CXS
    Use   [xsi_mod.f, 794]             XSI.CXS
    Set   [xsi_mod.f, 798]             XSI.CXS
    Use   [xsi_mod.f, 801]             XSI.CXS
    Set   [xsi_mod.f, 808]             XSI.CXS
    Set   [xsi_mod.f, 812]             XSI.CXS
    Use   [xsi_mod.f, 816]             XSI.CXS

XSI.CXS.incr    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 595]         XSI.CXS
    Use   [xsi_mod.f, 616]             XSI.CXS
    Use   [xsi_mod.f, 692]             XSI.CXS
    Use   [xsi_mod.f, 764]             XSI.CXS

XSI.CXS.PHI    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 600]         XSI.CXS
    Use   [xsi_mod.f, 631]             XSI.CXS
    Use   [xsi_mod.f, 632]             XSI.CXS
    Use   [xsi_mod.f, 633]             XSI.CXS
    Use   [xsi_mod.f, 638]             XSI.CXS
    Use   [xsi_mod.f, 639]             XSI.CXS
    Use   [xsi_mod.f, 640]             XSI.CXS
    Use   [xsi_mod.f, 648]             XSI.CXS
    Use   [xsi_mod.f, 649]             XSI.CXS
    Use   [xsi_mod.f, 650]             XSI.CXS
    Use   [xsi_mod.f, 655]             XSI.CXS
    Use   [xsi_mod.f, 656]             XSI.CXS
    Use   [xsi_mod.f, 657]             XSI.CXS
    Use   [xsi_mod.f, 670]             XSI.CXS
    Use   [xsi_mod.f, 671]             XSI.CXS
    Use   [xsi_mod.f, 672]             XSI.CXS
    Use   [xsi_mod.f, 704]             XSI.CXS
    Use   [xsi_mod.f, 705]             XSI.CXS
    Use   [xsi_mod.f, 706]             XSI.CXS
    Use   [xsi_mod.f, 711]             XSI.CXS
    Use   [xsi_mod.f, 712]             XSI.CXS
    Use   [xsi_mod.f, 713]             XSI.CXS
    Use   [xsi_mod.f, 720]             XSI.CXS
    Use   [xsi_mod.f, 721]             XSI.CXS
    Use   [xsi_mod.f, 722]             XSI.CXS
    Use   [xsi_mod.f, 727]             XSI.CXS
    Use   [xsi_mod.f, 728]             XSI.CXS
    Use   [xsi_mod.f, 729]             XSI.CXS
    Use   [xsi_mod.f, 742]             XSI.CXS
    Use   [xsi_mod.f, 743]             XSI.CXS
    Use   [xsi_mod.f, 744]             XSI.CXS
    Use   [xsi_mod.f, 776]             XSI.CXS
    Use   [xsi_mod.f, 777]             XSI.CXS
    Use   [xsi_mod.f, 778]             XSI.CXS
    Use   [xsi_mod.f, 783]             XSI.CXS
    Use   [xsi_mod.f, 784]             XSI.CXS
    Use   [xsi_mod.f, 785]             XSI.CXS
    Use   [xsi_mod.f, 792]             XSI.CXS
    Use   [xsi_mod.f, 793]             XSI.CXS
    Use   [xsi_mod.f, 794]             XSI.CXS
    Use   [xsi_mod.f, 799]             XSI.CXS
    Use   [xsi_mod.f, 800]             XSI.CXS
    Use   [xsi_mod.f, 801]             XSI.CXS
    Use   [xsi_mod.f, 814]             XSI.CXS
    Use   [xsi_mod.f, 815]             XSI.CXS
    Use   [xsi_mod.f, 816]             XSI.CXS

XSI.CXS.PHICU    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 610]          XSI.CXS
    Set   [xsi_mod.f, 631]             XSI.CXS
    Set   [xsi_mod.f, 638]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Set   [xsi_mod.f, 704]             XSI.CXS
    Set   [xsi_mod.f, 711]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Set   [xsi_mod.f, 776]             XSI.CXS
    Set   [xsi_mod.f, 783]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS

XSI.CXS.PHICV    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 611]          XSI.CXS
    Set   [xsi_mod.f, 648]             XSI.CXS
    Set   [xsi_mod.f, 655]             XSI.CXS
    Use   [xsi_mod.f, 681]             XSI.CXS
    Set   [xsi_mod.f, 720]             XSI.CXS
    Set   [xsi_mod.f, 727]             XSI.CXS
    Use   [xsi_mod.f, 753]             XSI.CXS
    Set   [xsi_mod.f, 792]             XSI.CXS
    Set   [xsi_mod.f, 799]             XSI.CXS
    Use   [xsi_mod.f, 825]             XSI.CXS

XSI.CXS.PHICW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 612]          XSI.CXS
    Set   [xsi_mod.f, 670]             XSI.CXS
    Set   [xsi_mod.f, 674]             XSI.CXS
    Use   [xsi_mod.f, 681]             XSI.CXS
    Set   [xsi_mod.f, 742]             XSI.CXS
    Set   [xsi_mod.f, 746]             XSI.CXS
    Use   [xsi_mod.f, 753]             XSI.CXS
    Set   [xsi_mod.f, 814]             XSI.CXS
    Set   [xsi_mod.f, 818]             XSI.CXS
    Use   [xsi_mod.f, 825]             XSI.CXS

XSI.CXS.PHIDU    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 610]          XSI.CXS
    Set   [xsi_mod.f, 632]             XSI.CXS
    Set   [xsi_mod.f, 639]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Set   [xsi_mod.f, 705]             XSI.CXS
    Set   [xsi_mod.f, 712]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Set   [xsi_mod.f, 777]             XSI.CXS
    Set   [xsi_mod.f, 784]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS

XSI.CXS.PHIDV    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 611]          XSI.CXS
    Set   [xsi_mod.f, 649]             XSI.CXS
    Set   [xsi_mod.f, 656]             XSI.CXS
    Use   [xsi_mod.f, 681]             XSI.CXS
    Set   [xsi_mod.f, 721]             XSI.CXS
    Set   [xsi_mod.f, 728]             XSI.CXS
    Use   [xsi_mod.f, 753]             XSI.CXS
    Set   [xsi_mod.f, 793]             XSI.CXS
    Set   [xsi_mod.f, 800]             XSI.CXS
    Use   [xsi_mod.f, 825]             XSI.CXS

XSI.CXS.PHIDW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 612]          XSI.CXS
    Set   [xsi_mod.f, 671]             XSI.CXS
    Set   [xsi_mod.f, 675]             XSI.CXS
    Use   [xsi_mod.f, 681]             XSI.CXS
    Set   [xsi_mod.f, 743]             XSI.CXS
    Set   [xsi_mod.f, 747]             XSI.CXS
    Use   [xsi_mod.f, 753]             XSI.CXS
    Set   [xsi_mod.f, 815]             XSI.CXS
    Set   [xsi_mod.f, 819]             XSI.CXS
    Use   [xsi_mod.f, 825]             XSI.CXS

XSI.CXS.PHIUU    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 610]          XSI.CXS
    Set   [xsi_mod.f, 633]             XSI.CXS
    Set   [xsi_mod.f, 640]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Set   [xsi_mod.f, 706]             XSI.CXS
    Set   [xsi_mod.f, 713]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Set   [xsi_mod.f, 778]             XSI.CXS
    Set   [xsi_mod.f, 785]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS

XSI.CXS.PHIUV    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 611]          XSI.CXS
    Set   [xsi_mod.f, 650]             XSI.CXS
    Set   [xsi_mod.f, 657]             XSI.CXS
    Use   [xsi_mod.f, 681]             XSI.CXS
    Set   [xsi_mod.f, 722]             XSI.CXS
    Set   [xsi_mod.f, 729]             XSI.CXS
    Use   [xsi_mod.f, 753]             XSI.CXS
    Set   [xsi_mod.f, 794]             XSI.CXS
    Set   [xsi_mod.f, 801]             XSI.CXS
    Use   [xsi_mod.f, 825]             XSI.CXS

XSI.CXS.PHIUW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 612]          XSI.CXS
    Set   [xsi_mod.f, 672]             XSI.CXS
    Set   [xsi_mod.f, 676]             XSI.CXS
    Use   [xsi_mod.f, 681]             XSI.CXS
    Set   [xsi_mod.f, 744]             XSI.CXS
    Set   [xsi_mod.f, 748]             XSI.CXS
    Use   [xsi_mod.f, 753]             XSI.CXS
    Set   [xsi_mod.f, 816]             XSI.CXS
    Set   [xsi_mod.f, 820]             XSI.CXS
    Use   [xsi_mod.f, 825]             XSI.CXS

XSI.CXS.SRT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 608]          XSI.CXS
    Set   [xsi_mod.f, 617]             XSI.CXS
    Use   [xsi_mod.f, 632]             XSI.CXS
    Use   [xsi_mod.f, 633]             XSI.CXS
    Use   [xsi_mod.f, 638]             XSI.CXS
    Use   [xsi_mod.f, 640]             XSI.CXS
    Use   [xsi_mod.f, 641]             XSI.CXS

XSI.CXS.U    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 598]         XSI.CXS
    Use   [xsi_mod.f, 627]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Use   [xsi_mod.f, 684]             XSI.CXS
    Use   [xsi_mod.f, 700]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Use   [xsi_mod.f, 756]             XSI.CXS
    Use   [xsi_mod.f, 772]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS
    Use   [xsi_mod.f, 828]             XSI.CXS

XSI.CXS.V    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 597]         XSI.CXS
    Use   [xsi_mod.f, 625]             XSI.CXS
    Use   [xsi_mod.f, 688]             XSI.CXS
    Use   [xsi_mod.f, 699]             XSI.CXS
    Use   [xsi_mod.f, 760]             XSI.CXS
    Use   [xsi_mod.f, 771]             XSI.CXS
    Use   [xsi_mod.f, 832]             XSI.CXS

XSI.CXS.VV    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 607]          XSI.CXS
    Set   [xsi_mod.f, 625]             XSI.CXS
    Use   [xsi_mod.f, 644]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Use   [xsi_mod.f, 685]             XSI.CXS
    Set   [xsi_mod.f, 688]             XSI.CXS
    Set   [xsi_mod.f, 699]             XSI.CXS
    Use   [xsi_mod.f, 716]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Use   [xsi_mod.f, 757]             XSI.CXS
    Set   [xsi_mod.f, 760]             XSI.CXS
    Set   [xsi_mod.f, 771]             XSI.CXS
    Use   [xsi_mod.f, 788]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS
    Use   [xsi_mod.f, 829]             XSI.CXS
    Set   [xsi_mod.f, 832]             XSI.CXS

XSI.CXS.W    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 599]         XSI.CXS
    Use   [xsi_mod.f, 661]             XSI.CXS
    Use   [xsi_mod.f, 680]             XSI.CXS
    Use   [xsi_mod.f, 686]             XSI.CXS
    Use   [xsi_mod.f, 733]             XSI.CXS
    Use   [xsi_mod.f, 752]             XSI.CXS
    Use   [xsi_mod.f, 758]             XSI.CXS
    Use   [xsi_mod.f, 805]             XSI.CXS
    Use   [xsi_mod.f, 824]             XSI.CXS
    Use   [xsi_mod.f, 830]             XSI.CXS

XSI.CXS.XSI_E    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 601]         XSI.CXS
    Set   [xsi_mod.f, 684]             XSI.CXS
    Set   [xsi_mod.f, 756]             XSI.CXS
    Set   [xsi_mod.f, 828]             XSI.CXS
    Use Argument   [xsi_mod.f, 839]    XSI.CXS

XSI.CXS.XSI_N    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 602]         XSI.CXS
    Set   [xsi_mod.f, 685]             XSI.CXS
    Set   [xsi_mod.f, 757]             XSI.CXS
    Set   [xsi_mod.f, 829]             XSI.CXS
    Use Argument   [xsi_mod.f, 840]    XSI.CXS

XSI.CXS.XSI_T    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 578]          XSI.CXS
    Declare   [xsi_mod.f, 603]         XSI.CXS
    Set   [xsi_mod.f, 686]             XSI.CXS
    Set   [xsi_mod.f, 758]             XSI.CXS
    Set   [xsi_mod.f, 830]             XSI.CXS
    Use Argument   [xsi_mod.f, 841]    XSI.CXS

XSI.DW.CF    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 893]          XSI.DW
    Set   [xsi_mod.f, 930]             XSI.DW
    Use   [xsi_mod.f, 931]             XSI.DW
    Set   [xsi_mod.f, 935]             XSI.DW
    Use   [xsi_mod.f, 936]             XSI.DW
    Set   [xsi_mod.f, 941]             XSI.DW
    Use   [xsi_mod.f, 942]             XSI.DW
    Set   [xsi_mod.f, 956]             XSI.DW
    Use   [xsi_mod.f, 957]             XSI.DW
    Set   [xsi_mod.f, 968]             XSI.DW
    Use   [xsi_mod.f, 969]             XSI.DW
    Set   [xsi_mod.f, 981]             XSI.DW
    Use   [xsi_mod.f, 982]             XSI.DW

XSI.DW.DISCR    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [xsi_mod.f, 856]          XSI.DW
    Declare   [xsi_mod.f, 885]         XSI.DW
    Use   [xsi_mod.f, 898]             XSI.DW
    Use   [xsi_mod.f, 1019]            XSI.DW

XSI.DW.DWFE    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 856]          XSI.DW
    Declare   [xsi_mod.f, 883]         XSI.DW
    Set   [xsi_mod.f, 900]             XSI.DW
    Set   [xsi_mod.f, 907]             XSI.DW
    Set   [xsi_mod.f, 918]             XSI.DW
    Set   [xsi_mod.f, 931]             XSI.DW
    Set   [xsi_mod.f, 957]             XSI.DW
    Set   [xsi_mod.f, 988]             XSI.DW
    Set   [xsi_mod.f, 998]             XSI.DW
    Set   [xsi_mod.f, 1009]            XSI.DW

XSI.DW.DWFN    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 856]          XSI.DW
    Declare   [xsi_mod.f, 883]         XSI.DW
    Set   [xsi_mod.f, 901]             XSI.DW
    Set   [xsi_mod.f, 909]             XSI.DW
    Set   [xsi_mod.f, 920]             XSI.DW
    Set   [xsi_mod.f, 936]             XSI.DW
    Set   [xsi_mod.f, 969]             XSI.DW
    Set   [xsi_mod.f, 990]             XSI.DW
    Set   [xsi_mod.f, 1000]            XSI.DW
    Set   [xsi_mod.f, 1011]            XSI.DW

XSI.DW.DWFT    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 856]          XSI.DW
    Declare   [xsi_mod.f, 883]         XSI.DW
    Set   [xsi_mod.f, 902]             XSI.DW
    Set   [xsi_mod.f, 912]             XSI.DW
    Set   [xsi_mod.f, 923]             XSI.DW
    Set   [xsi_mod.f, 942]             XSI.DW
    Set   [xsi_mod.f, 982]             XSI.DW
    Set   [xsi_mod.f, 993]             XSI.DW
    Set   [xsi_mod.f, 1003]            XSI.DW
    Set   [xsi_mod.f, 1014]            XSI.DW

XSI.DW.DZUC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 893]          XSI.DW
    Set   [xsi_mod.f, 978]             XSI.DW

XSI.DW.I    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 895]          XSI.DW
    Set   [xsi_mod.f, 928]             XSI.DW
    Use   [xsi_mod.f, 930]             XSI.DW
    Use   [xsi_mod.f, 941]             XSI.DW
    Set   [xsi_mod.f, 947]             XSI.DW
    Use   [xsi_mod.f, 949]             XSI.DW
    Use   [xsi_mod.f, 950]             XSI.DW
    Use   [xsi_mod.f, 952]             XSI.DW
    Use   [xsi_mod.f, 953]             XSI.DW
    Use   [xsi_mod.f, 956]             XSI.DW
    Use   [xsi_mod.f, 957]             XSI.DW
    Use   [xsi_mod.f, 981]             XSI.DW

XSI.DW.IJK    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 877]         XSI.DW
    Use   [xsi_mod.f, 928]             XSI.DW
    Use   [xsi_mod.f, 933]             XSI.DW
    Use   [xsi_mod.f, 939]             XSI.DW
    Use   [xsi_mod.f, 947]             XSI.DW
    Use   [xsi_mod.f, 959]             XSI.DW
    Use   [xsi_mod.f, 972]             XSI.DW

XSI.DW.J    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 895]          XSI.DW
    Set   [xsi_mod.f, 933]             XSI.DW
    Use   [xsi_mod.f, 935]             XSI.DW
    Set   [xsi_mod.f, 959]             XSI.DW
    Use   [xsi_mod.f, 961]             XSI.DW
    Use   [xsi_mod.f, 962]             XSI.DW
    Use   [xsi_mod.f, 964]             XSI.DW
    Use   [xsi_mod.f, 965]             XSI.DW
    Use   [xsi_mod.f, 968]             XSI.DW
    Use   [xsi_mod.f, 969]             XSI.DW

XSI.DW.K    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 895]          XSI.DW
    Set   [xsi_mod.f, 939]             XSI.DW
    Use   [xsi_mod.f, 941]             XSI.DW
    Set   [xsi_mod.f, 972]             XSI.DW
    Use   [xsi_mod.f, 974]             XSI.DW
    Use   [xsi_mod.f, 975]             XSI.DW
    Use   [xsi_mod.f, 977]             XSI.DW
    Use   [xsi_mod.f, 978]             XSI.DW
    Use   [xsi_mod.f, 981]             XSI.DW
    Use   [xsi_mod.f, 982]             XSI.DW

XSI.DW.oDXc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 892]          XSI.DW
    Set   [xsi_mod.f, 949]             XSI.DW
    Set   [xsi_mod.f, 952]             XSI.DW
    Use   [xsi_mod.f, 957]             XSI.DW

XSI.DW.oDXuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 892]          XSI.DW
    Set   [xsi_mod.f, 950]             XSI.DW
    Set   [xsi_mod.f, 953]             XSI.DW
    Use   [xsi_mod.f, 957]             XSI.DW

XSI.DW.oDYc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 892]          XSI.DW
    Set   [xsi_mod.f, 961]             XSI.DW
    Set   [xsi_mod.f, 964]             XSI.DW
    Use   [xsi_mod.f, 969]             XSI.DW

XSI.DW.oDYuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 892]          XSI.DW
    Set   [xsi_mod.f, 962]             XSI.DW
    Set   [xsi_mod.f, 965]             XSI.DW
    Use   [xsi_mod.f, 969]             XSI.DW

XSI.DW.oDZc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 892]          XSI.DW
    Set   [xsi_mod.f, 974]             XSI.DW
    Set   [xsi_mod.f, 977]             XSI.DW
    Use   [xsi_mod.f, 982]             XSI.DW

XSI.DW.oDZuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 892]          XSI.DW
    Set   [xsi_mod.f, 975]             XSI.DW
    Use   [xsi_mod.f, 982]             XSI.DW

XSI.DW.PHI_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 890]          XSI.DW
    Set   [xsi_mod.f, 906]             XSI.DW
    Use   [xsi_mod.f, 907]             XSI.DW
    Set   [xsi_mod.f, 908]             XSI.DW
    Use   [xsi_mod.f, 909]             XSI.DW
    Set   [xsi_mod.f, 911]             XSI.DW
    Use   [xsi_mod.f, 912]             XSI.DW
    Set   [xsi_mod.f, 917]             XSI.DW
    Use   [xsi_mod.f, 918]             XSI.DW
    Set   [xsi_mod.f, 919]             XSI.DW
    Use   [xsi_mod.f, 920]             XSI.DW
    Set   [xsi_mod.f, 922]             XSI.DW
    Use   [xsi_mod.f, 923]             XSI.DW
    Set   [xsi_mod.f, 929]             XSI.DW
    Use   [xsi_mod.f, 931]             XSI.DW
    Set   [xsi_mod.f, 934]             XSI.DW
    Use   [xsi_mod.f, 936]             XSI.DW
    Set   [xsi_mod.f, 940]             XSI.DW
    Use   [xsi_mod.f, 942]             XSI.DW
    Set   [xsi_mod.f, 955]             XSI.DW
    Use   [xsi_mod.f, 957]             XSI.DW
    Set   [xsi_mod.f, 967]             XSI.DW
    Use   [xsi_mod.f, 969]             XSI.DW
    Set   [xsi_mod.f, 980]             XSI.DW
    Use   [xsi_mod.f, 982]             XSI.DW
    Set   [xsi_mod.f, 987]             XSI.DW
    Use   [xsi_mod.f, 988]             XSI.DW
    Set   [xsi_mod.f, 989]             XSI.DW
    Use   [xsi_mod.f, 990]             XSI.DW
    Set   [xsi_mod.f, 992]             XSI.DW
    Use   [xsi_mod.f, 993]             XSI.DW
    Set   [xsi_mod.f, 997]             XSI.DW
    Use   [xsi_mod.f, 998]             XSI.DW
    Set   [xsi_mod.f, 999]             XSI.DW
    Use   [xsi_mod.f, 1000]            XSI.DW
    Set   [xsi_mod.f, 1002]            XSI.DW
    Use   [xsi_mod.f, 1003]            XSI.DW
    Set   [xsi_mod.f, 1008]            XSI.DW
    Use   [xsi_mod.f, 1009]            XSI.DW
    Set   [xsi_mod.f, 1010]            XSI.DW
    Use   [xsi_mod.f, 1011]            XSI.DW
    Set   [xsi_mod.f, 1013]            XSI.DW
    Use   [xsi_mod.f, 1014]            XSI.DW

XSI.DW.PHICU    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 879]         XSI.DW
    Use   [xsi_mod.f, 906]             XSI.DW
    Use   [xsi_mod.f, 917]             XSI.DW
    Use   [xsi_mod.f, 929]             XSI.DW
    Use   [xsi_mod.f, 955]             XSI.DW
    Use   [xsi_mod.f, 987]             XSI.DW
    Use   [xsi_mod.f, 997]             XSI.DW
    Use   [xsi_mod.f, 1008]            XSI.DW

XSI.DW.PHICV    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 854]          XSI.DW
    Declare   [xsi_mod.f, 880]         XSI.DW
    Use   [xsi_mod.f, 908]             XSI.DW
    Use   [xsi_mod.f, 919]             XSI.DW
    Use   [xsi_mod.f, 934]             XSI.DW
    Use   [xsi_mod.f, 967]             XSI.DW
    Use   [xsi_mod.f, 989]             XSI.DW
    Use   [xsi_mod.f, 999]             XSI.DW
    Use   [xsi_mod.f, 1010]            XSI.DW

XSI.DW.PHICW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 855]          XSI.DW
    Declare   [xsi_mod.f, 881]         XSI.DW
    Use   [xsi_mod.f, 911]             XSI.DW
    Use   [xsi_mod.f, 922]             XSI.DW
    Use   [xsi_mod.f, 940]             XSI.DW
    Use   [xsi_mod.f, 980]             XSI.DW
    Use   [xsi_mod.f, 992]             XSI.DW
    Use   [xsi_mod.f, 1002]            XSI.DW
    Use   [xsi_mod.f, 1013]            XSI.DW

XSI.DW.PHIDU    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 879]         XSI.DW
    Use   [xsi_mod.f, 906]             XSI.DW
    Use   [xsi_mod.f, 917]             XSI.DW
    Use   [xsi_mod.f, 929]             XSI.DW
    Use   [xsi_mod.f, 955]             XSI.DW
    Use   [xsi_mod.f, 987]             XSI.DW
    Use   [xsi_mod.f, 997]             XSI.DW
    Use   [xsi_mod.f, 1008]            XSI.DW

XSI.DW.PHIDV    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 854]          XSI.DW
    Declare   [xsi_mod.f, 880]         XSI.DW
    Use   [xsi_mod.f, 908]             XSI.DW
    Use   [xsi_mod.f, 919]             XSI.DW
    Use   [xsi_mod.f, 934]             XSI.DW
    Use   [xsi_mod.f, 967]             XSI.DW
    Use   [xsi_mod.f, 989]             XSI.DW
    Use   [xsi_mod.f, 999]             XSI.DW
    Use   [xsi_mod.f, 1010]            XSI.DW

XSI.DW.PHIDW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 855]          XSI.DW
    Declare   [xsi_mod.f, 881]         XSI.DW
    Use   [xsi_mod.f, 911]             XSI.DW
    Use   [xsi_mod.f, 922]             XSI.DW
    Use   [xsi_mod.f, 940]             XSI.DW
    Use   [xsi_mod.f, 980]             XSI.DW
    Use   [xsi_mod.f, 992]             XSI.DW
    Use   [xsi_mod.f, 1002]            XSI.DW
    Use   [xsi_mod.f, 1013]            XSI.DW

XSI.DW.PHIUU    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 879]         XSI.DW
    Use   [xsi_mod.f, 906]             XSI.DW
    Use   [xsi_mod.f, 917]             XSI.DW
    Use   [xsi_mod.f, 929]             XSI.DW
    Use   [xsi_mod.f, 955]             XSI.DW
    Use   [xsi_mod.f, 987]             XSI.DW
    Use   [xsi_mod.f, 997]             XSI.DW
    Use   [xsi_mod.f, 1008]            XSI.DW

XSI.DW.PHIUV    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 854]          XSI.DW
    Declare   [xsi_mod.f, 880]         XSI.DW
    Use   [xsi_mod.f, 908]             XSI.DW
    Use   [xsi_mod.f, 919]             XSI.DW
    Use   [xsi_mod.f, 934]             XSI.DW
    Use   [xsi_mod.f, 967]             XSI.DW
    Use   [xsi_mod.f, 989]             XSI.DW
    Use   [xsi_mod.f, 999]             XSI.DW
    Use   [xsi_mod.f, 1010]            XSI.DW

XSI.DW.PHIUW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 855]          XSI.DW
    Declare   [xsi_mod.f, 881]         XSI.DW
    Use   [xsi_mod.f, 911]             XSI.DW
    Use   [xsi_mod.f, 922]             XSI.DW
    Use   [xsi_mod.f, 940]             XSI.DW
    Use   [xsi_mod.f, 980]             XSI.DW
    Use   [xsi_mod.f, 992]             XSI.DW
    Use   [xsi_mod.f, 1002]            XSI.DW
    Use   [xsi_mod.f, 1013]            XSI.DW

XSI.DW.UU    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 875]         XSI.DW
    Use   [xsi_mod.f, 930]             XSI.DW
    Use   [xsi_mod.f, 948]             XSI.DW
    Use   [xsi_mod.f, 956]             XSI.DW

XSI.DW.VV    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 875]         XSI.DW
    Use   [xsi_mod.f, 935]             XSI.DW
    Use   [xsi_mod.f, 960]             XSI.DW
    Use   [xsi_mod.f, 968]             XSI.DW

XSI.DW.WW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 875]         XSI.DW
    Use   [xsi_mod.f, 941]             XSI.DW
    Use   [xsi_mod.f, 973]             XSI.DW
    Use   [xsi_mod.f, 981]             XSI.DW

XSI.XSI_func.XXXdwf    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 1038]         XSI.XSI_func
    Declare   [xsi_mod.f, 1041]        XSI.XSI_func
    Use   [xsi_mod.f, 1043]            XSI.XSI_func

XSI.XSI_func.XXXv    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 1038]         XSI.XSI_func
    Declare   [xsi_mod.f, 1041]        XSI.XSI_func
    Use   [xsi_mod.f, 1042]            XSI.XSI_func
    Use Argument   [xsi_mod.f, 1043]   XSI.XSI_func

xsi_array.xsi_array_locked    (Variable)  Declared as: LOGICAL
    Define   [xsi_array_mod.f, 21]     xsi_array
    Set   [xsi_array_mod.f, 21]        xsi_array
    Use   [xsi_array_mod.f, 30]        xsi_array.lock_xsi_array
    Set   [xsi_array_mod.f, 35]        xsi_array.lock_xsi_array
    Set   [xsi_array_mod.f, 42]        xsi_array.unlock_xsi_array

xsi_array.XSI_e    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [xsi_array_mod.f, 18]     xsi_array
    Set   [conv_dif_v_s.f, 883]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 907]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 908]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 911]        STORE_A_V_S1
    Set   [conv_dif_v_s.f, 656]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 704]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 705]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 718]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 719]        STORE_A_V_SDC
    Set   [conv_dif_u_g.f, 876]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 900]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 901]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 904]        STORE_A_U_G1
    Set   [conv_dif_u_g.f, 652]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 701]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 702]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 715]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 716]        STORE_A_U_GDC
    Set   [conv_source_epp.f, 403]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 449]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 449]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 450]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 453]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 458]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 458]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 460]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 462]     CONV_SOURCE_EPP1
    Set   [conv_dif_phi.f, 671]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 689]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 690]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 693]        CONV_DIF_PHI1
    Set   [conv_dif_phi.f, 448]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 491]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 492]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 542]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 543]        CONV_DIF_PHI_DC
    Set   [conv_dif_u_s.f, 876]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 900]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 901]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 904]        STORE_A_U_S1
    Set   [conv_dif_u_s.f, 652]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 701]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 702]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 714]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 715]        STORE_A_U_SDC
    Set   [allocate_arrays.f, 295]     ALLOCATE_ARRAYS
    Set   [conv_rop_g.f, 221]          CONV_ROP_G1
    Use   [conv_rop_g.f, 242]          CONV_ROP_G1
    Use   [conv_rop_g.f, 243]          CONV_ROP_G1
    Use   [conv_rop_g.f, 258]          CONV_ROP_G1
    Set   [conv_rop.f, 232]            CONV_ROP1
    Use   [conv_rop.f, 249]            CONV_ROP1
    Use   [conv_rop.f, 250]            CONV_ROP1
    Use   [conv_rop.f, 254]            CONV_ROP1
    Use   [conv_rop.f, 255]            CONV_ROP1
    Set   [check_mass_balance.f, 738]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 753]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 753]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 758]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 758]   Calc_mass_flux_spHR
    Set   [conv_rop_s.f, 242]          CONV_ROP_S1
    Use   [conv_rop_s.f, 262]          CONV_ROP_S1
    Use   [conv_rop_s.f, 263]          CONV_ROP_S1
    Use   [conv_rop_s.f, 276]          CONV_ROP_S1
    Set   [conv_dif_w_g.f, 850]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 875]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 876]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 879]        STORE_A_W_G1
    Set   [conv_dif_w_g.f, 628]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 677]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 678]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 722]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 723]        STORE_A_W_GDC
    Set   [conv_dif_w_s.f, 858]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 883]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 884]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 887]        STORE_A_W_S1
    Set   [conv_dif_w_s.f, 637]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 685]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 686]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 699]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 700]        STORE_A_W_SDC
    Set   [conv_dif_v_g.f, 882]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 906]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 907]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 910]        STORE_A_V_G1
    Set   [conv_dif_v_g.f, 652]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 701]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 702]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 750]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 751]        STORE_A_V_GDC

xsi_array.XSI_n    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [xsi_array_mod.f, 18]     xsi_array
    Set   [conv_dif_v_s.f, 883]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 916]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 917]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 920]        STORE_A_V_S1
    Set   [conv_dif_v_s.f, 656]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 733]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 734]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 747]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 748]        STORE_A_V_SDC
    Set   [conv_dif_u_g.f, 876]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 909]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 910]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 913]        STORE_A_U_G1
    Set   [conv_dif_u_g.f, 652]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 730]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 731]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 744]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 745]        STORE_A_U_GDC
    Set   [conv_source_epp.f, 403]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 468]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 468]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 469]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 472]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 478]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 478]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 480]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 482]     CONV_SOURCE_EPP1
    Set   [conv_dif_phi.f, 671]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 698]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 699]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 702]        CONV_DIF_PHI1
    Set   [conv_dif_phi.f, 448]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 506]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 507]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 558]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 559]        CONV_DIF_PHI_DC
    Set   [conv_dif_u_s.f, 876]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 909]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 910]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 913]        STORE_A_U_S1
    Set   [conv_dif_u_s.f, 652]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 729]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 730]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 743]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 744]        STORE_A_U_SDC
    Set   [allocate_arrays.f, 296]     ALLOCATE_ARRAYS
    Set   [conv_rop_g.f, 222]          CONV_ROP_G1
    Use   [conv_rop_g.f, 246]          CONV_ROP_G1
    Use   [conv_rop_g.f, 247]          CONV_ROP_G1
    Use   [conv_rop_g.f, 260]          CONV_ROP_G1
    Set   [conv_rop.f, 232]            CONV_ROP1
    Use   [conv_rop.f, 260]            CONV_ROP1
    Use   [conv_rop.f, 261]            CONV_ROP1
    Use   [conv_rop.f, 265]            CONV_ROP1
    Use   [conv_rop.f, 266]            CONV_ROP1
    Set   [check_mass_balance.f, 738]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 763]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 763]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 768]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 768]   Calc_mass_flux_spHR
    Set   [conv_rop_s.f, 242]          CONV_ROP_S1
    Use   [conv_rop_s.f, 266]          CONV_ROP_S1
    Use   [conv_rop_s.f, 267]          CONV_ROP_S1
    Use   [conv_rop_s.f, 278]          CONV_ROP_S1
    Set   [conv_dif_w_g.f, 850]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 884]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 885]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 888]        STORE_A_W_G1
    Set   [conv_dif_w_g.f, 628]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 692]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 693]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 737]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 738]        STORE_A_W_GDC
    Set   [conv_dif_w_s.f, 858]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 892]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 893]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 896]        STORE_A_W_S1
    Set   [conv_dif_w_s.f, 637]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 714]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 715]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 728]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 729]        STORE_A_W_SDC
    Set   [conv_dif_v_g.f, 882]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 915]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 916]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 919]        STORE_A_V_G1
    Set   [conv_dif_v_g.f, 652]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 716]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 717]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 765]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 766]        STORE_A_V_GDC

xsi_array.XSI_t    (Variable)  Declared as: DOUBLE PRECISION ALLOCATABLE
    Define   [xsi_array_mod.f, 19]     xsi_array
    Set   [conv_dif_v_s.f, 884]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 928]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 929]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 932]        STORE_A_V_S1
    Set   [conv_dif_v_s.f, 657]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 764]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 765]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 778]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 779]        STORE_A_V_SDC
    Set   [conv_dif_u_g.f, 877]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 921]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 922]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 925]        STORE_A_U_G1
    Set   [conv_dif_u_g.f, 653]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 760]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 761]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 774]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 775]        STORE_A_U_GDC
    Set   [conv_source_epp.f, 403]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 489]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 489]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 491]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 493]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 498]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 498]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 501]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 503]     CONV_SOURCE_EPP1
    Set   [conv_dif_phi.f, 671]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 710]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 711]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 714]        CONV_DIF_PHI1
    Set   [conv_dif_phi.f, 448]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 523]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 524]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 575]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 576]        CONV_DIF_PHI_DC
    Set   [conv_dif_u_s.f, 877]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 921]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 922]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 925]        STORE_A_U_S1
    Set   [conv_dif_u_s.f, 653]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 759]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 760]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 773]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 774]        STORE_A_U_SDC
    Set   [allocate_arrays.f, 297]     ALLOCATE_ARRAYS
    Set   [conv_rop_g.f, 222]          CONV_ROP_G1
    Use   [conv_rop_g.f, 251]          CONV_ROP_G1
    Use   [conv_rop_g.f, 252]          CONV_ROP_G1
    Use   [conv_rop_g.f, 263]          CONV_ROP_G1
    Set   [conv_rop.f, 232]            CONV_ROP1
    Use   [conv_rop.f, 274]            CONV_ROP1
    Use   [conv_rop.f, 275]            CONV_ROP1
    Use   [conv_rop.f, 279]            CONV_ROP1
    Use   [conv_rop.f, 280]            CONV_ROP1
    Set   [check_mass_balance.f, 738]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 773]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 773]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 778]   Calc_mass_flux_spHR
    Use   [check_mass_balance.f, 778]   Calc_mass_flux_spHR
    Set   [conv_rop_s.f, 242]          CONV_ROP_S1
    Use   [conv_rop_s.f, 271]          CONV_ROP_S1
    Use   [conv_rop_s.f, 272]          CONV_ROP_S1
    Use   [conv_rop_s.f, 281]          CONV_ROP_S1
    Set   [conv_dif_w_g.f, 851]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 893]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 894]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 897]        STORE_A_W_G1
    Set   [conv_dif_w_g.f, 629]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 707]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 708]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 752]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 753]        STORE_A_W_GDC
    Set   [conv_dif_w_s.f, 859]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 901]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 902]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 905]        STORE_A_W_S1
    Set   [conv_dif_w_s.f, 638]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 743]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 744]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 757]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 758]        STORE_A_W_SDC
    Set   [conv_dif_v_g.f, 883]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 927]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 928]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 931]        STORE_A_V_G1
    Set   [conv_dif_v_g.f, 653]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 732]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 733]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 781]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 782]        STORE_A_V_GDC

Xsi_Pope    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 105]   K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 243]      K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 247]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 247]      K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 253]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 253]      K_Epsilon_PROP

XSLICE    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [vtk_out.f, 3093]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3128]            SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3129]   SETUP_VTK_REGION

XSUM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [test_lin_eq.f, 52]       TEST_LIN_EQ
    Set   [test_lin_eq.f, 129]         TEST_LIN_EQ
    Set   [test_lin_eq.f, 145]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 145]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 148]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 149]         TEST_LIN_EQ

xt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 90]   GET_F_QUADRIC
    Set   [define_quadrics.f, 134]     GET_F_QUADRIC
    Use   [define_quadrics.f, 141]     GET_F_QUADRIC
    Use   [define_quadrics.f, 141]     GET_F_QUADRIC
    Set   [define_quadrics.f, 146]     GET_F_QUADRIC
    Use   [define_quadrics.f, 150]     GET_F_QUADRIC
    Set   [define_quadrics.f, 173]     GET_F_QUADRIC
    Use   [define_quadrics.f, 177]     GET_F_QUADRIC
    Use   [define_quadrics.f, 178]     GET_F_QUADRIC
    Set   [define_quadrics.f, 213]     GET_F_QUADRIC
    Use   [define_quadrics.f, 218]     GET_F_QUADRIC
    Use   [define_quadrics.f, 220]     GET_F_QUADRIC
    Set   [define_quadrics.f, 279]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 290]   GET_F_QUADRIC
    Set   [define_quadrics.f, 335]     GET_F_QUADRIC
    Use   [define_quadrics.f, 339]     GET_F_QUADRIC
    Use   [define_quadrics.f, 340]     GET_F_QUADRIC
    Set   [define_quadrics.f, 347]     GET_F_QUADRIC
    Use   [define_quadrics.f, 351]     GET_F_QUADRIC
    Set   [define_quadrics.f, 361]     GET_F_QUADRIC
    Use   [define_quadrics.f, 365]     GET_F_QUADRIC
    Use   [define_quadrics.f, 366]     GET_F_QUADRIC
    Set   [define_quadrics.f, 382]     GET_F_QUADRIC
    Use   [define_quadrics.f, 387]     GET_F_QUADRIC
    Set   [define_quadrics.f, 419]     GET_F_QUADRIC
    Use   [define_quadrics.f, 424]     GET_F_QUADRIC

Xt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 25]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 301]           GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 306]   GET_3D_ALPHA_U_CUT_CELL

Xt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 429]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 705]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 711]   GET_3D_ALPHA_V_CUT_CELL

Xt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 833]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 1092]          GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 1098]   GET_3D_ALPHA_W_CUT_CELL

xTc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [read_database.f, 62]     READ_DATABASE
    Set   [read_database.f, 129]       READ_DATABASE
    Use   [read_database.f, 130]       READ_DATABASE
    Set   [read_database.f, 133]       READ_DATABASE
    Use   [read_database.f, 134]       READ_DATABASE

xtr    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 90]   GET_F_QUADRIC
    Set   [define_quadrics.f, 150]     GET_F_QUADRIC
    Use   [define_quadrics.f, 157]     GET_F_QUADRIC
    Use   [define_quadrics.f, 157]     GET_F_QUADRIC
    Set   [define_quadrics.f, 177]     GET_F_QUADRIC
    Use   [define_quadrics.f, 196]     GET_F_QUADRIC
    Use   [define_quadrics.f, 196]     GET_F_QUADRIC
    Set   [define_quadrics.f, 218]     GET_F_QUADRIC
    Use   [define_quadrics.f, 234]     GET_F_QUADRIC
    Use   [define_quadrics.f, 234]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 237]   GET_F_QUADRIC
    Use   [define_quadrics.f, 241]     GET_F_QUADRIC
    Use   [define_quadrics.f, 241]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 245]   GET_F_QUADRIC
    Use   [define_quadrics.f, 249]     GET_F_QUADRIC
    Use   [define_quadrics.f, 249]     GET_F_QUADRIC
    Set   [define_quadrics.f, 339]     GET_F_QUADRIC
    Use   [define_quadrics.f, 343]     GET_F_QUADRIC
    Set   [define_quadrics.f, 351]     GET_F_QUADRIC
    Use   [define_quadrics.f, 355]     GET_F_QUADRIC
    Use   [define_quadrics.f, 355]     GET_F_QUADRIC
    Set   [define_quadrics.f, 365]     GET_F_QUADRIC
    Use   [define_quadrics.f, 369]     GET_F_QUADRIC
    Set   [define_quadrics.f, 387]     GET_F_QUADRIC
    Use   [define_quadrics.f, 410]     GET_F_QUADRIC
    Set   [define_quadrics.f, 424]     GET_F_QUADRIC
    Use   [define_quadrics.f, 493]     GET_F_QUADRIC

XV1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 158]    EVAL_POLY_FCT
    Set   [get_poly_data.f, 208]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 215]       EVAL_POLY_FCT
    Use Argument   [get_poly_data.f, 225]   EVAL_POLY_FCT
    Use Argument   [get_poly_data.f, 226]   EVAL_POLY_FCT
    Use   [get_poly_data.f, 238]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 239]       EVAL_POLY_FCT

XV2    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_poly_data.f, 158]    EVAL_POLY_FCT
    Set   [get_poly_data.f, 209]       EVAL_POLY_FCT
    Use   [get_poly_data.f, 216]       EVAL_POLY_FCT
    Use Argument   [get_poly_data.f, 225]   EVAL_POLY_FCT
    Use Argument   [get_poly_data.f, 226]   EVAL_POLY_FCT
    Use   [get_poly_data.f, 238]       EVAL_POLY_FCT

xvec    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [cooling_rate.f, 14]      cooling_rate
    Declare   [cooling_rate.f, 29]     cooling_rate
    Set   [cooling_rate.f, 45]         cooling_rate
    Use Argument   [cooling_rate.f, 48]   cooling_rate

Xw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 332]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 372]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 387]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 402]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 417]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 439]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 444]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 454]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 464]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 474]    GET_CELL_NODE_COORDINATES

Xw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 510]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 547]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 562]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 577]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 592]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 614]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 619]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 629]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 639]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 649]    GET_GLOBAL_CELL_NODE_COORDINATES

XW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [vtk_out.f, 3092]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3098]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3128]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3128]            SETUP_VTK_REGION

XXVAL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs_des0.f, 496]     DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 508]        DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 510]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 518]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 531]        DRAG_INTERPOLATION

XXVAL    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [comp_mean_fields0.f, 468]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 480]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 482]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 488]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 500]   DRAG_WEIGHTFACTOR

xyz_dim    (Local Variable)  Declared as: INTEGER
    Define   [read_res1.f, 386]        read_res1_netcdf
    Use   [read_res1.f, 459]           read_res1_netcdf
    Set   [read_res1.f, 459]           read_res1_netcdf

xyz_dimid    (Local Variable)  Declared as: INTEGER
    Define   [write_res1.f, 296]       write_res1_netcdf
    Use   [write_res1.f, 356]          write_res1_netcdf
    Set   [write_res1.f, 356]          write_res1_netcdf
    Use   [write_res1.f, 363]          write_res1_netcdf

xyz_id    (Local Variable)  Declared as: INTEGER
    Define   [read_res1.f, 386]        read_res1_netcdf
    Use   [read_res1.f, 458]           read_res1_netcdf
    Set   [read_res1.f, 458]           read_res1_netcdf
    Use   [read_res1.f, 459]           read_res1_netcdf