!
! =====> Program - P72.F90
!
!
! DEFINE 3 MATRICES
! AND AUXILLIARY ARRAYS
!
CHARACTER (LEN=3) :: SEASON(4,3)
INTEGER :: NUMBER(4,3),NCOL(3),CMEAN(3)
REAL :: REVENU(4,3),RCOL(3),DMEAN(3)
!
!
PRINT *, 'This is Program >> P72 - Matrix summary'
!
! Tell program where data for READ * is coming from
OPEN(UNIT=5, FILE='P72.DAT') ! UNIT=5 is the default input
!
!
! READ IN DATA
! 12 LINES IN MONTH ORDER
!
L1: DO KS=1,4
L2: DO M=1,3
READ 127,SEASON(KS,M), &
NUMBER(KS,M),REVENU(KS,M)
END DO L2
END DO L1
127 FORMAT(A3,I7,F5.1)
PRINT 1
1 FORMAT(/' SEASONAL SUMMARY')
!
! DO 4 QUARTER AVERAGE + TOTALS
!
NGRAND=0
RGRAND=0.0
L3: DO KS=1,4
NTOTAL=0
RTOTAL=0.0
L4: DO J=1,3
NTOTAL=NTOTAL+NUMBER(KS,J)
RTOTAL=RTOTAL+REVENU(KS,J)
END DO L4
NGRAND=NGRAND+NTOTAL
RGRAND=RGRAND+RTOTAL
NAVE=NTOTAL/3
RAVE=RTOTAL/3.0
PRINT 220,(SEASON(KS,J),J=1,3)
PRINT 230,(NUMBER(KS,J),J=1,3), &
NTOTAL,NAVE
PRINT 240,(REVENU(KS,J),J=1,3), &
RTOTAL,RAVE
END DO L3
220 FORMAT(/ 3(5X,A3),3X, &
'TOTAL',5X,'AVE')
230 FORMAT(5I8)
240 FORMAT(2X,5(F6.1,'M$'))
!
! DO SAME CALCULATIONS
! FOR EACH COLUMN
!
L5: DO KOL=1,3
NCOL(KOL)=0
RCOL(KOL)=0.0
L6: DO KROW=1,4
NCOL(KOL)=NCOL(KOL)+NUMBER(KROW,KOL)
RCOL(KOL)=RCOL(KOL)+REVENU(KROW,KOL)
END DO L6
CMEAN(KOL)=NCOL(KOL)/4
DMEAN(KOL)=RCOL(KOL)/4.0
END DO L5
NGAVE=NGRAND/12
RGAVE=RGRAND/12.0
!
! OUTPUT COLUMN STATISTICS
!
PRINT 410,NCOL,NGRAND,NGAVE
PRINT 420,RCOL,RGRAND,RGAVE
PRINT 430,CMEAN,DMEAN
410 FORMAT(/ 40('-')/ &
5I8)
420 FORMAT(2X,5(F6.1,'M$')/)
430 FORMAT(/3I8,' COLUMN AVERAGE'/ &
2X,3(F6.1,'M$')// 40('=')//)
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:
[FTN90 Version 1.12 Copyright (c)SALFORD SOFTWARE LTD 1992 & ]
[ (c)THE NUMERICAL ALGORITHMS GROUP 1991,1992]
NO ERRORS [FTN90]
Program entered
This is Program >> P72 - Matrix summary
SEASONAL SUMMARY
Jan Feb Mar TOTAL AVE
672 609 715 1996 665
3.4M$ 3.2M$ 3.7M$ 10.3M$ 3.4M$
Apr May Jun TOTAL AVE
803 810 831 2444 814
4.2M$ 4.8M$ 5.1M$ 14.1M$ 4.7M$
Jul Aug Sep TOTAL AVE
829 727 780 2336 778
5.1M$ 5.1M$ 4.3M$ 14.5M$ 4.8M$
Oct Nov Dec TOTAL AVE
703 791 783 2277 759
3.9M$ 4.2M$ 3.6M$ 11.7M$ 3.9M$
----------------------------------------
3007 2937 3109 9053 754
16.6M$ 17.3M$ 16.7M$ 50.6M$ 4.2M$
751 734 777 COLUMN AVERAGE
4.2M$ 4.3M$ 4.2M$
========================================
Page builder: Charles Boivin
Last modified: 11/07/95