program read_sin_from_file

      open(unit=10 ,file='sin.dat')
      read(10,*)n
      do i=1,n
        read(10,*)x,y
        write(*,*)y
      end do
      close(10)
      write(*,*)"that's all in sin.dat"
      end