Sources Esope | Cast3M

prodma
C PRODMA    SOURCE    CHAT      05/01/13    02:30:10     5004
c     Sous-Programme du module MISTRAL0
C     --------------------------------------------------------------------------
      SUBROUTINE PRODMA (A,B,LL,KL,KK, C)
C     --------------------------------------------------------------------------
C     Calcul des coefficients de la matrice C = A.B, a KK colonnes et LL lignes,
C     en fonction de ceux des matrices :
C     - A a KL colonnes et LL lignes,
C     - B a KK colonnes et KL lignes.
C     --------------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H, O-Z)
      DIMENSION A(1:KL,1:*),B(1:KK,1:*),C(1:KK,1:*)
      DO L = 1,LL
         DO K = 1,KK
          C(K,L) = 0.
          DO I = 1,KL
           C(K,L) = C(K,L)+A(I,L)*B(K,I)
          END DO
         END DO
        END DO
        RETURN
        END