Télécharger mulmat.eso

Retour à la liste

Numérotation des lignes :

  1. C MULMAT SOURCE CHAT 05/01/13 01:55:22 5004
  2. SUBROUTINE MULMAT(A,B,C,I,J,K)
  3. C=======================================================================
  4. C
  5. C S.P. PRODUIT DE 2 MATRICES A(I,J)=B(I,K)*C(K,J)
  6. C
  7. C AOUT 84
  8. C=======================================================================
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. DIMENSION A(I,1),B(I,1),C(K,1)
  12. DO1L=1,I
  13. DO1M=1,J
  14. A(L,M)=0.
  15. DO1N=1,K
  16. 1 A(L,M)=A(L,M)+B(L,N)*C(N,M)
  17. RETURN
  18. END
  19.  
  20.  

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