!
!  9x9 display
!
      PROGRAM main
      INTEGER I, J, PROD
      DIMENSION PROD(9,9)		! PRODを9x9の2次元配列とする
      DO I=1,9
         DO J=1,9
            PROD(I,J) = I*J		! 積を配列の各要素に入れる
         ENDDO
      ENDDO
      CALL DISP99(PROD)			! サブルーチンはCALLで呼ぶ
      END PROGRAM main

      SUBROUTINE DISP99(X)
      INTEGER X
      DIMENSION X(9,9)			! サイズをmainと合わせる
      DO I=1, 9
         DO J=1, 9
            WRITE(*,'(I4)',ADVANCE='NO') X(I,J)	! 改行なしで出力
         ENDDO
         WRITE(*,*)			! 改行を出力
      ENDDO
      END SUBROUTINE DISP99