Télécharger pimdv.eso

Retour à la liste

Numérotation des lignes :

  1. C PIMDV SOURCE CHAT 05/01/13 02:13:55 5004
  2. SUBROUTINE PIMDV (A,B,C,NL)
  3. C
  4. C----------------------------------------------------------
  5. C PRODUIT DE LA MATRICE DIAGONALE A ET DU VECTEUR B ---> C
  6. C----------------------------------------------------------
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8 (A-H,O-Z)
  10. C
  11. DIMENSION A(1),B(1),C(1)
  12. C
  13. DO 10 I=1,NL
  14. C(I)=A(I)*B(I)
  15. 10 CONTINUE
  16. C
  17. RETURN
  18. END
  19.  
  20.  

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