%N cocname %F $MIR/src/subs/co.for
%D Get a name for a coordinate ctype suitable for labelling.
%P mrc
%: coordinates
%B
      subroutine coCname(ctypei, cname)

      character ctypei*(*), cname*(*)
  ---------------------------------------------------------------------
  Get a name for a world coordinate ctype suitable for labelling.

  Input:
    ctypei     The FITS-style ctype of the world coordinate.  AIPS-
               convention spectral types will be translated.
  Output:
    cname      Coordinate name suitable for labelling purposes.
