| File |
Line number |
Procedure |
Code |
|
./model/src/find_rho.F |
1110 |
FIND_RHO_SCALAR |
den = eosMDJWFden(0) |
|
./model/src/find_rho.F |
1121 |
FIND_RHO_SCALAR |
rhoDen = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
1146 |
FIND_RHO_SCALAR |
den = teos(21) |
|
./model/src/find_rho.F |
1158 |
FIND_RHO_SCALAR |
rhoDen = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
696 |
FIND_RHODEN |
_RL den, epsln |
|
./model/src/find_rho.F |
719 |
FIND_RHODEN |
den = eosMDJWFden(0) |
|
./model/src/find_rho.F |
730 |
FIND_RHODEN |
rhoDen(i,j) = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
780 |
FIND_RHOTEOS |
_RL den, epsln |
|
./model/src/find_rho.F |
809 |
FIND_RHOTEOS |
den = teos(21) |
|
./model/src/find_rho.F |
821 |
FIND_RHOTEOS |
rhoDen(i,j) = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
865 |
FIND_RHO_SCALAR |
_RL rhoNum, rhoDen, den, epsln |
|
./model/src/find_rho.F |
920 |
FIND_RHO_SCALAR |
den = 0. _d 0 |
|
./lsopt/cubic.F |
12 |
CUBIC |
double precision sign, den, anum |
|
./lsopt/cubic.F |
63 |
CUBIC |
den = sngl(z1+b+dble(fpa)) |
|
./lsopt/cubic.F |
65 |
CUBIC |
if (abs((t-ta)*anum).lt.(tupper-tlower)*abs(den)) then |
|
./lsopt/cubic.F |
66 |
CUBIC |
t = t + anum*(ta-t)/den |
|
./lsopt/dgscale.F |
27 |
DGSCALE |
double precision r1, rmin, den |
|
./lsopt/dgscale.F |
48 |
DGSCALE |
den = 0.0 |
|
./lsopt/dgscale.F |
57 |
DGSCALE |
den = den + xdiff(i)*xdiff(i) / diag(i) |
|
./lsopt/dgscale.F |
62 |
DGSCALE |
$ (1./diag(i)+gold(i)**2-(xdiff(i)/diag(i))**2/den) |