! 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