%N setoaco %F $MIR/src/subs/cosubs.for
%D Set default (abs or rel) coord type depending on CTYPE
%P nebk
%: coordinates
%B
      subroutine setoaco (lun, absoff, NAXIS, iax, types)

      integer   lun
      character absoff*3
      integer   NAXIS, iax
      character types(NAXIS)*(*)
  ---------------------------------------------------------------------
  Set a string dictating what units the coordinate will be presented
  in.  This is set by looking at the CTYPE for each axis.

  Input
    lun      Image handle
    absoff   'abs' or 'off' for absolute of offset world coordinate
    n        Number of axes
    iax      Specific axis if N=0
  Output
    types    Desired NEBK style coordinate types.  One of
               'hms',    'dms',    'arcsec', 'arcmin', 'absdeg',
               'reldeg', 'absghz', 'relghz', 'abskms', 'relkms',
               'absnat', 'relnat', 'none'
