%N matodf %F $MIR/src/subs/string.for
%D Decode a string as many double precision values.
%P rjs
%: strings
%B
      subroutine matodf(string, array, n, ok)

      integer          n
      character*(*)    string
      double precision array(n)
      logical          ok
  ---------------------------------------------------------------------
  Decode a string as many double precision values.

 Input:
   string      The ascii string containing the numbers
   n           The number of values wanted
 Output:
   array       The double precision numbers in the string
   ok          True if the decoding succeeded
