Object Cross Reference


Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ

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    (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   [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

X    (Dummy Argument)  Declared as: DOUBLE PRECISION (s)
    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 (s)
    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   [source_population_eq.f, 2]   Source_population_eq
    Declare   [source_population_eq.f, 13]   Source_population_eq

X    (Dummy Argument)  Declared as: DOUBLE PRECISION (s) 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 (s) 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   [ODEPACK.F, 23141]        DPCG
    Declare   [ODEPACK.F, 23144]       DPCG
    Declare   [ODEPACK.F, 23145]       DPCG
    Set   [ODEPACK.F, 23221]           DPCG
    Use Argument   [ODEPACK.F, 23226]   DPCG
    Use Argument   [ODEPACK.F, 23259]   DPCG

X    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23286]        DPCGS
    Declare   [ODEPACK.F, 23289]       DPCGS
    Declare   [ODEPACK.F, 23290]       DPCGS
    Set   [ODEPACK.F, 23367]           DPCGS
    Use Argument   [ODEPACK.F, 23372]   DPCGS
    Use Argument   [ODEPACK.F, 23409]   DPCGS

X    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 21333]        DRCHEK
    Use Argument   [ODEPACK.F, 21457]   DRCHEK
    Use Argument   [ODEPACK.F, 21459]   DRCHEK
    Use Argument   [ODEPACK.F, 21460]   DRCHEK
    Use   [ODEPACK.F, 21463]           DRCHEK
    Use Argument   [ODEPACK.F, 21467]   DRCHEK

X    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 21476]        DROOTS
    Declare   [ODEPACK.F, 21478]       DROOTS
    Set   [ODEPACK.F, 21603]           DROOTS
    Set   [ODEPACK.F, 21652]           DROOTS
    Set   [ODEPACK.F, 21667]           DROOTS
    Set   [ODEPACK.F, 21678]           DROOTS

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

X    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22318]        DSOLPK
    Declare   [ODEPACK.F, 22321]       DSOLPK
    Declare   [ODEPACK.F, 22322]       DSOLPK
    Use Argument   [ODEPACK.F, 22382]   DSOLPK
    Use Argument   [ODEPACK.F, 22385]   DSOLPK
    Use Argument   [ODEPACK.F, 22406]   DSOLPK
    Use Argument   [ODEPACK.F, 22409]   DSOLPK
    Use Argument   [ODEPACK.F, 22428]   DSOLPK
    Use Argument   [ODEPACK.F, 22430]   DSOLPK
    Use Argument   [ODEPACK.F, 22448]   DSOLPK
    Use Argument   [ODEPACK.F, 22450]   DSOLPK
    Use Argument   [ODEPACK.F, 22466]   DSOLPK
    Use Argument   [ODEPACK.F, 22468]   DSOLPK

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

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

X    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22904]        DSPIGMR
    Declare   [ODEPACK.F, 22908]       DSPIGMR
    Declare   [ODEPACK.F, 22909]       DSPIGMR
    Use Argument   [ODEPACK.F, 23014]   DSPIGMR
    Set   [ODEPACK.F, 23017]           DSPIGMR
    Use Argument   [ODEPACK.F, 23051]   DSPIGMR
    Set   [ODEPACK.F, 23118]           DSPIGMR
    Use Argument   [ODEPACK.F, 23120]   DSPIGMR
    Set   [ODEPACK.F, 23123]           DSPIGMR
    Use   [ODEPACK.F, 23123]           DSPIGMR
    Use Argument   [ODEPACK.F, 23125]   DSPIGMR

X    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 22479]        DSPIOM
    Declare   [ODEPACK.F, 22483]       DSPIOM
    Declare   [ODEPACK.F, 22484]       DSPIOM
    Use Argument   [ODEPACK.F, 22581]   DSPIOM
    Set   [ODEPACK.F, 22584]           DSPIOM
    Use Argument   [ODEPACK.F, 22618]   DSPIOM
    Set   [ODEPACK.F, 22673]           DSPIOM
    Use Argument   [ODEPACK.F, 22675]   DSPIOM
    Set   [ODEPACK.F, 22678]           DSPIOM
    Use   [ODEPACK.F, 22678]           DSPIOM
    Use Argument   [ODEPACK.F, 22680]   DSPIOM

X    (Dummy Argument)  Declared as: DOUBLE PRECISION (*)
    Define   [ODEPACK.F, 23502]        DUSOL
    Declare   [ODEPACK.F, 23505]       DUSOL
    Declare   [ODEPACK.F, 23506]       DUSOL
    Use Argument   [ODEPACK.F, 23571]   DUSOL
    Set   [ODEPACK.F, 23574]           DUSOL
    Use Argument   [ODEPACK.F, 23581]   DUSOL

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

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

X0    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 21476]        DROOTS
    Declare   [ODEPACK.F, 21478]       DROOTS
    Use   [ODEPACK.F, 21599]           DROOTS
    Use   [ODEPACK.F, 21600]           DROOTS
    Use   [ODEPACK.F, 21601]           DROOTS
    Use   [ODEPACK.F, 21601]           DROOTS
    Use   [ODEPACK.F, 21601]           DROOTS
    Set   [ODEPACK.F, 21644]           DROOTS
    Use   [ODEPACK.F, 21647]           DROOTS

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

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   [define_quadrics.f, 82]   GET_F_QUADRIC
    Declare   [define_quadrics.f, 92]   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, 132]     GET_F_QUADRIC
    Use   [define_quadrics.f, 136]     GET_F_QUADRIC
    Use   [define_quadrics.f, 148]     GET_F_QUADRIC
    Use   [define_quadrics.f, 175]     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, 507]   GET_F_QUADRIC
    Use   [define_quadrics.f, 532]     GET_F_QUADRIC
    Use   [define_quadrics.f, 537]     GET_F_QUADRIC
    Use   [define_quadrics.f, 564]     GET_F_QUADRIC
    Use   [define_quadrics.f, 569]     GET_F_QUADRIC

x1    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 620]   REASSSIGN_QUADRIC
    Declare   [define_quadrics.f, 628]   REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 644]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 644]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 655]     REASSSIGN_QUADRIC

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   [ODEPACK.F, 21476]        DROOTS
    Declare   [ODEPACK.F, 21478]       DROOTS
    Use   [ODEPACK.F, 21599]           DROOTS
    Use   [ODEPACK.F, 21599]           DROOTS
    Use   [ODEPACK.F, 21601]           DROOTS
    Use   [ODEPACK.F, 21601]           DROOTS
    Set   [ODEPACK.F, 21630]           DROOTS
    Set   [ODEPACK.F, 21637]           DROOTS
    Use   [ODEPACK.F, 21647]           DROOTS
    Use   [ODEPACK.F, 21652]           DROOTS
    Use   [ODEPACK.F, 21667]           DROOTS
    Use   [ODEPACK.F, 21678]           DROOTS

X1    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_flags.f, 45]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 435]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 448]   SET_3D_CUT_CELL_FLAGS

x12    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 686]     GET_STL_DATA
    Set   [get_stl_data.f, 864]        GET_STL_DATA
    Use   [get_stl_data.f, 873]        GET_STL_DATA
    Use   [get_stl_data.f, 874]        GET_STL_DATA

x13    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 686]     GET_STL_DATA
    Set   [get_stl_data.f, 868]        GET_STL_DATA
    Use   [get_stl_data.f, 873]        GET_STL_DATA
    Use   [get_stl_data.f, 875]        GET_STL_DATA

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

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   [define_quadrics.f, 82]   GET_F_QUADRIC
    Declare   [define_quadrics.f, 92]   GET_F_QUADRIC
    Use   [define_quadrics.f, 113]     GET_F_QUADRIC
    Use   [define_quadrics.f, 113]     GET_F_QUADRIC
    Use   [define_quadrics.f, 124]     GET_F_QUADRIC
    Use   [define_quadrics.f, 124]     GET_F_QUADRIC
    Use   [define_quadrics.f, 132]     GET_F_QUADRIC
    Use   [define_quadrics.f, 137]     GET_F_QUADRIC
    Use   [define_quadrics.f, 149]     GET_F_QUADRIC
    Use   [define_quadrics.f, 190]     GET_F_QUADRIC
    Use   [define_quadrics.f, 191]     GET_F_QUADRIC
    Use   [define_quadrics.f, 192]     GET_F_QUADRIC
    Use   [define_quadrics.f, 193]     GET_F_QUADRIC
    Use   [define_quadrics.f, 216]     GET_F_QUADRIC
    Use   [define_quadrics.f, 282]     GET_F_QUADRIC
    Use   [define_quadrics.f, 338]     GET_F_QUADRIC
    Use   [define_quadrics.f, 350]     GET_F_QUADRIC
    Use   [define_quadrics.f, 364]     GET_F_QUADRIC
    Use   [define_quadrics.f, 385]     GET_F_QUADRIC
    Use   [define_quadrics.f, 422]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 507]   GET_F_QUADRIC
    Use   [define_quadrics.f, 542]     GET_F_QUADRIC
    Use   [define_quadrics.f, 547]     GET_F_QUADRIC
    Use   [define_quadrics.f, 574]     GET_F_QUADRIC
    Use   [define_quadrics.f, 579]     GET_F_QUADRIC

