Télécharger matmad.eso

Retour à la liste

Numérotation des lignes :

  1. C MATMAD SOURCE CHAT 05/01/13 01:34:36 5004
  2. SUBROUTINE MATMAD(A,V,NL,NC,B)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *
  6. * MULTIPLICATION MATRICE A PAR MATRICE DIAGONALE STOCKEE DANS V
  7. * LE RESULTAT EST MIS DANS B
  8. * B(NL,NC)= A(NL,NC)*C(NC,NC)
  9. * LE PREMIER INDICE EST DE LIGNE LE DEUXIEME DE COLONNE
  10. *
  11. * PUIS ON TRANSPOSE B
  12. *
  13. DIMENSION A(NL,*),V(NC),B(NC,*)
  14. DO 1 I=1,NC
  15. DO 2 J=1,NL
  16. B(I,J)=A(J,I)*V(I)
  17. 2 CONTINUE
  18. 1 CONTINUE
  19. RETURN
  20. END
  21.  
  22.  

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