Parent Directory | Revision Log | Revision Graph | Patch
revision 1.21 by edhill, Fri Mar 10 16:09:32 2006 UTC | revision 1.22 by edhill, Fri Mar 10 22:01:54 2006 UTC | |
---|---|---|
# | Line 134 C Strip trailing spaces | Line 134 C Strip trailing spaces |
134 | lenv = ILNBLNK(vname) | lenv = ILNBLNK(vname) |
135 | ||
136 | C Check that the file is open | C Check that the file is open |
137 | 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) |
138 | IF (indf .LT. 1) THEN | IF (indf .LT. 1) THEN |
139 | nf = ILNBLNK( fname ) | nf = ILNBLNK( fname ) |
140 | write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), | write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |