1 /* zzgfref.f -- translated by f2c (version 19980913).
2 You must link the resulting object file with the libraries:
3 -lf2c -lm (in that order)
4 */
5
6 #include "f2c.h"
7
8 /* Table of constant values */
9
10 static integer c_n2 = -2;
11 static integer c__2 = 2;
12
13 /* $Procedure ZZGFREF ( Private --- GF, update REFVAL ) */
zzgfref_(doublereal * refval)14 /* Subroutine */ int zzgfref_(doublereal *refval)
15 {
16 logical ok;
17 extern /* Subroutine */ int zzholdd_(integer *, integer *, logical *,
18 doublereal *);
19
20 /* $ Abstract */
21
22 /* SPICE private routine intended solely for the support of SPICE */
23 /* routines. Users should not call this routine directly due to the */
24 /* volatile nature of this routine. */
25
26 /* Set reference value in the GF sub-system. */
27
28 /* $ Disclaimer */
29
30 /* THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE */
31 /* CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. */
32 /* GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE */
33 /* ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE */
34 /* PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" */
35 /* TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY */
36 /* WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A */
37 /* PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC */
38 /* SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE */
39 /* SOFTWARE AND RELATED MATERIALS, HOWEVER USED. */
40
41 /* IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA */
42 /* BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT */
43 /* LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, */
44 /* INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, */
45 /* REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE */
46 /* REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. */
47
48 /* RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF */
49 /* THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY */
50 /* CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE */
51 /* ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. */
52
53 /* $ Required_Reading */
54
55 /* GF */
56
57 /* $ Keywords */
58
59 /* STORE_VALUE */
60 /* GEOMETRY */
61
62 /* $ Declarations */
63 /* $ Abstract */
64
65 /* SPICE private routine intended solely for the support of SPICE */
66 /* routines. Users should not call this routine directly due to the */
67 /* volatile nature of this routine. */
68
69 /* This file contains parameter declarations for the ZZHOLDD */
70 /* routine. */
71
72 /* $ Disclaimer */
73
74 /* THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE */
75 /* CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. */
76 /* GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE */
77 /* ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE */
78 /* PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" */
79 /* TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY */
80 /* WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A */
81 /* PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC */
82 /* SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE */
83 /* SOFTWARE AND RELATED MATERIALS, HOWEVER USED. */
84
85 /* IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA */
86 /* BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT */
87 /* LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, */
88 /* INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, */
89 /* REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE */
90 /* REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. */
91
92 /* RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF */
93 /* THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY */
94 /* CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE */
95 /* ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. */
96
97 /* $ Required_Reading */
98
99 /* None. */
100
101 /* $ Keywords */
102
103 /* None. */
104
105 /* $ Declarations */
106
107 /* None. */
108
109 /* $ Brief_I/O */
110
111 /* None. */
112
113 /* $ Detailed_Input */
114
115 /* None. */
116
117 /* $ Detailed_Output */
118
119 /* None. */
120
121 /* $ Parameters */
122
123 /* GEN general value, primarily for testing. */
124
125 /* GF_REF user defined GF reference value. */
126
127 /* GF_TOL user defined GF convergence tolerance. */
128
129 /* GF_DT user defined GF step for numeric differentiation. */
130
131 /* $ Exceptions */
132
133 /* None. */
134
135 /* $ Files */
136
137 /* None. */
138
139 /* $ Particulars */
140
141 /* None. */
142
143 /* $ Examples */
144
145 /* None. */
146
147 /* $ Restrictions */
148
149 /* None. */
150
151 /* $ Literature_References */
152
153 /* None. */
154
155 /* $ Author_and_Institution */
156
157 /* E.D. Wright (JPL) */
158
159 /* $ Version */
160
161 /* - SPICELIB Version 1.0.0 03-DEC-2013 (EDW) */
162
163 /* -& */
164
165 /* OP codes. The values exist in the integer domain */
166 /* [ -ZZNOP, -1], */
167
168
169 /* Current number of OP codes. */
170
171
172 /* ID codes. The values exist in the integer domain */
173 /* [ 1, NID], */
174
175
176 /* General use, primarily testing. */
177
178
179 /* The user defined GF reference value. */
180
181
182 /* The user defined GF convergence tolerance. */
183
184
185 /* The user defined GF step for numeric differentiation. */
186
187
188 /* Current number of ID codes, dimension of array */
189 /* in ZZHOLDD. Bad things can happen if this parameter */
190 /* does not have the proper value. */
191
192
193 /* End of file zzholdd.inc. */
194
195 /* $ Brief_I/O */
196
197 /* Variable I/O Description */
198 /* -------- --- -------------------------------------------------- */
199 /* ZZPUT P ZZHOLDD stores a DP value. */
200 /* GF_REF P ZZHOLDD acts on the reference value */
201 /* for a GF search. */
202 /* REFVAL I The value to set as the reference value. */
203
204 /* $ Detailed_Input */
205
206 /* REFVAL the double precision scalar value to set as the */
207 /* reference value for a geometry finder search. */
208
209 /* $ Detailed_Output */
210
211 /* None. */
212
213 /* $ Parameters */
214
215 /* None. */
216
217 /* $ Exceptions */
218
219 /* None. */
220
221 /* $ Files */
222
223 /* None. */
224
225 /* $ Particulars */
226
227 /* This routine wraps a put call to ZZHOLDD for the GF_REF */
228 /* value. */
229
230 /* $ Examples */
231
232 /* None. */
233
234 /* $ Restrictions */
235
236 /* None. */
237
238 /* $ Literature_References */
239
240 /* None. */
241
242 /* $ Author_and_Institution */
243
244 /* E.D. Wright (JPL) */
245
246 /* $ Version */
247
248 /* - SPICELIB Version 1.1.0, 06-AUG-2010 (EDW) */
249
250 /* Change in ZZHOLDD functionality required edit to ZZHOLDD */
251 /* call and inclusion of "zzholdd.inc" parameters file. */
252
253 /* - SPICELIB Version 1.0.0 28-NOV-2009 (EDW) */
254
255 /* -& */
256 /* $ Index_Entries */
257
258 /* store a double precision reference value */
259
260 /* -& */
261
262 /* Local Variables */
263
264
265 /* Store the REFVAL value for use in ZZGFUDLT. */
266
267 zzholdd_(&c_n2, &c__2, &ok, refval);
268 return 0;
269 } /* zzgfref_ */
270
271