%N naxlabcg %F $MIR/src/subs/cgpgsubs.for
%D Draw frame, write numeric labels, ticks and grid
%P nebk
%: plotting
%B
      subroutine naxlabcg (lun, donum, blc, trc, krng, labtyp,
     *                     donx, dony, nofirst, grid)

      character*(*) labtyp(2)
      integer lun, blc(3), trc(3)
      logical donum, nofirst, grid, donx(2), dony(2)
  ---------------------------------------------------------------------
  Draw plot frame, labels and ticks/grid.  Draws correct non-linear
  ticks/grid for appropriate axes

  Input
    lun       handle for coordinate conversions
    donum     If true, this is the first time we have displayed this
              image so we label with numbers frame and box.  Otherwise
              we have erased the display and all we want to do is
              redraw the frame and ticks.  The numbers will not have
              gone.
    blc,trc   absolute pixels of blc and trc of selected hypercube
    krng      first plane and number of planes averaged in this image
    labtyp    axis label types
    donx      If donax(1) is true write bottom x-axis label
              If donax(2) is true write top    x-axis label
    dony      If donay(1) is true write left  y-axis label
              If donay(2) is true write right y-axis label
    nofirst   True if first x axis tick should not be labelled
    grid      Draw on grid instead of just ticks
