%N cocvt1 %F $MIR/src/subs/co.for
%D Do coordinate conversion on one axis only.
%P rjs
%: coordinates
%B
      subroutine coCvt1(lu,iax,in,x1,out,x2)

      integer   lu, iax
      double precision x1, x2
      character in*(*), out*(*)
  ---------------------------------------------------------------------
  Do coordinate conversion on one axis only.

  Input:
    lu         Handle of the coordinate system.
    iax        Axis number.
    in,out     These indicate the conversion to be performed.  See the
               prologue of coCrack.
    x1         Input coordinate.
  Output:
    x2         Output, converted, coordinate.
