Esope source files

   1 : C PRODMA    SOURCE    CHAT      05/01/13    02:30:10     5004           
   2 : c     Sous-Programme du module MISTRAL0
   3 : C     --------------------------------------------------------------------------
   4 :       SUBROUTINE PRODMA (A,B,LL,KL,KK, C)
   5 : C     --------------------------------------------------------------------------
   6 : C     Calcul des coefficients de la matrice C = A.B, a KK colonnes et LL lignes,
   7 : C     en fonction de ceux des matrices :
   8 : C     - A a KL colonnes et LL lignes,
   9 : C     - B a KK colonnes et KL lignes. 
  10 : C     --------------------------------------------------------------------------
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8 (A-H, O-Z)
  13 :       DIMENSION A(1:KL,1:*),B(1:KK,1:*),C(1:KK,1:*)
  14 :       DO L = 1,LL
  15 :          DO K = 1,KK
  16 :           C(K,L) = 0.
  17 :           DO I = 1,KL
  18 :            C(K,L) = C(K,L)+A(I,L)*B(K,I)
  19 :           END DO
  20 :          END DO
  21 :         END DO
  22 :         RETURN
  23 :         END
  24 :       
  25 :