Télécharger prdfe1.eso

Retour à la liste

Numérotation des lignes :

  1. C PRDFE1 SOURCE BR232186 16/12/06 10:42:34 9242
  2. SUBROUTINE PRDFE1(A,B,II,KK,JJ,C)
  3. C --------------------------------------------------------------------------
  4. C Calcul des coefficients de la matrice C = A.B, a II lignes et JJ colonnes,
  5. C en fonction de ceux des matrices :
  6. C - A a II lignes et KK colonnes
  7. C - B a KK lignes et JJ colonnes.
  8. C
  9. C AUTEUR : E. KISHTA - CEA/DEN/DANS/DM2S/SEMT/EMSI
  10. C
  11. C --------------------------------------------------------------------------
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8 (A-H, O-Z)
  14.  
  15. REAL*8 A(II,KK), B(KK,JJ), C(II,JJ)
  16.  
  17. DO I = 1,II
  18. DO J = 1,JJ
  19. C(I,J) = 0.
  20. DO K = 1,KK
  21. C(I,J) = C(I,J)+A(I,K)*B(K,J)
  22. END DO
  23. END DO
  24. END DO
  25. RETURN
  26. END
  27.  
  28.  

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