Télécharger aeqbx.eso

Retour à la liste

Numérotation des lignes :

  1. C AEQBX SOURCE CHAT 05/01/12 21:19:13 5004
  2. SUBROUTINE AEQBX (A,B,X,LA)
  3. C
  4. C CALCULE A=B*X
  5. C
  6. C A ET B TABLEAUX DE LONGUEUR LA
  7. C X REEL
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. C
  12. DIMENSION A(*),B(*)
  13. C
  14. DO 1 IA=1,LA
  15. 1 A(IA)=X*B(IA)
  16. RETURN
  17. END
  18.  
  19.  

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