program pgplot_test
      if(pgopen('/xwin')<=0)stop
      call pgenv(0.0,10.0,0.0,10.0,1,0)
      call pgcirc(5.0,3.0,2.0)
      call pgclos
      end