program statvett1

integer::i,n
real allocatable,dimension(:)::x,y


i=1
read(5,*,iostat=ierr) x(i),y(i)
do while(ierr == 0)




   i=i+1
   read(5,*,iostat=ierr)  x(i),y(i)
enddo
if (ierr > 0) then
   write(6,*)'Errore numero:', ierr
endif

n=i-1
! vado a calcolare


end program statvett1