%N w2wfco %F $MIR/src/subs/cosubs.for
%D Convert an array of coordinates and format
%P nebk
%: coordinates
%B
      subroutine w2wfco (lun, NAXIS, typei, win, typeo, nounit, strout,
     *  strlen)

      integer   lun, NAXIS
      character typei(NAXIS)*(*)
      double precision win(NAXIS)
      character typeo(NAXIS)*(*)
      logical   nounit
      character strout(NAXIS)*(*)
      integer   strlen(NAXIS)
  ---------------------------------------------------------------------
  Convert an array of NEBK style coordinates with the COCVT routines
  and format the results with units into strings

  Input
    lun     Handle of open file.
    NAXIS   Number of axes.
    typei   Array of input coordinate types, Should be from list
               'hms',    'dms',    'arcsec', 'arcmin', 'absdeg',
               'reldeg', 'abspix', 'relpix', 'absghz', 'relghz',
               'abskms', 'relkms', 'absnat', 'relnat', 'none'
    win     Array of coordinates to be converted
               'hms', 'dms' in radians
               '*  deg'     in degrees
               'arcsec'     in arcsec
               'arcmin'     in arcmin
               '*  pix'     in pixels
               '*  ghz'     in GHz
               '*  kms'     in km/s
               '*  nat'     in natural axis coordinates
    typeo   Array of output coordinate types from above list
            requested.
    nounit  Don't append units.
  Output
    strout  Array of formatted converted output coordinates.
    strlen  Length of strings in strout.