x2    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 620]   REASSSIGN_QUADRIC
    Declare   [define_quadrics.f, 628]   REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 645]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 645]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 655]     REASSSIGN_QUADRIC

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    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_flags.f, 45]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 443]   SET_3D_CUT_CELL_FLAGS
    Use   [get_cut_cell_flags.f, 448]   SET_3D_CUT_CELL_FLAGS

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

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   [define_quadrics.f, 82]   GET_F_QUADRIC
    Declare   [define_quadrics.f, 92]   GET_F_QUADRIC
    Use   [define_quadrics.f, 114]     GET_F_QUADRIC
    Use   [define_quadrics.f, 114]     GET_F_QUADRIC
    Use   [define_quadrics.f, 125]     GET_F_QUADRIC
    Use   [define_quadrics.f, 125]     GET_F_QUADRIC
    Use   [define_quadrics.f, 132]     GET_F_QUADRIC
    Use   [define_quadrics.f, 138]     GET_F_QUADRIC
    Use   [define_quadrics.f, 150]     GET_F_QUADRIC
    Use   [define_quadrics.f, 176]     GET_F_QUADRIC
    Use   [define_quadrics.f, 217]     GET_F_QUADRIC
    Use   [define_quadrics.f, 283]     GET_F_QUADRIC
    Use   [define_quadrics.f, 339]     GET_F_QUADRIC
    Use   [define_quadrics.f, 351]     GET_F_QUADRIC
    Use   [define_quadrics.f, 365]     GET_F_QUADRIC
    Use   [define_quadrics.f, 386]     GET_F_QUADRIC
    Use   [define_quadrics.f, 423]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 507]   GET_F_QUADRIC
    Use   [define_quadrics.f, 552]     GET_F_QUADRIC
    Use   [define_quadrics.f, 557]     GET_F_QUADRIC
    Use   [define_quadrics.f, 584]     GET_F_QUADRIC
    Use   [define_quadrics.f, 589]     GET_F_QUADRIC

x3    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 620]   REASSSIGN_QUADRIC
    Declare   [define_quadrics.f, 628]   REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 646]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 646]     REASSSIGN_QUADRIC
    Use   [define_quadrics.f, 655]     REASSSIGN_QUADRIC

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

X_21    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 804]        gt_pde_simonin
    Set   [calc_mu_s.f, 876]           gt_pde_simonin
    Use   [calc_mu_s.f, 882]           gt_pde_simonin
    Use   [calc_mu_s.f, 883]           gt_pde_simonin

X_ACT    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [test_lin_eq.f, 50]       TEST_LIN_EQ
    Set   [test_lin_eq.f, 70]          TEST_LIN_EQ
    Use   [test_lin_eq.f, 107]         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, 115]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 116]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 132]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 133]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 133]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 143]         TEST_LIN_EQ
    Use Argument   [test_lin_eq.f, 144]   TEST_LIN_EQ
    Use   [test_lin_eq.f, 166]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 169]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 169]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 170]         TEST_LIN_EQ

X_CONSTANT    (Dummy Argument)  Declared as: LOGICAL INTENT(IN)
    Define   [check_plane.f, 20]       CHECK_PLANE
    Declare   [check_plane.f, 35]      CHECK_PLANE
    Use   [check_plane.f, 50]          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, 428]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 436]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 444]   CHECK_BC_GEOMETRY_FLOW
    Set   [check_bc_geometry.f, 458]   CHECK_BC_GEOMETRY_FLOW
    Use Argument   [check_bc_geometry.f, 524]   CHECK_BC_GEOMETRY_FLOW

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, 386]   SET_BC_FLAGS_FLOW
    Set   [set_icbc_flags.f, 404]      SET_BC_FLAGS_FLOW
    Use   [set_icbc_flags.f, 408]      SET_BC_FLAGS_FLOW

X_COPY    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_volume_area.f, 47]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 113]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 123]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 129]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 137]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 152]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 158]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 160]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 162]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 170]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 175]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 177]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 184]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 191]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 197]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 199]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 208]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 218]   GET_CUT_CELL_VOLUME_AND_AREAS

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, 1510]         WRITE_CUT_SURFACE_VTK
    Set   [vtk_out.f, 1548]            WRITE_CUT_SURFACE_VTK
    Set   [vtk_out.f, 1557]            WRITE_CUT_SURFACE_VTK
    Use   [vtk_out.f, 1563]            WRITE_CUT_SURFACE_VTK
    Use Argument   [vtk_out.f, 1575]   WRITE_CUT_SURFACE_VTK
    Use Argument   [vtk_out.f, 1577]   WRITE_CUT_SURFACE_VTK
    Use Argument   [vtk_out.f, 1579]   WRITE_CUT_SURFACE_VTK
    Use   [vtk_out.f, 1590]            WRITE_CUT_SURFACE_VTK

x_d    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [drag_gs.f, 1110]         SUBGRID_DRAG_WALL
    Set   [drag_gs.f, 1116]            SUBGRID_DRAG_WALL
    Use   [drag_gs.f, 1120]            SUBGRID_DRAG_WALL

x_d    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 2434]       subgrid_stress_wall
    Set   [calc_mu_s.f, 2442]          subgrid_stress_wall
    Use   [calc_mu_s.f, 2444]          subgrid_stress_wall
    Use   [calc_mu_s.f, 2446]          subgrid_stress_wall

x_dimid    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 730]       write_mesh_netcdf
    Use   [write_spx1.f, 786]          write_mesh_netcdf
    Set   [write_spx1.f, 786]          write_mesh_netcdf
    Use   [write_spx1.f, 792]          write_mesh_netcdf
    Use Argument   [write_spx1.f, 798]   write_mesh_netcdf

x_dimid    (Local Variable)  Declared as: INTEGER
    Define   [write_spx1.f, 861]       write_netcdf
    Use   [write_spx1.f, 990]          write_netcdf
    Set   [write_spx1.f, 990]          write_netcdf
    Use Argument   [write_spx1.f, 997]   write_netcdf
    Use   [write_spx1.f, 1003]         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 (DIMENSION_MAX_CUT_CELL)
    Define   [vtk_out.f, 1506]         WRITE_CUT_SURFACE_VTK
    Set   [vtk_out.f, 1614]            WRITE_CUT_SURFACE_VTK
    Use   [vtk_out.f, 1640]            WRITE_CUT_SURFACE_VTK

X_gN    (Local Variable)  Declared as: CHARACTER (len=7)
    Define   [physical_prop.f, 799]    CPgErr_LOG

X_IJ    (Local Variable)  Declared as: DOUBLE PRECISION (MMAX,MMAX)
    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 (DIMENSION_3)
    Define   [get_connectivity.f, 16]   GET_CONNECTIVITY
    Declare   [get_connectivity.f, 39]   GET_CONNECTIVITY
    Use   [get_connectivity.f, 126]    GET_CONNECTIVITY
    Use   [get_connectivity.f, 150]    GET_CONNECTIVITY
    Use   [get_connectivity.f, 177]    GET_CONNECTIVITY
    Use   [get_connectivity.f, 201]    GET_CONNECTIVITY

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    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_volume_area.f, 48]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 99]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 152]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 152]   GET_CUT_CELL_VOLUME_AND_AREAS
    Set   [get_cut_cell_volume_area.f, 227]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 227]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 385]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 387]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 427]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 437]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 440]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 638]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 647]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 650]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 788]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 797]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 800]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use Argument   [get_cut_cell_volume_area.f, 931]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 937]   GET_CUT_CELL_VOLUME_AND_AREAS
    Use   [get_cut_cell_volume_area.f, 940]   GET_CUT_CELL_VOLUME_AND_AREAS

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_NP    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_MAX_CUT_CELL)
    Define   [get_connectivity.f, 15]   GET_CONNECTIVITY
    Declare   [get_connectivity.f, 38]   GET_CONNECTIVITY
    Set   [get_connectivity.f, 126]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 138]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 150]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 162]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 177]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 189]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 201]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 213]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 228]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 240]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 252]    GET_CONNECTIVITY
    Set   [get_connectivity.f, 264]    GET_CONNECTIVITY

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

