!
      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