| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_exf.F |
116 |
THSICE_GET_EXF |
_RL xsq ! = x^2 [-] |
|
./pkg/thsice/thsice_get_exf.F |
341 |
THSICE_GET_EXF |
xsq = SQRT( ABS(exf_one - huol*16. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
344 |
THSICE_GET_EXF |
xsq = MAX(SQRT(ABS(exf_one - huol*16. _d 0)),exf_one) |
|
./pkg/thsice/thsice_get_exf.F |
346 |
THSICE_GET_EXF |
x = SQRT(xsq) |
|
./pkg/thsice/thsice_get_exf.F |
349 |
THSICE_GET_EXF |
& *( LOG( (exf_one + exf_two*x + xsq) |
|
./pkg/thsice/thsice_get_exf.F |
350 |
THSICE_GET_EXF |
& *(exf_one+xsq)*0.125 _d 0 ) |
|
./pkg/thsice/thsice_get_exf.F |
354 |
THSICE_GET_EXF |
xsq = SQRT( ABS(exf_one - htol*16. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
357 |
THSICE_GET_EXF |
xsq = MAX(SQRT(ABS(exf_one - htol*16. _d 0)),exf_one) |
|
./pkg/thsice/thsice_get_exf.F |
361 |
THSICE_GET_EXF |
& *exf_two*LOG( exf_half*(exf_one+xsq) ) |
|
./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 |
310 |
CHEAPAML |
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0) |
|
./pkg/cheapaml/cheapaml.F |
311 |
CHEAPAML |
x = sqrt(xsq) |
|
./pkg/cheapaml/cheapaml.F |
314 |
CHEAPAML |
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) - |
|
./pkg/cheapaml/cheapaml.F |
317 |
CHEAPAML |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
|
./pkg/cheapaml/cheapaml.F |
94 |
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 |
384 |
EXF_BULKFORMULAE |
xsq = SQRT( ABS(exf_one - huol*16. _d 0) ) |
|
./pkg/exf/exf_bulkformulae.F |
387 |
EXF_BULKFORMULAE |
xsq = max(sqrt(abs(exf_one - 16.*huol)),exf_one) |
|
./pkg/exf/exf_bulkformulae.F |
389 |
EXF_BULKFORMULAE |
x = SQRT(xsq) |
|
./pkg/exf/exf_bulkformulae.F |
392 |
EXF_BULKFORMULAE |
& ( LOG( (exf_one + exf_two*x + xsq)* |
|
./pkg/exf/exf_bulkformulae.F |
393 |
EXF_BULKFORMULAE |
& (exf_one+xsq)*.125 _d 0 ) |
|
./pkg/exf/exf_bulkformulae.F |
402 |
EXF_BULKFORMULAE |
xsq = SQRT( ABS(exf_one - htol*16. _d 0) ) |
|
./pkg/exf/exf_bulkformulae.F |
405 |
EXF_BULKFORMULAE |
xsq = max(sqrt(abs(exf_one - 16.*htol)),exf_one) |
|
./pkg/exf/exf_bulkformulae.F |
408 |
EXF_BULKFORMULAE |
& ( exf_two*LOG(exf_half*(exf_one+xsq)) ) |