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

      integer lu
      character object*(*)
      double precision dVal
  ---------------------------------------------------------------------
  Get a floating point value from a coordinate object.

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