Télécharger amulx.eso

Retour à la liste

Numérotation des lignes :

  1. C AMULX SOURCE CHAT 05/01/12 21:22:00 5004
  2. SUBROUTINE AMULX(A,LA,X,B)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C CALCUL DE B=A*X+B
  7. C
  8. C X SCALAIRE
  9. C A ET B TABLEAUX DE LONGUEUR LA
  10. C
  11. DIMENSION A(1),B(1)
  12. C
  13. IF(LA.LE.0) RETURN
  14. C
  15. DO 1 IA=1,LA
  16. C
  17. B(IA)=X*A(IA)+B(IA)
  18. C
  19. 1 CONTINUE
  20. RETURN
  21. END
  22.  
  23.  

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