Sources Esope | Cast3M

mulma2
C MULMA2    SOURCE    CB215821  26/08/24    21:17:28     12622          
      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 3 L=1,I
        DO 2 M=1,J
           A(L,M)=0.D0
           DO 1 N=1,K
             A(L,M)=A(L,M)+B(L,N)*C(N,M)
    1      CONTINUE
    2   CONTINUE
    3 CONTINUE
      RETURN
      END