Télécharger aeqbpc.eso

Retour à la liste

Numérotation des lignes :

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

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