%N chkaxco %F $MIR/src/subs/cosubs.for
%D Check axis type and coordinate type for compatibility
%P nebk
%: coordinates
%B
      subroutine chkaxco (lun, ltype, iax)

      integer iax, lun
      character*(*) ltype
  ---------------------------------------------------------------------
  Check axis type and desired coordinate type are compatible.

  Input
    lun    Image handle.
    ltype  Coordinate type user has asked for; one of
               'hms',    'dms',
               'arcsec', 'arcmin', 'arcmas',
               'absdeg', 'reldeg',
               'absghz', 'relghz',
               'abskms', 'relkms',
               'absnat', 'relnat',
               'abspix', 'relpix',
               'none'
    iax    Axis of interest.