X_OLD_POINT    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [get_cut_cell_flags.f, 39]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 53]   SET_3D_CUT_CELL_FLAGS
    Set   [get_cut_cell_flags.f, 630]   SET_3D_CUT_CELL_FLAGS

X_s_temp    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3,DIMENSION_N_s)
    Define   [solve_species_eq.f, 76]   SOLVE_SPECIES_EQ
    Set   [solve_species_eq.f, 196]    SOLVE_SPECIES_EQ
    Use   [solve_species_eq.f, 199]    SOLVE_SPECIES_EQ

X_sN    (Local Variable)  Declared as: CHARACTER (len=7)
    Define   [physical_prop.f, 900]    CPsErr_LOG

X_SOL    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [test_lin_eq.f, 50]       TEST_LIN_EQ
    Set   [test_lin_eq.f, 71]          TEST_LIN_EQ
    Use Argument   [test_lin_eq.f, 123]   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, 143]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 166]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 172]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 172]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 173]         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 (1,3)
    Define   [define_quadrics.f, 99]   GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 507]   GET_F_QUADRIC
    Use   [define_quadrics.f, 509]     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    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 1174]    INTERSECT_LINE_WITH_FACET
    Declare   [get_stl_data.f, 1190]   INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1225]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1246]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1264]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1290]       INTERSECT_LINE_WITH_FACET

xb    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 1174]    INTERSECT_LINE_WITH_FACET
    Declare   [get_stl_data.f, 1190]   INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1225]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1291]       INTERSECT_LINE_WITH_FACET

Xc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_volume_area.f, 1219]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1273]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1278]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1278]   REORDER_POLYGON
    Set   [get_cut_cell_volume_area.f, 1283]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1283]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1349]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1351]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1366]   REORDER_POLYGON
    Use   [get_cut_cell_volume_area.f, 1368]   REORDER_POLYGON

xc    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [get_stl_data.f, 1174]    INTERSECT_LINE_WITH_FACET
    Declare   [get_stl_data.f, 1190]   INTERSECT_LINE_WITH_FACET
    Set   [get_stl_data.f, 1272]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1290]       INTERSECT_LINE_WITH_FACET
    Use   [get_stl_data.f, 1291]       INTERSECT_LINE_WITH_FACET

XC    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_interp_weights.f, 184]   CALC_INTERP_WEIGHTS2
    Set   [calc_interp_weights.f, 200]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 202]   CALC_INTERP_WEIGHTS2
    Use   [calc_interp_weights.f, 206]   CALC_INTERP_WEIGHTS2

xc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_cut_cell_flags.f, 1886]   GET_POTENTIAL_CUT_CELLS
    Set   [get_cut_cell_flags.f, 1909]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1919]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1921]   GET_POTENTIAL_CUT_CELLS
    Use Argument   [get_cut_cell_flags.f, 1923]   GET_POTENTIAL_CUT_CELLS
    Use   [get_cut_cell_flags.f, 1925]   GET_POTENTIAL_CUT_CELLS

xdist    (Local Variable)  Declared as: DOUBLE PRECISION (IMIN3:IMAX3,JSTART3:JEND3)
    Define   [cal_d.f, 36]             CAL_D
    Set   [cal_d.f, 45]                CAL_D
    Set   [cal_d.f, 46]                CAL_D
    Set   [cal_d.f, 48]                CAL_D
    Use   [cal_d.f, 48]                CAL_D
    Use   [cal_d.f, 56]                CAL_D
    Set   [cal_d.f, 77]                CAL_D

xdist3    (Local Variable)  Declared as: DOUBLE PRECISION (IMIN3:IMAX3,JSTART3:JEND3,KSTART3:KEND3)
    Define   [cal_d.f, 37]             CAL_D
    Set   [cal_d.f, 76]                CAL_D
    Set   [cal_d.f, 80]                CAL_D
    Use   [cal_d.f, 80]                CAL_D
    Use   [cal_d.f, 91]                CAL_D

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 335]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 376]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 391]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 406]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 421]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 442]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 452]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 462]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 472]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 482]    GET_CELL_NODE_COORDINATES

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 515]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 553]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 568]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 583]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 598]    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
    Use   [get_connectivity.f, 659]    GET_GLOBAL_CELL_NODE_COORDINATES

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 27]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 195]           GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 200]   GET_3D_ALPHA_U_CUT_CELL

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 432]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 610]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 617]   GET_3D_ALPHA_V_CUT_CELL

Xe    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 838]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 1004]          GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 1010]   GET_3D_ALPHA_W_CUT_CELL

XE    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [vtk_out.f, 3066]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3071]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3102]            SETUP_VTK_REGION

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    (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   [get_alpha.f, 29]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 111]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 113]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 115]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 115]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 119]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 121]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 123]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 150]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 151]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 151]           GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 154]           GET_3D_ALPHA_U_CUT_CELL
    Use   [get_alpha.f, 155]           GET_3D_ALPHA_U_CUT_CELL

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_g.f, 295]          CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 460]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 466]    CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 478]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 484]    CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 523]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 529]    CALC_CG_TAU_U_G
    Set   [tau_u_g.f, 541]             CALC_CG_TAU_U_G
    Use Argument   [tau_u_g.f, 548]    CALC_CG_TAU_U_G

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [tau_u_s.f, 333]          CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 477]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 483]    CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 495]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 501]    CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 539]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 545]    CALC_CG_TAU_U_S
    Set   [tau_u_s.f, 557]             CALC_CG_TAU_U_S
    Use Argument   [tau_u_s.f, 563]    CALC_CG_TAU_U_S

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 560]       CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 638]          CALC_CG_DERIV_VEL_GAS
    Use Argument   [calc_trd_g.f, 644]   CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 689]          CALC_CG_DERIV_VEL_GAS
    Use Argument   [calc_trd_g.f, 695]   CALC_CG_DERIV_VEL_GAS
    Set   [calc_trd_g.f, 744]          CALC_CG_DERIV_VEL_GAS
    Use Argument   [calc_trd_g.f, 750]   CALC_CG_DERIV_VEL_GAS

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_g.f, 114]       CALC_CG_TRD_G
    Set   [calc_trd_g.f, 188]          CALC_CG_TRD_G
    Use Argument   [calc_trd_g.f, 194]   CALC_CG_TRD_G
    Set   [calc_trd_g.f, 214]          CALC_CG_TRD_G
    Use Argument   [calc_trd_g.f, 220]   CALC_CG_TRD_G
    Set   [calc_trd_g.f, 251]          CALC_CG_TRD_G
    Use Argument   [calc_trd_g.f, 257]   CALC_CG_TRD_G

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 619]       CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 707]          CALC_CG_DERIV_VEL_SOLIDS
    Use Argument   [calc_trd_s.f, 713]   CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 758]          CALC_CG_DERIV_VEL_SOLIDS
    Use Argument   [calc_trd_s.f, 764]   CALC_CG_DERIV_VEL_SOLIDS
    Set   [calc_trd_s.f, 814]          CALC_CG_DERIV_VEL_SOLIDS
    Use Argument   [calc_trd_s.f, 820]   CALC_CG_DERIV_VEL_SOLIDS

Xi    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_trd_s.f, 123]       CALC_CG_TRD_S
    Set   [calc_trd_s.f, 203]          CALC_CG_TRD_S
    Use Argument   [calc_trd_s.f, 209]   CALC_CG_TRD_S
    Set   [calc_trd_s.f, 230]          CALC_CG_TRD_S
    Use Argument   [calc_trd_s.f, 236]   CALC_CG_TRD_S
    Set   [calc_trd_s.f, 259]          CALC_CG_TRD_S
    Use Argument   [calc_trd_s.f, 265]   CALC_CG_TRD_S

