%N cocpya %F $MIR/src/subs/co.for
%D Copy a value from one coordinate object to another.
%P mrc
%: coordinates
%B
      subroutine coCpyA(lu1, lu2, object)

      integer   lu1, lu2
      character object*(*)
  ---------------------------------------------------------------------
  Copy a character value from one coordinate object to another.

  Input:
    lu1        Handle of the source coordinate object.
    lu2        Handle of the destination coordinate object.
    object     Name of the thing to set.
