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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<!--Converted with LaTeX2HTML 97.1 (release) (July 13th, 1997)
by Nikos Drakos (nikos@cbl.leeds.ac.uk), CBLU, University of Leeds
* revised and updated by: Marcus Hennecke, Ross Moore, Herb Swan
* with significant contributions from:
Jens Lippman, Marek Rouchal, Martin Wilck and others -->
<HTML>
<HEAD>
<TITLE>SLA_INTIN - Decode an Integer Number</TITLE>
<META NAME="description" CONTENT="SLA_INTIN - Decode an Integer Number">
<META NAME="keywords" CONTENT="sun67">
<META NAME="resource-type" CONTENT="document">
<META NAME="distribution" CONTENT="global">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso_8859_1">
<LINK REL="STYLESHEET" HREF="sun67.css">
<LINK REL="next" HREF="node123.html">
<LINK REL="previous" HREF="node121.html">
<LINK REL="up" HREF="node13.html">
<LINK REL="next" HREF="node123.html">
</HEAD>
<BODY >
<BR> <HR>
<A NAME="tex2html1646" HREF="node123.html">
<IMG WIDTH="37" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="next" SRC="next_motif.gif"></A>
<A NAME="tex2html1644" HREF="node13.html">
<IMG WIDTH="26" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="up" SRC="up_motif.gif"></A>
<A NAME="tex2html1638" HREF="node121.html">
<IMG WIDTH="63" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="previous" SRC="previous_motif.gif"></A> <A HREF="sun67.html#stardoccontents"><IMG ALIGN="BOTTOM" BORDER="0"
SRC="contents_motif.gif"></A>
<BR>
<B> Next:</B> <A NAME="tex2html1647" HREF="node123.html">SLA_INVF - Invert Linear Model</A>
<BR>
<B>Up:</B> <A NAME="tex2html1645" HREF="node13.html">SUBPROGRAM SPECIFICATIONS</A>
<BR>
<B> Previous:</B> <A NAME="tex2html1639" HREF="node121.html">SLA_IMXV - Apply 3D Reverse Rotation</A>
<BR> <HR> <P>
<P><!--End of Navigation Panel-->
<H2><A NAME="SECTION0004109000000000000000">SLA_INTIN - Decode an Integer Number</A>
<A NAME="xref_SLA_INTIN"> </A><A NAME="SLA_INTIN"> </A>
</H2>
<DL>
<DT><STRONG>ACTION:</STRONG>
<DD>Convert free-format input into an integer.
<DT><STRONG>CALL:</STRONG>
<DD><TT>CALL sla_INTIN (STRING, NSTRT, IRESLT, JFLAG)</TT>
<P> </DL>
<P> <DL>
<DT><STRONG>GIVEN:</STRONG>
<DD>
<BR>
<TABLE CELLPADDING=3>
<TR VALIGN="TOP"><TD ALIGN="LEFT"><EM>STRING</EM></TD>
<TH ALIGN="LEFT"><B>C</B></TH>
<TD ALIGN="LEFT" NOWRAP>string containing number to be decoded</TD>
</TR>
<TR VALIGN="TOP"><TD ALIGN="LEFT"><EM>NSTRT</EM></TD>
<TD ALIGN="LEFT"><B>I</B></TD>
<TD ALIGN="LEFT" NOWRAP>pointer to where decoding is to commence</TD>
</TR>
<TR VALIGN="TOP"><TD ALIGN="LEFT"><EM>IRESLT</EM></TD>
<TD ALIGN="LEFT"><B>I</B></TD>
<TD ALIGN="LEFT" NOWRAP>current value of result</TD>
</TR>
</TABLE></DL>
<P> <DL>
<DT><STRONG>RETURNED:</STRONG>
<DD>
<BR>
<TABLE CELLPADDING=3>
<TR VALIGN="TOP"><TD ALIGN="LEFT"><EM>NSTRT</EM></TD>
<TH ALIGN="LEFT"><B>I</B></TH>
<TD ALIGN="LEFT" NOWRAP>advanced to next number</TD>
</TR>
<TR VALIGN="TOP"><TD ALIGN="LEFT"><EM>IRESLT</EM></TD>
<TD ALIGN="LEFT"><B>I</B></TD>
<TD ALIGN="LEFT" NOWRAP>result</TD>
</TR>
<TR VALIGN="TOP"><TD ALIGN="LEFT"><EM>JFLAG</EM></TD>
<TD ALIGN="LEFT"><B>I</B></TD>
<TD ALIGN="LEFT" NOWRAP>status: -1 = -OK, 0 = +OK, 1 = null result, 2 = error</TD>
</TR>
</TABLE></DL>
<P> <DL>
<DT><STRONG>NOTES:</STRONG>
<DD><DL COMPACT>
<DT>1.
<DD>The reason sla_INTIN 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 degrees, arcminutes and arcseconds may have a
leading minus sign but a zero degrees field.
<DT>2.
<DD>A TAB is interpreted as a space. <I>n.b.</I> The test for TAB is
ASCII-specific.
<DT>3.
<DD>The basic format is the sequence of fields <IMG WIDTH="25" HEIGHT="25" ALIGN="MIDDLE" BORDER="0"
SRC="img123.gif"
ALT="$\pm n$">, where <IMG WIDTH="15" HEIGHT="25" ALIGN="MIDDLE" BORDER="0"
SRC="img30.gif"
ALT="$\pm$"> is a sign
character `+' or `-', and <I>n</I> means a string of decimal digits.
<DT>4.
<DD>Spaces:
<UL>
<LI> Leading spaces are ignored.
<LI> Spaces between the sign and the number are allowed.
<LI> Trailing spaces are ignored; the first signifies
end of decoding and subsequent ones are skipped.
</UL>
<DT>5.
<DD>Delimiters:
<UL>
<LI> Any character other than +,-,0-9 or space may be
used to signal the end of the number and terminate decoding.
<LI> Comma is recognized by sla_INTIN as a special case; it
is skipped, leaving the pointer on the next character. See
9, below.
<LI> Decoding will in all cases terminate if end of string
is reached.
</UL>
<DT>6.
<DD>The sign is optional. The default is +.
<DT>7.
<DD>A <I>null result</I> occurs when the string of characters
being decoded does not begin with +,- or 0-9, or
consists entirely of spaces. When this condition is
detected, JFLAG is set to 1 and IRESLT is left untouched.
<DT>8.
<DD>NSTRT = 1 for the first character in the string.
<DT>9.
<DD>On return from sla_INTIN, 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 sla_INTIN, otherwise
all subsequent calls will return a null result.
<DT>10.
<DD>Errors (JFLAG=2) occur when:
<UL>
<LI> there is a + or - but no number; or
<LI> the number is greater than 2<SUP>31</SUP>-1.
</UL>
<DT>11.
<DD>When an error has been detected, NSTRT is left
pointing to the character following the last
one used before the error came to light.
<DT>12.
<DD>See also sla_FLOTIN and sla_DFLTIN.
</DL></DL>
<BR> <HR>
<A NAME="tex2html1646" HREF="node123.html">
<IMG WIDTH="37" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="next" SRC="next_motif.gif"></A>
<A NAME="tex2html1644" HREF="node13.html">
<IMG WIDTH="26" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="up" SRC="up_motif.gif"></A>
<A NAME="tex2html1638" HREF="node121.html">
<IMG WIDTH="63" HEIGHT="24" ALIGN="BOTTOM" BORDER="0" ALT="previous" SRC="previous_motif.gif"></A> <A HREF="sun67.html#stardoccontents"><IMG ALIGN="BOTTOM" BORDER="0"
SRC="contents_motif.gif"></A>
<BR>
<B> Next:</B> <A NAME="tex2html1647" HREF="node123.html">SLA_INVF - Invert Linear Model</A>
<BR>
<B>Up:</B> <A NAME="tex2html1645" HREF="node13.html">SUBPROGRAM SPECIFICATIONS</A>
<BR>
<B> Previous:</B> <A NAME="tex2html1639" HREF="node121.html">SLA_IMXV - Apply 3D Reverse Rotation</A>
<BR> <HR> <P>
<P><!--End of Navigation Panel-->
<ADDRESS>
<I>SLALIB --- Positional Astronomy Library<BR>Starlink User Note 67<BR>P. T. Wallace<BR>12 October 1999<BR>E-mail:ptw@star.rl.ac.uk</I>
</ADDRESS>
</BODY>
</HTML>
|
