!
      PROGRAM P71
!
      IMPLICIT NONE
      CHARACTER (LEN=3) :: SEASON(4,3)
      INTEGER :: J,KS,M
!
!
      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('  ',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('  ',A3))
!
      STOP
      END PROGRAM P71