XI_s_v    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1423]       gt_pde_ia
    Set   [calc_mu_s.f, 1579]          gt_pde_ia
    Use   [calc_mu_s.f, 1582]          gt_pde_ia

XI_sL_pB    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_w_s.f, 71]     CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 158]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 160]       CALC_IA_MOMSOURCE_W_S

XI_sL_pE    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_u_s.f, 122]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 208]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 210]       CALC_IA_MOMSOURCE_U_S

XI_sL_pN    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_v_s.f, 71]     CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 155]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 157]       CALC_IA_MOMSOURCE_V_S

XI_sL_pS    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_v_s.f, 71]     CALC_IA_MOMSOURCE_V_S
    Set   [kintheory_v_s.f, 156]       CALC_IA_MOMSOURCE_V_S
    Use   [kintheory_v_s.f, 158]       CALC_IA_MOMSOURCE_V_S

XI_sL_pT    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_w_s.f, 71]     CALC_IA_MOMSOURCE_W_S
    Set   [kintheory_w_s.f, 157]       CALC_IA_MOMSOURCE_W_S
    Use   [kintheory_w_s.f, 159]       CALC_IA_MOMSOURCE_W_S

XI_sL_pW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [kintheory_u_s.f, 122]    CALC_IA_MOMSOURCE_U_S
    Set   [kintheory_u_s.f, 209]       CALC_IA_MOMSOURCE_U_S
    Use   [kintheory_u_s.f, 211]       CALC_IA_MOMSOURCE_U_S

XI_sM_sum    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [calc_mu_s.f, 1423]       gt_pde_ia
    Set   [calc_mu_s.f, 1451]          gt_pde_ia
    Set   [calc_mu_s.f, 1569]          gt_pde_ia
    Use   [calc_mu_s.f, 1569]          gt_pde_ia
    Use   [calc_mu_s.f, 1579]          gt_pde_ia

xloc    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [write_spx1.f, 736]       write_mesh_netcdf
    Set   [write_spx1.f, 755]          write_mesh_netcdf
    Set   [write_spx1.f, 762]          write_mesh_netcdf
    Set   [write_spx1.f, 768]          write_mesh_netcdf
    Set   [write_spx1.f, 770]          write_mesh_netcdf
    Use   [write_spx1.f, 770]          write_mesh_netcdf
    Use Argument   [write_spx1.f, 811]   write_mesh_netcdf
    Set   [write_spx1.f, 831]          write_mesh_netcdf

xloc    (Local Variable)  Declared as: DOUBLE PRECISION (:) ALLOCATABLE
    Define   [write_spx1.f, 891]       write_netcdf
    Set   [write_spx1.f, 923]          write_netcdf
    Set   [write_spx1.f, 934]          write_netcdf
    Set   [write_spx1.f, 943]          write_netcdf
    Set   [write_spx1.f, 945]          write_netcdf
    Use   [write_spx1.f, 945]          write_netcdf
    Use Argument   [write_spx1.f, 1084]   write_netcdf
    Set   [write_spx1.f, 1233]         write_netcdf

XMIN    (Dummy Argument)  Declared as: DOUBLE PRECISION
    Define   [write_out0.f, 929]       LOCATION
    Declare   [write_out0.f, 947]      LOCATION
    Use   [write_out0.f, 960]          LOCATION

XMT    (Local Variable)  Declared as: DOUBLE PRECISION (1,3)
    Define   [define_quadrics.f, 99]   GET_F_QUADRIC
    Set   [define_quadrics.f, 509]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 510]   GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 512]   GET_F_QUADRIC

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 27]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 250]           GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 255]   GET_3D_ALPHA_U_CUT_CELL

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 432]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 653]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 659]   GET_3D_ALPHA_V_CUT_CELL

Xn    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 838]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 1056]          GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 1062]   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 (KMAXX)
    Define   [odeint.f, 11]            odeint
    Set   [odeint.f, 43]               odeint
    Set   [odeint.f, 64]               odeint

XPIN    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [ODEPACK.F, 16680]        DCFODE
    Set   [ODEPACK.F, 16714]           DCFODE
    Set   [ODEPACK.F, 16719]           DCFODE
    Use   [ODEPACK.F, 16719]           DCFODE
    Use   [ODEPACK.F, 16725]           DCFODE

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   [mass_inflow_pic.f, 356]   PIC_FIND_NEW_CELL
    Set   [mass_inflow_pic.f, 363]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 369]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 369]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 371]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 402]     PIC_FIND_NEW_CELL
    Use   [mass_inflow_pic.f, 402]     PIC_FIND_NEW_CELL

XPOS    (Local Variable)  Declared as: DOUBLE PRECISION (2)
    Define   [nsquare.f, 32]           NSQUARE
    Set   [nsquare.f, 63]              NSQUARE
    Set   [nsquare.f, 72]              NSQUARE
    Set   [nsquare.f, 75]              NSQUARE
    Use   [nsquare.f, 105]             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

XROOT    (Local Variable)  Declared as: LOGICAL
    Define   [ODEPACK.F, 21559]        DROOTS
    Set   [ODEPACK.F, 21585]           DROOTS
    Use   [ODEPACK.F, 21591]           DROOTS
    Set   [ODEPACK.F, 21633]           DROOTS
    Set   [ODEPACK.F, 21639]           DROOTS
    Set   [ODEPACK.F, 21646]           DROOTS
    Set   [ODEPACK.F, 21647]           DROOTS

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 (DIMENSION_3) 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 (DIMENSION_3) 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 Argument   [xsi_mod.f, 234]    XSI.CALC_XSI
    Use   [xsi_mod.f, 236]             XSI.CALC_XSI
    Use   [xsi_mod.f, 281]             XSI.CALC_XSI
    Use Argument   [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 (DIMENSION_3) 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 Argument   [xsi_mod.f, 249]    XSI.CALC_XSI
    Use   [xsi_mod.f, 251]             XSI.CALC_XSI
    Use   [xsi_mod.f, 300]             XSI.CALC_XSI
    Use Argument   [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 (DIMENSION_3) 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 Argument   [xsi_mod.f, 265]    XSI.CALC_XSI
    Use   [xsi_mod.f, 267]             XSI.CALC_XSI
    Use   [xsi_mod.f, 320]             XSI.CALC_XSI
    Use Argument   [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 (DIMENSION_3) 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 (DIMENSION_3) 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 (DIMENSION_3) 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 (DIMENSION_3) 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 (DIMENSION_3) 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 (DIMENSION_3) 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 (DIMENSION_3)
    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.WW    (Dummy Argument)  Declared as: DOUBLE PRECISION (DIMENSION_3) 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 (DIMENSION_3) 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 (DIMENSION_3) 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 (DIMENSION_3) 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, 894]          XSI.DW
    Set   [xsi_mod.f, 931]             XSI.DW
    Use   [xsi_mod.f, 932]             XSI.DW
    Set   [xsi_mod.f, 936]             XSI.DW
    Use   [xsi_mod.f, 937]             XSI.DW
    Set   [xsi_mod.f, 942]             XSI.DW
    Use   [xsi_mod.f, 943]             XSI.DW
    Set   [xsi_mod.f, 957]             XSI.DW
    Use   [xsi_mod.f, 958]             XSI.DW
    Set   [xsi_mod.f, 969]             XSI.DW
    Use   [xsi_mod.f, 970]             XSI.DW
    Set   [xsi_mod.f, 982]             XSI.DW
    Use   [xsi_mod.f, 983]             XSI.DW

XSI.DW.DISCR    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [xsi_mod.f, 856]          XSI.DW
    Declare   [xsi_mod.f, 886]         XSI.DW
    Use   [xsi_mod.f, 899]             XSI.DW
    Use   [xsi_mod.f, 1020]            XSI.DW

XSI.DW.DWFE    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 856]          XSI.DW
    Declare   [xsi_mod.f, 884]         XSI.DW
    Set   [xsi_mod.f, 901]             XSI.DW
    Set   [xsi_mod.f, 908]             XSI.DW
    Set   [xsi_mod.f, 919]             XSI.DW
    Set   [xsi_mod.f, 932]             XSI.DW
    Set   [xsi_mod.f, 958]             XSI.DW
    Set   [xsi_mod.f, 989]             XSI.DW
    Set   [xsi_mod.f, 999]             XSI.DW
    Set   [xsi_mod.f, 1010]            XSI.DW

XSI.DW.DWFN    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 856]          XSI.DW
    Declare   [xsi_mod.f, 884]         XSI.DW
    Set   [xsi_mod.f, 902]             XSI.DW
    Set   [xsi_mod.f, 910]             XSI.DW
    Set   [xsi_mod.f, 921]             XSI.DW
    Set   [xsi_mod.f, 937]             XSI.DW
    Set   [xsi_mod.f, 970]             XSI.DW
    Set   [xsi_mod.f, 991]             XSI.DW
    Set   [xsi_mod.f, 1001]            XSI.DW
    Set   [xsi_mod.f, 1012]            XSI.DW

