125 |
mm = nn |
mm = nn |
126 |
mupd = nupdate |
mupd = nupdate |
127 |
|
|
128 |
REAL_BYTE = 4 |
REAL_BYTE = 4 |
129 |
isize = REAL_BYTE |
isize = REAL_BYTE |
130 |
|
|
131 |
c----------------------------------------- |
c----------------------------------------- |
279 |
cph( |
cph( |
280 |
print *, 'pathei: vor lswri ' |
print *, 'pathei: vor lswri ' |
281 |
cph) |
cph) |
282 |
call lswri( isize, iiter, nn, xx, gg, lphprint ) |
cph call lswri( isize, iiter, nn, xx, gg, lphprint ) |
283 |
|
|
284 |
cph( |
cph( |
285 |
print *, 'pathei: vor gnorm0 ' |
print *, 'pathei: vor gnorm0 ' |
450 |
call dostore( nn, xx, .true., 1 ) |
call dostore( nn, xx, .true., 1 ) |
451 |
call dostore( nn, gg, .true., 2 ) |
call dostore( nn, gg, .true., 2 ) |
452 |
cph( |
cph( |
453 |
call lswri( isize, iiter, nn, xx, gg, lphprint ) |
cph call lswri( isize, iiter, nn, xx, gg, lphprint ) |
454 |
cph) |
cph) |
455 |
|
|
456 |
gnorm = DNRM2( nn, gg, 1 ) |
gnorm = DNRM2( nn, gg, 1 ) |