%N coaxget %F $MIR/src/subs/co.for
%D Get information about a particular axis.
%P rjs
%: coordinates
%B
      subroutine coAxGet(lu,iax,ctypei,crpixi,crvali,cdelti)

      integer lu,iax
      character ctypei*(*)
      double precision crpixi,crvali,cdelti
  ---------------------------------------------------------------------
  Return information about a particular axis.

  Input:
    lu         Handle of the coordinate system.
    iax        Axis number.
  Output:
    ctypei     Axis type (FITS-style).
    crpixi     Reference pixel.
    crvali     Reference value.
    cdelti     Increment in linear system approximation.
