125 |
mm = nn |
mm = nn |
126 |
mupd = nupdate |
mupd = nupdate |
127 |
|
|
128 |
REAL_BYTE = 4 |
REAL_BYTE = 8 |
129 |
isize = REAL_BYTE |
isize = REAL_BYTE |
130 |
|
|
131 |
c----------------------------------------- |
c----------------------------------------- |
377 |
print iform, iiter, tact, ifunc, ff, gnorm0 |
print iform, iiter, tact, ifunc, ff, gnorm0 |
378 |
$ , DNRM2( nn, xx, 1 ), 0. |
$ , DNRM2( nn, xx, 1 ), 0. |
379 |
|
|
380 |
write(94,'(i5,2x,1pe11.4,4(2x,1pe8.1))') |
Cml write(94,'(i5,2x,1pe11.4,4(2x,1pe8.1))') |
381 |
& iiter, ff, gnorm0, tact, |
Cml & iiter, ff, gnorm0, tact, |
382 |
& DNRM2( nn, xx, 1 ), 0. |
Cml & DNRM2( nn, xx, 1 ), 0. |
383 |
|
|
384 |
if ( itmax .EQ. 0 ) then |
if ( itmax .EQ. 0 ) then |
385 |
ifail = 10 |
ifail = 10 |
461 |
print iform, iiter, tact, ifunc, ff, gnorm |
print iform, iiter, tact, ifunc, ff, gnorm |
462 |
$ , DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 ) |
$ , DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 ) |
463 |
|
|
464 |
write(94,'(i5,2x,1pe11.4,4(2x,1pe8.1))') |
Cml write(94,'(i5,2x,1pe11.4,4(2x,1pe8.1))') |
465 |
& iiter, ff, gnorm, tact, |
Cml & iiter, ff, gnorm, tact, |
466 |
& DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 ) |
Cml & DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 ) |
467 |
|
|
468 |
c----------------------------------------- |
c----------------------------------------- |
469 |
c check output mode of ifail |
c check output mode of ifail |