XSI.DW.DWFT    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(OUT)
    Define   [xsi_mod.f, 856]          XSI.DW
    Declare   [xsi_mod.f, 884]         XSI.DW
    Set   [xsi_mod.f, 903]             XSI.DW
    Set   [xsi_mod.f, 913]             XSI.DW
    Set   [xsi_mod.f, 924]             XSI.DW
    Set   [xsi_mod.f, 943]             XSI.DW
    Set   [xsi_mod.f, 983]             XSI.DW
    Set   [xsi_mod.f, 994]             XSI.DW
    Set   [xsi_mod.f, 1004]            XSI.DW
    Set   [xsi_mod.f, 1015]            XSI.DW

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

XSI.DW.I    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 896]          XSI.DW
    Set   [xsi_mod.f, 929]             XSI.DW
    Use   [xsi_mod.f, 931]             XSI.DW
    Use   [xsi_mod.f, 942]             XSI.DW
    Set   [xsi_mod.f, 948]             XSI.DW
    Use   [xsi_mod.f, 950]             XSI.DW
    Use   [xsi_mod.f, 951]             XSI.DW
    Use   [xsi_mod.f, 953]             XSI.DW
    Use   [xsi_mod.f, 954]             XSI.DW
    Use   [xsi_mod.f, 957]             XSI.DW
    Use   [xsi_mod.f, 958]             XSI.DW
    Use   [xsi_mod.f, 982]             XSI.DW

XSI.DW.IJK    (Dummy Argument)  Declared as: INTEGER INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 878]         XSI.DW
    Use   [xsi_mod.f, 929]             XSI.DW
    Use   [xsi_mod.f, 934]             XSI.DW
    Use   [xsi_mod.f, 940]             XSI.DW
    Use   [xsi_mod.f, 948]             XSI.DW
    Use   [xsi_mod.f, 960]             XSI.DW
    Use   [xsi_mod.f, 973]             XSI.DW

XSI.DW.J    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 896]          XSI.DW
    Set   [xsi_mod.f, 934]             XSI.DW
    Use   [xsi_mod.f, 936]             XSI.DW
    Set   [xsi_mod.f, 960]             XSI.DW
    Use   [xsi_mod.f, 962]             XSI.DW
    Use   [xsi_mod.f, 963]             XSI.DW
    Use   [xsi_mod.f, 965]             XSI.DW
    Use   [xsi_mod.f, 966]             XSI.DW
    Use   [xsi_mod.f, 969]             XSI.DW
    Use   [xsi_mod.f, 970]             XSI.DW

XSI.DW.K    (Local Variable)  Declared as: INTEGER
    Define   [xsi_mod.f, 896]          XSI.DW
    Set   [xsi_mod.f, 940]             XSI.DW
    Use   [xsi_mod.f, 942]             XSI.DW
    Set   [xsi_mod.f, 973]             XSI.DW
    Use   [xsi_mod.f, 975]             XSI.DW
    Use   [xsi_mod.f, 976]             XSI.DW
    Use   [xsi_mod.f, 978]             XSI.DW
    Use   [xsi_mod.f, 979]             XSI.DW
    Use   [xsi_mod.f, 982]             XSI.DW
    Use   [xsi_mod.f, 983]             XSI.DW

XSI.DW.oDXc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 893]          XSI.DW
    Set   [xsi_mod.f, 950]             XSI.DW
    Set   [xsi_mod.f, 953]             XSI.DW
    Use   [xsi_mod.f, 958]             XSI.DW

XSI.DW.oDXuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 893]          XSI.DW
    Set   [xsi_mod.f, 951]             XSI.DW
    Set   [xsi_mod.f, 954]             XSI.DW
    Use   [xsi_mod.f, 958]             XSI.DW

XSI.DW.oDYc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 893]          XSI.DW
    Set   [xsi_mod.f, 962]             XSI.DW
    Set   [xsi_mod.f, 965]             XSI.DW
    Use   [xsi_mod.f, 970]             XSI.DW

XSI.DW.oDYuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 893]          XSI.DW
    Set   [xsi_mod.f, 963]             XSI.DW
    Set   [xsi_mod.f, 966]             XSI.DW
    Use   [xsi_mod.f, 970]             XSI.DW

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

XSI.DW.oDZuc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 893]          XSI.DW
    Set   [xsi_mod.f, 976]             XSI.DW
    Use   [xsi_mod.f, 983]             XSI.DW

XSI.DW.PHI_C    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [xsi_mod.f, 891]          XSI.DW
    Set   [xsi_mod.f, 907]             XSI.DW
    Use   [xsi_mod.f, 908]             XSI.DW
    Set   [xsi_mod.f, 909]             XSI.DW
    Use   [xsi_mod.f, 910]             XSI.DW
    Set   [xsi_mod.f, 912]             XSI.DW
    Use   [xsi_mod.f, 913]             XSI.DW
    Set   [xsi_mod.f, 918]             XSI.DW
    Use   [xsi_mod.f, 919]             XSI.DW
    Set   [xsi_mod.f, 920]             XSI.DW
    Use   [xsi_mod.f, 921]             XSI.DW
    Set   [xsi_mod.f, 923]             XSI.DW
    Use   [xsi_mod.f, 924]             XSI.DW
    Set   [xsi_mod.f, 930]             XSI.DW
    Use   [xsi_mod.f, 932]             XSI.DW
    Set   [xsi_mod.f, 935]             XSI.DW
    Use   [xsi_mod.f, 937]             XSI.DW
    Set   [xsi_mod.f, 941]             XSI.DW
    Use   [xsi_mod.f, 943]             XSI.DW
    Set   [xsi_mod.f, 956]             XSI.DW
    Use   [xsi_mod.f, 958]             XSI.DW
    Set   [xsi_mod.f, 968]             XSI.DW
    Use   [xsi_mod.f, 970]             XSI.DW
    Set   [xsi_mod.f, 981]             XSI.DW
    Use   [xsi_mod.f, 983]             XSI.DW
    Set   [xsi_mod.f, 988]             XSI.DW
    Use   [xsi_mod.f, 989]             XSI.DW
    Set   [xsi_mod.f, 990]             XSI.DW
    Use   [xsi_mod.f, 991]             XSI.DW
    Set   [xsi_mod.f, 993]             XSI.DW
    Use   [xsi_mod.f, 994]             XSI.DW
    Set   [xsi_mod.f, 998]             XSI.DW
    Use   [xsi_mod.f, 999]             XSI.DW
    Set   [xsi_mod.f, 1000]            XSI.DW
    Use   [xsi_mod.f, 1001]            XSI.DW
    Set   [xsi_mod.f, 1003]            XSI.DW
    Use   [xsi_mod.f, 1004]            XSI.DW
    Set   [xsi_mod.f, 1009]            XSI.DW
    Use   [xsi_mod.f, 1010]            XSI.DW
    Set   [xsi_mod.f, 1011]            XSI.DW
    Use   [xsi_mod.f, 1012]            XSI.DW
    Set   [xsi_mod.f, 1014]            XSI.DW
    Use   [xsi_mod.f, 1015]            XSI.DW

XSI.DW.PHICU    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 880]         XSI.DW
    Use   [xsi_mod.f, 907]             XSI.DW
    Use   [xsi_mod.f, 918]             XSI.DW
    Use   [xsi_mod.f, 930]             XSI.DW
    Use   [xsi_mod.f, 956]             XSI.DW
    Use   [xsi_mod.f, 988]             XSI.DW
    Use   [xsi_mod.f, 998]             XSI.DW
    Use   [xsi_mod.f, 1009]            XSI.DW

