Télécharger prodmm.eso

Retour à la liste

Numérotation des lignes :

  1. C PRODMM SOURCE CHAT 05/01/13 02:30:13 5004
  2. C PRODMM SOURCE NECH 99/27/5
  3. SUBROUTINE PRODMM(A,B,C,II,JJ,KK)
  4. C
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7. C
  8. *--------------------------------------------------------------------*
  9. * *
  10. * PRODUIT MATRICE * MATRICE = MATRICE *
  11. * ______________________________________ *
  12. * *
  13. * ENTREES: *
  14. * *
  15. * A(I,K) MATRICE *
  16. * B(K,J) MATRICE *
  17. * II,JJ,KK DIMENSIONS *
  18. * *
  19. * SORTIES: *
  20. * *
  21. * C(I,J) MATRICE *
  22. * *
  23. *--------------------------------------------------------------------*
  24. C
  25. DIMENSION A(4,4),B(4,4),C(4,4)
  26. C
  27. DO 30 I=1,II
  28. DO 30 J=1,JJ
  29. C(I,J)=0.D0
  30. DO 30 K=1,KK
  31. 30 C(I,J)=C(I,J)+A(I,K)*B(K,J)
  32. C
  33. RETURN
  34. END
  35.  
  36.  
  37.  

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