%N codup %F $MIR/src/subs/co.for
%D Duplicate a coodinate object.
%P rjs
%: coordinates
%B
      subroutine coDup(lin,lout)

      integer   lin, lout
  ---------------------------------------------------------------------
  Duplicate a coordinate object.

  Input:
    lin        Handle of the coordinate object to be duplicated.
  Output:
    lout       Duplicated coordinate object.
