C Illustrates two-dimensional arrays

C Created:  Joe Zachary, November 15, 1992
C Modified:


      PROGRAM TABLE1

      IMPLICIT NONE
      INTEGER ROW, COL, TABLE(9,9)

C First we create the multiplication table

      DO ROW = 1, 9
         DO COL = 1, 9
            TABLE(ROW,COL) = ROW*COL
         ENDDO
      ENDDO

C And next we print it out

      PRINT *, '      1  2  3  4  5  6  7  8  9'
      PRINT *, '   +---------------------------'

      DO ROW = 1, 9
         WRITE (UNIT=*, FMT=100) ROW, (TABLE(ROW,COL), COL=1,9)
      ENDDO

 100  FORMAT (I2,' |', 9I3)

      STOP
      END