P53.F90

Four quarters in a year

!
! =====> Program - P53.F90
!
      CHARACTER (LEN=3) :: MONTH(12)
      INTEGER  UNITS(12),UQ(4)
      REAL     SALES(12),DQ(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,MONTH(I),UNITS(I),SALES(I)
      END DO L1
   15 FORMAT(A3,I7,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
         DQ(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)
           DQ(J)=DQ(J)+SALES(I)
        END DO L3
      END DO L2
!
!     OUTPUT RESULTS
!
      PRINT 30,UQ  ! Prints out complete array 
      PRINT 31,DQ  ! All four values printed
   30 FORMAT(' CARS SOLD BY  QUARTER ', 4I8)
   31 FORMAT(' SALES BY  QUARTER     ', 4F8.1)
      STOP
      END

DATA:
JAN    672 3.4
FEB    609 3.2
MAR    715 3.7
APR    803 4.2
MAY    810 4.8
JUN    831 5.1
JUL    829 5.1
AUG    727 5.1
SEP    780 4.3
OCT    703 3.9
NOV    791 4.2
DEC    783 3.6

OUTPUT:
Program entered
 This is Program >> P53  - Four quarter in a year
 CARS SOLD BY  QUARTER     1996    2444    2336    2277
 SALES BY  QUARTER         10.3    14.1    14.5    11.7
Fortran-90 STOP

Page builder: Charles Boivin

Last modified: 11/07/95