%N coctype %F $MIR/src/subs/co.for
%D Parse a world coordinate ctype.
%P mrc
%: coordinates
%B
      subroutine coCtype(ctypei, axtype, wtype, algo, units, scl)

      character ctypei*(*), axtype*(*)
      character wtype*(*), algo*(*), units*(*)
      double precision scl
  ---------------------------------------------------------------------
  Parse a world coordinate ctype returning the generic type and other
  information.  Does not require coInit.

  Input:
    ctypei     The FITS-style ctype of the world coordinate.  AIPS-
               convention spectral types will be translated (however,
               the Doppler frame will be discarded, use spcaips to
               extract it).
  Output:
    axtype     Generic world coordinate type:
                 'linear'     for simple linear axes other than
                              celestial or spectral.
                 'longitude'  for RA,  GLON and ELON axes.
                 'latitude'   for DEC, GLAT and ELAT axes.
                 'spectral'   for spectral axes.
    wtype      World coordinate type, i.e. ctype with the algorithm
               code stripped off, e.g. 'RA---NCP' yields 'RA', and
               'VOPT-F2W' yields 'VOPT'.
    algo       World coordinate algorithm code, e.g. 'RA---NCP' yields
               'NCP', and 'VOPT-F2W' yields 'F2W'.  Blank for linear
               axes or if the code is unrecognized.
    units      Miriad internal units for this world coordinate in a
               form suitable for reporting, e.g. 'VOPT-F2W' would
               yield 'km/s'.  May be used to identify angular,
               frequency, velocity, etc. axes.
    scl        Factor to convert from Miriad to FITS/WCSLIB internal
               units.
