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