%N atodf %F $MIR/src/subs/string.for
%D Decode a string as a double precision value.
%P rjs
%: strings
%B
      subroutine atodf(string,d,ok)

      character string*(*)
      double precision d
      logical ok
  ---------------------------------------------------------------------
  Decode a string as a double precision value.

  Input:
    string     The ascii string, containing the double precision.
  Output:
    result     The double precision value.
    ok         This will be true if the decoding succeeded.
