98 |
dnl = ILNBLNK(dname) |
dnl = ILNBLNK(dname) |
99 |
|
|
100 |
C Verify that the file exists |
C Verify that the file exists |
101 |
CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid) |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
102 |
IF ( indf .LT. 1 ) THEN |
IF ( indf .LT. 1 ) THEN |
103 |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
104 |
& ''' does not exist' |
& ''' does not exist' |
200 |
nf = ILNBLNK(fname) |
nf = ILNBLNK(fname) |
201 |
|
|
202 |
C Verify that the file exists |
C Verify that the file exists |
203 |
CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid) |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
204 |
IF (indf .LT. 1) THEN |
IF (indf .LT. 1) THEN |
205 |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
206 |
& ''' does not exist' |
& ''' does not exist' |