C PRODMM    SOURCE    CB215821  26/08/24    21:17:56     12622          
C  PRODMM    SOURCE   NECH   99/27/5
      SUBROUTINE PRODMM(A,B,C,II,JJ,KK)
C
      IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8(A-H,O-Z)
C
*--------------------------------------------------------------------*
*                                                                    *
*     PRODUIT MATRICE * MATRICE = MATRICE                            *
*    ______________________________________                          *
*                                                                    *
*    ENTREES:                                                        *
*                                                                    *
*        A(I,K)          MATRICE                                     *
*        B(K,J)          MATRICE                                     *
*        II,JJ,KK        DIMENSIONS                                  *
*                                                                    *
*    SORTIES:                                                        *
*                                                                    *
*        C(I,J)          MATRICE                                     *
*                                                                    *
*--------------------------------------------------------------------*
C
        DIMENSION A(4,4),B(4,4),C(4,4)
C
        DO 32 I=1,II
        DO 31 J=1,JJ
         C(I,J)=0.D0
        DO 30 K=1,KK
         C(I,J)=C(I,J)+A(I,K)*B(K,J)
   30   CONTINUE
   31   CONTINUE
   32   CONTINUE
C
        RETURN
        END