c
c----------------------------------------------------------------------
c Begin file /home/sting/foster/libplt/labrect.f
c----------------------------------------------------------------------
c
      subroutine labrect(xx,nx,yy,ny,xlab,ylab,chsize)
c
c Draw axes and axis numeric and char labels for any rectangular
c plot (not called for elliptical projections) -- uses autograph
c
c On input:
c   xx(nx) array of nx x-coord values (e.g., -180 -> 180)
c   yy(ny) array of ny y-coord values (e.g., -87.5 -> 87.5)
c
      dimension xx(nx),yy(ny)
      character*(*) xlab,ylab
      character*56 blank56
      data blank56
     + /'                                                        '/
c
      call agseti("SET.",4)
      if (chsize.le.0.) then
        charsz = .025
      else
        charsz = chsize
      endif
c
c x-axis:
c
      call agsetc("LABEL/NAME.","B")
      if (nx.gt.0) then
        call agseti("LINE/NUMBER.",-100)
        call agsetf("LINE/CHARACTER.",charsz)
        length = len(xlab)
        call agseti("LINE/MAX.",length)
        call agsetc("LINE/TEXT.",xlab)
        call agsetf ('AXIS/BOTTOM/NUMERIC/WIDTH/MANTISSA.', charsz)
      else
        call agsetr("LABEL/DEF/SUPPRESSION.",1.)
        call agsetr("AXIS/BOTTOM/CONTROL.",-1.)
        call agsetc("LABEL/NAME.","T")
        call agsetr("AXIS/TOP/CONTROL.",-1.)
      endif
c
c y-axis:
c
      call agsetc("LABEL/NAME.","L")
      if (ny.gt.0) then
        call agseti("LINE/NUMBER.",100)
        call agsetf("LINE/CHARACTER.",charsz)
        length = len(ylab)
        call agseti("LINE/MAX.",length)
        call agsetc("LINE/TEXT.",ylab)
        call agsetf ('AXIS/LEFT/NUMERIC/WIDTH/MANTISSA.', charsz)
      else
        call agsetr("LABEL/DEF/SUPPRESSION.",1.)
        call agsetr("AXIS/LEFT/CONTROL.",-1.)
        call agsetc("LABEL/NAME.","R")
        call agsetr("AXIS/TOP/CONTROL.",-1.)
      endif
c
c Disable top label:
c
      call agsetc("LABEL/NAME.","T")
      call agsetr("LABEL/DEF/SUPPRESSION.",1.)
c
c Draw the background
c
      call agstup(xx,1,0,nx,1, yy,1,0,ny,1)
      call agback
c
c Reenable labels:
c
      call agsetc("LABEL/NAME.","L")
      call agsetr("LABEL/DEF/SUPPRESSION.",0.)
      call agsetc("LABEL/NAME.","R")
      call agsetr("LABEL/DEF/SUPPRESSION.",0.)
      call agsetc("LABEL/NAME.","B")
      call agsetr("LABEL/DEF/SUPPRESSION.",0.)
      call agsetc("LABEL/NAME.","T")
      call agsetr("LABEL/DEF/SUPPRESSION.",0.)
c
      return
      end