%N cogeta %F $MIR/src/subs/co.for
%D Get a value from a coordinate object.
%P rjs
%: coordinates
%B
      subroutine coGetA(lu,object,cVal)

      integer   lu
      character object*(*), cVal*(*)
  ---------------------------------------------------------------------
  Get a character value from a coordinate object.

  Input:
    lu         Handle of the coordinate object.
    object     Name of the thing to set.
  Output:
    cVal       The value.
