1 03/31/83  cv_float_double_
 2 
 3 
 4 Entry points in cv_float_double_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: cv_float_double_: 02/01/83 cv_float_double_
 9 
10 
11 Function: converts an ASCII representation of a floating point number
12 and returns a double precision floating point representation.  If an
13 illegal character is encountered, its index in the string is returned
14 and the number is set to 0.0e0.  (See also cv_float_.)
15 
16 
17 Syntax:
18 declare cv_float_double_ entry (char(*), fixed bin(35)) returns
19      (float bin(63));
20 a = cv_float_double_ (string, code);
21 
22 
23 Arguments:
24 string
25    is the string to be converted.  (Input)
26 code
27    is the index in string of the first illegal character, if found;
28    otherwise it is zero.
29 a
30    is the result of the conversion.  (Output)
31 
32 
33 Notes:
34 Code is not a standard status code.  Therefore, it can not be passed to
35 com_err_ and other subroutines that accept only standard status codes.
36 
37 This function can be performed more efficiently in PL/I by:
38       on conversion,size goto badnumber;
39       a = convert (a, string);
40       revert conversion,size;
41          .
42          .
43          .
44       badnumber:
45       call com_err_ (error_table_$bad_conversion, proc, string);
46       return;