C     -------------------------------------------------------------------------
C     matrix multiplication
C     -------------------------------------------------------------------------
      PROGRAM main
C
      INTEGER N, I, J, K
      PARAMETER (N = 256)
C
      REAL A(N,N), B(N,N), C(N,N)
C
      DO I=1,N
         DO J=1,N
            C(I,J) = 0
            DO K=1,N
               C(I,J) = C(I,J)+A(I,K)*B(K,j)
            ENDDO
         ENDDO
      ENDDO
C
      END
~
