| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
157 |
BULKF_FORMULA_LANL |
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
158 |
BULKF_FORMULA_LANL |
x = sqrt(xsq) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
161 |
BULKF_FORMULA_LANL |
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) - |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
164 |
BULKF_FORMULA_LANL |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
67 |
BULKF_FORMULA_LANL |
_RL xsq |
|
./pkg/exf/exf_bulkformulae.F |
167 |
EXF_BULKFORMULAE |
_RL xsq |
|
./pkg/exf/exf_bulkformulae.F |
390 |
EXF_BULKFORMULAE |
xsq = max(sqrt(abs(exf_one - 16.*huol)),exf_one) |
|
./pkg/exf/exf_bulkformulae.F |
391 |
EXF_BULKFORMULAE |
x = sqrt(xsq) |
|
./pkg/exf/exf_bulkformulae.F |
395 |
EXF_BULKFORMULAE |
& (exf_one + xsq)/8.) - exf_two*atan(x) + |
|
./pkg/exf/exf_bulkformulae.F |
397 |
EXF_BULKFORMULAE |
xsq = max(sqrt(abs(exf_one - 16.*htol)),exf_one) |
|
./pkg/exf/exf_bulkformulae.F |
399 |
EXF_BULKFORMULAE |
& exf_two*log((exf_one + xsq)/exf_two) |