XSI.DW.PHICV    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 854]          XSI.DW
    Declare   [xsi_mod.f, 881]         XSI.DW
    Use   [xsi_mod.f, 909]             XSI.DW
    Use   [xsi_mod.f, 920]             XSI.DW
    Use   [xsi_mod.f, 935]             XSI.DW
    Use   [xsi_mod.f, 968]             XSI.DW
    Use   [xsi_mod.f, 990]             XSI.DW
    Use   [xsi_mod.f, 1000]            XSI.DW
    Use   [xsi_mod.f, 1011]            XSI.DW

XSI.DW.PHICW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 855]          XSI.DW
    Declare   [xsi_mod.f, 882]         XSI.DW
    Use   [xsi_mod.f, 912]             XSI.DW
    Use   [xsi_mod.f, 923]             XSI.DW
    Use   [xsi_mod.f, 941]             XSI.DW
    Use   [xsi_mod.f, 981]             XSI.DW
    Use   [xsi_mod.f, 993]             XSI.DW
    Use   [xsi_mod.f, 1003]            XSI.DW
    Use   [xsi_mod.f, 1014]            XSI.DW

XSI.DW.PHIDU    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 880]         XSI.DW
    Use   [xsi_mod.f, 907]             XSI.DW
    Use   [xsi_mod.f, 918]             XSI.DW
    Use   [xsi_mod.f, 930]             XSI.DW
    Use   [xsi_mod.f, 956]             XSI.DW
    Use   [xsi_mod.f, 988]             XSI.DW
    Use   [xsi_mod.f, 998]             XSI.DW
    Use   [xsi_mod.f, 1009]            XSI.DW

XSI.DW.PHIDV    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 854]          XSI.DW
    Declare   [xsi_mod.f, 881]         XSI.DW
    Use   [xsi_mod.f, 909]             XSI.DW
    Use   [xsi_mod.f, 920]             XSI.DW
    Use   [xsi_mod.f, 935]             XSI.DW
    Use   [xsi_mod.f, 968]             XSI.DW
    Use   [xsi_mod.f, 990]             XSI.DW
    Use   [xsi_mod.f, 1000]            XSI.DW
    Use   [xsi_mod.f, 1011]            XSI.DW

XSI.DW.PHIDW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 855]          XSI.DW
    Declare   [xsi_mod.f, 882]         XSI.DW
    Use   [xsi_mod.f, 912]             XSI.DW
    Use   [xsi_mod.f, 923]             XSI.DW
    Use   [xsi_mod.f, 941]             XSI.DW
    Use   [xsi_mod.f, 981]             XSI.DW
    Use   [xsi_mod.f, 993]             XSI.DW
    Use   [xsi_mod.f, 1003]            XSI.DW
    Use   [xsi_mod.f, 1014]            XSI.DW

XSI.DW.PHIUU    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 880]         XSI.DW
    Use   [xsi_mod.f, 907]             XSI.DW
    Use   [xsi_mod.f, 918]             XSI.DW
    Use   [xsi_mod.f, 930]             XSI.DW
    Use   [xsi_mod.f, 956]             XSI.DW
    Use   [xsi_mod.f, 988]             XSI.DW
    Use   [xsi_mod.f, 998]             XSI.DW
    Use   [xsi_mod.f, 1009]            XSI.DW

XSI.DW.PHIUV    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 854]          XSI.DW
    Declare   [xsi_mod.f, 881]         XSI.DW
    Use   [xsi_mod.f, 909]             XSI.DW
    Use   [xsi_mod.f, 920]             XSI.DW
    Use   [xsi_mod.f, 935]             XSI.DW
    Use   [xsi_mod.f, 968]             XSI.DW
    Use   [xsi_mod.f, 990]             XSI.DW
    Use   [xsi_mod.f, 1000]            XSI.DW
    Use   [xsi_mod.f, 1011]            XSI.DW

XSI.DW.PHIUW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 855]          XSI.DW
    Declare   [xsi_mod.f, 882]         XSI.DW
    Use   [xsi_mod.f, 912]             XSI.DW
    Use   [xsi_mod.f, 923]             XSI.DW
    Use   [xsi_mod.f, 941]             XSI.DW
    Use   [xsi_mod.f, 981]             XSI.DW
    Use   [xsi_mod.f, 993]             XSI.DW
    Use   [xsi_mod.f, 1003]            XSI.DW
    Use   [xsi_mod.f, 1014]            XSI.DW

XSI.DW.UU    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 876]         XSI.DW
    Use Argument   [xsi_mod.f, 931]    XSI.DW
    Use   [xsi_mod.f, 949]             XSI.DW
    Use Argument   [xsi_mod.f, 957]    XSI.DW

XSI.DW.VV    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 876]         XSI.DW
    Use Argument   [xsi_mod.f, 936]    XSI.DW
    Use   [xsi_mod.f, 961]             XSI.DW
    Use Argument   [xsi_mod.f, 969]    XSI.DW

XSI.DW.WW    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 853]          XSI.DW
    Declare   [xsi_mod.f, 876]         XSI.DW
    Use Argument   [xsi_mod.f, 942]    XSI.DW
    Use   [xsi_mod.f, 974]             XSI.DW
    Use Argument   [xsi_mod.f, 982]    XSI.DW

XSI.XSI_func.XXXdwf    (Dummy Argument)  Declared as: DOUBLE PRECISION INTENT(IN)
    Define   [xsi_mod.f, 1039]         XSI.XSI_func
    Declare   [xsi_mod.f, 1042]        XSI.XSI_func
    Use   [xsi_mod.f, 1044]            XSI.XSI_func

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

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_phi.f, 651]     CONV_DIF_PHI1
    Set   [conv_dif_phi.f, 657]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 675]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 676]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 679]        CONV_DIF_PHI1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_phi.f, 423]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 443]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 486]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 487]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 537]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 538]        CONV_DIF_PHI_DC

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_s.f, 846]     STORE_A_U_S1
    Set   [conv_dif_u_s.f, 852]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 876]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 877]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 880]        STORE_A_U_S1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_s.f, 624]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 642]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 691]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 692]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 704]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 705]        STORE_A_U_SDC

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop_g.f, 208]       CONV_ROP_G1
    Set   [conv_rop_g.f, 217]          CONV_ROP_G1
    Use   [conv_rop_g.f, 238]          CONV_ROP_G1
    Use   [conv_rop_g.f, 239]          CONV_ROP_G1
    Use   [conv_rop_g.f, 254]          CONV_ROP_G1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [source_pp_g.f, 283]      COMPRESSIBLE_PP_G
    Set   [source_pp_g.f, 312]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 329]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 330]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 335]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 337]         COMPRESSIBLE_PP_G

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop_s.f, 228]       CONV_ROP_S1
    Set   [conv_rop_s.f, 237]          CONV_ROP_S1
    Use   [conv_rop_s.f, 257]          CONV_ROP_S1
    Use   [conv_rop_s.f, 258]          CONV_ROP_S1
    Use   [conv_rop_s.f, 271]          CONV_ROP_S1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_g.f, 818]     STORE_A_W_G1
    Set   [conv_dif_w_g.f, 824]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 849]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 850]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 853]        STORE_A_W_G1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_g.f, 599]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 617]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 666]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 667]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 711]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 712]        STORE_A_W_GDC

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_s.f, 826]     STORE_A_W_S1
    Set   [conv_dif_w_s.f, 833]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 858]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 859]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 862]        STORE_A_W_S1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_s.f, 608]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 626]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 674]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 675]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 688]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 689]        STORE_A_W_SDC

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_g.f, 847]     STORE_A_V_G1
    Set   [conv_dif_v_g.f, 853]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 876]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 877]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 880]        STORE_A_V_G1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_g.f, 623]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 641]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 689]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 690]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 738]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 739]        STORE_A_V_GDC

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop.f, 224]         CONV_ROP1
    Set   [conv_rop.f, 230]            CONV_ROP1
    Use   [conv_rop.f, 246]            CONV_ROP1
    Use   [conv_rop.f, 247]            CONV_ROP1
    Use   [conv_rop.f, 251]            CONV_ROP1
    Use   [conv_rop.f, 252]            CONV_ROP1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_s.f, 851]     STORE_A_V_S1
    Set   [conv_dif_v_s.f, 857]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 880]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 881]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 884]        STORE_A_V_S1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_s.f, 626]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 644]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 692]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 693]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 706]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 707]        STORE_A_V_SDC

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_g.f, 845]     STORE_A_U_G1
    Set   [conv_dif_u_g.f, 851]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 874]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 875]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 878]        STORE_A_U_G1

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_g.f, 621]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 639]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 688]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 689]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 702]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 703]        STORE_A_U_GDC

