| File |
Line number |
Procedure |
Code |
|
./lsopt/hessupd.F |
2 |
HESSUPD |
subroutine HESSUPD( nn, mupd, dd, jmin, jmax, xdiff, lphprint ) |
|
./lsopt/hessupd.F |
37 |
HESSUPD |
integer nn, mupd, jmin, jmax |
|
./lsopt/hessupd.F |
57 |
HESSUPD |
& 'jmin, jmax, mupd:', jmin, jmax, mupd |
|
./lsopt/hessupd.F |
59 |
HESSUPD |
if (jfin.lt.jmin) jfin = jmax+mupd |
|
./lsopt/hessupd.F |
71 |
HESSUPD |
if (jp.gt.mupd) jp = jp-mupd |
|
./lsopt/hessupd.F |
84 |
HESSUPD |
if (mupd .ne. 0) then |
|
./lsopt/hessupd.F |
96 |
HESSUPD |
if (jp .gt. mupd) jp = jp-mupd |
|
./lsopt/lsopt_top.F |
126 |
LSOPT_TOP |
mupd = nupdate |
|
./lsopt/lsopt_top.F |
216 |
LSOPT_TOP |
call INSTORE( mm, fupd, gnorm0, isize, mupd, jmin, jmax, cold, |
|
./lsopt/lsopt_top.F |
242 |
LSOPT_TOP |
if (mupd .lt. 1) then |
|
./lsopt/lsopt_top.F |
315 |
LSOPT_TOP |
if (mupd .ne. nupdate) then |
|
./lsopt/lsopt_top.F |
318 |
LSOPT_TOP |
$ , ' ERROR : inconsistent nupdate = ', mupd |
|
./lsopt/lsopt_top.F |
331 |
LSOPT_TOP |
if (jmin .gt. mupd) then |
|
./lsopt/lsopt_top.F |
339 |
LSOPT_TOP |
if (jmax .gt. mupd) then |
|
./lsopt/lsopt_top.F |
77 |
LSOPT_TOP |
integer mm, mupd, jmin, jmax, indic, isize, REAL_BYTE |