Group: comp.lang.fortran · Group Profile · Search for Iclosed in comp.lang.fortran
Author: alan.lemon
Date: Nov 22, 2006 12:00
...THAT THE RECORD IS FREE C2------FORMAT. SET A FLAG SPECIFYING IF FREE FORMAT OR FIXED FORMAT. ICLOSE=0 IFREE=1 ICOL=1 CALL URWORD(CNTRL,ICOL,ISTART,ISTOP,1,N,R,IOUT,IN) IF...WRITE(IOUT,15) LOCAT,FNAME 15 FORMAT(1X,/1X,'OPENING FILE ON UNIT ',I4,':',/1X,A) ICLOSE=1 ELSE IF(CNTRL(ISTART:ISTOP).NE.'HDF5') THEN !emrl C C2A-----DID NOT FIND A ...
| 
