Parent Directory | Revision Log | Revision Graph | Patch
revision 1.18 by adcroft, Wed Dec 9 16:11:51 1998 UTC | revision 1.19 by adcroft, Mon Mar 22 15:54:03 1999 UTC | |
---|---|---|
# | Line 198 C WRITE(6,*) ' mythid, err = ', myth | Line 198 C WRITE(6,*) ' mythid, err = ', myth |
198 | err = errBuf(1,1) | err = errBuf(1,1) |
199 | ||
200 | _BEGIN_MASTER( myThid ) | _BEGIN_MASTER( myThid ) |
201 | write(0,'(A,1PE30.14)') 'cg2d: Sum(rhs) = ',sumRHS | write(0,'(A,1PE30.14)') ' cg2d: Sum(rhs) = ',sumRHS |
202 | _END_MASTER( ) | _END_MASTER( ) |
203 | ||
204 | actualIts = 0 | actualIts = 0 |
# | Line 396 C err = errBuf(1,1) | Line 396 C err = errBuf(1,1) |
396 | C write(0,*) 'cg2d: Ax - b = ',SQRT(err) | C write(0,*) 'cg2d: Ax - b = ',SQRT(err) |
397 | CcnhDebugEnds | CcnhDebugEnds |
398 | ||
399 | RETURN | |
400 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |