PROGRAM 1


      PROGRAM AVERAGE
C.....F012     ANTHONY F. ORTIZ     **P02**
C.....SPECIFICATION SECTION
      INTEGER X1, X2, X3, X4, X5, X6, X7, X8, SUM
      REAL AVG
      OPEN (3, FILE = 'F012P02.DAT')
      OPEN (4, FILE = 'F012P02.OUT')
C.....INPUT SECTION
      READ (3, *) X1, X2,X3, X4, X5, X6, X7, X8
C.....COMPUTATION SECTION
      SUM = X1 + X2 + X3 + X4 + X5 + X6 + X7 + X8
      AVG = SUM / 8.0
C.....OUTPUT SECTION
      WRITE (4, *) 'F012     ANTHONY F. ORTIZ     **P02*'
      WRITE (4, *) 'DATA VALUES ARE ', X1, X2, X3, X4
      WRITE (4, *) 'DATA VALUES ARE ', X5, X6, X7, X8
      WRITE (4, *) 'THE AVERAGE IS  ', AVG
      STOP
      END

C.....DATA FILE:  F012P02.DAT

101 202 303 404 505 606 707 808

C.....OUTFILE:  F012P02.OUT 

 F012     ANTHONY F. ORTIZ     **P02*
 DATA VALUES ARE         101         202         303         404
 DATA VALUES ARE         505         606         707         808
 THE AVERAGE IS       454.500000




BACK TO COMP150 PAGE.