Esope source files

   1 : C PRODMM    SOURCE    CHAT      05/01/13    02:30:13     5004           
   2 : C  PRODMM    SOURCE   NECH   99/27/5
   3 :       SUBROUTINE PRODMM(A,B,C,II,JJ,KK)
   4 : C
   5 :       IMPLICIT INTEGER(I-N)
   6 :         IMPLICIT REAL*8(A-H,O-Z)
   7 : C
   8 : *--------------------------------------------------------------------*
   9 : *                                                                    *
  10 : *     PRODUIT MATRICE * MATRICE = MATRICE                            *
  11 : *    ______________________________________                          *
  12 : *                                                                    *
  13 : *    ENTREES:                                                        *
  14 : *                                                                    *
  15 : *        A(I,K)          MATRICE                                     *
  16 : *        B(K,J)          MATRICE                                     *
  17 : *        II,JJ,KK        DIMENSIONS                                  *
  18 : *                                                                    *
  19 : *    SORTIES:                                                        *
  20 : *                                                                    *
  21 : *        C(I,J)          MATRICE                                     *
  22 : *                                                                    *
  23 : *--------------------------------------------------------------------*
  24 : C
  25 :         DIMENSION A(4,4),B(4,4),C(4,4)
  26 : C
  27 :         DO 30 I=1,II
  28 :         DO 30 J=1,JJ
  29 :          C(I,J)=0.D0
  30 :         DO 30 K=1,KK
  31 : 30       C(I,J)=C(I,J)+A(I,K)*B(K,J)
  32 : C
  33 :         RETURN
  34 :         END
  35 :  
  36 :