Télécharger mulma2.eso

Retour à la liste

Numérotation des lignes :

  1. C MULMA2 SOURCE CHAT 05/01/13 01:55:18 5004
  2. SUBROUTINE MULMA2(A,B,C,I,J,K,IMAX,KMAX)
  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=======================================================================
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8(A-H,O-Z)
  10. DIMENSION A(IMAX,*),B(IMAX,*),C(KMAX,*)
  11. DO 1 L=1,I
  12. DO 1 M=1,J
  13. A(L,M)=0.D0
  14. DO 1 N=1,K
  15. 1 A(L,M)=A(L,M)+B(L,N)*C(N,M)
  16. RETURN
  17. END
  18.  
  19.  
  20.  

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