| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
475 |
OPPS_CALC |
_RL rhoNum, rhoDen, den, epsln |
|
./pkg/opps/opps_calc.F |
514 |
OPPS_CALC |
den = 0. _d 0 |
|
./pkg/opps/opps_calc.F |
636 |
OPPS_CALC |
den = eosMDJWFden(0) |
|
./pkg/opps/opps_calc.F |
647 |
OPPS_CALC |
rhoDen = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
525 |
FIND_RHODEN |
_RL den, epsln |
|
./model/src/find_rho.F |
544 |
FIND_RHODEN |
den = eosMDJWFden(0) |
|
./model/src/find_rho.F |
555 |
FIND_RHODEN |
rhoDen(i,j) = 1.0/(epsln+den) |
|
./model/src/find_rho.F |
598 |
FIND_RHO_SCALAR |
_RL rhoNum, rhoDen, den, epsln |
|
./model/src/find_rho.F |
613 |
FIND_RHO_SCALAR |
den = 0. _d 0 |
|
./model/src/find_rho.F |
748 |
FIND_RHO_SCALAR |
den = eosMDJWFden(0) |
|
./model/src/find_rho.F |
759 |
FIND_RHO_SCALAR |
rhoDen = 1.0/(epsln+den) |
|
./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) |