%N coseta %F $MIR/src/subs/co.for
%D Set a value in a coordinate object.
%P rjs
%: coordinates
%B
      subroutine coSetA(lu,object,value)

      integer lu
      character object*(*),value*(*)
  ---------------------------------------------------------------------
  Set a character value in a coordinate object.

  Input:
    lu         Handle of the coordinate object.
    object     Name of the thing to set.
    value      Value to use.