XSI_e    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_source_epp.f, 370]   CONV_SOURCE_EPP1
    Set   [conv_source_epp.f, 380]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 426]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 426]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 427]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 430]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 435]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 435]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 437]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 439]     CONV_SOURCE_EPP1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_phi.f, 651]     CONV_DIF_PHI1
    Set   [conv_dif_phi.f, 657]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 684]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 685]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 688]        CONV_DIF_PHI1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_phi.f, 423]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 443]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 501]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 502]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 553]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 554]        CONV_DIF_PHI_DC

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_s.f, 846]     STORE_A_U_S1
    Set   [conv_dif_u_s.f, 852]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 885]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 886]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 889]        STORE_A_U_S1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_s.f, 624]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 642]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 719]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 720]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 733]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 734]        STORE_A_U_SDC

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop_g.f, 208]       CONV_ROP_G1
    Set   [conv_rop_g.f, 218]          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, 256]          CONV_ROP_G1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [source_pp_g.f, 284]      COMPRESSIBLE_PP_G
    Set   [source_pp_g.f, 312]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 331]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 332]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 339]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 341]         COMPRESSIBLE_PP_G

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop_s.f, 228]       CONV_ROP_S1
    Set   [conv_rop_s.f, 237]          CONV_ROP_S1
    Use   [conv_rop_s.f, 261]          CONV_ROP_S1
    Use   [conv_rop_s.f, 262]          CONV_ROP_S1
    Use   [conv_rop_s.f, 273]          CONV_ROP_S1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_g.f, 818]     STORE_A_W_G1
    Set   [conv_dif_w_g.f, 824]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 858]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 859]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 862]        STORE_A_W_G1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_g.f, 599]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 617]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 681]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 682]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 726]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 727]        STORE_A_W_GDC

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_s.f, 826]     STORE_A_W_S1
    Set   [conv_dif_w_s.f, 833]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 867]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 868]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 871]        STORE_A_W_S1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_s.f, 608]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 626]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 703]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 704]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 717]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 718]        STORE_A_W_SDC

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_g.f, 847]     STORE_A_V_G1
    Set   [conv_dif_v_g.f, 853]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 885]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 886]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 889]        STORE_A_V_G1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_g.f, 623]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 641]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 704]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 705]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 753]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 754]        STORE_A_V_GDC

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop.f, 224]         CONV_ROP1
    Set   [conv_rop.f, 230]            CONV_ROP1
    Use   [conv_rop.f, 257]            CONV_ROP1
    Use   [conv_rop.f, 258]            CONV_ROP1
    Use   [conv_rop.f, 262]            CONV_ROP1
    Use   [conv_rop.f, 263]            CONV_ROP1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_s.f, 851]     STORE_A_V_S1
    Set   [conv_dif_v_s.f, 857]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 889]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 890]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 893]        STORE_A_V_S1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_s.f, 626]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 644]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 721]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 722]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 735]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 736]        STORE_A_V_SDC

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_g.f, 845]     STORE_A_U_G1
    Set   [conv_dif_u_g.f, 851]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 883]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 884]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 887]        STORE_A_U_G1

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_g.f, 621]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 639]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 717]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 718]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 731]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 732]        STORE_A_U_GDC

XSI_n    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_source_epp.f, 371]   CONV_SOURCE_EPP1
    Set   [conv_source_epp.f, 380]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 445]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 445]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 446]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 449]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 455]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 455]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 457]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 459]     CONV_SOURCE_EPP1

Xsi_Pope    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [k_epsilon_prop.f, 96]    K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 152]      K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 156]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 156]      K_Epsilon_PROP
    Set   [k_epsilon_prop.f, 162]      K_Epsilon_PROP
    Use   [k_epsilon_prop.f, 162]      K_Epsilon_PROP

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_phi.f, 651]     CONV_DIF_PHI1
    Set   [conv_dif_phi.f, 657]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 696]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 697]        CONV_DIF_PHI1
    Use   [conv_dif_phi.f, 700]        CONV_DIF_PHI1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_phi.f, 423]     CONV_DIF_PHI_DC
    Set   [conv_dif_phi.f, 443]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 518]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 519]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 570]        CONV_DIF_PHI_DC
    Use   [conv_dif_phi.f, 571]        CONV_DIF_PHI_DC

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_s.f, 846]     STORE_A_U_S1
    Set   [conv_dif_u_s.f, 853]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 897]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 898]        STORE_A_U_S1
    Use   [conv_dif_u_s.f, 901]        STORE_A_U_S1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_s.f, 624]     STORE_A_U_SDC
    Set   [conv_dif_u_s.f, 643]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 749]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 750]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 763]        STORE_A_U_SDC
    Use   [conv_dif_u_s.f, 764]        STORE_A_U_SDC

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop_g.f, 209]       CONV_ROP_G1
    Set   [conv_rop_g.f, 218]          CONV_ROP_G1
    Use   [conv_rop_g.f, 247]          CONV_ROP_G1
    Use   [conv_rop_g.f, 248]          CONV_ROP_G1
    Use   [conv_rop_g.f, 259]          CONV_ROP_G1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [source_pp_g.f, 285]      COMPRESSIBLE_PP_G
    Set   [source_pp_g.f, 312]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 344]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 345]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 347]         COMPRESSIBLE_PP_G
    Use   [source_pp_g.f, 349]         COMPRESSIBLE_PP_G

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop_s.f, 229]       CONV_ROP_S1
    Set   [conv_rop_s.f, 237]          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, 276]          CONV_ROP_S1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_g.f, 818]     STORE_A_W_G1
    Set   [conv_dif_w_g.f, 825]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 867]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 868]        STORE_A_W_G1
    Use   [conv_dif_w_g.f, 871]        STORE_A_W_G1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_g.f, 599]     STORE_A_W_GDC
    Set   [conv_dif_w_g.f, 618]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 696]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 697]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 741]        STORE_A_W_GDC
    Use   [conv_dif_w_g.f, 742]        STORE_A_W_GDC

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_s.f, 826]     STORE_A_W_S1
    Set   [conv_dif_w_s.f, 834]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 876]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 877]        STORE_A_W_S1
    Use   [conv_dif_w_s.f, 880]        STORE_A_W_S1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_w_s.f, 608]     STORE_A_W_SDC
    Set   [conv_dif_w_s.f, 627]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 732]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 733]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 746]        STORE_A_W_SDC
    Use   [conv_dif_w_s.f, 747]        STORE_A_W_SDC

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_g.f, 847]     STORE_A_V_G1
    Set   [conv_dif_v_g.f, 854]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 897]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 898]        STORE_A_V_G1
    Use   [conv_dif_v_g.f, 901]        STORE_A_V_G1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_g.f, 623]     STORE_A_V_GDC
    Set   [conv_dif_v_g.f, 642]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 720]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 721]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 769]        STORE_A_V_GDC
    Use   [conv_dif_v_g.f, 770]        STORE_A_V_GDC

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_rop.f, 224]         CONV_ROP1
    Set   [conv_rop.f, 230]            CONV_ROP1
    Use   [conv_rop.f, 271]            CONV_ROP1
    Use   [conv_rop.f, 272]            CONV_ROP1
    Use   [conv_rop.f, 276]            CONV_ROP1
    Use   [conv_rop.f, 277]            CONV_ROP1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_s.f, 851]     STORE_A_V_S1
    Set   [conv_dif_v_s.f, 858]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 901]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 902]        STORE_A_V_S1
    Use   [conv_dif_v_s.f, 905]        STORE_A_V_S1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_v_s.f, 626]     STORE_A_V_SDC
    Set   [conv_dif_v_s.f, 645]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 752]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 753]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 766]        STORE_A_V_SDC
    Use   [conv_dif_v_s.f, 767]        STORE_A_V_SDC

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_g.f, 845]     STORE_A_U_G1
    Set   [conv_dif_u_g.f, 852]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 895]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 896]        STORE_A_U_G1
    Use   [conv_dif_u_g.f, 899]        STORE_A_U_G1

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_dif_u_g.f, 621]     STORE_A_U_GDC
    Set   [conv_dif_u_g.f, 640]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 747]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 748]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 761]        STORE_A_U_GDC
    Use   [conv_dif_u_g.f, 762]        STORE_A_U_GDC

