1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
.help flotin Jun99 "Slalib Package"
.nf
SUBROUTINE slRFLI (STRING, NSTRT, RESLT, JFLAG)
- - - - - - -
R F L I
- - - - - - -
Convert free-format input into single precision floating point
Given:
STRING c string containing number to be decoded
NSTRT i pointer to where decoding is to start
RESLT r current value of result
Returned:
NSTRT i advanced to next number
RESLT r result
JFLAG i status: -1 = -OK, 0 = +OK, 1 = null, 2 = error
Called: slDFLI
Notes:
1 The reason FLOTIN has separate OK status values for +
and - is to enable minus zero to be detected. This is
of crucial importance when decoding mixed-radix numbers.
For example, an angle expressed as deg, arcmin, arcsec
may have a leading minus sign but a zero degrees field.
2 A TAB is interpreted as a space, and lowercase characters
are interpreted as uppercase.
3 The basic format is the sequence of fields #^.^@#^, where
# is a sign character + or -, ^ means a string of decimal
digits, and @, which indicates an exponent, means D or E.
Various combinations of these fields can be omitted, and
embedded blanks are permissible in certain places.
4 Spaces:
. Leading spaces are ignored.
. Embedded spaces are allowed only after +, -, D or E,
and after the decomal point if the first sequence of
digits is absent.
. Trailing spaces are ignored; the first signifies
end of decoding and subsequent ones are skipped.
5 Delimiters:
. Any character other than +,-,0-9,.,D,E or space may be
used to signal the end of the number and terminate
decoding.
. Comma is recognized by FLOTIN as a special case; it
is skipped, leaving the pointer on the next character.
See 13, below.
6 Both signs are optional. The default is +.
7 The mantissa ^.^ defaults to 1.
8 The exponent @#^ defaults to E0.
9 The strings of decimal digits may be of any length.
10 The decimal point is optional for whole numbers.
11 A "null result" occurs when the string of characters being
decoded does not begin with +,-,0-9,.,D or E, or consists
entirely of spaces. When this condition is detected, JFLAG
is set to 1 and RESLT is left untouched.
12 NSTRT = 1 for the first character in the string.
13 On return from FLOTIN, NSTRT is set ready for the next
decode - following trailing blanks and any comma. If a
delimiter other than comma is being used, NSTRT must be
incremented before the next call to FLOTIN, otherwise
all subsequent calls will return a null result.
14 Errors (JFLAG=2) occur when:
. a +, -, D or E is left unsatisfied; or
. the decimal point is present without at least
one decimal digit before or after it; or
. an exponent more than 100 has been presented.
15 When an error has been detected, NSTRT is left
pointing to the character following the last
one used before the error came to light. This
may be after the point at which a more sophisticated
program could have detected the error. For example,
FLOTIN does not detect that '1E999' is unacceptable
(on a computer where this is so) until the entire number
has been decoded.
16 Certain highly unlikely combinations of mantissa &
exponent can cause arithmetic faults during the
decode, in some cases despite the fact that they
together could be construed as a valid number.
17 Decoding is left to right, one pass.
18 See also DFLTIN and INTIN
P.T.Wallace Starlink 23 November 1995
Copyright (C) 1995 Rutherford Appleton Laboratory
Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
.fi
.endhelp
|
