218 |
IF ( aMode .EQ. accessModeRW ) THEN |
IF ( aMode .EQ. accessModeRW ) THEN |
219 |
OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),STATUS='UNKNOWN',ERR=899) |
OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),STATUS='UNKNOWN',ERR=899) |
220 |
CLOSE(mUnit,ERR=899) |
CLOSE(mUnit,ERR=899) |
221 |
|
OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),STATUS='UNKNOWN',ERR=899) |
222 |
|
metaDataStatus(fileHandle,myThid) = metaDataNotWritten |
223 |
|
nameOfMFile(fileHandle,myThid) = fNamMeta(i2Lo:i2Hi) |
224 |
ENDIF |
ENDIF |
|
OPEN(UNIT=mUnit,NAME=fNamMeta(i2Lo:i2Hi),STATUS='UNKNOWN',ERR=899) |
|
|
metaDataStatus(fileHandle,myThid) = metaDataNotWritten |
|
|
nameOfMFile(fileHandle,myThid) = fNamMeta(i2Lo:i2Hi) |
|
225 |
ENDIF |
ENDIF |
226 |
|
|
227 |
C-- Open data file |
C-- Open data file |
228 |
nameOfDFile(fileHandle,myThid) = fNam(i1Lo:i1Hi) |
nameOfDFile(fileHandle,myThid) = fNam(i1Lo:i1Hi) |
229 |
OPEN(UNIT=dUnit,NAME=fNam(i1Lo:i1Hi),STATUS='UNKNOWN',ERR=799, |
OPEN(UNIT=dUnit,NAME=fNam(i1Lo:i1Hi),STATUS='UNKNOWN', !ERR=799, |
230 |
& FORM='UNFORMATTED',ACCESS='SEQUENTIAL') |
& FORM='UNFORMATTED',ACCESS='SEQUENTIAL') |
231 |
|
|
232 |
|
|