%N w2wco %F $MIR/src/subs/cosubs.for
%D Convert an array of coordinates
%P mrc
%: coordinates
%B
      subroutine w2wco (lun, n, typei, win, typeo, wout)

      integer lun, n
      double precision win(n), wout(n)
      character*(*) typei(n), typeo(n)
  ---------------------------------------------------------------------
  For backwards-compatibility, call w2wcov to convert an NEBK-style
  coordinate vector and go belly-up if the coordinate conversion fails.
  Refer to the prologue of w2wcov for usage information.
