Esope source files

   1 : C MULMA2    SOURCE    CHAT      05/01/13    01:55:18     5004           
   2 :       SUBROUTINE MULMA2(A,B,C,I,J,K,IMAX,KMAX)
   3 : C=======================================================================        
   4 : C                                                                               
   5 : C  S.P. PRODUIT DE 2 MATRICES A(I,J)=B(I,K)*C(K,J)                              
   6 : C                                                                               
   7 : C=======================================================================        
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  10 :       DIMENSION A(IMAX,*),B(IMAX,*),C(KMAX,*)
  11 :       DO 1 L=1,I
  12 :         DO 1 M=1,J
  13 :            A(L,M)=0.D0
  14 :            DO 1 N=1,K
  15 :     1        A(L,M)=A(L,M)+B(L,N)*C(N,M)
  16 :       RETURN                                                                    
  17 :       END                                                                       
  18 :  
  19 :