c
c------------------------------------------------------------------
c Begin file /home/sting/foster/libplt/wrlablq.f
c------------------------------------------------------------------
c
      subroutine wrlablq(lab,xpos,ypos,chsize)
      character*(*) lab
c
c Add bottom label to plot centered at xpos,ypos (virtual coords):
c Like wrlab, but uses low quality text
c
      call getset(vl,vr,vb,vt,wl,wr,wb,wt,lnlg)
      if (chsize.le.0.) then
        charsz = .015
      else
        charsz = chsize
      endif
      call set(0.,1.,0.,1.,0.,1.,0.,1.,1)
      call plchlq(xpos,ypos,lab,charsz,0.,0.)
      call set(vl,vr,vb,vt,wl,wr,wb,wt,lnlg)
      return
      end