| File |
Line number |
Procedure |
Code |
|
./model/src/find_rho.F |
1088 |
FIND_RHO_SCALAR |
den = eosMDJWFden(0) |
|
./model/src/find_rho.F |
1099 |
FIND_RHO_SCALAR |
rhoDen = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
1124 |
FIND_RHO_SCALAR |
den = teos(21) |
|
./model/src/find_rho.F |
1136 |
FIND_RHO_SCALAR |
rhoDen = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
675 |
FIND_RHODEN |
_RL den, epsln |
|
./model/src/find_rho.F |
698 |
FIND_RHODEN |
den = eosMDJWFden(0) |
|
./model/src/find_rho.F |
709 |
FIND_RHODEN |
rhoDen(i,j) = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
759 |
FIND_RHOTEOS |
_RL den, epsln |
|
./model/src/find_rho.F |
788 |
FIND_RHOTEOS |
den = teos(21) |
|
./model/src/find_rho.F |
800 |
FIND_RHOTEOS |
rhoDen(i,j) = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
844 |
FIND_RHO_SCALAR |
_RL rhoNum, rhoDen, den, epsln |
|
./model/src/find_rho.F |
898 |
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) |