!
! =====> Program - P71.F90
!
CHARACTER (LEN=3) :: SEASON(4,3)
!
!
PRINT *, 'This is Program >> P71 - Matrix input/ouput'
!
! Tell program where data for READ is coming from
OPEN(UNIT=5, FILE='P71.DAT') ! UNIT=5 is the default input
!
!
! READ IN MONTH CODE
! ONE PER CARD
!
L1: DO KS=1,4
L2: DO M=1,3
READ 27, SEASON(KS,M)
END DO L2
END DO L1
27 FORMAT (A3)
!
! PRINT MATRIX
! METHOD 1
!
PRINT 100
PRINT 101, SEASON
101 FORMAT (4(2X,A3))
100 FORMAT(/'MATRIX OUTPUT 1'/)
!
! METHOD 2
!
PRINT 200
200 FORMAT(/'MATRIX OUTPUT 2'/)
L3: DO KS=1,4
PRINT 202, (SEASON(KS,J),J=1,3)
END DO L3
202 FORMAT(3(2X,A3))
!
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 >> P71 - Matrix input/ouput
MATRIX OUTPUT 1
Jan Apr Jul Oct
Feb May Aug Nov
Mar Jun Sep Dec
MATRIX OUTPUT 2
Jan Feb Mar
Apr May Jun
Jul Aug Sep
Oct Nov Dec
Fortran-90 STOP
Page builder: Charles Boivin
Last modified: 11/07/95