Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by adcroft, Tue May 18 17:36:55 1999 UTC | revision 1.3 by adcroft, Mon May 24 14:15:15 1999 UTC | |
---|---|---|
# | Line 518 C-- Un-normalise the answer | Line 518 C-- Un-normalise the answer |
518 | ENDDO | ENDDO |
519 | ENDDO | ENDDO |
520 | ||
521 | _EXCH_XYZ_R8(cg3d_x, myThid ) | Cadj _EXCH_XYZ_R8(cg3d_x, myThid ) |
522 | _BEGIN_MASTER( myThid ) | _BEGIN_MASTER( myThid ) |
523 | WRITE(0,'(A,I6,1PE30.14)') ' CG3D iters, err = ', | WRITE(0,'(A,I6,1PE30.14)') ' CG3D iters, err = ', |
524 | & actualIts, actualResidual | & actualIts, actualResidual |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |