program read_n_plot_name
      real x(100),y(100)
      idummy=pgopen('/xwin')
      call pgenv(-10.0,10.0,-10.0,10.0,1,0)

      open(unit=12,file='arrow.dat')

      read(12,*)np
      do i=1,np
        read(12,*)x(i),y(i)
      end do

      close(12)

      call pgline(np,x,y)
      call pgclos
      end