| File |
Line number |
Procedure |
Code |
|
./lsopt/instore.F |
1 |
INSTORE |
subroutine INSTORE( n, fc, gnorm0, is, m, jmin, jmax, |
|
./lsopt/instore.F |
32 |
INSTORE |
read( itape, *, end=800, err=900 ) n, fc, gnorm0, |
|
./lsopt/instore.F |
7 |
INSTORE |
double precision fc, gnorm0 |
|
./lsopt/lsopt_top.F |
116 |
LSOPT_TOP |
gnorm0 = 1. |
|
./lsopt/lsopt_top.F |
216 |
LSOPT_TOP |
call INSTORE( mm, fupd, gnorm0, isize, mupd, jmin, jmax, cold, |
|
./lsopt/lsopt_top.F |
287 |
LSOPT_TOP |
gnorm0 = DNRM2( nn, gg, 1 ) |
|
./lsopt/lsopt_top.F |
289 |
LSOPT_TOP |
print *, 'pathei: gnorm0 = ', gnorm0 |
|
./lsopt/lsopt_top.F |
291 |
LSOPT_TOP |
if (gnorm0 .lt. rmin) then |
|
./lsopt/lsopt_top.F |
377 |
LSOPT_TOP |
print iform, iiter, tact, ifunc, ff, gnorm0 |
|
./lsopt/lsopt_top.F |
422 |
LSOPT_TOP |
& , ff, fmin, fold, gnorm0, dotdg |
|
./lsopt/lsopt_top.F |
564 |
LSOPT_TOP |
eps1 = gnorm / gnorm0 |
|
./lsopt/lsopt_top.F |
592 |
LSOPT_TOP |
call OUTSTORE( nn, ff, gnorm0, nupdate, jmin, jmax ) |
|
./lsopt/lsopt_top.F |
604 |
LSOPT_TOP |
& , ff, fmin, fold, gnorm0, dotdg |
|
./lsopt/lsopt_top.F |
81 |
LSOPT_TOP |
double precision r1, tmin, tmax, tact, gnorm, gnorm0, eps1 |
|
./lsopt/lsupdxx.F |
38 |
LSUPDXX |
double precision ff, fmin, fold, gnorm0, dotdg |
|
./lsopt/lsupdxx.F |
5 |
LSUPDXX |
& , ff, fmin, fold, gnorm0, dotdg |
|
./lsopt/lsupdxx.F |
69 |
LSUPDXX |
preco = 2. * fdiff / (gnorm0*gnorm0) |
|
./lsopt/outstore.F |
18 |
OUTSTORE |
write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax |
|
./lsopt/outstore.F |
1 |
OUTSTORE |
subroutine OUTSTORE( n, fc, gnorm0, m, jmin, jmax ) |
|
./lsopt/outstore.F |
6 |
OUTSTORE |
double precision fc, gnorm0 |