Esope source files

   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 :