O programa ao lado foi escrito em Fortran90. A função desse programa é

PROGRAM Meu_Programa
  IMPLICIT NONE
  INTEGER, PARAMETER :: SIZE = 100
  INTEGER, DIMENSION(1:SIZE,1:SIZE) :: A, B, C
  INTEGER :: L, M, N, i, j, k
  READ(*,*) L, M, N
  DO i = 1, L
    READ(*,*) (A(i,j), j=1,M)
  END DO
  DO i = 1, M
    READ(*,*) (B(i,j), j=1,N)
  END DO
  DO i = 1, L
    DO j = 1, N
      C(i,j) = 0
      DO k = 1, M
        C(i,j) = C(i,j) + A(i,k)*B(k,j)
      END DO
    END DO
  END DO
  DO i = 1, L
    WRITE(*,*) (C(i,j), j=1, N)
  END DO
END PROGRAM Meu_Programa