%N atorf %F $MIR/src/subs/string.for
%D Decode a string as a real.
%P rjs
%: strings
%B
      subroutine atorf(string,result,ok)

      character string*(*)
      real result
      logical ok
  ---------------------------------------------------------------------
  Decode a string as a real value.

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