Matrix multiplication: Difference between revisions

Content added Content deleted
No edit summary
Line 262: Line 262:


=={{header|Fortran}}==
=={{header|Fortran}}==
In ISO Fortran 90 and later, use the MATMUL intrinsic function:
In ISO Fortran 90 or later, use the MATMUL intrinsic function:
REAL, DIMENSION(N,M) :: A = RESHAPE( (/ (I, I=1, N*M) /), (/ N, M /) )
REAL, DIMENSION(N,M) :: A = RESHAPE( (/ (I, I=1, N*M) /), (/ N, M /) )
REAL, DIMENSION(M,K) :: B = RESHAPE( (/ (I, I=1, M*K) /), (/ M, K /) )
REAL, DIMENSION(M,K) :: B = RESHAPE( (/ (I, I=1, M*K) /), (/ M, K /) )