Symbol Description Uses
xsq 33


File Line number Procedure Code
./pkg/thsice/thsice_get_exf.F 240 THSICE_GET_EXF 
            xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 241 THSICE_GET_EXF 
            x      = SQRT(xsq)
./pkg/thsice/thsice_get_exf.F 244 THSICE_GET_EXF 
     &              *( LOG( (exf_one + exf_two*x + xsq)
./pkg/thsice/thsice_get_exf.F 245 THSICE_GET_EXF 
     &                     *(exf_one+xsq)*0.125 _d 0 )
./pkg/thsice/thsice_get_exf.F 250 THSICE_GET_EXF 
            xsq    = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 253 THSICE_GET_EXF 
     &              *exf_two*LOG( exf_half*(exf_one+xsq) )
./pkg/thsice/thsice_get_exf.F 93 THSICE_GET_EXF 
      _RL xsq                ! = x^2               [-]
./pkg/bulk_force/bulkf_formula_lanl.F 171 BULKF_FORMULA_LANL 
                 xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0)
./pkg/bulk_force/bulkf_formula_lanl.F 172 BULKF_FORMULA_LANL 
                 x      = sqrt(xsq)
./pkg/bulk_force/bulkf_formula_lanl.F 175 BULKF_FORMULA_LANL 
     &                     2. _d 0*log(5. _d -1*(1. _d 0+xsq)) -
./pkg/bulk_force/bulkf_formula_lanl.F 178 BULKF_FORMULA_LANL 
     &                     (2. _d 0*log(5. _d -1*(1. _d 0+xsq)))
./pkg/bulk_force/bulkf_formula_lanl.F 93 BULKF_FORMULA_LANL 
      _RL xsq                ! = x^2               [-]
./pkg/bulk_force/bulkf_formula_lay.F 103 BULKF_FORMULA_LAY 
      _RL xsq                ! = x^2               [-]
./pkg/bulk_force/bulkf_formula_lay.F 194 BULKF_FORMULA_LAY 
                 xsq    = SQRT( ABS(one - huol*16. _d 0) )
./pkg/bulk_force/bulkf_formula_lay.F 195 BULKF_FORMULA_LAY 
                 x      = SQRT(xsq)
./pkg/bulk_force/bulkf_formula_lay.F 198 BULKF_FORMULA_LAY 
     &                    ( LOG( (one + two*x + xsq)*(one+xsq)*.125 )
./pkg/bulk_force/bulkf_formula_lay.F 201 BULKF_FORMULA_LAY 
                 xsq    = SQRT( ABS(one - htol*16. _d 0) )
./pkg/bulk_force/bulkf_formula_lay.F 203 BULKF_FORMULA_LAY 
     &             + (one-stable)*( two*LOG(half*(one+xsq)) )
./pkg/cheapaml/cheapaml.F 307 CHEAPAML 
                 xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0)
./pkg/cheapaml/cheapaml.F 308 CHEAPAML 
                 x      = sqrt(xsq)
./pkg/cheapaml/cheapaml.F 311 CHEAPAML 
     &                     2. _d 0*log(5. _d -1*(1. _d 0+xsq)) -
./pkg/cheapaml/cheapaml.F 314 CHEAPAML 
     &                     (2. _d 0*log(5. _d -1*(1. _d 0+xsq)))
./pkg/cheapaml/cheapaml.F 91 CHEAPAML 
        _RL huol,stable,xsq,x,psimh,psixh
./pkg/exf/exf_bulkformulae.F 203 EXF_BULKFORMULAE 
      _RL xsq                   ! = x^2               [-]
./pkg/exf/exf_bulkformulae.F 383 EXF_BULKFORMULAE 
             xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 386 EXF_BULKFORMULAE 
             xsq    = max(sqrt(abs(exf_one - 16.*huol)),exf_one)
./pkg/exf/exf_bulkformulae.F 388 EXF_BULKFORMULAE 
             x      = SQRT(xsq)
./pkg/exf/exf_bulkformulae.F 391 EXF_BULKFORMULAE 
     &                ( LOG( (exf_one + exf_two*x + xsq)*
./pkg/exf/exf_bulkformulae.F 392 EXF_BULKFORMULAE 
     &                       (exf_one+xsq)*.125 _d 0 )
./pkg/exf/exf_bulkformulae.F 399 EXF_BULKFORMULAE 
            xsq   = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 402 EXF_BULKFORMULAE 
            xsq   = max(sqrt(abs(exf_one - 16.*htol)),exf_one)
./pkg/exf/exf_bulkformulae.F 405 EXF_BULKFORMULAE 
     &               ( exf_two*LOG(exf_half*(exf_one+xsq)) )