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