<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5564254356   5723                                                                                                                                                                                                                                                                                                                                                                      examples/file1.f                                                                                       644    1107     172          524  5564254351   7127                                                                                                                                                                                                                                                                                                                                                                      C Illustrates file I/O

C Created:  Joe Zachary, November 13, 1992
C Modified:

      PROGRAM FILE1

      IMPLICIT NONE
      INTEGER SUM, I, NUMBER

      SUM = 0

      DO I = 1, 10
         READ (UNIT=5, FMT=200) NUMBER
         SUM = SUM + NUMBER
      ENDDO

      PRINT *, 'The sum is ', SUM

 200  FORMAT (I2)

      STOP
      END
chaos r.   ±{  cs101 bi   Þp  cs104 ±Ã  , X€  cs522 8  < L°  cs120 st  L M  cs201 re  \ e  cs202 4   l  e  cs300 t  | Óå  cs301 Ç  Œexamples/file2.f                                                                                       644    1107     770          571  5552332237   7133                                                                                                                                                                                                                                                                                                                                                                      C Illustrates file I/O

C Created:  Joe Zachary, November 13, 1992
C Modified:

      PROGRAM FILE2

      IMPLICIT NONE
      INTEGER SUM, I, NUMBER

      SUM = 0

      OPEN(UNIT=7, FILE='filename')

      DO I = 1, 10
         READ (UNIT=7, FMT=200) NUMBER
         SUM = SUM + NUMBER
      ENDDO

      PRINT *, 'The sum is ', SUM

 200  FORMAT (I2)

      STOP
      END
 cs104 ±Ã  , X€  cs522 8  < L°  cs120 st  L M  cs201 re  \ e  cs202 4   l  e  cs300 t  | Óå  cs301 Ç  Œexamples/file3.f                                                                                       644    1107     770          525  5552332252   7130                                                                                                                                                                                                                                                                                                                                                                      C Illustrates file I/O

C Created:  Joe Zachary, November 13, 1992
C Modified:

      PROGRAM FILE3

      IMPLICIT NONE
      INTEGER I, NUMBER

      PRINT *, 'Please enter a positive integer less than 20'
      READ *, NUMBER

      DO I = 1, NUMBER
         WRITE (UNIT=6, FMT=200) I
      ENDDO

 200  FORMAT (I2)

      STOP
      END
  FORMAT (I2)

      STOP
      END
 cs104 ±Ã  , X€  cs522 8  < L°  cs120 st  L M  cs201 re  \ e  cs202 4   l  e  cs300 t  | Óå  cs301 Ç  Œexamples/file4.f                                                                                       644    1107     770          572  5552332261   7133                                                                                                                                                                                                                                                                                                                                                                      C Illustrates file I/O

C Created:  Joe Zachary, November 13, 1992
C Modified:

      PROGRAM FILE4

      IMPLICIT NONE
      INTEGER I, NUMBER

      PRINT *, 'Please enter a positive integer less than 20'
      READ *, NUMBER

      OPEN(UNIT=8, FILE='filename')

      DO I = 1, NUMBER
         WRITE (UNIT=8, FMT=200) I
      ENDDO

 200  FORMAT (I2)

      STOP
      END
 cs104 ±Ã  , X€  cs522 8  < L°  cs120 st  L M  cs201 re  \ e  cs202 4   l  e  cs300 t  | Óå  cs301 Ç  Œ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             