| File |
Line number |
Procedure |
Code |
|
./eesupp/src/dfile.F |
139 |
DFILE_INIT |
unitStatus (i,j) = freeUnit |
|
./eesupp/src/dfile.F |
206 |
DFILE_OPEN |
IF ( unitStatus(I,myThid) .EQ. freeUnit ) THEN |
|
./eesupp/src/dfile.F |
209 |
DFILE_OPEN |
unitStatus(I,myThid) = busyUnit |
|
./eesupp/src/dfile.F |
331 |
DFILE_READ_R4 |
IF ( unitStatus(fileHandle,myThid) .NE. busyUnit ) GOTO 999 |
|
./eesupp/src/dfile.F |
415 |
DFILE_READ_R8 |
IF ( unitStatus(fileHandle,myThid) .NE. busyUnit ) GOTO 999 |
|
./eesupp/src/dfile.F |
574 |
DFILE_WRITE_R4 |
IF ( unitStatus(fileHandle,myThid) .NE. busyUnit ) GOTO 999 |
|
./eesupp/src/dfile.F |
708 |
DFILE_WRITE_R8 |
IF ( unitStatus(fileHandle,myThid) .NE. busyUnit ) GOTO 999 |
|
./eesupp/src/dfile.F |
87 |
DFILE_CLOSE |
IF ( unitStatus(I,myThid) .NE. busyUnit ) GOTO 1000 |
|
./eesupp/src/dfile.F |
89 |
DFILE_CLOSE |
unitStatus(I,myThid) = freeUnit |
|
./eesupp/inc/DFILE.h |
57 |
NO PROCEDURE |
COMMON /DFILE_I/ mUnitNumber, dUnitNumber, unitStatus, |
|
./eesupp/inc/DFILE.h |
62 |
NO PROCEDURE |
INTEGER unitStatus (ioUnitsPerThread,MAX_NO_THREADS) |