%N dolabcg %F $MIR/src/subs/cgsubs.for
%D See if axis needs a character and/or numeric label
%P nebk
%: plotting
%B
      subroutine dolabcg (gaps, dotr, nx, ny, nz, nlast, iplot, labtyp,
     *                    doaxlab, doaylab, donxlab, donylab)

      integer nx, ny, nz, nlast, iplot
      logical gaps, dotr, doaxlab, doaylab, donxlab(2), donylab(2)
      character labtyp(2)*(*)
  ---------------------------------------------------------------------
  Label axes and prepare options strings for PGTBOX according to
  whether the sub-plots abut each other or not.

  Input
    gaps    False means sub-plots abut, else they don't
    dotr    Label top and right axes too.
    nx,ny   Number of sub-plots in x and y directions on page
    nz      Total number of sub-plots that will be drawn
    nlast   Number of sub-plots on the last row of the last page
    iplot   Number of current sub-plot
    labtyp  Axis label types
  Output
    doaxlab True to draw character label for x axis
    doaylab True to draw character label for y axis
    donxlab True to draw x numeric label; (1) for bottom, (2) for top
    donylab True to draw y numeric label; (1) for left, (2) for right
