PROGRAM MM3
INTEGER, PARAMETER :: N = 300
REAL :: A(N, N), B(N, N), C(N, N), S
!INTEGER :: A(N, N), B(N, N), C(N, N), S
INTEGER I, J, K
! A = RESHAPE( SOURCE = (/ (I,I=1,N*N) /), SHAPE = (/ N,N /) )
! B = RESHAPE( SOURCE = (/ (I,I=1,N*N) /), SHAPE = (/ N,N /) )
A = 1
B = 2

DO i=1,N
	DO j=1,N
		s = 0.0
		DO k = 1,N
			s = s + A(i, k) * B(k, j)
		END DO
		C(i, j) = s
	END DO
END DO

WRITE(*,*) 'C(6, 9) = ', C(6, 9)

END PROGRAM MM3