Télécharger prodma.eso

Retour à la liste

Numérotation des lignes :

  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.  
  26.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales