Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by cnh, Tue Jun 9 16:48:01 1998 UTC | revision 1.4 by adcroft, Mon Jun 22 15:26:25 1998 UTC | |
---|---|---|
# | Line 325 C-- Check that file is active | Line 325 C-- Check that file is active |
325 | iLo = IFNBLNK(fNam) | iLo = IFNBLNK(fNam) |
326 | iHi = ILNBLNK(fNam) | iHi = ILNBLNK(fNam) |
327 | ioUnit = dUnitNumber(fileHandle,myThid) | ioUnit = dUnitNumber(fileHandle,myThid) |
328 | READ(ioUnit,ERR=899) (ioBuf_R4(I),I=1,lBuffer) | READ(ioUnit) (ioBuf_R4(I),I=1,lBuffer) |
329 | ||
330 | ||
331 | 1000 CONTINUE | 1000 CONTINUE |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |