Télécharger addvec.eso

Retour à la liste

Numérotation des lignes :

  1. C ADDVEC SOURCE CHAT 05/01/12 21:17:50 5004
  2. CCC
  3. C x_i = a_i + b * c_i
  4. CCC
  5. SUBROUTINE ADDVEC (X,A,B,C,N)
  6. IMPLICIT INTEGER(I-N)
  7. integer i,n
  8. real*8 x(n),a(n),b,c(n)
  9. do i=1,n
  10. x(i)=a(i)+b*c(i)
  11. enddo
  12. return
  13. end
  14.  
  15.  
  16.  

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