Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.3 by jmc, Mon Nov 26 00:13:05 2012 UTC | revision 1.4 by dimitri, Tue Sep 26 15:52:52 2017 UTC | |
|---|---|---|
| # | Line 29 C---+----1----+----2----+----3----+----4 | Line 29 C---+----1----+----2----+----3----+----4 |
| 29 | ||
| 30 | C Sweep through a valid range of unit numbers | C Sweep through a valid range of unit numbers |
| 31 | ioUnit=-1 | ioUnit=-1 |
| 32 | #ifdef HACK_FOR_GMAO_CPL | |
| 33 | DO ii=31,999 | |
| 34 | #else /* HACK_FOR_GMAO_CPL */ | |
| 35 | DO ii=9,999 | DO ii=9,999 |
| 36 | #endif /* HACK_FOR_GMAO_CPL */ | |
| 37 | IF ( ioUnit.EQ.-1 ) THEN | IF ( ioUnit.EQ.-1 ) THEN |
| 38 | C- skip reserved unit numbers | C- skip reserved unit numbers |
| 39 | IF ( ii.NE.errorMessageUnit | IF ( ii.NE.errorMessageUnit |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |