Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by edhill, Thu Jan 8 07:24:47 2004 UTC | revision 1.6 by edhill, Thu Jan 8 07:34:01 2004 UTC | |
---|---|---|
# | Line 295 C Strip trailing spaces | Line 295 C Strip trailing spaces |
295 | ||
296 | C Set the attribute | C Set the attribute |
297 | CALL MNC_FILE_REDEF(myThid, fname) | CALL MNC_FILE_REDEF(myThid, fname) |
print *, 'atype = ', atype | ||
298 | IF (atype .EQ. 1) THEN | IF (atype .EQ. 1) THEN |
299 | err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs) | err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs) |
300 | ELSEIF (atype .EQ. 2) THEN | ELSEIF (atype .EQ. 2) THEN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |