<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5552335417   5716                                                                                                                                                                                                                                                                                                                                                                      examples/file5.f                                                                                       644    1107     770          714  5552332362   7134                                                                                                                                                                                                                                                                                                                                                                      C Illustrates file I/O

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

      PROGRAM FILE2

      IMPLICIT NONE
      INTEGER SUM, NUMBER, ERROR

      SUM = 0

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

      ERROR = 0
      DO WHILE (.TRUE.) 
         READ (UNIT=7, FMT=*, IOSTAT=ERROR) NUMBER
         IF (ERROR .LT. 0) THEN
            PRINT *, 'The sum is ', SUM
            STOP
         ENDIF
         SUM = SUM + NUMBER
      ENDDO
      
      END
cs202 4   l  e  cs300 t  |   cs301 n  examples/file8.f                                                                                       644    1107     770         1273  5552335406   7162                                                                                                                                                                                                                                                                                                                                                                      C Illustrates file I/O

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

      PROGRAM FILE2

      IMPLICIT NONE
      INTEGER SUM, NUMBER, ERROR

      SUM = 0

      OPEN(UNIT=7, FILE='filename', STATUS='OLD', IOSTAT=ERROR)
      IF (ERROR .NE. 0) THEN
         PRINT *, 'The file does not exist'
         STOP
      ENDIF

      ERROR = 0
      DO WHILE (.TRUE.) 
         READ (UNIT=7, FMT=*, IOSTAT=ERROR) NUMBER
         IF (ERROR .LT. 0) THEN
            PRINT *, 'The sum is ', SUM
            STOP
         ELSE IF (ERROR .GT. 0) THEN
            PRINT *, 'Bad input encountered in the file!'
         ELSE
            SUM = SUM + NUMBER
         ENDIF
      ENDDO
      
      END
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 cr   8  cs542      cs546 ad    ɥ  cs547 n2    d%  cs100 rt   !e  cs561      *  cs56examples/file7.f                                                                                       644    1107     770         1112  5552334273   7152                                                                                                                                                                                                                                                                                                                                                                      C Illustrates file I/O

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

      PROGRAM FILE2

      IMPLICIT NONE
      INTEGER SUM, NUMBER, ERROR

      SUM = 0

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

      ERROR = 0
      DO WHILE (.TRUE.) 
         READ (UNIT=7, FMT=*, IOSTAT=ERROR) NUMBER
         IF (ERROR .LT. 0) THEN
            PRINT *, 'The sum is ', SUM
            STOP
         ELSE IF (ERROR .GT. 0) THEN
            PRINT *, 'Bad input encountered in the file!'
         ELSE
            SUM = SUM + NUMBER
         ENDIF
      ENDDO
      
      END
countered in the file!'
         ELSE
            SUM = SUM + NUMBER
         ENDIF
      ENDDO
      
      END
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 cr   8  cs542      cs546 ad    ɥ  cs547 n2    d%  cs100 rt   !e  cs561      *  cs56examples/file6.f                                                                                       644    1107     770         1074  5552333442   7155                                                                                                                                                                                                                                                                                                                                                                      C Illustrates file I/O

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

      PROGRAM FILE2

      IMPLICIT NONE
      INTEGER SUM, NUMBER, ERROR

      SUM = 0

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

      ERROR = 0
      DO WHILE (.TRUE.) 
         READ (UNIT=7, FMT=*, IOSTAT=ERROR) NUMBER
         IF (ERROR .LT. 0) THEN
            PRINT *, 'The sum is ', SUM
            STOP
         ELSE IF (ERROR .GT. 0) THEN
            PRINT *, 'Bad input encountered in the file!'
         ELSE
            SUM = SUM + NUMBER
         ENDIF
      ENDDO
      
      END
   
      END
countered in the file!'
         ELSE
            SUM = SUM + NUMBER
         ENDIF
      ENDDO
      
      END
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 cr   8  cs542      cs546 ad    ɥ  cs547 n2    d%  cs100 rt   !e  cs561      *  cs56                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                