1 03/31/83  cv_float_
 2 
 3 
 4 Entry points in cv_float_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: cv_float_: 02/01/83  cv_float_
 9 
10 
11 Function: converts an ASCII representation of a floating point number
12 and returns a single 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_double_.)
15 
16 
17 Syntax:
18 declare cv_float_ entry (char(*), fixed bin(35)) returns (float bin);
19 a = cv_float_ (string, code);
20 
21 
22 Arguments:
23 string
24    is the string to be converted.  (Input)
25 code
26    is the index in string of the first illegal character, if found;
27    otherwise it is zero.
28 a
29    is the result of the conversion.  (Output)
30 
31 
32 Notes:
33 Code is not a standard status code.  Therefore, it can not be passed to
34 com_err_ and other subroutines that accept only standard status codes.
35 
36 This function can be performed more efficiently in PL/I by:
37 
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;
47