File |
Line number |
Procedure |
Code |
./lsopt/dostore.F |
10 |
DOSTORE |
common /xxstore/ itape, ntape, isize |
./lsopt/dostore.F |
11 |
DOSTORE |
integer itape, ntape, isize |
./lsopt/instore.F |
12 |
INSTORE |
common /xxstore/ itape, ntape, isize |
./lsopt/instore.F |
13 |
INSTORE |
integer itape, ntape, isize |
./lsopt/instore.F |
18 |
INSTORE |
isize = is |
./lsopt/instore.F |
33 |
INSTORE |
$ isize, m, jmin, jmax |
./lsopt/instore.F |
41 |
INSTORE |
$ ' opening direct access with recl = ',n,' * ',isize |
./lsopt/instore.F |
45 |
INSTORE |
tmp2 = isize |
./lsopt/instore.F |
48 |
INSTORE |
print *, 'pathei rectmp ', rectmp, n, isize |
./lsopt/lsopt_top.F |
129 |
LSOPT_TOP |
isize = REAL_BYTE |
./lsopt/lsopt_top.F |
216 |
LSOPT_TOP |
call INSTORE( mm, fupd, gnorm0, isize, mupd, jmin, jmax, cold, |
./lsopt/lsopt_top.F |
234 |
LSOPT_TOP |
if (isize .ne. REAL_BYTE) then |
./lsopt/lsopt_top.F |
77 |
LSOPT_TOP |
integer mm, mupd, jmin, jmax, indic, isize, REAL_BYTE |
./lsopt/lswri.F |
22 |
LSWRI |
INTEGER isize, phniter, NN |
./lsopt/lswri.F |
2 |
LSWRI |
subroutine LSWRI( isize, phniter, NN, xx, gg, lphprint ) |
./lsopt/outstore.F |
10 |
OUTSTORE |
integer itape, ntape, isize |
./lsopt/outstore.F |
18 |
OUTSTORE |
write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax |
./lsopt/outstore.F |
9 |
OUTSTORE |
common /xxstore/ itape, ntape, isize |