Parent Directory | Revision Log | Revision Graph | Patch
revision 1.9 by adcroft, Mon May 24 14:31:23 1999 UTC | revision 1.10 by adcroft, Wed Mar 15 16:00:52 2000 UTC | |
---|---|---|
# | Line 66 C == Routine arguments == | Line 66 C == Routine arguments == |
66 | INTEGER myThid | INTEGER myThid |
67 | INTEGER fileHandle | INTEGER fileHandle |
68 | ||
69 | #ifdef USE_DFILE | |
70 | ||
71 | C == Local variables == | C == Local variables == |
72 | C msgBuf - Error message buffer | C msgBuf - Error message buffer |
73 | C I - Work variables | C I - Work variables |
# | Line 780 C-- Now write meta information | Line 782 C-- Now write meta information |
782 | ioErrorCount(myThid) = ioErrorCount(myThid) + 1 | ioErrorCount(myThid) = ioErrorCount(myThid) + 1 |
783 | GOTO 1000 | GOTO 1000 |
784 | ||
785 | #endif /* USE_DFILE */ | |
786 | ||
787 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |