read(5,*,iostat=iend)i
do while(iend == 0)
   write(6,*)i 
   read(5,*,iostat=iend)i
enddo
if (iend > 0)then
   write(6,*) 'errore',iend
CALL ERRSNS (iend)
endif
end