Esope source files

   1 : C MATMAT    SOURCE    CHAT      05/01/13    01:34:43     5004           
   2 :       SUBROUTINE MATMAT(A,B,NL,NC1,NC2,C)                                       
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : *                                                                               
   6 : *  C(NL,NC2)=A(NL,NC1)*B(NC1,NC2)                                               
   7 : *  LE PREMIER INDICE EST DE LIGNE, LE DEUXIEME DE COLONNE                       
   8 : *                                                                               
   9 :       DIMENSION A(NL,*),B(NC1,*),C(NL,*)                                        
  10 :       DO 1 I=1,NL                                                               
  11 :       DO 1 J=1,NC2                                                              
  12 :       XX= 0.D0                                                                  
  13 :       DO 2 K=1,NC1                                                              
  14 :       XX = A(I,K)*B(K,J) + XX                                                   
  15 :     2 CONTINUE                                                                  
  16 :       C(I,J)=XX                                                                 
  17 :     1 CONTINUE                                                                  
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :