%N aaxlabcg %F $MIR/src/subs/cgpgsubs.for
%D Write ascii axis labels
%P nebk
%: plotting
%B
      subroutine aaxlabcg (dox, doy, xdispl, ydispb, xlabel, ylabel)

      real xdispl, ydispb
      logical dox, doy
      character xlabel*(*), ylabel*(*)
  ---------------------------------------------------------------------
  Write ascii axis labels

  Input
    dox,y   True to write x or y labels
    xdispl  Displacement in character heights of y-axis label
    ydispb  Displacement in character heights of x-axis label
    xlabel  X-axis label
    ylabel  Y-axis label
