Télécharger matmat.eso

Retour à la liste

Numérotation des lignes :

  1. C MATMAT SOURCE CHAT 05/01/13 01:34:43 5004
  2. SUBROUTINE MATMAT(A,B,NL,NC1,NC2,C)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. *
  6. * C(NL,NC2)=A(NL,NC1)*B(NC1,NC2)
  7. * LE PREMIER INDICE EST DE LIGNE, LE DEUXIEME DE COLONNE
  8. *
  9. DIMENSION A(NL,*),B(NC1,*),C(NL,*)
  10. DO 1 I=1,NL
  11. DO 1 J=1,NC2
  12. XX= 0.D0
  13. DO 2 K=1,NC1
  14. XX = A(I,K)*B(K,J) + XX
  15. 2 CONTINUE
  16. C(I,J)=XX
  17. 1 CONTINUE
  18. RETURN
  19. END
  20.  
  21.  

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