program arrow
      real x(7),y(7)
      x(1)= 1.0
      y(1)= 0.0
      x(2)= 1.0
      y(2)= 0.3
      x(3)= 2.0
      y(3)= 0.0
      x(4)=-2.0
      y(4)= 0.0
      x(5)=-2.5
      y(5)= 0.5
      x(6)=-1.5
      y(6)= 0.5
      x(7)=-1.0
      y(7)= 0.0
      i_dummy=pgopen('/xwin')
      call pgenv(-5.0, 5.0, -5.0, 5.0, 1, 0)
      call pgline(7,x,y)
      call pgclos
      end