XSI_t    (Local Variable)  Declared as: DOUBLE PRECISION (DIMENSION_3)
    Define   [conv_source_epp.f, 372]   CONV_SOURCE_EPP1
    Set   [conv_source_epp.f, 380]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 466]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 466]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 468]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 470]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 475]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 475]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 478]     CONV_SOURCE_EPP1
    Use   [conv_source_epp.f, 480]     CONV_SOURCE_EPP1

XSLICE    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [vtk_out.f, 3067]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3102]            SETUP_VTK_REGION
    Use Argument   [vtk_out.f, 3103]   SETUP_VTK_REGION

XSUM    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [test_lin_eq.f, 51]       TEST_LIN_EQ
    Set   [test_lin_eq.f, 128]         TEST_LIN_EQ
    Set   [test_lin_eq.f, 144]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 144]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 147]         TEST_LIN_EQ
    Use   [test_lin_eq.f, 148]         TEST_LIN_EQ

xt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 92]   GET_F_QUADRIC
    Set   [define_quadrics.f, 136]     GET_F_QUADRIC
    Use   [define_quadrics.f, 143]     GET_F_QUADRIC
    Use   [define_quadrics.f, 143]     GET_F_QUADRIC
    Set   [define_quadrics.f, 148]     GET_F_QUADRIC
    Use   [define_quadrics.f, 152]     GET_F_QUADRIC
    Set   [define_quadrics.f, 175]     GET_F_QUADRIC
    Use   [define_quadrics.f, 179]     GET_F_QUADRIC
    Use   [define_quadrics.f, 180]     GET_F_QUADRIC
    Set   [define_quadrics.f, 215]     GET_F_QUADRIC
    Use   [define_quadrics.f, 220]     GET_F_QUADRIC
    Use   [define_quadrics.f, 222]     GET_F_QUADRIC
    Set   [define_quadrics.f, 281]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 292]   GET_F_QUADRIC
    Set   [define_quadrics.f, 337]     GET_F_QUADRIC
    Use   [define_quadrics.f, 341]     GET_F_QUADRIC
    Use   [define_quadrics.f, 342]     GET_F_QUADRIC
    Set   [define_quadrics.f, 349]     GET_F_QUADRIC
    Use   [define_quadrics.f, 353]     GET_F_QUADRIC
    Set   [define_quadrics.f, 363]     GET_F_QUADRIC
    Use   [define_quadrics.f, 367]     GET_F_QUADRIC
    Use   [define_quadrics.f, 368]     GET_F_QUADRIC
    Set   [define_quadrics.f, 384]     GET_F_QUADRIC
    Use   [define_quadrics.f, 389]     GET_F_QUADRIC
    Set   [define_quadrics.f, 421]     GET_F_QUADRIC
    Use   [define_quadrics.f, 426]     GET_F_QUADRIC

Xt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 27]         GET_3D_ALPHA_U_CUT_CELL
    Set   [get_alpha.f, 302]           GET_3D_ALPHA_U_CUT_CELL
    Use Argument   [get_alpha.f, 307]   GET_3D_ALPHA_U_CUT_CELL

Xt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 432]        GET_3D_ALPHA_V_CUT_CELL
    Set   [get_alpha.f, 708]           GET_3D_ALPHA_V_CUT_CELL
    Use Argument   [get_alpha.f, 714]   GET_3D_ALPHA_V_CUT_CELL

Xt    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_alpha.f, 838]        GET_3D_ALPHA_W_CUT_CELL
    Set   [get_alpha.f, 1097]          GET_3D_ALPHA_W_CUT_CELL
    Use Argument   [get_alpha.f, 1103]   GET_3D_ALPHA_W_CUT_CELL

xTc    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [read_database.f, 63]     READ_DATABASE
    Set   [read_database.f, 130]       READ_DATABASE
    Use   [read_database.f, 131]       READ_DATABASE
    Set   [read_database.f, 134]       READ_DATABASE
    Use   [read_database.f, 135]       READ_DATABASE

xtr    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [define_quadrics.f, 92]   GET_F_QUADRIC
    Set   [define_quadrics.f, 152]     GET_F_QUADRIC
    Use   [define_quadrics.f, 159]     GET_F_QUADRIC
    Use   [define_quadrics.f, 159]     GET_F_QUADRIC
    Set   [define_quadrics.f, 179]     GET_F_QUADRIC
    Use   [define_quadrics.f, 198]     GET_F_QUADRIC
    Use   [define_quadrics.f, 198]     GET_F_QUADRIC
    Set   [define_quadrics.f, 220]     GET_F_QUADRIC
    Use   [define_quadrics.f, 236]     GET_F_QUADRIC
    Use   [define_quadrics.f, 236]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 239]   GET_F_QUADRIC
    Use   [define_quadrics.f, 243]     GET_F_QUADRIC
    Use   [define_quadrics.f, 243]     GET_F_QUADRIC
    Use Argument   [define_quadrics.f, 247]   GET_F_QUADRIC
    Use   [define_quadrics.f, 251]     GET_F_QUADRIC
    Use   [define_quadrics.f, 251]     GET_F_QUADRIC
    Set   [define_quadrics.f, 341]     GET_F_QUADRIC
    Use   [define_quadrics.f, 345]     GET_F_QUADRIC
    Set   [define_quadrics.f, 353]     GET_F_QUADRIC
    Use   [define_quadrics.f, 357]     GET_F_QUADRIC
    Use   [define_quadrics.f, 357]     GET_F_QUADRIC
    Set   [define_quadrics.f, 367]     GET_F_QUADRIC
    Use   [define_quadrics.f, 371]     GET_F_QUADRIC
    Set   [define_quadrics.f, 389]     GET_F_QUADRIC
    Use   [define_quadrics.f, 412]     GET_F_QUADRIC
    Set   [define_quadrics.f, 426]     GET_F_QUADRIC
    Use   [define_quadrics.f, 495]     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 (s)
    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, 335]   GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 375]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 390]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 405]    GET_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 420]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 442]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 447]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 457]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 467]    GET_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 477]    GET_CELL_NODE_COORDINATES

Xw    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [get_connectivity.f, 515]   GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 552]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 567]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 582]    GET_GLOBAL_CELL_NODE_COORDINATES
    Set   [get_connectivity.f, 597]    GET_GLOBAL_CELL_NODE_COORDINATES
    Use   [get_connectivity.f, 619]    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

XW    (Local Variable)  Declared as: DOUBLE PRECISION
    Define   [vtk_out.f, 3066]         SETUP_VTK_REGION
    Set   [vtk_out.f, 3072]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3102]            SETUP_VTK_REGION
    Use   [vtk_out.f, 3102]            SETUP_VTK_REGION

XXVAL    (Local Variable)  Declared as: DOUBLE PRECISION (2)
    Define   [drag_gs_des0.f, 492]     DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 505]        DRAG_INTERPOLATION
    Set   [drag_gs_des0.f, 507]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 515]        DRAG_INTERPOLATION
    Use   [drag_gs_des0.f, 528]        DRAG_INTERPOLATION

XXVAL    (Local Variable)  Declared as: DOUBLE PRECISION (2)
    Define   [comp_mean_fields0.f, 448]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 460]   DRAG_WEIGHTFACTOR
    Set   [comp_mean_fields0.f, 462]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 468]   DRAG_WEIGHTFACTOR
    Use   [comp_mean_fields0.f, 480]   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, 297]       write_res1_netcdf
    Use   [write_res1.f, 357]          write_res1_netcdf
    Set   [write_res1.f, 357]          write_res1_netcdf
    Use   [write_res1.f, 364]          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

Non-AlphaABCDEFGHIJKLMNOPQRSTUVWXYZ