%N angconcg %F $MIR/src/subs/cgsubs.for
%D Convert radians to and from seconds of time/arc
%P nebk
%: plotting
%B
      subroutine angconcg (id, labtyp, w)

      character*(*) labtyp
      double precision w
      integer id
  ---------------------------------------------------------------------
  Convert RA/DEC axis world coordinates between seconds (arc/time)
  and radians.

  Input
    id       1 -> convert from radians
             2 -> convert to   radians
    labtyp   axis label type
                hms    seconds of time
                dms    arc seconds
  Input/Ouput
    w        world coordinate. SHould be radians (id=1), or
             (id=1) seconds of arc ('dms') or time ('hms')
