Télécharger adivec.eso

Retour à la liste

Numérotation des lignes :

  1. C ADIVEC SOURCE CHAT 05/01/12 21:18:19 5004
  2. SUBROUTINE ADIVEC (A,B,C,ALPHA,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)+ALPHA*B(I)
  15. 10 CONTINUE
  16. C
  17. RETURN
  18. END
  19.  
  20.  

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