! ------------------------------- ! Example program ! input from a file ! ------------------------------- program test implicit none integer:: io,i,k integer, parameter:: n = 10 real(kind(1.d0)):: x(n),y(n) ! ! read in x ! open(12,file='input',status='old') do i = 1, n read(12,*,iostat=io) x(i),y(i) if(io/=0) then print*,'EOF while reading data' exit end if end do print*,'ok, got ',i-1,' value pairs x,y' do k = 1, i-1 write(*,'(2f7.3)') x(k),y(k) end do end program test