| File |
Line number |
Procedure |
Code |
|
./lsopt/instore.F |
11 |
INSTORE |
common /xxstore/ itape, ntape, isize |
|
./lsopt/instore.F |
12 |
INSTORE |
integer itape, ntape, isize |
|
./lsopt/instore.F |
17 |
INSTORE |
isize = is |
|
./lsopt/instore.F |
32 |
INSTORE |
$ isize, m, jmin, jmax |
|
./lsopt/instore.F |
40 |
INSTORE |
$ ' opening direct access with recl = ',n,' * ',isize |
|
./lsopt/instore.F |
43 |
INSTORE |
rectmp = n * isize |
|
./lsopt/instore.F |
45 |
INSTORE |
print *, 'pathei rectmp ', rectmp, n, isize |
|
./lsopt/dostore.F |
10 |
DOSTORE |
common /xxstore/ itape, ntape, isize |
|
./lsopt/dostore.F |
11 |
DOSTORE |
integer itape, ntape, 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 |
282 |
LSOPT_TOP |
call LSWRI( isize, iiter, nn, xx, gg, lphprint ) |
|
./lsopt/lsopt_top.F |
453 |
LSOPT_TOP |
call LSWRI( isize, iiter, nn, xx, gg, lphprint ) |
|
./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/lswri.F |
43 |
LSWRI |
& RECL=NN*isize) |
|
./lsopt/lswri.F |
51 |
LSWRI |
& RECL=NN*isize) |
|
./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 |