%N cocvt %F $MIR/src/subs/co.for
%D Convert coordinates, die on error.
%P mrc
%: coordinates
%B
      subroutine coCvt(lu,in,x1,out,x2)

      integer lu
      character in*(*),out*(*)
      double precision x1(*),x2(*)
  ---------------------------------------------------------------------
  Call coCvtv and die immediately if the conversion is invalid.  This
  interface exists for backwards compatibility only.  It should not be
  used in new code.
