%N axistype %F $MIR/src/subs/axistype.for
%D Find the axis label and plane value in user fiendly units
%P mchw
%: plotting
%B
      subroutine axisType(lIn,axis,plane,ctype,label,value,valstr)

      integer   lIn, axis, plane
      character ctype*(*), label*13
      double precision value
      character valstr*13
  ---------------------------------------------------------------------
  Find the axis label and plane value in user friendly string.

  Input:
    lIn        The handle of the image.
    axis       The image axis.
    plane      The image plane along this axis.

  Output:
    ctype      The official ctype for the input axis.
    label      A nice label for this axis.
    value      The value at the plane along this axis.
    valstr     value as a formatted string.
