Esope source files

   1 : C MULMAT    SOURCE    CHAT      05/01/13    01:55:22     5004           
   2 :       SUBROUTINE MULMAT(A,B,C,I,J,K)                                            
   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    AOUT 84                                                                    
   8 : C=======================================================================        
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  11 :       DIMENSION A(I,1),B(I,1),C(K,1)                                            
  12 :       DO1L=1,I                                                                  
  13 :       DO1M=1,J                                                                  
  14 :       A(L,M)=0.                                                                 
  15 :       DO1N=1,K                                                                  
  16 :     1 A(L,M)=A(L,M)+B(L,N)*C(N,M)                                               
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :