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 |