<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5552325136   5713                                                                                                                                                                                                                                                                                                                                                                      examples/fmt1.f                                                                                        644    1107     770         1021  5552325425   7011                                                                                                                                                                                                                                                                                                                                                                      C Illustrates a problem with line-oriented I/O

      PROGRAM FMT1
      
      IMPLICIT NONE
      INTEGER A(5), I

      PRINT *, 'Please enter five two-digit integers, separated'
      PRINT *, 'by a single space, all on the same line'

      DO I = 1, 5
         READ (UNIT=*, FMT=100) A(I)
      ENDDO

      PRINT *, 'I will now print the numbers 1-5 all on the same'
      PRINT *, 'line, separated by two spaces'

      DO I = 1, 5
         WRITE (UNIT=*, FMT=100) I
      ENDDO

 100  FORMAT (5I3)

      STOP
      END
  n.  cs354 9    8I  cs353    o  cs364    7  cs365  	   !  cs366 Az   N>  cs367      7  cs376       cs431 n1    >  cs451 rt  0 6G  cs677  	  @ d>  cs506 L  P o+  cs507 d  ` 	d3  cs508    p z  cs509 n1   
X  cs511 rt   n  cs531  	   D  cs537    C  cs539     D  cs541 y)   8  cs542      cs546     ɥ  cs547 n2    d%  cs100 rt   !e  cs561      *  cs56examples/fmt2.f                                                                                        644    1107     770          741  5552325516   7003                                                                                                                                                                                                                                                                                                                                                                      C Illustrates a problem with line-oriented I/O

      PROGRAM FMT1
      
      IMPLICIT NONE
      INTEGER A(5), I

      PRINT *, 'Please enter five two-digit integers, separated'
      PRINT *, 'by a single space, all on the same line'

      READ (UNIT=*, FMT=100) (A(I), I=1,5)

      PRINT *, 'I will now print the numbers 1-5 all on the same'
      PRINT *, 'line, separated by two spaces'

      WRITE (UNIT=*, FMT=100) (I, I=1,5)

 100  FORMAT (5I3)

      STOP
      END
ENDDO

 100  FORMAT (5I3)

    examples/date1.f                                                                                       644    1107     770          755  5552324544   7136                                                                                                                                                                                                                                                                                                                                                                      C Illustrates skipping around in format statements

      PROGRAM FMT3
      
      IMPLICIT NONE
      INTEGER MONTH, DAY, YEAR

      PRINT *, 'Please enter a date as mm.dd.yy'

      READ (UNIT=*, FMT=100) MONTH, DAY, YEAR
      WRITE (UNIT=*, FMT=200) DAY
      WRITE (UNIT=*, FMT=300) MONTH
      WRITE (UNIT=*, FMT=400) YEAR


 100  FORMAT (I2, TR1, I2, TR1, I2)
 200  FORMAT ('The day is ', I2)
 300  FORMAT ('The month is ', I2)
 400  FORMAT ('The year is ', I2)

      STOP
      END
 FORMAT (5I3)

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             