PROGRAM MM2
INTEGER, PARAMETER :: N = 300
! INTEGER A(N, N), B(N, N), C(N, N)
REAL A(N, N), B(N, N), C(N, N)
INTEGER I, J
! 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
		C(i, j) = DOT_PRODUCT(A(i,:), B(:, j))
	END DO
END DO

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

END PROGRAM MM2