PROGRAM MM
INTEGER, PARAMETER :: N = 300
!INTEGER A(N, N), B(N, N), C(N, N)
REAL A(N, N), B(N, N), C(N, N)
! 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
C = MATMUL(A, B)

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

END