| File |
Line number |
Procedure |
Code |
|
./lsopt/dgscale.F |
27 |
DGSCALE |
double precision r1, rmin, den |
|
./lsopt/dgscale.F |
35 |
DGSCALE |
r1 = 0. |
|
./lsopt/dgscale.F |
37 |
DGSCALE |
r1 = r1 + gold(i)*gold(i)*diag(i) |
|
./lsopt/dgscale.F |
39 |
DGSCALE |
r1 = 1.0 / r1 |
|
./lsopt/dgscale.F |
41 |
DGSCALE |
call SSCAL( nn, r1, diag, 1 ) |
|
./lsopt/lsopt_top.F |
542 |
LSOPT_TOP |
r1 = sqrt(1./ys) |
|
./lsopt/lsopt_top.F |
543 |
LSOPT_TOP |
call DSCAL( nn, r1, xdiff, 1 ) |
|
./lsopt/lsopt_top.F |
544 |
LSOPT_TOP |
call DSCAL( nn, r1, gold, 1 ) |
|
./lsopt/lsopt_top.F |
81 |
LSOPT_TOP |
double precision r1, tmin, tmax, tact, gnorm, gnorm0, eps1 |