Sources Esope | Cast3M

mulma2
C MULMA2    SOURCE    CHAT      05/01/13    01:55:18     5004
      SUBROUTINE MULMA2(A,B,C,I,J,K,IMAX,KMAX)
C=======================================================================
C
C  S.P. PRODUIT DE 2 MATRICES A(I,J)=B(I,K)*C(K,J)
C
C=======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION A(IMAX,*),B(IMAX,*),C(KMAX,*)
      DO 1 L=1,I
        DO 1 M=1,J
           A(L,M)=0.D0
           DO 1 N=1,K
    1        A(L,M)=A(L,M)+B(L,N)*C(N,M)
      RETURN
      END