! PROGRAM P51 ! IMPLICIT NONE CHARACTER(LEN=3) :: MONTH(12) INTEGER :: UNITS(12) REAL :: SALES(12) ! ! PRINT *, 'This is Program >> P51 - Read data into arrays' ! ! Tell program where data for READ is coming from OPEN(UNIT=5, FILE='P51.DAT') ! UNIT=5 is the default input ! ! READ 10,MONTH READ 20,UNITS READ 30,SALES PRINT 10,MONTH PRINT 20,UNITS PRINT 30,SALES 10 FORMAT(12A5) 20 FORMAT(12I5) 30 FORMAT(12F5.0) STOP END PROGRAM P51