Télécharger addvec.eso
Retour à la liste
C ADDVEC SOURCE CHAT 05/01/12 21:17:50 5004CCCC x_i = a_i + b * c_iCCC SUBROUTINE ADDVEC (X,A,B,C,N) IMPLICIT INTEGER(I-N) integer i,n real*8 x(n),a(n),b,c(n) do i=1,n x(i)=a(i)+b*c(i) enddo return end
© Cast3M 2003 - Tous droits réservés. Mentions légales