C MULMAT    SOURCE    CHAT      05/01/13    01:55:22     5004           
      SUBROUTINE MULMAT(A,B,C,I,J,K)                                            
C=======================================================================        
C                                                                               
C  S.P. PRODUIT DE 2 MATRICES A(I,J)=B(I,K)*C(K,J)                              
C                                                                               
C    AOUT 84                                                                    
C=======================================================================        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DIMENSION A(I,1),B(I,1),C(K,1)                                            
      DO1L=1,I                                                                  
      DO1M=1,J                                                                  
      A(L,M)=0.                                                                 
      DO1N=1,K                                                                  
    1 A(L,M)=A(L,M)+B(L,N)*C(N,M)                                               
      RETURN                                                                    
      END