%N setlabcg %F $MIR/src/subs/cgsubs.for
%D Set axis labels
%P nebk
%: plotting
%B
      subroutine setlabCG (lh, labtyp, doepoch, xlabel, ylabel)

      integer lh
      character*(*) labtyp(2), xlabel, ylabel
      logical doepoch
  ---------------------------------------------------------------------
  Set the axis labels

  Input:
    lh       Handle of image
    labtyp   Axis label types
    doepoch  DO we want epoch in string ?
  Output
    x,ylabel Labels
