!
      PROGRAM P53
!
      IMPLICIT NONE
      INTEGER :: I,J,K,UNITS(12),UQ(4)
      REAL :: SALES(12),SQ(4)
!
!
      PRINT *, 'This is Program >> P53  - Four quarter in a year'
!
!     Tell program where data for  READ   is coming from
      OPEN(UNIT=5, FILE='P53.DAT')      ! UNIT=5 is the default input
!
!
L1:   DO I=1,12
        READ 15,UNITS(I),SALES(I)
      END DO L1
   15 FORMAT(I3,F5.1)
!
!     FORM 4 QUARTER TOTALS
!
      I=0
L2:   DO J=1,4        ! Four quarters
         UQ(J)=0      ! J points to each quarter in turn
         SQ(J)=0
L3:      DO K=1,3     ! Each with three months
           I=I+1      ! Month pointer I goes from 1 to 12
           UQ(J)=UQ(J)+UNITS(I)
           SQ(J)=SQ(J)+SALES(I)
        END DO L3
      END DO L2
!
!     OUTPUT RESULTS
!
      PRINT 30,UQ  ! Prints out complete array 
      PRINT 31,SQ  ! All four values printed
   30 FORMAT(' CARS SOLD BY QUARTER ', 4I8)
   31 FORMAT(' SALES BY QUARTER     ', 4F8.1)
      STOP
      END PROGRAM P53