real v(10),sum
integer n
open(10,file="test6.in")
read(10,*) n
read(10,*)(v(i),i=1,n)
call sumv(n,v,sum)
print*,"sum=",sum
stop
end

subroutine sumv(n,v,sum)
real v(n)
sum=0.
do i=1,n
sum=sum+v(i)
enddo
return
end