1 /*
2 
3 -Header_File SpiceZfc.h ( f2c'd SPICELIB prototypes )
4 
5 -Abstract
6 
7    Define prototypes for functions produced by converting Fortran
8    SPICELIB routines to C using f2c.
9 
10 -Disclaimer
11 
12    THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE
13    CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S.
14    GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE
15    ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE
16    PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS"
17    TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY
18    WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A
19    PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC
20    SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE
21    SOFTWARE AND RELATED MATERIALS, HOWEVER USED.
22 
23    IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA
24    BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT
25    LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND,
26    INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS,
27    REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE
28    REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY.
29 
30    RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF
31    THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY
32    CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE
33    ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE.
34 
35 -Required_Reading
36 
37    None.
38 
39 -Literature_References
40 
41    None.
42 
43 -Author_and_Institution
44 
45    N.J. Bachman       (JPL)
46    K.R. Gehringer     (JPL)
47    B.V. Semenov       (JPL)
48    E.D. Wright        (JPL)
49 
50 -Version
51 
52    -CSPICE Version 7.0.0, 10-MAR-2014 (BVS)
53 
54       Reformatted version lines.
55 
56       Now this header conditionally includes SpiceUsr.h.
57 
58       Updated for:
59 
60          PC-CYGWIN-64BIT-GCC_C
61 
62       environment. Added the corresponding tag:
63 
64          CSPICE_PC_CYGWIN_64BIT_GCC
65 
66       tag to the #ifdefs set.
67 
68    -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS)
69 
70       Updated for:
71 
72          MAC-OSX-64BIT-INTEL_C
73          SUN-SOLARIS-64BIT-NATIVE_C
74          SUN-SOLARIS-INTEL-64BIT-CC_C
75 
76       environments. Added the corresponding tags:
77 
78          CSPICE_MAC_OSX_INTEL_64BIT_GCC
79          CSPICE_SUN_SOLARIS_64BIT_NATIVE
80          CSPICE_SUN_SOLARIS_INTEL_64BIT_CC
81 
82       tag to the #ifdefs set.
83 
84    -CSPICE Version 6.0.0, 21-FEB-2006 (NJB)
85 
86       Added typedefs for the PC-LINUX-64BIT-GCC_C
87       environment (these are identical to those for the
88       ALPHA-DIGITAL-UNIX_C environment).
89 
90    -CSPICE Version 5.0.0, 06-MAR-2005 (NJB)
91 
92       Added typedefs for pointers to functions.  This change was
93       made to support CSPICE wrappers for geometry finder routines.
94 
95       Added typedefs for the SUN-SOLARIS-64BIT-GCC_C
96       environment (these are identical to those for the
97       ALPHA-DIGITAL-UNIX_C environment).
98 
99    -CSPICE Version 4.1.0, 24-MAY-2001 (WLT)
100 
101       Moved the #ifdef __cplusplus so that it appears after the
102       typedefs.  This allows us to more easily wrap CSPICE in a
103       namespace for C++.
104 
105    -CSPICE Version 4.0.0, 09-FEB-1999 (NJB)
106 
107       Updated to accommodate the Alpha/Digital Unix platform.
108       Also updated to support inclusion in C++ code.
109 
110    -CSPICE Version 3.0.0, 02-NOV-1998 (NJB)
111 
112       Updated for SPICELIB version N0049.
113 
114    -CSPICE Version 2.0.0, 15-SEP-1997 (NJB)
115 
116       Changed variable name "typid" to "typid" in prototype
117       for zzfdat_.  This was done to enable compilation under
118       Borland C++.
119 
120    -CSPICE Version 1.0.0, 15-SEP-1997 (NJB) (KRG)
121 
122 -Index_Entries
123 
124    prototypes of f2c'd SPICELIB functions
125 
126 */
127 
128 
129 /*
130    Include SpiceUsr.h if it hasn't already been included
131    by the current compilation unit.
132 */
133 #ifndef HAVE_SPICE_USER
134    #include "SpiceUsr.h"
135 #endif
136 
137 
138 
139 #ifndef HAVE_SPICEF2C_H
140 #define HAVE_SPICEF2C_H
141 
142 
143 /*
144    Include Files:
145 
146    Many of the prototypes below use data types defined by f2c.  We
147    copy here the f2c definitions that occur in prototypes of functions
148    produced by running f2c on Fortran SPICELIB routines.
149 
150    The reason we don't simply conditionally include f2c.h itself here
151    is that f2c.h defines macros that conflict with stdlib.h on some
152    systems.  It's simpler to just replicate the few typedefs we need.
153 */
154 
155 #if (    defined( CSPICE_ALPHA_DIGITAL_UNIX    )      \
156       || defined( CSPICE_PC_CYGWIN_64BIT_GCC )        \
157       || defined( CSPICE_PC_LINUX_64BIT_GCC    )      \
158       || defined( CSPICE_MAC_OSX_INTEL_64BIT_GCC )    \
159       || defined( CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \
160       || defined( CSPICE_SUN_SOLARIS_64BIT_NATIVE)    \
161       || defined( CSPICE_SUN_SOLARIS_64BIT_GCC )        )
162 
163    #define VOID      void
164 
165    typedef VOID      H_f;
166    typedef int       integer;
167    typedef double    doublereal;
168    typedef int       logical;
169    typedef int       ftnlen;
170 
171 
172    /*
173    Type H_fp is used for character return type.
174    Type S_fp is used for subroutines.
175    Type U_fp is used for functions of unknown type.
176    */
177    typedef VOID       (*H_fp)();
178    typedef doublereal (*D_fp)();
179    typedef doublereal (*E_fp)();
180    typedef int        (*S_fp)();
181    typedef int        (*U_fp)();
182    typedef integer    (*I_fp)();
183    typedef logical    (*L_fp)();
184 
185 #else
186 
187    #define VOID      void
188 
189    typedef VOID      H_f;
190    typedef long      integer;
191    typedef double    doublereal;
192    typedef long      logical;
193    typedef long      ftnlen;
194 
195    /*
196    Type H_fp is used for character return type.
197    Type S_fp is used for subroutines.
198    Type U_fp is used for functions of unknown type.
199    */
200    typedef VOID       (*H_fp)();
201    typedef doublereal (*D_fp)();
202    typedef doublereal (*E_fp)();
203    typedef int        (*S_fp)();
204    typedef int        (*U_fp)();
205    typedef integer    (*I_fp)();
206    typedef logical    (*L_fp)();
207 
208 #endif
209 
210 
211 #ifdef __cplusplus
212    extern "C" {
213 #endif
214 
215 
216 /*
217    Function prototypes for functions created by f2c are listed below.
218    See the headers of the Fortran routines for descriptions of the
219    routines' interfaces.
220 
221    The functions listed below are those expected to be called by
222    C-SPICELIB wrappers.  Prototypes are not currently provided for other
223    f2c'd functions.
224 
225 */
226 
227 /*
228 -Prototypes
229 */
230 
231 extern logical accept_(logical *ok);
232 extern logical allowd_(void);
233 
234 extern logical alltru_(logical *logcls, integer *n);
235 
236 extern H_f ana_(char *ret_val, ftnlen ret_val_len, char *word, char *case__, ftnlen word_len, ftnlen case_len);
237 /*:ref: ucase_ 14 4 13 13 124 124 */
238 /*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */
239 /*:ref: ljust_ 14 4 13 13 124 124 */
240 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
241 
242 extern int appndc_(char *item, char *cell, ftnlen item_len, ftnlen cell_len);
243 /*:ref: return_ 12 0 */
244 /*:ref: chkin_ 14 2 13 124 */
245 /*:ref: cardc_ 4 2 13 124 */
246 /*:ref: sizec_ 4 2 13 124 */
247 /*:ref: scardc_ 14 3 4 13 124 */
248 /*:ref: setmsg_ 14 2 13 124 */
249 /*:ref: errch_ 14 4 13 13 124 124 */
250 /*:ref: sigerr_ 14 2 13 124 */
251 /*:ref: chkout_ 14 2 13 124 */
252 
253 extern int appndd_(doublereal *item, doublereal *cell);
254 /*:ref: return_ 12 0 */
255 /*:ref: chkin_ 14 2 13 124 */
256 /*:ref: cardd_ 4 1 7 */
257 /*:ref: sized_ 4 1 7 */
258 /*:ref: scardd_ 14 2 4 7 */
259 /*:ref: setmsg_ 14 2 13 124 */
260 /*:ref: errdp_ 14 3 13 7 124 */
261 /*:ref: sigerr_ 14 2 13 124 */
262 /*:ref: chkout_ 14 2 13 124 */
263 
264 extern int appndi_(integer *item, integer *cell);
265 /*:ref: return_ 12 0 */
266 /*:ref: chkin_ 14 2 13 124 */
267 /*:ref: cardi_ 4 1 4 */
268 /*:ref: sizei_ 4 1 4 */
269 /*:ref: scardi_ 14 2 4 4 */
270 /*:ref: setmsg_ 14 2 13 124 */
271 /*:ref: errint_ 14 3 13 4 124 */
272 /*:ref: sigerr_ 14 2 13 124 */
273 /*:ref: chkout_ 14 2 13 124 */
274 
275 extern logical approx_(doublereal *x, doublereal *y, doublereal *tol);
276 
277 extern int astrip_(char *instr, char *asciib, char *asciie, char *outstr, ftnlen instr_len, ftnlen asciib_len, ftnlen asciie_len, ftnlen outstr_len);
278 /*:ref: lastnb_ 4 2 13 124 */
279 
280 extern int axisar_(doublereal *axis, doublereal *angle, doublereal *r__);
281 /*:ref: ident_ 14 1 7 */
282 /*:ref: vrotv_ 14 4 7 7 7 7 */
283 /*:ref: vequ_ 14 2 7 7 */
284 
285 extern doublereal b1900_(void);
286 
287 extern doublereal b1950_(void);
288 
289 extern logical badkpv_(char *caller, char *name__, char *comp, integer *size, integer *divby, char *type__, ftnlen caller_len, ftnlen name_len, ftnlen comp_len, ftnlen type_len);
290 /*:ref: return_ 12 0 */
291 /*:ref: chkin_ 14 2 13 124 */
292 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
293 /*:ref: setmsg_ 14 2 13 124 */
294 /*:ref: errch_ 14 4 13 13 124 124 */
295 /*:ref: sigerr_ 14 2 13 124 */
296 /*:ref: chkout_ 14 2 13 124 */
297 /*:ref: errint_ 14 3 13 4 124 */
298 /*:ref: eqchr_ 12 4 13 13 124 124 */
299 
300 extern logical bedec_(char *string, ftnlen string_len);
301 /*:ref: pos_ 4 5 13 13 4 124 124 */
302 /*:ref: beint_ 12 2 13 124 */
303 /*:ref: beuns_ 12 2 13 124 */
304 
305 extern logical beint_(char *string, ftnlen string_len);
306 /*:ref: frstnb_ 4 2 13 124 */
307 /*:ref: beuns_ 12 2 13 124 */
308 
309 extern logical benum_(char *string, ftnlen string_len);
310 /*:ref: cpos_ 4 5 13 13 4 124 124 */
311 /*:ref: bedec_ 12 2 13 124 */
312 /*:ref: beint_ 12 2 13 124 */
313 
314 extern logical beuns_(char *string, ftnlen string_len);
315 /*:ref: frstnb_ 4 2 13 124 */
316 
317 extern int bltfrm_(integer *frmcls, integer *idset);
318 /*:ref: return_ 12 0 */
319 /*:ref: chkin_ 14 2 13 124 */
320 /*:ref: scardi_ 14 2 4 4 */
321 /*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */
322 /*:ref: failed_ 12 0 */
323 /*:ref: chkout_ 14 2 13 124 */
324 /*:ref: setmsg_ 14 2 13 124 */
325 /*:ref: errint_ 14 3 13 4 124 */
326 /*:ref: sigerr_ 14 2 13 124 */
327 /*:ref: sizei_ 4 1 4 */
328 /*:ref: orderi_ 14 3 4 4 4 */
329 
330 extern int bodc2n_(integer *code, char *name__, logical *found, ftnlen name_len);
331 /*:ref: return_ 12 0 */
332 /*:ref: chkin_ 14 2 13 124 */
333 /*:ref: zzbodc2n_ 14 4 4 13 12 124 */
334 /*:ref: chkout_ 14 2 13 124 */
335 
336 extern int bodc2s_(integer *code, char *name__, ftnlen name_len);
337 /*:ref: return_ 12 0 */
338 /*:ref: chkin_ 14 2 13 124 */
339 /*:ref: zzbodc2n_ 14 4 4 13 12 124 */
340 /*:ref: chkout_ 14 2 13 124 */
341 /*:ref: intstr_ 14 3 4 13 124 */
342 
343 extern int boddef_(char *name__, integer *code, ftnlen name_len);
344 /*:ref: return_ 12 0 */
345 /*:ref: chkin_ 14 2 13 124 */
346 /*:ref: zzboddef_ 14 3 13 4 124 */
347 /*:ref: chkout_ 14 2 13 124 */
348 
349 extern int bodeul_(integer *body, doublereal *et, doublereal *ra, doublereal *dec, doublereal *w, doublereal *lambda);
350 /*:ref: return_ 12 0 */
351 /*:ref: chkin_ 14 2 13 124 */
352 /*:ref: irfnum_ 14 3 13 4 124 */
353 /*:ref: pckeul_ 14 6 4 7 12 13 7 124 */
354 /*:ref: bodfnd_ 12 3 4 13 124 */
355 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
356 /*:ref: rpd_ 7 0 */
357 /*:ref: twopi_ 7 0 */
358 /*:ref: zzbodbry_ 4 1 4 */
359 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
360 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
361 /*:ref: spd_ 7 0 */
362 /*:ref: j2000_ 7 0 */
363 /*:ref: cleard_ 14 2 4 7 */
364 /*:ref: setmsg_ 14 2 13 124 */
365 /*:ref: errint_ 14 3 13 4 124 */
366 /*:ref: errdp_ 14 3 13 7 124 */
367 /*:ref: sigerr_ 14 2 13 124 */
368 /*:ref: chkout_ 14 2 13 124 */
369 /*:ref: vdotg_ 7 3 7 7 4 */
370 /*:ref: halfpi_ 7 0 */
371 /*:ref: irfrot_ 14 3 4 4 7 */
372 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
373 /*:ref: mxm_ 14 3 7 7 7 */
374 /*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */
375 
376 extern logical bodfnd_(integer *body, char *item, ftnlen item_len);
377 /*:ref: return_ 12 0 */
378 /*:ref: chkin_ 14 2 13 124 */
379 /*:ref: intstr_ 14 3 4 13 124 */
380 /*:ref: suffix_ 14 5 13 4 13 124 124 */
381 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
382 /*:ref: chkout_ 14 2 13 124 */
383 
384 extern int bodmat_(integer *body, doublereal *et, doublereal *tipm);
385 /*:ref: return_ 12 0 */
386 /*:ref: chkin_ 14 2 13 124 */
387 /*:ref: tisbod_ 14 5 13 4 7 7 124 */
388 /*:ref: failed_ 12 0 */
389 /*:ref: chkout_ 14 2 13 124 */
390 
391 extern int bodn2c_(char *name__, integer *code, logical *found, ftnlen name_len);
392 /*:ref: return_ 12 0 */
393 /*:ref: chkin_ 14 2 13 124 */
394 /*:ref: zzbodn2c_ 14 4 13 4 12 124 */
395 /*:ref: chkout_ 14 2 13 124 */
396 
397 extern int bods2c_(char *name__, integer *code, logical *found, ftnlen name_len);
398 /*:ref: return_ 12 0 */
399 /*:ref: chkin_ 14 2 13 124 */
400 /*:ref: zzbodn2c_ 14 4 13 4 12 124 */
401 /*:ref: beint_ 12 2 13 124 */
402 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
403 /*:ref: chkout_ 14 2 13 124 */
404 
405 extern int bodvar_(integer *body, char *item, integer *dim, doublereal *values, ftnlen item_len);
406 /*:ref: return_ 12 0 */
407 /*:ref: chkin_ 14 2 13 124 */
408 /*:ref: intstr_ 14 3 4 13 124 */
409 /*:ref: suffix_ 14 5 13 4 13 124 124 */
410 /*:ref: rtpool_ 14 5 13 4 7 12 124 */
411 /*:ref: setmsg_ 14 2 13 124 */
412 /*:ref: errch_ 14 4 13 13 124 124 */
413 /*:ref: sigerr_ 14 2 13 124 */
414 /*:ref: chkout_ 14 2 13 124 */
415 
416 extern int bodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len);
417 /*:ref: return_ 12 0 */
418 /*:ref: chkin_ 14 2 13 124 */
419 /*:ref: intstr_ 14 3 4 13 124 */
420 /*:ref: suffix_ 14 5 13 4 13 124 124 */
421 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
422 /*:ref: setmsg_ 14 2 13 124 */
423 /*:ref: errch_ 14 4 13 13 124 124 */
424 /*:ref: sigerr_ 14 2 13 124 */
425 /*:ref: chkout_ 14 2 13 124 */
426 /*:ref: errint_ 14 3 13 4 124 */
427 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
428 
429 extern int bodvrd_(char *bodynm, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen bodynm_len, ftnlen item_len);
430 /*:ref: return_ 12 0 */
431 /*:ref: chkin_ 14 2 13 124 */
432 /*:ref: zzctruin_ 14 1 4 */
433 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
434 /*:ref: setmsg_ 14 2 13 124 */
435 /*:ref: errch_ 14 4 13 13 124 124 */
436 /*:ref: sigerr_ 14 2 13 124 */
437 /*:ref: chkout_ 14 2 13 124 */
438 /*:ref: intstr_ 14 3 4 13 124 */
439 /*:ref: suffix_ 14 5 13 4 13 124 124 */
440 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
441 /*:ref: errint_ 14 3 13 4 124 */
442 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
443 
444 extern doublereal brcktd_(doublereal *number, doublereal *end1, doublereal *end2);
445 
446 extern integer brckti_(integer *number, integer *end1, integer *end2);
447 
448 extern integer bschoc_(char *value, integer *ndim, char *array, integer *order, ftnlen value_len, ftnlen array_len);
449 
450 extern integer bschoi_(integer *value, integer *ndim, integer *array, integer *order);
451 
452 extern integer bsrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len);
453 
454 extern integer bsrchd_(doublereal *value, integer *ndim, doublereal *array);
455 
456 extern integer bsrchi_(integer *value, integer *ndim, integer *array);
457 
458 extern integer cardc_(char *cell, ftnlen cell_len);
459 /*:ref: return_ 12 0 */
460 /*:ref: chkin_ 14 2 13 124 */
461 /*:ref: dechar_ 14 3 13 4 124 */
462 /*:ref: setmsg_ 14 2 13 124 */
463 /*:ref: errint_ 14 3 13 4 124 */
464 /*:ref: sigerr_ 14 2 13 124 */
465 /*:ref: chkout_ 14 2 13 124 */
466 
467 extern integer cardd_(doublereal *cell);
468 /*:ref: return_ 12 0 */
469 /*:ref: chkin_ 14 2 13 124 */
470 /*:ref: setmsg_ 14 2 13 124 */
471 /*:ref: errint_ 14 3 13 4 124 */
472 /*:ref: sigerr_ 14 2 13 124 */
473 /*:ref: chkout_ 14 2 13 124 */
474 
475 extern integer cardi_(integer *cell);
476 /*:ref: return_ 12 0 */
477 /*:ref: chkin_ 14 2 13 124 */
478 /*:ref: setmsg_ 14 2 13 124 */
479 /*:ref: errint_ 14 3 13 4 124 */
480 /*:ref: sigerr_ 14 2 13 124 */
481 /*:ref: chkout_ 14 2 13 124 */
482 
483 extern int cgv2el_(doublereal *center, doublereal *vec1, doublereal *vec2, doublereal *ellips);
484 /*:ref: return_ 12 0 */
485 /*:ref: chkin_ 14 2 13 124 */
486 /*:ref: vequ_ 14 2 7 7 */
487 /*:ref: saelgv_ 14 4 7 7 7 7 */
488 /*:ref: chkout_ 14 2 13 124 */
489 
490 extern integer chbase_(void);
491 
492 extern int chbder_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, integer *nderiv, doublereal *partdp, doublereal *dpdxs);
493 
494 extern int chbigr_(integer *degp, doublereal *cp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *itgrlp);
495 /*:ref: return_ 12 0 */
496 /*:ref: chkin_ 14 2 13 124 */
497 /*:ref: setmsg_ 14 2 13 124 */
498 /*:ref: errint_ 14 3 13 4 124 */
499 /*:ref: sigerr_ 14 2 13 124 */
500 /*:ref: chkout_ 14 2 13 124 */
501 /*:ref: errdp_ 14 3 13 7 124 */
502 
503 extern int chbint_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *dpdx);
504 
505 extern int chbval_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p);
506 
507 extern int chckid_(char *class__, integer *maxlen, char *id, ftnlen class_len, ftnlen id_len);
508 /*:ref: return_ 12 0 */
509 /*:ref: chkin_ 14 2 13 124 */
510 /*:ref: frstnp_ 4 2 13 124 */
511 /*:ref: setmsg_ 14 2 13 124 */
512 /*:ref: errch_ 14 4 13 13 124 124 */
513 /*:ref: errint_ 14 3 13 4 124 */
514 /*:ref: sigerr_ 14 2 13 124 */
515 /*:ref: chkout_ 14 2 13 124 */
516 /*:ref: lastnb_ 4 2 13 124 */
517 
518 extern int chgirf_(integer *refa, integer *refb, doublereal *rotab, char *name__, integer *index, ftnlen name_len);
519 extern int irfrot_(integer *refa, integer *refb, doublereal *rotab);
520 extern int irfnum_(char *name__, integer *index, ftnlen name_len);
521 extern int irfnam_(integer *index, char *name__, ftnlen name_len);
522 extern int irfdef_(integer *index);
523 /*:ref: return_ 12 0 */
524 /*:ref: chkin_ 14 2 13 124 */
525 /*:ref: sigerr_ 14 2 13 124 */
526 /*:ref: chkout_ 14 2 13 124 */
527 /*:ref: rotate_ 14 3 7 4 7 */
528 /*:ref: wdcnt_ 4 2 13 124 */
529 /*:ref: nthwd_ 14 6 13 4 13 4 124 124 */
530 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
531 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
532 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
533 /*:ref: rotmat_ 14 4 7 7 4 7 */
534 /*:ref: moved_ 14 3 7 4 7 */
535 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
536 /*:ref: mxm_ 14 3 7 7 7 */
537 /*:ref: setmsg_ 14 2 13 124 */
538 /*:ref: errint_ 14 3 13 4 124 */
539 /*:ref: mxmt_ 14 3 7 7 7 */
540 /*:ref: eqstr_ 12 4 13 13 124 124 */
541 /*:ref: esrchc_ 4 5 13 4 13 124 124 */
542 
543 extern int ckbsr_(char *fname, integer *handle, integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *descr, char *segid, logical *found, ftnlen fname_len, ftnlen segid_len);
544 extern int cklpf_(char *fname, integer *handle, ftnlen fname_len);
545 extern int ckupf_(integer *handle);
546 extern int ckbss_(integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav);
547 extern int cksns_(integer *handle, doublereal *descr, char *segid, logical *found, ftnlen segid_len);
548 extern int ckhave_(logical *found);
549 /*:ref: return_ 12 0 */
550 /*:ref: chkin_ 14 2 13 124 */
551 /*:ref: sigerr_ 14 2 13 124 */
552 /*:ref: chkout_ 14 2 13 124 */
553 /*:ref: lnktl_ 4 2 4 4 */
554 /*:ref: lnkfsl_ 14 3 4 4 4 */
555 /*:ref: lnkini_ 14 2 4 4 */
556 /*:ref: dafopr_ 14 3 13 4 124 */
557 /*:ref: failed_ 12 0 */
558 /*:ref: isrchi_ 4 3 4 4 4 */
559 /*:ref: dafcls_ 14 1 4 */
560 /*:ref: lnknxt_ 4 2 4 4 */
561 /*:ref: setmsg_ 14 2 13 124 */
562 /*:ref: errint_ 14 3 13 4 124 */
563 /*:ref: intmax_ 4 0 */
564 /*:ref: moved_ 14 3 7 4 7 */
565 /*:ref: lnkprv_ 4 2 4 4 */
566 /*:ref: dpmin_ 7 0 */
567 /*:ref: dpmax_ 7 0 */
568 /*:ref: cleard_ 14 2 4 7 */
569 /*:ref: dafbfs_ 14 1 4 */
570 /*:ref: daffna_ 14 1 12 */
571 /*:ref: dafgs_ 14 1 7 */
572 /*:ref: dafus_ 14 5 7 4 4 7 4 */
573 /*:ref: dafbbs_ 14 1 4 */
574 /*:ref: daffpa_ 14 1 12 */
575 /*:ref: dafps_ 14 5 4 4 7 4 7 */
576 /*:ref: lnknfn_ 4 1 4 */
577 /*:ref: lnkan_ 14 2 4 4 */
578 /*:ref: dafgn_ 14 2 13 124 */
579 /*:ref: lnkilb_ 14 3 4 4 4 */
580 /*:ref: lnkila_ 14 3 4 4 4 */
581 
582 extern int ckcls_(integer *handle);
583 /*:ref: return_ 12 0 */
584 /*:ref: chkin_ 14 2 13 124 */
585 /*:ref: dafbfs_ 14 1 4 */
586 /*:ref: daffna_ 14 1 12 */
587 /*:ref: failed_ 12 0 */
588 /*:ref: chkout_ 14 2 13 124 */
589 /*:ref: setmsg_ 14 2 13 124 */
590 /*:ref: errhan_ 14 3 13 4 124 */
591 /*:ref: sigerr_ 14 2 13 124 */
592 /*:ref: dafcls_ 14 1 4 */
593 
594 extern int ckcov_(char *ck, integer *idcode, logical *needav, char *level, doublereal *tol, char *timsys, doublereal *cover, ftnlen ck_len, ftnlen level_len, ftnlen timsys_len);
595 /*:ref: return_ 12 0 */
596 /*:ref: chkin_ 14 2 13 124 */
597 /*:ref: setmsg_ 14 2 13 124 */
598 /*:ref: errdp_ 14 3 13 7 124 */
599 /*:ref: sigerr_ 14 2 13 124 */
600 /*:ref: chkout_ 14 2 13 124 */
601 /*:ref: eqstr_ 12 4 13 13 124 124 */
602 /*:ref: errch_ 14 4 13 13 124 124 */
603 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
604 /*:ref: ckmeta_ 14 4 4 13 4 124 */
605 /*:ref: failed_ 12 0 */
606 /*:ref: dafopr_ 14 3 13 4 124 */
607 /*:ref: dafbfs_ 14 1 4 */
608 /*:ref: daffna_ 14 1 12 */
609 /*:ref: dafgs_ 14 1 7 */
610 /*:ref: dafus_ 14 5 7 4 4 7 4 */
611 /*:ref: sct2e_ 14 3 4 7 7 */
612 /*:ref: wninsd_ 14 3 7 7 7 */
613 /*:ref: zzckcv01_ 14 8 4 4 4 4 7 13 7 124 */
614 /*:ref: zzckcv02_ 14 8 4 4 4 4 7 13 7 124 */
615 /*:ref: zzckcv03_ 14 8 4 4 4 4 7 13 7 124 */
616 /*:ref: zzckcv04_ 14 8 4 4 4 4 7 13 7 124 */
617 /*:ref: zzckcv05_ 14 9 4 4 4 4 7 7 13 7 124 */
618 /*:ref: zzckcv06_ 14 9 4 4 4 4 7 7 13 7 124 */
619 /*:ref: errint_ 14 3 13 4 124 */
620 /*:ref: dafcls_ 14 1 4 */
621 
622 extern int cke01_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout);
623 /*:ref: return_ 12 0 */
624 /*:ref: chkin_ 14 2 13 124 */
625 /*:ref: q2m_ 14 2 7 7 */
626 /*:ref: chkout_ 14 2 13 124 */
627 
628 extern int cke02_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout);
629 /*:ref: return_ 12 0 */
630 /*:ref: chkin_ 14 2 13 124 */
631 /*:ref: vequg_ 14 3 7 4 7 */
632 /*:ref: vequ_ 14 2 7 7 */
633 /*:ref: vnorm_ 7 1 7 */
634 /*:ref: axisar_ 14 3 7 7 7 */
635 /*:ref: q2m_ 14 2 7 7 */
636 /*:ref: mxmt_ 14 3 7 7 7 */
637 /*:ref: chkout_ 14 2 13 124 */
638 
639 extern int cke03_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout);
640 /*:ref: return_ 12 0 */
641 /*:ref: chkin_ 14 2 13 124 */
642 /*:ref: moved_ 14 3 7 4 7 */
643 /*:ref: q2m_ 14 2 7 7 */
644 /*:ref: vequ_ 14 2 7 7 */
645 /*:ref: chkout_ 14 2 13 124 */
646 /*:ref: mtxm_ 14 3 7 7 7 */
647 /*:ref: raxisa_ 14 3 7 7 7 */
648 /*:ref: failed_ 12 0 */
649 /*:ref: axisar_ 14 3 7 7 7 */
650 /*:ref: mxmt_ 14 3 7 7 7 */
651 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
652 
653 extern int cke04_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout);
654 /*:ref: chbval_ 14 5 7 4 7 7 7 */
655 /*:ref: vhatg_ 14 3 7 4 7 */
656 /*:ref: q2m_ 14 2 7 7 */
657 
658 extern int cke05_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout);
659 /*:ref: return_ 12 0 */
660 /*:ref: chkin_ 14 2 13 124 */
661 /*:ref: setmsg_ 14 2 13 124 */
662 /*:ref: errint_ 14 3 13 4 124 */
663 /*:ref: sigerr_ 14 2 13 124 */
664 /*:ref: chkout_ 14 2 13 124 */
665 /*:ref: vminug_ 14 3 7 4 7 */
666 /*:ref: vdistg_ 7 3 7 7 4 */
667 /*:ref: moved_ 14 3 7 4 7 */
668 /*:ref: errdp_ 14 3 13 7 124 */
669 /*:ref: xpsgip_ 14 3 4 4 7 */
670 /*:ref: lgrind_ 14 7 4 7 7 7 7 7 7 */
671 /*:ref: vnormg_ 7 2 7 4 */
672 /*:ref: vsclg_ 14 4 7 7 4 7 */
673 /*:ref: vdotg_ 7 3 7 7 4 */
674 /*:ref: vsubg_ 14 4 7 7 4 7 */
675 /*:ref: qdq2av_ 14 3 7 7 7 */
676 /*:ref: vsclip_ 14 2 7 7 */
677 /*:ref: lgrint_ 7 5 4 7 7 7 7 */
678 /*:ref: vhatg_ 14 3 7 4 7 */
679 /*:ref: vequ_ 14 2 7 7 */
680 /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */
681 /*:ref: q2m_ 14 2 7 7 */
682 
683 extern int cke06_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout);
684 /*:ref: return_ 12 0 */
685 /*:ref: chkin_ 14 2 13 124 */
686 /*:ref: cke05_ 14 5 12 7 7 7 7 */
687 /*:ref: chkout_ 14 2 13 124 */
688 
689 extern int ckfrot_(integer *inst, doublereal *et, doublereal *rotate, integer *ref, logical *found);
690 /*:ref: return_ 12 0 */
691 /*:ref: chkin_ 14 2 13 124 */
692 /*:ref: ckhave_ 14 1 12 */
693 /*:ref: ckmeta_ 14 4 4 13 4 124 */
694 /*:ref: chkout_ 14 2 13 124 */
695 /*:ref: zzsclk_ 12 2 4 4 */
696 /*:ref: sce2c_ 14 3 4 7 7 */
697 /*:ref: ckbss_ 14 4 4 7 7 12 */
698 /*:ref: cksns_ 14 5 4 7 13 12 124 */
699 /*:ref: failed_ 12 0 */
700 /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */
701 /*:ref: dafus_ 14 5 7 4 4 7 4 */
702 /*:ref: xpose_ 14 2 7 7 */
703 
704 extern int ckfxfm_(integer *inst, doublereal *et, doublereal *xform, integer *ref, logical *found);
705 /*:ref: return_ 12 0 */
706 /*:ref: chkin_ 14 2 13 124 */
707 /*:ref: ckmeta_ 14 4 4 13 4 124 */
708 /*:ref: ckhave_ 14 1 12 */
709 /*:ref: chkout_ 14 2 13 124 */
710 /*:ref: zzsclk_ 12 2 4 4 */
711 /*:ref: sce2c_ 14 3 4 7 7 */
712 /*:ref: ckbss_ 14 4 4 7 7 12 */
713 /*:ref: cksns_ 14 5 4 7 13 12 124 */
714 /*:ref: failed_ 12 0 */
715 /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */
716 /*:ref: dafus_ 14 5 7 4 4 7 4 */
717 /*:ref: rav2xf_ 14 3 7 7 7 */
718 /*:ref: invstm_ 14 2 7 7 */
719 
720 extern int ckgp_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *clkout, logical *found, ftnlen ref_len);
721 /*:ref: return_ 12 0 */
722 /*:ref: chkin_ 14 2 13 124 */
723 /*:ref: zzctruin_ 14 1 4 */
724 /*:ref: chkout_ 14 2 13 124 */
725 /*:ref: ckbss_ 14 4 4 7 7 12 */
726 /*:ref: cksns_ 14 5 4 7 13 12 124 */
727 /*:ref: failed_ 12 0 */
728 /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */
729 /*:ref: dafus_ 14 5 7 4 4 7 4 */
730 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
731 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
732 /*:ref: ckmeta_ 14 4 4 13 4 124 */
733 /*:ref: sct2e_ 14 3 4 7 7 */
734 /*:ref: refchg_ 14 4 4 4 7 7 */
735 /*:ref: mxm_ 14 3 7 7 7 */
736 /*:ref: moved_ 14 3 7 4 7 */
737 
738 extern int ckgpav_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found, ftnlen ref_len);
739 /*:ref: return_ 12 0 */
740 /*:ref: chkin_ 14 2 13 124 */
741 /*:ref: zzctruin_ 14 1 4 */
742 /*:ref: chkout_ 14 2 13 124 */
743 /*:ref: ckbss_ 14 4 4 7 7 12 */
744 /*:ref: cksns_ 14 5 4 7 13 12 124 */
745 /*:ref: failed_ 12 0 */
746 /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */
747 /*:ref: dafus_ 14 5 7 4 4 7 4 */
748 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
749 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
750 /*:ref: ckmeta_ 14 4 4 13 4 124 */
751 /*:ref: sct2e_ 14 3 4 7 7 */
752 /*:ref: frmchg_ 14 4 4 4 7 7 */
753 /*:ref: xf2rav_ 14 3 7 7 7 */
754 /*:ref: mxm_ 14 3 7 7 7 */
755 /*:ref: moved_ 14 3 7 4 7 */
756 /*:ref: mtxv_ 14 3 7 7 7 */
757 /*:ref: vadd_ 14 3 7 7 7 */
758 
759 extern int ckgr01_(integer *handle, doublereal *descr, integer *recno, doublereal *record);
760 /*:ref: return_ 12 0 */
761 /*:ref: chkin_ 14 2 13 124 */
762 /*:ref: dafus_ 14 5 7 4 4 7 4 */
763 /*:ref: setmsg_ 14 2 13 124 */
764 /*:ref: errint_ 14 3 13 4 124 */
765 /*:ref: sigerr_ 14 2 13 124 */
766 /*:ref: chkout_ 14 2 13 124 */
767 /*:ref: dafgda_ 14 4 4 4 4 7 */
768 
769 extern int ckgr02_(integer *handle, doublereal *descr, integer *recno, doublereal *record);
770 /*:ref: return_ 12 0 */
771 /*:ref: chkin_ 14 2 13 124 */
772 /*:ref: dafus_ 14 5 7 4 4 7 4 */
773 /*:ref: setmsg_ 14 2 13 124 */
774 /*:ref: errint_ 14 3 13 4 124 */
775 /*:ref: sigerr_ 14 2 13 124 */
776 /*:ref: chkout_ 14 2 13 124 */
777 /*:ref: cknr02_ 14 3 4 7 4 */
778 /*:ref: dafgda_ 14 4 4 4 4 7 */
779 /*:ref: moved_ 14 3 7 4 7 */
780 
781 extern int ckgr03_(integer *handle, doublereal *descr, integer *recno, doublereal *record);
782 /*:ref: return_ 12 0 */
783 /*:ref: chkin_ 14 2 13 124 */
784 /*:ref: dafus_ 14 5 7 4 4 7 4 */
785 /*:ref: setmsg_ 14 2 13 124 */
786 /*:ref: errint_ 14 3 13 4 124 */
787 /*:ref: sigerr_ 14 2 13 124 */
788 /*:ref: chkout_ 14 2 13 124 */
789 /*:ref: dafgda_ 14 4 4 4 4 7 */
790 
791 extern int ckgr04_(integer *handle, doublereal *descr, integer *recno, doublereal *record);
792 /*:ref: return_ 12 0 */
793 /*:ref: chkin_ 14 2 13 124 */
794 /*:ref: dafus_ 14 5 7 4 4 7 4 */
795 /*:ref: setmsg_ 14 2 13 124 */
796 /*:ref: errint_ 14 3 13 4 124 */
797 /*:ref: sigerr_ 14 2 13 124 */
798 /*:ref: chkout_ 14 2 13 124 */
799 /*:ref: cknr04_ 14 3 4 7 4 */
800 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
801 /*:ref: zzck4d2i_ 14 4 7 4 7 4 */
802 
803 extern int ckgr05_(integer *handle, doublereal *descr, integer *recno, doublereal *record);
804 /*:ref: return_ 12 0 */
805 /*:ref: chkin_ 14 2 13 124 */
806 /*:ref: dafus_ 14 5 7 4 4 7 4 */
807 /*:ref: setmsg_ 14 2 13 124 */
808 /*:ref: errint_ 14 3 13 4 124 */
809 /*:ref: sigerr_ 14 2 13 124 */
810 /*:ref: chkout_ 14 2 13 124 */
811 /*:ref: dafgda_ 14 4 4 4 4 7 */
812 
813 extern int ckgr06_(integer *handle, doublereal *descr, integer *msno, integer *recno, doublereal *record);
814 /*:ref: return_ 12 0 */
815 /*:ref: chkin_ 14 2 13 124 */
816 /*:ref: dafus_ 14 5 7 4 4 7 4 */
817 /*:ref: setmsg_ 14 2 13 124 */
818 /*:ref: errint_ 14 3 13 4 124 */
819 /*:ref: sigerr_ 14 2 13 124 */
820 /*:ref: chkout_ 14 2 13 124 */
821 /*:ref: dafgda_ 14 4 4 4 4 7 */
822 /*:ref: failed_ 12 0 */
823 
824 extern int ckmeta_(integer *ckid, char *meta, integer *idcode, ftnlen meta_len);
825 /*:ref: return_ 12 0 */
826 /*:ref: chkin_ 14 2 13 124 */
827 /*:ref: zzctruin_ 14 1 4 */
828 /*:ref: clearc_ 14 3 4 13 124 */
829 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
830 /*:ref: bschoi_ 4 4 4 4 4 4 */
831 /*:ref: zzcvpool_ 14 4 13 4 12 124 */
832 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
833 /*:ref: failed_ 12 0 */
834 /*:ref: chkout_ 14 2 13 124 */
835 /*:ref: cvpool_ 14 3 13 12 124 */
836 /*:ref: dwpool_ 14 2 13 124 */
837 /*:ref: orderi_ 14 3 4 4 4 */
838 /*:ref: intstr_ 14 3 4 13 124 */
839 /*:ref: prefix_ 14 5 13 4 13 124 124 */
840 /*:ref: suffix_ 14 5 13 4 13 124 124 */
841 /*:ref: swpool_ 14 5 13 4 13 124 124 */
842 /*:ref: setmsg_ 14 2 13 124 */
843 /*:ref: errch_ 14 4 13 13 124 124 */
844 /*:ref: sigerr_ 14 2 13 124 */
845 
846 extern int ckmp06_(integer *handle, doublereal *descr, integer *msno, doublereal *rate, integer *subtyp, integer *winsiz, integer *nrec, doublereal *ivlbds, doublereal *lstepc);
847 /*:ref: return_ 12 0 */
848 /*:ref: chkin_ 14 2 13 124 */
849 /*:ref: dafus_ 14 5 7 4 4 7 4 */
850 /*:ref: setmsg_ 14 2 13 124 */
851 /*:ref: errint_ 14 3 13 4 124 */
852 /*:ref: sigerr_ 14 2 13 124 */
853 /*:ref: chkout_ 14 2 13 124 */
854 /*:ref: dafgda_ 14 4 4 4 4 7 */
855 /*:ref: failed_ 12 0 */
856 
857 extern int cknm06_(integer *handle, doublereal *descr, integer *nmini);
858 /*:ref: return_ 12 0 */
859 /*:ref: chkin_ 14 2 13 124 */
860 /*:ref: dafus_ 14 5 7 4 4 7 4 */
861 /*:ref: setmsg_ 14 2 13 124 */
862 /*:ref: errint_ 14 3 13 4 124 */
863 /*:ref: sigerr_ 14 2 13 124 */
864 /*:ref: chkout_ 14 2 13 124 */
865 /*:ref: dafgda_ 14 4 4 4 4 7 */
866 /*:ref: failed_ 12 0 */
867 
868 extern int cknr01_(integer *handle, doublereal *descr, integer *nrec);
869 /*:ref: return_ 12 0 */
870 /*:ref: chkin_ 14 2 13 124 */
871 /*:ref: dafus_ 14 5 7 4 4 7 4 */
872 /*:ref: setmsg_ 14 2 13 124 */
873 /*:ref: errint_ 14 3 13 4 124 */
874 /*:ref: sigerr_ 14 2 13 124 */
875 /*:ref: chkout_ 14 2 13 124 */
876 /*:ref: dafgda_ 14 4 4 4 4 7 */
877 
878 extern int cknr02_(integer *handle, doublereal *descr, integer *nrec);
879 /*:ref: return_ 12 0 */
880 /*:ref: chkin_ 14 2 13 124 */
881 /*:ref: dafus_ 14 5 7 4 4 7 4 */
882 /*:ref: setmsg_ 14 2 13 124 */
883 /*:ref: errint_ 14 3 13 4 124 */
884 /*:ref: sigerr_ 14 2 13 124 */
885 /*:ref: chkout_ 14 2 13 124 */
886 
887 extern int cknr03_(integer *handle, doublereal *descr, integer *nrec);
888 /*:ref: return_ 12 0 */
889 /*:ref: chkin_ 14 2 13 124 */
890 /*:ref: dafus_ 14 5 7 4 4 7 4 */
891 /*:ref: setmsg_ 14 2 13 124 */
892 /*:ref: errint_ 14 3 13 4 124 */
893 /*:ref: sigerr_ 14 2 13 124 */
894 /*:ref: chkout_ 14 2 13 124 */
895 /*:ref: dafgda_ 14 4 4 4 4 7 */
896 
897 extern int cknr04_(integer *handle, doublereal *descr, integer *nrec);
898 /*:ref: return_ 12 0 */
899 /*:ref: chkin_ 14 2 13 124 */
900 /*:ref: dafus_ 14 5 7 4 4 7 4 */
901 /*:ref: setmsg_ 14 2 13 124 */
902 /*:ref: errint_ 14 3 13 4 124 */
903 /*:ref: sigerr_ 14 2 13 124 */
904 /*:ref: chkout_ 14 2 13 124 */
905 /*:ref: sgmeta_ 14 4 4 7 4 4 */
906 
907 extern int cknr05_(integer *handle, doublereal *descr, integer *nrec);
908 /*:ref: return_ 12 0 */
909 /*:ref: chkin_ 14 2 13 124 */
910 /*:ref: dafus_ 14 5 7 4 4 7 4 */
911 /*:ref: setmsg_ 14 2 13 124 */
912 /*:ref: errint_ 14 3 13 4 124 */
913 /*:ref: sigerr_ 14 2 13 124 */
914 /*:ref: chkout_ 14 2 13 124 */
915 /*:ref: dafgda_ 14 4 4 4 4 7 */
916 
917 extern int ckobj_(char *ck, integer *ids, ftnlen ck_len);
918 /*:ref: return_ 12 0 */
919 /*:ref: chkin_ 14 2 13 124 */
920 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
921 /*:ref: setmsg_ 14 2 13 124 */
922 /*:ref: errch_ 14 4 13 13 124 124 */
923 /*:ref: sigerr_ 14 2 13 124 */
924 /*:ref: chkout_ 14 2 13 124 */
925 /*:ref: dafopr_ 14 3 13 4 124 */
926 /*:ref: failed_ 12 0 */
927 /*:ref: dafbfs_ 14 1 4 */
928 /*:ref: daffna_ 14 1 12 */
929 /*:ref: dafgs_ 14 1 7 */
930 /*:ref: dafus_ 14 5 7 4 4 7 4 */
931 /*:ref: insrti_ 14 2 4 4 */
932 /*:ref: dafcls_ 14 1 4 */
933 
934 extern int ckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len);
935 /*:ref: return_ 12 0 */
936 /*:ref: chkin_ 14 2 13 124 */
937 /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */
938 /*:ref: failed_ 12 0 */
939 /*:ref: chkout_ 14 2 13 124 */
940 
941 extern int ckpfs_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found);
942 /*:ref: return_ 12 0 */
943 /*:ref: chkin_ 14 2 13 124 */
944 /*:ref: dafus_ 14 5 7 4 4 7 4 */
945 /*:ref: ckr01_ 14 7 4 7 7 7 12 7 12 */
946 /*:ref: cke01_ 14 5 12 7 7 7 7 */
947 /*:ref: ckr02_ 14 6 4 7 7 7 7 12 */
948 /*:ref: cke02_ 14 5 12 7 7 7 7 */
949 /*:ref: ckr03_ 14 7 4 7 7 7 12 7 12 */
950 /*:ref: cke03_ 14 5 12 7 7 7 7 */
951 /*:ref: ckr04_ 14 7 4 7 7 7 12 7 12 */
952 /*:ref: cke04_ 14 5 12 7 7 7 7 */
953 /*:ref: ckr05_ 14 7 4 7 7 7 12 7 12 */
954 /*:ref: cke05_ 14 5 12 7 7 7 7 */
955 /*:ref: ckr06_ 14 7 4 7 7 7 12 7 12 */
956 /*:ref: cke06_ 14 5 12 7 7 7 7 */
957 /*:ref: setmsg_ 14 2 13 124 */
958 /*:ref: errint_ 14 3 13 4 124 */
959 /*:ref: sigerr_ 14 2 13 124 */
960 /*:ref: failed_ 12 0 */
961 /*:ref: chkout_ 14 2 13 124 */
962 
963 extern int ckr01_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found);
964 /*:ref: return_ 12 0 */
965 /*:ref: chkin_ 14 2 13 124 */
966 /*:ref: dafus_ 14 5 7 4 4 7 4 */
967 /*:ref: setmsg_ 14 2 13 124 */
968 /*:ref: errint_ 14 3 13 4 124 */
969 /*:ref: sigerr_ 14 2 13 124 */
970 /*:ref: chkout_ 14 2 13 124 */
971 /*:ref: dafgda_ 14 4 4 4 4 7 */
972 /*:ref: lstled_ 4 3 7 4 7 */
973 /*:ref: lstcld_ 4 3 7 4 7 */
974 
975 extern int ckr02_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, doublereal *record, logical *found);
976 /*:ref: return_ 12 0 */
977 /*:ref: chkin_ 14 2 13 124 */
978 /*:ref: dafus_ 14 5 7 4 4 7 4 */
979 /*:ref: setmsg_ 14 2 13 124 */
980 /*:ref: errint_ 14 3 13 4 124 */
981 /*:ref: sigerr_ 14 2 13 124 */
982 /*:ref: chkout_ 14 2 13 124 */
983 /*:ref: dafgda_ 14 4 4 4 4 7 */
984 /*:ref: lstled_ 4 3 7 4 7 */
985 /*:ref: vequg_ 14 3 7 4 7 */
986 
987 extern int ckr03_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found);
988 /*:ref: return_ 12 0 */
989 /*:ref: chkin_ 14 2 13 124 */
990 /*:ref: dafus_ 14 5 7 4 4 7 4 */
991 /*:ref: setmsg_ 14 2 13 124 */
992 /*:ref: errint_ 14 3 13 4 124 */
993 /*:ref: sigerr_ 14 2 13 124 */
994 /*:ref: chkout_ 14 2 13 124 */
995 /*:ref: dafgda_ 14 4 4 4 4 7 */
996 /*:ref: failed_ 12 0 */
997 /*:ref: lstltd_ 4 3 7 4 7 */
998 /*:ref: lstled_ 4 3 7 4 7 */
999 /*:ref: moved_ 14 3 7 4 7 */
1000 /*:ref: dpmax_ 7 0 */
1001 
1002 extern int ckr04_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found);
1003 /*:ref: return_ 12 0 */
1004 /*:ref: chkin_ 14 2 13 124 */
1005 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1006 /*:ref: setmsg_ 14 2 13 124 */
1007 /*:ref: errint_ 14 3 13 4 124 */
1008 /*:ref: sigerr_ 14 2 13 124 */
1009 /*:ref: chkout_ 14 2 13 124 */
1010 /*:ref: cknr04_ 14 3 4 7 4 */
1011 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
1012 /*:ref: failed_ 12 0 */
1013 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
1014 /*:ref: zzck4d2i_ 14 4 7 4 7 4 */
1015 
1016 extern int ckr05_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found);
1017 /*:ref: return_ 12 0 */
1018 /*:ref: chkin_ 14 2 13 124 */
1019 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1020 /*:ref: setmsg_ 14 2 13 124 */
1021 /*:ref: errint_ 14 3 13 4 124 */
1022 /*:ref: sigerr_ 14 2 13 124 */
1023 /*:ref: chkout_ 14 2 13 124 */
1024 /*:ref: errdp_ 14 3 13 7 124 */
1025 /*:ref: brcktd_ 7 3 7 7 7 */
1026 /*:ref: dafgda_ 14 4 4 4 4 7 */
1027 /*:ref: failed_ 12 0 */
1028 /*:ref: odd_ 12 1 4 */
1029 /*:ref: lstltd_ 4 3 7 4 7 */
1030 /*:ref: lstled_ 4 3 7 4 7 */
1031 /*:ref: dpmax_ 7 0 */
1032 /*:ref: moved_ 14 3 7 4 7 */
1033 
1034 extern int ckr06_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found);
1035 /*:ref: return_ 12 0 */
1036 /*:ref: chkin_ 14 2 13 124 */
1037 /*:ref: setmsg_ 14 2 13 124 */
1038 /*:ref: errint_ 14 3 13 4 124 */
1039 /*:ref: sigerr_ 14 2 13 124 */
1040 /*:ref: touchl_ 12 1 12 */
1041 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1042 /*:ref: chkout_ 14 2 13 124 */
1043 /*:ref: errdp_ 14 3 13 7 124 */
1044 /*:ref: brcktd_ 7 3 7 7 7 */
1045 /*:ref: dafgda_ 14 4 4 4 4 7 */
1046 /*:ref: failed_ 12 0 */
1047 /*:ref: lstled_ 4 3 7 4 7 */
1048 /*:ref: lstltd_ 4 3 7 4 7 */
1049 /*:ref: odd_ 12 1 4 */
1050 
1051 extern int ckw01_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, ftnlen ref_len, ftnlen segid_len);
1052 /*:ref: return_ 12 0 */
1053 /*:ref: chkin_ 14 2 13 124 */
1054 /*:ref: setmsg_ 14 2 13 124 */
1055 /*:ref: errint_ 14 3 13 4 124 */
1056 /*:ref: sigerr_ 14 2 13 124 */
1057 /*:ref: chkout_ 14 2 13 124 */
1058 /*:ref: errdp_ 14 3 13 7 124 */
1059 /*:ref: namfrm_ 14 3 13 4 124 */
1060 /*:ref: errch_ 14 4 13 13 124 124 */
1061 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1062 /*:ref: lastnb_ 4 2 13 124 */
1063 /*:ref: vzerog_ 12 2 7 4 */
1064 /*:ref: dafbna_ 14 4 4 7 13 124 */
1065 /*:ref: failed_ 12 0 */
1066 /*:ref: dafada_ 14 2 7 4 */
1067 /*:ref: dafena_ 14 0 */
1068 
1069 extern int ckw02_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, char *segid, integer *nrec, doublereal *start, doublereal *stop, doublereal *quats, doublereal *avvs, doublereal *rates, ftnlen ref_len, ftnlen segid_len);
1070 /*:ref: return_ 12 0 */
1071 /*:ref: chkin_ 14 2 13 124 */
1072 /*:ref: setmsg_ 14 2 13 124 */
1073 /*:ref: errint_ 14 3 13 4 124 */
1074 /*:ref: sigerr_ 14 2 13 124 */
1075 /*:ref: chkout_ 14 2 13 124 */
1076 /*:ref: errdp_ 14 3 13 7 124 */
1077 /*:ref: namfrm_ 14 3 13 4 124 */
1078 /*:ref: errch_ 14 4 13 13 124 124 */
1079 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1080 /*:ref: lastnb_ 4 2 13 124 */
1081 /*:ref: vzerog_ 12 2 7 4 */
1082 /*:ref: dafbna_ 14 4 4 7 13 124 */
1083 /*:ref: failed_ 12 0 */
1084 /*:ref: dafada_ 14 2 7 4 */
1085 /*:ref: dafena_ 14 0 */
1086 
1087 extern int ckw03_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len);
1088 /*:ref: return_ 12 0 */
1089 /*:ref: chkin_ 14 2 13 124 */
1090 /*:ref: setmsg_ 14 2 13 124 */
1091 /*:ref: errint_ 14 3 13 4 124 */
1092 /*:ref: sigerr_ 14 2 13 124 */
1093 /*:ref: chkout_ 14 2 13 124 */
1094 /*:ref: errdp_ 14 3 13 7 124 */
1095 /*:ref: namfrm_ 14 3 13 4 124 */
1096 /*:ref: errch_ 14 4 13 13 124 124 */
1097 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1098 /*:ref: lastnb_ 4 2 13 124 */
1099 /*:ref: vzerog_ 12 2 7 4 */
1100 /*:ref: dafbna_ 14 4 4 7 13 124 */
1101 /*:ref: failed_ 12 0 */
1102 /*:ref: dafada_ 14 2 7 4 */
1103 /*:ref: dafena_ 14 0 */
1104 
1105 extern int ckw04a_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, doublereal *sclkdp);
1106 /*:ref: return_ 12 0 */
1107 /*:ref: chkin_ 14 2 13 124 */
1108 /*:ref: setmsg_ 14 2 13 124 */
1109 /*:ref: errint_ 14 3 13 4 124 */
1110 /*:ref: errhan_ 14 3 13 4 124 */
1111 /*:ref: sigerr_ 14 2 13 124 */
1112 /*:ref: chkout_ 14 2 13 124 */
1113 /*:ref: zzck4i2d_ 14 4 4 4 7 7 */
1114 /*:ref: sgwvpk_ 14 6 4 4 4 7 4 7 */
1115 
1116 extern int ckw04b_(integer *handle, doublereal *begtim, integer *inst, char *ref, logical *avflag, char *segid, ftnlen ref_len, ftnlen segid_len);
1117 /*:ref: return_ 12 0 */
1118 /*:ref: chkin_ 14 2 13 124 */
1119 /*:ref: namfrm_ 14 3 13 4 124 */
1120 /*:ref: setmsg_ 14 2 13 124 */
1121 /*:ref: errch_ 14 4 13 13 124 124 */
1122 /*:ref: sigerr_ 14 2 13 124 */
1123 /*:ref: chkout_ 14 2 13 124 */
1124 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1125 /*:ref: lastnb_ 4 2 13 124 */
1126 /*:ref: sgbwvs_ 14 7 4 7 13 4 7 4 124 */
1127 
1128 extern int ckw04e_(integer *handle, doublereal *endtim);
1129 /*:ref: return_ 12 0 */
1130 /*:ref: chkin_ 14 2 13 124 */
1131 /*:ref: sgwes_ 14 1 4 */
1132 /*:ref: failed_ 12 0 */
1133 /*:ref: chkout_ 14 2 13 124 */
1134 /*:ref: dafbbs_ 14 1 4 */
1135 /*:ref: daffpa_ 14 1 12 */
1136 /*:ref: setmsg_ 14 2 13 124 */
1137 /*:ref: sigerr_ 14 2 13 124 */
1138 /*:ref: dafgs_ 14 1 7 */
1139 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1140 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1141 /*:ref: dafrs_ 14 1 7 */
1142 
1143 extern int ckw05_(integer *handle, integer *subtyp, integer *degree, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *n, doublereal *sclkdp, doublereal *packts, doublereal *rate, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len);
1144 /*:ref: return_ 12 0 */
1145 /*:ref: chkin_ 14 2 13 124 */
1146 /*:ref: setmsg_ 14 2 13 124 */
1147 /*:ref: errint_ 14 3 13 4 124 */
1148 /*:ref: sigerr_ 14 2 13 124 */
1149 /*:ref: chkout_ 14 2 13 124 */
1150 /*:ref: namfrm_ 14 3 13 4 124 */
1151 /*:ref: errch_ 14 4 13 13 124 124 */
1152 /*:ref: lastnb_ 4 2 13 124 */
1153 /*:ref: errdp_ 14 3 13 7 124 */
1154 /*:ref: bsrchd_ 4 3 7 4 7 */
1155 /*:ref: vzerog_ 12 2 7 4 */
1156 /*:ref: odd_ 12 1 4 */
1157 /*:ref: lstltd_ 4 3 7 4 7 */
1158 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1159 /*:ref: dafbna_ 14 4 4 7 13 124 */
1160 /*:ref: failed_ 12 0 */
1161 /*:ref: dafada_ 14 2 7 4 */
1162 /*:ref: dafena_ 14 0 */
1163 
1164 extern int ckw06_(integer *handle, integer *inst, char *ref, logical *avflag, doublereal *first, doublereal *last, char *segid, integer *nmini, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *rates, doublereal *sclkdp, doublereal *ivlbds, logical *sellst, ftnlen ref_len, ftnlen segid_len);
1165 /*:ref: return_ 12 0 */
1166 /*:ref: chkin_ 14 2 13 124 */
1167 /*:ref: setmsg_ 14 2 13 124 */
1168 /*:ref: errint_ 14 3 13 4 124 */
1169 /*:ref: sigerr_ 14 2 13 124 */
1170 /*:ref: chkout_ 14 2 13 124 */
1171 /*:ref: errdp_ 14 3 13 7 124 */
1172 /*:ref: namfrm_ 14 3 13 4 124 */
1173 /*:ref: errch_ 14 4 13 13 124 124 */
1174 /*:ref: lastnb_ 4 2 13 124 */
1175 /*:ref: odd_ 12 1 4 */
1176 /*:ref: vzerog_ 12 2 7 4 */
1177 /*:ref: even_ 12 1 4 */
1178 /*:ref: moved_ 14 3 7 4 7 */
1179 /*:ref: vminug_ 14 3 7 4 7 */
1180 /*:ref: vdistg_ 7 3 7 7 4 */
1181 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1182 /*:ref: dafbna_ 14 4 4 7 13 124 */
1183 /*:ref: failed_ 12 0 */
1184 /*:ref: dafada_ 14 2 7 4 */
1185 /*:ref: dafena_ 14 0 */
1186 
1187 extern int clearc_(integer *ndim, char *array, ftnlen array_len);
1188 
1189 extern int cleard_(integer *ndim, doublereal *array);
1190 
1191 extern int cleari_(integer *ndim, integer *array);
1192 
1193 extern doublereal clight_(void);
1194 
1195 extern int cmprss_(char *delim, integer *n, char *input, char *output, ftnlen delim_len, ftnlen input_len, ftnlen output_len);
1196 
1197 extern int conics_(doublereal *elts, doublereal *et, doublereal *state);
1198 /*:ref: return_ 12 0 */
1199 /*:ref: chkin_ 14 2 13 124 */
1200 /*:ref: setmsg_ 14 2 13 124 */
1201 /*:ref: errdp_ 14 3 13 7 124 */
1202 /*:ref: sigerr_ 14 2 13 124 */
1203 /*:ref: chkout_ 14 2 13 124 */
1204 /*:ref: vscl_ 14 3 7 7 7 */
1205 /*:ref: twopi_ 7 0 */
1206 /*:ref: prop2b_ 14 4 7 7 7 7 */
1207 
1208 extern int convrt_(doublereal *x, char *in, char *out, doublereal *y, ftnlen in_len, ftnlen out_len);
1209 /*:ref: return_ 12 0 */
1210 /*:ref: chkin_ 14 2 13 124 */
1211 /*:ref: dpr_ 7 0 */
1212 /*:ref: ucase_ 14 4 13 13 124 124 */
1213 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
1214 /*:ref: setmsg_ 14 2 13 124 */
1215 /*:ref: sigerr_ 14 2 13 124 */
1216 /*:ref: chkout_ 14 2 13 124 */
1217 
1218 extern int copyc_(char *cell, char *copy, ftnlen cell_len, ftnlen copy_len);
1219 /*:ref: return_ 12 0 */
1220 /*:ref: chkin_ 14 2 13 124 */
1221 /*:ref: cardc_ 4 2 13 124 */
1222 /*:ref: sizec_ 4 2 13 124 */
1223 /*:ref: lastpc_ 4 2 13 124 */
1224 /*:ref: scardc_ 14 3 4 13 124 */
1225 /*:ref: excess_ 14 3 4 13 124 */
1226 /*:ref: sigerr_ 14 2 13 124 */
1227 /*:ref: chkout_ 14 2 13 124 */
1228 /*:ref: setmsg_ 14 2 13 124 */
1229 /*:ref: errint_ 14 3 13 4 124 */
1230 
1231 extern int copyd_(doublereal *cell, doublereal *copy);
1232 /*:ref: return_ 12 0 */
1233 /*:ref: chkin_ 14 2 13 124 */
1234 /*:ref: cardd_ 4 1 7 */
1235 /*:ref: sized_ 4 1 7 */
1236 /*:ref: scardd_ 14 2 4 7 */
1237 /*:ref: excess_ 14 3 4 13 124 */
1238 /*:ref: sigerr_ 14 2 13 124 */
1239 /*:ref: chkout_ 14 2 13 124 */
1240 
1241 extern int copyi_(integer *cell, integer *copy);
1242 /*:ref: return_ 12 0 */
1243 /*:ref: chkin_ 14 2 13 124 */
1244 /*:ref: cardi_ 4 1 4 */
1245 /*:ref: sizei_ 4 1 4 */
1246 /*:ref: scardi_ 14 2 4 4 */
1247 /*:ref: excess_ 14 3 4 13 124 */
1248 /*:ref: sigerr_ 14 2 13 124 */
1249 /*:ref: chkout_ 14 2 13 124 */
1250 
1251 extern integer countc_(integer *unit, integer *bline, integer *eline, char *line, ftnlen line_len);
1252 /*:ref: return_ 12 0 */
1253 /*:ref: chkin_ 14 2 13 124 */
1254 /*:ref: setmsg_ 14 2 13 124 */
1255 /*:ref: errint_ 14 3 13 4 124 */
1256 /*:ref: sigerr_ 14 2 13 124 */
1257 /*:ref: chkout_ 14 2 13 124 */
1258 /*:ref: errfnm_ 14 3 13 4 124 */
1259 /*:ref: lastnb_ 4 2 13 124 */
1260 /*:ref: astrip_ 14 8 13 13 13 13 124 124 124 124 */
1261 
1262 extern integer cpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len);
1263 
1264 extern integer cposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len);
1265 
1266 extern int cyacip_(integer *nelt, char *dir, integer *ncycle, char *array, ftnlen dir_len, ftnlen array_len);
1267 /*:ref: return_ 12 0 */
1268 /*:ref: chkin_ 14 2 13 124 */
1269 /*:ref: chkout_ 14 2 13 124 */
1270 /*:ref: setmsg_ 14 2 13 124 */
1271 /*:ref: errch_ 14 4 13 13 124 124 */
1272 /*:ref: sigerr_ 14 2 13 124 */
1273 /*:ref: nbwid_ 4 3 13 4 124 */
1274 /*:ref: gcd_ 4 2 4 4 */
1275 
1276 extern int cyadip_(integer *nelt, char *dir, integer *ncycle, doublereal *array, ftnlen dir_len);
1277 /*:ref: return_ 12 0 */
1278 /*:ref: chkin_ 14 2 13 124 */
1279 /*:ref: chkout_ 14 2 13 124 */
1280 /*:ref: setmsg_ 14 2 13 124 */
1281 /*:ref: errch_ 14 4 13 13 124 124 */
1282 /*:ref: sigerr_ 14 2 13 124 */
1283 /*:ref: gcd_ 4 2 4 4 */
1284 
1285 extern int cyaiip_(integer *nelt, char *dir, integer *ncycle, integer *array, ftnlen dir_len);
1286 /*:ref: return_ 12 0 */
1287 /*:ref: chkin_ 14 2 13 124 */
1288 /*:ref: chkout_ 14 2 13 124 */
1289 /*:ref: setmsg_ 14 2 13 124 */
1290 /*:ref: errch_ 14 4 13 13 124 124 */
1291 /*:ref: sigerr_ 14 2 13 124 */
1292 /*:ref: gcd_ 4 2 4 4 */
1293 
1294 extern int cyclac_(char *array, integer *nelt, char *dir, integer *ncycle, char *out, ftnlen array_len, ftnlen dir_len, ftnlen out_len);
1295 /*:ref: return_ 12 0 */
1296 /*:ref: chkin_ 14 2 13 124 */
1297 /*:ref: chkout_ 14 2 13 124 */
1298 /*:ref: setmsg_ 14 2 13 124 */
1299 /*:ref: errch_ 14 4 13 13 124 124 */
1300 /*:ref: sigerr_ 14 2 13 124 */
1301 /*:ref: movec_ 14 5 13 4 13 124 124 */
1302 /*:ref: nbwid_ 4 3 13 4 124 */
1303 /*:ref: gcd_ 4 2 4 4 */
1304 
1305 extern int cyclad_(doublereal *array, integer *nelt, char *dir, integer *ncycle, doublereal *out, ftnlen dir_len);
1306 /*:ref: return_ 12 0 */
1307 /*:ref: chkin_ 14 2 13 124 */
1308 /*:ref: chkout_ 14 2 13 124 */
1309 /*:ref: setmsg_ 14 2 13 124 */
1310 /*:ref: errch_ 14 4 13 13 124 124 */
1311 /*:ref: sigerr_ 14 2 13 124 */
1312 /*:ref: moved_ 14 3 7 4 7 */
1313 /*:ref: gcd_ 4 2 4 4 */
1314 
1315 extern int cyclai_(integer *array, integer *nelt, char *dir, integer *ncycle, integer *out, ftnlen dir_len);
1316 /*:ref: return_ 12 0 */
1317 /*:ref: chkin_ 14 2 13 124 */
1318 /*:ref: chkout_ 14 2 13 124 */
1319 /*:ref: setmsg_ 14 2 13 124 */
1320 /*:ref: errch_ 14 4 13 13 124 124 */
1321 /*:ref: sigerr_ 14 2 13 124 */
1322 /*:ref: movei_ 14 3 4 4 4 */
1323 /*:ref: gcd_ 4 2 4 4 */
1324 
1325 extern int cyclec_(char *instr, char *dir, integer *ncycle, char *outstr, ftnlen instr_len, ftnlen dir_len, ftnlen outstr_len);
1326 /*:ref: return_ 12 0 */
1327 /*:ref: chkin_ 14 2 13 124 */
1328 /*:ref: setmsg_ 14 2 13 124 */
1329 /*:ref: errch_ 14 4 13 13 124 124 */
1330 /*:ref: sigerr_ 14 2 13 124 */
1331 /*:ref: chkout_ 14 2 13 124 */
1332 /*:ref: gcd_ 4 2 4 4 */
1333 
1334 extern int cyllat_(doublereal *r__, doublereal *longc, doublereal *z__, doublereal *radius, doublereal *long__, doublereal *lat);
1335 
1336 extern int cylrec_(doublereal *r__, doublereal *long__, doublereal *z__, doublereal *rectan);
1337 
1338 extern int cylsph_(doublereal *r__, doublereal *longc, doublereal *z__, doublereal *radius, doublereal *colat, doublereal *long__);
1339 
1340 extern doublereal dacosh_(doublereal *x);
1341 /*:ref: return_ 12 0 */
1342 /*:ref: chkin_ 14 2 13 124 */
1343 /*:ref: setmsg_ 14 2 13 124 */
1344 /*:ref: sigerr_ 14 2 13 124 */
1345 /*:ref: chkout_ 14 2 13 124 */
1346 
1347 extern doublereal dacosn_(doublereal *arg, doublereal *tol);
1348 /*:ref: chkin_ 14 2 13 124 */
1349 /*:ref: setmsg_ 14 2 13 124 */
1350 /*:ref: errdp_ 14 3 13 7 124 */
1351 /*:ref: sigerr_ 14 2 13 124 */
1352 /*:ref: chkout_ 14 2 13 124 */
1353 
1354 extern int dafa2b_(char *ascii, char *binary, integer *resv, ftnlen ascii_len, ftnlen binary_len);
1355 /*:ref: return_ 12 0 */
1356 /*:ref: chkin_ 14 2 13 124 */
1357 /*:ref: txtopr_ 14 3 13 4 124 */
1358 /*:ref: failed_ 12 0 */
1359 /*:ref: chkout_ 14 2 13 124 */
1360 /*:ref: daft2b_ 14 4 4 13 4 124 */
1361 
1362 extern int dafac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len);
1363 /*:ref: return_ 12 0 */
1364 /*:ref: chkin_ 14 2 13 124 */
1365 /*:ref: dafsih_ 14 3 4 13 124 */
1366 /*:ref: failed_ 12 0 */
1367 /*:ref: chkout_ 14 2 13 124 */
1368 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1369 /*:ref: setmsg_ 14 2 13 124 */
1370 /*:ref: errfnm_ 14 3 13 4 124 */
1371 /*:ref: errint_ 14 3 13 4 124 */
1372 /*:ref: sigerr_ 14 2 13 124 */
1373 /*:ref: lastnb_ 4 2 13 124 */
1374 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1375 /*:ref: cpos_ 4 5 13 13 4 124 124 */
1376 /*:ref: ncpos_ 4 5 13 13 4 124 124 */
1377 /*:ref: dafarr_ 14 2 4 4 */
1378 
1379 extern int dafah_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, integer *unit, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len);
1380 extern int dafopr_(char *fname, integer *handle, ftnlen fname_len);
1381 extern int dafopw_(char *fname, integer *handle, ftnlen fname_len);
1382 extern int dafonw_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len);
1383 extern int dafopn_(char *fname, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ifname_len);
1384 extern int dafcls_(integer *handle);
1385 extern int dafhsf_(integer *handle, integer *nd, integer *ni);
1386 extern int dafhlu_(integer *handle, integer *unit);
1387 extern int dafluh_(integer *unit, integer *handle);
1388 extern int dafhfn_(integer *handle, char *fname, ftnlen fname_len);
1389 extern int daffnh_(char *fname, integer *handle, ftnlen fname_len);
1390 extern int dafhof_(integer *fhset);
1391 extern int dafsih_(integer *handle, char *access, ftnlen access_len);
1392 /*:ref: return_ 12 0 */
1393 /*:ref: chkin_ 14 2 13 124 */
1394 /*:ref: sigerr_ 14 2 13 124 */
1395 /*:ref: chkout_ 14 2 13 124 */
1396 /*:ref: ssizei_ 14 2 4 4 */
1397 /*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */
1398 /*:ref: failed_ 12 0 */
1399 /*:ref: isrchi_ 4 3 4 4 4 */
1400 /*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */
1401 /*:ref: zzddhcls_ 14 4 4 13 12 124 */
1402 /*:ref: setmsg_ 14 2 13 124 */
1403 /*:ref: errch_ 14 4 13 13 124 124 */
1404 /*:ref: insrti_ 14 2 4 4 */
1405 /*:ref: errint_ 14 3 13 4 124 */
1406 /*:ref: ltrim_ 4 2 13 124 */
1407 /*:ref: rtrim_ 4 2 13 124 */
1408 /*:ref: cleard_ 14 2 4 7 */
1409 /*:ref: dafrwa_ 14 3 4 4 4 */
1410 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1411 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
1412 /*:ref: zzdafnfr_ 14 12 4 13 4 4 13 4 4 4 13 124 124 124 */
1413 /*:ref: removi_ 14 2 4 4 */
1414 /*:ref: zzddhluh_ 14 3 4 4 12 */
1415 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
1416 /*:ref: errfnm_ 14 3 13 4 124 */
1417 /*:ref: zzddhfnh_ 14 4 13 4 12 124 */
1418 /*:ref: copyi_ 14 2 4 4 */
1419 /*:ref: ljust_ 14 4 13 13 124 124 */
1420 /*:ref: ucase_ 14 4 13 13 124 124 */
1421 /*:ref: elemi_ 12 2 4 4 */
1422 
1423 extern int dafana_(integer *handle, doublereal *sum, char *name__, doublereal *data, integer *n, ftnlen name_len);
1424 extern int dafbna_(integer *handle, doublereal *sum, char *name__, ftnlen name_len);
1425 extern int dafada_(doublereal *data, integer *n);
1426 extern int dafena_(void);
1427 extern int dafcad_(integer *handle);
1428 /*:ref: return_ 12 0 */
1429 /*:ref: chkin_ 14 2 13 124 */
1430 /*:ref: sigerr_ 14 2 13 124 */
1431 /*:ref: chkout_ 14 2 13 124 */
1432 /*:ref: dafsih_ 14 3 4 13 124 */
1433 /*:ref: failed_ 12 0 */
1434 /*:ref: ssizei_ 14 2 4 4 */
1435 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1436 /*:ref: dafhof_ 14 1 4 */
1437 /*:ref: elemi_ 12 2 4 4 */
1438 /*:ref: setmsg_ 14 2 13 124 */
1439 /*:ref: errhan_ 14 3 13 4 124 */
1440 /*:ref: errint_ 14 3 13 4 124 */
1441 /*:ref: dafhsf_ 14 3 4 4 4 */
1442 /*:ref: moved_ 14 3 7 4 7 */
1443 /*:ref: dafhfn_ 14 3 4 13 124 */
1444 /*:ref: errch_ 14 4 13 13 124 124 */
1445 /*:ref: dafwda_ 14 4 4 4 4 7 */
1446 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1447 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1448 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */
1449 /*:ref: dafrcr_ 14 4 4 4 13 124 */
1450 /*:ref: dafwdr_ 14 3 4 4 7 */
1451 /*:ref: dafwcr_ 14 4 4 4 13 124 */
1452 /*:ref: dafarw_ 14 3 4 4 4 */
1453 /*:ref: cleard_ 14 2 4 7 */
1454 /*:ref: dafrwa_ 14 3 4 4 4 */
1455 /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */
1456 
1457 extern int dafarr_(integer *handle, integer *resv);
1458 /*:ref: return_ 12 0 */
1459 /*:ref: chkin_ 14 2 13 124 */
1460 /*:ref: chkout_ 14 2 13 124 */
1461 /*:ref: dafsih_ 14 3 4 13 124 */
1462 /*:ref: failed_ 12 0 */
1463 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1464 /*:ref: dafarw_ 14 3 4 4 4 */
1465 /*:ref: dafwdr_ 14 3 4 4 7 */
1466 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */
1467 /*:ref: dafrcr_ 14 4 4 4 13 124 */
1468 /*:ref: dafwcr_ 14 4 4 4 13 124 */
1469 /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */
1470 /*:ref: dafbfs_ 14 1 4 */
1471 /*:ref: daffna_ 14 1 12 */
1472 /*:ref: dafgs_ 14 1 7 */
1473 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1474 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1475 /*:ref: dafws_ 14 1 7 */
1476 
1477 extern int dafb2a_(char *binary, char *ascii, ftnlen binary_len, ftnlen ascii_len);
1478 /*:ref: return_ 12 0 */
1479 /*:ref: chkin_ 14 2 13 124 */
1480 /*:ref: txtopn_ 14 3 13 4 124 */
1481 /*:ref: failed_ 12 0 */
1482 /*:ref: chkout_ 14 2 13 124 */
1483 /*:ref: dafb2t_ 14 3 13 4 124 */
1484 
1485 extern int dafb2t_(char *binary, integer *text, ftnlen binary_len);
1486 /*:ref: return_ 12 0 */
1487 /*:ref: chkin_ 14 2 13 124 */
1488 /*:ref: dafopr_ 14 3 13 4 124 */
1489 /*:ref: failed_ 12 0 */
1490 /*:ref: chkout_ 14 2 13 124 */
1491 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1492 /*:ref: setmsg_ 14 2 13 124 */
1493 /*:ref: errch_ 14 4 13 13 124 124 */
1494 /*:ref: errint_ 14 3 13 4 124 */
1495 /*:ref: sigerr_ 14 2 13 124 */
1496 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1497 /*:ref: dafcls_ 14 1 4 */
1498 /*:ref: errfnm_ 14 3 13 4 124 */
1499 /*:ref: dafbfs_ 14 1 4 */
1500 /*:ref: daffna_ 14 1 12 */
1501 /*:ref: dafgs_ 14 1 7 */
1502 /*:ref: dafgn_ 14 2 13 124 */
1503 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1504 /*:ref: dafgda_ 14 4 4 4 4 7 */
1505 
1506 extern int dafbt_(char *binfil, integer *xfrlun, ftnlen binfil_len);
1507 /*:ref: return_ 12 0 */
1508 /*:ref: chkin_ 14 2 13 124 */
1509 /*:ref: dafopr_ 14 3 13 4 124 */
1510 /*:ref: failed_ 12 0 */
1511 /*:ref: chkout_ 14 2 13 124 */
1512 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1513 /*:ref: setmsg_ 14 2 13 124 */
1514 /*:ref: errfnm_ 14 3 13 4 124 */
1515 /*:ref: errint_ 14 3 13 4 124 */
1516 /*:ref: sigerr_ 14 2 13 124 */
1517 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1518 /*:ref: wrenci_ 14 3 4 4 4 */
1519 /*:ref: dafbfs_ 14 1 4 */
1520 /*:ref: daffna_ 14 1 12 */
1521 /*:ref: dafgs_ 14 1 7 */
1522 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1523 /*:ref: dafgn_ 14 2 13 124 */
1524 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
1525 /*:ref: rtrim_ 4 2 13 124 */
1526 /*:ref: wrencd_ 14 3 4 4 7 */
1527 /*:ref: dafgda_ 14 4 4 4 4 7 */
1528 /*:ref: dafcls_ 14 1 4 */
1529 
1530 extern int dafdc_(integer *handle);
1531 /*:ref: return_ 12 0 */
1532 /*:ref: chkin_ 14 2 13 124 */
1533 /*:ref: dafsih_ 14 3 4 13 124 */
1534 /*:ref: failed_ 12 0 */
1535 /*:ref: chkout_ 14 2 13 124 */
1536 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1537 /*:ref: dafrrr_ 14 2 4 4 */
1538 
1539 extern int dafec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len);
1540 /*:ref: return_ 12 0 */
1541 /*:ref: chkin_ 14 2 13 124 */
1542 /*:ref: dafsih_ 14 3 4 13 124 */
1543 /*:ref: failed_ 12 0 */
1544 /*:ref: chkout_ 14 2 13 124 */
1545 /*:ref: setmsg_ 14 2 13 124 */
1546 /*:ref: errint_ 14 3 13 4 124 */
1547 /*:ref: sigerr_ 14 2 13 124 */
1548 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1549 /*:ref: isrchi_ 4 3 4 4 4 */
1550 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1551 /*:ref: errfnm_ 14 3 13 4 124 */
1552 /*:ref: cpos_ 4 5 13 13 4 124 124 */
1553 /*:ref: ncpos_ 4 5 13 13 4 124 124 */
1554 
1555 extern int daffa_(integer *handle, doublereal *sum, char *name__, logical *found, ftnlen name_len);
1556 extern int dafbfs_(integer *handle);
1557 extern int daffna_(logical *found);
1558 extern int dafbbs_(integer *handle);
1559 extern int daffpa_(logical *found);
1560 extern int dafgs_(doublereal *sum);
1561 extern int dafgn_(char *name__, ftnlen name_len);
1562 extern int dafgh_(integer *handle);
1563 extern int dafrs_(doublereal *sum);
1564 extern int dafrn_(char *name__, ftnlen name_len);
1565 extern int dafws_(doublereal *sum);
1566 extern int dafcs_(integer *handle);
1567 /*:ref: return_ 12 0 */
1568 /*:ref: chkin_ 14 2 13 124 */
1569 /*:ref: sigerr_ 14 2 13 124 */
1570 /*:ref: chkout_ 14 2 13 124 */
1571 /*:ref: dafsih_ 14 3 4 13 124 */
1572 /*:ref: failed_ 12 0 */
1573 /*:ref: ssizei_ 14 2 4 4 */
1574 /*:ref: dafhof_ 14 1 4 */
1575 /*:ref: elemi_ 12 2 4 4 */
1576 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1577 /*:ref: dafgsr_ 14 6 4 4 4 4 7 12 */
1578 /*:ref: dafhfn_ 14 3 4 13 124 */
1579 /*:ref: setmsg_ 14 2 13 124 */
1580 /*:ref: errint_ 14 3 13 4 124 */
1581 /*:ref: errch_ 14 4 13 13 124 124 */
1582 /*:ref: dafhsf_ 14 3 4 4 4 */
1583 /*:ref: moved_ 14 3 7 4 7 */
1584 /*:ref: dafrcr_ 14 4 4 4 13 124 */
1585 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1586 /*:ref: movei_ 14 3 4 4 4 */
1587 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1588 /*:ref: dafwdr_ 14 3 4 4 7 */
1589 /*:ref: dafwcr_ 14 4 4 4 13 124 */
1590 
1591 extern int dafgda_(integer *handle, integer *begin, integer *end, doublereal *data);
1592 /*:ref: return_ 12 0 */
1593 /*:ref: chkin_ 14 2 13 124 */
1594 /*:ref: setmsg_ 14 2 13 124 */
1595 /*:ref: errint_ 14 3 13 4 124 */
1596 /*:ref: sigerr_ 14 2 13 124 */
1597 /*:ref: chkout_ 14 2 13 124 */
1598 /*:ref: dafarw_ 14 3 4 4 4 */
1599 /*:ref: dafgdr_ 14 6 4 4 4 4 7 12 */
1600 /*:ref: cleard_ 14 2 4 7 */
1601 
1602 extern int dafps_(integer *nd, integer *ni, doublereal *dc, integer *ic, doublereal *sum);
1603 extern int dafus_(doublereal *sum, integer *nd, integer *ni, doublereal *dc, integer *ic);
1604 /*:ref: moved_ 14 3 7 4 7 */
1605 /*:ref: movei_ 14 3 4 4 4 */
1606 
1607 extern int dafra_(integer *handle, integer *iorder, integer *n);
1608 /*:ref: return_ 12 0 */
1609 /*:ref: chkin_ 14 2 13 124 */
1610 /*:ref: chkout_ 14 2 13 124 */
1611 /*:ref: isordv_ 12 2 4 4 */
1612 /*:ref: setmsg_ 14 2 13 124 */
1613 /*:ref: sigerr_ 14 2 13 124 */
1614 /*:ref: dafbfs_ 14 1 4 */
1615 /*:ref: daffna_ 14 1 12 */
1616 /*:ref: failed_ 12 0 */
1617 /*:ref: errint_ 14 3 13 4 124 */
1618 /*:ref: dafgs_ 14 1 7 */
1619 /*:ref: dafgn_ 14 2 13 124 */
1620 /*:ref: dafws_ 14 1 7 */
1621 /*:ref: dafrn_ 14 2 13 124 */
1622 
1623 extern int dafrcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len);
1624 /*:ref: return_ 12 0 */
1625 /*:ref: chkin_ 14 2 13 124 */
1626 /*:ref: dafsih_ 14 3 4 13 124 */
1627 /*:ref: failed_ 12 0 */
1628 /*:ref: chkout_ 14 2 13 124 */
1629 /*:ref: setmsg_ 14 2 13 124 */
1630 /*:ref: errint_ 14 3 13 4 124 */
1631 /*:ref: sigerr_ 14 2 13 124 */
1632 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1633 
1634 extern int dafrda_(integer *handle, integer *begin, integer *end, doublereal *data);
1635 /*:ref: return_ 12 0 */
1636 /*:ref: zzddhisn_ 14 3 4 12 12 */
1637 /*:ref: chkin_ 14 2 13 124 */
1638 /*:ref: setmsg_ 14 2 13 124 */
1639 /*:ref: errhan_ 14 3 13 4 124 */
1640 /*:ref: sigerr_ 14 2 13 124 */
1641 /*:ref: chkout_ 14 2 13 124 */
1642 /*:ref: errint_ 14 3 13 4 124 */
1643 /*:ref: dafarw_ 14 3 4 4 4 */
1644 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */
1645 /*:ref: cleard_ 14 2 4 7 */
1646 
1647 extern int dafrfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len);
1648 /*:ref: return_ 12 0 */
1649 /*:ref: chkin_ 14 2 13 124 */
1650 /*:ref: dafsih_ 14 3 4 13 124 */
1651 /*:ref: failed_ 12 0 */
1652 /*:ref: chkout_ 14 2 13 124 */
1653 /*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */
1654 /*:ref: setmsg_ 14 2 13 124 */
1655 /*:ref: errint_ 14 3 13 4 124 */
1656 /*:ref: sigerr_ 14 2 13 124 */
1657 
1658 extern int dafrrr_(integer *handle, integer *resv);
1659 /*:ref: return_ 12 0 */
1660 /*:ref: chkin_ 14 2 13 124 */
1661 /*:ref: dafsih_ 14 3 4 13 124 */
1662 /*:ref: failed_ 12 0 */
1663 /*:ref: chkout_ 14 2 13 124 */
1664 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
1665 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */
1666 /*:ref: dafarw_ 14 3 4 4 4 */
1667 /*:ref: dafwdr_ 14 3 4 4 7 */
1668 /*:ref: dafrcr_ 14 4 4 4 13 124 */
1669 /*:ref: dafwcr_ 14 4 4 4 13 124 */
1670 /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */
1671 /*:ref: dafbfs_ 14 1 4 */
1672 /*:ref: daffna_ 14 1 12 */
1673 /*:ref: dafgs_ 14 1 7 */
1674 /*:ref: dafus_ 14 5 7 4 4 7 4 */
1675 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1676 /*:ref: dafws_ 14 1 7 */
1677 
1678 extern int dafrwa_(integer *recno, integer *wordno, integer *addr__);
1679 extern int dafarw_(integer *addr__, integer *recno, integer *wordno);
1680 /*:ref: return_ 12 0 */
1681 /*:ref: chkin_ 14 2 13 124 */
1682 /*:ref: setmsg_ 14 2 13 124 */
1683 /*:ref: errint_ 14 3 13 4 124 */
1684 /*:ref: sigerr_ 14 2 13 124 */
1685 /*:ref: chkout_ 14 2 13 124 */
1686 
1687 extern int dafrwd_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *drec, doublereal *data, logical *found, integer *reads, integer *reqs);
1688 extern int dafgdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found);
1689 extern int dafgsr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found);
1690 extern int dafrdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found);
1691 extern int dafwdr_(integer *handle, integer *recno, doublereal *drec);
1692 extern int dafnrr_(integer *reads, integer *reqs);
1693 /*:ref: return_ 12 0 */
1694 /*:ref: chkin_ 14 2 13 124 */
1695 /*:ref: sigerr_ 14 2 13 124 */
1696 /*:ref: chkout_ 14 2 13 124 */
1697 /*:ref: minai_ 14 4 4 4 4 4 */
1698 /*:ref: zzdafgdr_ 14 4 4 4 7 12 */
1699 /*:ref: failed_ 12 0 */
1700 /*:ref: moved_ 14 3 7 4 7 */
1701 /*:ref: zzddhrcm_ 14 3 4 4 4 */
1702 /*:ref: dafhsf_ 14 3 4 4 4 */
1703 /*:ref: zzdafgsr_ 14 6 4 4 4 4 7 12 */
1704 /*:ref: zzddhisn_ 14 3 4 12 12 */
1705 /*:ref: setmsg_ 14 2 13 124 */
1706 /*:ref: errhan_ 14 3 13 4 124 */
1707 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1708 /*:ref: errint_ 14 3 13 4 124 */
1709 
1710 extern int daft2b_(integer *text, char *binary, integer *resv, ftnlen binary_len);
1711 /*:ref: return_ 12 0 */
1712 /*:ref: chkin_ 14 2 13 124 */
1713 /*:ref: setmsg_ 14 2 13 124 */
1714 /*:ref: errfnm_ 14 3 13 4 124 */
1715 /*:ref: errint_ 14 3 13 4 124 */
1716 /*:ref: sigerr_ 14 2 13 124 */
1717 /*:ref: chkout_ 14 2 13 124 */
1718 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */
1719 /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */
1720 /*:ref: failed_ 12 0 */
1721 /*:ref: dafcls_ 14 1 4 */
1722 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1723 /*:ref: dafbna_ 14 4 4 7 13 124 */
1724 /*:ref: dafada_ 14 2 7 4 */
1725 /*:ref: errch_ 14 4 13 13 124 124 */
1726 /*:ref: dafena_ 14 0 */
1727 
1728 extern int daftb_(integer *xfrlun, char *binfil, ftnlen binfil_len);
1729 /*:ref: return_ 12 0 */
1730 /*:ref: chkin_ 14 2 13 124 */
1731 /*:ref: setmsg_ 14 2 13 124 */
1732 /*:ref: errfnm_ 14 3 13 4 124 */
1733 /*:ref: errint_ 14 3 13 4 124 */
1734 /*:ref: sigerr_ 14 2 13 124 */
1735 /*:ref: chkout_ 14 2 13 124 */
1736 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */
1737 /*:ref: rdenci_ 14 3 4 4 4 */
1738 /*:ref: failed_ 12 0 */
1739 /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */
1740 /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */
1741 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
1742 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
1743 /*:ref: errch_ 14 4 13 13 124 124 */
1744 /*:ref: rdencd_ 14 3 4 4 7 */
1745 /*:ref: dafps_ 14 5 4 4 7 4 7 */
1746 /*:ref: dafbna_ 14 4 4 7 13 124 */
1747 /*:ref: dafada_ 14 2 7 4 */
1748 /*:ref: dafena_ 14 0 */
1749 /*:ref: dafcls_ 14 1 4 */
1750 
1751 extern int dafwcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len);
1752 /*:ref: return_ 12 0 */
1753 /*:ref: chkin_ 14 2 13 124 */
1754 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1755 /*:ref: dafsih_ 14 3 4 13 124 */
1756 /*:ref: setmsg_ 14 2 13 124 */
1757 /*:ref: errint_ 14 3 13 4 124 */
1758 /*:ref: sigerr_ 14 2 13 124 */
1759 /*:ref: chkout_ 14 2 13 124 */
1760 
1761 extern int dafwda_(integer *handle, integer *begin, integer *end, doublereal *data);
1762 /*:ref: return_ 12 0 */
1763 /*:ref: chkin_ 14 2 13 124 */
1764 /*:ref: setmsg_ 14 2 13 124 */
1765 /*:ref: errint_ 14 3 13 4 124 */
1766 /*:ref: sigerr_ 14 2 13 124 */
1767 /*:ref: chkout_ 14 2 13 124 */
1768 /*:ref: dafarw_ 14 3 4 4 4 */
1769 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */
1770 /*:ref: cleard_ 14 2 4 7 */
1771 /*:ref: moved_ 14 3 7 4 7 */
1772 /*:ref: dafwdr_ 14 3 4 4 7 */
1773 
1774 extern int dafwfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len);
1775 /*:ref: return_ 12 0 */
1776 /*:ref: chkin_ 14 2 13 124 */
1777 /*:ref: dafsih_ 14 3 4 13 124 */
1778 /*:ref: failed_ 12 0 */
1779 /*:ref: chkout_ 14 2 13 124 */
1780 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1781 /*:ref: setmsg_ 14 2 13 124 */
1782 /*:ref: errfnm_ 14 3 13 4 124 */
1783 /*:ref: errint_ 14 3 13 4 124 */
1784 /*:ref: sigerr_ 14 2 13 124 */
1785 
1786 extern int dasa2l_(integer *handle, integer *type__, integer *addrss, integer *clbase, integer *clsize, integer *recno, integer *wordno);
1787 /*:ref: chkin_ 14 2 13 124 */
1788 /*:ref: setmsg_ 14 2 13 124 */
1789 /*:ref: errint_ 14 3 13 4 124 */
1790 /*:ref: errhan_ 14 3 13 4 124 */
1791 /*:ref: sigerr_ 14 2 13 124 */
1792 /*:ref: chkout_ 14 2 13 124 */
1793 /*:ref: isrchi_ 4 3 4 4 4 */
1794 /*:ref: dasham_ 14 3 4 13 124 */
1795 /*:ref: failed_ 12 0 */
1796 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
1797 /*:ref: dasrri_ 14 5 4 4 4 4 4 */
1798 
1799 extern int dasac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len);
1800 /*:ref: return_ 12 0 */
1801 /*:ref: chkin_ 14 2 13 124 */
1802 /*:ref: dassih_ 14 3 4 13 124 */
1803 /*:ref: failed_ 12 0 */
1804 /*:ref: chkout_ 14 2 13 124 */
1805 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1806 /*:ref: setmsg_ 14 2 13 124 */
1807 /*:ref: errfnm_ 14 3 13 4 124 */
1808 /*:ref: errint_ 14 3 13 4 124 */
1809 /*:ref: sigerr_ 14 2 13 124 */
1810 /*:ref: lastnb_ 4 2 13 124 */
1811 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */
1812 /*:ref: dasacr_ 14 2 4 4 */
1813 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */
1814 /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */
1815 
1816 extern int dasacr_(integer *handle, integer *n);
1817 /*:ref: return_ 12 0 */
1818 /*:ref: chkin_ 14 2 13 124 */
1819 /*:ref: dassih_ 14 3 4 13 124 */
1820 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1821 /*:ref: failed_ 12 0 */
1822 /*:ref: chkout_ 14 2 13 124 */
1823 /*:ref: setmsg_ 14 2 13 124 */
1824 /*:ref: errint_ 14 3 13 4 124 */
1825 /*:ref: sigerr_ 14 2 13 124 */
1826 /*:ref: daswbr_ 14 1 4 */
1827 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
1828 /*:ref: maxai_ 14 4 4 4 4 4 */
1829 /*:ref: cleari_ 14 2 4 4 */
1830 /*:ref: dasioi_ 14 5 13 4 4 4 124 */
1831 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */
1832 /*:ref: dasiod_ 14 5 13 4 4 7 124 */
1833 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */
1834 
1835 extern int dasacu_(integer *comlun, char *begmrk, char *endmrk, logical *insbln, integer *handle, ftnlen begmrk_len, ftnlen endmrk_len);
1836 /*:ref: return_ 12 0 */
1837 /*:ref: chkin_ 14 2 13 124 */
1838 /*:ref: dassih_ 14 3 4 13 124 */
1839 /*:ref: failed_ 12 0 */
1840 /*:ref: chkout_ 14 2 13 124 */
1841 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */
1842 /*:ref: getlun_ 14 1 4 */
1843 /*:ref: setmsg_ 14 2 13 124 */
1844 /*:ref: errint_ 14 3 13 4 124 */
1845 /*:ref: sigerr_ 14 2 13 124 */
1846 /*:ref: readln_ 14 4 4 13 12 124 */
1847 /*:ref: ljust_ 14 4 13 13 124 124 */
1848 /*:ref: errch_ 14 4 13 13 124 124 */
1849 /*:ref: errfnm_ 14 3 13 4 124 */
1850 /*:ref: readla_ 14 6 4 4 4 13 12 124 */
1851 /*:ref: lastnb_ 4 2 13 124 */
1852 /*:ref: writla_ 14 4 4 13 4 124 */
1853 /*:ref: dasac_ 14 4 4 4 13 124 */
1854 
1855 extern int dasadc_(integer *handle, integer *n, integer *bpos, integer *epos, char *data, ftnlen data_len);
1856 /*:ref: return_ 12 0 */
1857 /*:ref: chkin_ 14 2 13 124 */
1858 /*:ref: setmsg_ 14 2 13 124 */
1859 /*:ref: errint_ 14 3 13 4 124 */
1860 /*:ref: sigerr_ 14 2 13 124 */
1861 /*:ref: chkout_ 14 2 13 124 */
1862 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
1863 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
1864 /*:ref: failed_ 12 0 */
1865 /*:ref: daswrc_ 14 4 4 4 13 124 */
1866 /*:ref: dasurc_ 14 6 4 4 4 4 13 124 */
1867 /*:ref: dascud_ 14 3 4 4 4 */
1868 
1869 extern int dasadd_(integer *handle, integer *n, doublereal *data);
1870 /*:ref: return_ 12 0 */
1871 /*:ref: chkin_ 14 2 13 124 */
1872 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
1873 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
1874 /*:ref: failed_ 12 0 */
1875 /*:ref: moved_ 14 3 7 4 7 */
1876 /*:ref: daswrd_ 14 3 4 4 7 */
1877 /*:ref: dasurd_ 14 5 4 4 4 4 7 */
1878 /*:ref: dascud_ 14 3 4 4 4 */
1879 /*:ref: chkout_ 14 2 13 124 */
1880 
1881 extern int dasadi_(integer *handle, integer *n, integer *data);
1882 /*:ref: return_ 12 0 */
1883 /*:ref: chkin_ 14 2 13 124 */
1884 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
1885 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
1886 /*:ref: failed_ 12 0 */
1887 /*:ref: movei_ 14 3 4 4 4 */
1888 /*:ref: daswri_ 14 3 4 4 4 */
1889 /*:ref: dasuri_ 14 5 4 4 4 4 4 */
1890 /*:ref: dascud_ 14 3 4 4 4 */
1891 /*:ref: chkout_ 14 2 13 124 */
1892 
1893 extern int dasbt_(char *binfil, integer *xfrlun, ftnlen binfil_len);
1894 /*:ref: return_ 12 0 */
1895 /*:ref: chkin_ 14 2 13 124 */
1896 /*:ref: dasopr_ 14 3 13 4 124 */
1897 /*:ref: failed_ 12 0 */
1898 /*:ref: chkout_ 14 2 13 124 */
1899 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */
1900 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1901 /*:ref: dascls_ 14 1 4 */
1902 /*:ref: setmsg_ 14 2 13 124 */
1903 /*:ref: errint_ 14 3 13 4 124 */
1904 /*:ref: errfnm_ 14 3 13 4 124 */
1905 /*:ref: sigerr_ 14 2 13 124 */
1906 /*:ref: wrenci_ 14 3 4 4 4 */
1907 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
1908 /*:ref: rtrim_ 4 2 13 124 */
1909 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */
1910 /*:ref: wrencc_ 14 4 4 4 13 124 */
1911 /*:ref: daslla_ 14 4 4 4 4 4 */
1912 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
1913 /*:ref: dasrdd_ 14 4 4 4 4 7 */
1914 /*:ref: wrencd_ 14 3 4 4 7 */
1915 /*:ref: dasrdi_ 14 4 4 4 4 4 */
1916 
1917 extern int dascls_(integer *handle);
1918 /*:ref: return_ 12 0 */
1919 /*:ref: chkin_ 14 2 13 124 */
1920 /*:ref: ssizei_ 14 2 4 4 */
1921 /*:ref: dashof_ 14 1 4 */
1922 /*:ref: elemi_ 12 2 4 4 */
1923 /*:ref: chkout_ 14 2 13 124 */
1924 /*:ref: dasham_ 14 3 4 13 124 */
1925 /*:ref: daswbr_ 14 1 4 */
1926 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1927 /*:ref: failed_ 12 0 */
1928 /*:ref: setmsg_ 14 2 13 124 */
1929 /*:ref: errint_ 14 3 13 4 124 */
1930 /*:ref: sigerr_ 14 2 13 124 */
1931 /*:ref: dassdr_ 14 1 4 */
1932 /*:ref: dasllc_ 14 1 4 */
1933 
1934 extern int dascud_(integer *handle, integer *type__, integer *nwords);
1935 /*:ref: return_ 12 0 */
1936 /*:ref: chkin_ 14 2 13 124 */
1937 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
1938 /*:ref: setmsg_ 14 2 13 124 */
1939 /*:ref: errint_ 14 3 13 4 124 */
1940 /*:ref: sigerr_ 14 2 13 124 */
1941 /*:ref: chkout_ 14 2 13 124 */
1942 /*:ref: maxai_ 14 4 4 4 4 4 */
1943 /*:ref: dasuri_ 14 5 4 4 4 4 4 */
1944 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */
1945 /*:ref: dasrri_ 14 5 4 4 4 4 4 */
1946 /*:ref: cleari_ 14 2 4 4 */
1947 /*:ref: daswri_ 14 3 4 4 4 */
1948 
1949 extern int dasdc_(integer *handle);
1950 /*:ref: return_ 12 0 */
1951 /*:ref: chkin_ 14 2 13 124 */
1952 /*:ref: dassih_ 14 3 4 13 124 */
1953 /*:ref: failed_ 12 0 */
1954 /*:ref: chkout_ 14 2 13 124 */
1955 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */
1956 /*:ref: dasrcr_ 14 2 4 4 */
1957 /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */
1958 
1959 extern int dasec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len);
1960 /*:ref: return_ 12 0 */
1961 /*:ref: chkin_ 14 2 13 124 */
1962 /*:ref: dassih_ 14 3 4 13 124 */
1963 /*:ref: failed_ 12 0 */
1964 /*:ref: chkout_ 14 2 13 124 */
1965 /*:ref: setmsg_ 14 2 13 124 */
1966 /*:ref: errint_ 14 3 13 4 124 */
1967 /*:ref: sigerr_ 14 2 13 124 */
1968 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
1969 /*:ref: isrchi_ 4 3 4 4 4 */
1970 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */
1971 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */
1972 /*:ref: errfnm_ 14 3 13 4 124 */
1973 
1974 extern int dasecu_(integer *handle, integer *comlun, logical *comnts);
1975 /*:ref: return_ 12 0 */
1976 /*:ref: chkin_ 14 2 13 124 */
1977 /*:ref: dassih_ 14 3 4 13 124 */
1978 /*:ref: failed_ 12 0 */
1979 /*:ref: chkout_ 14 2 13 124 */
1980 /*:ref: dasec_ 14 6 4 4 4 13 12 124 */
1981 /*:ref: writla_ 14 4 4 13 4 124 */
1982 
1983 extern int dasfm_(char *fname, char *ftype, char *ifname, integer *handle, integer *unit, integer *free, integer *lastla, integer *lastrc, integer *lastwd, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len);
1984 extern int dasopr_(char *fname, integer *handle, ftnlen fname_len);
1985 extern int dasopw_(char *fname, integer *handle, ftnlen fname_len);
1986 extern int dasonw_(char *fname, char *ftype, char *ifname, integer *ncomr, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len);
1987 extern int dasopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len);
1988 extern int dasops_(integer *handle);
1989 extern int dasllc_(integer *handle);
1990 extern int dashfs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd);
1991 extern int dasufs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd);
1992 extern int dashlu_(integer *handle, integer *unit);
1993 extern int dasluh_(integer *unit, integer *handle);
1994 extern int dashfn_(integer *handle, char *fname, ftnlen fname_len);
1995 extern int dasfnh_(char *fname, integer *handle, ftnlen fname_len);
1996 extern int dashof_(integer *fhset);
1997 extern int dassih_(integer *handle, char *access, ftnlen access_len);
1998 extern int dasham_(integer *handle, char *access, ftnlen access_len);
1999 /*:ref: return_ 12 0 */
2000 /*:ref: chkin_ 14 2 13 124 */
2001 /*:ref: sigerr_ 14 2 13 124 */
2002 /*:ref: chkout_ 14 2 13 124 */
2003 /*:ref: lnkini_ 14 2 4 4 */
2004 /*:ref: ssizei_ 14 2 4 4 */
2005 /*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */
2006 /*:ref: failed_ 12 0 */
2007 /*:ref: lnknxt_ 4 2 4 4 */
2008 /*:ref: lnknfn_ 4 1 4 */
2009 /*:ref: setmsg_ 14 2 13 124 */
2010 /*:ref: errint_ 14 3 13 4 124 */
2011 /*:ref: errch_ 14 4 13 13 124 124 */
2012 /*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */
2013 /*:ref: lnkan_ 14 2 4 4 */
2014 /*:ref: lnkilb_ 14 3 4 4 4 */
2015 /*:ref: cleari_ 14 2 4 4 */
2016 /*:ref: zzdasgri_ 14 3 4 4 4 */
2017 /*:ref: maxai_ 14 4 4 4 4 4 */
2018 /*:ref: insrti_ 14 2 4 4 */
2019 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
2020 /*:ref: dasioi_ 14 5 13 4 4 4 124 */
2021 /*:ref: ltrim_ 4 2 13 124 */
2022 /*:ref: rtrim_ 4 2 13 124 */
2023 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
2024 /*:ref: zzdasnfr_ 14 11 4 13 13 4 4 4 4 13 124 124 124 */
2025 /*:ref: zzddhcls_ 14 4 4 13 12 124 */
2026 /*:ref: lnkfsl_ 14 3 4 4 4 */
2027 /*:ref: removi_ 14 2 4 4 */
2028 /*:ref: errfnm_ 14 3 13 4 124 */
2029 /*:ref: zzddhluh_ 14 3 4 4 12 */
2030 /*:ref: zzddhfnh_ 14 4 13 4 12 124 */
2031 /*:ref: copyi_ 14 2 4 4 */
2032 /*:ref: ljust_ 14 4 13 13 124 124 */
2033 /*:ref: ucase_ 14 4 13 13 124 124 */
2034 /*:ref: elemi_ 12 2 4 4 */
2035 
2036 extern doublereal dasine_(doublereal *arg, doublereal *tol);
2037 /*:ref: chkin_ 14 2 13 124 */
2038 /*:ref: setmsg_ 14 2 13 124 */
2039 /*:ref: errdp_ 14 3 13 7 124 */
2040 /*:ref: sigerr_ 14 2 13 124 */
2041 /*:ref: chkout_ 14 2 13 124 */
2042 
2043 extern int dasioc_(char *action, integer *unit, integer *recno, char *record, ftnlen action_len, ftnlen record_len);
2044 /*:ref: return_ 12 0 */
2045 /*:ref: eqstr_ 12 4 13 13 124 124 */
2046 /*:ref: chkin_ 14 2 13 124 */
2047 /*:ref: setmsg_ 14 2 13 124 */
2048 /*:ref: errfnm_ 14 3 13 4 124 */
2049 /*:ref: errint_ 14 3 13 4 124 */
2050 /*:ref: sigerr_ 14 2 13 124 */
2051 /*:ref: chkout_ 14 2 13 124 */
2052 /*:ref: errch_ 14 4 13 13 124 124 */
2053 
2054 extern int dasiod_(char *action, integer *unit, integer *recno, doublereal *record, ftnlen action_len);
2055 /*:ref: return_ 12 0 */
2056 /*:ref: eqstr_ 12 4 13 13 124 124 */
2057 /*:ref: chkin_ 14 2 13 124 */
2058 /*:ref: setmsg_ 14 2 13 124 */
2059 /*:ref: errfnm_ 14 3 13 4 124 */
2060 /*:ref: errint_ 14 3 13 4 124 */
2061 /*:ref: sigerr_ 14 2 13 124 */
2062 /*:ref: chkout_ 14 2 13 124 */
2063 /*:ref: errch_ 14 4 13 13 124 124 */
2064 
2065 extern int dasioi_(char *action, integer *unit, integer *recno, integer *record, ftnlen action_len);
2066 /*:ref: return_ 12 0 */
2067 /*:ref: eqstr_ 12 4 13 13 124 124 */
2068 /*:ref: chkin_ 14 2 13 124 */
2069 /*:ref: setmsg_ 14 2 13 124 */
2070 /*:ref: errfnm_ 14 3 13 4 124 */
2071 /*:ref: errint_ 14 3 13 4 124 */
2072 /*:ref: sigerr_ 14 2 13 124 */
2073 /*:ref: chkout_ 14 2 13 124 */
2074 /*:ref: errch_ 14 4 13 13 124 124 */
2075 
2076 extern int daslla_(integer *handle, integer *lastc, integer *lastd, integer *lasti);
2077 /*:ref: return_ 12 0 */
2078 /*:ref: chkin_ 14 2 13 124 */
2079 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
2080 /*:ref: chkout_ 14 2 13 124 */
2081 
2082 extern int dasrcr_(integer *handle, integer *n);
2083 /*:ref: return_ 12 0 */
2084 /*:ref: chkin_ 14 2 13 124 */
2085 /*:ref: dassih_ 14 3 4 13 124 */
2086 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
2087 /*:ref: failed_ 12 0 */
2088 /*:ref: chkout_ 14 2 13 124 */
2089 /*:ref: setmsg_ 14 2 13 124 */
2090 /*:ref: errint_ 14 3 13 4 124 */
2091 /*:ref: sigerr_ 14 2 13 124 */
2092 /*:ref: daswbr_ 14 1 4 */
2093 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
2094 /*:ref: maxai_ 14 4 4 4 4 4 */
2095 /*:ref: cleari_ 14 2 4 4 */
2096 /*:ref: dasioi_ 14 5 13 4 4 4 124 */
2097 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */
2098 /*:ref: dasiod_ 14 5 13 4 4 7 124 */
2099 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */
2100 
2101 extern int dasrdc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len);
2102 /*:ref: chkin_ 14 2 13 124 */
2103 /*:ref: setmsg_ 14 2 13 124 */
2104 /*:ref: errint_ 14 3 13 4 124 */
2105 /*:ref: sigerr_ 14 2 13 124 */
2106 /*:ref: chkout_ 14 2 13 124 */
2107 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
2108 /*:ref: failed_ 12 0 */
2109 /*:ref: dasrrc_ 14 6 4 4 4 4 13 124 */
2110 
2111 extern int dasrdd_(integer *handle, integer *first, integer *last, doublereal *data);
2112 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
2113 /*:ref: dasrrd_ 14 5 4 4 4 4 7 */
2114 /*:ref: failed_ 12 0 */
2115 
2116 extern int dasrdi_(integer *handle, integer *first, integer *last, integer *data);
2117 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
2118 /*:ref: dasrri_ 14 5 4 4 4 4 4 */
2119 /*:ref: failed_ 12 0 */
2120 
2121 extern int dasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len);
2122 /*:ref: return_ 12 0 */
2123 /*:ref: chkin_ 14 2 13 124 */
2124 /*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */
2125 /*:ref: failed_ 12 0 */
2126 /*:ref: chkout_ 14 2 13 124 */
2127 
2128 extern int dasrwr_(integer *handle, integer *recno, char *recc, doublereal *recd, integer *reci, integer *first, integer *last, doublereal *datad, integer *datai, char *datac, ftnlen recc_len, ftnlen datac_len);
2129 extern int dasrrd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad);
2130 extern int dasrri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai);
2131 extern int dasrrc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len);
2132 extern int daswrd_(integer *handle, integer *recno, doublereal *recd);
2133 extern int daswri_(integer *handle, integer *recno, integer *reci);
2134 extern int daswrc_(integer *handle, integer *recno, char *recc, ftnlen recc_len);
2135 extern int dasurd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad);
2136 extern int dasuri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai);
2137 extern int dasurc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len);
2138 extern int daswbr_(integer *handle);
2139 /*:ref: return_ 12 0 */
2140 /*:ref: chkin_ 14 2 13 124 */
2141 /*:ref: sigerr_ 14 2 13 124 */
2142 /*:ref: chkout_ 14 2 13 124 */
2143 /*:ref: lnkini_ 14 2 4 4 */
2144 /*:ref: setmsg_ 14 2 13 124 */
2145 /*:ref: errint_ 14 3 13 4 124 */
2146 /*:ref: errhan_ 14 3 13 4 124 */
2147 /*:ref: lnkxsl_ 14 3 4 4 4 */
2148 /*:ref: lnkilb_ 14 3 4 4 4 */
2149 /*:ref: moved_ 14 3 7 4 7 */
2150 /*:ref: lnktl_ 4 2 4 4 */
2151 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
2152 /*:ref: failed_ 12 0 */
2153 /*:ref: dasiod_ 14 5 13 4 4 7 124 */
2154 /*:ref: lnkan_ 14 2 4 4 */
2155 /*:ref: zzdasgrd_ 14 3 4 4 7 */
2156 /*:ref: movei_ 14 3 4 4 4 */
2157 /*:ref: dasioi_ 14 5 13 4 4 4 124 */
2158 /*:ref: zzdasgri_ 14 3 4 4 4 */
2159 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */
2160 /*:ref: dassih_ 14 3 4 13 124 */
2161 /*:ref: lnkfsl_ 14 3 4 4 4 */
2162 
2163 extern int dassdr_(integer *handle);
2164 /*:ref: return_ 12 0 */
2165 /*:ref: chkin_ 14 2 13 124 */
2166 /*:ref: dassih_ 14 3 4 13 124 */
2167 /*:ref: dashlu_ 14 2 4 4 */
2168 /*:ref: failed_ 12 0 */
2169 /*:ref: chkout_ 14 2 13 124 */
2170 /*:ref: daswbr_ 14 1 4 */
2171 /*:ref: dasops_ 14 1 4 */
2172 /*:ref: cleari_ 14 2 4 4 */
2173 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
2174 /*:ref: maxai_ 14 4 4 4 4 4 */
2175 /*:ref: dasrri_ 14 5 4 4 4 4 4 */
2176 /*:ref: dasadi_ 14 3 4 4 4 */
2177 /*:ref: sumai_ 4 2 4 4 */
2178 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2179 /*:ref: dasudi_ 14 4 4 4 4 4 */
2180 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */
2181 /*:ref: dasiod_ 14 5 13 4 4 7 124 */
2182 /*:ref: dasioi_ 14 5 13 4 4 4 124 */
2183 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */
2184 /*:ref: dasllc_ 14 1 4 */
2185 
2186 extern int dastb_(integer *xfrlun, char *binfil, ftnlen binfil_len);
2187 /*:ref: return_ 12 0 */
2188 /*:ref: chkin_ 14 2 13 124 */
2189 /*:ref: setmsg_ 14 2 13 124 */
2190 /*:ref: errfnm_ 14 3 13 4 124 */
2191 /*:ref: errint_ 14 3 13 4 124 */
2192 /*:ref: sigerr_ 14 2 13 124 */
2193 /*:ref: chkout_ 14 2 13 124 */
2194 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */
2195 /*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */
2196 /*:ref: failed_ 12 0 */
2197 /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */
2198 /*:ref: dascls_ 14 1 4 */
2199 /*:ref: rdenci_ 14 3 4 4 4 */
2200 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
2201 /*:ref: dasacr_ 14 2 4 4 */
2202 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
2203 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
2204 /*:ref: errch_ 14 4 13 13 124 124 */
2205 /*:ref: rdencc_ 14 4 4 4 13 124 */
2206 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */
2207 /*:ref: dasadc_ 14 6 4 4 4 4 13 124 */
2208 /*:ref: rdencd_ 14 3 4 4 7 */
2209 /*:ref: dasadd_ 14 3 4 4 7 */
2210 /*:ref: dasadi_ 14 3 4 4 4 */
2211 
2212 extern int dasudc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len);
2213 /*:ref: return_ 12 0 */
2214 /*:ref: chkin_ 14 2 13 124 */
2215 /*:ref: daslla_ 14 4 4 4 4 4 */
2216 /*:ref: setmsg_ 14 2 13 124 */
2217 /*:ref: errint_ 14 3 13 4 124 */
2218 /*:ref: sigerr_ 14 2 13 124 */
2219 /*:ref: chkout_ 14 2 13 124 */
2220 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
2221 /*:ref: failed_ 12 0 */
2222 /*:ref: dasurc_ 14 6 4 4 4 4 13 124 */
2223 
2224 extern int dasudd_(integer *handle, integer *first, integer *last, doublereal *data);
2225 /*:ref: return_ 12 0 */
2226 /*:ref: chkin_ 14 2 13 124 */
2227 /*:ref: daslla_ 14 4 4 4 4 4 */
2228 /*:ref: setmsg_ 14 2 13 124 */
2229 /*:ref: errint_ 14 3 13 4 124 */
2230 /*:ref: sigerr_ 14 2 13 124 */
2231 /*:ref: chkout_ 14 2 13 124 */
2232 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
2233 /*:ref: failed_ 12 0 */
2234 /*:ref: dasurd_ 14 5 4 4 4 4 7 */
2235 
2236 extern int dasudi_(integer *handle, integer *first, integer *last, integer *data);
2237 /*:ref: return_ 12 0 */
2238 /*:ref: chkin_ 14 2 13 124 */
2239 /*:ref: daslla_ 14 4 4 4 4 4 */
2240 /*:ref: setmsg_ 14 2 13 124 */
2241 /*:ref: errint_ 14 3 13 4 124 */
2242 /*:ref: sigerr_ 14 2 13 124 */
2243 /*:ref: chkout_ 14 2 13 124 */
2244 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */
2245 /*:ref: failed_ 12 0 */
2246 /*:ref: dasuri_ 14 5 4 4 4 4 4 */
2247 
2248 extern int daswfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len);
2249 /*:ref: return_ 12 0 */
2250 /*:ref: chkin_ 14 2 13 124 */
2251 /*:ref: dassih_ 14 3 4 13 124 */
2252 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
2253 /*:ref: failed_ 12 0 */
2254 /*:ref: chkout_ 14 2 13 124 */
2255 /*:ref: setmsg_ 14 2 13 124 */
2256 /*:ref: errfnm_ 14 3 13 4 124 */
2257 /*:ref: errint_ 14 3 13 4 124 */
2258 /*:ref: sigerr_ 14 2 13 124 */
2259 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */
2260 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */
2261 
2262 extern doublereal datanh_(doublereal *x);
2263 /*:ref: return_ 12 0 */
2264 /*:ref: chkin_ 14 2 13 124 */
2265 /*:ref: setmsg_ 14 2 13 124 */
2266 /*:ref: sigerr_ 14 2 13 124 */
2267 /*:ref: chkout_ 14 2 13 124 */
2268 
2269 extern doublereal dcbrt_(doublereal *x);
2270 
2271 extern int dcyldr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi);
2272 /*:ref: return_ 12 0 */
2273 /*:ref: chkin_ 14 2 13 124 */
2274 /*:ref: setmsg_ 14 2 13 124 */
2275 /*:ref: sigerr_ 14 2 13 124 */
2276 /*:ref: chkout_ 14 2 13 124 */
2277 /*:ref: vpack_ 14 4 7 7 7 7 */
2278 /*:ref: reccyl_ 14 4 7 7 7 7 */
2279 /*:ref: drdcyl_ 14 4 7 7 7 7 */
2280 /*:ref: invort_ 14 2 7 7 */
2281 
2282 extern int delfil_(char *filnam, ftnlen filnam_len);
2283 /*:ref: return_ 12 0 */
2284 /*:ref: chkin_ 14 2 13 124 */
2285 /*:ref: setmsg_ 14 2 13 124 */
2286 /*:ref: sigerr_ 14 2 13 124 */
2287 /*:ref: chkout_ 14 2 13 124 */
2288 /*:ref: errch_ 14 4 13 13 124 124 */
2289 /*:ref: errint_ 14 3 13 4 124 */
2290 /*:ref: getlun_ 14 1 4 */
2291 
2292 extern int deltet_(doublereal *epoch, char *eptype, doublereal *delta, ftnlen eptype_len);
2293 /*:ref: return_ 12 0 */
2294 /*:ref: chkin_ 14 2 13 124 */
2295 /*:ref: ucase_ 14 4 13 13 124 124 */
2296 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
2297 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
2298 /*:ref: setmsg_ 14 2 13 124 */
2299 /*:ref: errint_ 14 3 13 4 124 */
2300 /*:ref: sigerr_ 14 2 13 124 */
2301 /*:ref: chkout_ 14 2 13 124 */
2302 /*:ref: errch_ 14 4 13 13 124 124 */
2303 
2304 extern doublereal det_(doublereal *m1);
2305 
2306 extern int dgeodr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi);
2307 /*:ref: return_ 12 0 */
2308 /*:ref: chkin_ 14 2 13 124 */
2309 /*:ref: setmsg_ 14 2 13 124 */
2310 /*:ref: errdp_ 14 3 13 7 124 */
2311 /*:ref: sigerr_ 14 2 13 124 */
2312 /*:ref: chkout_ 14 2 13 124 */
2313 /*:ref: vpack_ 14 4 7 7 7 7 */
2314 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
2315 /*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */
2316 /*:ref: invort_ 14 2 7 7 */
2317 
2318 extern doublereal dhfa_(doublereal *state, doublereal *bodyr);
2319 /*:ref: return_ 12 0 */
2320 /*:ref: chkin_ 14 2 13 124 */
2321 /*:ref: chkout_ 14 2 13 124 */
2322 /*:ref: setmsg_ 14 2 13 124 */
2323 /*:ref: sigerr_ 14 2 13 124 */
2324 /*:ref: unorm_ 14 3 7 7 7 */
2325 /*:ref: vzero_ 12 1 7 */
2326 /*:ref: vdot_ 7 2 7 7 */
2327 /*:ref: errdp_ 14 3 13 7 124 */
2328 
2329 extern int diags2_(doublereal *symmat, doublereal *diag, doublereal *rotate);
2330 /*:ref: return_ 12 0 */
2331 /*:ref: chkin_ 14 2 13 124 */
2332 /*:ref: moved_ 14 3 7 4 7 */
2333 /*:ref: chkout_ 14 2 13 124 */
2334 /*:ref: rquad_ 14 5 7 7 7 7 7 */
2335 /*:ref: vhatg_ 14 3 7 4 7 */
2336 
2337 extern int diffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len);
2338 /*:ref: return_ 12 0 */
2339 /*:ref: chkin_ 14 2 13 124 */
2340 /*:ref: setmsg_ 14 2 13 124 */
2341 /*:ref: errint_ 14 3 13 4 124 */
2342 /*:ref: sigerr_ 14 2 13 124 */
2343 /*:ref: chkout_ 14 2 13 124 */
2344 /*:ref: cardc_ 4 2 13 124 */
2345 /*:ref: sizec_ 4 2 13 124 */
2346 /*:ref: scardc_ 14 3 4 13 124 */
2347 /*:ref: excess_ 14 3 4 13 124 */
2348 
2349 extern int diffd_(doublereal *a, doublereal *b, doublereal *c__);
2350 /*:ref: return_ 12 0 */
2351 /*:ref: chkin_ 14 2 13 124 */
2352 /*:ref: cardd_ 4 1 7 */
2353 /*:ref: sized_ 4 1 7 */
2354 /*:ref: scardd_ 14 2 4 7 */
2355 /*:ref: excess_ 14 3 4 13 124 */
2356 /*:ref: sigerr_ 14 2 13 124 */
2357 /*:ref: chkout_ 14 2 13 124 */
2358 
2359 extern int diffi_(integer *a, integer *b, integer *c__);
2360 /*:ref: return_ 12 0 */
2361 /*:ref: chkin_ 14 2 13 124 */
2362 /*:ref: cardi_ 4 1 4 */
2363 /*:ref: sizei_ 4 1 4 */
2364 /*:ref: scardi_ 14 2 4 4 */
2365 /*:ref: excess_ 14 3 4 13 124 */
2366 /*:ref: sigerr_ 14 2 13 124 */
2367 /*:ref: chkout_ 14 2 13 124 */
2368 
2369 extern int dlabbs_(integer *handle, integer *descr, logical *found);
2370 /*:ref: return_ 12 0 */
2371 /*:ref: chkin_ 14 2 13 124 */
2372 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2373 /*:ref: failed_ 12 0 */
2374 /*:ref: chkout_ 14 2 13 124 */
2375 
2376 extern int dlabfs_(integer *handle, integer *descr, logical *found);
2377 /*:ref: return_ 12 0 */
2378 /*:ref: chkin_ 14 2 13 124 */
2379 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2380 /*:ref: failed_ 12 0 */
2381 /*:ref: chkout_ 14 2 13 124 */
2382 
2383 extern int dlabns_(integer *handle);
2384 /*:ref: return_ 12 0 */
2385 /*:ref: chkin_ 14 2 13 124 */
2386 /*:ref: dassih_ 14 3 4 13 124 */
2387 /*:ref: failed_ 12 0 */
2388 /*:ref: chkout_ 14 2 13 124 */
2389 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2390 /*:ref: daslla_ 14 4 4 4 4 4 */
2391 /*:ref: filli_ 14 3 4 4 4 */
2392 /*:ref: dasadi_ 14 3 4 4 4 */
2393 /*:ref: dasudi_ 14 4 4 4 4 4 */
2394 
2395 extern int dlaens_(integer *handle);
2396 /*:ref: return_ 12 0 */
2397 /*:ref: chkin_ 14 2 13 124 */
2398 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2399 /*:ref: daslla_ 14 4 4 4 4 4 */
2400 /*:ref: dasudi_ 14 4 4 4 4 4 */
2401 /*:ref: chkout_ 14 2 13 124 */
2402 
2403 extern int dlafns_(integer *handle, integer *descr, integer *nxtdsc, logical *found);
2404 /*:ref: return_ 12 0 */
2405 /*:ref: chkin_ 14 2 13 124 */
2406 /*:ref: chkout_ 14 2 13 124 */
2407 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2408 
2409 extern int dlafps_(integer *handle, integer *descr, integer *prvdsc, logical *found);
2410 /*:ref: return_ 12 0 */
2411 /*:ref: chkin_ 14 2 13 124 */
2412 /*:ref: chkout_ 14 2 13 124 */
2413 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2414 
2415 extern int dlaopn_(char *fname, char *ftype, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len);
2416 /*:ref: return_ 12 0 */
2417 /*:ref: chkin_ 14 2 13 124 */
2418 /*:ref: setmsg_ 14 2 13 124 */
2419 /*:ref: errint_ 14 3 13 4 124 */
2420 /*:ref: sigerr_ 14 2 13 124 */
2421 /*:ref: chkout_ 14 2 13 124 */
2422 /*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */
2423 /*:ref: dasadi_ 14 3 4 4 4 */
2424 
2425 extern logical dlassg_(integer *han1, integer *han2, integer *dsc1, integer *dsc2);
2426 
2427 extern int dlatdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi);
2428 /*:ref: return_ 12 0 */
2429 /*:ref: chkin_ 14 2 13 124 */
2430 /*:ref: setmsg_ 14 2 13 124 */
2431 /*:ref: sigerr_ 14 2 13 124 */
2432 /*:ref: chkout_ 14 2 13 124 */
2433 /*:ref: vpack_ 14 4 7 7 7 7 */
2434 /*:ref: reclat_ 14 4 7 7 7 7 */
2435 /*:ref: drdlat_ 14 4 7 7 7 7 */
2436 /*:ref: invort_ 14 2 7 7 */
2437 
2438 extern int dnearp_(doublereal *state, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found);
2439 /*:ref: return_ 12 0 */
2440 /*:ref: chkin_ 14 2 13 124 */
2441 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
2442 /*:ref: failed_ 12 0 */
2443 /*:ref: chkout_ 14 2 13 124 */
2444 /*:ref: vsub_ 14 3 7 7 7 */
2445 /*:ref: mxv_ 14 3 7 7 7 */
2446 /*:ref: unorm_ 14 3 7 7 7 */
2447 /*:ref: vdot_ 7 2 7 7 */
2448 /*:ref: vtmv_ 7 3 7 7 7 */
2449 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
2450 
2451 extern int dp2hx_(doublereal *number, char *string, integer *length, ftnlen string_len);
2452 /*:ref: int2hx_ 14 4 4 13 4 124 */
2453 
2454 extern int dpfmt_(doublereal *x, char *pictur, char *str, ftnlen pictur_len, ftnlen str_len);
2455 /*:ref: pos_ 4 5 13 13 4 124 124 */
2456 /*:ref: chkin_ 14 2 13 124 */
2457 /*:ref: setmsg_ 14 2 13 124 */
2458 /*:ref: sigerr_ 14 2 13 124 */
2459 /*:ref: chkout_ 14 2 13 124 */
2460 /*:ref: errch_ 14 4 13 13 124 124 */
2461 /*:ref: errint_ 14 3 13 4 124 */
2462 /*:ref: zzvststr_ 14 4 7 13 4 124 */
2463 /*:ref: dpstr_ 14 4 7 4 13 124 */
2464 /*:ref: ljust_ 14 4 13 13 124 124 */
2465 /*:ref: rjust_ 14 4 13 13 124 124 */
2466 /*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */
2467 /*:ref: ncpos_ 4 5 13 13 4 124 124 */
2468 
2469 extern int dpgrdr_(char *body, doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len);
2470 /*:ref: return_ 12 0 */
2471 /*:ref: chkin_ 14 2 13 124 */
2472 /*:ref: zzctruin_ 14 1 4 */
2473 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
2474 /*:ref: setmsg_ 14 2 13 124 */
2475 /*:ref: errch_ 14 4 13 13 124 124 */
2476 /*:ref: sigerr_ 14 2 13 124 */
2477 /*:ref: chkout_ 14 2 13 124 */
2478 /*:ref: errdp_ 14 3 13 7 124 */
2479 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
2480 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
2481 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
2482 /*:ref: plnsns_ 4 1 4 */
2483 /*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */
2484 
2485 extern doublereal dpr_(void);
2486 
2487 extern int dpspce_(doublereal *time, doublereal *geophs, doublereal *elems, doublereal *state);
2488 /*:ref: return_ 12 0 */
2489 /*:ref: chkin_ 14 2 13 124 */
2490 /*:ref: twopi_ 7 0 */
2491 /*:ref: halfpi_ 7 0 */
2492 /*:ref: zzdpinit_ 14 6 7 7 7 7 7 7 */
2493 /*:ref: zzdpsec_ 14 9 7 7 7 7 7 7 7 7 7 */
2494 /*:ref: zzdpper_ 14 6 7 7 7 7 7 7 */
2495 /*:ref: latrec_ 14 4 7 7 7 7 */
2496 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
2497 /*:ref: chkout_ 14 2 13 124 */
2498 
2499 extern int dpstr_(doublereal *x, integer *sigdig, char *string, ftnlen string_len);
2500 /*:ref: intstr_ 14 3 4 13 124 */
2501 
2502 extern int dpstrf_(doublereal *x, integer *sigdig, char *format, char *string, ftnlen format_len, ftnlen string_len);
2503 /*:ref: dpstr_ 14 4 7 4 13 124 */
2504 /*:ref: zzvststr_ 14 4 7 13 4 124 */
2505 /*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */
2506 
2507 extern int drdcyl_(doublereal *r__, doublereal *long__, doublereal *z__, doublereal *jacobi);
2508 
2509 extern int drdgeo_(doublereal *long__, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi);
2510 /*:ref: return_ 12 0 */
2511 /*:ref: chkin_ 14 2 13 124 */
2512 /*:ref: setmsg_ 14 2 13 124 */
2513 /*:ref: errdp_ 14 3 13 7 124 */
2514 /*:ref: sigerr_ 14 2 13 124 */
2515 /*:ref: chkout_ 14 2 13 124 */
2516 
2517 extern int drdlat_(doublereal *r__, doublereal *long__, doublereal *lat, doublereal *jacobi);
2518 
2519 extern int drdpgr_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len);
2520 /*:ref: return_ 12 0 */
2521 /*:ref: chkin_ 14 2 13 124 */
2522 /*:ref: zzctruin_ 14 1 4 */
2523 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
2524 /*:ref: setmsg_ 14 2 13 124 */
2525 /*:ref: errch_ 14 4 13 13 124 124 */
2526 /*:ref: sigerr_ 14 2 13 124 */
2527 /*:ref: chkout_ 14 2 13 124 */
2528 /*:ref: errdp_ 14 3 13 7 124 */
2529 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
2530 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
2531 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
2532 /*:ref: plnsns_ 4 1 4 */
2533 /*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */
2534 
2535 extern int drdsph_(doublereal *r__, doublereal *colat, doublereal *long__, doublereal *jacobi);
2536 
2537 extern int drotat_(doublereal *angle, integer *iaxis, doublereal *dmout);
2538 /*:ref: chkin_ 14 2 13 124 */
2539 /*:ref: setmsg_ 14 2 13 124 */
2540 /*:ref: errint_ 14 3 13 4 124 */
2541 /*:ref: sigerr_ 14 2 13 124 */
2542 /*:ref: chkout_ 14 2 13 124 */
2543 
2544 extern int dskb02_(integer *handle, integer *dladsc, integer *nv, integer *np, integer *nvxtot, doublereal *vtxbds, doublereal *voxsiz, doublereal *voxori, integer *vgrext, integer *cgscal, integer *vtxnpl, integer *voxnpt, integer *voxnpl);
2545 /*:ref: return_ 12 0 */
2546 /*:ref: chkin_ 14 2 13 124 */
2547 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2548 /*:ref: movei_ 14 3 4 4 4 */
2549 /*:ref: dasrdd_ 14 4 4 4 4 7 */
2550 /*:ref: moved_ 14 3 7 4 7 */
2551 /*:ref: vequ_ 14 2 7 7 */
2552 /*:ref: chkout_ 14 2 13 124 */
2553 
2554 extern int dskcls_(integer *handle, logical *optmiz);
2555 /*:ref: return_ 12 0 */
2556 /*:ref: chkin_ 14 2 13 124 */
2557 /*:ref: dascls_ 14 1 4 */
2558 /*:ref: dasham_ 14 3 4 13 124 */
2559 /*:ref: daswbr_ 14 1 4 */
2560 /*:ref: dasllc_ 14 1 4 */
2561 /*:ref: chkout_ 14 2 13 124 */
2562 
2563 extern int dskd02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, doublereal *values);
2564 /*:ref: chkin_ 14 2 13 124 */
2565 /*:ref: setmsg_ 14 2 13 124 */
2566 /*:ref: errint_ 14 3 13 4 124 */
2567 /*:ref: sigerr_ 14 2 13 124 */
2568 /*:ref: chkout_ 14 2 13 124 */
2569 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2570 /*:ref: failed_ 12 0 */
2571 /*:ref: dasrdd_ 14 4 4 4 4 7 */
2572 
2573 extern int dskgd_(integer *handle, integer *dladsc, doublereal *dskdsc);
2574 /*:ref: return_ 12 0 */
2575 /*:ref: chkin_ 14 2 13 124 */
2576 /*:ref: setmsg_ 14 2 13 124 */
2577 /*:ref: errint_ 14 3 13 4 124 */
2578 /*:ref: sigerr_ 14 2 13 124 */
2579 /*:ref: chkout_ 14 2 13 124 */
2580 /*:ref: dasrdd_ 14 4 4 4 4 7 */
2581 
2582 extern int dski02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, integer *values);
2583 /*:ref: chkin_ 14 2 13 124 */
2584 /*:ref: setmsg_ 14 2 13 124 */
2585 /*:ref: errint_ 14 3 13 4 124 */
2586 /*:ref: sigerr_ 14 2 13 124 */
2587 /*:ref: chkout_ 14 2 13 124 */
2588 /*:ref: dasrdi_ 14 4 4 4 4 4 */
2589 /*:ref: failed_ 12 0 */
2590 
2591 extern int dskmi2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *finscl, integer *corscl, integer *worksz, integer *voxpsz, integer *voxlsz, logical *makvtl, integer *spxisz, integer *work, doublereal *spaixd, integer *spaixi);
2592 /*:ref: return_ 12 0 */
2593 /*:ref: chkin_ 14 2 13 124 */
2594 /*:ref: setmsg_ 14 2 13 124 */
2595 /*:ref: errdp_ 14 3 13 7 124 */
2596 /*:ref: sigerr_ 14 2 13 124 */
2597 /*:ref: chkout_ 14 2 13 124 */
2598 /*:ref: errint_ 14 3 13 4 124 */
2599 /*:ref: zzmkspin_ 14 19 4 4 7 7 4 4 4 4 4 4 7 7 4 4 4 4 4 7 4 */
2600 /*:ref: failed_ 12 0 */
2601 /*:ref: zzvrtplt_ 14 9 4 4 4 4 4 4 4 4 4 */
2602 
2603 extern int dskn02_(integer *handle, integer *dladsc, integer *plid, doublereal *normal);
2604 /*:ref: return_ 12 0 */
2605 /*:ref: chkin_ 14 2 13 124 */
2606 /*:ref: dskgd_ 14 3 4 4 7 */
2607 /*:ref: dskz02_ 14 4 4 4 4 4 */
2608 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
2609 /*:ref: setmsg_ 14 2 13 124 */
2610 /*:ref: errfnm_ 14 3 13 4 124 */
2611 /*:ref: errint_ 14 3 13 4 124 */
2612 /*:ref: sigerr_ 14 2 13 124 */
2613 /*:ref: chkout_ 14 2 13 124 */
2614 /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */
2615 /*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */
2616 /*:ref: failed_ 12 0 */
2617 /*:ref: vsub_ 14 3 7 7 7 */
2618 /*:ref: ucrss_ 14 3 7 7 7 */
2619 
2620 extern int dskobj_(char *dsk, integer *bodids, ftnlen dsk_len);
2621 /*:ref: return_ 12 0 */
2622 /*:ref: chkin_ 14 2 13 124 */
2623 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
2624 /*:ref: setmsg_ 14 2 13 124 */
2625 /*:ref: errch_ 14 4 13 13 124 124 */
2626 /*:ref: sigerr_ 14 2 13 124 */
2627 /*:ref: chkout_ 14 2 13 124 */
2628 /*:ref: dasopr_ 14 3 13 4 124 */
2629 /*:ref: dlabfs_ 14 3 4 4 12 */
2630 /*:ref: failed_ 12 0 */
2631 /*:ref: movei_ 14 3 4 4 4 */
2632 /*:ref: dskgd_ 14 3 4 4 7 */
2633 /*:ref: cardi_ 4 1 4 */
2634 /*:ref: sizei_ 4 1 4 */
2635 /*:ref: dskcls_ 14 2 4 12 */
2636 /*:ref: errint_ 14 3 13 4 124 */
2637 /*:ref: appndi_ 14 2 4 4 */
2638 /*:ref: dlafns_ 14 4 4 4 4 12 */
2639 /*:ref: validi_ 14 3 4 4 4 */
2640 /*:ref: dascls_ 14 1 4 */
2641 
2642 extern int dskopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len);
2643 /*:ref: return_ 12 0 */
2644 /*:ref: chkin_ 14 2 13 124 */
2645 /*:ref: dlaopn_ 14 8 13 13 13 4 4 124 124 124 */
2646 /*:ref: chkout_ 14 2 13 124 */
2647 
2648 extern int dskp02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, integer *plates);
2649 /*:ref: return_ 12 0 */
2650 /*:ref: chkin_ 14 2 13 124 */
2651 /*:ref: dskgd_ 14 3 4 4 7 */
2652 /*:ref: dskz02_ 14 4 4 4 4 4 */
2653 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
2654 /*:ref: setmsg_ 14 2 13 124 */
2655 /*:ref: errfnm_ 14 3 13 4 124 */
2656 /*:ref: errint_ 14 3 13 4 124 */
2657 /*:ref: sigerr_ 14 2 13 124 */
2658 /*:ref: chkout_ 14 2 13 124 */
2659 /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */
2660 
2661 extern int dskrb2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, integer *corsys, doublereal *corpar, doublereal *mncor3, doublereal *mxcor3);
2662 /*:ref: return_ 12 0 */
2663 /*:ref: chkin_ 14 2 13 124 */
2664 /*:ref: vnorm_ 7 1 7 */
2665 /*:ref: dpmax_ 7 0 */
2666 /*:ref: pltnp_ 14 6 7 7 7 7 7 7 */
2667 /*:ref: dpmin_ 7 0 */
2668 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
2669 /*:ref: failed_ 12 0 */
2670 /*:ref: chkout_ 14 2 13 124 */
2671 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
2672 /*:ref: vdist_ 7 2 7 7 */
2673 /*:ref: setmsg_ 14 2 13 124 */
2674 /*:ref: errint_ 14 3 13 4 124 */
2675 /*:ref: sigerr_ 14 2 13 124 */
2676 
2677 extern int dsksrf_(char *dsk, integer *bodyid, integer *srfids, ftnlen dsk_len);
2678 /*:ref: return_ 12 0 */
2679 /*:ref: chkin_ 14 2 13 124 */
2680 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
2681 /*:ref: setmsg_ 14 2 13 124 */
2682 /*:ref: errch_ 14 4 13 13 124 124 */
2683 /*:ref: sigerr_ 14 2 13 124 */
2684 /*:ref: chkout_ 14 2 13 124 */
2685 /*:ref: dasopr_ 14 3 13 4 124 */
2686 /*:ref: dlabfs_ 14 3 4 4 12 */
2687 /*:ref: failed_ 12 0 */
2688 /*:ref: movei_ 14 3 4 4 4 */
2689 /*:ref: dskgd_ 14 3 4 4 7 */
2690 /*:ref: cardi_ 4 1 4 */
2691 /*:ref: sizei_ 4 1 4 */
2692 /*:ref: dskcls_ 14 2 4 12 */
2693 /*:ref: errint_ 14 3 13 4 124 */
2694 /*:ref: appndi_ 14 2 4 4 */
2695 /*:ref: dlafns_ 14 4 4 4 4 12 */
2696 /*:ref: validi_ 14 3 4 4 4 */
2697 /*:ref: dascls_ 14 1 4 */
2698 
2699 extern int dsktol_(integer *keywrd, doublereal *dpval);
2700 extern int dskgtl_(integer *keywrd, doublereal *dpval);
2701 extern int dskstl_(integer *keywrd, doublereal *dpval);
2702 /*:ref: chkin_ 14 2 13 124 */
2703 /*:ref: sigerr_ 14 2 13 124 */
2704 /*:ref: chkout_ 14 2 13 124 */
2705 /*:ref: setmsg_ 14 2 13 124 */
2706 /*:ref: errint_ 14 3 13 4 124 */
2707 /*:ref: return_ 12 0 */
2708 /*:ref: errch_ 14 4 13 13 124 124 */
2709 
2710 extern int dskv02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, doublereal *vrtces);
2711 /*:ref: return_ 12 0 */
2712 /*:ref: chkin_ 14 2 13 124 */
2713 /*:ref: dskgd_ 14 3 4 4 7 */
2714 /*:ref: dskz02_ 14 4 4 4 4 4 */
2715 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
2716 /*:ref: setmsg_ 14 2 13 124 */
2717 /*:ref: errfnm_ 14 3 13 4 124 */
2718 /*:ref: errint_ 14 3 13 4 124 */
2719 /*:ref: sigerr_ 14 2 13 124 */
2720 /*:ref: chkout_ 14 2 13 124 */
2721 /*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */
2722 
2723 extern int dskw02_(integer *handle, integer *center, integer *surfid, integer *dclass, char *frame, integer *corsys, doublereal *corpar, doublereal *mncor1, doublereal *mxcor1, doublereal *mncor2, doublereal *mxcor2, doublereal *mncor3, doublereal *mxcor3, doublereal *first, doublereal *last, integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *spaixd, integer *spaixi, ftnlen frame_len);
2724 /*:ref: return_ 12 0 */
2725 /*:ref: chkin_ 14 2 13 124 */
2726 /*:ref: namfrm_ 14 3 13 4 124 */
2727 /*:ref: setmsg_ 14 2 13 124 */
2728 /*:ref: errch_ 14 4 13 13 124 124 */
2729 /*:ref: sigerr_ 14 2 13 124 */
2730 /*:ref: chkout_ 14 2 13 124 */
2731 /*:ref: errdp_ 14 3 13 7 124 */
2732 /*:ref: dpr_ 7 0 */
2733 /*:ref: twopi_ 7 0 */
2734 /*:ref: halfpi_ 7 0 */
2735 /*:ref: errint_ 14 3 13 4 124 */
2736 /*:ref: moved_ 14 3 7 4 7 */
2737 /*:ref: vequ_ 14 2 7 7 */
2738 /*:ref: movei_ 14 3 4 4 4 */
2739 /*:ref: dlabns_ 14 1 4 */
2740 /*:ref: failed_ 12 0 */
2741 /*:ref: cleard_ 14 2 4 7 */
2742 /*:ref: dasadd_ 14 3 4 4 7 */
2743 /*:ref: dasadi_ 14 3 4 4 4 */
2744 /*:ref: dlaens_ 14 1 4 */
2745 
2746 extern int dskx02_(integer *handle, integer *dladsc, doublereal *vertex, doublereal *raydir, integer *plid, doublereal *xpt, logical *found);
2747 /*:ref: return_ 12 0 */
2748 /*:ref: chkin_ 14 2 13 124 */
2749 /*:ref: dpmax_ 7 0 */
2750 /*:ref: cleari_ 14 2 4 4 */
2751 /*:ref: vzero_ 12 1 7 */
2752 /*:ref: setmsg_ 14 2 13 124 */
2753 /*:ref: sigerr_ 14 2 13 124 */
2754 /*:ref: chkout_ 14 2 13 124 */
2755 /*:ref: vhat_ 14 2 7 7 */
2756 /*:ref: dskb02_ 14 13 4 4 4 4 4 7 7 7 4 4 4 4 4 */
2757 /*:ref: failed_ 12 0 */
2758 /*:ref: errint_ 14 3 13 4 124 */
2759 /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */
2760 /*:ref: dskgd_ 14 3 4 4 7 */
2761 /*:ref: movei_ 14 3 4 4 4 */
2762 /*:ref: dskgtl_ 14 2 4 7 */
2763 /*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */
2764 /*:ref: zztogrid_ 14 4 7 7 7 7 */
2765 /*:ref: xdda_ 14 6 7 7 4 4 4 4 */
2766 /*:ref: vsub_ 14 3 7 7 7 */
2767 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
2768 /*:ref: vequ_ 14 2 7 7 */
2769 /*:ref: filli_ 14 3 4 4 4 */
2770 /*:ref: orderi_ 14 3 4 4 4 */
2771 /*:ref: isrchi_ 4 3 4 4 4 */
2772 /*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */
2773 /*:ref: vsubg_ 14 4 7 7 4 7 */
2774 /*:ref: pltexp_ 14 3 7 7 7 */
2775 /*:ref: insang_ 14 6 7 7 7 7 12 7 */
2776 /*:ref: pltnrm_ 14 4 7 7 7 7 */
2777 /*:ref: vdot_ 7 2 7 7 */
2778 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
2779 /*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */
2780 
2781 extern int dskxsi_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, doublereal *vertex, doublereal *raydir, integer *maxd, integer *maxi, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, ftnlen target_len, ftnlen fixref_len);
2782 /*:ref: return_ 12 0 */
2783 /*:ref: chkin_ 14 2 13 124 */
2784 /*:ref: zzctruin_ 14 1 4 */
2785 /*:ref: failed_ 12 0 */
2786 /*:ref: chkout_ 14 2 13 124 */
2787 /*:ref: setmsg_ 14 2 13 124 */
2788 /*:ref: sigerr_ 14 2 13 124 */
2789 /*:ref: errint_ 14 3 13 4 124 */
2790 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
2791 /*:ref: errch_ 14 4 13 13 124 124 */
2792 /*:ref: zzpctrck_ 14 2 4 12 */
2793 /*:ref: namfrm_ 14 3 13 4 124 */
2794 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
2795 /*:ref: zzsbfxri_ 14 14 4 4 4 7 4 7 7 7 4 4 7 7 4 12 */
2796 
2797 extern int dskxv_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, integer *nrays, doublereal *vtxarr, doublereal *dirarr, doublereal *xptarr, logical *fndarr, ftnlen target_len, ftnlen fixref_len);
2798 /*:ref: return_ 12 0 */
2799 /*:ref: chkin_ 14 2 13 124 */
2800 /*:ref: zzctruin_ 14 1 4 */
2801 /*:ref: failed_ 12 0 */
2802 /*:ref: chkout_ 14 2 13 124 */
2803 /*:ref: setmsg_ 14 2 13 124 */
2804 /*:ref: sigerr_ 14 2 13 124 */
2805 /*:ref: errint_ 14 3 13 4 124 */
2806 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
2807 /*:ref: errch_ 14 4 13 13 124 124 */
2808 /*:ref: zzpctrck_ 14 2 4 12 */
2809 /*:ref: namfrm_ 14 3 13 4 124 */
2810 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
2811 /*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */
2812 
2813 extern int dskz02_(integer *handle, integer *dladsc, integer *nv, integer *np);
2814 /*:ref: return_ 12 0 */
2815 /*:ref: chkin_ 14 2 13 124 */
2816 /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */
2817 /*:ref: chkout_ 14 2 13 124 */
2818 
2819 extern int dsphdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi);
2820 /*:ref: return_ 12 0 */
2821 /*:ref: chkin_ 14 2 13 124 */
2822 /*:ref: setmsg_ 14 2 13 124 */
2823 /*:ref: sigerr_ 14 2 13 124 */
2824 /*:ref: chkout_ 14 2 13 124 */
2825 /*:ref: vpack_ 14 4 7 7 7 7 */
2826 /*:ref: recsph_ 14 4 7 7 7 7 */
2827 /*:ref: drdsph_ 14 4 7 7 7 7 */
2828 /*:ref: invort_ 14 2 7 7 */
2829 
2830 extern int ducrss_(doublereal *s1, doublereal *s2, doublereal *sout);
2831 /*:ref: vsclg_ 14 4 7 7 4 7 */
2832 /*:ref: moved_ 14 3 7 4 7 */
2833 /*:ref: dvcrss_ 14 3 7 7 7 */
2834 /*:ref: dvhat_ 14 2 7 7 */
2835 
2836 extern int dvcrss_(doublereal *s1, doublereal *s2, doublereal *sout);
2837 /*:ref: vcrss_ 14 3 7 7 7 */
2838 /*:ref: vequ_ 14 2 7 7 */
2839 /*:ref: vadd_ 14 3 7 7 7 */
2840 
2841 extern doublereal dvdot_(doublereal *s1, doublereal *s2);
2842 
2843 extern int dvhat_(doublereal *s1, doublereal *sout);
2844 /*:ref: unorm_ 14 3 7 7 7 */
2845 /*:ref: vequ_ 14 2 7 7 */
2846 /*:ref: vperp_ 14 3 7 7 7 */
2847 /*:ref: vsclip_ 14 2 7 7 */
2848 
2849 extern doublereal dvnorm_(doublereal *state);
2850 /*:ref: vnorm_ 7 1 7 */
2851 /*:ref: vhat_ 14 2 7 7 */
2852 /*:ref: vdot_ 7 2 7 7 */
2853 
2854 extern doublereal dvsep_(doublereal *s1, doublereal *s2);
2855 /*:ref: return_ 12 0 */
2856 /*:ref: chkin_ 14 2 13 124 */
2857 /*:ref: dvhat_ 14 2 7 7 */
2858 /*:ref: vcrss_ 14 3 7 7 7 */
2859 /*:ref: vzero_ 12 1 7 */
2860 /*:ref: chkout_ 14 2 13 124 */
2861 /*:ref: vdot_ 7 2 7 7 */
2862 /*:ref: vnorm_ 7 1 7 */
2863 /*:ref: zzdiv_ 7 2 7 7 */
2864 
2865 extern int dxtrct_(char *keywd, integer *maxwds, char *string, integer *nfound, integer *parsed, doublereal *values, ftnlen keywd_len, ftnlen string_len);
2866 /*:ref: wdindx_ 4 4 13 13 124 124 */
2867 /*:ref: lastnb_ 4 2 13 124 */
2868 /*:ref: nblen_ 4 2 13 124 */
2869 /*:ref: fndnwd_ 14 5 13 4 4 4 124 */
2870 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
2871 
2872 extern int edlimb_(doublereal *a, doublereal *b, doublereal *c__, doublereal *viewpt, doublereal *limb);
2873 /*:ref: return_ 12 0 */
2874 /*:ref: chkin_ 14 2 13 124 */
2875 /*:ref: setmsg_ 14 2 13 124 */
2876 /*:ref: errdp_ 14 3 13 7 124 */
2877 /*:ref: sigerr_ 14 2 13 124 */
2878 /*:ref: chkout_ 14 2 13 124 */
2879 /*:ref: vscl_ 14 3 7 7 7 */
2880 /*:ref: nvc2pl_ 14 3 7 7 7 */
2881 /*:ref: inedpl_ 14 6 7 7 7 7 7 12 */
2882 /*:ref: vsclg_ 14 4 7 7 4 7 */
2883 /*:ref: moved_ 14 3 7 4 7 */
2884 
2885 extern int ednmpt_(doublereal *a, doublereal *b, doublereal *c__, doublereal *normal, doublereal *point);
2886 /*:ref: return_ 12 0 */
2887 /*:ref: chkin_ 14 2 13 124 */
2888 /*:ref: setmsg_ 14 2 13 124 */
2889 /*:ref: errdp_ 14 3 13 7 124 */
2890 /*:ref: sigerr_ 14 2 13 124 */
2891 /*:ref: chkout_ 14 2 13 124 */
2892 /*:ref: touchd_ 7 1 7 */
2893 /*:ref: vzero_ 12 1 7 */
2894 
2895 extern int edpnt_(doublereal *p, doublereal *a, doublereal *b, doublereal *c__, doublereal *ep);
2896 /*:ref: failed_ 12 0 */
2897 /*:ref: chkin_ 14 2 13 124 */
2898 /*:ref: setmsg_ 14 2 13 124 */
2899 /*:ref: errdp_ 14 3 13 7 124 */
2900 /*:ref: sigerr_ 14 2 13 124 */
2901 /*:ref: chkout_ 14 2 13 124 */
2902 /*:ref: vzero_ 12 1 7 */
2903 /*:ref: touchd_ 7 1 7 */
2904 
2905 extern int edterm_(char *trmtyp, char *source, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, integer *npts, doublereal *trgepc, doublereal *obspos, doublereal *trmpts, ftnlen trmtyp_len, ftnlen source_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
2906 /*:ref: return_ 12 0 */
2907 /*:ref: chkin_ 14 2 13 124 */
2908 /*:ref: zzctruin_ 14 1 4 */
2909 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
2910 /*:ref: setmsg_ 14 2 13 124 */
2911 /*:ref: errch_ 14 4 13 13 124 124 */
2912 /*:ref: sigerr_ 14 2 13 124 */
2913 /*:ref: chkout_ 14 2 13 124 */
2914 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
2915 /*:ref: errint_ 14 3 13 4 124 */
2916 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
2917 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
2918 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
2919 /*:ref: failed_ 12 0 */
2920 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
2921 /*:ref: vminus_ 14 2 7 7 */
2922 /*:ref: zzedterm_ 14 9 13 7 7 7 7 7 4 7 124 */
2923 
2924 extern int ekacec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len);
2925 /*:ref: zzeksdsc_ 14 3 4 4 4 */
2926 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
2927 /*:ref: failed_ 12 0 */
2928 /*:ref: chkin_ 14 2 13 124 */
2929 /*:ref: setmsg_ 14 2 13 124 */
2930 /*:ref: errch_ 14 4 13 13 124 124 */
2931 /*:ref: errint_ 14 3 13 4 124 */
2932 /*:ref: errhan_ 14 3 13 4 124 */
2933 /*:ref: sigerr_ 14 2 13 124 */
2934 /*:ref: chkout_ 14 2 13 124 */
2935 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
2936 /*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */
2937 /*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */
2938 
2939 extern int ekaced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len);
2940 /*:ref: zzeksdsc_ 14 3 4 4 4 */
2941 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
2942 /*:ref: failed_ 12 0 */
2943 /*:ref: chkin_ 14 2 13 124 */
2944 /*:ref: setmsg_ 14 2 13 124 */
2945 /*:ref: errch_ 14 4 13 13 124 124 */
2946 /*:ref: errint_ 14 3 13 4 124 */
2947 /*:ref: errhan_ 14 3 13 4 124 */
2948 /*:ref: sigerr_ 14 2 13 124 */
2949 /*:ref: chkout_ 14 2 13 124 */
2950 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
2951 /*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */
2952 /*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */
2953 
2954 extern int ekacei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len);
2955 /*:ref: zzeksdsc_ 14 3 4 4 4 */
2956 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
2957 /*:ref: failed_ 12 0 */
2958 /*:ref: chkin_ 14 2 13 124 */
2959 /*:ref: setmsg_ 14 2 13 124 */
2960 /*:ref: errch_ 14 4 13 13 124 124 */
2961 /*:ref: errint_ 14 3 13 4 124 */
2962 /*:ref: errhan_ 14 3 13 4 124 */
2963 /*:ref: sigerr_ 14 2 13 124 */
2964 /*:ref: chkout_ 14 2 13 124 */
2965 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
2966 /*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */
2967 /*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */
2968 
2969 extern int ekaclc_(integer *handle, integer *segno, char *column, char *cvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len, ftnlen cvals_len);
2970 /*:ref: return_ 12 0 */
2971 /*:ref: chkin_ 14 2 13 124 */
2972 /*:ref: zzeksdsc_ 14 3 4 4 4 */
2973 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
2974 /*:ref: failed_ 12 0 */
2975 /*:ref: chkout_ 14 2 13 124 */
2976 /*:ref: setmsg_ 14 2 13 124 */
2977 /*:ref: errch_ 14 4 13 13 124 124 */
2978 /*:ref: errint_ 14 3 13 4 124 */
2979 /*:ref: sigerr_ 14 2 13 124 */
2980 /*:ref: zzekac03_ 14 8 4 4 4 13 12 4 4 124 */
2981 /*:ref: zzekac06_ 14 7 4 4 4 13 4 12 124 */
2982 /*:ref: zzekac09_ 14 7 4 4 4 13 12 4 124 */
2983 
2984 extern int ekacld_(integer *handle, integer *segno, char *column, doublereal *dvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len);
2985 /*:ref: return_ 12 0 */
2986 /*:ref: chkin_ 14 2 13 124 */
2987 /*:ref: zzeksdsc_ 14 3 4 4 4 */
2988 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
2989 /*:ref: failed_ 12 0 */
2990 /*:ref: chkout_ 14 2 13 124 */
2991 /*:ref: setmsg_ 14 2 13 124 */
2992 /*:ref: errch_ 14 4 13 13 124 124 */
2993 /*:ref: errint_ 14 3 13 4 124 */
2994 /*:ref: sigerr_ 14 2 13 124 */
2995 /*:ref: zzekac02_ 14 7 4 4 4 7 12 4 4 */
2996 /*:ref: zzekac05_ 14 6 4 4 4 7 4 12 */
2997 /*:ref: zzekac08_ 14 6 4 4 4 7 12 4 */
2998 
2999 extern int ekacli_(integer *handle, integer *segno, char *column, integer *ivals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len);
3000 /*:ref: return_ 12 0 */
3001 /*:ref: chkin_ 14 2 13 124 */
3002 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3003 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
3004 /*:ref: failed_ 12 0 */
3005 /*:ref: chkout_ 14 2 13 124 */
3006 /*:ref: setmsg_ 14 2 13 124 */
3007 /*:ref: errch_ 14 4 13 13 124 124 */
3008 /*:ref: errint_ 14 3 13 4 124 */
3009 /*:ref: sigerr_ 14 2 13 124 */
3010 /*:ref: zzekac01_ 14 7 4 4 4 4 12 4 4 */
3011 /*:ref: zzekac04_ 14 6 4 4 4 4 4 12 */
3012 /*:ref: zzekac07_ 14 6 4 4 4 4 12 4 */
3013 
3014 extern int ekappr_(integer *handle, integer *segno, integer *recno);
3015 /*:ref: return_ 12 0 */
3016 /*:ref: chkin_ 14 2 13 124 */
3017 /*:ref: zzekpgch_ 14 3 4 13 124 */
3018 /*:ref: failed_ 12 0 */
3019 /*:ref: chkout_ 14 2 13 124 */
3020 /*:ref: zzekmloc_ 14 4 4 4 4 4 */
3021 /*:ref: dasrdi_ 14 4 4 4 4 4 */
3022 /*:ref: ekinsr_ 14 3 4 4 4 */
3023 
3024 extern int ekbseg_(integer *handle, char *tabnam, integer *ncols, char *cnames, char *decls, integer *segno, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len);
3025 /*:ref: return_ 12 0 */
3026 /*:ref: chkin_ 14 2 13 124 */
3027 /*:ref: zzekpgch_ 14 3 4 13 124 */
3028 /*:ref: failed_ 12 0 */
3029 /*:ref: chkout_ 14 2 13 124 */
3030 /*:ref: ssizei_ 14 2 4 4 */
3031 /*:ref: lxdfid_ 14 1 4 */
3032 /*:ref: chckid_ 14 5 13 4 13 124 124 */
3033 /*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */
3034 /*:ref: lastnb_ 4 2 13 124 */
3035 /*:ref: setmsg_ 14 2 13 124 */
3036 /*:ref: errch_ 14 4 13 13 124 124 */
3037 /*:ref: sigerr_ 14 2 13 124 */
3038 /*:ref: errint_ 14 3 13 4 124 */
3039 /*:ref: zzekpdec_ 14 3 13 4 124 */
3040 /*:ref: zzekstyp_ 4 2 4 4 */
3041 /*:ref: zzekbs01_ 14 8 4 13 4 13 4 4 124 124 */
3042 /*:ref: zzekbs02_ 14 8 4 13 4 13 4 4 124 124 */
3043 
3044 extern int ekcls_(integer *handle);
3045 /*:ref: return_ 12 0 */
3046 /*:ref: chkin_ 14 2 13 124 */
3047 /*:ref: dascls_ 14 1 4 */
3048 /*:ref: chkout_ 14 2 13 124 */
3049 
3050 extern int ekdelr_(integer *handle, integer *segno, integer *recno);
3051 /*:ref: return_ 12 0 */
3052 /*:ref: chkin_ 14 2 13 124 */
3053 /*:ref: zzekpgch_ 14 3 4 13 124 */
3054 /*:ref: failed_ 12 0 */
3055 /*:ref: chkout_ 14 2 13 124 */
3056 /*:ref: zzekmloc_ 14 4 4 4 4 4 */
3057 /*:ref: dasrdi_ 14 4 4 4 4 4 */
3058 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */
3059 /*:ref: setmsg_ 14 2 13 124 */
3060 /*:ref: errint_ 14 3 13 4 124 */
3061 /*:ref: sigerr_ 14 2 13 124 */
3062 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
3063 /*:ref: zzekde01_ 14 4 4 4 4 4 */
3064 /*:ref: zzekde02_ 14 4 4 4 4 4 */
3065 /*:ref: zzekde03_ 14 4 4 4 4 4 */
3066 /*:ref: zzekde04_ 14 4 4 4 4 4 */
3067 /*:ref: zzekde05_ 14 4 4 4 4 4 */
3068 /*:ref: zzekde06_ 14 4 4 4 4 4 */
3069 /*:ref: zzekrp2n_ 4 3 4 4 4 */
3070 /*:ref: dashlu_ 14 2 4 4 */
3071 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
3072 /*:ref: errch_ 14 4 13 13 124 124 */
3073 /*:ref: errfnm_ 14 3 13 4 124 */
3074 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
3075 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
3076 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
3077 /*:ref: zzekdps_ 14 4 4 4 4 4 */
3078 /*:ref: zzektrdl_ 14 3 4 4 4 */
3079 /*:ref: dasudi_ 14 4 4 4 4 4 */
3080 
3081 extern int ekffld_(integer *handle, integer *segno, integer *rcptrs);
3082 /*:ref: return_ 12 0 */
3083 /*:ref: chkin_ 14 2 13 124 */
3084 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3085 /*:ref: zzekff01_ 14 3 4 4 4 */
3086 /*:ref: setmsg_ 14 2 13 124 */
3087 /*:ref: errint_ 14 3 13 4 124 */
3088 /*:ref: sigerr_ 14 2 13 124 */
3089 /*:ref: chkout_ 14 2 13 124 */
3090 
3091 extern int ekfind_(char *query, integer *nmrows, logical *error, char *errmsg, ftnlen query_len, ftnlen errmsg_len);
3092 /*:ref: return_ 12 0 */
3093 /*:ref: chkin_ 14 2 13 124 */
3094 /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */
3095 /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */
3096 /*:ref: chkout_ 14 2 13 124 */
3097 /*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */
3098 /*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */
3099 /*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */
3100 /*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */
3101 /*:ref: eksrch_ 14 8 4 13 7 4 12 13 124 124 */
3102 
3103 extern int ekifld_(integer *handle, char *tabnam, integer *ncols, integer *nrows, char *cnames, char *decls, integer *segno, integer *rcptrs, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len);
3104 /*:ref: return_ 12 0 */
3105 /*:ref: chkin_ 14 2 13 124 */
3106 /*:ref: setmsg_ 14 2 13 124 */
3107 /*:ref: errint_ 14 3 13 4 124 */
3108 /*:ref: sigerr_ 14 2 13 124 */
3109 /*:ref: chkout_ 14 2 13 124 */
3110 /*:ref: ekbseg_ 14 9 4 13 4 13 13 4 124 124 124 */
3111 /*:ref: failed_ 12 0 */
3112 /*:ref: zzekmloc_ 14 4 4 4 4 4 */
3113 /*:ref: dasudi_ 14 4 4 4 4 4 */
3114 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3115 /*:ref: zzekif01_ 14 3 4 4 4 */
3116 /*:ref: zzekif02_ 14 2 4 4 */
3117 
3118 extern int ekinsr_(integer *handle, integer *segno, integer *recno);
3119 /*:ref: return_ 12 0 */
3120 /*:ref: chkin_ 14 2 13 124 */
3121 /*:ref: zzekpgch_ 14 3 4 13 124 */
3122 /*:ref: failed_ 12 0 */
3123 /*:ref: chkout_ 14 2 13 124 */
3124 /*:ref: zzekmloc_ 14 4 4 4 4 4 */
3125 /*:ref: dasrdi_ 14 4 4 4 4 4 */
3126 /*:ref: setmsg_ 14 2 13 124 */
3127 /*:ref: errint_ 14 3 13 4 124 */
3128 /*:ref: sigerr_ 14 2 13 124 */
3129 /*:ref: cleari_ 14 2 4 4 */
3130 /*:ref: filli_ 14 3 4 4 4 */
3131 /*:ref: ekshdw_ 14 2 4 12 */
3132 /*:ref: zzekpgbs_ 14 3 4 4 4 */
3133 /*:ref: dasudi_ 14 4 4 4 4 4 */
3134 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
3135 /*:ref: zzektrin_ 14 4 4 4 4 4 */
3136 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */
3137 
3138 extern integer eknseg_(integer *handle);
3139 /*:ref: return_ 12 0 */
3140 /*:ref: chkin_ 14 2 13 124 */
3141 /*:ref: zzekpgch_ 14 3 4 13 124 */
3142 /*:ref: failed_ 12 0 */
3143 /*:ref: chkout_ 14 2 13 124 */
3144 /*:ref: zzektrbs_ 4 1 4 */
3145 /*:ref: dasrdi_ 14 4 4 4 4 4 */
3146 /*:ref: zzektrsz_ 4 2 4 4 */
3147 
3148 extern int ekopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len);
3149 /*:ref: return_ 12 0 */
3150 /*:ref: chkin_ 14 2 13 124 */
3151 /*:ref: setmsg_ 14 2 13 124 */
3152 /*:ref: errint_ 14 3 13 4 124 */
3153 /*:ref: sigerr_ 14 2 13 124 */
3154 /*:ref: chkout_ 14 2 13 124 */
3155 /*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */
3156 /*:ref: failed_ 12 0 */
3157 /*:ref: zzekpgin_ 14 1 4 */
3158 /*:ref: zzekpgan_ 14 4 4 4 4 4 */
3159 /*:ref: zzektrit_ 14 2 4 4 */
3160 /*:ref: dasudi_ 14 4 4 4 4 4 */
3161 
3162 extern int ekopr_(char *fname, integer *handle, ftnlen fname_len);
3163 /*:ref: return_ 12 0 */
3164 /*:ref: chkin_ 14 2 13 124 */
3165 /*:ref: dasopr_ 14 3 13 4 124 */
3166 /*:ref: failed_ 12 0 */
3167 /*:ref: chkout_ 14 2 13 124 */
3168 /*:ref: zzekpgch_ 14 3 4 13 124 */
3169 
3170 extern int ekops_(integer *handle);
3171 /*:ref: return_ 12 0 */
3172 /*:ref: chkin_ 14 2 13 124 */
3173 /*:ref: dasops_ 14 1 4 */
3174 /*:ref: failed_ 12 0 */
3175 /*:ref: chkout_ 14 2 13 124 */
3176 /*:ref: zzekpgin_ 14 1 4 */
3177 /*:ref: zzekpgan_ 14 4 4 4 4 4 */
3178 /*:ref: zzektrit_ 14 2 4 4 */
3179 /*:ref: dasudi_ 14 4 4 4 4 4 */
3180 
3181 extern int ekopw_(char *fname, integer *handle, ftnlen fname_len);
3182 /*:ref: return_ 12 0 */
3183 /*:ref: chkin_ 14 2 13 124 */
3184 /*:ref: dasopw_ 14 3 13 4 124 */
3185 /*:ref: failed_ 12 0 */
3186 /*:ref: chkout_ 14 2 13 124 */
3187 /*:ref: zzekpgch_ 14 3 4 13 124 */
3188 
3189 extern int ekpsel_(char *query, integer *n, integer *xbegs, integer *xends, char *xtypes, char *xclass, char *tabs, char *cols, logical *error, char *errmsg, ftnlen query_len, ftnlen xtypes_len, ftnlen xclass_len, ftnlen tabs_len, ftnlen cols_len, ftnlen errmsg_len);
3190 /*:ref: return_ 12 0 */
3191 /*:ref: chkin_ 14 2 13 124 */
3192 /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */
3193 /*:ref: zzekencd_ 14 10 13 4 13 7 12 13 4 124 124 124 */
3194 /*:ref: chkout_ 14 2 13 124 */
3195 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
3196 /*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */
3197 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
3198 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
3199 
3200 extern int ekqmgr_(integer *cindex, integer *elment, char *eqryc, doublereal *eqryd, integer *eqryi, char *fname, integer *row, integer *selidx, char *column, integer *handle, integer *n, char *table, integer *attdsc, integer *ccount, logical *found, integer *nelt, integer *nmrows, logical *semerr, char *errmsg, char *cdata, doublereal *ddata, integer *idata, logical *null, ftnlen eqryc_len, ftnlen fname_len, ftnlen column_len, ftnlen table_len, ftnlen errmsg_len, ftnlen cdata_len);
3201 extern int eklef_(char *fname, integer *handle, ftnlen fname_len);
3202 extern int ekuef_(integer *handle);
3203 extern int ekntab_(integer *n);
3204 extern int ektnam_(integer *n, char *table, ftnlen table_len);
3205 extern int ekccnt_(char *table, integer *ccount, ftnlen table_len);
3206 extern int ekcii_(char *table, integer *cindex, char *column, integer *attdsc, ftnlen table_len, ftnlen column_len);
3207 extern int eksrch_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *nmrows, logical *semerr, char *errmsg, ftnlen eqryc_len, ftnlen errmsg_len);
3208 extern int eknelt_(integer *selidx, integer *row, integer *nelt);
3209 extern int ekgc_(integer *selidx, integer *row, integer *elment, char *cdata, logical *null, logical *found, ftnlen cdata_len);
3210 extern int ekgd_(integer *selidx, integer *row, integer *elment, doublereal *ddata, logical *null, logical *found);
3211 extern int ekgi_(integer *selidx, integer *row, integer *elment, integer *idata, logical *null, logical *found);
3212 /*:ref: return_ 12 0 */
3213 /*:ref: chkin_ 14 2 13 124 */
3214 /*:ref: sigerr_ 14 2 13 124 */
3215 /*:ref: chkout_ 14 2 13 124 */
3216 /*:ref: lnkini_ 14 2 4 4 */
3217 /*:ref: ekopr_ 14 3 13 4 124 */
3218 /*:ref: failed_ 12 0 */
3219 /*:ref: dascls_ 14 1 4 */
3220 /*:ref: lnknxt_ 4 2 4 4 */
3221 /*:ref: zzekpgch_ 14 3 4 13 124 */
3222 /*:ref: lnknfn_ 4 1 4 */
3223 /*:ref: setmsg_ 14 2 13 124 */
3224 /*:ref: errhan_ 14 3 13 4 124 */
3225 /*:ref: ekcls_ 14 1 4 */
3226 /*:ref: eknseg_ 4 1 4 */
3227 /*:ref: lnkan_ 14 2 4 4 */
3228 /*:ref: lnkilb_ 14 3 4 4 4 */
3229 /*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */
3230 /*:ref: ssizec_ 14 3 4 13 124 */
3231 /*:ref: movec_ 14 5 13 4 13 124 124 */
3232 /*:ref: validc_ 14 4 4 4 13 124 */
3233 /*:ref: cardc_ 4 2 13 124 */
3234 /*:ref: movei_ 14 3 4 4 4 */
3235 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
3236 /*:ref: lnkfsl_ 14 3 4 4 4 */
3237 /*:ref: lnktl_ 4 2 4 4 */
3238 /*:ref: errint_ 14 3 13 4 124 */
3239 /*:ref: errch_ 14 4 13 13 124 124 */
3240 /*:ref: eqstr_ 12 4 13 13 124 124 */
3241 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
3242 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
3243 /*:ref: ssizei_ 14 2 4 4 */
3244 /*:ref: appndc_ 14 4 13 13 124 124 */
3245 /*:ref: appndi_ 14 2 4 4 */
3246 /*:ref: zzekstop_ 14 1 4 */
3247 /*:ref: zzeksdec_ 14 1 4 */
3248 /*:ref: cleari_ 14 2 4 4 */
3249 /*:ref: zzekqcnj_ 14 3 4 4 4 */
3250 /*:ref: zzekqcon_ 14 24 4 13 7 4 4 13 4 13 4 4 13 4 13 4 4 4 4 7 4 124 124 124 124 124 */
3251 /*:ref: zzekspsh_ 14 2 4 4 */
3252 /*:ref: zzeksupd_ 14 3 4 4 4 */
3253 /*:ref: zzekkey_ 14 20 4 4 4 4 4 4 4 4 13 4 4 7 4 12 4 4 4 4 12 124 */
3254 /*:ref: zzekixlk_ 14 4 4 4 4 4 */
3255 /*:ref: zzekrplk_ 14 4 4 4 4 4 */
3256 /*:ref: zzekrmch_ 12 15 4 12 4 4 4 4 4 4 4 13 4 4 7 4 124 */
3257 /*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */
3258 /*:ref: zzekjsqz_ 14 1 4 */
3259 /*:ref: zzekjoin_ 14 18 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */
3260 /*:ref: zzeksrd_ 14 3 4 4 4 */
3261 /*:ref: zzekweed_ 14 3 4 4 4 */
3262 /*:ref: zzekvset_ 14 2 4 4 */
3263 /*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */
3264 /*:ref: zzekqord_ 14 11 4 13 4 13 4 13 4 4 124 124 124 */
3265 /*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */
3266 /*:ref: zzekvcal_ 14 3 4 4 4 */
3267 /*:ref: zzekesiz_ 4 4 4 4 4 4 */
3268 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
3269 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
3270 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
3271 
3272 extern int ekrcec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len);
3273 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3274 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
3275 /*:ref: failed_ 12 0 */
3276 /*:ref: chkin_ 14 2 13 124 */
3277 /*:ref: setmsg_ 14 2 13 124 */
3278 /*:ref: errch_ 14 4 13 13 124 124 */
3279 /*:ref: errint_ 14 3 13 4 124 */
3280 /*:ref: errhan_ 14 3 13 4 124 */
3281 /*:ref: sigerr_ 14 2 13 124 */
3282 /*:ref: chkout_ 14 2 13 124 */
3283 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
3284 /*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */
3285 /*:ref: zzekesiz_ 4 4 4 4 4 4 */
3286 /*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */
3287 /*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */
3288 
3289 extern int ekrced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len);
3290 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3291 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
3292 /*:ref: failed_ 12 0 */
3293 /*:ref: chkin_ 14 2 13 124 */
3294 /*:ref: setmsg_ 14 2 13 124 */
3295 /*:ref: errch_ 14 4 13 13 124 124 */
3296 /*:ref: errint_ 14 3 13 4 124 */
3297 /*:ref: errhan_ 14 3 13 4 124 */
3298 /*:ref: sigerr_ 14 2 13 124 */
3299 /*:ref: chkout_ 14 2 13 124 */
3300 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
3301 /*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */
3302 /*:ref: zzekesiz_ 4 4 4 4 4 4 */
3303 /*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */
3304 /*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */
3305 
3306 extern int ekrcei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len);
3307 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3308 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
3309 /*:ref: failed_ 12 0 */
3310 /*:ref: chkin_ 14 2 13 124 */
3311 /*:ref: setmsg_ 14 2 13 124 */
3312 /*:ref: errch_ 14 4 13 13 124 124 */
3313 /*:ref: errint_ 14 3 13 4 124 */
3314 /*:ref: errhan_ 14 3 13 4 124 */
3315 /*:ref: sigerr_ 14 2 13 124 */
3316 /*:ref: chkout_ 14 2 13 124 */
3317 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
3318 /*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */
3319 /*:ref: zzekesiz_ 4 4 4 4 4 4 */
3320 /*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */
3321 /*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */
3322 
3323 extern int ekshdw_(integer *handle, logical *isshad);
3324 
3325 extern int ekssum_(integer *handle, integer *segno, char *tabnam, integer *nrows, integer *ncols, char *cnames, char *dtypes, integer *sizes, integer *strlns, logical *indexd, logical *nullok, ftnlen tabnam_len, ftnlen cnames_len, ftnlen dtypes_len);
3326 /*:ref: return_ 12 0 */
3327 /*:ref: chkin_ 14 2 13 124 */
3328 /*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */
3329 /*:ref: failed_ 12 0 */
3330 /*:ref: chkout_ 14 2 13 124 */
3331 
3332 extern int ekucec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len);
3333 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3334 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
3335 /*:ref: failed_ 12 0 */
3336 /*:ref: chkin_ 14 2 13 124 */
3337 /*:ref: setmsg_ 14 2 13 124 */
3338 /*:ref: errch_ 14 4 13 13 124 124 */
3339 /*:ref: errint_ 14 3 13 4 124 */
3340 /*:ref: errhan_ 14 3 13 4 124 */
3341 /*:ref: sigerr_ 14 2 13 124 */
3342 /*:ref: chkout_ 14 2 13 124 */
3343 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
3344 /*:ref: ekshdw_ 14 2 4 12 */
3345 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */
3346 /*:ref: zzekue03_ 14 7 4 4 4 4 13 12 124 */
3347 /*:ref: zzekue06_ 14 8 4 4 4 4 4 13 12 124 */
3348 
3349 extern int ekuced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len);
3350 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3351 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
3352 /*:ref: failed_ 12 0 */
3353 /*:ref: chkin_ 14 2 13 124 */
3354 /*:ref: setmsg_ 14 2 13 124 */
3355 /*:ref: errch_ 14 4 13 13 124 124 */
3356 /*:ref: errint_ 14 3 13 4 124 */
3357 /*:ref: errhan_ 14 3 13 4 124 */
3358 /*:ref: sigerr_ 14 2 13 124 */
3359 /*:ref: chkout_ 14 2 13 124 */
3360 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
3361 /*:ref: ekshdw_ 14 2 4 12 */
3362 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */
3363 /*:ref: zzekue02_ 14 6 4 4 4 4 7 12 */
3364 /*:ref: zzekue05_ 14 7 4 4 4 4 4 7 12 */
3365 
3366 extern int ekucei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len);
3367 /*:ref: zzeksdsc_ 14 3 4 4 4 */
3368 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */
3369 /*:ref: failed_ 12 0 */
3370 /*:ref: chkin_ 14 2 13 124 */
3371 /*:ref: setmsg_ 14 2 13 124 */
3372 /*:ref: errch_ 14 4 13 13 124 124 */
3373 /*:ref: errint_ 14 3 13 4 124 */
3374 /*:ref: errhan_ 14 3 13 4 124 */
3375 /*:ref: sigerr_ 14 2 13 124 */
3376 /*:ref: chkout_ 14 2 13 124 */
3377 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
3378 /*:ref: ekshdw_ 14 2 4 12 */
3379 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */
3380 /*:ref: zzekue01_ 14 6 4 4 4 4 4 12 */
3381 /*:ref: zzekue04_ 14 7 4 4 4 4 4 4 12 */
3382 
3383 extern int el2cgv_(doublereal *ellips, doublereal *center, doublereal *smajor, doublereal *sminor);
3384 /*:ref: vequ_ 14 2 7 7 */
3385 
3386 extern logical elemc_(char *item, char *a, ftnlen item_len, ftnlen a_len);
3387 /*:ref: return_ 12 0 */
3388 /*:ref: chkin_ 14 2 13 124 */
3389 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
3390 /*:ref: cardc_ 4 2 13 124 */
3391 /*:ref: chkout_ 14 2 13 124 */
3392 
3393 extern logical elemd_(doublereal *item, doublereal *a);
3394 /*:ref: return_ 12 0 */
3395 /*:ref: chkin_ 14 2 13 124 */
3396 /*:ref: bsrchd_ 4 3 7 4 7 */
3397 /*:ref: cardd_ 4 1 7 */
3398 /*:ref: chkout_ 14 2 13 124 */
3399 
3400 extern logical elemi_(integer *item, integer *a);
3401 /*:ref: return_ 12 0 */
3402 /*:ref: chkin_ 14 2 13 124 */
3403 /*:ref: bsrchi_ 4 3 4 4 4 */
3404 /*:ref: cardi_ 4 1 4 */
3405 /*:ref: chkout_ 14 2 13 124 */
3406 
3407 extern int elltof_(doublereal *ma, doublereal *ecc, doublereal *e);
3408 /*:ref: return_ 12 0 */
3409 /*:ref: chkin_ 14 2 13 124 */
3410 /*:ref: sigerr_ 14 2 13 124 */
3411 /*:ref: chkout_ 14 2 13 124 */
3412 /*:ref: pi_ 7 0 */
3413 /*:ref: twopi_ 7 0 */
3414 /*:ref: halfpi_ 7 0 */
3415 /*:ref: dcbrt_ 7 1 7 */
3416 
3417 extern int enchar_(integer *number, char *string, ftnlen string_len);
3418 extern int dechar_(char *string, integer *number, ftnlen string_len);
3419 /*:ref: return_ 12 0 */
3420 /*:ref: chkin_ 14 2 13 124 */
3421 /*:ref: sigerr_ 14 2 13 124 */
3422 /*:ref: chkout_ 14 2 13 124 */
3423 /*:ref: chbase_ 4 0 */
3424 
3425 extern logical eqchr_(char *a, char *b, ftnlen a_len, ftnlen b_len);
3426 extern logical nechr_(char *a, char *b, ftnlen a_len, ftnlen b_len);
3427 
3428 extern int eqncpv_(doublereal *et, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, doublereal *state);
3429 /*:ref: return_ 12 0 */
3430 /*:ref: chkin_ 14 2 13 124 */
3431 /*:ref: twopi_ 7 0 */
3432 /*:ref: setmsg_ 14 2 13 124 */
3433 /*:ref: errdp_ 14 3 13 7 124 */
3434 /*:ref: sigerr_ 14 2 13 124 */
3435 /*:ref: chkout_ 14 2 13 124 */
3436 /*:ref: kepleq_ 7 3 7 7 7 */
3437 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
3438 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
3439 /*:ref: mxv_ 14 3 7 7 7 */
3440 
3441 extern logical eqstr_(char *a, char *b, ftnlen a_len, ftnlen b_len);
3442 
3443 extern int erract_(char *op, char *action, ftnlen op_len, ftnlen action_len);
3444 /*:ref: chkin_ 14 2 13 124 */
3445 /*:ref: ljust_ 14 4 13 13 124 124 */
3446 /*:ref: ucase_ 14 4 13 13 124 124 */
3447 /*:ref: getact_ 14 1 4 */
3448 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
3449 /*:ref: putact_ 14 1 4 */
3450 /*:ref: setmsg_ 14 2 13 124 */
3451 /*:ref: sigerr_ 14 2 13 124 */
3452 /*:ref: chkout_ 14 2 13 124 */
3453 
3454 extern int errch_(char *marker, char *string, ftnlen marker_len, ftnlen string_len);
3455 /*:ref: allowd_ 12 0 */
3456 /*:ref: lastnb_ 4 2 13 124 */
3457 /*:ref: getlms_ 14 2 13 124 */
3458 /*:ref: frstnb_ 4 2 13 124 */
3459 /*:ref: nblen_ 4 2 13 124 */
3460 /*:ref: putlms_ 14 2 13 124 */
3461 
3462 extern int errdev_(char *op, char *device, ftnlen op_len, ftnlen device_len);
3463 /*:ref: chkin_ 14 2 13 124 */
3464 /*:ref: ljust_ 14 4 13 13 124 124 */
3465 /*:ref: ucase_ 14 4 13 13 124 124 */
3466 /*:ref: getdev_ 14 2 13 124 */
3467 /*:ref: lastnb_ 4 2 13 124 */
3468 /*:ref: setmsg_ 14 2 13 124 */
3469 /*:ref: sigerr_ 14 2 13 124 */
3470 /*:ref: chkout_ 14 2 13 124 */
3471 /*:ref: putdev_ 14 2 13 124 */
3472 
3473 extern int errdp_(char *marker, doublereal *dpnum, ftnlen marker_len);
3474 /*:ref: allowd_ 12 0 */
3475 /*:ref: lastnb_ 4 2 13 124 */
3476 /*:ref: getlms_ 14 2 13 124 */
3477 /*:ref: dpstr_ 14 4 7 4 13 124 */
3478 /*:ref: ljust_ 14 4 13 13 124 124 */
3479 /*:ref: frstnb_ 4 2 13 124 */
3480 /*:ref: putlms_ 14 2 13 124 */
3481 
3482 extern int errfnm_(char *marker, integer *unit, ftnlen marker_len);
3483 /*:ref: errch_ 14 4 13 13 124 124 */
3484 
3485 extern int errhan_(char *marker, integer *handle, ftnlen marker_len);
3486 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
3487 /*:ref: intstr_ 14 3 4 13 124 */
3488 /*:ref: suffix_ 14 5 13 4 13 124 124 */
3489 /*:ref: errch_ 14 4 13 13 124 124 */
3490 
3491 extern int errint_(char *marker, integer *integr, ftnlen marker_len);
3492 /*:ref: allowd_ 12 0 */
3493 /*:ref: lastnb_ 4 2 13 124 */
3494 /*:ref: getlms_ 14 2 13 124 */
3495 /*:ref: intstr_ 14 3 4 13 124 */
3496 /*:ref: frstnb_ 4 2 13 124 */
3497 /*:ref: putlms_ 14 2 13 124 */
3498 
3499 extern int errprt_(char *op, char *list, ftnlen op_len, ftnlen list_len);
3500 /*:ref: chkin_ 14 2 13 124 */
3501 /*:ref: msgsel_ 12 2 13 124 */
3502 /*:ref: ljust_ 14 4 13 13 124 124 */
3503 /*:ref: ucase_ 14 4 13 13 124 124 */
3504 /*:ref: suffix_ 14 5 13 4 13 124 124 */
3505 /*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */
3506 /*:ref: setmsg_ 14 2 13 124 */
3507 /*:ref: sigerr_ 14 2 13 124 */
3508 /*:ref: setprt_ 12 5 12 12 12 12 12 */
3509 /*:ref: chkout_ 14 2 13 124 */
3510 
3511 extern integer esrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len);
3512 /*:ref: eqstr_ 12 4 13 13 124 124 */
3513 
3514 extern int et2lst_(doublereal *et, integer *body, doublereal *long__, char *type__, integer *hr, integer *mn, integer *sc, char *time, char *ampm, ftnlen type_len, ftnlen time_len, ftnlen ampm_len);
3515 /*:ref: return_ 12 0 */
3516 /*:ref: chkin_ 14 2 13 124 */
3517 /*:ref: ljust_ 14 4 13 13 124 124 */
3518 /*:ref: ucase_ 14 4 13 13 124 124 */
3519 /*:ref: bodc2n_ 14 4 4 13 12 124 */
3520 /*:ref: intstr_ 14 3 4 13 124 */
3521 /*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */
3522 /*:ref: reclat_ 14 4 7 7 7 7 */
3523 /*:ref: setmsg_ 14 2 13 124 */
3524 /*:ref: errch_ 14 4 13 13 124 124 */
3525 /*:ref: sigerr_ 14 2 13 124 */
3526 /*:ref: chkout_ 14 2 13 124 */
3527 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
3528 /*:ref: errint_ 14 3 13 4 124 */
3529 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
3530 /*:ref: rmaind_ 14 4 7 7 7 7 */
3531 /*:ref: twopi_ 7 0 */
3532 /*:ref: pi_ 7 0 */
3533 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
3534 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
3535 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
3536 /*:ref: brcktd_ 7 3 7 7 7 */
3537 /*:ref: dpfmt_ 14 5 7 13 13 124 124 */
3538 
3539 extern int et2utc_(doublereal *et, char *format, integer *prec, char *utcstr, ftnlen format_len, ftnlen utcstr_len);
3540 /*:ref: return_ 12 0 */
3541 /*:ref: chkin_ 14 2 13 124 */
3542 /*:ref: ucase_ 14 4 13 13 124 124 */
3543 /*:ref: setmsg_ 14 2 13 124 */
3544 /*:ref: errch_ 14 4 13 13 124 124 */
3545 /*:ref: sigerr_ 14 2 13 124 */
3546 /*:ref: chkout_ 14 2 13 124 */
3547 /*:ref: ttrans_ 14 5 13 13 7 124 124 */
3548 /*:ref: failed_ 12 0 */
3549 /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */
3550 /*:ref: prefix_ 14 5 13 4 13 124 124 */
3551 /*:ref: unitim_ 7 5 7 13 13 124 124 */
3552 /*:ref: intstr_ 14 3 4 13 124 */
3553 /*:ref: suffix_ 14 5 13 4 13 124 124 */
3554 /*:ref: errint_ 14 3 13 4 124 */
3555 
3556 extern int etcal_(doublereal *et, char *string, ftnlen string_len);
3557 /*:ref: spd_ 7 0 */
3558 /*:ref: intmax_ 4 0 */
3559 /*:ref: intmin_ 4 0 */
3560 /*:ref: lstlti_ 4 3 4 4 4 */
3561 /*:ref: intstr_ 14 3 4 13 124 */
3562 /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */
3563 /*:ref: ljust_ 14 4 13 13 124 124 */
3564 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
3565 
3566 extern int eul2m_(doublereal *angle3, doublereal *angle2, doublereal *angle1, integer *axis3, integer *axis2, integer *axis1, doublereal *r__);
3567 /*:ref: return_ 12 0 */
3568 /*:ref: chkin_ 14 2 13 124 */
3569 /*:ref: setmsg_ 14 2 13 124 */
3570 /*:ref: errint_ 14 3 13 4 124 */
3571 /*:ref: sigerr_ 14 2 13 124 */
3572 /*:ref: chkout_ 14 2 13 124 */
3573 /*:ref: rotate_ 14 3 7 4 7 */
3574 /*:ref: rotmat_ 14 4 7 7 4 7 */
3575 
3576 extern int ev2lin_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state);
3577 /*:ref: chkin_ 14 2 13 124 */
3578 /*:ref: twopi_ 7 0 */
3579 /*:ref: setmsg_ 14 2 13 124 */
3580 /*:ref: errint_ 14 3 13 4 124 */
3581 /*:ref: errdp_ 14 3 13 7 124 */
3582 /*:ref: sigerr_ 14 2 13 124 */
3583 /*:ref: chkout_ 14 2 13 124 */
3584 /*:ref: brcktd_ 7 3 7 7 7 */
3585 
3586 extern logical even_(integer *i__);
3587 
3588 extern doublereal exact_(doublereal *number, doublereal *value, doublereal *tol);
3589 
3590 extern int excess_(integer *number, char *struct__, ftnlen struct_len);
3591 /*:ref: return_ 12 0 */
3592 /*:ref: chkin_ 14 2 13 124 */
3593 /*:ref: intstr_ 14 3 4 13 124 */
3594 /*:ref: prefix_ 14 5 13 4 13 124 124 */
3595 /*:ref: suffix_ 14 5 13 4 13 124 124 */
3596 /*:ref: setmsg_ 14 2 13 124 */
3597 /*:ref: chkout_ 14 2 13 124 */
3598 
3599 extern logical exists_(char *file, ftnlen file_len);
3600 /*:ref: return_ 12 0 */
3601 /*:ref: chkin_ 14 2 13 124 */
3602 /*:ref: setmsg_ 14 2 13 124 */
3603 /*:ref: sigerr_ 14 2 13 124 */
3604 /*:ref: chkout_ 14 2 13 124 */
3605 /*:ref: rtrim_ 4 2 13 124 */
3606 /*:ref: errint_ 14 3 13 4 124 */
3607 
3608 extern int expln_(char *msg, char *expl, ftnlen msg_len, ftnlen expl_len);
3609 
3610 extern integer fetchc_(integer *nth, char *set, ftnlen set_len);
3611 /*:ref: return_ 12 0 */
3612 /*:ref: chkin_ 14 2 13 124 */
3613 /*:ref: cardc_ 4 2 13 124 */
3614 /*:ref: setmsg_ 14 2 13 124 */
3615 /*:ref: errint_ 14 3 13 4 124 */
3616 /*:ref: sigerr_ 14 2 13 124 */
3617 /*:ref: chkout_ 14 2 13 124 */
3618 
3619 extern integer fetchd_(integer *nth, doublereal *set);
3620 /*:ref: return_ 12 0 */
3621 /*:ref: chkin_ 14 2 13 124 */
3622 /*:ref: cardd_ 4 1 7 */
3623 /*:ref: setmsg_ 14 2 13 124 */
3624 /*:ref: errint_ 14 3 13 4 124 */
3625 /*:ref: sigerr_ 14 2 13 124 */
3626 /*:ref: chkout_ 14 2 13 124 */
3627 
3628 extern integer fetchi_(integer *nth, integer *set);
3629 /*:ref: return_ 12 0 */
3630 /*:ref: chkin_ 14 2 13 124 */
3631 /*:ref: cardi_ 4 1 4 */
3632 /*:ref: setmsg_ 14 2 13 124 */
3633 /*:ref: errint_ 14 3 13 4 124 */
3634 /*:ref: sigerr_ 14 2 13 124 */
3635 /*:ref: chkout_ 14 2 13 124 */
3636 
3637 extern int fillc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len);
3638 
3639 extern int filld_(doublereal *value, integer *ndim, doublereal *array);
3640 
3641 extern int filli_(integer *value, integer *ndim, integer *array);
3642 
3643 extern int fn2lun_(char *filnam, integer *lunit, ftnlen filnam_len);
3644 /*:ref: return_ 12 0 */
3645 /*:ref: chkin_ 14 2 13 124 */
3646 /*:ref: setmsg_ 14 2 13 124 */
3647 /*:ref: sigerr_ 14 2 13 124 */
3648 /*:ref: chkout_ 14 2 13 124 */
3649 /*:ref: errch_ 14 4 13 13 124 124 */
3650 /*:ref: errint_ 14 3 13 4 124 */
3651 
3652 extern int fndlun_(integer *unit);
3653 extern int reslun_(integer *unit);
3654 extern int frelun_(integer *unit);
3655 
3656 extern int fndnwd_(char *string, integer *start, integer *b, integer *e, ftnlen string_len);
3657 
3658 extern int fovray_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
3659 /*:ref: return_ 12 0 */
3660 /*:ref: chkin_ 14 2 13 124 */
3661 /*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */
3662 /*:ref: failed_ 12 0 */
3663 /*:ref: chkout_ 14 2 13 124 */
3664 /*:ref: zzgffvst_ 14 2 7 12 */
3665 
3666 extern int fovtrg_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
3667 /*:ref: return_ 12 0 */
3668 /*:ref: chkin_ 14 2 13 124 */
3669 /*:ref: eqstr_ 12 4 13 13 124 124 */
3670 /*:ref: setmsg_ 14 2 13 124 */
3671 /*:ref: sigerr_ 14 2 13 124 */
3672 /*:ref: chkout_ 14 2 13 124 */
3673 /*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */
3674 /*:ref: failed_ 12 0 */
3675 /*:ref: zzgffvst_ 14 2 7 12 */
3676 
3677 extern int frame_(doublereal *x, doublereal *y, doublereal *z__);
3678 /*:ref: vhatip_ 14 1 7 */
3679 
3680 extern int framex_(char *cname, char *frname, integer *frcode, integer *cent, integer *class__, integer *clssid, logical *found, ftnlen cname_len, ftnlen frname_len);
3681 extern int namfrm_(char *frname, integer *frcode, ftnlen frname_len);
3682 extern int frmnam_(integer *frcode, char *frname, ftnlen frname_len);
3683 extern int frinfo_(integer *frcode, integer *cent, integer *class__, integer *clssid, logical *found);
3684 extern int cidfrm_(integer *cent, integer *frcode, char *frname, logical *found, ftnlen frname_len);
3685 extern int cnmfrm_(char *cname, integer *frcode, char *frname, logical *found, ftnlen cname_len, ftnlen frname_len);
3686 extern int ccifrm_(integer *class__, integer *clssid, integer *frcode, char *frname, integer *cent, logical *found, ftnlen frname_len);
3687 /*:ref: chkin_ 14 2 13 124 */
3688 /*:ref: setmsg_ 14 2 13 124 */
3689 /*:ref: sigerr_ 14 2 13 124 */
3690 /*:ref: chkout_ 14 2 13 124 */
3691 /*:ref: return_ 12 0 */
3692 /*:ref: zzctruin_ 14 1 4 */
3693 /*:ref: zzhsiini_ 14 3 4 4 4 */
3694 /*:ref: zzhscini_ 14 3 4 4 4 */
3695 /*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */
3696 /*:ref: failed_ 12 0 */
3697 /*:ref: ljust_ 14 4 13 13 124 124 */
3698 /*:ref: ucase_ 14 4 13 13 124 124 */
3699 /*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */
3700 /*:ref: zzpctrck_ 14 2 4 12 */
3701 /*:ref: prefix_ 14 5 13 4 13 124 124 */
3702 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
3703 /*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */
3704 /*:ref: zzhsichk_ 14 5 4 4 4 4 4 */
3705 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
3706 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
3707 /*:ref: errch_ 14 4 13 13 124 124 */
3708 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
3709 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
3710 /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */
3711 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
3712 /*:ref: bodc2n_ 14 4 4 13 12 124 */
3713 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
3714 /*:ref: bschoi_ 4 4 4 4 4 4 */
3715 /*:ref: bodn2c_ 14 4 13 4 12 124 */
3716 /*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */
3717 /*:ref: suffix_ 14 5 13 4 13 124 124 */
3718 
3719 extern int frmchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform);
3720 /*:ref: return_ 12 0 */
3721 /*:ref: chkin_ 14 2 13 124 */
3722 /*:ref: chkout_ 14 2 13 124 */
3723 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
3724 /*:ref: setmsg_ 14 2 13 124 */
3725 /*:ref: errint_ 14 3 13 4 124 */
3726 /*:ref: sigerr_ 14 2 13 124 */
3727 /*:ref: frmget_ 14 5 4 7 7 4 12 */
3728 /*:ref: zzmsxf_ 14 3 7 4 7 */
3729 /*:ref: isrchi_ 4 3 4 4 4 */
3730 /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */
3731 /*:ref: failed_ 12 0 */
3732 /*:ref: invstm_ 14 2 7 7 */
3733 
3734 extern int frmget_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found);
3735 /*:ref: return_ 12 0 */
3736 /*:ref: chkin_ 14 2 13 124 */
3737 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
3738 /*:ref: cleard_ 14 2 4 7 */
3739 /*:ref: chkout_ 14 2 13 124 */
3740 /*:ref: irfrot_ 14 3 4 4 7 */
3741 /*:ref: failed_ 12 0 */
3742 /*:ref: tisbod_ 14 5 13 4 7 7 124 */
3743 /*:ref: invstm_ 14 2 7 7 */
3744 /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */
3745 /*:ref: tkfram_ 14 4 4 7 4 12 */
3746 /*:ref: zzdynfrm_ 14 5 4 4 7 7 4 */
3747 /*:ref: setmsg_ 14 2 13 124 */
3748 /*:ref: errint_ 14 3 13 4 124 */
3749 /*:ref: errch_ 14 4 13 13 124 124 */
3750 /*:ref: sigerr_ 14 2 13 124 */
3751 
3752 extern integer frstnb_(char *string, ftnlen string_len);
3753 
3754 extern integer frstnp_(char *string, ftnlen string_len);
3755 
3756 extern integer frstpc_(char *string, ftnlen string_len);
3757 
3758 extern integer gcd_(integer *a, integer *b);
3759 
3760 extern int georec_(doublereal *long__, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan);
3761 /*:ref: return_ 12 0 */
3762 /*:ref: chkin_ 14 2 13 124 */
3763 /*:ref: setmsg_ 14 2 13 124 */
3764 /*:ref: errdp_ 14 3 13 7 124 */
3765 /*:ref: sigerr_ 14 2 13 124 */
3766 /*:ref: chkout_ 14 2 13 124 */
3767 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
3768 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
3769 
3770 extern int getelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, ftnlen lines_len);
3771 /*:ref: return_ 12 0 */
3772 /*:ref: chkin_ 14 2 13 124 */
3773 /*:ref: zzgetelm_ 14 8 4 13 7 7 12 13 124 124 */
3774 /*:ref: setmsg_ 14 2 13 124 */
3775 /*:ref: errch_ 14 4 13 13 124 124 */
3776 /*:ref: sigerr_ 14 2 13 124 */
3777 /*:ref: chkout_ 14 2 13 124 */
3778 
3779 extern int getfat_(char *file, char *arch, char *kertyp, ftnlen file_len, ftnlen arch_len, ftnlen kertyp_len);
3780 /*:ref: return_ 12 0 */
3781 /*:ref: chkin_ 14 2 13 124 */
3782 /*:ref: setmsg_ 14 2 13 124 */
3783 /*:ref: sigerr_ 14 2 13 124 */
3784 /*:ref: chkout_ 14 2 13 124 */
3785 /*:ref: zzddhfnh_ 14 4 13 4 12 124 */
3786 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
3787 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
3788 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
3789 /*:ref: errint_ 14 3 13 4 124 */
3790 /*:ref: errch_ 14 4 13 13 124 124 */
3791 /*:ref: getlun_ 14 1 4 */
3792 /*:ref: ljust_ 14 4 13 13 124 124 */
3793 /*:ref: ucase_ 14 4 13 13 124 124 */
3794 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
3795 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */
3796 /*:ref: dafopr_ 14 3 13 4 124 */
3797 /*:ref: zzckspk_ 14 3 4 13 124 */
3798 /*:ref: dafcls_ 14 1 4 */
3799 
3800 extern int getfov_(integer *instid, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen shape_len, ftnlen frame_len);
3801 /*:ref: return_ 12 0 */
3802 /*:ref: chkin_ 14 2 13 124 */
3803 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
3804 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
3805 /*:ref: setmsg_ 14 2 13 124 */
3806 /*:ref: errch_ 14 4 13 13 124 124 */
3807 /*:ref: rtrim_ 4 2 13 124 */
3808 /*:ref: errint_ 14 3 13 4 124 */
3809 /*:ref: sigerr_ 14 2 13 124 */
3810 /*:ref: chkout_ 14 2 13 124 */
3811 /*:ref: ucase_ 14 4 13 13 124 124 */
3812 /*:ref: ljust_ 14 4 13 13 124 124 */
3813 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
3814 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
3815 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
3816 /*:ref: eqstr_ 12 4 13 13 124 124 */
3817 /*:ref: suffix_ 14 5 13 4 13 124 124 */
3818 /*:ref: vcrss_ 14 3 7 7 7 */
3819 /*:ref: vnorm_ 7 1 7 */
3820 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
3821 /*:ref: vrotv_ 14 4 7 7 7 7 */
3822 /*:ref: vequ_ 14 2 7 7 */
3823 /*:ref: unorm_ 14 3 7 7 7 */
3824 /*:ref: vperp_ 14 3 7 7 7 */
3825 /*:ref: vhat_ 14 2 7 7 */
3826 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
3827 /*:ref: vscl_ 14 3 7 7 7 */
3828 
3829 extern int getlun_(integer *unit);
3830 /*:ref: return_ 12 0 */
3831 /*:ref: chkin_ 14 2 13 124 */
3832 /*:ref: fndlun_ 14 1 4 */
3833 /*:ref: setmsg_ 14 2 13 124 */
3834 /*:ref: sigerr_ 14 2 13 124 */
3835 /*:ref: chkout_ 14 2 13 124 */
3836 /*:ref: errint_ 14 3 13 4 124 */
3837 
3838 extern int getmsg_(char *option, char *msg, ftnlen option_len, ftnlen msg_len);
3839 /*:ref: ljust_ 14 4 13 13 124 124 */
3840 /*:ref: ucase_ 14 4 13 13 124 124 */
3841 /*:ref: getsms_ 14 2 13 124 */
3842 /*:ref: expln_ 14 4 13 13 124 124 */
3843 /*:ref: getlms_ 14 2 13 124 */
3844 /*:ref: setmsg_ 14 2 13 124 */
3845 /*:ref: sigerr_ 14 2 13 124 */
3846 
3847 extern logical gfbail_(void);
3848 
3849 extern int gfdist_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len);
3850 /*:ref: return_ 12 0 */
3851 /*:ref: chkin_ 14 2 13 124 */
3852 /*:ref: setmsg_ 14 2 13 124 */
3853 /*:ref: errint_ 14 3 13 4 124 */
3854 /*:ref: sigerr_ 14 2 13 124 */
3855 /*:ref: chkout_ 14 2 13 124 */
3856 /*:ref: sized_ 4 1 7 */
3857 /*:ref: gfsstp_ 14 1 7 */
3858 /*:ref: zzholdd_ 14 4 4 4 12 7 */
3859 /*:ref: scardd_ 14 2 4 7 */
3860 /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */
3861 /*:ref: gfbail_ 12 :*/
3862 
3863 extern int gfevnt_(U_fp udstep, U_fp udrefn, char *gquant, integer *qnpars, char *qpnams, char *qcpars, doublereal *qdpars, integer *qipars, logical *qlpars, char *op, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, integer *mw, integer *nw, doublereal *work, logical *bail, L_fp udbail, doublereal *result, ftnlen gquant_len, ftnlen qpnams_len, ftnlen qcpars_len, ftnlen op_len);
3864 /*:ref: return_ 12 0 */
3865 /*:ref: chkin_ 14 2 13 124 */
3866 /*:ref: ljust_ 14 4 13 13 124 124 */
3867 /*:ref: ucase_ 14 4 13 13 124 124 */
3868 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
3869 /*:ref: setmsg_ 14 2 13 124 */
3870 /*:ref: errch_ 14 4 13 13 124 124 */
3871 /*:ref: sigerr_ 14 2 13 124 */
3872 /*:ref: chkout_ 14 2 13 124 */
3873 /*:ref: errint_ 14 3 13 4 124 */
3874 /*:ref: vequ_ 14 2 7 7 */
3875 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
3876 /*:ref: zzgfspin_ 14 10 13 13 13 13 13 124 124 124 124 124 */
3877 /*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */
3878 /*:ref: zzgfdiin_ 14 6 13 13 13 124 124 124 */
3879 /*:ref: zzgfcslv_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 200 200 200 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */
3880 /*:ref: zzgfrrin_ 14 7 13 13 13 7 124 124 124 */
3881 /*:ref: zzgfpain_ 14 8 13 13 13 13 124 124 124 124 */
3882 /*:ref: zzgfilin_ 14 15 13 13 13 13 13 13 13 7 124 124 124 124 124 124 124 */
3883 
3884 extern int gffove_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
3885 /*:ref: return_ 12 0 */
3886 /*:ref: chkin_ 14 2 13 124 */
3887 /*:ref: sized_ 4 1 7 */
3888 /*:ref: setmsg_ 14 2 13 124 */
3889 /*:ref: errint_ 14 3 13 4 124 */
3890 /*:ref: sigerr_ 14 2 13 124 */
3891 /*:ref: chkout_ 14 2 13 124 */
3892 /*:ref: scardd_ 14 2 4 7 */
3893 /*:ref: errdp_ 14 3 13 7 124 */
3894 /*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */
3895 /*:ref: failed_ 12 0 */
3896 /*:ref: wncard_ 4 1 7 */
3897 /*:ref: wnfetd_ 14 4 7 4 7 7 */
3898 /*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */
3899 
3900 extern int gfilum_(char *method, char *angtyp, char *target, char *illmn, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illmn_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len);
3901 /*:ref: return_ 12 0 */
3902 /*:ref: chkin_ 14 2 13 124 */
3903 /*:ref: sized_ 4 1 7 */
3904 /*:ref: setmsg_ 14 2 13 124 */
3905 /*:ref: errint_ 14 3 13 4 124 */
3906 /*:ref: sigerr_ 14 2 13 124 */
3907 /*:ref: chkout_ 14 2 13 124 */
3908 /*:ref: moved_ 14 3 7 4 7 */
3909 /*:ref: errdp_ 14 3 13 7 124 */
3910 /*:ref: gfsstp_ 14 1 7 */
3911 /*:ref: zzholdd_ 14 4 4 4 12 7 */
3912 /*:ref: scardd_ 14 2 4 7 */
3913 /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */
3914 /*:ref: gfbail_ 12 :*/
3915 
3916 extern int gfocce_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
3917 /*:ref: return_ 12 0 */
3918 /*:ref: chkin_ 14 2 13 124 */
3919 /*:ref: sized_ 4 1 7 */
3920 /*:ref: setmsg_ 14 2 13 124 */
3921 /*:ref: errint_ 14 3 13 4 124 */
3922 /*:ref: sigerr_ 14 2 13 124 */
3923 /*:ref: chkout_ 14 2 13 124 */
3924 /*:ref: scardd_ 14 2 4 7 */
3925 /*:ref: errdp_ 14 3 13 7 124 */
3926 /*:ref: ljust_ 14 4 13 13 124 124 */
3927 /*:ref: ucase_ 14 4 13 13 124 124 */
3928 /*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */
3929 /*:ref: failed_ 12 0 */
3930 /*:ref: wncard_ 4 1 7 */
3931 /*:ref: wnfetd_ 14 4 7 4 7 7 */
3932 /*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */
3933 
3934 extern int gfoclt_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
3935 /*:ref: return_ 12 0 */
3936 /*:ref: chkin_ 14 2 13 124 */
3937 /*:ref: sized_ 4 1 7 */
3938 /*:ref: setmsg_ 14 2 13 124 */
3939 /*:ref: errint_ 14 3 13 4 124 */
3940 /*:ref: sigerr_ 14 2 13 124 */
3941 /*:ref: chkout_ 14 2 13 124 */
3942 /*:ref: gfsstp_ 14 1 7 */
3943 /*:ref: zzholdd_ 14 4 4 4 12 7 */
3944 /*:ref: gfocce_ 14 29 13 13 13 13 13 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 124 124 124 */
3945 /*:ref: gfbail_ 12 :*/
3946 
3947 extern int gfpa_(char *target, char *illmn, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len);
3948 /*:ref: return_ 12 0 */
3949 /*:ref: chkin_ 14 2 13 124 */
3950 /*:ref: odd_ 12 1 4 */
3951 /*:ref: setmsg_ 14 2 13 124 */
3952 /*:ref: errint_ 14 3 13 4 124 */
3953 /*:ref: sigerr_ 14 2 13 124 */
3954 /*:ref: chkout_ 14 2 13 124 */
3955 /*:ref: sized_ 4 1 7 */
3956 /*:ref: gfsstp_ 14 1 7 */
3957 /*:ref: zzholdd_ 14 4 4 4 12 7 */
3958 /*:ref: scardd_ 14 2 4 7 */
3959 /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */
3960 /*:ref: gfbail_ 12 :*/
3961 
3962 extern int gfposc_(char *target, char *frame, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len);
3963 /*:ref: return_ 12 0 */
3964 /*:ref: chkin_ 14 2 13 124 */
3965 /*:ref: even_ 12 1 4 */
3966 /*:ref: setmsg_ 14 2 13 124 */
3967 /*:ref: errint_ 14 3 13 4 124 */
3968 /*:ref: sigerr_ 14 2 13 124 */
3969 /*:ref: chkout_ 14 2 13 124 */
3970 /*:ref: sized_ 4 1 7 */
3971 /*:ref: gfsstp_ 14 1 7 */
3972 /*:ref: zzholdd_ 14 4 4 4 12 7 */
3973 /*:ref: scardd_ 14 2 4 7 */
3974 /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */
3975 /*:ref: gfbail_ 12 :*/
3976 
3977 extern int gfrefn_(doublereal *t1, doublereal *t2, logical *s1, logical *s2, doublereal *t);
3978 /*:ref: brcktd_ 7 3 7 7 7 */
3979 
3980 extern int gfrfov_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
3981 /*:ref: return_ 12 0 */
3982 /*:ref: chkin_ 14 2 13 124 */
3983 /*:ref: sized_ 4 1 7 */
3984 /*:ref: setmsg_ 14 2 13 124 */
3985 /*:ref: errint_ 14 3 13 4 124 */
3986 /*:ref: sigerr_ 14 2 13 124 */
3987 /*:ref: chkout_ 14 2 13 124 */
3988 /*:ref: gfsstp_ 14 1 7 */
3989 /*:ref: zzholdd_ 14 4 4 4 12 7 */
3990 /*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */
3991 /*:ref: gfbail_ 12 :*/
3992 
3993 extern int gfrprt_(doublereal *window, char *begmss, char *endmss, doublereal *ivbeg, doublereal *ivend, doublereal *time, ftnlen begmss_len, ftnlen endmss_len);
3994 extern int gfrepi_(doublereal *window, char *begmss, char *endmss, ftnlen begmss_len, ftnlen endmss_len);
3995 extern int gfrepu_(doublereal *ivbeg, doublereal *ivend, doublereal *time);
3996 extern int gfrepf_(void);
3997 /*:ref: chkin_ 14 2 13 124 */
3998 /*:ref: sigerr_ 14 2 13 124 */
3999 /*:ref: chkout_ 14 2 13 124 */
4000 /*:ref: return_ 12 0 */
4001 /*:ref: lastnb_ 4 2 13 124 */
4002 /*:ref: setmsg_ 14 2 13 124 */
4003 /*:ref: errint_ 14 3 13 4 124 */
4004 /*:ref: wnsumd_ 14 6 7 7 7 7 4 4 */
4005 /*:ref: zzgftswk_ 14 7 7 7 4 13 13 124 124 */
4006 /*:ref: failed_ 12 0 */
4007 /*:ref: cardd_ 4 1 7 */
4008 /*:ref: errdp_ 14 3 13 7 124 */
4009 /*:ref: zzgfwkin_ 14 1 7 */
4010 /*:ref: zzgfwkad_ 14 6 7 4 13 13 124 124 */
4011 /*:ref: zzgfwkmo_ 14 9 4 7 7 4 13 13 7 124 124 */
4012 /*:ref: stdio_ 14 3 13 4 124 */
4013 /*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */
4014 
4015 extern int gfrr_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len);
4016 /*:ref: return_ 12 0 */
4017 /*:ref: chkin_ 14 2 13 124 */
4018 /*:ref: odd_ 12 1 4 */
4019 /*:ref: setmsg_ 14 2 13 124 */
4020 /*:ref: errint_ 14 3 13 4 124 */
4021 /*:ref: sigerr_ 14 2 13 124 */
4022 /*:ref: chkout_ 14 2 13 124 */
4023 /*:ref: sized_ 4 1 7 */
4024 /*:ref: gfsstp_ 14 1 7 */
4025 /*:ref: zzholdd_ 14 4 4 4 12 7 */
4026 /*:ref: scardd_ 14 2 4 7 */
4027 /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */
4028 /*:ref: gfbail_ 12 :*/
4029 
4030 extern int gfsep_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len);
4031 /*:ref: return_ 12 0 */
4032 /*:ref: chkin_ 14 2 13 124 */
4033 /*:ref: even_ 12 1 4 */
4034 /*:ref: setmsg_ 14 2 13 124 */
4035 /*:ref: errint_ 14 3 13 4 124 */
4036 /*:ref: sigerr_ 14 2 13 124 */
4037 /*:ref: chkout_ 14 2 13 124 */
4038 /*:ref: sized_ 4 1 7 */
4039 /*:ref: gfsstp_ 14 1 7 */
4040 /*:ref: zzholdd_ 14 4 4 4 12 7 */
4041 /*:ref: scardd_ 14 2 4 7 */
4042 /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */
4043 /*:ref: gfbail_ 12 :*/
4044 
4045 extern int gfsntc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len);
4046 /*:ref: return_ 12 0 */
4047 /*:ref: chkin_ 14 2 13 124 */
4048 /*:ref: even_ 12 1 4 */
4049 /*:ref: setmsg_ 14 2 13 124 */
4050 /*:ref: errint_ 14 3 13 4 124 */
4051 /*:ref: sigerr_ 14 2 13 124 */
4052 /*:ref: chkout_ 14 2 13 124 */
4053 /*:ref: sized_ 4 1 7 */
4054 /*:ref: gfsstp_ 14 1 7 */
4055 /*:ref: zzholdd_ 14 4 4 4 12 7 */
4056 /*:ref: scardd_ 14 2 4 7 */
4057 /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */
4058 /*:ref: gfbail_ 12 :*/
4059 
4060 extern int gfstep_(doublereal *time, doublereal *step);
4061 extern int gfsstp_(doublereal *step);
4062 /*:ref: chkin_ 14 2 13 124 */
4063 /*:ref: setmsg_ 14 2 13 124 */
4064 /*:ref: sigerr_ 14 2 13 124 */
4065 /*:ref: chkout_ 14 2 13 124 */
4066 /*:ref: errdp_ 14 3 13 7 124 */
4067 
4068 extern int gfstol_(doublereal *value);
4069 /*:ref: return_ 12 0 */
4070 /*:ref: chkin_ 14 2 13 124 */
4071 /*:ref: setmsg_ 14 2 13 124 */
4072 /*:ref: errdp_ 14 3 13 7 124 */
4073 /*:ref: sigerr_ 14 2 13 124 */
4074 /*:ref: chkout_ 14 2 13 124 */
4075 /*:ref: zzholdd_ 14 4 4 4 12 7 */
4076 
4077 extern int gfsubc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len);
4078 /*:ref: return_ 12 0 */
4079 /*:ref: chkin_ 14 2 13 124 */
4080 /*:ref: even_ 12 1 4 */
4081 /*:ref: setmsg_ 14 2 13 124 */
4082 /*:ref: errint_ 14 3 13 4 124 */
4083 /*:ref: sigerr_ 14 2 13 124 */
4084 /*:ref: chkout_ 14 2 13 124 */
4085 /*:ref: sized_ 4 1 7 */
4086 /*:ref: gfsstp_ 14 1 7 */
4087 /*:ref: zzholdd_ 14 4 4 4 12 7 */
4088 /*:ref: scardd_ 14 2 4 7 */
4089 /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */
4090 /*:ref: gfbail_ 12 :*/
4091 
4092 extern int gftfov_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
4093 /*:ref: return_ 12 0 */
4094 /*:ref: chkin_ 14 2 13 124 */
4095 /*:ref: eqstr_ 12 4 13 13 124 124 */
4096 /*:ref: setmsg_ 14 2 13 124 */
4097 /*:ref: sigerr_ 14 2 13 124 */
4098 /*:ref: chkout_ 14 2 13 124 */
4099 /*:ref: sized_ 4 1 7 */
4100 /*:ref: errint_ 14 3 13 4 124 */
4101 /*:ref: gfsstp_ 14 1 7 */
4102 /*:ref: zzholdd_ 14 4 4 4 12 7 */
4103 /*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */
4104 /*:ref: gfbail_ 12 :*/
4105 
4106 extern int gfudb_(U_fp udfuns, U_fp udfunb, doublereal *step, doublereal *cnfine, doublereal *result);
4107 /*:ref: return_ 12 0 */
4108 /*:ref: chkin_ 14 2 13 124 */
4109 /*:ref: sized_ 4 1 7 */
4110 /*:ref: odd_ 12 1 4 */
4111 /*:ref: setmsg_ 14 2 13 124 */
4112 /*:ref: errint_ 14 3 13 4 124 */
4113 /*:ref: sigerr_ 14 2 13 124 */
4114 /*:ref: chkout_ 14 2 13 124 */
4115 /*:ref: gfsstp_ 14 1 7 */
4116 /*:ref: zzholdd_ 14 4 4 4 12 7 */
4117 /*:ref: scardd_ 14 2 4 7 */
4118 /*:ref: zzgfudb_ 14 13 200 200 7 200 200 12 200 200 200 12 212 7 7 */
4119 /*:ref: gfbail_ 12 :*/
4120 
4121 extern int gfuds_(U_fp udfuns, U_fp udqdec, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen relate_len);
4122 /*:ref: return_ 12 0 */
4123 /*:ref: chkin_ 14 2 13 124 */
4124 /*:ref: setmsg_ 14 2 13 124 */
4125 /*:ref: errint_ 14 3 13 4 124 */
4126 /*:ref: sigerr_ 14 2 13 124 */
4127 /*:ref: chkout_ 14 2 13 124 */
4128 /*:ref: odd_ 12 1 4 */
4129 /*:ref: sized_ 4 1 7 */
4130 /*:ref: gfsstp_ 14 1 7 */
4131 /*:ref: zzholdd_ 14 4 4 4 12 7 */
4132 /*:ref: scardd_ 14 2 4 7 */
4133 /*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */
4134 /*:ref: gfbail_ 12 :*/
4135 
4136 extern doublereal halfpi_(void);
4137 
4138 extern int hrmesp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df);
4139 /*:ref: return_ 12 0 */
4140 /*:ref: chkin_ 14 2 13 124 */
4141 /*:ref: setmsg_ 14 2 13 124 */
4142 /*:ref: errint_ 14 3 13 4 124 */
4143 /*:ref: sigerr_ 14 2 13 124 */
4144 /*:ref: chkout_ 14 2 13 124 */
4145 
4146 extern int hrmint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df);
4147 /*:ref: return_ 12 0 */
4148 /*:ref: chkin_ 14 2 13 124 */
4149 /*:ref: setmsg_ 14 2 13 124 */
4150 /*:ref: errint_ 14 3 13 4 124 */
4151 /*:ref: sigerr_ 14 2 13 124 */
4152 /*:ref: chkout_ 14 2 13 124 */
4153 /*:ref: errdp_ 14 3 13 7 124 */
4154 
4155 extern int hx2dp_(char *string, doublereal *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len);
4156 /*:ref: dpmin_ 7 0 */
4157 /*:ref: dpmax_ 7 0 */
4158 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
4159 /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */
4160 
4161 extern int hx2int_(char *string, integer *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len);
4162 /*:ref: intmin_ 4 0 */
4163 /*:ref: intmax_ 4 0 */
4164 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
4165 
4166 extern int hyptof_(doublereal *ma, doublereal *ecc, doublereal *f);
4167 /*:ref: return_ 12 0 */
4168 /*:ref: chkin_ 14 2 13 124 */
4169 /*:ref: dpmax_ 7 0 */
4170 /*:ref: sigerr_ 14 2 13 124 */
4171 /*:ref: chkout_ 14 2 13 124 */
4172 /*:ref: dcbrt_ 7 1 7 */
4173 
4174 extern int ident_(doublereal *matrix);
4175 
4176 extern int idw2at_(char *idword, char *arch, char *type__, ftnlen idword_len, ftnlen arch_len, ftnlen type_len);
4177 /*:ref: return_ 12 0 */
4178 /*:ref: chkin_ 14 2 13 124 */
4179 /*:ref: chkout_ 14 2 13 124 */
4180 /*:ref: pos_ 4 5 13 13 4 124 124 */
4181 
4182 extern int illum_(char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *phase, doublereal *solar, doublereal *emissn, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len);
4183 /*:ref: return_ 12 0 */
4184 /*:ref: chkin_ 14 2 13 124 */
4185 /*:ref: zzctruin_ 14 1 4 */
4186 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
4187 /*:ref: setmsg_ 14 2 13 124 */
4188 /*:ref: errch_ 14 4 13 13 124 124 */
4189 /*:ref: sigerr_ 14 2 13 124 */
4190 /*:ref: chkout_ 14 2 13 124 */
4191 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
4192 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
4193 /*:ref: eqstr_ 12 4 13 13 124 124 */
4194 /*:ref: vminus_ 14 2 7 7 */
4195 /*:ref: vequ_ 14 2 7 7 */
4196 /*:ref: vsub_ 14 3 7 7 7 */
4197 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
4198 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
4199 /*:ref: vsep_ 7 2 7 7 */
4200 
4201 extern int illumf_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, logical *visibl, logical *lit, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
4202 /*:ref: return_ 12 0 */
4203 /*:ref: chkin_ 14 2 13 124 */
4204 /*:ref: zzctruin_ 14 1 4 */
4205 /*:ref: zzvalcor_ 14 3 13 12 124 */
4206 /*:ref: failed_ 12 0 */
4207 /*:ref: chkout_ 14 2 13 124 */
4208 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
4209 /*:ref: setmsg_ 14 2 13 124 */
4210 /*:ref: errch_ 14 4 13 13 124 124 */
4211 /*:ref: sigerr_ 14 2 13 124 */
4212 /*:ref: zzsrftrk_ 14 2 4 12 */
4213 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
4214 /*:ref: eqstr_ 12 4 13 13 124 124 */
4215 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
4216 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
4217 /*:ref: errint_ 14 3 13 4 124 */
4218 /*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */
4219 /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */
4220 /*:ref: vequ_ 14 2 7 7 */
4221 /*:ref: vminus_ 14 2 7 7 */
4222 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
4223 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
4224 /*:ref: zzsudski_ 14 4 4 4 4 4 */
4225 /*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */
4226 /*:ref: vhatip_ 14 1 7 */
4227 /*:ref: vsep_ 7 2 7 7 */
4228 /*:ref: halfpi_ 7 0 */
4229 /*:ref: zzmaxrad_ 14 1 7 */
4230 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
4231 /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */
4232 
4233 extern int illumg_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
4234 /*:ref: return_ 12 0 */
4235 /*:ref: chkin_ 14 2 13 124 */
4236 /*:ref: zzctruin_ 14 1 4 */
4237 /*:ref: zzvalcor_ 14 3 13 12 124 */
4238 /*:ref: failed_ 12 0 */
4239 /*:ref: chkout_ 14 2 13 124 */
4240 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
4241 /*:ref: setmsg_ 14 2 13 124 */
4242 /*:ref: errch_ 14 4 13 13 124 124 */
4243 /*:ref: sigerr_ 14 2 13 124 */
4244 /*:ref: zzsrftrk_ 14 2 4 12 */
4245 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
4246 /*:ref: eqstr_ 12 4 13 13 124 124 */
4247 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
4248 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
4249 /*:ref: errint_ 14 3 13 4 124 */
4250 /*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */
4251 /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */
4252 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
4253 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
4254 /*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */
4255 /*:ref: vequ_ 14 2 7 7 */
4256 /*:ref: vminus_ 14 2 7 7 */
4257 /*:ref: vsep_ 7 2 7 7 */
4258 
4259 extern int ilumin_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *solar, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
4260 /*:ref: return_ 12 0 */
4261 /*:ref: chkin_ 14 2 13 124 */
4262 /*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */
4263 /*:ref: chkout_ 14 2 13 124 */
4264 
4265 extern int incnsg_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, integer *nxpts, doublereal *xpt1, doublereal *xpt2);
4266 /*:ref: return_ 12 0 */
4267 /*:ref: unorm_ 14 3 7 7 7 */
4268 /*:ref: chkin_ 14 2 13 124 */
4269 /*:ref: setmsg_ 14 2 13 124 */
4270 /*:ref: sigerr_ 14 2 13 124 */
4271 /*:ref: chkout_ 14 2 13 124 */
4272 /*:ref: errdp_ 14 3 13 7 124 */
4273 /*:ref: vsub_ 14 3 7 7 7 */
4274 /*:ref: pi_ 7 0 */
4275 /*:ref: vhat_ 14 2 7 7 */
4276 /*:ref: vdot_ 7 2 7 7 */
4277 /*:ref: nvp2pl_ 14 3 7 7 7 */
4278 /*:ref: inrypl_ 14 5 7 7 7 4 7 */
4279 /*:ref: vdist_ 7 2 7 7 */
4280 /*:ref: vequ_ 14 2 7 7 */
4281 /*:ref: zzcnquad_ 14 7 7 7 7 7 4 7 7 */
4282 /*:ref: zzcxbrut_ 14 7 7 7 7 7 7 7 12 */
4283 /*:ref: frame_ 14 3 7 7 7 */
4284 /*:ref: mxv_ 14 3 7 7 7 */
4285 /*:ref: zzsglatx_ 14 6 7 7 7 7 7 7 */
4286 /*:ref: failed_ 12 0 */
4287 /*:ref: halfpi_ 7 0 */
4288 /*:ref: mtxv_ 14 3 7 7 7 */
4289 /*:ref: vadd_ 14 3 7 7 7 */
4290 
4291 extern int inedpl_(doublereal *a, doublereal *b, doublereal *c__, doublereal *plane, doublereal *ellips, logical *found);
4292 /*:ref: return_ 12 0 */
4293 /*:ref: chkin_ 14 2 13 124 */
4294 /*:ref: setmsg_ 14 2 13 124 */
4295 /*:ref: errdp_ 14 3 13 7 124 */
4296 /*:ref: sigerr_ 14 2 13 124 */
4297 /*:ref: chkout_ 14 2 13 124 */
4298 /*:ref: pl2nvc_ 14 3 7 7 7 */
4299 /*:ref: vzero_ 12 1 7 */
4300 /*:ref: pl2psv_ 14 4 7 7 7 7 */
4301 /*:ref: vnorm_ 7 1 7 */
4302 /*:ref: psv2pl_ 14 4 7 7 7 7 */
4303 /*:ref: brcktd_ 7 3 7 7 7 */
4304 /*:ref: vsclip_ 14 2 7 7 */
4305 /*:ref: cgv2el_ 14 4 7 7 7 7 */
4306 
4307 extern int inelpl_(doublereal *ellips, doublereal *plane, integer *nxpts, doublereal *xpt1, doublereal *xpt2);
4308 /*:ref: return_ 12 0 */
4309 /*:ref: chkin_ 14 2 13 124 */
4310 /*:ref: pl2nvc_ 14 3 7 7 7 */
4311 /*:ref: vzero_ 12 1 7 */
4312 /*:ref: setmsg_ 14 2 13 124 */
4313 /*:ref: sigerr_ 14 2 13 124 */
4314 /*:ref: chkout_ 14 2 13 124 */
4315 /*:ref: errdp_ 14 3 13 7 124 */
4316 /*:ref: el2cgv_ 14 4 7 7 7 7 */
4317 /*:ref: vsep_ 7 2 7 7 */
4318 /*:ref: halfpi_ 7 0 */
4319 /*:ref: vdot_ 7 2 7 7 */
4320 /*:ref: vequ_ 14 2 7 7 */
4321 /*:ref: pl2nvp_ 14 3 7 7 7 */
4322 /*:ref: vsub_ 14 3 7 7 7 */
4323 /*:ref: nvp2pl_ 14 3 7 7 7 */
4324 /*:ref: vzerog_ 12 2 7 4 */
4325 /*:ref: vnormg_ 7 2 7 4 */
4326 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
4327 
4328 extern int inrypl_(doublereal *vertex, doublereal *dir, doublereal *plane, integer *nxpts, doublereal *xpt);
4329 /*:ref: return_ 12 0 */
4330 /*:ref: dpmax_ 7 0 */
4331 /*:ref: vnorm_ 7 1 7 */
4332 /*:ref: chkin_ 14 2 13 124 */
4333 /*:ref: setmsg_ 14 2 13 124 */
4334 /*:ref: sigerr_ 14 2 13 124 */
4335 /*:ref: chkout_ 14 2 13 124 */
4336 /*:ref: pl2nvc_ 14 3 7 7 7 */
4337 /*:ref: vhat_ 14 2 7 7 */
4338 /*:ref: vzero_ 12 1 7 */
4339 /*:ref: vscl_ 14 3 7 7 7 */
4340 /*:ref: vequ_ 14 2 7 7 */
4341 /*:ref: vdot_ 7 2 7 7 */
4342 /*:ref: smsgnd_ 12 2 7 7 */
4343 /*:ref: cleard_ 14 2 4 7 */
4344 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
4345 /*:ref: vsclip_ 14 2 7 7 */
4346 
4347 extern int insang_(doublereal *v, doublereal *e1, doublereal *e2, doublereal *e3, logical *found, doublereal *scale);
4348 /*:ref: vcrss_ 14 3 7 7 7 */
4349 /*:ref: vdot_ 7 2 7 7 */
4350 
4351 extern int inslac_(char *elts, integer *ne, integer *loc, char *array, integer *na, ftnlen elts_len, ftnlen array_len);
4352 /*:ref: return_ 12 0 */
4353 /*:ref: chkin_ 14 2 13 124 */
4354 /*:ref: setmsg_ 14 2 13 124 */
4355 /*:ref: errint_ 14 3 13 4 124 */
4356 /*:ref: sigerr_ 14 2 13 124 */
4357 /*:ref: chkout_ 14 2 13 124 */
4358 
4359 extern int inslad_(doublereal *elts, integer *ne, integer *loc, doublereal *array, integer *na);
4360 /*:ref: return_ 12 0 */
4361 /*:ref: chkin_ 14 2 13 124 */
4362 /*:ref: setmsg_ 14 2 13 124 */
4363 /*:ref: errint_ 14 3 13 4 124 */
4364 /*:ref: sigerr_ 14 2 13 124 */
4365 /*:ref: chkout_ 14 2 13 124 */
4366 
4367 extern int inslai_(integer *elts, integer *ne, integer *loc, integer *array, integer *na);
4368 /*:ref: return_ 12 0 */
4369 /*:ref: chkin_ 14 2 13 124 */
4370 /*:ref: setmsg_ 14 2 13 124 */
4371 /*:ref: errint_ 14 3 13 4 124 */
4372 /*:ref: sigerr_ 14 2 13 124 */
4373 /*:ref: chkout_ 14 2 13 124 */
4374 
4375 extern int insrtc_(char *item, char *a, ftnlen item_len, ftnlen a_len);
4376 /*:ref: return_ 12 0 */
4377 /*:ref: chkin_ 14 2 13 124 */
4378 /*:ref: sizec_ 4 2 13 124 */
4379 /*:ref: cardc_ 4 2 13 124 */
4380 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
4381 /*:ref: scardc_ 14 3 4 13 124 */
4382 /*:ref: setmsg_ 14 2 13 124 */
4383 /*:ref: errint_ 14 3 13 4 124 */
4384 /*:ref: sigerr_ 14 2 13 124 */
4385 /*:ref: chkout_ 14 2 13 124 */
4386 
4387 extern int insrtd_(doublereal *item, doublereal *a);
4388 /*:ref: return_ 12 0 */
4389 /*:ref: chkin_ 14 2 13 124 */
4390 /*:ref: sized_ 4 1 7 */
4391 /*:ref: cardd_ 4 1 7 */
4392 /*:ref: lstled_ 4 3 7 4 7 */
4393 /*:ref: scardd_ 14 2 4 7 */
4394 /*:ref: setmsg_ 14 2 13 124 */
4395 /*:ref: errint_ 14 3 13 4 124 */
4396 /*:ref: sigerr_ 14 2 13 124 */
4397 /*:ref: chkout_ 14 2 13 124 */
4398 
4399 extern int insrti_(integer *item, integer *a);
4400 /*:ref: return_ 12 0 */
4401 /*:ref: chkin_ 14 2 13 124 */
4402 /*:ref: sizei_ 4 1 4 */
4403 /*:ref: cardi_ 4 1 4 */
4404 /*:ref: lstlei_ 4 3 4 4 4 */
4405 /*:ref: scardi_ 14 2 4 4 */
4406 /*:ref: setmsg_ 14 2 13 124 */
4407 /*:ref: errint_ 14 3 13 4 124 */
4408 /*:ref: sigerr_ 14 2 13 124 */
4409 /*:ref: chkout_ 14 2 13 124 */
4410 
4411 extern int inssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len);
4412 /*:ref: chkin_ 14 2 13 124 */
4413 /*:ref: setmsg_ 14 2 13 124 */
4414 /*:ref: errint_ 14 3 13 4 124 */
4415 /*:ref: sigerr_ 14 2 13 124 */
4416 /*:ref: chkout_ 14 2 13 124 */
4417 
4418 extern int int2hx_(integer *number, char *string, integer *length, ftnlen string_len);
4419 
4420 extern int interc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len);
4421 /*:ref: return_ 12 0 */
4422 /*:ref: chkin_ 14 2 13 124 */
4423 /*:ref: setmsg_ 14 2 13 124 */
4424 /*:ref: errint_ 14 3 13 4 124 */
4425 /*:ref: sigerr_ 14 2 13 124 */
4426 /*:ref: chkout_ 14 2 13 124 */
4427 /*:ref: cardc_ 4 2 13 124 */
4428 /*:ref: sizec_ 4 2 13 124 */
4429 /*:ref: scardc_ 14 3 4 13 124 */
4430 /*:ref: excess_ 14 3 4 13 124 */
4431 
4432 extern int interd_(doublereal *a, doublereal *b, doublereal *c__);
4433 /*:ref: return_ 12 0 */
4434 /*:ref: chkin_ 14 2 13 124 */
4435 /*:ref: cardd_ 4 1 7 */
4436 /*:ref: sized_ 4 1 7 */
4437 /*:ref: scardd_ 14 2 4 7 */
4438 /*:ref: excess_ 14 3 4 13 124 */
4439 /*:ref: sigerr_ 14 2 13 124 */
4440 /*:ref: chkout_ 14 2 13 124 */
4441 
4442 extern int interi_(integer *a, integer *b, integer *c__);
4443 /*:ref: return_ 12 0 */
4444 /*:ref: chkin_ 14 2 13 124 */
4445 /*:ref: cardi_ 4 1 4 */
4446 /*:ref: sizei_ 4 1 4 */
4447 /*:ref: scardi_ 14 2 4 4 */
4448 /*:ref: excess_ 14 3 4 13 124 */
4449 /*:ref: sigerr_ 14 2 13 124 */
4450 /*:ref: chkout_ 14 2 13 124 */
4451 
4452 extern int intord_(integer *n, char *string, ftnlen string_len);
4453 /*:ref: inttxt_ 14 3 4 13 124 */
4454 /*:ref: lastnb_ 4 2 13 124 */
4455 /*:ref: suffix_ 14 5 13 4 13 124 124 */
4456 
4457 extern int intstr_(integer *number, char *string, ftnlen string_len);
4458 
4459 extern int inttxt_(integer *n, char *string, ftnlen string_len);
4460 /*:ref: suffix_ 14 5 13 4 13 124 124 */
4461 
4462 extern int invert_(doublereal *m1, doublereal *mout);
4463 /*:ref: det_ 7 1 7 */
4464 /*:ref: filld_ 14 3 7 4 7 */
4465 /*:ref: vsclg_ 14 4 7 7 4 7 */
4466 
4467 extern int invort_(doublereal *m, doublereal *mit);
4468 /*:ref: dpmax_ 7 0 */
4469 /*:ref: unorm_ 14 3 7 7 7 */
4470 /*:ref: chkin_ 14 2 13 124 */
4471 /*:ref: setmsg_ 14 2 13 124 */
4472 /*:ref: errint_ 14 3 13 4 124 */
4473 /*:ref: sigerr_ 14 2 13 124 */
4474 /*:ref: chkout_ 14 2 13 124 */
4475 /*:ref: errdp_ 14 3 13 7 124 */
4476 /*:ref: vsclip_ 14 2 7 7 */
4477 /*:ref: xpose_ 14 2 7 7 */
4478 
4479 extern int invstm_(doublereal *mat, doublereal *invmat);
4480 /*:ref: return_ 12 0 */
4481 /*:ref: chkin_ 14 2 13 124 */
4482 /*:ref: xposbl_ 14 5 7 4 4 4 7 */
4483 /*:ref: chkout_ 14 2 13 124 */
4484 
4485 extern int ioerr_(char *action, char *file, integer *iostat, ftnlen action_len, ftnlen file_len);
4486 /*:ref: suffix_ 14 5 13 4 13 124 124 */
4487 /*:ref: intstr_ 14 3 4 13 124 */
4488 /*:ref: setmsg_ 14 2 13 124 */
4489 
4490 extern int irftrn_(char *refa, char *refb, doublereal *rotab, ftnlen refa_len, ftnlen refb_len);
4491 /*:ref: return_ 12 0 */
4492 /*:ref: chkin_ 14 2 13 124 */
4493 /*:ref: irfnum_ 14 3 13 4 124 */
4494 /*:ref: irfrot_ 14 3 4 4 7 */
4495 /*:ref: chkout_ 14 2 13 124 */
4496 
4497 extern int iso2utc_(char *tstrng, char *utcstr, char *error, ftnlen tstrng_len, ftnlen utcstr_len, ftnlen error_len);
4498 /*:ref: return_ 12 0 */
4499 /*:ref: chkin_ 14 2 13 124 */
4500 /*:ref: ljust_ 14 4 13 13 124 124 */
4501 /*:ref: rtrim_ 4 2 13 124 */
4502 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
4503 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
4504 /*:ref: chkout_ 14 2 13 124 */
4505 
4506 extern logical isopen_(char *file, ftnlen file_len);
4507 /*:ref: return_ 12 0 */
4508 /*:ref: chkin_ 14 2 13 124 */
4509 /*:ref: setmsg_ 14 2 13 124 */
4510 /*:ref: sigerr_ 14 2 13 124 */
4511 /*:ref: chkout_ 14 2 13 124 */
4512 /*:ref: errint_ 14 3 13 4 124 */
4513 
4514 extern logical isordv_(integer *array, integer *n);
4515 
4516 extern integer isrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len);
4517 
4518 extern integer isrchd_(doublereal *value, integer *ndim, doublereal *array);
4519 
4520 extern integer isrchi_(integer *value, integer *ndim, integer *array);
4521 
4522 extern logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol);
4523 /*:ref: return_ 12 0 */
4524 /*:ref: chkin_ 14 2 13 124 */
4525 /*:ref: setmsg_ 14 2 13 124 */
4526 /*:ref: errdp_ 14 3 13 7 124 */
4527 /*:ref: sigerr_ 14 2 13 124 */
4528 /*:ref: chkout_ 14 2 13 124 */
4529 /*:ref: unorm_ 14 3 7 7 7 */
4530 /*:ref: det_ 7 1 7 */
4531 /*:ref: brcktd_ 7 3 7 7 7 */
4532 
4533 extern doublereal j1900_(void);
4534 
4535 extern doublereal j1950_(void);
4536 
4537 extern doublereal j2000_(void);
4538 
4539 extern doublereal j2100_(void);
4540 
4541 extern int jul2gr_(integer *year, integer *month, integer *day, integer *doy);
4542 extern int gr2jul_(integer *year, integer *month, integer *day, integer *doy);
4543 /*:ref: rmaini_ 14 4 4 4 4 4 */
4544 /*:ref: lstlti_ 4 3 4 4 4 */
4545 
4546 extern doublereal jyear_(void);
4547 
4548 extern int keeper_(integer *which, char *kind, char *file, integer *count, char *filtyp, integer *handle, char *source, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen source_len);
4549 extern int furnsh_(char *file, ftnlen file_len);
4550 extern int ktotal_(char *kind, integer *count, ftnlen kind_len);
4551 extern int kdata_(integer *which, char *kind, char *file, char *filtyp, char *source, integer *handle, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen source_len);
4552 extern int kinfo_(char *file, char *filtyp, char *source, integer *handle, logical *found, ftnlen file_len, ftnlen filtyp_len, ftnlen source_len);
4553 extern int kclear_(void);
4554 extern int unload_(char *file, ftnlen file_len);
4555 /*:ref: chkin_ 14 2 13 124 */
4556 /*:ref: setmsg_ 14 2 13 124 */
4557 /*:ref: sigerr_ 14 2 13 124 */
4558 /*:ref: chkout_ 14 2 13 124 */
4559 /*:ref: return_ 12 0 */
4560 /*:ref: swpool_ 14 5 13 4 13 124 124 */
4561 /*:ref: cvpool_ 14 3 13 12 124 */
4562 /*:ref: rtrim_ 4 2 13 124 */
4563 /*:ref: errch_ 14 4 13 13 124 124 */
4564 /*:ref: errint_ 14 3 13 4 124 */
4565 /*:ref: zzldker_ 14 7 13 13 13 4 124 124 124 */
4566 /*:ref: failed_ 12 0 */
4567 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
4568 /*:ref: stpool_ 14 9 13 4 13 13 4 12 124 124 124 */
4569 /*:ref: sepool_ 14 10 13 4 13 13 4 4 12 124 124 124 */
4570 /*:ref: pos_ 4 5 13 13 4 124 124 */
4571 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
4572 /*:ref: samsub_ 12 8 13 4 4 13 4 4 124 124 */
4573 /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */
4574 /*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */
4575 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
4576 /*:ref: dvpool_ 14 2 13 124 */
4577 /*:ref: fndnwd_ 14 5 13 4 4 4 124 */
4578 /*:ref: eqstr_ 12 4 13 13 124 124 */
4579 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
4580 /*:ref: spkuef_ 14 1 4 */
4581 /*:ref: ckupf_ 14 1 4 */
4582 /*:ref: pckuof_ 14 1 4 */
4583 /*:ref: ekuef_ 14 1 4 */
4584 /*:ref: zzdskusf_ 14 1 4 */
4585 /*:ref: clpool_ 14 0 */
4586 /*:ref: remlac_ 14 5 4 4 13 4 124 */
4587 /*:ref: remlai_ 14 4 4 4 4 4 */
4588 /*:ref: ldpool_ 14 2 13 124 */
4589 /*:ref: spklef_ 14 3 13 4 124 */
4590 /*:ref: cklpf_ 14 3 13 4 124 */
4591 /*:ref: zzdsklsf_ 14 3 13 4 124 */
4592 /*:ref: pcklof_ 14 3 13 4 124 */
4593 /*:ref: eklef_ 14 3 13 4 124 */
4594 
4595 extern doublereal kepleq_(doublereal *ml, doublereal *h__, doublereal *k);
4596 /*:ref: chkin_ 14 2 13 124 */
4597 /*:ref: setmsg_ 14 2 13 124 */
4598 /*:ref: errdp_ 14 3 13 7 124 */
4599 /*:ref: sigerr_ 14 2 13 124 */
4600 /*:ref: chkout_ 14 2 13 124 */
4601 /*:ref: kpsolv_ 7 1 7 */
4602 
4603 extern int kplfrm_(integer *frmcls, integer *idset);
4604 /*:ref: return_ 12 0 */
4605 /*:ref: chkin_ 14 2 13 124 */
4606 /*:ref: scardi_ 14 2 4 4 */
4607 /*:ref: setmsg_ 14 2 13 124 */
4608 /*:ref: errint_ 14 3 13 4 124 */
4609 /*:ref: sigerr_ 14 2 13 124 */
4610 /*:ref: chkout_ 14 2 13 124 */
4611 /*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */
4612 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
4613 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
4614 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
4615 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
4616 /*:ref: sizei_ 4 1 4 */
4617 /*:ref: validi_ 14 3 4 4 4 */
4618 
4619 extern doublereal kpsolv_(doublereal *evec);
4620 /*:ref: chkin_ 14 2 13 124 */
4621 /*:ref: setmsg_ 14 2 13 124 */
4622 /*:ref: errdp_ 14 3 13 7 124 */
4623 /*:ref: sigerr_ 14 2 13 124 */
4624 /*:ref: chkout_ 14 2 13 124 */
4625 
4626 extern int kxtrct_(char *keywd, char *terms, integer *nterms, char *string, logical *found, char *substr, ftnlen keywd_len, ftnlen terms_len, ftnlen string_len, ftnlen substr_len);
4627 /*:ref: wdindx_ 4 4 13 13 124 124 */
4628 /*:ref: nblen_ 4 2 13 124 */
4629 /*:ref: fndnwd_ 14 5 13 4 4 4 124 */
4630 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
4631 /*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */
4632 
4633 extern integer lastnb_(char *string, ftnlen string_len);
4634 
4635 extern integer lastpc_(char *string, ftnlen string_len);
4636 
4637 extern int latcyl_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *r__, doublereal *longc, doublereal *z__);
4638 
4639 extern int latrec_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *rectan);
4640 
4641 extern int latsph_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *rho, doublereal *colat, doublereal *longs);
4642 /*:ref: halfpi_ 7 0 */
4643 
4644 extern int latsrf_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *lonlat, doublereal *srfpts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len);
4645 /*:ref: return_ 12 0 */
4646 /*:ref: chkin_ 14 2 13 124 */
4647 /*:ref: zzctruin_ 14 1 4 */
4648 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
4649 /*:ref: setmsg_ 14 2 13 124 */
4650 /*:ref: errch_ 14 4 13 13 124 124 */
4651 /*:ref: sigerr_ 14 2 13 124 */
4652 /*:ref: chkout_ 14 2 13 124 */
4653 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
4654 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
4655 /*:ref: failed_ 12 0 */
4656 /*:ref: errint_ 14 3 13 4 124 */
4657 /*:ref: zzsrftrk_ 14 2 4 12 */
4658 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
4659 /*:ref: eqstr_ 12 4 13 13 124 124 */
4660 /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */
4661 /*:ref: errdp_ 14 3 13 7 124 */
4662 /*:ref: latrec_ 14 4 7 7 7 7 */
4663 /*:ref: edpnt_ 14 5 7 7 7 7 7 */
4664 /*:ref: zzsudski_ 14 4 4 4 4 4 */
4665 /*:ref: zzmaxrad_ 14 1 7 */
4666 /*:ref: vminus_ 14 2 7 7 */
4667 /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */
4668 /*:ref: dpr_ 7 0 */
4669 /*:ref: vdot_ 7 2 7 7 */
4670 
4671 extern int lbuild_(char *items, integer *n, char *delim, char *list, ftnlen items_len, ftnlen delim_len, ftnlen list_len);
4672 /*:ref: frstnb_ 4 2 13 124 */
4673 /*:ref: lastnb_ 4 2 13 124 */
4674 /*:ref: suffix_ 14 5 13 4 13 124 124 */
4675 
4676 extern int lcase_(char *in, char *out, ftnlen in_len, ftnlen out_len);
4677 
4678 extern doublereal lgresp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *work, doublereal *x);
4679 /*:ref: return_ 12 0 */
4680 /*:ref: chkin_ 14 2 13 124 */
4681 /*:ref: setmsg_ 14 2 13 124 */
4682 /*:ref: errint_ 14 3 13 4 124 */
4683 /*:ref: sigerr_ 14 2 13 124 */
4684 /*:ref: chkout_ 14 2 13 124 */
4685 
4686 extern int lgrind_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x, doublereal *p, doublereal *dp);
4687 /*:ref: return_ 12 0 */
4688 /*:ref: chkin_ 14 2 13 124 */
4689 /*:ref: setmsg_ 14 2 13 124 */
4690 /*:ref: errint_ 14 3 13 4 124 */
4691 /*:ref: sigerr_ 14 2 13 124 */
4692 /*:ref: chkout_ 14 2 13 124 */
4693 /*:ref: errdp_ 14 3 13 7 124 */
4694 
4695 extern doublereal lgrint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x);
4696 /*:ref: return_ 12 0 */
4697 /*:ref: chkin_ 14 2 13 124 */
4698 /*:ref: setmsg_ 14 2 13 124 */
4699 /*:ref: errint_ 14 3 13 4 124 */
4700 /*:ref: sigerr_ 14 2 13 124 */
4701 /*:ref: chkout_ 14 2 13 124 */
4702 /*:ref: errdp_ 14 3 13 7 124 */
4703 
4704 extern int limbpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *tangts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len);
4705 /*:ref: return_ 12 0 */
4706 /*:ref: chkin_ 14 2 13 124 */
4707 /*:ref: zzctruin_ 14 1 4 */
4708 /*:ref: zzvalcor_ 14 3 13 12 124 */
4709 /*:ref: failed_ 12 0 */
4710 /*:ref: chkout_ 14 2 13 124 */
4711 /*:ref: setmsg_ 14 2 13 124 */
4712 /*:ref: errch_ 14 4 13 13 124 124 */
4713 /*:ref: sigerr_ 14 2 13 124 */
4714 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
4715 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
4716 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
4717 /*:ref: errint_ 14 3 13 4 124 */
4718 /*:ref: zzsrftrk_ 14 2 4 12 */
4719 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
4720 /*:ref: eqstr_ 12 4 13 13 124 124 */
4721 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
4722 /*:ref: vzero_ 12 1 7 */
4723 /*:ref: errdp_ 14 3 13 7 124 */
4724 /*:ref: zzsudski_ 14 4 4 4 4 4 */
4725 /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */
4726 /*:ref: cleari_ 14 2 4 4 */
4727 /*:ref: ssized_ 14 2 4 7 */
4728 /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */
4729 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
4730 /*:ref: vminus_ 14 2 7 7 */
4731 /*:ref: vcrss_ 14 3 7 7 7 */
4732 /*:ref: edlimb_ 14 5 7 7 7 7 7 */
4733 /*:ref: el2cgv_ 14 4 7 7 7 7 */
4734 /*:ref: ucrss_ 14 3 7 7 7 */
4735 /*:ref: vdot_ 7 2 7 7 */
4736 /*:ref: vsclip_ 14 2 7 7 */
4737 /*:ref: zzmaxrad_ 14 1 7 */
4738 /*:ref: vrotv_ 14 4 7 7 7 7 */
4739 /*:ref: scardd_ 14 2 4 7 */
4740 /*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */
4741 /*:ref: cardd_ 4 1 7 */
4742 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
4743 /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */
4744 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
4745 /*:ref: vequ_ 14 2 7 7 */
4746 /*:ref: vsub_ 14 3 7 7 7 */
4747 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
4748 /*:ref: touchd_ 7 1 7 */
4749 /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */
4750 /*:ref: stelab_ 14 3 7 7 7 */
4751 /*:ref: vadd_ 14 3 7 7 7 */
4752 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
4753 /*:ref: mxv_ 14 3 7 7 7 */
4754 /*:ref: mtxv_ 14 3 7 7 7 */
4755 /*:ref: vnorm_ 7 1 7 */
4756 /*:ref: clight_ 7 0 */
4757 
4758 extern int ljucrs_(integer *n, char *input, char *output, ftnlen input_len, ftnlen output_len);
4759 
4760 extern int ljust_(char *input, char *output, ftnlen input_len, ftnlen output_len);
4761 
4762 extern int lnkan_(integer *pool, integer *new__);
4763 /*:ref: chkin_ 14 2 13 124 */
4764 /*:ref: setmsg_ 14 2 13 124 */
4765 /*:ref: sigerr_ 14 2 13 124 */
4766 /*:ref: chkout_ 14 2 13 124 */
4767 
4768 extern int lnkfsl_(integer *head, integer *tail, integer *pool);
4769 /*:ref: chkin_ 14 2 13 124 */
4770 /*:ref: setmsg_ 14 2 13 124 */
4771 /*:ref: errint_ 14 3 13 4 124 */
4772 /*:ref: sigerr_ 14 2 13 124 */
4773 /*:ref: chkout_ 14 2 13 124 */
4774 
4775 extern integer lnkhl_(integer *node, integer *pool);
4776 /*:ref: chkin_ 14 2 13 124 */
4777 /*:ref: setmsg_ 14 2 13 124 */
4778 /*:ref: errint_ 14 3 13 4 124 */
4779 /*:ref: sigerr_ 14 2 13 124 */
4780 /*:ref: chkout_ 14 2 13 124 */
4781 
4782 extern int lnkila_(integer *prev, integer *list, integer *pool);
4783 /*:ref: chkin_ 14 2 13 124 */
4784 /*:ref: setmsg_ 14 2 13 124 */
4785 /*:ref: errint_ 14 3 13 4 124 */
4786 /*:ref: sigerr_ 14 2 13 124 */
4787 /*:ref: chkout_ 14 2 13 124 */
4788 
4789 extern int lnkilb_(integer *list, integer *next, integer *pool);
4790 /*:ref: chkin_ 14 2 13 124 */
4791 /*:ref: setmsg_ 14 2 13 124 */
4792 /*:ref: errint_ 14 3 13 4 124 */
4793 /*:ref: sigerr_ 14 2 13 124 */
4794 /*:ref: chkout_ 14 2 13 124 */
4795 
4796 extern int lnkini_(integer *size, integer *pool);
4797 /*:ref: chkin_ 14 2 13 124 */
4798 /*:ref: setmsg_ 14 2 13 124 */
4799 /*:ref: errint_ 14 3 13 4 124 */
4800 /*:ref: sigerr_ 14 2 13 124 */
4801 /*:ref: chkout_ 14 2 13 124 */
4802 
4803 extern integer lnknfn_(integer *pool);
4804 
4805 extern integer lnknxt_(integer *node, integer *pool);
4806 /*:ref: chkin_ 14 2 13 124 */
4807 /*:ref: setmsg_ 14 2 13 124 */
4808 /*:ref: errint_ 14 3 13 4 124 */
4809 /*:ref: sigerr_ 14 2 13 124 */
4810 /*:ref: chkout_ 14 2 13 124 */
4811 
4812 extern integer lnkprv_(integer *node, integer *pool);
4813 /*:ref: chkin_ 14 2 13 124 */
4814 /*:ref: setmsg_ 14 2 13 124 */
4815 /*:ref: errint_ 14 3 13 4 124 */
4816 /*:ref: sigerr_ 14 2 13 124 */
4817 /*:ref: chkout_ 14 2 13 124 */
4818 
4819 extern integer lnksiz_(integer *pool);
4820 
4821 extern integer lnktl_(integer *node, integer *pool);
4822 /*:ref: chkin_ 14 2 13 124 */
4823 /*:ref: setmsg_ 14 2 13 124 */
4824 /*:ref: errint_ 14 3 13 4 124 */
4825 /*:ref: sigerr_ 14 2 13 124 */
4826 /*:ref: chkout_ 14 2 13 124 */
4827 
4828 extern int lnkxsl_(integer *head, integer *tail, integer *pool);
4829 /*:ref: chkin_ 14 2 13 124 */
4830 /*:ref: setmsg_ 14 2 13 124 */
4831 /*:ref: errint_ 14 3 13 4 124 */
4832 /*:ref: sigerr_ 14 2 13 124 */
4833 /*:ref: chkout_ 14 2 13 124 */
4834 
4835 extern int locati_(integer *id, integer *idsz, integer *list, integer *pool, integer *at, logical *presnt);
4836 /*:ref: chkin_ 14 2 13 124 */
4837 /*:ref: lnknfn_ 4 1 4 */
4838 /*:ref: lnksiz_ 4 1 4 */
4839 /*:ref: lnkan_ 14 2 4 4 */
4840 /*:ref: chkout_ 14 2 13 124 */
4841 /*:ref: setmsg_ 14 2 13 124 */
4842 /*:ref: errint_ 14 3 13 4 124 */
4843 /*:ref: sigerr_ 14 2 13 124 */
4844 /*:ref: lnkxsl_ 14 3 4 4 4 */
4845 /*:ref: lnkilb_ 14 3 4 4 4 */
4846 
4847 extern int locln_(integer *unit, char *bmark, char *emark, char *line, integer *bline, integer *eline, logical *found, ftnlen bmark_len, ftnlen emark_len, ftnlen line_len);
4848 /*:ref: return_ 12 0 */
4849 /*:ref: chkin_ 14 2 13 124 */
4850 /*:ref: setmsg_ 14 2 13 124 */
4851 /*:ref: errch_ 14 4 13 13 124 124 */
4852 /*:ref: errint_ 14 3 13 4 124 */
4853 /*:ref: errfnm_ 14 3 13 4 124 */
4854 /*:ref: sigerr_ 14 2 13 124 */
4855 /*:ref: chkout_ 14 2 13 124 */
4856 /*:ref: ljust_ 14 4 13 13 124 124 */
4857 /*:ref: ltrim_ 4 2 13 124 */
4858 
4859 extern int lparse_(char *list, char *delim, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delim_len, ftnlen items_len);
4860 
4861 extern int lparsm_(char *list, char *delims, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delims_len, ftnlen items_len);
4862 
4863 extern int lparss_(char *list, char *delims, char *set, ftnlen list_len, ftnlen delims_len, ftnlen set_len);
4864 /*:ref: return_ 12 0 */
4865 /*:ref: chkin_ 14 2 13 124 */
4866 /*:ref: sizec_ 4 2 13 124 */
4867 /*:ref: scardc_ 14 3 4 13 124 */
4868 /*:ref: insrtc_ 14 4 13 13 124 124 */
4869 /*:ref: lastnb_ 4 2 13 124 */
4870 /*:ref: validc_ 14 4 4 4 13 124 */
4871 /*:ref: failed_ 12 0 */
4872 /*:ref: chkout_ 14 2 13 124 */
4873 
4874 extern doublereal lspcn_(char *body, doublereal *et, char *abcorr, ftnlen body_len, ftnlen abcorr_len);
4875 /*:ref: return_ 12 0 */
4876 /*:ref: chkin_ 14 2 13 124 */
4877 /*:ref: zzctruin_ 14 1 4 */
4878 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
4879 /*:ref: setmsg_ 14 2 13 124 */
4880 /*:ref: errch_ 14 4 13 13 124 124 */
4881 /*:ref: sigerr_ 14 2 13 124 */
4882 /*:ref: chkout_ 14 2 13 124 */
4883 /*:ref: tipbod_ 14 5 13 4 7 7 124 */
4884 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
4885 /*:ref: ucrss_ 14 3 7 7 7 */
4886 /*:ref: twovec_ 14 5 7 4 7 4 7 */
4887 /*:ref: failed_ 12 0 */
4888 /*:ref: spkezr_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */
4889 /*:ref: mxv_ 14 3 7 7 7 */
4890 /*:ref: recrad_ 14 4 7 7 7 7 */
4891 
4892 extern integer lstcld_(doublereal *x, integer *n, doublereal *array);
4893 
4894 extern integer lstcli_(integer *x, integer *n, integer *array);
4895 
4896 extern integer lstlec_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len);
4897 
4898 extern integer lstled_(doublereal *x, integer *n, doublereal *array);
4899 
4900 extern integer lstlei_(integer *x, integer *n, integer *array);
4901 
4902 extern integer lstltc_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len);
4903 
4904 extern integer lstltd_(doublereal *x, integer *n, doublereal *array);
4905 
4906 extern integer lstlti_(integer *x, integer *n, integer *array);
4907 
4908 extern int ltime_(doublereal *etobs, integer *obs, char *dir, integer *targ, doublereal *ettarg, doublereal *elapsd, ftnlen dir_len);
4909 /*:ref: return_ 12 0 */
4910 /*:ref: chkin_ 14 2 13 124 */
4911 /*:ref: setmsg_ 14 2 13 124 */
4912 /*:ref: rtrim_ 4 2 13 124 */
4913 /*:ref: errch_ 14 4 13 13 124 124 */
4914 /*:ref: sigerr_ 14 2 13 124 */
4915 /*:ref: chkout_ 14 2 13 124 */
4916 /*:ref: clight_ 7 0 */
4917 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
4918 /*:ref: vdist_ 7 2 7 7 */
4919 /*:ref: failed_ 12 0 */
4920 
4921 extern integer ltrim_(char *string, ftnlen string_len);
4922 /*:ref: frstnb_ 4 2 13 124 */
4923 
4924 extern int lun2fn_(integer *lunit, char *filnam, ftnlen filnam_len);
4925 /*:ref: return_ 12 0 */
4926 /*:ref: chkin_ 14 2 13 124 */
4927 /*:ref: setmsg_ 14 2 13 124 */
4928 /*:ref: errint_ 14 3 13 4 124 */
4929 /*:ref: sigerr_ 14 2 13 124 */
4930 /*:ref: chkout_ 14 2 13 124 */
4931 
4932 extern int lx4dec_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
4933 /*:ref: lx4uns_ 14 5 13 4 4 4 124 */
4934 /*:ref: lx4sgn_ 14 5 13 4 4 4 124 */
4935 
4936 extern int lx4num_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
4937 /*:ref: lx4dec_ 14 5 13 4 4 4 124 */
4938 /*:ref: lx4sgn_ 14 5 13 4 4 4 124 */
4939 
4940 extern int lx4sgn_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
4941 /*:ref: lx4uns_ 14 5 13 4 4 4 124 */
4942 
4943 extern int lx4uns_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
4944 
4945 extern int lxname_(char *hdchrs, char *tlchrs, char *string, integer *first, integer *last, integer *idspec, integer *nchar, ftnlen hdchrs_len, ftnlen tlchrs_len, ftnlen string_len);
4946 extern int lxidnt_(integer *idspec, char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
4947 extern int lxdfid_(integer *idspec);
4948 extern int lxcsid_(char *hdchrs, char *tlchrs, integer *idspec, ftnlen hdchrs_len, ftnlen tlchrs_len);
4949 /*:ref: return_ 12 0 */
4950 /*:ref: chkin_ 14 2 13 124 */
4951 /*:ref: sigerr_ 14 2 13 124 */
4952 /*:ref: chkout_ 14 2 13 124 */
4953 /*:ref: rtrim_ 4 2 13 124 */
4954 /*:ref: bsrchi_ 4 3 4 4 4 */
4955 /*:ref: ssizei_ 14 2 4 4 */
4956 /*:ref: validi_ 14 3 4 4 4 */
4957 /*:ref: scardi_ 14 2 4 4 */
4958 /*:ref: appndi_ 14 2 4 4 */
4959 /*:ref: setmsg_ 14 2 13 124 */
4960 /*:ref: errint_ 14 3 13 4 124 */
4961 /*:ref: insrti_ 14 2 4 4 */
4962 /*:ref: cardi_ 4 1 4 */
4963 
4964 extern int lxqstr_(char *string, char *qchar, integer *first, integer *last, integer *nchar, ftnlen string_len, ftnlen qchar_len);
4965 
4966 extern int m2eul_(doublereal *r__, integer *axis3, integer *axis2, integer *axis1, doublereal *angle3, doublereal *angle2, doublereal *angle1);
4967 /*:ref: return_ 12 0 */
4968 /*:ref: chkin_ 14 2 13 124 */
4969 /*:ref: setmsg_ 14 2 13 124 */
4970 /*:ref: errint_ 14 3 13 4 124 */
4971 /*:ref: sigerr_ 14 2 13 124 */
4972 /*:ref: chkout_ 14 2 13 124 */
4973 /*:ref: isrot_ 12 3 7 7 7 */
4974 /*:ref: vhat_ 14 2 7 7 */
4975 /*:ref: cleard_ 14 2 4 7 */
4976 /*:ref: mxm_ 14 3 7 7 7 */
4977 /*:ref: mtxm_ 14 3 7 7 7 */
4978 
4979 extern int m2q_(doublereal *r__, doublereal *q);
4980 /*:ref: isrot_ 12 3 7 7 7 */
4981 /*:ref: chkin_ 14 2 13 124 */
4982 /*:ref: setmsg_ 14 2 13 124 */
4983 /*:ref: sigerr_ 14 2 13 124 */
4984 /*:ref: chkout_ 14 2 13 124 */
4985 
4986 extern logical matchi_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len);
4987 /*:ref: frstnb_ 4 2 13 124 */
4988 /*:ref: lastnb_ 4 2 13 124 */
4989 /*:ref: samch_ 12 6 13 4 13 4 124 124 */
4990 /*:ref: nechr_ 12 4 13 13 124 124 */
4991 /*:ref: samchi_ 12 6 13 4 13 4 124 124 */
4992 
4993 extern logical matchw_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len);
4994 /*:ref: frstnb_ 4 2 13 124 */
4995 /*:ref: lastnb_ 4 2 13 124 */
4996 /*:ref: samch_ 12 6 13 4 13 4 124 124 */
4997 
4998 extern int maxac_(char *array, integer *ndim, char *maxval, integer *loc, ftnlen array_len, ftnlen maxval_len);
4999 
5000 extern int maxad_(doublereal *array, integer *ndim, doublereal *maxval, integer *loc);
5001 
5002 extern int maxai_(integer *array, integer *ndim, integer *maxval, integer *loc);
5003 
5004 extern int mequ_(doublereal *m1, doublereal *mout);
5005 /*:ref: moved_ 14 3 7 4 7 */
5006 
5007 extern int mequg_(doublereal *m1, integer *nr, integer *nc, doublereal *mout);
5008 /*:ref: moved_ 14 3 7 4 7 */
5009 
5010 extern int minac_(char *array, integer *ndim, char *minval, integer *loc, ftnlen array_len, ftnlen minval_len);
5011 
5012 extern int minad_(doublereal *array, integer *ndim, doublereal *minval, integer *loc);
5013 
5014 extern int minai_(integer *array, integer *ndim, integer *minval, integer *loc);
5015 
5016 extern int movec_(char *arrfrm, integer *ndim, char *arrto, ftnlen arrfrm_len, ftnlen arrto_len);
5017 
5018 extern int movei_(integer *arrfrm, integer *ndim, integer *arrto);
5019 
5020 extern int mtxm_(doublereal *m1, doublereal *m2, doublereal *mout);
5021 /*:ref: moved_ 14 3 7 4 7 */
5022 
5023 extern int mtxmg_(doublereal *m1, doublereal *m2, integer *nc1, integer *nr1r2, integer *nc2, doublereal *mout);
5024 
5025 extern int mtxv_(doublereal *matrix, doublereal *vin, doublereal *vout);
5026 
5027 extern int mtxvg_(doublereal *m1, doublereal *v2, integer *nc1, integer *nr1r2, doublereal *vout);
5028 
5029 extern int mxm_(doublereal *m1, doublereal *m2, doublereal *mout);
5030 /*:ref: moved_ 14 3 7 4 7 */
5031 
5032 extern int mxmg_(doublereal *m1, doublereal *m2, integer *row1, integer *col1, integer *col2, doublereal *mout);
5033 
5034 extern int mxmt_(doublereal *m1, doublereal *m2, doublereal *mout);
5035 /*:ref: moved_ 14 3 7 4 7 */
5036 
5037 extern int mxmtg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1c2, integer *nr2, doublereal *mout);
5038 
5039 extern int mxv_(doublereal *matrix, doublereal *vin, doublereal *vout);
5040 
5041 extern int mxvg_(doublereal *m1, doublereal *v2, integer *nr1, integer *nc1r2, doublereal *vout);
5042 
5043 extern integer nblen_(char *string, ftnlen string_len);
5044 /*:ref: lastnb_ 4 2 13 124 */
5045 /*:ref: frstnb_ 4 2 13 124 */
5046 
5047 extern integer nbwid_(char *array, integer *nelt, ftnlen array_len);
5048 
5049 extern integer ncpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len);
5050 
5051 extern integer ncposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len);
5052 
5053 extern int nearpt_(doublereal *positn, doublereal *a, doublereal *b, doublereal *c__, doublereal *npoint, doublereal *alt);
5054 /*:ref: return_ 12 0 */
5055 /*:ref: chkin_ 14 2 13 124 */
5056 /*:ref: setmsg_ 14 2 13 124 */
5057 /*:ref: errch_ 14 4 13 13 124 124 */
5058 /*:ref: errdp_ 14 3 13 7 124 */
5059 /*:ref: sigerr_ 14 2 13 124 */
5060 /*:ref: chkout_ 14 2 13 124 */
5061 /*:ref: vequ_ 14 2 7 7 */
5062 /*:ref: orderd_ 14 3 7 4 4 */
5063 /*:ref: reordd_ 14 3 4 4 7 */
5064 /*:ref: vsclip_ 14 2 7 7 */
5065 /*:ref: vnorm_ 7 1 7 */
5066 /*:ref: dpmax_ 7 0 */
5067 /*:ref: errint_ 14 3 13 4 124 */
5068 /*:ref: touchd_ 7 1 7 */
5069 /*:ref: brcktd_ 7 3 7 7 7 */
5070 /*:ref: approx_ 12 3 7 7 7 */
5071 /*:ref: vdist_ 7 2 7 7 */
5072 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
5073 /*:ref: vperp_ 14 3 7 7 7 */
5074 /*:ref: vadd_ 14 3 7 7 7 */
5075 
5076 extern int nextwd_(char *string, char *next, char *rest, ftnlen string_len, ftnlen next_len, ftnlen rest_len);
5077 /*:ref: ljust_ 14 4 13 13 124 124 */
5078 
5079 extern logical notru_(logical *logcls, integer *n);
5080 
5081 extern int nparsd_(char *string, doublereal *x, char *error, integer *ptr, ftnlen string_len, ftnlen error_len);
5082 /*:ref: dpmax_ 7 0 */
5083 /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */
5084 /*:ref: prefix_ 14 5 13 4 13 124 124 */
5085 /*:ref: pi_ 7 0 */
5086 
5087 extern int nparsi_(char *string, integer *n, char *error, integer *pnter, ftnlen string_len, ftnlen error_len);
5088 /*:ref: intmax_ 4 0 */
5089 /*:ref: intmin_ 4 0 */
5090 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
5091 
5092 extern int npedln_(doublereal *a, doublereal *b, doublereal *c__, doublereal *linept, doublereal *linedr, doublereal *pnear, doublereal *dist);
5093 /*:ref: return_ 12 0 */
5094 /*:ref: chkin_ 14 2 13 124 */
5095 /*:ref: unorm_ 14 3 7 7 7 */
5096 /*:ref: setmsg_ 14 2 13 124 */
5097 /*:ref: sigerr_ 14 2 13 124 */
5098 /*:ref: chkout_ 14 2 13 124 */
5099 /*:ref: errdp_ 14 3 13 7 124 */
5100 /*:ref: vminus_ 14 2 7 7 */
5101 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
5102 /*:ref: vscl_ 14 3 7 7 7 */
5103 /*:ref: nvc2pl_ 14 3 7 7 7 */
5104 /*:ref: inedpl_ 14 6 7 7 7 7 7 12 */
5105 /*:ref: pjelpl_ 14 3 7 7 7 */
5106 /*:ref: vprjp_ 14 3 7 7 7 */
5107 /*:ref: npelpt_ 14 4 7 7 7 7 */
5108 /*:ref: failed_ 12 0 */
5109 /*:ref: vprjpi_ 14 5 7 7 7 7 12 */
5110 /*:ref: vsclip_ 14 2 7 7 */
5111 
5112 extern int npelpt_(doublereal *point, doublereal *ellips, doublereal *pnear, doublereal *dist);
5113 /*:ref: return_ 12 0 */
5114 /*:ref: chkin_ 14 2 13 124 */
5115 /*:ref: el2cgv_ 14 4 7 7 7 7 */
5116 /*:ref: vnorm_ 7 1 7 */
5117 /*:ref: setmsg_ 14 2 13 124 */
5118 /*:ref: errdp_ 14 3 13 7 124 */
5119 /*:ref: sigerr_ 14 2 13 124 */
5120 /*:ref: chkout_ 14 2 13 124 */
5121 /*:ref: vsclip_ 14 2 7 7 */
5122 /*:ref: vsub_ 14 3 7 7 7 */
5123 /*:ref: twovec_ 14 5 7 4 7 4 7 */
5124 /*:ref: mxv_ 14 3 7 7 7 */
5125 /*:ref: vequ_ 14 2 7 7 */
5126 /*:ref: vpack_ 14 4 7 7 7 7 */
5127 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
5128 /*:ref: mtxv_ 14 3 7 7 7 */
5129 /*:ref: vadd_ 14 3 7 7 7 */
5130 /*:ref: vdist_ 7 2 7 7 */
5131 
5132 extern int nplnpt_(doublereal *linpt, doublereal *lindir, doublereal *point, doublereal *pnear, doublereal *dist);
5133 /*:ref: return_ 12 0 */
5134 /*:ref: vzero_ 12 1 7 */
5135 /*:ref: chkin_ 14 2 13 124 */
5136 /*:ref: setmsg_ 14 2 13 124 */
5137 /*:ref: sigerr_ 14 2 13 124 */
5138 /*:ref: chkout_ 14 2 13 124 */
5139 /*:ref: vsub_ 14 3 7 7 7 */
5140 /*:ref: vproj_ 14 3 7 7 7 */
5141 /*:ref: vadd_ 14 3 7 7 7 */
5142 /*:ref: vdist_ 7 2 7 7 */
5143 
5144 extern int npsgpt_(doublereal *ep1, doublereal *ep2, doublereal *point, doublereal *pnear, doublereal *dist);
5145 /*:ref: return_ 12 0 */
5146 /*:ref: vsub_ 14 3 7 7 7 */
5147 /*:ref: vzero_ 12 1 7 */
5148 /*:ref: vequ_ 14 2 7 7 */
5149 /*:ref: vdist_ 7 2 7 7 */
5150 /*:ref: nplnpt_ 14 5 7 7 7 7 7 */
5151 /*:ref: failed_ 12 0 */
5152 /*:ref: vdot_ 7 2 7 7 */
5153 
5154 extern int nthwd_(char *string, integer *nth, char *word, integer *loc, ftnlen string_len, ftnlen word_len);
5155 
5156 extern int nvc2pl_(doublereal *normal, doublereal *const__, doublereal *plane);
5157 /*:ref: return_ 12 0 */
5158 /*:ref: unorm_ 14 3 7 7 7 */
5159 /*:ref: chkin_ 14 2 13 124 */
5160 /*:ref: setmsg_ 14 2 13 124 */
5161 /*:ref: sigerr_ 14 2 13 124 */
5162 /*:ref: chkout_ 14 2 13 124 */
5163 /*:ref: vminus_ 14 2 7 7 */
5164 /*:ref: vequ_ 14 2 7 7 */
5165 
5166 extern int nvp2pl_(doublereal *normal, doublereal *point, doublereal *plane);
5167 /*:ref: return_ 12 0 */
5168 /*:ref: vzero_ 12 1 7 */
5169 /*:ref: chkin_ 14 2 13 124 */
5170 /*:ref: setmsg_ 14 2 13 124 */
5171 /*:ref: sigerr_ 14 2 13 124 */
5172 /*:ref: chkout_ 14 2 13 124 */
5173 /*:ref: vhat_ 14 2 7 7 */
5174 /*:ref: vdot_ 7 2 7 7 */
5175 /*:ref: vminus_ 14 2 7 7 */
5176 /*:ref: vequ_ 14 2 7 7 */
5177 
5178 extern int occult_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, doublereal *et, integer *ocltid, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len);
5179 /*:ref: return_ 12 0 */
5180 /*:ref: chkin_ 14 2 13 124 */
5181 /*:ref: ljust_ 14 4 13 13 124 124 */
5182 /*:ref: ucase_ 14 4 13 13 124 124 */
5183 /*:ref: bods2c_ 14 4 13 4 12 124 */
5184 /*:ref: setmsg_ 14 2 13 124 */
5185 /*:ref: errch_ 14 4 13 13 124 124 */
5186 /*:ref: sigerr_ 14 2 13 124 */
5187 /*:ref: chkout_ 14 2 13 124 */
5188 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
5189 /*:ref: failed_ 12 0 */
5190 /*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */
5191 /*:ref: zzgfocst_ 14 2 7 12 */
5192 /*:ref: errint_ 14 3 13 4 124 */
5193 
5194 extern logical odd_(integer *i__);
5195 
5196 extern logical opsgnd_(doublereal *x, doublereal *y);
5197 
5198 extern logical opsgni_(integer *x, integer *y);
5199 
5200 extern integer ordc_(char *item, char *set, ftnlen item_len, ftnlen set_len);
5201 /*:ref: return_ 12 0 */
5202 /*:ref: chkin_ 14 2 13 124 */
5203 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
5204 /*:ref: cardc_ 4 2 13 124 */
5205 /*:ref: chkout_ 14 2 13 124 */
5206 
5207 extern integer ordd_(doublereal *item, doublereal *set);
5208 /*:ref: return_ 12 0 */
5209 /*:ref: chkin_ 14 2 13 124 */
5210 /*:ref: bsrchd_ 4 3 7 4 7 */
5211 /*:ref: cardd_ 4 1 7 */
5212 /*:ref: chkout_ 14 2 13 124 */
5213 
5214 extern int orderc_(char *array, integer *ndim, integer *iorder, ftnlen array_len);
5215 /*:ref: swapi_ 14 2 4 4 */
5216 
5217 extern int orderd_(doublereal *array, integer *ndim, integer *iorder);
5218 /*:ref: swapi_ 14 2 4 4 */
5219 
5220 extern int orderi_(integer *array, integer *ndim, integer *iorder);
5221 /*:ref: swapi_ 14 2 4 4 */
5222 
5223 extern integer ordi_(integer *item, integer *set);
5224 /*:ref: return_ 12 0 */
5225 /*:ref: chkin_ 14 2 13 124 */
5226 /*:ref: bsrchi_ 4 3 4 4 4 */
5227 /*:ref: cardi_ 4 1 4 */
5228 /*:ref: chkout_ 14 2 13 124 */
5229 
5230 extern int oscelt_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts);
5231 /*:ref: return_ 12 0 */
5232 /*:ref: chkin_ 14 2 13 124 */
5233 /*:ref: setmsg_ 14 2 13 124 */
5234 /*:ref: errdp_ 14 3 13 7 124 */
5235 /*:ref: sigerr_ 14 2 13 124 */
5236 /*:ref: chkout_ 14 2 13 124 */
5237 /*:ref: vequ_ 14 2 7 7 */
5238 /*:ref: vzero_ 12 1 7 */
5239 /*:ref: vnorm_ 7 1 7 */
5240 /*:ref: vcrss_ 14 3 7 7 7 */
5241 /*:ref: vpack_ 14 4 7 7 7 7 */
5242 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
5243 /*:ref: vdot_ 7 2 7 7 */
5244 /*:ref: vsclip_ 14 2 7 7 */
5245 /*:ref: exact_ 7 3 7 7 7 */
5246 /*:ref: vsep_ 7 2 7 7 */
5247 /*:ref: pi_ 7 0 */
5248 /*:ref: twopi_ 7 0 */
5249 /*:ref: ucrss_ 14 3 7 7 7 */
5250 /*:ref: vhat_ 14 2 7 7 */
5251 /*:ref: dacosh_ 7 1 7 */
5252 
5253 extern int oscltx_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts);
5254 /*:ref: return_ 12 0 */
5255 /*:ref: chkin_ 14 2 13 124 */
5256 /*:ref: dpmax_ 7 0 */
5257 /*:ref: cleard_ 14 2 4 7 */
5258 /*:ref: oscelt_ 14 4 7 7 7 7 */
5259 /*:ref: failed_ 12 0 */
5260 /*:ref: chkout_ 14 2 13 124 */
5261 /*:ref: unorm_ 14 3 7 7 7 */
5262 /*:ref: vequ_ 14 2 7 7 */
5263 /*:ref: vnorm_ 7 1 7 */
5264 /*:ref: exact_ 7 3 7 7 7 */
5265 /*:ref: vdot_ 7 2 7 7 */
5266 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
5267 /*:ref: ucrss_ 14 3 7 7 7 */
5268 /*:ref: twovec_ 14 5 7 4 7 4 7 */
5269 /*:ref: mxv_ 14 3 7 7 7 */
5270 /*:ref: recrad_ 14 4 7 7 7 7 */
5271 /*:ref: twopi_ 7 0 */
5272 
5273 extern int outmsg_(char *list, ftnlen list_len);
5274 /*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */
5275 /*:ref: ucase_ 14 4 13 13 124 124 */
5276 /*:ref: getdev_ 14 2 13 124 */
5277 /*:ref: wrline_ 14 4 13 13 124 124 */
5278 /*:ref: msgsel_ 12 2 13 124 */
5279 /*:ref: tkvrsn_ 14 4 13 13 124 124 */
5280 /*:ref: getsms_ 14 2 13 124 */
5281 /*:ref: expln_ 14 4 13 13 124 124 */
5282 /*:ref: rtrim_ 4 2 13 124 */
5283 /*:ref: getlms_ 14 2 13 124 */
5284 /*:ref: wdcnt_ 4 2 13 124 */
5285 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
5286 /*:ref: ljust_ 14 4 13 13 124 124 */
5287 /*:ref: trcdep_ 14 1 4 */
5288 /*:ref: trcnam_ 14 3 4 13 124 */
5289 /*:ref: lastnb_ 4 2 13 124 */
5290 /*:ref: suffix_ 14 5 13 4 13 124 124 */
5291 
5292 extern int packac_(char *in, integer *pack, integer *npack, integer *maxout, integer *nout, char *out, ftnlen in_len, ftnlen out_len);
5293 /*:ref: return_ 12 0 */
5294 /*:ref: chkin_ 14 2 13 124 */
5295 /*:ref: setmsg_ 14 2 13 124 */
5296 /*:ref: errint_ 14 3 13 4 124 */
5297 /*:ref: sigerr_ 14 2 13 124 */
5298 /*:ref: chkout_ 14 2 13 124 */
5299 
5300 extern int packad_(doublereal *in, integer *pack, integer *npack, integer *maxout, integer *nout, doublereal *out);
5301 /*:ref: return_ 12 0 */
5302 /*:ref: chkin_ 14 2 13 124 */
5303 /*:ref: setmsg_ 14 2 13 124 */
5304 /*:ref: errint_ 14 3 13 4 124 */
5305 /*:ref: sigerr_ 14 2 13 124 */
5306 /*:ref: chkout_ 14 2 13 124 */
5307 
5308 extern int packai_(integer *in, integer *pack, integer *npack, integer *maxout, integer *nout, integer *out);
5309 /*:ref: return_ 12 0 */
5310 /*:ref: chkin_ 14 2 13 124 */
5311 /*:ref: setmsg_ 14 2 13 124 */
5312 /*:ref: errint_ 14 3 13 4 124 */
5313 /*:ref: sigerr_ 14 2 13 124 */
5314 /*:ref: chkout_ 14 2 13 124 */
5315 
5316 extern int parsqs_(char *string, char *qchar, char *value, integer *length, logical *error, char *errmsg, integer *ptr, ftnlen string_len, ftnlen qchar_len, ftnlen value_len, ftnlen errmsg_len);
5317 /*:ref: frstnb_ 4 2 13 124 */
5318 /*:ref: lastnb_ 4 2 13 124 */
5319 
5320 extern int partof_(doublereal *ma, doublereal *d__);
5321 /*:ref: return_ 12 0 */
5322 /*:ref: chkin_ 14 2 13 124 */
5323 /*:ref: chkout_ 14 2 13 124 */
5324 /*:ref: dcbrt_ 7 1 7 */
5325 
5326 extern int pck03a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs);
5327 /*:ref: return_ 12 0 */
5328 /*:ref: chkin_ 14 2 13 124 */
5329 /*:ref: setmsg_ 14 2 13 124 */
5330 /*:ref: errhan_ 14 3 13 4 124 */
5331 /*:ref: errint_ 14 3 13 4 124 */
5332 /*:ref: sigerr_ 14 2 13 124 */
5333 /*:ref: chkout_ 14 2 13 124 */
5334 /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */
5335 
5336 extern int pck03b_(integer *handle, char *segid, integer *body, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len);
5337 /*:ref: return_ 12 0 */
5338 /*:ref: chkin_ 14 2 13 124 */
5339 /*:ref: setmsg_ 14 2 13 124 */
5340 /*:ref: errint_ 14 3 13 4 124 */
5341 /*:ref: sigerr_ 14 2 13 124 */
5342 /*:ref: chkout_ 14 2 13 124 */
5343 /*:ref: pckpds_ 14 7 4 13 4 7 7 7 124 */
5344 /*:ref: failed_ 12 0 */
5345 /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */
5346 
5347 extern int pck03e_(integer *handle);
5348 /*:ref: return_ 12 0 */
5349 /*:ref: chkin_ 14 2 13 124 */
5350 /*:ref: sgwes_ 14 1 4 */
5351 /*:ref: chkout_ 14 2 13 124 */
5352 
5353 extern int pckbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len);
5354 extern int pcklof_(char *fname, integer *handle, ftnlen fname_len);
5355 extern int pckuof_(integer *handle);
5356 extern int pcksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len);
5357 /*:ref: return_ 12 0 */
5358 /*:ref: chkin_ 14 2 13 124 */
5359 /*:ref: sigerr_ 14 2 13 124 */
5360 /*:ref: chkout_ 14 2 13 124 */
5361 /*:ref: lnkini_ 14 2 4 4 */
5362 /*:ref: dafopr_ 14 3 13 4 124 */
5363 /*:ref: failed_ 12 0 */
5364 /*:ref: isrchi_ 4 3 4 4 4 */
5365 /*:ref: dafcls_ 14 1 4 */
5366 /*:ref: lnknxt_ 4 2 4 4 */
5367 /*:ref: lnkfsl_ 14 3 4 4 4 */
5368 /*:ref: setmsg_ 14 2 13 124 */
5369 /*:ref: errint_ 14 3 13 4 124 */
5370 /*:ref: intmax_ 4 0 */
5371 /*:ref: moved_ 14 3 7 4 7 */
5372 /*:ref: lnkprv_ 4 2 4 4 */
5373 /*:ref: dpmin_ 7 0 */
5374 /*:ref: dpmax_ 7 0 */
5375 /*:ref: cleard_ 14 2 4 7 */
5376 /*:ref: dafbfs_ 14 1 4 */
5377 /*:ref: daffna_ 14 1 12 */
5378 /*:ref: dafgs_ 14 1 7 */
5379 /*:ref: dafus_ 14 5 7 4 4 7 4 */
5380 /*:ref: dafbbs_ 14 1 4 */
5381 /*:ref: daffpa_ 14 1 12 */
5382 /*:ref: lnknfn_ 4 1 4 */
5383 /*:ref: lnkan_ 14 2 4 4 */
5384 /*:ref: dafgn_ 14 2 13 124 */
5385 /*:ref: lnkilb_ 14 3 4 4 4 */
5386 /*:ref: lnkila_ 14 3 4 4 4 */
5387 /*:ref: lnktl_ 4 2 4 4 */
5388 
5389 extern int pckcls_(integer *handle);
5390 /*:ref: return_ 12 0 */
5391 /*:ref: chkin_ 14 2 13 124 */
5392 /*:ref: dafbfs_ 14 1 4 */
5393 /*:ref: daffna_ 14 1 12 */
5394 /*:ref: failed_ 12 0 */
5395 /*:ref: chkout_ 14 2 13 124 */
5396 /*:ref: setmsg_ 14 2 13 124 */
5397 /*:ref: errhan_ 14 3 13 4 124 */
5398 /*:ref: sigerr_ 14 2 13 124 */
5399 /*:ref: dafcls_ 14 1 4 */
5400 
5401 extern int pckcov_(char *pck, integer *idcode, doublereal *cover, ftnlen pck_len);
5402 /*:ref: return_ 12 0 */
5403 /*:ref: chkin_ 14 2 13 124 */
5404 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
5405 /*:ref: setmsg_ 14 2 13 124 */
5406 /*:ref: errch_ 14 4 13 13 124 124 */
5407 /*:ref: sigerr_ 14 2 13 124 */
5408 /*:ref: chkout_ 14 2 13 124 */
5409 /*:ref: dafopr_ 14 3 13 4 124 */
5410 /*:ref: failed_ 12 0 */
5411 /*:ref: dafbfs_ 14 1 4 */
5412 /*:ref: daffna_ 14 1 12 */
5413 /*:ref: dafgs_ 14 1 7 */
5414 /*:ref: dafus_ 14 5 7 4 4 7 4 */
5415 /*:ref: wninsd_ 14 3 7 7 7 */
5416 /*:ref: dafcls_ 14 1 4 */
5417 
5418 extern int pcke02_(doublereal *et, doublereal *record, doublereal *eulang);
5419 /*:ref: return_ 12 0 */
5420 /*:ref: chkin_ 14 2 13 124 */
5421 /*:ref: spke02_ 14 3 7 7 7 */
5422 /*:ref: twopi_ 7 0 */
5423 /*:ref: chkout_ 14 2 13 124 */
5424 
5425 extern int pcke03_(doublereal *et, doublereal *record, doublereal *rotmat);
5426 /*:ref: return_ 12 0 */
5427 /*:ref: chkin_ 14 2 13 124 */
5428 /*:ref: chbval_ 14 5 7 4 7 7 7 */
5429 /*:ref: rpd_ 7 0 */
5430 /*:ref: halfpi_ 7 0 */
5431 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
5432 /*:ref: vcrss_ 14 3 7 7 7 */
5433 /*:ref: chkout_ 14 2 13 124 */
5434 
5435 extern int pcke20_(doublereal *et, doublereal *record, doublereal *eulang);
5436 /*:ref: return_ 12 0 */
5437 /*:ref: chkin_ 14 2 13 124 */
5438 /*:ref: spke20_ 14 3 7 7 7 */
5439 /*:ref: twopi_ 7 0 */
5440 /*:ref: chkout_ 14 2 13 124 */
5441 
5442 extern int pckeul_(integer *body, doublereal *et, logical *found, char *ref, doublereal *eulang, ftnlen ref_len);
5443 /*:ref: return_ 12 0 */
5444 /*:ref: chkin_ 14 2 13 124 */
5445 /*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */
5446 /*:ref: dafus_ 14 5 7 4 4 7 4 */
5447 /*:ref: irfnam_ 14 3 4 13 124 */
5448 /*:ref: pckr02_ 14 4 4 7 7 7 */
5449 /*:ref: pcke02_ 14 3 7 7 7 */
5450 /*:ref: chkout_ 14 2 13 124 */
5451 
5452 extern int pckfrm_(char *pck, integer *ids, ftnlen pck_len);
5453 /*:ref: return_ 12 0 */
5454 /*:ref: chkin_ 14 2 13 124 */
5455 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
5456 /*:ref: setmsg_ 14 2 13 124 */
5457 /*:ref: errch_ 14 4 13 13 124 124 */
5458 /*:ref: sigerr_ 14 2 13 124 */
5459 /*:ref: chkout_ 14 2 13 124 */
5460 /*:ref: dafopr_ 14 3 13 4 124 */
5461 /*:ref: failed_ 12 0 */
5462 /*:ref: dafbfs_ 14 1 4 */
5463 /*:ref: daffna_ 14 1 12 */
5464 /*:ref: dafgs_ 14 1 7 */
5465 /*:ref: dafus_ 14 5 7 4 4 7 4 */
5466 /*:ref: insrti_ 14 2 4 4 */
5467 /*:ref: dafcls_ 14 1 4 */
5468 
5469 extern int pckmat_(integer *body, doublereal *et, integer *ref, doublereal *tsipm, logical *found);
5470 /*:ref: return_ 12 0 */
5471 /*:ref: chkin_ 14 2 13 124 */
5472 /*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */
5473 /*:ref: failed_ 12 0 */
5474 /*:ref: chkout_ 14 2 13 124 */
5475 /*:ref: dafus_ 14 5 7 4 4 7 4 */
5476 /*:ref: pckr02_ 14 4 4 7 7 7 */
5477 /*:ref: pcke02_ 14 3 7 7 7 */
5478 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
5479 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
5480 /*:ref: setmsg_ 14 2 13 124 */
5481 /*:ref: errint_ 14 3 13 4 124 */
5482 /*:ref: sigerr_ 14 2 13 124 */
5483 /*:ref: pckr03_ 14 4 4 7 7 7 */
5484 /*:ref: pcke03_ 14 3 7 7 7 */
5485 /*:ref: pckr20_ 14 4 4 7 7 7 */
5486 /*:ref: pcke20_ 14 3 7 7 7 */
5487 
5488 extern int pckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len);
5489 /*:ref: return_ 12 0 */
5490 /*:ref: chkin_ 14 2 13 124 */
5491 /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */
5492 /*:ref: failed_ 12 0 */
5493 /*:ref: chkout_ 14 2 13 124 */
5494 
5495 extern int pckpds_(integer *body, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len);
5496 /*:ref: return_ 12 0 */
5497 /*:ref: chkin_ 14 2 13 124 */
5498 /*:ref: setmsg_ 14 2 13 124 */
5499 /*:ref: sigerr_ 14 2 13 124 */
5500 /*:ref: chkout_ 14 2 13 124 */
5501 /*:ref: irfnum_ 14 3 13 4 124 */
5502 /*:ref: errch_ 14 4 13 13 124 124 */
5503 /*:ref: etcal_ 14 3 7 13 124 */
5504 /*:ref: errdp_ 14 3 13 7 124 */
5505 /*:ref: errint_ 14 3 13 4 124 */
5506 /*:ref: dafps_ 14 5 4 4 7 4 7 */
5507 
5508 extern int pckr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
5509 /*:ref: return_ 12 0 */
5510 /*:ref: chkin_ 14 2 13 124 */
5511 /*:ref: dafus_ 14 5 7 4 4 7 4 */
5512 /*:ref: dafgda_ 14 4 4 4 4 7 */
5513 /*:ref: chkout_ 14 2 13 124 */
5514 
5515 extern int pckr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
5516 /*:ref: return_ 12 0 */
5517 /*:ref: chkin_ 14 2 13 124 */
5518 /*:ref: setmsg_ 14 2 13 124 */
5519 /*:ref: errdp_ 14 3 13 7 124 */
5520 /*:ref: sigerr_ 14 2 13 124 */
5521 /*:ref: chkout_ 14 2 13 124 */
5522 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
5523 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
5524 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
5525 
5526 extern int pckr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
5527 /*:ref: return_ 12 0 */
5528 /*:ref: chkin_ 14 2 13 124 */
5529 /*:ref: dafus_ 14 5 7 4 4 7 4 */
5530 /*:ref: dafgda_ 14 4 4 4 4 7 */
5531 /*:ref: j2000_ 7 0 */
5532 /*:ref: spd_ 7 0 */
5533 /*:ref: remlad_ 14 4 4 4 7 4 */
5534 /*:ref: vsclip_ 14 2 7 7 */
5535 /*:ref: moved_ 14 3 7 4 7 */
5536 /*:ref: chkout_ 14 2 13 124 */
5537 
5538 extern int pckuds_(doublereal *descr, integer *body, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end);
5539 /*:ref: return_ 12 0 */
5540 /*:ref: chkin_ 14 2 13 124 */
5541 /*:ref: dafus_ 14 5 7 4 4 7 4 */
5542 /*:ref: failed_ 12 0 */
5543 /*:ref: chkout_ 14 2 13 124 */
5544 
5545 extern int pckw02_(integer *handle, integer *body, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len);
5546 /*:ref: return_ 12 0 */
5547 /*:ref: chkin_ 14 2 13 124 */
5548 /*:ref: setmsg_ 14 2 13 124 */
5549 /*:ref: errint_ 14 3 13 4 124 */
5550 /*:ref: sigerr_ 14 2 13 124 */
5551 /*:ref: chkout_ 14 2 13 124 */
5552 /*:ref: errdp_ 14 3 13 7 124 */
5553 /*:ref: irfnum_ 14 3 13 4 124 */
5554 /*:ref: errch_ 14 4 13 13 124 124 */
5555 /*:ref: etcal_ 14 3 7 13 124 */
5556 /*:ref: chckid_ 14 5 13 4 13 124 124 */
5557 /*:ref: failed_ 12 0 */
5558 /*:ref: dafps_ 14 5 4 4 7 4 7 */
5559 /*:ref: dafbna_ 14 4 4 7 13 124 */
5560 /*:ref: dafada_ 14 2 7 4 */
5561 /*:ref: dafena_ 14 0 */
5562 
5563 extern int pckw20_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *ascale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len);
5564 /*:ref: return_ 12 0 */
5565 /*:ref: chkin_ 14 2 13 124 */
5566 /*:ref: setmsg_ 14 2 13 124 */
5567 /*:ref: errint_ 14 3 13 4 124 */
5568 /*:ref: sigerr_ 14 2 13 124 */
5569 /*:ref: chkout_ 14 2 13 124 */
5570 /*:ref: errdp_ 14 3 13 7 124 */
5571 /*:ref: namfrm_ 14 3 13 4 124 */
5572 /*:ref: errch_ 14 4 13 13 124 124 */
5573 /*:ref: etcal_ 14 3 7 13 124 */
5574 /*:ref: spd_ 7 0 */
5575 /*:ref: j2000_ 7 0 */
5576 /*:ref: chckid_ 14 5 13 4 13 124 124 */
5577 /*:ref: failed_ 12 0 */
5578 /*:ref: dafps_ 14 5 4 4 7 4 7 */
5579 /*:ref: dafbna_ 14 4 4 7 13 124 */
5580 /*:ref: dafada_ 14 2 7 4 */
5581 /*:ref: dafena_ 14 0 */
5582 
5583 extern integer pcwid_(char *array, integer *nelt, ftnlen array_len);
5584 
5585 extern int pgrrec_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan, ftnlen body_len);
5586 /*:ref: return_ 12 0 */
5587 /*:ref: chkin_ 14 2 13 124 */
5588 /*:ref: zzctruin_ 14 1 4 */
5589 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
5590 /*:ref: setmsg_ 14 2 13 124 */
5591 /*:ref: errch_ 14 4 13 13 124 124 */
5592 /*:ref: sigerr_ 14 2 13 124 */
5593 /*:ref: chkout_ 14 2 13 124 */
5594 /*:ref: errdp_ 14 3 13 7 124 */
5595 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
5596 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
5597 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
5598 /*:ref: plnsns_ 4 1 4 */
5599 /*:ref: georec_ 14 6 7 7 7 7 7 7 */
5600 
5601 extern doublereal phaseq_(doublereal *et, char *target, char *illmn, char *obsrvr, char *abcorr, ftnlen target_len, ftnlen illmn_len, ftnlen obsrvr_len, ftnlen abcorr_len);
5602 /*:ref: return_ 12 0 */
5603 /*:ref: chkin_ 14 2 13 124 */
5604 /*:ref: zzctruin_ 14 1 4 */
5605 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
5606 /*:ref: setmsg_ 14 2 13 124 */
5607 /*:ref: errch_ 14 4 13 13 124 124 */
5608 /*:ref: sigerr_ 14 2 13 124 */
5609 /*:ref: chkout_ 14 2 13 124 */
5610 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
5611 /*:ref: zzvalcor_ 14 3 13 12 124 */
5612 /*:ref: failed_ 12 0 */
5613 /*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */
5614 
5615 extern doublereal pi_(void);
5616 
5617 extern int pjelpl_(doublereal *elin, doublereal *plane, doublereal *elout);
5618 /*:ref: return_ 12 0 */
5619 /*:ref: chkin_ 14 2 13 124 */
5620 /*:ref: el2cgv_ 14 4 7 7 7 7 */
5621 /*:ref: pl2nvc_ 14 3 7 7 7 */
5622 /*:ref: vperp_ 14 3 7 7 7 */
5623 /*:ref: vprjp_ 14 3 7 7 7 */
5624 /*:ref: cgv2el_ 14 4 7 7 7 7 */
5625 /*:ref: chkout_ 14 2 13 124 */
5626 
5627 extern int pl2nvc_(doublereal *plane, doublereal *normal, doublereal *const__);
5628 /*:ref: vequ_ 14 2 7 7 */
5629 
5630 extern int pl2nvp_(doublereal *plane, doublereal *normal, doublereal *point);
5631 /*:ref: pl2nvc_ 14 3 7 7 7 */
5632 /*:ref: vscl_ 14 3 7 7 7 */
5633 
5634 extern int pl2psv_(doublereal *plane, doublereal *point, doublereal *span1, doublereal *span2);
5635 /*:ref: pl2nvp_ 14 3 7 7 7 */
5636 /*:ref: frame_ 14 3 7 7 7 */
5637 
5638 extern integer plnsns_(integer *bodid);
5639 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
5640 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
5641 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
5642 
5643 extern doublereal pltar_(integer *nv, doublereal *vrtces, integer *np, integer *plates);
5644 /*:ref: return_ 12 0 */
5645 /*:ref: chkin_ 14 2 13 124 */
5646 /*:ref: setmsg_ 14 2 13 124 */
5647 /*:ref: errint_ 14 3 13 4 124 */
5648 /*:ref: sigerr_ 14 2 13 124 */
5649 /*:ref: chkout_ 14 2 13 124 */
5650 /*:ref: vsub_ 14 3 7 7 7 */
5651 /*:ref: vcrss_ 14 3 7 7 7 */
5652 /*:ref: vnorm_ 7 1 7 */
5653 
5654 extern int pltexp_(doublereal *iverts, doublereal *delta, doublereal *overts);
5655 
5656 extern int pltnp_(doublereal *point, doublereal *v1, doublereal *v2, doublereal *v3, doublereal *pnear, doublereal *dist);
5657 /*:ref: return_ 12 0 */
5658 /*:ref: vsub_ 14 3 7 7 7 */
5659 /*:ref: vcrss_ 14 3 7 7 7 */
5660 /*:ref: vzero_ 12 1 7 */
5661 /*:ref: vnorm_ 7 1 7 */
5662 /*:ref: vequ_ 14 2 7 7 */
5663 /*:ref: vdist_ 7 2 7 7 */
5664 /*:ref: npsgpt_ 14 5 7 7 7 7 7 */
5665 /*:ref: vperp_ 14 3 7 7 7 */
5666 /*:ref: vdot_ 7 2 7 7 */
5667 /*:ref: vadd_ 14 3 7 7 7 */
5668 
5669 extern int pltnrm_(doublereal *v1, doublereal *v2, doublereal *v3, doublereal *normal);
5670 /*:ref: vsub_ 14 3 7 7 7 */
5671 /*:ref: vcrss_ 14 3 7 7 7 */
5672 
5673 extern doublereal pltvol_(integer *nv, doublereal *vrtces, integer *np, integer *plates);
5674 /*:ref: return_ 12 0 */
5675 /*:ref: chkin_ 14 2 13 124 */
5676 /*:ref: setmsg_ 14 2 13 124 */
5677 /*:ref: errint_ 14 3 13 4 124 */
5678 /*:ref: sigerr_ 14 2 13 124 */
5679 /*:ref: chkout_ 14 2 13 124 */
5680 /*:ref: vequ_ 14 2 7 7 */
5681 /*:ref: det_ 7 1 7 */
5682 
5683 extern int polyds_(doublereal *coeffs, integer *deg, integer *nderiv, doublereal *t, doublereal *p);
5684 
5685 extern int pool_(char *kernel, integer *unit, char *name__, char *names, integer *nnames, char *agent, integer *n, doublereal *values, logical *found, logical *update, integer *start, integer *room, char *cvals, integer *ivals, char *type__, char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, integer *usrctr, ftnlen kernel_len, ftnlen name_len, ftnlen names_len, ftnlen agent_len, ftnlen cvals_len, ftnlen type_len, ftnlen uwvars_len, ftnlen uwagnt_len);
5686 extern int clpool_(void);
5687 extern int ldpool_(char *kernel, ftnlen kernel_len);
5688 extern int rtpool_(char *name__, integer *n, doublereal *values, logical *found, ftnlen name_len);
5689 extern int expool_(char *name__, logical *found, ftnlen name_len);
5690 extern int wrpool_(integer *unit);
5691 extern int swpool_(char *agent, integer *nnames, char *names, ftnlen agent_len, ftnlen names_len);
5692 extern int cvpool_(char *agent, logical *update, ftnlen agent_len);
5693 extern int gcpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len);
5694 extern int gdpool_(char *name__, integer *start, integer *room, integer *n, doublereal *values, logical *found, ftnlen name_len);
5695 extern int gipool_(char *name__, integer *start, integer *room, integer *n, integer *ivals, logical *found, ftnlen name_len);
5696 extern int dtpool_(char *name__, logical *found, integer *n, char *type__, ftnlen name_len, ftnlen type_len);
5697 extern int pcpool_(char *name__, integer *n, char *cvals, ftnlen name_len, ftnlen cvals_len);
5698 extern int pdpool_(char *name__, integer *n, doublereal *values, ftnlen name_len);
5699 extern int pipool_(char *name__, integer *n, integer *ivals, ftnlen name_len);
5700 extern int lmpool_(char *cvals, integer *n, ftnlen cvals_len);
5701 extern int szpool_(char *name__, integer *n, logical *found, ftnlen name_len);
5702 extern int dvpool_(char *name__, ftnlen name_len);
5703 extern int gnpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len);
5704 extern int dwpool_(char *agent, ftnlen agent_len);
5705 extern int zzvupool_(char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, ftnlen uwvars_len, ftnlen uwagnt_len);
5706 extern int zzpctrck_(integer *usrctr, logical *update);
5707 /*:ref: return_ 12 0 */
5708 /*:ref: chkin_ 14 2 13 124 */
5709 /*:ref: setmsg_ 14 2 13 124 */
5710 /*:ref: sigerr_ 14 2 13 124 */
5711 /*:ref: chkout_ 14 2 13 124 */
5712 /*:ref: zzpini_ 14 28 12 4 4 4 13 13 4 4 4 4 4 4 4 13 4 4 13 13 13 13 4 124 124 124 124 124 124 124 */
5713 /*:ref: zzctrinc_ 14 1 4 */
5714 /*:ref: lnkini_ 14 2 4 4 */
5715 /*:ref: cardc_ 4 2 13 124 */
5716 /*:ref: zznwpool_ 14 14 13 13 4 4 13 13 13 13 124 124 124 124 124 124 */
5717 /*:ref: rdknew_ 14 2 13 124 */
5718 /*:ref: zzrvar_ 14 13 4 4 13 4 4 7 4 13 13 12 124 124 124 */
5719 /*:ref: failed_ 12 0 */
5720 /*:ref: elemc_ 12 4 13 13 124 124 */
5721 /*:ref: cltext_ 14 2 13 124 */
5722 /*:ref: zzhash_ 4 2 13 124 */
5723 /*:ref: ioerr_ 14 5 13 13 4 124 124 */
5724 /*:ref: rtrim_ 4 2 13 124 */
5725 /*:ref: errch_ 14 4 13 13 124 124 */
5726 /*:ref: sizec_ 4 2 13 124 */
5727 /*:ref: errint_ 14 3 13 4 124 */
5728 /*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */
5729 /*:ref: lnknfn_ 4 1 4 */
5730 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
5731 /*:ref: lnkan_ 14 2 4 4 */
5732 /*:ref: lnktl_ 4 2 4 4 */
5733 /*:ref: lnkila_ 14 3 4 4 4 */
5734 /*:ref: lstltc_ 4 5 13 4 13 124 124 */
5735 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
5736 /*:ref: scardc_ 14 3 4 13 124 */
5737 /*:ref: inslai_ 14 5 4 4 4 4 4 */
5738 /*:ref: insrtc_ 14 4 13 13 124 124 */
5739 /*:ref: removc_ 14 4 13 13 124 124 */
5740 /*:ref: intmax_ 4 0 */
5741 /*:ref: intmin_ 4 0 */
5742 /*:ref: errdp_ 14 3 13 7 124 */
5743 /*:ref: lastnb_ 4 2 13 124 */
5744 /*:ref: zzgpnm_ 14 15 4 4 13 4 4 7 4 13 13 12 4 4 124 124 124 */
5745 /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */
5746 /*:ref: lnkfsl_ 14 3 4 4 4 */
5747 /*:ref: zzrvbf_ 14 17 13 4 4 4 4 13 4 4 7 4 13 13 12 124 124 124 124 */
5748 /*:ref: eqstr_ 12 4 13 13 124 124 */
5749 /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */
5750 /*:ref: lnknxt_ 4 2 4 4 */
5751 /*:ref: remlai_ 14 4 4 4 4 4 */
5752 /*:ref: copyc_ 14 4 13 13 124 124 */
5753 /*:ref: movei_ 14 3 4 4 4 */
5754 /*:ref: movec_ 14 5 13 4 13 124 124 */
5755 /*:ref: zzctrchk_ 14 3 4 4 12 */
5756 
5757 extern integer pos_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len);
5758 
5759 extern integer posr_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len);
5760 
5761 extern int prefix_(char *pref, integer *spaces, char *string, ftnlen pref_len, ftnlen string_len);
5762 /*:ref: lastnb_ 4 2 13 124 */
5763 /*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */
5764 
5765 extern doublereal prodad_(doublereal *array, integer *n);
5766 
5767 extern integer prodai_(integer *array, integer *n);
5768 
5769 extern int prompt_(char *prmpt, char *string, ftnlen prmpt_len, ftnlen string_len);
5770 /*:ref: chkin_ 14 2 13 124 */
5771 /*:ref: setmsg_ 14 2 13 124 */
5772 /*:ref: sigerr_ 14 2 13 124 */
5773 /*:ref: chkout_ 14 2 13 124 */
5774 /*:ref: errch_ 14 4 13 13 124 124 */
5775 /*:ref: errint_ 14 3 13 4 124 */
5776 
5777 extern int prop2b_(doublereal *gm, doublereal *pvinit, doublereal *dt, doublereal *pvprop);
5778 /*:ref: return_ 12 0 */
5779 /*:ref: chkin_ 14 2 13 124 */
5780 /*:ref: sigerr_ 14 2 13 124 */
5781 /*:ref: chkout_ 14 2 13 124 */
5782 /*:ref: vzero_ 12 1 7 */
5783 /*:ref: vnorm_ 7 1 7 */
5784 /*:ref: vdot_ 7 2 7 7 */
5785 /*:ref: vcrss_ 14 3 7 7 7 */
5786 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
5787 /*:ref: dpmax_ 7 0 */
5788 /*:ref: brckti_ 4 3 4 4 4 */
5789 /*:ref: brcktd_ 7 3 7 7 7 */
5790 /*:ref: stmp03_ 14 5 7 7 7 7 7 */
5791 /*:ref: setmsg_ 14 2 13 124 */
5792 /*:ref: errdp_ 14 3 13 7 124 */
5793 /*:ref: vequg_ 14 3 7 4 7 */
5794 
5795 extern int prsdp_(char *string, doublereal *dpval, ftnlen string_len);
5796 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
5797 /*:ref: chkin_ 14 2 13 124 */
5798 /*:ref: setmsg_ 14 2 13 124 */
5799 /*:ref: sigerr_ 14 2 13 124 */
5800 /*:ref: chkout_ 14 2 13 124 */
5801 
5802 extern int prsint_(char *string, integer *intval, ftnlen string_len);
5803 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
5804 /*:ref: chkin_ 14 2 13 124 */
5805 /*:ref: setmsg_ 14 2 13 124 */
5806 /*:ref: sigerr_ 14 2 13 124 */
5807 /*:ref: chkout_ 14 2 13 124 */
5808 
5809 extern int prtenc_(integer *number, char *string, ftnlen string_len);
5810 extern int prtdec_(char *string, integer *number, ftnlen string_len);
5811 /*:ref: chkin_ 14 2 13 124 */
5812 /*:ref: sigerr_ 14 2 13 124 */
5813 /*:ref: chkout_ 14 2 13 124 */
5814 
5815 extern logical prtpkg_(logical *short__, logical *long__, logical *expl, logical *trace, logical *dfault, char *type__, ftnlen type_len);
5816 extern logical setprt_(logical *short__, logical *expl, logical *long__, logical *trace, logical *dfault);
5817 extern logical msgsel_(char *type__, ftnlen type_len);
5818 /*:ref: getdev_ 14 2 13 124 */
5819 /*:ref: wrline_ 14 4 13 13 124 124 */
5820 /*:ref: ljust_ 14 4 13 13 124 124 */
5821 /*:ref: ucase_ 14 4 13 13 124 124 */
5822 
5823 extern int psv2pl_(doublereal *point, doublereal *span1, doublereal *span2, doublereal *plane);
5824 /*:ref: return_ 12 0 */
5825 /*:ref: ucrss_ 14 3 7 7 7 */
5826 /*:ref: vzero_ 12 1 7 */
5827 /*:ref: chkin_ 14 2 13 124 */
5828 /*:ref: setmsg_ 14 2 13 124 */
5829 /*:ref: sigerr_ 14 2 13 124 */
5830 /*:ref: chkout_ 14 2 13 124 */
5831 /*:ref: vdot_ 7 2 7 7 */
5832 /*:ref: vminus_ 14 2 7 7 */
5833 /*:ref: vequ_ 14 2 7 7 */
5834 
5835 extern int putact_(integer *action);
5836 extern int getact_(integer *action);
5837 
5838 extern int putdev_(char *device, ftnlen device_len);
5839 extern int getdev_(char *device, ftnlen device_len);
5840 
5841 extern int putlms_(char *msg, ftnlen msg_len);
5842 extern int getlms_(char *msg, ftnlen msg_len);
5843 
5844 extern int putsms_(char *msg, ftnlen msg_len);
5845 extern int getsms_(char *msg, ftnlen msg_len);
5846 
5847 extern int pxform_(char *from, char *to, doublereal *et, doublereal *rotate, ftnlen from_len, ftnlen to_len);
5848 /*:ref: return_ 12 0 */
5849 /*:ref: chkin_ 14 2 13 124 */
5850 /*:ref: zzctruin_ 14 1 4 */
5851 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
5852 /*:ref: refchg_ 14 4 4 4 7 7 */
5853 /*:ref: setmsg_ 14 2 13 124 */
5854 /*:ref: errch_ 14 4 13 13 124 124 */
5855 /*:ref: sigerr_ 14 2 13 124 */
5856 /*:ref: chkout_ 14 2 13 124 */
5857 
5858 extern int pxfrm2_(char *from, char *to, doublereal *etfrom, doublereal *etto, doublereal *rotate, ftnlen from_len, ftnlen to_len);
5859 /*:ref: return_ 12 0 */
5860 /*:ref: chkin_ 14 2 13 124 */
5861 /*:ref: zzctruin_ 14 1 4 */
5862 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
5863 /*:ref: refchg_ 14 4 4 4 7 7 */
5864 /*:ref: mxm_ 14 3 7 7 7 */
5865 /*:ref: setmsg_ 14 2 13 124 */
5866 /*:ref: errch_ 14 4 13 13 124 124 */
5867 /*:ref: sigerr_ 14 2 13 124 */
5868 /*:ref: chkout_ 14 2 13 124 */
5869 
5870 extern int q2m_(doublereal *q, doublereal *r__);
5871 
5872 extern int qderiv_(integer *n, doublereal *f0, doublereal *f2, doublereal *delta, doublereal *dfdt);
5873 /*:ref: chkin_ 14 2 13 124 */
5874 /*:ref: setmsg_ 14 2 13 124 */
5875 /*:ref: sigerr_ 14 2 13 124 */
5876 /*:ref: chkout_ 14 2 13 124 */
5877 /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */
5878 
5879 extern int qdq2av_(doublereal *q, doublereal *dq, doublereal *av);
5880 /*:ref: vhatg_ 14 3 7 4 7 */
5881 /*:ref: vminus_ 14 2 7 7 */
5882 /*:ref: qxq_ 14 3 7 7 7 */
5883 /*:ref: vscl_ 14 3 7 7 7 */
5884 
5885 extern int quote_(char *in, char *left, char *right, char *out, ftnlen in_len, ftnlen left_len, ftnlen right_len, ftnlen out_len);
5886 /*:ref: suffix_ 14 5 13 4 13 124 124 */
5887 /*:ref: frstnb_ 4 2 13 124 */
5888 /*:ref: lastnb_ 4 2 13 124 */
5889 /*:ref: prefix_ 14 5 13 4 13 124 124 */
5890 
5891 extern int qxq_(doublereal *q1, doublereal *q2, doublereal *qout);
5892 /*:ref: vdot_ 7 2 7 7 */
5893 /*:ref: vcrss_ 14 3 7 7 7 */
5894 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
5895 
5896 extern int radrec_(doublereal *range, doublereal *ra, doublereal *dec, doublereal *rectan);
5897 /*:ref: latrec_ 14 4 7 7 7 7 */
5898 
5899 extern int rav2xf_(doublereal *rot, doublereal *av, doublereal *xform);
5900 /*:ref: mxm_ 14 3 7 7 7 */
5901 
5902 extern int raxisa_(doublereal *matrix, doublereal *axis, doublereal *angle);
5903 /*:ref: return_ 12 0 */
5904 /*:ref: chkin_ 14 2 13 124 */
5905 /*:ref: m2q_ 14 2 7 7 */
5906 /*:ref: failed_ 12 0 */
5907 /*:ref: chkout_ 14 2 13 124 */
5908 /*:ref: vzero_ 12 1 7 */
5909 /*:ref: pi_ 7 0 */
5910 /*:ref: vhat_ 14 2 7 7 */
5911 /*:ref: vnorm_ 7 1 7 */
5912 
5913 extern int rdencc_(integer *unit, integer *n, char *data, ftnlen data_len);
5914 /*:ref: return_ 12 0 */
5915 /*:ref: chkin_ 14 2 13 124 */
5916 /*:ref: setmsg_ 14 2 13 124 */
5917 /*:ref: errint_ 14 3 13 4 124 */
5918 /*:ref: sigerr_ 14 2 13 124 */
5919 /*:ref: chkout_ 14 2 13 124 */
5920 /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */
5921 /*:ref: errch_ 14 4 13 13 124 124 */
5922 
5923 extern int rdencd_(integer *unit, integer *n, doublereal *data);
5924 /*:ref: return_ 12 0 */
5925 /*:ref: chkin_ 14 2 13 124 */
5926 /*:ref: setmsg_ 14 2 13 124 */
5927 /*:ref: errint_ 14 3 13 4 124 */
5928 /*:ref: sigerr_ 14 2 13 124 */
5929 /*:ref: chkout_ 14 2 13 124 */
5930 /*:ref: hx2dp_ 14 6 13 7 12 13 124 124 */
5931 /*:ref: errch_ 14 4 13 13 124 124 */
5932 
5933 extern int rdenci_(integer *unit, integer *n, integer *data);
5934 /*:ref: return_ 12 0 */
5935 /*:ref: chkin_ 14 2 13 124 */
5936 /*:ref: setmsg_ 14 2 13 124 */
5937 /*:ref: errint_ 14 3 13 4 124 */
5938 /*:ref: sigerr_ 14 2 13 124 */
5939 /*:ref: chkout_ 14 2 13 124 */
5940 /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */
5941 /*:ref: errch_ 14 4 13 13 124 124 */
5942 
5943 extern int rdker_(char *kernel, char *line, integer *number, logical *eof, ftnlen kernel_len, ftnlen line_len);
5944 extern int rdknew_(char *kernel, ftnlen kernel_len);
5945 extern int rdkdat_(char *line, logical *eof, ftnlen line_len);
5946 extern int rdklin_(char *kernel, integer *number, ftnlen kernel_len);
5947 /*:ref: return_ 12 0 */
5948 /*:ref: chkin_ 14 2 13 124 */
5949 /*:ref: setmsg_ 14 2 13 124 */
5950 /*:ref: sigerr_ 14 2 13 124 */
5951 /*:ref: chkout_ 14 2 13 124 */
5952 /*:ref: cltext_ 14 2 13 124 */
5953 /*:ref: zzsetnnread_ 14 1 12 */
5954 /*:ref: rdtext_ 14 5 13 13 12 124 124 */
5955 /*:ref: rtrim_ 4 2 13 124 */
5956 /*:ref: ljust_ 14 4 13 13 124 124 */
5957 /*:ref: failed_ 12 0 */
5958 
5959 extern int rdkvar_(char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *eof, ftnlen tabsym_len, ftnlen name_len);
5960 /*:ref: return_ 12 0 */
5961 /*:ref: chkin_ 14 2 13 124 */
5962 /*:ref: failed_ 12 0 */
5963 /*:ref: rdkdat_ 14 3 13 12 124 */
5964 /*:ref: chkout_ 14 2 13 124 */
5965 /*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */
5966 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
5967 /*:ref: sydeld_ 14 6 13 13 4 7 124 124 */
5968 /*:ref: tparse_ 14 5 13 7 13 124 124 */
5969 /*:ref: setmsg_ 14 2 13 124 */
5970 /*:ref: sigerr_ 14 2 13 124 */
5971 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
5972 /*:ref: syenqd_ 14 7 13 7 13 4 7 124 124 */
5973 
5974 extern int rdnbl_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len);
5975 /*:ref: return_ 12 0 */
5976 /*:ref: chkin_ 14 2 13 124 */
5977 /*:ref: rdtext_ 14 5 13 13 12 124 124 */
5978 /*:ref: failed_ 12 0 */
5979 /*:ref: chkout_ 14 2 13 124 */
5980 
5981 extern int rdtext_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len);
5982 extern int cltext_(char *file, ftnlen file_len);
5983 /*:ref: return_ 12 0 */
5984 /*:ref: chkin_ 14 2 13 124 */
5985 /*:ref: setmsg_ 14 2 13 124 */
5986 /*:ref: errch_ 14 4 13 13 124 124 */
5987 /*:ref: errint_ 14 3 13 4 124 */
5988 /*:ref: sigerr_ 14 2 13 124 */
5989 /*:ref: chkout_ 14 2 13 124 */
5990 /*:ref: isrchi_ 4 3 4 4 4 */
5991 /*:ref: getlun_ 14 1 4 */
5992 
5993 extern int readla_(integer *unit, integer *maxlin, integer *numlin, char *array, logical *eof, ftnlen array_len);
5994 /*:ref: return_ 12 0 */
5995 /*:ref: chkin_ 14 2 13 124 */
5996 /*:ref: setmsg_ 14 2 13 124 */
5997 /*:ref: errint_ 14 3 13 4 124 */
5998 /*:ref: sigerr_ 14 2 13 124 */
5999 /*:ref: chkout_ 14 2 13 124 */
6000 /*:ref: readln_ 14 4 4 13 12 124 */
6001 /*:ref: failed_ 12 0 */
6002 
6003 extern int readln_(integer *unit, char *line, logical *eof, ftnlen line_len);
6004 /*:ref: chkin_ 14 2 13 124 */
6005 /*:ref: setmsg_ 14 2 13 124 */
6006 /*:ref: errfnm_ 14 3 13 4 124 */
6007 /*:ref: errint_ 14 3 13 4 124 */
6008 /*:ref: sigerr_ 14 2 13 124 */
6009 /*:ref: chkout_ 14 2 13 124 */
6010 
6011 extern int reccyl_(doublereal *rectan, doublereal *r__, doublereal *long__, doublereal *z__);
6012 /*:ref: twopi_ 7 0 */
6013 
6014 extern int recgeo_(doublereal *rectan, doublereal *re, doublereal *f, doublereal *long__, doublereal *lat, doublereal *alt);
6015 /*:ref: return_ 12 0 */
6016 /*:ref: chkin_ 14 2 13 124 */
6017 /*:ref: setmsg_ 14 2 13 124 */
6018 /*:ref: errdp_ 14 3 13 7 124 */
6019 /*:ref: sigerr_ 14 2 13 124 */
6020 /*:ref: chkout_ 14 2 13 124 */
6021 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
6022 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
6023 /*:ref: reclat_ 14 4 7 7 7 7 */
6024 
6025 extern int reclat_(doublereal *rectan, doublereal *radius, doublereal *long__, doublereal *lat);
6026 
6027 extern int recpgr_(char *body, doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt, ftnlen body_len);
6028 /*:ref: return_ 12 0 */
6029 /*:ref: chkin_ 14 2 13 124 */
6030 /*:ref: zzctruin_ 14 1 4 */
6031 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
6032 /*:ref: setmsg_ 14 2 13 124 */
6033 /*:ref: errch_ 14 4 13 13 124 124 */
6034 /*:ref: sigerr_ 14 2 13 124 */
6035 /*:ref: chkout_ 14 2 13 124 */
6036 /*:ref: errdp_ 14 3 13 7 124 */
6037 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
6038 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
6039 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
6040 /*:ref: plnsns_ 4 1 4 */
6041 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
6042 /*:ref: twopi_ 7 0 */
6043 /*:ref: brcktd_ 7 3 7 7 7 */
6044 
6045 extern int recrad_(doublereal *rectan, doublereal *range, doublereal *ra, doublereal *dec);
6046 /*:ref: reclat_ 14 4 7 7 7 7 */
6047 /*:ref: twopi_ 7 0 */
6048 
6049 extern int recsph_(doublereal *rectan, doublereal *r__, doublereal *colat, doublereal *long__);
6050 
6051 extern int refchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate);
6052 /*:ref: return_ 12 0 */
6053 /*:ref: chkin_ 14 2 13 124 */
6054 /*:ref: ident_ 14 1 7 */
6055 /*:ref: chkout_ 14 2 13 124 */
6056 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
6057 /*:ref: setmsg_ 14 2 13 124 */
6058 /*:ref: errint_ 14 3 13 4 124 */
6059 /*:ref: sigerr_ 14 2 13 124 */
6060 /*:ref: rotget_ 14 5 4 7 7 4 12 */
6061 /*:ref: zzrxr_ 14 3 7 4 7 */
6062 /*:ref: isrchi_ 4 3 4 4 4 */
6063 /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */
6064 /*:ref: failed_ 12 0 */
6065 /*:ref: xpose_ 14 2 7 7 */
6066 
6067 extern int remlac_(integer *ne, integer *loc, char *array, integer *na, ftnlen array_len);
6068 /*:ref: return_ 12 0 */
6069 /*:ref: chkin_ 14 2 13 124 */
6070 /*:ref: setmsg_ 14 2 13 124 */
6071 /*:ref: errint_ 14 3 13 4 124 */
6072 /*:ref: sigerr_ 14 2 13 124 */
6073 /*:ref: chkout_ 14 2 13 124 */
6074 
6075 extern int remlad_(integer *ne, integer *loc, doublereal *array, integer *na);
6076 /*:ref: return_ 12 0 */
6077 /*:ref: chkin_ 14 2 13 124 */
6078 /*:ref: setmsg_ 14 2 13 124 */
6079 /*:ref: errint_ 14 3 13 4 124 */
6080 /*:ref: sigerr_ 14 2 13 124 */
6081 /*:ref: chkout_ 14 2 13 124 */
6082 
6083 extern int remlai_(integer *ne, integer *loc, integer *array, integer *na);
6084 /*:ref: return_ 12 0 */
6085 /*:ref: chkin_ 14 2 13 124 */
6086 /*:ref: setmsg_ 14 2 13 124 */
6087 /*:ref: errint_ 14 3 13 4 124 */
6088 /*:ref: sigerr_ 14 2 13 124 */
6089 /*:ref: chkout_ 14 2 13 124 */
6090 
6091 extern int removc_(char *item, char *a, ftnlen item_len, ftnlen a_len);
6092 /*:ref: return_ 12 0 */
6093 /*:ref: chkin_ 14 2 13 124 */
6094 /*:ref: cardc_ 4 2 13 124 */
6095 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
6096 /*:ref: scardc_ 14 3 4 13 124 */
6097 /*:ref: chkout_ 14 2 13 124 */
6098 
6099 extern int removd_(doublereal *item, doublereal *a);
6100 /*:ref: return_ 12 0 */
6101 /*:ref: chkin_ 14 2 13 124 */
6102 /*:ref: cardd_ 4 1 7 */
6103 /*:ref: bsrchd_ 4 3 7 4 7 */
6104 /*:ref: scardd_ 14 2 4 7 */
6105 /*:ref: chkout_ 14 2 13 124 */
6106 
6107 extern int removi_(integer *item, integer *a);
6108 /*:ref: return_ 12 0 */
6109 /*:ref: chkin_ 14 2 13 124 */
6110 /*:ref: cardi_ 4 1 4 */
6111 /*:ref: bsrchi_ 4 3 4 4 4 */
6112 /*:ref: scardi_ 14 2 4 4 */
6113 /*:ref: chkout_ 14 2 13 124 */
6114 
6115 extern int remsub_(char *in, integer *left, integer *right, char *out, ftnlen in_len, ftnlen out_len);
6116 /*:ref: return_ 12 0 */
6117 /*:ref: chkin_ 14 2 13 124 */
6118 /*:ref: setmsg_ 14 2 13 124 */
6119 /*:ref: errint_ 14 3 13 4 124 */
6120 /*:ref: sigerr_ 14 2 13 124 */
6121 /*:ref: chkout_ 14 2 13 124 */
6122 /*:ref: lastnb_ 4 2 13 124 */
6123 
6124 extern int reordc_(integer *iorder, integer *ndim, char *array, ftnlen array_len);
6125 
6126 extern int reordd_(integer *iorder, integer *ndim, doublereal *array);
6127 
6128 extern int reordi_(integer *iorder, integer *ndim, integer *array);
6129 
6130 extern int reordl_(integer *iorder, integer *ndim, logical *array);
6131 
6132 extern int replch_(char *instr, char *old, char *new__, char *outstr, ftnlen instr_len, ftnlen old_len, ftnlen new_len, ftnlen outstr_len);
6133 
6134 extern int replwd_(char *instr, integer *nth, char *new__, char *outstr, ftnlen instr_len, ftnlen new_len, ftnlen outstr_len);
6135 /*:ref: nthwd_ 14 6 13 4 13 4 124 124 */
6136 /*:ref: fndnwd_ 14 5 13 4 4 4 124 */
6137 /*:ref: frstnb_ 4 2 13 124 */
6138 /*:ref: lastnb_ 4 2 13 124 */
6139 
6140 extern int repmc_(char *in, char *marker, char *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen value_len, ftnlen out_len);
6141 /*:ref: frstnb_ 4 2 13 124 */
6142 /*:ref: lastnb_ 4 2 13 124 */
6143 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
6144 
6145 extern int repmct_(char *in, char *marker, integer *value, char *case__, char *out, ftnlen in_len, ftnlen marker_len, ftnlen case_len, ftnlen out_len);
6146 /*:ref: return_ 12 0 */
6147 /*:ref: chkin_ 14 2 13 124 */
6148 /*:ref: ljust_ 14 4 13 13 124 124 */
6149 /*:ref: ucase_ 14 4 13 13 124 124 */
6150 /*:ref: setmsg_ 14 2 13 124 */
6151 /*:ref: errch_ 14 4 13 13 124 124 */
6152 /*:ref: sigerr_ 14 2 13 124 */
6153 /*:ref: chkout_ 14 2 13 124 */
6154 /*:ref: frstnb_ 4 2 13 124 */
6155 /*:ref: lastnb_ 4 2 13 124 */
6156 /*:ref: inttxt_ 14 3 4 13 124 */
6157 /*:ref: lcase_ 14 4 13 13 124 124 */
6158 /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */
6159 
6160 extern int repmd_(char *in, char *marker, doublereal *value, integer *sigdig, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len);
6161 /*:ref: frstnb_ 4 2 13 124 */
6162 /*:ref: lastnb_ 4 2 13 124 */
6163 /*:ref: dpstr_ 14 4 7 4 13 124 */
6164 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
6165 
6166 extern int repmf_(char *in, char *marker, doublereal *value, integer *sigdig, char *format, char *out, ftnlen in_len, ftnlen marker_len, ftnlen format_len, ftnlen out_len);
6167 /*:ref: frstnb_ 4 2 13 124 */
6168 /*:ref: lastnb_ 4 2 13 124 */
6169 /*:ref: ljust_ 14 4 13 13 124 124 */
6170 /*:ref: ucase_ 14 4 13 13 124 124 */
6171 /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */
6172 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
6173 
6174 extern int repmi_(char *in, char *marker, integer *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len);
6175 /*:ref: frstnb_ 4 2 13 124 */
6176 /*:ref: lastnb_ 4 2 13 124 */
6177 /*:ref: intstr_ 14 3 4 13 124 */
6178 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
6179 
6180 extern int repmot_(char *in, char *marker, integer *value, char *case__, char *out, ftnlen in_len, ftnlen marker_len, ftnlen case_len, ftnlen out_len);
6181 /*:ref: return_ 12 0 */
6182 /*:ref: chkin_ 14 2 13 124 */
6183 /*:ref: ljust_ 14 4 13 13 124 124 */
6184 /*:ref: ucase_ 14 4 13 13 124 124 */
6185 /*:ref: setmsg_ 14 2 13 124 */
6186 /*:ref: errch_ 14 4 13 13 124 124 */
6187 /*:ref: sigerr_ 14 2 13 124 */
6188 /*:ref: chkout_ 14 2 13 124 */
6189 /*:ref: frstnb_ 4 2 13 124 */
6190 /*:ref: lastnb_ 4 2 13 124 */
6191 /*:ref: intord_ 14 3 4 13 124 */
6192 /*:ref: lcase_ 14 4 13 13 124 124 */
6193 /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */
6194 
6195 extern int repsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len);
6196 /*:ref: return_ 12 0 */
6197 /*:ref: chkin_ 14 2 13 124 */
6198 /*:ref: setmsg_ 14 2 13 124 */
6199 /*:ref: errint_ 14 3 13 4 124 */
6200 /*:ref: sigerr_ 14 2 13 124 */
6201 /*:ref: chkout_ 14 2 13 124 */
6202 /*:ref: sumai_ 4 2 4 4 */
6203 
6204 extern int reset_(void);
6205 /*:ref: seterr_ 12 1 12 */
6206 /*:ref: putsms_ 14 2 13 124 */
6207 /*:ref: putlms_ 14 2 13 124 */
6208 /*:ref: accept_ 12 1 12 */
6209 
6210 extern logical return_(void);
6211 /*:ref: failed_ 12 0 */
6212 /*:ref: getact_ 14 1 4 */
6213 
6214 extern int rjust_(char *input, char *output, ftnlen input_len, ftnlen output_len);
6215 /*:ref: frstnb_ 4 2 13 124 */
6216 /*:ref: lastnb_ 4 2 13 124 */
6217 
6218 extern int rmaind_(doublereal *num, doublereal *denom, doublereal *q, doublereal *rem);
6219 /*:ref: chkin_ 14 2 13 124 */
6220 /*:ref: setmsg_ 14 2 13 124 */
6221 /*:ref: sigerr_ 14 2 13 124 */
6222 /*:ref: chkout_ 14 2 13 124 */
6223 
6224 extern int rmaini_(integer *num, integer *denom, integer *q, integer *rem);
6225 /*:ref: chkin_ 14 2 13 124 */
6226 /*:ref: setmsg_ 14 2 13 124 */
6227 /*:ref: sigerr_ 14 2 13 124 */
6228 /*:ref: chkout_ 14 2 13 124 */
6229 
6230 extern int rmdupc_(integer *nelt, char *array, ftnlen array_len);
6231 /*:ref: shellc_ 14 3 4 13 124 */
6232 
6233 extern int rmdupd_(integer *nelt, doublereal *array);
6234 /*:ref: shelld_ 14 2 4 7 */
6235 
6236 extern int rmdupi_(integer *nelt, integer *array);
6237 /*:ref: shelli_ 14 2 4 4 */
6238 
6239 extern int rotate_(doublereal *angle, integer *iaxis, doublereal *mout);
6240 
6241 extern int rotget_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found);
6242 /*:ref: return_ 12 0 */
6243 /*:ref: chkin_ 14 2 13 124 */
6244 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
6245 /*:ref: cleard_ 14 2 4 7 */
6246 /*:ref: chkout_ 14 2 13 124 */
6247 /*:ref: irfrot_ 14 3 4 4 7 */
6248 /*:ref: failed_ 12 0 */
6249 /*:ref: tipbod_ 14 5 13 4 7 7 124 */
6250 /*:ref: xpose_ 14 2 7 7 */
6251 /*:ref: ckfrot_ 14 5 4 7 7 4 12 */
6252 /*:ref: tkfram_ 14 4 4 7 4 12 */
6253 /*:ref: zzdynrot_ 14 5 4 4 7 7 4 */
6254 /*:ref: setmsg_ 14 2 13 124 */
6255 /*:ref: errint_ 14 3 13 4 124 */
6256 /*:ref: errch_ 14 4 13 13 124 124 */
6257 /*:ref: sigerr_ 14 2 13 124 */
6258 
6259 extern int rotmat_(doublereal *m1, doublereal *angle, integer *iaxis, doublereal *mout);
6260 /*:ref: moved_ 14 3 7 4 7 */
6261 
6262 extern int rotvec_(doublereal *v1, doublereal *angle, integer *iaxis, doublereal *vout);
6263 
6264 extern doublereal rpd_(void);
6265 
6266 extern int rquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *root1, doublereal *root2);
6267 /*:ref: return_ 12 0 */
6268 /*:ref: chkin_ 14 2 13 124 */
6269 /*:ref: setmsg_ 14 2 13 124 */
6270 /*:ref: sigerr_ 14 2 13 124 */
6271 /*:ref: chkout_ 14 2 13 124 */
6272 /*:ref: moved_ 14 3 7 4 7 */
6273 
6274 extern integer rtrim_(char *string, ftnlen string_len);
6275 /*:ref: lastnb_ 4 2 13 124 */
6276 
6277 extern int saelgv_(doublereal *vec1, doublereal *vec2, doublereal *smajor, doublereal *sminor);
6278 /*:ref: return_ 12 0 */
6279 /*:ref: chkin_ 14 2 13 124 */
6280 /*:ref: moved_ 14 3 7 4 7 */
6281 /*:ref: vnorm_ 7 1 7 */
6282 /*:ref: cleard_ 14 2 4 7 */
6283 /*:ref: chkout_ 14 2 13 124 */
6284 /*:ref: vdot_ 7 2 7 7 */
6285 /*:ref: diags2_ 14 3 7 7 7 */
6286 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
6287 /*:ref: vsclip_ 14 2 7 7 */
6288 
6289 extern logical samch_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len);
6290 
6291 extern logical samchi_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len);
6292 /*:ref: eqchr_ 12 4 13 13 124 124 */
6293 
6294 extern logical sameai_(integer *a1, integer *a2, integer *ndim);
6295 
6296 extern logical samsbi_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len);
6297 /*:ref: nechr_ 12 4 13 13 124 124 */
6298 
6299 extern logical samsub_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len);
6300 
6301 extern int sc01_(integer *sc, char *clkstr, doublereal *ticks, doublereal *sclkdp, doublereal *et, ftnlen clkstr_len);
6302 extern int sctk01_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len);
6303 extern int scfm01_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len);
6304 extern int scte01_(integer *sc, doublereal *sclkdp, doublereal *et);
6305 extern int scet01_(integer *sc, doublereal *et, doublereal *sclkdp);
6306 extern int scec01_(integer *sc, doublereal *et, doublereal *sclkdp);
6307 /*:ref: return_ 12 0 */
6308 /*:ref: chkin_ 14 2 13 124 */
6309 /*:ref: sigerr_ 14 2 13 124 */
6310 /*:ref: chkout_ 14 2 13 124 */
6311 /*:ref: movec_ 14 5 13 4 13 124 124 */
6312 /*:ref: suffix_ 14 5 13 4 13 124 124 */
6313 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
6314 /*:ref: swpool_ 14 5 13 4 13 124 124 */
6315 /*:ref: zzctruin_ 14 1 4 */
6316 /*:ref: zzcvpool_ 14 4 13 4 12 124 */
6317 /*:ref: scli01_ 14 6 13 4 4 4 4 124 */
6318 /*:ref: scld01_ 14 6 13 4 4 4 7 124 */
6319 /*:ref: failed_ 12 0 */
6320 /*:ref: setmsg_ 14 2 13 124 */
6321 /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */
6322 /*:ref: errint_ 14 3 13 4 124 */
6323 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
6324 /*:ref: errch_ 14 4 13 13 124 124 */
6325 /*:ref: sumai_ 4 2 4 4 */
6326 /*:ref: errdp_ 14 3 13 7 124 */
6327 /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */
6328 /*:ref: prefix_ 14 5 13 4 13 124 124 */
6329 /*:ref: unitim_ 7 5 7 13 13 124 124 */
6330 
6331 extern int scanit_(char *string, integer *start, integer *room, integer *nmarks, char *marks, integer *mrklen, integer *pnters, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len);
6332 extern int scanpr_(integer *nmarks, char *marks, integer *mrklen, integer *pnters, ftnlen marks_len);
6333 extern int scan_(char *string, char *marks, integer *mrklen, integer *pnters, integer *room, integer *start, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len);
6334 /*:ref: return_ 12 0 */
6335 /*:ref: chkin_ 14 2 13 124 */
6336 /*:ref: setmsg_ 14 2 13 124 */
6337 /*:ref: sigerr_ 14 2 13 124 */
6338 /*:ref: chkout_ 14 2 13 124 */
6339 /*:ref: ljust_ 14 4 13 13 124 124 */
6340 /*:ref: rmdupc_ 14 3 4 13 124 */
6341 /*:ref: rtrim_ 4 2 13 124 */
6342 /*:ref: ncpos_ 4 5 13 13 4 124 124 */
6343 
6344 extern int scanrj_(integer *ids, integer *n, integer *ntokns, integer *ident, integer *beg, integer *end);
6345 /*:ref: isrchi_ 4 3 4 4 4 */
6346 
6347 extern int scardc_(integer *card, char *cell, ftnlen cell_len);
6348 /*:ref: return_ 12 0 */
6349 /*:ref: chkin_ 14 2 13 124 */
6350 /*:ref: dechar_ 14 3 13 4 124 */
6351 /*:ref: setmsg_ 14 2 13 124 */
6352 /*:ref: errint_ 14 3 13 4 124 */
6353 /*:ref: sigerr_ 14 2 13 124 */
6354 /*:ref: chkout_ 14 2 13 124 */
6355 /*:ref: enchar_ 14 3 4 13 124 */
6356 
6357 extern int scardd_(integer *card, doublereal *cell);
6358 /*:ref: return_ 12 0 */
6359 /*:ref: chkin_ 14 2 13 124 */
6360 /*:ref: setmsg_ 14 2 13 124 */
6361 /*:ref: errint_ 14 3 13 4 124 */
6362 /*:ref: sigerr_ 14 2 13 124 */
6363 /*:ref: chkout_ 14 2 13 124 */
6364 
6365 extern int scardi_(integer *card, integer *cell);
6366 /*:ref: return_ 12 0 */
6367 /*:ref: chkin_ 14 2 13 124 */
6368 /*:ref: setmsg_ 14 2 13 124 */
6369 /*:ref: errint_ 14 3 13 4 124 */
6370 /*:ref: sigerr_ 14 2 13 124 */
6371 /*:ref: chkout_ 14 2 13 124 */
6372 
6373 extern int scdecd_(integer *sc, doublereal *sclkdp, char *sclkch, ftnlen sclkch_len);
6374 /*:ref: return_ 12 0 */
6375 /*:ref: chkin_ 14 2 13 124 */
6376 /*:ref: scpart_ 14 4 4 4 7 7 */
6377 /*:ref: failed_ 12 0 */
6378 /*:ref: chkout_ 14 2 13 124 */
6379 /*:ref: setmsg_ 14 2 13 124 */
6380 /*:ref: errint_ 14 3 13 4 124 */
6381 /*:ref: sigerr_ 14 2 13 124 */
6382 /*:ref: lstled_ 4 3 7 4 7 */
6383 /*:ref: errdp_ 14 3 13 7 124 */
6384 /*:ref: scfmt_ 14 4 4 7 13 124 */
6385 /*:ref: intstr_ 14 3 4 13 124 */
6386 /*:ref: suffix_ 14 5 13 4 13 124 124 */
6387 /*:ref: lastnb_ 4 2 13 124 */
6388 /*:ref: prefix_ 14 5 13 4 13 124 124 */
6389 
6390 extern int sce2c_(integer *sc, doublereal *et, doublereal *sclkdp);
6391 /*:ref: return_ 12 0 */
6392 /*:ref: chkin_ 14 2 13 124 */
6393 /*:ref: sctype_ 4 1 4 */
6394 /*:ref: scec01_ 14 3 4 7 7 */
6395 /*:ref: setmsg_ 14 2 13 124 */
6396 /*:ref: errint_ 14 3 13 4 124 */
6397 /*:ref: sigerr_ 14 2 13 124 */
6398 /*:ref: chkout_ 14 2 13 124 */
6399 
6400 extern int sce2s_(integer *sc, doublereal *et, char *sclkch, ftnlen sclkch_len);
6401 /*:ref: return_ 12 0 */
6402 /*:ref: chkin_ 14 2 13 124 */
6403 /*:ref: sce2t_ 14 3 4 7 7 */
6404 /*:ref: scdecd_ 14 4 4 7 13 124 */
6405 /*:ref: chkout_ 14 2 13 124 */
6406 
6407 extern int sce2t_(integer *sc, doublereal *et, doublereal *sclkdp);
6408 /*:ref: return_ 12 0 */
6409 /*:ref: chkin_ 14 2 13 124 */
6410 /*:ref: sctype_ 4 1 4 */
6411 /*:ref: scet01_ 14 3 4 7 7 */
6412 /*:ref: setmsg_ 14 2 13 124 */
6413 /*:ref: errint_ 14 3 13 4 124 */
6414 /*:ref: sigerr_ 14 2 13 124 */
6415 /*:ref: chkout_ 14 2 13 124 */
6416 
6417 extern int scencd_(integer *sc, char *sclkch, doublereal *sclkdp, ftnlen sclkch_len);
6418 /*:ref: return_ 12 0 */
6419 /*:ref: chkin_ 14 2 13 124 */
6420 /*:ref: cpos_ 4 5 13 13 4 124 124 */
6421 /*:ref: sctiks_ 14 4 4 13 7 124 */
6422 /*:ref: failed_ 12 0 */
6423 /*:ref: chkout_ 14 2 13 124 */
6424 /*:ref: scpart_ 14 4 4 4 7 7 */
6425 /*:ref: setmsg_ 14 2 13 124 */
6426 /*:ref: errint_ 14 3 13 4 124 */
6427 /*:ref: sigerr_ 14 2 13 124 */
6428 /*:ref: errch_ 14 4 13 13 124 124 */
6429 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
6430 
6431 extern int scfmt_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len);
6432 /*:ref: return_ 12 0 */
6433 /*:ref: chkin_ 14 2 13 124 */
6434 /*:ref: sctype_ 4 1 4 */
6435 /*:ref: scfm01_ 14 4 4 7 13 124 */
6436 /*:ref: setmsg_ 14 2 13 124 */
6437 /*:ref: errint_ 14 3 13 4 124 */
6438 /*:ref: sigerr_ 14 2 13 124 */
6439 /*:ref: chkout_ 14 2 13 124 */
6440 
6441 extern int sclu01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, doublereal *dval, ftnlen name_len);
6442 extern int scli01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, ftnlen name_len);
6443 extern int scld01_(char *name__, integer *sc, integer *maxnv, integer *n, doublereal *dval, ftnlen name_len);
6444 /*:ref: return_ 12 0 */
6445 /*:ref: chkin_ 14 2 13 124 */
6446 /*:ref: sigerr_ 14 2 13 124 */
6447 /*:ref: chkout_ 14 2 13 124 */
6448 /*:ref: suffix_ 14 5 13 4 13 124 124 */
6449 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
6450 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
6451 /*:ref: setmsg_ 14 2 13 124 */
6452 /*:ref: errch_ 14 4 13 13 124 124 */
6453 /*:ref: errint_ 14 3 13 4 124 */
6454 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
6455 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
6456 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
6457 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
6458 /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */
6459 
6460 extern int scpars_(integer *sc, char *sclkch, logical *error, char *msg, doublereal *sclkdp, ftnlen sclkch_len, ftnlen msg_len);
6461 /*:ref: return_ 12 0 */
6462 /*:ref: chkin_ 14 2 13 124 */
6463 /*:ref: chkout_ 14 2 13 124 */
6464 /*:ref: cpos_ 4 5 13 13 4 124 124 */
6465 /*:ref: sctype_ 4 1 4 */
6466 /*:ref: failed_ 12 0 */
6467 /*:ref: scps01_ 14 7 4 13 12 13 7 124 124 */
6468 /*:ref: setmsg_ 14 2 13 124 */
6469 /*:ref: errint_ 14 3 13 4 124 */
6470 /*:ref: sigerr_ 14 2 13 124 */
6471 /*:ref: scpart_ 14 4 4 4 7 7 */
6472 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
6473 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
6474 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
6475 
6476 extern int scpart_(integer *sc, integer *nparts, doublereal *pstart, doublereal *pstop);
6477 /*:ref: return_ 12 0 */
6478 /*:ref: chkin_ 14 2 13 124 */
6479 /*:ref: suffix_ 14 5 13 4 13 124 124 */
6480 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
6481 /*:ref: swpool_ 14 5 13 4 13 124 124 */
6482 /*:ref: zzctruin_ 14 1 4 */
6483 /*:ref: zzcvpool_ 14 4 13 4 12 124 */
6484 /*:ref: scld01_ 14 6 13 4 4 4 7 124 */
6485 /*:ref: failed_ 12 0 */
6486 /*:ref: chkout_ 14 2 13 124 */
6487 /*:ref: setmsg_ 14 2 13 124 */
6488 /*:ref: errint_ 14 3 13 4 124 */
6489 /*:ref: sigerr_ 14 2 13 124 */
6490 
6491 extern int scps01_(integer *sc, char *clkstr, logical *error, char *msg, doublereal *ticks, ftnlen clkstr_len, ftnlen msg_len);
6492 /*:ref: return_ 12 0 */
6493 /*:ref: chkin_ 14 2 13 124 */
6494 /*:ref: scli01_ 14 6 13 4 4 4 4 124 */
6495 /*:ref: scld01_ 14 6 13 4 4 4 7 124 */
6496 /*:ref: failed_ 12 0 */
6497 /*:ref: chkout_ 14 2 13 124 */
6498 /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */
6499 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
6500 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
6501 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
6502 
6503 extern int scs2e_(integer *sc, char *sclkch, doublereal *et, ftnlen sclkch_len);
6504 /*:ref: return_ 12 0 */
6505 /*:ref: chkin_ 14 2 13 124 */
6506 /*:ref: scencd_ 14 4 4 13 7 124 */
6507 /*:ref: sct2e_ 14 3 4 7 7 */
6508 /*:ref: chkout_ 14 2 13 124 */
6509 
6510 extern int sct2e_(integer *sc, doublereal *sclkdp, doublereal *et);
6511 /*:ref: return_ 12 0 */
6512 /*:ref: chkin_ 14 2 13 124 */
6513 /*:ref: sctype_ 4 1 4 */
6514 /*:ref: scte01_ 14 3 4 7 7 */
6515 /*:ref: setmsg_ 14 2 13 124 */
6516 /*:ref: errint_ 14 3 13 4 124 */
6517 /*:ref: sigerr_ 14 2 13 124 */
6518 /*:ref: chkout_ 14 2 13 124 */
6519 
6520 extern int sctiks_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len);
6521 /*:ref: return_ 12 0 */
6522 /*:ref: chkin_ 14 2 13 124 */
6523 /*:ref: sctype_ 4 1 4 */
6524 /*:ref: sctk01_ 14 4 4 13 7 124 */
6525 /*:ref: setmsg_ 14 2 13 124 */
6526 /*:ref: errint_ 14 3 13 4 124 */
6527 /*:ref: sigerr_ 14 2 13 124 */
6528 /*:ref: chkout_ 14 2 13 124 */
6529 
6530 extern int sctran_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len);
6531 extern int scn2id_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len);
6532 extern int scid2n_(integer *clkid, char *clknam, logical *found, ftnlen clknam_len);
6533 /*:ref: return_ 12 0 */
6534 /*:ref: chkin_ 14 2 13 124 */
6535 /*:ref: sigerr_ 14 2 13 124 */
6536 /*:ref: chkout_ 14 2 13 124 */
6537 /*:ref: ucase_ 14 4 13 13 124 124 */
6538 /*:ref: posr_ 4 5 13 13 4 124 124 */
6539 /*:ref: rtrim_ 4 2 13 124 */
6540 /*:ref: bodn2c_ 14 4 13 4 12 124 */
6541 /*:ref: bodc2n_ 14 4 4 13 12 124 */
6542 /*:ref: suffix_ 14 5 13 4 13 124 124 */
6543 
6544 extern integer sctype_(integer *sc);
6545 /*:ref: return_ 12 0 */
6546 /*:ref: chkin_ 14 2 13 124 */
6547 /*:ref: suffix_ 14 5 13 4 13 124 124 */
6548 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
6549 /*:ref: swpool_ 14 5 13 4 13 124 124 */
6550 /*:ref: zzctruin_ 14 1 4 */
6551 /*:ref: zzcvpool_ 14 4 13 4 12 124 */
6552 /*:ref: scli01_ 14 6 13 4 4 4 4 124 */
6553 /*:ref: failed_ 12 0 */
6554 /*:ref: chkout_ 14 2 13 124 */
6555 
6556 extern int sdiffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len);
6557 /*:ref: return_ 12 0 */
6558 /*:ref: chkin_ 14 2 13 124 */
6559 /*:ref: setmsg_ 14 2 13 124 */
6560 /*:ref: errint_ 14 3 13 4 124 */
6561 /*:ref: sigerr_ 14 2 13 124 */
6562 /*:ref: chkout_ 14 2 13 124 */
6563 /*:ref: cardc_ 4 2 13 124 */
6564 /*:ref: sizec_ 4 2 13 124 */
6565 /*:ref: scardc_ 14 3 4 13 124 */
6566 /*:ref: excess_ 14 3 4 13 124 */
6567 
6568 extern int sdiffd_(doublereal *a, doublereal *b, doublereal *c__);
6569 /*:ref: return_ 12 0 */
6570 /*:ref: chkin_ 14 2 13 124 */
6571 /*:ref: cardd_ 4 1 7 */
6572 /*:ref: sized_ 4 1 7 */
6573 /*:ref: scardd_ 14 2 4 7 */
6574 /*:ref: excess_ 14 3 4 13 124 */
6575 /*:ref: sigerr_ 14 2 13 124 */
6576 /*:ref: chkout_ 14 2 13 124 */
6577 
6578 extern int sdiffi_(integer *a, integer *b, integer *c__);
6579 /*:ref: return_ 12 0 */
6580 /*:ref: chkin_ 14 2 13 124 */
6581 /*:ref: cardi_ 4 1 4 */
6582 /*:ref: sizei_ 4 1 4 */
6583 /*:ref: scardi_ 14 2 4 4 */
6584 /*:ref: excess_ 14 3 4 13 124 */
6585 /*:ref: sigerr_ 14 2 13 124 */
6586 /*:ref: chkout_ 14 2 13 124 */
6587 
6588 extern int sepool_(char *item, integer *fidx, char *contin, char *string, integer *size, integer *lidx, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len);
6589 /*:ref: return_ 12 0 */
6590 /*:ref: chkin_ 14 2 13 124 */
6591 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
6592 /*:ref: chkout_ 14 2 13 124 */
6593 /*:ref: rtrim_ 4 2 13 124 */
6594 
6595 extern logical setc_(char *a, char *op, char *b, ftnlen a_len, ftnlen op_len, ftnlen b_len);
6596 /*:ref: return_ 12 0 */
6597 /*:ref: chkin_ 14 2 13 124 */
6598 /*:ref: cardc_ 4 2 13 124 */
6599 /*:ref: chkout_ 14 2 13 124 */
6600 /*:ref: setmsg_ 14 2 13 124 */
6601 /*:ref: errch_ 14 4 13 13 124 124 */
6602 /*:ref: sigerr_ 14 2 13 124 */
6603 
6604 extern logical setd_(doublereal *a, char *op, doublereal *b, ftnlen op_len);
6605 /*:ref: return_ 12 0 */
6606 /*:ref: chkin_ 14 2 13 124 */
6607 /*:ref: cardd_ 4 1 7 */
6608 /*:ref: chkout_ 14 2 13 124 */
6609 /*:ref: setmsg_ 14 2 13 124 */
6610 /*:ref: errch_ 14 4 13 13 124 124 */
6611 /*:ref: sigerr_ 14 2 13 124 */
6612 
6613 extern logical seterr_(logical *status);
6614 extern logical failed_(void);
6615 
6616 extern logical seti_(integer *a, char *op, integer *b, ftnlen op_len);
6617 /*:ref: return_ 12 0 */
6618 /*:ref: chkin_ 14 2 13 124 */
6619 /*:ref: cardi_ 4 1 4 */
6620 /*:ref: chkout_ 14 2 13 124 */
6621 /*:ref: setmsg_ 14 2 13 124 */
6622 /*:ref: errch_ 14 4 13 13 124 124 */
6623 /*:ref: sigerr_ 14 2 13 124 */
6624 
6625 extern int setmsg_(char *msg, ftnlen msg_len);
6626 /*:ref: allowd_ 12 0 */
6627 /*:ref: putlms_ 14 2 13 124 */
6628 
6629 extern int sgfcon_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values);
6630 /*:ref: return_ 12 0 */
6631 /*:ref: chkin_ 14 2 13 124 */
6632 /*:ref: sgmeta_ 14 4 4 7 4 4 */
6633 /*:ref: failed_ 12 0 */
6634 /*:ref: chkout_ 14 2 13 124 */
6635 /*:ref: setmsg_ 14 2 13 124 */
6636 /*:ref: errint_ 14 3 13 4 124 */
6637 /*:ref: sigerr_ 14 2 13 124 */
6638 /*:ref: dafgda_ 14 4 4 4 4 7 */
6639 
6640 extern int sgfpkt_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values, integer *ends);
6641 /*:ref: return_ 12 0 */
6642 /*:ref: chkin_ 14 2 13 124 */
6643 /*:ref: sgmeta_ 14 4 4 7 4 4 */
6644 /*:ref: failed_ 12 0 */
6645 /*:ref: chkout_ 14 2 13 124 */
6646 /*:ref: setmsg_ 14 2 13 124 */
6647 /*:ref: errint_ 14 3 13 4 124 */
6648 /*:ref: sigerr_ 14 2 13 124 */
6649 /*:ref: dafgda_ 14 4 4 4 4 7 */
6650 
6651 extern int sgfref_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values);
6652 /*:ref: return_ 12 0 */
6653 /*:ref: chkin_ 14 2 13 124 */
6654 /*:ref: sgmeta_ 14 4 4 7 4 4 */
6655 /*:ref: failed_ 12 0 */
6656 /*:ref: chkout_ 14 2 13 124 */
6657 /*:ref: setmsg_ 14 2 13 124 */
6658 /*:ref: errint_ 14 3 13 4 124 */
6659 /*:ref: sigerr_ 14 2 13 124 */
6660 /*:ref: dafgda_ 14 4 4 4 4 7 */
6661 
6662 extern int sgfrvi_(integer *handle, doublereal *descr, doublereal *x, doublereal *value, integer *indx, logical *found);
6663 /*:ref: return_ 12 0 */
6664 /*:ref: chkin_ 14 2 13 124 */
6665 /*:ref: intmax_ 4 0 */
6666 /*:ref: sgmeta_ 14 4 4 7 4 4 */
6667 /*:ref: failed_ 12 0 */
6668 /*:ref: chkout_ 14 2 13 124 */
6669 /*:ref: setmsg_ 14 2 13 124 */
6670 /*:ref: errint_ 14 3 13 4 124 */
6671 /*:ref: sigerr_ 14 2 13 124 */
6672 /*:ref: dafgda_ 14 4 4 4 4 7 */
6673 /*:ref: lstled_ 4 3 7 4 7 */
6674 /*:ref: errdp_ 14 3 13 7 124 */
6675 
6676 extern int sgmeta_(integer *handle, doublereal *descr, integer *mnemon, integer *value);
6677 /*:ref: return_ 12 0 */
6678 /*:ref: moved_ 14 3 7 4 7 */
6679 /*:ref: chkin_ 14 2 13 124 */
6680 /*:ref: setmsg_ 14 2 13 124 */
6681 /*:ref: errint_ 14 3 13 4 124 */
6682 /*:ref: sigerr_ 14 2 13 124 */
6683 /*:ref: chkout_ 14 2 13 124 */
6684 /*:ref: dafhsf_ 14 3 4 4 4 */
6685 /*:ref: failed_ 12 0 */
6686 /*:ref: dafgda_ 14 4 4 4 4 7 */
6687 
6688 extern int sgseqw_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat, integer *idxtyp, ftnlen segid_len);
6689 extern int sgbwfs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *pktsiz, integer *idxtyp, ftnlen segid_len);
6690 extern int sgbwvs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *idxtyp, ftnlen segid_len);
6691 extern int sgwfpk_(integer *handle, integer *npkts, doublereal *pktdat, integer *nrefs, doublereal *refdat);
6692 extern int sgwvpk_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat);
6693 extern int sgwes_(integer *handle);
6694 /*:ref: return_ 12 0 */
6695 /*:ref: chkin_ 14 2 13 124 */
6696 /*:ref: setmsg_ 14 2 13 124 */
6697 /*:ref: sigerr_ 14 2 13 124 */
6698 /*:ref: chkout_ 14 2 13 124 */
6699 /*:ref: dafsih_ 14 3 4 13 124 */
6700 /*:ref: failed_ 12 0 */
6701 /*:ref: isrchi_ 4 3 4 4 4 */
6702 /*:ref: errhan_ 14 3 13 4 124 */
6703 /*:ref: dafhsf_ 14 3 4 4 4 */
6704 /*:ref: lastnb_ 4 2 13 124 */
6705 /*:ref: errint_ 14 3 13 4 124 */
6706 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
6707 /*:ref: dafbna_ 14 4 4 7 13 124 */
6708 /*:ref: dafada_ 14 2 7 4 */
6709 /*:ref: dafcad_ 14 1 4 */
6710 /*:ref: errdp_ 14 3 13 7 124 */
6711 /*:ref: dafgda_ 14 4 4 4 4 7 */
6712 /*:ref: dafena_ 14 0 */
6713 
6714 extern int sharpr_(doublereal *rot);
6715 /*:ref: vhatip_ 14 1 7 */
6716 /*:ref: ucrss_ 14 3 7 7 7 */
6717 
6718 extern int shellc_(integer *ndim, char *array, ftnlen array_len);
6719 /*:ref: swapc_ 14 4 13 13 124 124 */
6720 
6721 extern int shelld_(integer *ndim, doublereal *array);
6722 /*:ref: swapd_ 14 2 7 7 */
6723 
6724 extern int shelli_(integer *ndim, integer *array);
6725 /*:ref: swapi_ 14 2 4 4 */
6726 
6727 extern int shiftc_(char *in, char *dir, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen dir_len, ftnlen fillc_len, ftnlen out_len);
6728 /*:ref: return_ 12 0 */
6729 /*:ref: chkin_ 14 2 13 124 */
6730 /*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */
6731 /*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */
6732 /*:ref: setmsg_ 14 2 13 124 */
6733 /*:ref: errch_ 14 4 13 13 124 124 */
6734 /*:ref: sigerr_ 14 2 13 124 */
6735 /*:ref: chkout_ 14 2 13 124 */
6736 
6737 extern int shiftl_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len);
6738 
6739 extern int shiftr_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len);
6740 
6741 extern int sigdgt_(char *in, char *out, ftnlen in_len, ftnlen out_len);
6742 /*:ref: frstnb_ 4 2 13 124 */
6743 /*:ref: lastnb_ 4 2 13 124 */
6744 /*:ref: cpos_ 4 5 13 13 4 124 124 */
6745 
6746 extern int sigerr_(char *msg, ftnlen msg_len);
6747 /*:ref: getact_ 14 1 4 */
6748 /*:ref: failed_ 12 0 */
6749 /*:ref: seterr_ 12 1 12 */
6750 /*:ref: putsms_ 14 2 13 124 */
6751 /*:ref: freeze_ 14 0 */
6752 /*:ref: outmsg_ 14 2 13 124 */
6753 /*:ref: accept_ 12 1 12 */
6754 /*:ref: byebye_ 14 2 13 124 */
6755 
6756 extern int sincpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len);
6757 /*:ref: return_ 12 0 */
6758 /*:ref: chkin_ 14 2 13 124 */
6759 /*:ref: zzctruin_ 14 1 4 */
6760 /*:ref: zzvalcor_ 14 3 13 12 124 */
6761 /*:ref: failed_ 12 0 */
6762 /*:ref: chkout_ 14 2 13 124 */
6763 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
6764 /*:ref: setmsg_ 14 2 13 124 */
6765 /*:ref: errch_ 14 4 13 13 124 124 */
6766 /*:ref: sigerr_ 14 2 13 124 */
6767 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
6768 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
6769 /*:ref: errint_ 14 3 13 4 124 */
6770 /*:ref: vzero_ 12 1 7 */
6771 /*:ref: zzsrftrk_ 14 2 4 12 */
6772 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
6773 /*:ref: eqstr_ 12 4 13 13 124 124 */
6774 /*:ref: zzsuelin_ 14 1 4 */
6775 /*:ref: zzsudski_ 14 4 4 4 4 4 */
6776 /*:ref: zzsfxcor_ 14 22 200 200 200 4 7 13 12 12 12 12 13 4 4 4 4 7 7 7 7 12 124 124 */
6777 
6778 extern integer sizec_(char *cell, ftnlen cell_len);
6779 /*:ref: return_ 12 0 */
6780 /*:ref: chkin_ 14 2 13 124 */
6781 /*:ref: dechar_ 14 3 13 4 124 */
6782 /*:ref: setmsg_ 14 2 13 124 */
6783 /*:ref: errint_ 14 3 13 4 124 */
6784 /*:ref: sigerr_ 14 2 13 124 */
6785 /*:ref: chkout_ 14 2 13 124 */
6786 
6787 extern integer sized_(doublereal *cell);
6788 /*:ref: return_ 12 0 */
6789 /*:ref: chkin_ 14 2 13 124 */
6790 /*:ref: setmsg_ 14 2 13 124 */
6791 /*:ref: errint_ 14 3 13 4 124 */
6792 /*:ref: sigerr_ 14 2 13 124 */
6793 /*:ref: chkout_ 14 2 13 124 */
6794 
6795 extern integer sizei_(integer *cell);
6796 /*:ref: return_ 12 0 */
6797 /*:ref: chkin_ 14 2 13 124 */
6798 /*:ref: setmsg_ 14 2 13 124 */
6799 /*:ref: errint_ 14 3 13 4 124 */
6800 /*:ref: sigerr_ 14 2 13 124 */
6801 /*:ref: chkout_ 14 2 13 124 */
6802 
6803 extern logical smsgnd_(doublereal *x, doublereal *y);
6804 
6805 extern logical smsgni_(integer *x, integer *y);
6806 
6807 extern logical somfls_(logical *logcls, integer *n);
6808 
6809 extern logical somtru_(logical *logcls, integer *n);
6810 
6811 extern int spca2b_(char *text, char *binary, ftnlen text_len, ftnlen binary_len);
6812 /*:ref: return_ 12 0 */
6813 /*:ref: chkin_ 14 2 13 124 */
6814 /*:ref: txtopr_ 14 3 13 4 124 */
6815 /*:ref: spct2b_ 14 3 4 13 124 */
6816 /*:ref: chkout_ 14 2 13 124 */
6817 
6818 extern int spcac_(integer *handle, integer *unit, char *bmark, char *emark, ftnlen bmark_len, ftnlen emark_len);
6819 /*:ref: return_ 12 0 */
6820 /*:ref: chkin_ 14 2 13 124 */
6821 /*:ref: dafsih_ 14 3 4 13 124 */
6822 /*:ref: failed_ 12 0 */
6823 /*:ref: chkout_ 14 2 13 124 */
6824 /*:ref: locln_ 14 10 4 13 13 13 4 4 12 124 124 124 */
6825 /*:ref: countc_ 4 5 4 4 4 13 124 */
6826 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
6827 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
6828 /*:ref: setmsg_ 14 2 13 124 */
6829 /*:ref: errint_ 14 3 13 4 124 */
6830 /*:ref: errfnm_ 14 3 13 4 124 */
6831 /*:ref: sigerr_ 14 2 13 124 */
6832 /*:ref: dafarr_ 14 2 4 4 */
6833 /*:ref: lastnb_ 4 2 13 124 */
6834 
6835 extern int spcb2a_(char *binary, char *text, ftnlen binary_len, ftnlen text_len);
6836 /*:ref: return_ 12 0 */
6837 /*:ref: chkin_ 14 2 13 124 */
6838 /*:ref: txtopn_ 14 3 13 4 124 */
6839 /*:ref: spcb2t_ 14 3 13 4 124 */
6840 /*:ref: chkout_ 14 2 13 124 */
6841 
6842 extern int spcb2t_(char *binary, integer *unit, ftnlen binary_len);
6843 /*:ref: return_ 12 0 */
6844 /*:ref: chkin_ 14 2 13 124 */
6845 /*:ref: dafb2t_ 14 3 13 4 124 */
6846 /*:ref: setmsg_ 14 2 13 124 */
6847 /*:ref: errfnm_ 14 3 13 4 124 */
6848 /*:ref: errint_ 14 3 13 4 124 */
6849 /*:ref: sigerr_ 14 2 13 124 */
6850 /*:ref: chkout_ 14 2 13 124 */
6851 /*:ref: dafopr_ 14 3 13 4 124 */
6852 /*:ref: spcec_ 14 2 4 4 */
6853 /*:ref: dafcls_ 14 1 4 */
6854 
6855 extern int spcdc_(integer *handle);
6856 /*:ref: return_ 12 0 */
6857 /*:ref: chkin_ 14 2 13 124 */
6858 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
6859 /*:ref: dafrrr_ 14 2 4 4 */
6860 /*:ref: chkout_ 14 2 13 124 */
6861 
6862 extern int spcec_(integer *handle, integer *unit);
6863 /*:ref: return_ 12 0 */
6864 /*:ref: chkin_ 14 2 13 124 */
6865 /*:ref: dafsih_ 14 3 4 13 124 */
6866 /*:ref: failed_ 12 0 */
6867 /*:ref: chkout_ 14 2 13 124 */
6868 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
6869 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
6870 /*:ref: setmsg_ 14 2 13 124 */
6871 /*:ref: errint_ 14 3 13 4 124 */
6872 /*:ref: errfnm_ 14 3 13 4 124 */
6873 /*:ref: sigerr_ 14 2 13 124 */
6874 
6875 extern int spcopn_(char *spc, char *ifname, integer *handle, ftnlen spc_len, ftnlen ifname_len);
6876 /*:ref: return_ 12 0 */
6877 /*:ref: chkin_ 14 2 13 124 */
6878 /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */
6879 /*:ref: chkout_ 14 2 13 124 */
6880 
6881 extern int spcrfl_(integer *handle, char *line, logical *eoc, ftnlen line_len);
6882 extern int spcrnl_(char *line, logical *eoc, ftnlen line_len);
6883 /*:ref: return_ 12 0 */
6884 /*:ref: chkin_ 14 2 13 124 */
6885 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
6886 /*:ref: chkout_ 14 2 13 124 */
6887 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
6888 /*:ref: failed_ 12 0 */
6889 /*:ref: setmsg_ 14 2 13 124 */
6890 /*:ref: errint_ 14 3 13 4 124 */
6891 /*:ref: errfnm_ 14 3 13 4 124 */
6892 /*:ref: sigerr_ 14 2 13 124 */
6893 /*:ref: pos_ 4 5 13 13 4 124 124 */
6894 
6895 extern int spct2b_(integer *unit, char *binary, ftnlen binary_len);
6896 /*:ref: return_ 12 0 */
6897 /*:ref: chkin_ 14 2 13 124 */
6898 /*:ref: daft2b_ 14 4 4 13 4 124 */
6899 /*:ref: setmsg_ 14 2 13 124 */
6900 /*:ref: errint_ 14 3 13 4 124 */
6901 /*:ref: errfnm_ 14 3 13 4 124 */
6902 /*:ref: sigerr_ 14 2 13 124 */
6903 /*:ref: chkout_ 14 2 13 124 */
6904 /*:ref: ltrim_ 4 2 13 124 */
6905 /*:ref: getlun_ 14 1 4 */
6906 /*:ref: rtrim_ 4 2 13 124 */
6907 /*:ref: dafopw_ 14 3 13 4 124 */
6908 /*:ref: spcac_ 14 6 4 4 13 13 124 124 */
6909 /*:ref: dafcls_ 14 1 4 */
6910 
6911 extern doublereal spd_(void);
6912 
6913 extern int sphcyl_(doublereal *radius, doublereal *colat, doublereal *slong, doublereal *r__, doublereal *long__, doublereal *z__);
6914 
6915 extern int sphlat_(doublereal *r__, doublereal *colat, doublereal *longs, doublereal *radius, doublereal *long__, doublereal *lat);
6916 /*:ref: halfpi_ 7 0 */
6917 
6918 extern int sphrec_(doublereal *r__, doublereal *colat, doublereal *long__, doublereal *rectan);
6919 
6920 extern doublereal sphsd_(doublereal *radius, doublereal *long1, doublereal *lat1, doublereal *long2, doublereal *lat2);
6921 /*:ref: return_ 12 0 */
6922 /*:ref: chkin_ 14 2 13 124 */
6923 /*:ref: setmsg_ 14 2 13 124 */
6924 /*:ref: errdp_ 14 3 13 7 124 */
6925 /*:ref: sigerr_ 14 2 13 124 */
6926 /*:ref: chkout_ 14 2 13 124 */
6927 /*:ref: brcktd_ 7 3 7 7 7 */
6928 
6929 extern int spk14a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs);
6930 /*:ref: return_ 12 0 */
6931 /*:ref: chkin_ 14 2 13 124 */
6932 /*:ref: setmsg_ 14 2 13 124 */
6933 /*:ref: errhan_ 14 3 13 4 124 */
6934 /*:ref: errint_ 14 3 13 4 124 */
6935 /*:ref: sigerr_ 14 2 13 124 */
6936 /*:ref: chkout_ 14 2 13 124 */
6937 /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */
6938 
6939 extern int spk14b_(integer *handle, char *segid, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len);
6940 /*:ref: return_ 12 0 */
6941 /*:ref: chkin_ 14 2 13 124 */
6942 /*:ref: setmsg_ 14 2 13 124 */
6943 /*:ref: errint_ 14 3 13 4 124 */
6944 /*:ref: sigerr_ 14 2 13 124 */
6945 /*:ref: chkout_ 14 2 13 124 */
6946 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
6947 /*:ref: failed_ 12 0 */
6948 /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */
6949 
6950 extern int spk14e_(integer *handle);
6951 /*:ref: return_ 12 0 */
6952 /*:ref: chkin_ 14 2 13 124 */
6953 /*:ref: sgwes_ 14 1 4 */
6954 /*:ref: chkout_ 14 2 13 124 */
6955 
6956 extern int spkacs_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
6957 /*:ref: return_ 12 0 */
6958 /*:ref: chkin_ 14 2 13 124 */
6959 /*:ref: zzprscor_ 14 3 13 12 124 */
6960 /*:ref: failed_ 12 0 */
6961 /*:ref: chkout_ 14 2 13 124 */
6962 /*:ref: irfnum_ 14 3 13 4 124 */
6963 /*:ref: setmsg_ 14 2 13 124 */
6964 /*:ref: errch_ 14 4 13 13 124 124 */
6965 /*:ref: sigerr_ 14 2 13 124 */
6966 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
6967 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
6968 /*:ref: cleard_ 14 2 4 7 */
6969 /*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */
6970 
6971 extern int spkapo_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
6972 /*:ref: return_ 12 0 */
6973 /*:ref: chkin_ 14 2 13 124 */
6974 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
6975 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
6976 /*:ref: setmsg_ 14 2 13 124 */
6977 /*:ref: errch_ 14 4 13 13 124 124 */
6978 /*:ref: sigerr_ 14 2 13 124 */
6979 /*:ref: chkout_ 14 2 13 124 */
6980 /*:ref: odd_ 12 1 4 */
6981 /*:ref: irfnum_ 14 3 13 4 124 */
6982 /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */
6983 /*:ref: failed_ 12 0 */
6984 /*:ref: vsub_ 14 3 7 7 7 */
6985 /*:ref: vequ_ 14 2 7 7 */
6986 /*:ref: vnorm_ 7 1 7 */
6987 /*:ref: clight_ 7 0 */
6988 /*:ref: stlabx_ 14 3 7 7 7 */
6989 /*:ref: stelab_ 14 3 7 7 7 */
6990 
6991 extern int spkapp_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
6992 /*:ref: return_ 12 0 */
6993 /*:ref: chkin_ 14 2 13 124 */
6994 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
6995 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
6996 /*:ref: setmsg_ 14 2 13 124 */
6997 /*:ref: errch_ 14 4 13 13 124 124 */
6998 /*:ref: sigerr_ 14 2 13 124 */
6999 /*:ref: chkout_ 14 2 13 124 */
7000 /*:ref: odd_ 12 1 4 */
7001 /*:ref: irfnum_ 14 3 13 4 124 */
7002 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
7003 /*:ref: vsubg_ 14 4 7 7 4 7 */
7004 /*:ref: moved_ 14 3 7 4 7 */
7005 /*:ref: vnorm_ 7 1 7 */
7006 /*:ref: clight_ 7 0 */
7007 /*:ref: stlabx_ 14 3 7 7 7 */
7008 /*:ref: vequ_ 14 2 7 7 */
7009 /*:ref: stelab_ 14 3 7 7 7 */
7010 
7011 extern int spkaps_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
7012 /*:ref: return_ 12 0 */
7013 /*:ref: chkin_ 14 2 13 124 */
7014 /*:ref: zzprscor_ 14 3 13 12 124 */
7015 /*:ref: failed_ 12 0 */
7016 /*:ref: chkout_ 14 2 13 124 */
7017 /*:ref: setmsg_ 14 2 13 124 */
7018 /*:ref: errch_ 14 4 13 13 124 124 */
7019 /*:ref: sigerr_ 14 2 13 124 */
7020 /*:ref: irfnum_ 14 3 13 4 124 */
7021 /*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */
7022 /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */
7023 /*:ref: vadd_ 14 3 7 7 7 */
7024 /*:ref: vequ_ 14 2 7 7 */
7025 
7026 extern int spkbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len);
7027 extern int spklef_(char *fname, integer *handle, ftnlen fname_len);
7028 extern int spkuef_(integer *handle);
7029 extern int spksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len);
7030 /*:ref: return_ 12 0 */
7031 /*:ref: chkin_ 14 2 13 124 */
7032 /*:ref: sigerr_ 14 2 13 124 */
7033 /*:ref: chkout_ 14 2 13 124 */
7034 /*:ref: lnkini_ 14 2 4 4 */
7035 /*:ref: dafopr_ 14 3 13 4 124 */
7036 /*:ref: failed_ 12 0 */
7037 /*:ref: isrchi_ 4 3 4 4 4 */
7038 /*:ref: dafcls_ 14 1 4 */
7039 /*:ref: lnknxt_ 4 2 4 4 */
7040 /*:ref: lnkfsl_ 14 3 4 4 4 */
7041 /*:ref: setmsg_ 14 2 13 124 */
7042 /*:ref: errint_ 14 3 13 4 124 */
7043 /*:ref: intmax_ 4 0 */
7044 /*:ref: moved_ 14 3 7 4 7 */
7045 /*:ref: lnkprv_ 4 2 4 4 */
7046 /*:ref: dpmin_ 7 0 */
7047 /*:ref: dpmax_ 7 0 */
7048 /*:ref: cleard_ 14 2 4 7 */
7049 /*:ref: dafbfs_ 14 1 4 */
7050 /*:ref: daffna_ 14 1 12 */
7051 /*:ref: dafgs_ 14 1 7 */
7052 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7053 /*:ref: dafbbs_ 14 1 4 */
7054 /*:ref: daffpa_ 14 1 12 */
7055 /*:ref: lnknfn_ 4 1 4 */
7056 /*:ref: lnkan_ 14 2 4 4 */
7057 /*:ref: dafgn_ 14 2 13 124 */
7058 /*:ref: lnkilb_ 14 3 4 4 4 */
7059 /*:ref: lnkila_ 14 3 4 4 4 */
7060 /*:ref: lnktl_ 4 2 4 4 */
7061 
7062 extern int spkcls_(integer *handle);
7063 /*:ref: return_ 12 0 */
7064 /*:ref: chkin_ 14 2 13 124 */
7065 /*:ref: dafbfs_ 14 1 4 */
7066 /*:ref: daffna_ 14 1 12 */
7067 /*:ref: failed_ 12 0 */
7068 /*:ref: chkout_ 14 2 13 124 */
7069 /*:ref: setmsg_ 14 2 13 124 */
7070 /*:ref: errhan_ 14 3 13 4 124 */
7071 /*:ref: sigerr_ 14 2 13 124 */
7072 /*:ref: dafcls_ 14 1 4 */
7073 
7074 extern int spkcov_(char *spk, integer *idcode, doublereal *cover, ftnlen spk_len);
7075 /*:ref: return_ 12 0 */
7076 /*:ref: chkin_ 14 2 13 124 */
7077 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
7078 /*:ref: setmsg_ 14 2 13 124 */
7079 /*:ref: errch_ 14 4 13 13 124 124 */
7080 /*:ref: sigerr_ 14 2 13 124 */
7081 /*:ref: chkout_ 14 2 13 124 */
7082 /*:ref: dafopr_ 14 3 13 4 124 */
7083 /*:ref: failed_ 12 0 */
7084 /*:ref: dafbfs_ 14 1 4 */
7085 /*:ref: daffna_ 14 1 12 */
7086 /*:ref: dafgs_ 14 1 7 */
7087 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7088 /*:ref: wninsd_ 14 3 7 7 7 */
7089 /*:ref: dafcls_ 14 1 4 */
7090 
7091 extern int spkcpo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obspos, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len);
7092 /*:ref: return_ 12 0 */
7093 /*:ref: chkin_ 14 2 13 124 */
7094 /*:ref: vequ_ 14 2 7 7 */
7095 /*:ref: cleard_ 14 2 4 7 */
7096 /*:ref: spkcvo_ 14 17 13 7 13 13 13 7 7 13 13 7 7 124 124 124 124 124 124 */
7097 /*:ref: chkout_ 14 2 13 124 */
7098 
7099 extern int spkcpt_(doublereal *trgpos, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len);
7100 /*:ref: return_ 12 0 */
7101 /*:ref: chkin_ 14 2 13 124 */
7102 /*:ref: vequ_ 14 2 7 7 */
7103 /*:ref: cleard_ 14 2 4 7 */
7104 /*:ref: spkcvt_ 14 17 7 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */
7105 /*:ref: chkout_ 14 2 13 124 */
7106 
7107 extern int spkcvo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obssta, doublereal *obsepc, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len);
7108 /*:ref: return_ 12 0 */
7109 /*:ref: chkin_ 14 2 13 124 */
7110 /*:ref: zzctruin_ 14 1 4 */
7111 /*:ref: irfnum_ 14 3 13 4 124 */
7112 /*:ref: zzvalcor_ 14 3 13 12 124 */
7113 /*:ref: failed_ 12 0 */
7114 /*:ref: chkout_ 14 2 13 124 */
7115 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
7116 /*:ref: setmsg_ 14 2 13 124 */
7117 /*:ref: errch_ 14 4 13 13 124 124 */
7118 /*:ref: sigerr_ 14 2 13 124 */
7119 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
7120 /*:ref: esrchc_ 4 5 13 4 13 124 124 */
7121 /*:ref: zzcvssta_ 14 5 7 4 7 13 124 */
7122 /*:ref: zzspkfzo_ 14 9 4 7 13 13 200 7 7 124 124 */
7123 /*:ref: moved_ 14 3 7 4 7 */
7124 /*:ref: frmchg_ 14 4 4 4 7 7 */
7125 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
7126 /*:ref: zzspkfao_ 14 10 4 7 13 13 200 7 7 7 124 124 */
7127 /*:ref: zzcorsxf_ 14 4 12 7 7 7 */
7128 
7129 extern int spkcvt_(doublereal *trgsta, doublereal *trgepc, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len);
7130 /*:ref: return_ 12 0 */
7131 /*:ref: chkin_ 14 2 13 124 */
7132 /*:ref: zzctruin_ 14 1 4 */
7133 /*:ref: irfnum_ 14 3 13 4 124 */
7134 /*:ref: zzvalcor_ 14 3 13 12 124 */
7135 /*:ref: failed_ 12 0 */
7136 /*:ref: chkout_ 14 2 13 124 */
7137 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
7138 /*:ref: setmsg_ 14 2 13 124 */
7139 /*:ref: errch_ 14 4 13 13 124 124 */
7140 /*:ref: sigerr_ 14 2 13 124 */
7141 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
7142 /*:ref: esrchc_ 4 5 13 4 13 124 124 */
7143 /*:ref: zzcvssta_ 14 5 7 4 7 13 124 */
7144 /*:ref: zzspkfzt_ 14 9 200 7 13 13 4 7 7 124 124 */
7145 /*:ref: moved_ 14 3 7 4 7 */
7146 /*:ref: frmchg_ 14 4 4 4 7 7 */
7147 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
7148 /*:ref: zzspkfat_ 14 10 200 7 13 13 4 7 7 7 124 124 */
7149 /*:ref: zzcorsxf_ 14 4 12 7 7 7 */
7150 
7151 extern int spke01_(doublereal *et, doublereal *record, doublereal *state);
7152 /*:ref: return_ 12 0 */
7153 /*:ref: moved_ 14 3 7 4 7 */
7154 
7155 extern int spke02_(doublereal *et, doublereal *record, doublereal *xyzdot);
7156 /*:ref: return_ 12 0 */
7157 /*:ref: chkin_ 14 2 13 124 */
7158 /*:ref: setmsg_ 14 2 13 124 */
7159 /*:ref: errint_ 14 3 13 4 124 */
7160 /*:ref: sigerr_ 14 2 13 124 */
7161 /*:ref: chkout_ 14 2 13 124 */
7162 /*:ref: errdp_ 14 3 13 7 124 */
7163 /*:ref: chbint_ 14 6 7 4 7 7 7 7 */
7164 
7165 extern int spke03_(doublereal *et, doublereal *record, doublereal *state);
7166 /*:ref: return_ 12 0 */
7167 /*:ref: chkin_ 14 2 13 124 */
7168 /*:ref: setmsg_ 14 2 13 124 */
7169 /*:ref: errint_ 14 3 13 4 124 */
7170 /*:ref: sigerr_ 14 2 13 124 */
7171 /*:ref: chkout_ 14 2 13 124 */
7172 /*:ref: errdp_ 14 3 13 7 124 */
7173 /*:ref: chbval_ 14 5 7 4 7 7 7 */
7174 
7175 extern int spke05_(doublereal *et, doublereal *record, doublereal *state);
7176 /*:ref: return_ 12 0 */
7177 /*:ref: chkin_ 14 2 13 124 */
7178 /*:ref: moved_ 14 3 7 4 7 */
7179 /*:ref: prop2b_ 14 4 7 7 7 7 */
7180 /*:ref: pi_ 7 0 */
7181 /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */
7182 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
7183 /*:ref: vadd_ 14 3 7 7 7 */
7184 /*:ref: vequ_ 14 2 7 7 */
7185 /*:ref: chkout_ 14 2 13 124 */
7186 
7187 extern int spke08_(doublereal *et, doublereal *record, doublereal *state);
7188 /*:ref: return_ 12 0 */
7189 /*:ref: xposeg_ 14 4 7 4 4 7 */
7190 /*:ref: lgresp_ 7 6 4 7 7 7 7 7 */
7191 
7192 extern int spke09_(doublereal *et, doublereal *record, doublereal *state);
7193 /*:ref: return_ 12 0 */
7194 /*:ref: xposeg_ 14 4 7 4 4 7 */
7195 /*:ref: moved_ 14 3 7 4 7 */
7196 /*:ref: lgrint_ 7 5 4 7 7 7 7 */
7197 
7198 extern int spke10_(doublereal *et, doublereal *record, doublereal *state);
7199 /*:ref: return_ 12 0 */
7200 /*:ref: chkin_ 14 2 13 124 */
7201 /*:ref: pi_ 7 0 */
7202 /*:ref: twopi_ 7 0 */
7203 /*:ref: xxsgp4i_ 14 3 7 7 4 */
7204 /*:ref: failed_ 12 0 */
7205 /*:ref: chkout_ 14 2 13 124 */
7206 /*:ref: xxsgp4e_ 14 2 7 7 */
7207 /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */
7208 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
7209 /*:ref: vadd_ 14 3 7 7 7 */
7210 /*:ref: vequ_ 14 2 7 7 */
7211 /*:ref: zzteme_ 14 2 7 7 */
7212 /*:ref: invstm_ 14 2 7 7 */
7213 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
7214 /*:ref: moved_ 14 3 7 4 7 */
7215 
7216 extern int spke12_(doublereal *et, doublereal *record, doublereal *state);
7217 /*:ref: return_ 12 0 */
7218 /*:ref: chkin_ 14 2 13 124 */
7219 /*:ref: hrmesp_ 14 8 4 7 7 7 7 7 7 7 */
7220 /*:ref: chkout_ 14 2 13 124 */
7221 
7222 extern int spke13_(doublereal *et, doublereal *record, doublereal *state);
7223 /*:ref: return_ 12 0 */
7224 /*:ref: chkin_ 14 2 13 124 */
7225 /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */
7226 /*:ref: chkout_ 14 2 13 124 */
7227 
7228 extern int spke14_(doublereal *et, doublereal *record, doublereal *state);
7229 /*:ref: return_ 12 0 */
7230 /*:ref: chkin_ 14 2 13 124 */
7231 /*:ref: chbval_ 14 5 7 4 7 7 7 */
7232 /*:ref: chkout_ 14 2 13 124 */
7233 
7234 extern int spke15_(doublereal *et, doublereal *recin, doublereal *state);
7235 /*:ref: return_ 12 0 */
7236 /*:ref: chkin_ 14 2 13 124 */
7237 /*:ref: vequ_ 14 2 7 7 */
7238 /*:ref: setmsg_ 14 2 13 124 */
7239 /*:ref: errdp_ 14 3 13 7 124 */
7240 /*:ref: sigerr_ 14 2 13 124 */
7241 /*:ref: chkout_ 14 2 13 124 */
7242 /*:ref: vzero_ 12 1 7 */
7243 /*:ref: vhatip_ 14 1 7 */
7244 /*:ref: vdot_ 7 2 7 7 */
7245 /*:ref: vsep_ 7 2 7 7 */
7246 /*:ref: dpr_ 7 0 */
7247 /*:ref: vscl_ 14 3 7 7 7 */
7248 /*:ref: vcrss_ 14 3 7 7 7 */
7249 /*:ref: vsclip_ 14 2 7 7 */
7250 /*:ref: prop2b_ 14 4 7 7 7 7 */
7251 /*:ref: twopi_ 7 0 */
7252 /*:ref: pi_ 7 0 */
7253 /*:ref: vrotv_ 14 4 7 7 7 7 */
7254 /*:ref: moved_ 14 3 7 4 7 */
7255 
7256 extern int spke17_(doublereal *et, doublereal *recin, doublereal *state);
7257 /*:ref: return_ 12 0 */
7258 /*:ref: chkin_ 14 2 13 124 */
7259 /*:ref: setmsg_ 14 2 13 124 */
7260 /*:ref: errdp_ 14 3 13 7 124 */
7261 /*:ref: sigerr_ 14 2 13 124 */
7262 /*:ref: chkout_ 14 2 13 124 */
7263 /*:ref: eqncpv_ 14 6 7 7 7 7 7 7 */
7264 
7265 extern int spke18_(doublereal *et, doublereal *record, doublereal *state);
7266 /*:ref: return_ 12 0 */
7267 /*:ref: chkin_ 14 2 13 124 */
7268 /*:ref: setmsg_ 14 2 13 124 */
7269 /*:ref: errint_ 14 3 13 4 124 */
7270 /*:ref: sigerr_ 14 2 13 124 */
7271 /*:ref: chkout_ 14 2 13 124 */
7272 /*:ref: xpsgip_ 14 3 4 4 7 */
7273 /*:ref: lgrint_ 7 5 4 7 7 7 7 */
7274 /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */
7275 /*:ref: vequ_ 14 2 7 7 */
7276 
7277 extern int spke19_(doublereal *et, doublereal *record, doublereal *state);
7278 /*:ref: return_ 12 0 */
7279 /*:ref: chkin_ 14 2 13 124 */
7280 /*:ref: setmsg_ 14 2 13 124 */
7281 /*:ref: errint_ 14 3 13 4 124 */
7282 /*:ref: sigerr_ 14 2 13 124 */
7283 /*:ref: chkout_ 14 2 13 124 */
7284 /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */
7285 /*:ref: vequ_ 14 2 7 7 */
7286 /*:ref: xpsgip_ 14 3 4 4 7 */
7287 /*:ref: lgrint_ 7 5 4 7 7 7 7 */
7288 
7289 extern int spke20_(doublereal *et, doublereal *record, doublereal *xyzdot);
7290 /*:ref: return_ 12 0 */
7291 /*:ref: chkin_ 14 2 13 124 */
7292 /*:ref: setmsg_ 14 2 13 124 */
7293 /*:ref: errint_ 14 3 13 4 124 */
7294 /*:ref: sigerr_ 14 2 13 124 */
7295 /*:ref: chkout_ 14 2 13 124 */
7296 /*:ref: chbigr_ 14 6 4 7 7 7 7 7 */
7297 /*:ref: vadd_ 14 3 7 7 7 */
7298 
7299 extern int spke21_(doublereal *et, doublereal *record, doublereal *state);
7300 /*:ref: return_ 12 0 */
7301 /*:ref: chkin_ 14 2 13 124 */
7302 /*:ref: setmsg_ 14 2 13 124 */
7303 /*:ref: errint_ 14 3 13 4 124 */
7304 /*:ref: sigerr_ 14 2 13 124 */
7305 /*:ref: chkout_ 14 2 13 124 */
7306 /*:ref: moved_ 14 3 7 4 7 */
7307 
7308 extern int spkez_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
7309 /*:ref: return_ 12 0 */
7310 /*:ref: chkin_ 14 2 13 124 */
7311 /*:ref: zzctruin_ 14 1 4 */
7312 /*:ref: zzvalcor_ 14 3 13 12 124 */
7313 /*:ref: failed_ 12 0 */
7314 /*:ref: chkout_ 14 2 13 124 */
7315 /*:ref: namfrm_ 14 3 13 4 124 */
7316 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
7317 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
7318 /*:ref: setmsg_ 14 2 13 124 */
7319 /*:ref: errch_ 14 4 13 13 124 124 */
7320 /*:ref: sigerr_ 14 2 13 124 */
7321 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
7322 /*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */
7323 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
7324 /*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */
7325 /*:ref: frmchg_ 14 4 4 4 7 7 */
7326 /*:ref: vsclip_ 14 2 7 7 */
7327 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
7328 
7329 extern int spkezp_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
7330 /*:ref: return_ 12 0 */
7331 /*:ref: chkin_ 14 2 13 124 */
7332 /*:ref: namfrm_ 14 3 13 4 124 */
7333 /*:ref: zzctruin_ 14 1 4 */
7334 /*:ref: ltrim_ 4 2 13 124 */
7335 /*:ref: eqchr_ 12 4 13 13 124 124 */
7336 /*:ref: eqstr_ 12 4 13 13 124 124 */
7337 /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */
7338 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
7339 /*:ref: setmsg_ 14 2 13 124 */
7340 /*:ref: errch_ 14 4 13 13 124 124 */
7341 /*:ref: sigerr_ 14 2 13 124 */
7342 /*:ref: chkout_ 14 2 13 124 */
7343 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
7344 /*:ref: failed_ 12 0 */
7345 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
7346 /*:ref: spkapo_ 14 9 4 7 13 7 13 7 7 124 124 */
7347 /*:ref: refchg_ 14 4 4 4 7 7 */
7348 /*:ref: mxv_ 14 3 7 7 7 */
7349 
7350 extern int spkezr_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *starg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len);
7351 /*:ref: return_ 12 0 */
7352 /*:ref: chkin_ 14 2 13 124 */
7353 /*:ref: zzctruin_ 14 1 4 */
7354 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
7355 /*:ref: setmsg_ 14 2 13 124 */
7356 /*:ref: errch_ 14 4 13 13 124 124 */
7357 /*:ref: sigerr_ 14 2 13 124 */
7358 /*:ref: chkout_ 14 2 13 124 */
7359 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
7360 
7361 extern int spkgeo_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len);
7362 /*:ref: return_ 12 0 */
7363 /*:ref: chkin_ 14 2 13 124 */
7364 /*:ref: zzctruin_ 14 1 4 */
7365 /*:ref: cleard_ 14 2 4 7 */
7366 /*:ref: chkout_ 14 2 13 124 */
7367 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
7368 /*:ref: irfnum_ 14 3 13 4 124 */
7369 /*:ref: frstnp_ 4 2 13 124 */
7370 /*:ref: setmsg_ 14 2 13 124 */
7371 /*:ref: errch_ 14 4 13 13 124 124 */
7372 /*:ref: sigerr_ 14 2 13 124 */
7373 /*:ref: failed_ 12 0 */
7374 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
7375 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
7376 /*:ref: moved_ 14 3 7 4 7 */
7377 /*:ref: irfrot_ 14 3 4 4 7 */
7378 /*:ref: mxv_ 14 3 7 7 7 */
7379 /*:ref: frmchg_ 14 4 4 4 7 7 */
7380 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
7381 /*:ref: vaddg_ 14 4 7 7 4 7 */
7382 /*:ref: isrchi_ 4 3 4 4 4 */
7383 /*:ref: bodc2n_ 14 4 4 13 12 124 */
7384 /*:ref: prefix_ 14 5 13 4 13 124 124 */
7385 /*:ref: suffix_ 14 5 13 4 13 124 124 */
7386 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
7387 /*:ref: intstr_ 14 3 4 13 124 */
7388 /*:ref: etcal_ 14 3 7 13 124 */
7389 /*:ref: vsubg_ 14 4 7 7 4 7 */
7390 /*:ref: vnorm_ 7 1 7 */
7391 /*:ref: clight_ 7 0 */
7392 
7393 extern int spkgps_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len);
7394 /*:ref: return_ 12 0 */
7395 /*:ref: chkin_ 14 2 13 124 */
7396 /*:ref: zzctruin_ 14 1 4 */
7397 /*:ref: cleard_ 14 2 4 7 */
7398 /*:ref: chkout_ 14 2 13 124 */
7399 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
7400 /*:ref: irfnum_ 14 3 13 4 124 */
7401 /*:ref: frstnp_ 4 2 13 124 */
7402 /*:ref: setmsg_ 14 2 13 124 */
7403 /*:ref: errch_ 14 4 13 13 124 124 */
7404 /*:ref: sigerr_ 14 2 13 124 */
7405 /*:ref: failed_ 12 0 */
7406 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
7407 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
7408 /*:ref: moved_ 14 3 7 4 7 */
7409 /*:ref: irfrot_ 14 3 4 4 7 */
7410 /*:ref: mxv_ 14 3 7 7 7 */
7411 /*:ref: refchg_ 14 4 4 4 7 7 */
7412 /*:ref: vadd_ 14 3 7 7 7 */
7413 /*:ref: vequ_ 14 2 7 7 */
7414 /*:ref: isrchi_ 4 3 4 4 4 */
7415 /*:ref: bodc2n_ 14 4 4 13 12 124 */
7416 /*:ref: prefix_ 14 5 13 4 13 124 124 */
7417 /*:ref: suffix_ 14 5 13 4 13 124 124 */
7418 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
7419 /*:ref: intstr_ 14 3 4 13 124 */
7420 /*:ref: etcal_ 14 3 7 13 124 */
7421 /*:ref: vsub_ 14 3 7 7 7 */
7422 /*:ref: vnorm_ 7 1 7 */
7423 /*:ref: clight_ 7 0 */
7424 
7425 extern int spkltc_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
7426 /*:ref: return_ 12 0 */
7427 /*:ref: chkin_ 14 2 13 124 */
7428 /*:ref: zzvalcor_ 14 3 13 12 124 */
7429 /*:ref: failed_ 12 0 */
7430 /*:ref: chkout_ 14 2 13 124 */
7431 /*:ref: irfnum_ 14 3 13 4 124 */
7432 /*:ref: setmsg_ 14 2 13 124 */
7433 /*:ref: errch_ 14 4 13 13 124 124 */
7434 /*:ref: sigerr_ 14 2 13 124 */
7435 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
7436 /*:ref: vsubg_ 14 4 7 7 4 7 */
7437 /*:ref: vnorm_ 7 1 7 */
7438 /*:ref: clight_ 7 0 */
7439 /*:ref: vdot_ 7 2 7 7 */
7440 /*:ref: touchd_ 7 1 7 */
7441 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
7442 
7443 extern int spkobj_(char *spk, integer *ids, ftnlen spk_len);
7444 /*:ref: return_ 12 0 */
7445 /*:ref: chkin_ 14 2 13 124 */
7446 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
7447 /*:ref: setmsg_ 14 2 13 124 */
7448 /*:ref: errch_ 14 4 13 13 124 124 */
7449 /*:ref: sigerr_ 14 2 13 124 */
7450 /*:ref: chkout_ 14 2 13 124 */
7451 /*:ref: dafopr_ 14 3 13 4 124 */
7452 /*:ref: failed_ 12 0 */
7453 /*:ref: dafbfs_ 14 1 4 */
7454 /*:ref: daffna_ 14 1 12 */
7455 /*:ref: dafgs_ 14 1 7 */
7456 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7457 /*:ref: insrti_ 14 2 4 4 */
7458 /*:ref: dafcls_ 14 1 4 */
7459 
7460 extern int spkopa_(char *file, integer *handle, ftnlen file_len);
7461 /*:ref: return_ 12 0 */
7462 /*:ref: chkin_ 14 2 13 124 */
7463 /*:ref: exists_ 12 2 13 124 */
7464 /*:ref: setmsg_ 14 2 13 124 */
7465 /*:ref: errch_ 14 4 13 13 124 124 */
7466 /*:ref: sigerr_ 14 2 13 124 */
7467 /*:ref: chkout_ 14 2 13 124 */
7468 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
7469 /*:ref: failed_ 12 0 */
7470 /*:ref: dafopw_ 14 3 13 4 124 */
7471 
7472 extern int spkopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len);
7473 /*:ref: return_ 12 0 */
7474 /*:ref: chkin_ 14 2 13 124 */
7475 /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */
7476 /*:ref: failed_ 12 0 */
7477 /*:ref: chkout_ 14 2 13 124 */
7478 
7479 extern int spkpds_(integer *body, integer *center, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len);
7480 /*:ref: return_ 12 0 */
7481 /*:ref: chkin_ 14 2 13 124 */
7482 /*:ref: setmsg_ 14 2 13 124 */
7483 /*:ref: sigerr_ 14 2 13 124 */
7484 /*:ref: chkout_ 14 2 13 124 */
7485 /*:ref: errint_ 14 3 13 4 124 */
7486 /*:ref: namfrm_ 14 3 13 4 124 */
7487 /*:ref: errch_ 14 4 13 13 124 124 */
7488 /*:ref: etcal_ 14 3 7 13 124 */
7489 /*:ref: errdp_ 14 3 13 7 124 */
7490 /*:ref: dafps_ 14 5 4 4 7 4 7 */
7491 
7492 extern int spkpos_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *ptarg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len);
7493 /*:ref: return_ 12 0 */
7494 /*:ref: chkin_ 14 2 13 124 */
7495 /*:ref: zzctruin_ 14 1 4 */
7496 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
7497 /*:ref: setmsg_ 14 2 13 124 */
7498 /*:ref: errch_ 14 4 13 13 124 124 */
7499 /*:ref: sigerr_ 14 2 13 124 */
7500 /*:ref: chkout_ 14 2 13 124 */
7501 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
7502 
7503 extern int spkpv_(integer *handle, doublereal *descr, doublereal *et, char *ref, doublereal *state, integer *center, ftnlen ref_len);
7504 /*:ref: return_ 12 0 */
7505 /*:ref: chkin_ 14 2 13 124 */
7506 /*:ref: zzctruin_ 14 1 4 */
7507 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7508 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
7509 /*:ref: setmsg_ 14 2 13 124 */
7510 /*:ref: errch_ 14 4 13 13 124 124 */
7511 /*:ref: sigerr_ 14 2 13 124 */
7512 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
7513 /*:ref: frmchg_ 14 4 4 4 7 7 */
7514 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
7515 /*:ref: chkout_ 14 2 13 124 */
7516 
7517 extern int spkpvn_(integer *handle, doublereal *descr, doublereal *et, integer *ref, doublereal *state, integer *center);
7518 /*:ref: return_ 12 0 */
7519 /*:ref: chkin_ 14 2 13 124 */
7520 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7521 /*:ref: spkr01_ 14 4 4 7 7 7 */
7522 /*:ref: spke01_ 14 3 7 7 7 */
7523 /*:ref: spkr02_ 14 4 4 7 7 7 */
7524 /*:ref: spke02_ 14 3 7 7 7 */
7525 /*:ref: spkr03_ 14 4 4 7 7 7 */
7526 /*:ref: spke03_ 14 3 7 7 7 */
7527 /*:ref: spkr05_ 14 4 4 7 7 7 */
7528 /*:ref: spke05_ 14 3 7 7 7 */
7529 /*:ref: spkr08_ 14 4 4 7 7 7 */
7530 /*:ref: spke08_ 14 3 7 7 7 */
7531 /*:ref: spkr09_ 14 4 4 7 7 7 */
7532 /*:ref: spke09_ 14 3 7 7 7 */
7533 /*:ref: spkr10_ 14 4 4 7 7 7 */
7534 /*:ref: spke10_ 14 3 7 7 7 */
7535 /*:ref: spkr12_ 14 4 4 7 7 7 */
7536 /*:ref: spke12_ 14 3 7 7 7 */
7537 /*:ref: spkr13_ 14 4 4 7 7 7 */
7538 /*:ref: spke13_ 14 3 7 7 7 */
7539 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
7540 /*:ref: failed_ 12 0 */
7541 /*:ref: chkout_ 14 2 13 124 */
7542 /*:ref: setmsg_ 14 2 13 124 */
7543 /*:ref: errint_ 14 3 13 4 124 */
7544 /*:ref: sigerr_ 14 2 13 124 */
7545 /*:ref: spkr14_ 14 4 4 7 7 7 */
7546 /*:ref: spke14_ 14 3 7 7 7 */
7547 /*:ref: spkr15_ 14 4 4 7 7 7 */
7548 /*:ref: spke15_ 14 3 7 7 7 */
7549 /*:ref: spkr17_ 14 4 4 7 7 7 */
7550 /*:ref: spke17_ 14 3 7 7 7 */
7551 /*:ref: spkr18_ 14 4 4 7 7 7 */
7552 /*:ref: spke18_ 14 3 7 7 7 */
7553 /*:ref: spkr19_ 14 4 4 7 7 7 */
7554 /*:ref: spke19_ 14 3 7 7 7 */
7555 /*:ref: spkr20_ 14 4 4 7 7 7 */
7556 /*:ref: spke20_ 14 3 7 7 7 */
7557 /*:ref: spkr21_ 14 4 4 7 7 7 */
7558 /*:ref: spke21_ 14 3 7 7 7 */
7559 
7560 extern int spkr01_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7561 /*:ref: return_ 12 0 */
7562 /*:ref: chkin_ 14 2 13 124 */
7563 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7564 /*:ref: dafgda_ 14 4 4 4 4 7 */
7565 /*:ref: lstltd_ 4 3 7 4 7 */
7566 /*:ref: chkout_ 14 2 13 124 */
7567 
7568 extern int spkr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7569 /*:ref: return_ 12 0 */
7570 /*:ref: chkin_ 14 2 13 124 */
7571 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7572 /*:ref: dafgda_ 14 4 4 4 4 7 */
7573 /*:ref: chkout_ 14 2 13 124 */
7574 
7575 extern int spkr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7576 /*:ref: return_ 12 0 */
7577 /*:ref: chkin_ 14 2 13 124 */
7578 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7579 /*:ref: dafgda_ 14 4 4 4 4 7 */
7580 /*:ref: chkout_ 14 2 13 124 */
7581 
7582 extern int spkr05_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7583 /*:ref: return_ 12 0 */
7584 /*:ref: chkin_ 14 2 13 124 */
7585 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7586 /*:ref: setmsg_ 14 2 13 124 */
7587 /*:ref: errint_ 14 3 13 4 124 */
7588 /*:ref: sigerr_ 14 2 13 124 */
7589 /*:ref: chkout_ 14 2 13 124 */
7590 /*:ref: dafgda_ 14 4 4 4 4 7 */
7591 /*:ref: lstltd_ 4 3 7 4 7 */
7592 /*:ref: moved_ 14 3 7 4 7 */
7593 
7594 extern int spkr08_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7595 /*:ref: return_ 12 0 */
7596 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7597 /*:ref: chkin_ 14 2 13 124 */
7598 /*:ref: setmsg_ 14 2 13 124 */
7599 /*:ref: errint_ 14 3 13 4 124 */
7600 /*:ref: sigerr_ 14 2 13 124 */
7601 /*:ref: chkout_ 14 2 13 124 */
7602 /*:ref: errdp_ 14 3 13 7 124 */
7603 /*:ref: dafgda_ 14 4 4 4 4 7 */
7604 /*:ref: odd_ 12 1 4 */
7605 
7606 extern int spkr09_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7607 /*:ref: return_ 12 0 */
7608 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7609 /*:ref: chkin_ 14 2 13 124 */
7610 /*:ref: setmsg_ 14 2 13 124 */
7611 /*:ref: errint_ 14 3 13 4 124 */
7612 /*:ref: sigerr_ 14 2 13 124 */
7613 /*:ref: chkout_ 14 2 13 124 */
7614 /*:ref: errdp_ 14 3 13 7 124 */
7615 /*:ref: dafgda_ 14 4 4 4 4 7 */
7616 /*:ref: lstltd_ 4 3 7 4 7 */
7617 /*:ref: odd_ 12 1 4 */
7618 
7619 extern int spkr10_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7620 /*:ref: return_ 12 0 */
7621 /*:ref: chkin_ 14 2 13 124 */
7622 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
7623 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
7624 /*:ref: sgmeta_ 14 4 4 7 4 4 */
7625 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
7626 /*:ref: moved_ 14 3 7 4 7 */
7627 /*:ref: chkout_ 14 2 13 124 */
7628 
7629 extern int spkr12_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7630 /*:ref: return_ 12 0 */
7631 /*:ref: chkin_ 14 2 13 124 */
7632 /*:ref: spkr08_ 14 4 4 7 7 7 */
7633 /*:ref: chkout_ 14 2 13 124 */
7634 
7635 extern int spkr13_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7636 /*:ref: return_ 12 0 */
7637 /*:ref: chkin_ 14 2 13 124 */
7638 /*:ref: spkr09_ 14 4 4 7 7 7 */
7639 /*:ref: chkout_ 14 2 13 124 */
7640 
7641 extern int spkr14_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7642 /*:ref: return_ 12 0 */
7643 /*:ref: chkin_ 14 2 13 124 */
7644 /*:ref: setmsg_ 14 2 13 124 */
7645 /*:ref: errdp_ 14 3 13 7 124 */
7646 /*:ref: sigerr_ 14 2 13 124 */
7647 /*:ref: chkout_ 14 2 13 124 */
7648 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
7649 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
7650 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
7651 
7652 extern int spkr15_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7653 /*:ref: return_ 12 0 */
7654 /*:ref: chkin_ 14 2 13 124 */
7655 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7656 /*:ref: setmsg_ 14 2 13 124 */
7657 /*:ref: errint_ 14 3 13 4 124 */
7658 /*:ref: sigerr_ 14 2 13 124 */
7659 /*:ref: chkout_ 14 2 13 124 */
7660 /*:ref: dafgda_ 14 4 4 4 4 7 */
7661 
7662 extern int spkr17_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7663 /*:ref: return_ 12 0 */
7664 /*:ref: chkin_ 14 2 13 124 */
7665 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7666 /*:ref: setmsg_ 14 2 13 124 */
7667 /*:ref: errint_ 14 3 13 4 124 */
7668 /*:ref: sigerr_ 14 2 13 124 */
7669 /*:ref: chkout_ 14 2 13 124 */
7670 /*:ref: dafgda_ 14 4 4 4 4 7 */
7671 
7672 extern int spkr18_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7673 /*:ref: return_ 12 0 */
7674 /*:ref: chkin_ 14 2 13 124 */
7675 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7676 /*:ref: setmsg_ 14 2 13 124 */
7677 /*:ref: errint_ 14 3 13 4 124 */
7678 /*:ref: sigerr_ 14 2 13 124 */
7679 /*:ref: chkout_ 14 2 13 124 */
7680 /*:ref: errdp_ 14 3 13 7 124 */
7681 /*:ref: dafgda_ 14 4 4 4 4 7 */
7682 /*:ref: failed_ 12 0 */
7683 /*:ref: odd_ 12 1 4 */
7684 /*:ref: lstltd_ 4 3 7 4 7 */
7685 
7686 extern int spkr19_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7687 /*:ref: return_ 12 0 */
7688 /*:ref: chkin_ 14 2 13 124 */
7689 /*:ref: setmsg_ 14 2 13 124 */
7690 /*:ref: errint_ 14 3 13 4 124 */
7691 /*:ref: sigerr_ 14 2 13 124 */
7692 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7693 /*:ref: errdp_ 14 3 13 7 124 */
7694 /*:ref: chkout_ 14 2 13 124 */
7695 /*:ref: dafgda_ 14 4 4 4 4 7 */
7696 /*:ref: failed_ 12 0 */
7697 /*:ref: lstled_ 4 3 7 4 7 */
7698 /*:ref: lstltd_ 4 3 7 4 7 */
7699 /*:ref: odd_ 12 1 4 */
7700 
7701 extern int spkr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7702 /*:ref: return_ 12 0 */
7703 /*:ref: chkin_ 14 2 13 124 */
7704 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7705 /*:ref: dafgda_ 14 4 4 4 4 7 */
7706 /*:ref: j2000_ 7 0 */
7707 /*:ref: spd_ 7 0 */
7708 /*:ref: remlad_ 14 4 4 4 7 4 */
7709 /*:ref: vsclip_ 14 2 7 7 */
7710 /*:ref: moved_ 14 3 7 4 7 */
7711 /*:ref: chkout_ 14 2 13 124 */
7712 
7713 extern int spkr21_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
7714 /*:ref: return_ 12 0 */
7715 /*:ref: chkin_ 14 2 13 124 */
7716 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7717 /*:ref: dafgda_ 14 4 4 4 4 7 */
7718 /*:ref: setmsg_ 14 2 13 124 */
7719 /*:ref: errint_ 14 3 13 4 124 */
7720 /*:ref: sigerr_ 14 2 13 124 */
7721 /*:ref: chkout_ 14 2 13 124 */
7722 /*:ref: lstltd_ 4 3 7 4 7 */
7723 
7724 extern int spks01_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7725 /*:ref: return_ 12 0 */
7726 /*:ref: chkin_ 14 2 13 124 */
7727 /*:ref: dafgda_ 14 4 4 4 4 7 */
7728 /*:ref: dafada_ 14 2 7 4 */
7729 /*:ref: chkout_ 14 2 13 124 */
7730 
7731 extern int spks02_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7732 /*:ref: return_ 12 0 */
7733 /*:ref: chkin_ 14 2 13 124 */
7734 /*:ref: dafgda_ 14 4 4 4 4 7 */
7735 /*:ref: dafada_ 14 2 7 4 */
7736 /*:ref: chkout_ 14 2 13 124 */
7737 
7738 extern int spks03_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7739 /*:ref: return_ 12 0 */
7740 /*:ref: chkin_ 14 2 13 124 */
7741 /*:ref: dafgda_ 14 4 4 4 4 7 */
7742 /*:ref: dafada_ 14 2 7 4 */
7743 /*:ref: chkout_ 14 2 13 124 */
7744 
7745 extern int spks05_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7746 /*:ref: return_ 12 0 */
7747 /*:ref: chkin_ 14 2 13 124 */
7748 /*:ref: dafgda_ 14 4 4 4 4 7 */
7749 /*:ref: dafada_ 14 2 7 4 */
7750 /*:ref: chkout_ 14 2 13 124 */
7751 
7752 extern int spks08_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7753 /*:ref: return_ 12 0 */
7754 /*:ref: chkin_ 14 2 13 124 */
7755 /*:ref: dafgda_ 14 4 4 4 4 7 */
7756 /*:ref: chkout_ 14 2 13 124 */
7757 /*:ref: dafada_ 14 2 7 4 */
7758 
7759 extern int spks09_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7760 /*:ref: return_ 12 0 */
7761 /*:ref: chkin_ 14 2 13 124 */
7762 /*:ref: chkout_ 14 2 13 124 */
7763 /*:ref: dafgda_ 14 4 4 4 4 7 */
7764 /*:ref: dafada_ 14 2 7 4 */
7765 
7766 extern int spks10_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len);
7767 /*:ref: return_ 12 0 */
7768 /*:ref: chkin_ 14 2 13 124 */
7769 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7770 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
7771 /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */
7772 /*:ref: failed_ 12 0 */
7773 /*:ref: chkout_ 14 2 13 124 */
7774 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
7775 /*:ref: etcal_ 14 3 7 13 124 */
7776 /*:ref: setmsg_ 14 2 13 124 */
7777 /*:ref: errch_ 14 4 13 13 124 124 */
7778 /*:ref: sigerr_ 14 2 13 124 */
7779 /*:ref: sgmeta_ 14 4 4 7 4 4 */
7780 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
7781 /*:ref: sgfref_ 14 5 4 7 4 4 7 */
7782 /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */
7783 /*:ref: sgwes_ 14 1 4 */
7784 
7785 extern int spks12_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7786 /*:ref: return_ 12 0 */
7787 /*:ref: chkin_ 14 2 13 124 */
7788 /*:ref: spks08_ 14 5 4 4 4 7 7 */
7789 /*:ref: chkout_ 14 2 13 124 */
7790 
7791 extern int spks13_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7792 /*:ref: return_ 12 0 */
7793 /*:ref: chkin_ 14 2 13 124 */
7794 /*:ref: spks09_ 14 5 4 4 4 7 7 */
7795 /*:ref: chkout_ 14 2 13 124 */
7796 
7797 extern int spks14_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len);
7798 /*:ref: return_ 12 0 */
7799 /*:ref: chkin_ 14 2 13 124 */
7800 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7801 /*:ref: irfnam_ 14 3 4 13 124 */
7802 /*:ref: failed_ 12 0 */
7803 /*:ref: chkout_ 14 2 13 124 */
7804 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
7805 /*:ref: setmsg_ 14 2 13 124 */
7806 /*:ref: errint_ 14 3 13 4 124 */
7807 /*:ref: sigerr_ 14 2 13 124 */
7808 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
7809 /*:ref: spk14b_ 14 10 4 13 4 4 13 7 7 4 124 124 */
7810 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
7811 /*:ref: sgfref_ 14 5 4 7 4 4 7 */
7812 /*:ref: spk14a_ 14 4 4 4 7 7 */
7813 /*:ref: spk14e_ 14 1 4 */
7814 
7815 extern int spks15_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7816 /*:ref: return_ 12 0 */
7817 /*:ref: chkin_ 14 2 13 124 */
7818 /*:ref: chkout_ 14 2 13 124 */
7819 /*:ref: dafgda_ 14 4 4 4 4 7 */
7820 /*:ref: dafada_ 14 2 7 4 */
7821 
7822 extern int spks17_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7823 /*:ref: return_ 12 0 */
7824 /*:ref: chkin_ 14 2 13 124 */
7825 /*:ref: chkout_ 14 2 13 124 */
7826 /*:ref: dafgda_ 14 4 4 4 4 7 */
7827 /*:ref: dafada_ 14 2 7 4 */
7828 
7829 extern int spks18_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7830 /*:ref: return_ 12 0 */
7831 /*:ref: chkin_ 14 2 13 124 */
7832 /*:ref: chkout_ 14 2 13 124 */
7833 /*:ref: dafgda_ 14 4 4 4 4 7 */
7834 /*:ref: setmsg_ 14 2 13 124 */
7835 /*:ref: errint_ 14 3 13 4 124 */
7836 /*:ref: sigerr_ 14 2 13 124 */
7837 /*:ref: dafada_ 14 2 7 4 */
7838 
7839 extern int spks19_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7840 /*:ref: return_ 12 0 */
7841 /*:ref: chkin_ 14 2 13 124 */
7842 /*:ref: chkout_ 14 2 13 124 */
7843 /*:ref: dafgda_ 14 4 4 4 4 7 */
7844 /*:ref: failed_ 12 0 */
7845 /*:ref: lstltd_ 4 3 7 4 7 */
7846 /*:ref: setmsg_ 14 2 13 124 */
7847 /*:ref: errint_ 14 3 13 4 124 */
7848 /*:ref: sigerr_ 14 2 13 124 */
7849 /*:ref: lstled_ 4 3 7 4 7 */
7850 /*:ref: dafhfn_ 14 3 4 13 124 */
7851 /*:ref: errch_ 14 4 13 13 124 124 */
7852 /*:ref: errdp_ 14 3 13 7 124 */
7853 /*:ref: dafada_ 14 2 7 4 */
7854 
7855 extern int spks20_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7856 /*:ref: return_ 12 0 */
7857 /*:ref: chkin_ 14 2 13 124 */
7858 /*:ref: dafgda_ 14 4 4 4 4 7 */
7859 /*:ref: j2000_ 7 0 */
7860 /*:ref: spd_ 7 0 */
7861 /*:ref: dafada_ 14 2 7 4 */
7862 /*:ref: chkout_ 14 2 13 124 */
7863 
7864 extern int spks21_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
7865 /*:ref: return_ 12 0 */
7866 /*:ref: chkin_ 14 2 13 124 */
7867 /*:ref: dafgda_ 14 4 4 4 4 7 */
7868 /*:ref: dafada_ 14 2 7 4 */
7869 /*:ref: chkout_ 14 2 13 124 */
7870 
7871 extern int spkssb_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len);
7872 /*:ref: return_ 12 0 */
7873 /*:ref: chkin_ 14 2 13 124 */
7874 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
7875 /*:ref: chkout_ 14 2 13 124 */
7876 
7877 extern int spksub_(integer *handle, doublereal *descr, char *ident, doublereal *begin, doublereal *end, integer *newh, ftnlen ident_len);
7878 /*:ref: return_ 12 0 */
7879 /*:ref: chkin_ 14 2 13 124 */
7880 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7881 /*:ref: setmsg_ 14 2 13 124 */
7882 /*:ref: errdp_ 14 3 13 7 124 */
7883 /*:ref: sigerr_ 14 2 13 124 */
7884 /*:ref: chkout_ 14 2 13 124 */
7885 /*:ref: dafps_ 14 5 4 4 7 4 7 */
7886 /*:ref: dafbna_ 14 4 4 7 13 124 */
7887 /*:ref: spks01_ 14 5 4 4 4 7 7 */
7888 /*:ref: dafena_ 14 0 */
7889 /*:ref: spks02_ 14 5 4 4 4 7 7 */
7890 /*:ref: spks03_ 14 5 4 4 4 7 7 */
7891 /*:ref: spks05_ 14 5 4 4 4 7 7 */
7892 /*:ref: spks08_ 14 5 4 4 4 7 7 */
7893 /*:ref: spks09_ 14 5 4 4 4 7 7 */
7894 /*:ref: spks10_ 14 6 4 7 4 7 13 124 */
7895 /*:ref: spks12_ 14 5 4 4 4 7 7 */
7896 /*:ref: spks13_ 14 5 4 4 4 7 7 */
7897 /*:ref: spks14_ 14 6 4 7 4 7 13 124 */
7898 /*:ref: spks15_ 14 5 4 4 4 7 7 */
7899 /*:ref: spks17_ 14 5 4 4 4 7 7 */
7900 /*:ref: spks18_ 14 5 4 4 4 7 7 */
7901 /*:ref: spks19_ 14 5 4 4 4 7 7 */
7902 /*:ref: spks20_ 14 5 4 4 4 7 7 */
7903 /*:ref: spks21_ 14 5 4 4 4 7 7 */
7904 /*:ref: errint_ 14 3 13 4 124 */
7905 
7906 extern int spkuds_(doublereal *descr, integer *body, integer *center, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end);
7907 /*:ref: return_ 12 0 */
7908 /*:ref: chkin_ 14 2 13 124 */
7909 /*:ref: dafus_ 14 5 7 4 4 7 4 */
7910 /*:ref: failed_ 12 0 */
7911 /*:ref: chkout_ 14 2 13 124 */
7912 
7913 extern int spkw01_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len);
7914 /*:ref: return_ 12 0 */
7915 /*:ref: chkin_ 14 2 13 124 */
7916 /*:ref: namfrm_ 14 3 13 4 124 */
7917 /*:ref: setmsg_ 14 2 13 124 */
7918 /*:ref: errch_ 14 4 13 13 124 124 */
7919 /*:ref: sigerr_ 14 2 13 124 */
7920 /*:ref: chkout_ 14 2 13 124 */
7921 /*:ref: lastnb_ 4 2 13 124 */
7922 /*:ref: errint_ 14 3 13 4 124 */
7923 /*:ref: errdp_ 14 3 13 7 124 */
7924 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
7925 /*:ref: dafbna_ 14 4 4 7 13 124 */
7926 /*:ref: failed_ 12 0 */
7927 /*:ref: dafada_ 14 2 7 4 */
7928 /*:ref: dafena_ 14 0 */
7929 
7930 extern int spkw02_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len);
7931 /*:ref: return_ 12 0 */
7932 /*:ref: chkin_ 14 2 13 124 */
7933 /*:ref: setmsg_ 14 2 13 124 */
7934 /*:ref: errint_ 14 3 13 4 124 */
7935 /*:ref: sigerr_ 14 2 13 124 */
7936 /*:ref: chkout_ 14 2 13 124 */
7937 /*:ref: errdp_ 14 3 13 7 124 */
7938 /*:ref: namfrm_ 14 3 13 4 124 */
7939 /*:ref: errch_ 14 4 13 13 124 124 */
7940 /*:ref: etcal_ 14 3 7 13 124 */
7941 /*:ref: chckid_ 14 5 13 4 13 124 124 */
7942 /*:ref: failed_ 12 0 */
7943 /*:ref: dafps_ 14 5 4 4 7 4 7 */
7944 /*:ref: dafbna_ 14 4 4 7 13 124 */
7945 /*:ref: dafada_ 14 2 7 4 */
7946 /*:ref: dafena_ 14 0 */
7947 
7948 extern int spkw03_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len);
7949 /*:ref: return_ 12 0 */
7950 /*:ref: chkin_ 14 2 13 124 */
7951 /*:ref: setmsg_ 14 2 13 124 */
7952 /*:ref: errint_ 14 3 13 4 124 */
7953 /*:ref: sigerr_ 14 2 13 124 */
7954 /*:ref: chkout_ 14 2 13 124 */
7955 /*:ref: errdp_ 14 3 13 7 124 */
7956 /*:ref: namfrm_ 14 3 13 4 124 */
7957 /*:ref: errch_ 14 4 13 13 124 124 */
7958 /*:ref: etcal_ 14 3 7 13 124 */
7959 /*:ref: chckid_ 14 5 13 4 13 124 124 */
7960 /*:ref: failed_ 12 0 */
7961 /*:ref: dafps_ 14 5 4 4 7 4 7 */
7962 /*:ref: dafbna_ 14 4 4 7 13 124 */
7963 /*:ref: dafada_ 14 2 7 4 */
7964 /*:ref: dafena_ 14 0 */
7965 
7966 extern int spkw05_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *gm, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len);
7967 /*:ref: return_ 12 0 */
7968 /*:ref: chkin_ 14 2 13 124 */
7969 /*:ref: setmsg_ 14 2 13 124 */
7970 /*:ref: errdp_ 14 3 13 7 124 */
7971 /*:ref: sigerr_ 14 2 13 124 */
7972 /*:ref: chkout_ 14 2 13 124 */
7973 /*:ref: namfrm_ 14 3 13 4 124 */
7974 /*:ref: errch_ 14 4 13 13 124 124 */
7975 /*:ref: errint_ 14 3 13 4 124 */
7976 /*:ref: lastnb_ 4 2 13 124 */
7977 /*:ref: dafps_ 14 5 4 4 7 4 7 */
7978 /*:ref: dafbna_ 14 4 4 7 13 124 */
7979 /*:ref: failed_ 12 0 */
7980 /*:ref: dafada_ 14 2 7 4 */
7981 /*:ref: dafena_ 14 0 */
7982 
7983 extern int spkw08_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epoch1, doublereal *step, ftnlen frame_len, ftnlen segid_len);
7984 /*:ref: return_ 12 0 */
7985 /*:ref: chkin_ 14 2 13 124 */
7986 /*:ref: namfrm_ 14 3 13 4 124 */
7987 /*:ref: setmsg_ 14 2 13 124 */
7988 /*:ref: errch_ 14 4 13 13 124 124 */
7989 /*:ref: sigerr_ 14 2 13 124 */
7990 /*:ref: chkout_ 14 2 13 124 */
7991 /*:ref: lastnb_ 4 2 13 124 */
7992 /*:ref: errint_ 14 3 13 4 124 */
7993 /*:ref: errdp_ 14 3 13 7 124 */
7994 /*:ref: etcal_ 14 3 7 13 124 */
7995 /*:ref: dafps_ 14 5 4 4 7 4 7 */
7996 /*:ref: dafbna_ 14 4 4 7 13 124 */
7997 /*:ref: failed_ 12 0 */
7998 /*:ref: dafada_ 14 2 7 4 */
7999 /*:ref: dafena_ 14 0 */
8000 
8001 extern int spkw09_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len);
8002 /*:ref: return_ 12 0 */
8003 /*:ref: chkin_ 14 2 13 124 */
8004 /*:ref: namfrm_ 14 3 13 4 124 */
8005 /*:ref: setmsg_ 14 2 13 124 */
8006 /*:ref: errch_ 14 4 13 13 124 124 */
8007 /*:ref: sigerr_ 14 2 13 124 */
8008 /*:ref: chkout_ 14 2 13 124 */
8009 /*:ref: errdp_ 14 3 13 7 124 */
8010 /*:ref: lastnb_ 4 2 13 124 */
8011 /*:ref: errint_ 14 3 13 4 124 */
8012 /*:ref: dafps_ 14 5 4 4 7 4 7 */
8013 /*:ref: dafbna_ 14 4 4 7 13 124 */
8014 /*:ref: failed_ 12 0 */
8015 /*:ref: dafada_ 14 2 7 4 */
8016 /*:ref: dafena_ 14 0 */
8017 
8018 extern int spkw10_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *consts, integer *n, doublereal *elems, doublereal *epochs, ftnlen frame_len, ftnlen segid_len);
8019 /*:ref: return_ 12 0 */
8020 /*:ref: chkin_ 14 2 13 124 */
8021 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
8022 /*:ref: failed_ 12 0 */
8023 /*:ref: chkout_ 14 2 13 124 */
8024 /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */
8025 /*:ref: moved_ 14 3 7 4 7 */
8026 /*:ref: zzwahr_ 14 2 7 7 */
8027 /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */
8028 /*:ref: sgwes_ 14 1 4 */
8029 
8030 extern int spkw12_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epoch1, doublereal *step, ftnlen frame_len, ftnlen segid_len);
8031 /*:ref: return_ 12 0 */
8032 /*:ref: chkin_ 14 2 13 124 */
8033 /*:ref: namfrm_ 14 3 13 4 124 */
8034 /*:ref: setmsg_ 14 2 13 124 */
8035 /*:ref: errch_ 14 4 13 13 124 124 */
8036 /*:ref: sigerr_ 14 2 13 124 */
8037 /*:ref: chkout_ 14 2 13 124 */
8038 /*:ref: lastnb_ 4 2 13 124 */
8039 /*:ref: errint_ 14 3 13 4 124 */
8040 /*:ref: even_ 12 1 4 */
8041 /*:ref: errdp_ 14 3 13 7 124 */
8042 /*:ref: etcal_ 14 3 7 13 124 */
8043 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
8044 /*:ref: dafbna_ 14 4 4 7 13 124 */
8045 /*:ref: failed_ 12 0 */
8046 /*:ref: dafada_ 14 2 7 4 */
8047 /*:ref: dafena_ 14 0 */
8048 
8049 extern int spkw13_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len);
8050 /*:ref: return_ 12 0 */
8051 /*:ref: chkin_ 14 2 13 124 */
8052 /*:ref: namfrm_ 14 3 13 4 124 */
8053 /*:ref: setmsg_ 14 2 13 124 */
8054 /*:ref: errch_ 14 4 13 13 124 124 */
8055 /*:ref: sigerr_ 14 2 13 124 */
8056 /*:ref: chkout_ 14 2 13 124 */
8057 /*:ref: lastnb_ 4 2 13 124 */
8058 /*:ref: errint_ 14 3 13 4 124 */
8059 /*:ref: even_ 12 1 4 */
8060 /*:ref: errdp_ 14 3 13 7 124 */
8061 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
8062 /*:ref: dafbna_ 14 4 4 7 13 124 */
8063 /*:ref: failed_ 12 0 */
8064 /*:ref: dafada_ 14 2 7 4 */
8065 /*:ref: dafena_ 14 0 */
8066 
8067 extern int spkw15_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *tp, doublereal *pa, doublereal *p, doublereal *ecc, doublereal *j2flg, doublereal *pv, doublereal *gm, doublereal *j2, doublereal *radius, ftnlen frame_len, ftnlen segid_len);
8068 /*:ref: return_ 12 0 */
8069 /*:ref: chkin_ 14 2 13 124 */
8070 /*:ref: vhat_ 14 2 7 7 */
8071 /*:ref: vequ_ 14 2 7 7 */
8072 /*:ref: setmsg_ 14 2 13 124 */
8073 /*:ref: errdp_ 14 3 13 7 124 */
8074 /*:ref: sigerr_ 14 2 13 124 */
8075 /*:ref: chkout_ 14 2 13 124 */
8076 /*:ref: vzero_ 12 1 7 */
8077 /*:ref: vdot_ 7 2 7 7 */
8078 /*:ref: vsep_ 7 2 7 7 */
8079 /*:ref: dpr_ 7 0 */
8080 /*:ref: lastnb_ 4 2 13 124 */
8081 /*:ref: errint_ 14 3 13 4 124 */
8082 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
8083 /*:ref: failed_ 12 0 */
8084 /*:ref: dafbna_ 14 4 4 7 13 124 */
8085 /*:ref: dafada_ 14 2 7 4 */
8086 /*:ref: dafena_ 14 0 */
8087 
8088 extern int spkw17_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, ftnlen frame_len, ftnlen segid_len);
8089 /*:ref: return_ 12 0 */
8090 /*:ref: chkin_ 14 2 13 124 */
8091 /*:ref: moved_ 14 3 7 4 7 */
8092 /*:ref: setmsg_ 14 2 13 124 */
8093 /*:ref: errdp_ 14 3 13 7 124 */
8094 /*:ref: sigerr_ 14 2 13 124 */
8095 /*:ref: chkout_ 14 2 13 124 */
8096 /*:ref: lastnb_ 4 2 13 124 */
8097 /*:ref: errint_ 14 3 13 4 124 */
8098 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
8099 /*:ref: failed_ 12 0 */
8100 /*:ref: dafbna_ 14 4 4 7 13 124 */
8101 /*:ref: dafada_ 14 2 7 4 */
8102 /*:ref: dafena_ 14 0 */
8103 
8104 extern int spkw18_(integer *handle, integer *subtyp, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *packts, doublereal *epochs, ftnlen frame_len, ftnlen segid_len);
8105 /*:ref: return_ 12 0 */
8106 /*:ref: chkin_ 14 2 13 124 */
8107 /*:ref: setmsg_ 14 2 13 124 */
8108 /*:ref: errint_ 14 3 13 4 124 */
8109 /*:ref: sigerr_ 14 2 13 124 */
8110 /*:ref: chkout_ 14 2 13 124 */
8111 /*:ref: namfrm_ 14 3 13 4 124 */
8112 /*:ref: errch_ 14 4 13 13 124 124 */
8113 /*:ref: lastnb_ 4 2 13 124 */
8114 /*:ref: odd_ 12 1 4 */
8115 /*:ref: errdp_ 14 3 13 7 124 */
8116 /*:ref: failed_ 12 0 */
8117 /*:ref: dafps_ 14 5 4 4 7 4 7 */
8118 /*:ref: dafbna_ 14 4 4 7 13 124 */
8119 /*:ref: dafada_ 14 2 7 4 */
8120 /*:ref: dafena_ 14 0 */
8121 
8122 extern int spkw19_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *nintvl, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *epochs, doublereal *ivlbds, logical *sellst, ftnlen frame_len, ftnlen segid_len);
8123 /*:ref: return_ 12 0 */
8124 /*:ref: chkin_ 14 2 13 124 */
8125 /*:ref: setmsg_ 14 2 13 124 */
8126 /*:ref: errint_ 14 3 13 4 124 */
8127 /*:ref: sigerr_ 14 2 13 124 */
8128 /*:ref: chkout_ 14 2 13 124 */
8129 /*:ref: errdp_ 14 3 13 7 124 */
8130 /*:ref: namfrm_ 14 3 13 4 124 */
8131 /*:ref: errch_ 14 4 13 13 124 124 */
8132 /*:ref: lastnb_ 4 2 13 124 */
8133 /*:ref: odd_ 12 1 4 */
8134 /*:ref: dafps_ 14 5 4 4 7 4 7 */
8135 /*:ref: dafbna_ 14 4 4 7 13 124 */
8136 /*:ref: failed_ 12 0 */
8137 /*:ref: dafada_ 14 2 7 4 */
8138 /*:ref: dafena_ 14 0 */
8139 
8140 extern int spkw20_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *dscale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len);
8141 /*:ref: return_ 12 0 */
8142 /*:ref: chkin_ 14 2 13 124 */
8143 /*:ref: setmsg_ 14 2 13 124 */
8144 /*:ref: errint_ 14 3 13 4 124 */
8145 /*:ref: sigerr_ 14 2 13 124 */
8146 /*:ref: chkout_ 14 2 13 124 */
8147 /*:ref: errdp_ 14 3 13 7 124 */
8148 /*:ref: namfrm_ 14 3 13 4 124 */
8149 /*:ref: errch_ 14 4 13 13 124 124 */
8150 /*:ref: etcal_ 14 3 7 13 124 */
8151 /*:ref: spd_ 7 0 */
8152 /*:ref: j2000_ 7 0 */
8153 /*:ref: chckid_ 14 5 13 4 13 124 124 */
8154 /*:ref: failed_ 12 0 */
8155 /*:ref: dafps_ 14 5 4 4 7 4 7 */
8156 /*:ref: dafbna_ 14 4 4 7 13 124 */
8157 /*:ref: dafada_ 14 2 7 4 */
8158 /*:ref: dafena_ 14 0 */
8159 
8160 extern int spkw21_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, integer *dlsize, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len);
8161 /*:ref: return_ 12 0 */
8162 /*:ref: chkin_ 14 2 13 124 */
8163 /*:ref: setmsg_ 14 2 13 124 */
8164 /*:ref: errint_ 14 3 13 4 124 */
8165 /*:ref: sigerr_ 14 2 13 124 */
8166 /*:ref: chkout_ 14 2 13 124 */
8167 /*:ref: namfrm_ 14 3 13 4 124 */
8168 /*:ref: errch_ 14 4 13 13 124 124 */
8169 /*:ref: lastnb_ 4 2 13 124 */
8170 /*:ref: errdp_ 14 3 13 7 124 */
8171 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
8172 /*:ref: dafbna_ 14 4 4 7 13 124 */
8173 /*:ref: failed_ 12 0 */
8174 /*:ref: dafada_ 14 2 7 4 */
8175 /*:ref: dafena_ 14 0 */
8176 
8177 extern int srfc2s_(integer *code, integer *bodyid, char *srfstr, logical *isname, ftnlen srfstr_len);
8178 /*:ref: return_ 12 0 */
8179 /*:ref: chkin_ 14 2 13 124 */
8180 /*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */
8181 /*:ref: failed_ 12 0 */
8182 /*:ref: chkout_ 14 2 13 124 */
8183 /*:ref: intstr_ 14 3 4 13 124 */
8184 
8185 extern int srfcss_(integer *code, char *bodstr, char *srfstr, logical *isname, ftnlen bodstr_len, ftnlen srfstr_len);
8186 /*:ref: return_ 12 0 */
8187 /*:ref: chkin_ 14 2 13 124 */
8188 /*:ref: bods2c_ 14 4 13 4 12 124 */
8189 /*:ref: failed_ 12 0 */
8190 /*:ref: chkout_ 14 2 13 124 */
8191 /*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */
8192 /*:ref: intstr_ 14 3 4 13 124 */
8193 
8194 extern int srfnrm_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *srfpts, doublereal *normls, ftnlen method_len, ftnlen target_len, ftnlen fixref_len);
8195 /*:ref: return_ 12 0 */
8196 /*:ref: chkin_ 14 2 13 124 */
8197 /*:ref: zzctruin_ 14 1 4 */
8198 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
8199 /*:ref: failed_ 12 0 */
8200 /*:ref: chkout_ 14 2 13 124 */
8201 /*:ref: setmsg_ 14 2 13 124 */
8202 /*:ref: errch_ 14 4 13 13 124 124 */
8203 /*:ref: sigerr_ 14 2 13 124 */
8204 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
8205 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
8206 /*:ref: errint_ 14 3 13 4 124 */
8207 /*:ref: zzsrftrk_ 14 2 4 12 */
8208 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
8209 /*:ref: eqstr_ 12 4 13 13 124 124 */
8210 /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */
8211 /*:ref: errdp_ 14 3 13 7 124 */
8212 /*:ref: dskgtl_ 14 2 4 7 */
8213 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
8214 /*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */
8215 /*:ref: vhatip_ 14 1 7 */
8216 
8217 extern int srfrec_(integer *body, doublereal *long__, doublereal *lat, doublereal *rectan);
8218 /*:ref: return_ 12 0 */
8219 /*:ref: chkin_ 14 2 13 124 */
8220 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
8221 /*:ref: latrec_ 14 4 7 7 7 7 */
8222 /*:ref: edpnt_ 14 5 7 7 7 7 7 */
8223 /*:ref: chkout_ 14 2 13 124 */
8224 
8225 extern int srfs2c_(char *srfstr, char *bodstr, integer *code, logical *found, ftnlen srfstr_len, ftnlen bodstr_len);
8226 /*:ref: return_ 12 0 */
8227 /*:ref: chkin_ 14 2 13 124 */
8228 /*:ref: bods2c_ 14 4 13 4 12 124 */
8229 /*:ref: failed_ 12 0 */
8230 /*:ref: chkout_ 14 2 13 124 */
8231 /*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */
8232 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
8233 
8234 extern int srfscc_(char *srfstr, integer *bodyid, integer *code, logical *found, ftnlen srfstr_len);
8235 /*:ref: return_ 12 0 */
8236 /*:ref: chkin_ 14 2 13 124 */
8237 /*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */
8238 /*:ref: failed_ 12 0 */
8239 /*:ref: chkout_ 14 2 13 124 */
8240 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
8241 
8242 extern int srfxpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *dist, doublereal *trgepc, doublereal *obspos, logical *found, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len);
8243 /*:ref: return_ 12 0 */
8244 /*:ref: chkin_ 14 2 13 124 */
8245 /*:ref: zzctruin_ 14 1 4 */
8246 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
8247 /*:ref: setmsg_ 14 2 13 124 */
8248 /*:ref: errch_ 14 4 13 13 124 124 */
8249 /*:ref: sigerr_ 14 2 13 124 */
8250 /*:ref: chkout_ 14 2 13 124 */
8251 /*:ref: ljust_ 14 4 13 13 124 124 */
8252 /*:ref: ucase_ 14 4 13 13 124 124 */
8253 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
8254 /*:ref: eqchr_ 12 4 13 13 124 124 */
8255 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
8256 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
8257 /*:ref: vminus_ 14 2 7 7 */
8258 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
8259 /*:ref: failed_ 12 0 */
8260 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
8261 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
8262 /*:ref: mxv_ 14 3 7 7 7 */
8263 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
8264 /*:ref: stelab_ 14 3 7 7 7 */
8265 /*:ref: stlabx_ 14 3 7 7 7 */
8266 /*:ref: vsub_ 14 3 7 7 7 */
8267 /*:ref: vadd_ 14 3 7 7 7 */
8268 /*:ref: vequ_ 14 2 7 7 */
8269 /*:ref: eqstr_ 12 4 13 13 124 124 */
8270 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
8271 /*:ref: vnorm_ 7 1 7 */
8272 /*:ref: dasine_ 7 2 7 7 */
8273 /*:ref: vsep_ 7 2 7 7 */
8274 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
8275 /*:ref: vdist_ 7 2 7 7 */
8276 /*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */
8277 /*:ref: clight_ 7 0 */
8278 /*:ref: touchd_ 7 1 7 */
8279 
8280 extern int ssizec_(integer *size, char *cell, ftnlen cell_len);
8281 /*:ref: return_ 12 0 */
8282 /*:ref: chkin_ 14 2 13 124 */
8283 /*:ref: setmsg_ 14 2 13 124 */
8284 /*:ref: errint_ 14 3 13 4 124 */
8285 /*:ref: sigerr_ 14 2 13 124 */
8286 /*:ref: chkout_ 14 2 13 124 */
8287 /*:ref: enchar_ 14 3 4 13 124 */
8288 
8289 extern int ssized_(integer *size, doublereal *cell);
8290 /*:ref: return_ 12 0 */
8291 /*:ref: chkin_ 14 2 13 124 */
8292 /*:ref: setmsg_ 14 2 13 124 */
8293 /*:ref: errint_ 14 3 13 4 124 */
8294 /*:ref: sigerr_ 14 2 13 124 */
8295 /*:ref: chkout_ 14 2 13 124 */
8296 
8297 extern int ssizei_(integer *size, integer *cell);
8298 /*:ref: return_ 12 0 */
8299 /*:ref: chkin_ 14 2 13 124 */
8300 /*:ref: setmsg_ 14 2 13 124 */
8301 /*:ref: errint_ 14 3 13 4 124 */
8302 /*:ref: sigerr_ 14 2 13 124 */
8303 /*:ref: chkout_ 14 2 13 124 */
8304 
8305 extern int stcc01_(char *catfnm, char *tabnam, logical *istyp1, char *errmsg, ftnlen catfnm_len, ftnlen tabnam_len, ftnlen errmsg_len);
8306 /*:ref: return_ 12 0 */
8307 /*:ref: chkin_ 14 2 13 124 */
8308 /*:ref: ekopr_ 14 3 13 4 124 */
8309 /*:ref: eknseg_ 4 1 4 */
8310 /*:ref: chkout_ 14 2 13 124 */
8311 /*:ref: ekssum_ 14 14 4 4 13 4 4 13 13 4 4 12 12 124 124 124 */
8312 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
8313 /*:ref: nblen_ 4 2 13 124 */
8314 /*:ref: ekcls_ 14 1 4 */
8315 
8316 extern int stcf01_(char *catnam, doublereal *westra, doublereal *eastra, doublereal *sthdec, doublereal *nthdec, integer *nstars, ftnlen catnam_len);
8317 /*:ref: return_ 12 0 */
8318 /*:ref: chkin_ 14 2 13 124 */
8319 /*:ref: dpr_ 7 0 */
8320 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
8321 /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */
8322 /*:ref: ekfind_ 14 6 13 4 12 13 124 124 */
8323 /*:ref: setmsg_ 14 2 13 124 */
8324 /*:ref: errch_ 14 4 13 13 124 124 */
8325 /*:ref: sigerr_ 14 2 13 124 */
8326 /*:ref: chkout_ 14 2 13 124 */
8327 
8328 extern int stcg01_(integer *index, doublereal *ra, doublereal *dec, doublereal *rasig, doublereal *decsig, integer *catnum, char *sptype, doublereal *vmag, ftnlen sptype_len);
8329 /*:ref: return_ 12 0 */
8330 /*:ref: chkin_ 14 2 13 124 */
8331 /*:ref: ekgd_ 14 6 4 4 4 7 12 12 */
8332 /*:ref: setmsg_ 14 2 13 124 */
8333 /*:ref: errint_ 14 3 13 4 124 */
8334 /*:ref: sigerr_ 14 2 13 124 */
8335 /*:ref: chkout_ 14 2 13 124 */
8336 /*:ref: ekgi_ 14 6 4 4 4 4 12 12 */
8337 /*:ref: ekgc_ 14 7 4 4 4 13 12 12 124 */
8338 /*:ref: rpd_ 7 0 */
8339 
8340 extern int stcl01_(char *catfnm, char *tabnam, integer *handle, ftnlen catfnm_len, ftnlen tabnam_len);
8341 /*:ref: return_ 12 0 */
8342 /*:ref: chkin_ 14 2 13 124 */
8343 /*:ref: stcc01_ 14 7 13 13 12 13 124 124 124 */
8344 /*:ref: setmsg_ 14 2 13 124 */
8345 /*:ref: errch_ 14 4 13 13 124 124 */
8346 /*:ref: sigerr_ 14 2 13 124 */
8347 /*:ref: chkout_ 14 2 13 124 */
8348 /*:ref: eklef_ 14 3 13 4 124 */
8349 
8350 extern int stdio_(char *name__, integer *unit, ftnlen name_len);
8351 /*:ref: ljust_ 14 4 13 13 124 124 */
8352 /*:ref: ucase_ 14 4 13 13 124 124 */
8353 /*:ref: return_ 12 0 */
8354 /*:ref: chkin_ 14 2 13 124 */
8355 /*:ref: setmsg_ 14 2 13 124 */
8356 /*:ref: errch_ 14 4 13 13 124 124 */
8357 /*:ref: sigerr_ 14 2 13 124 */
8358 /*:ref: chkout_ 14 2 13 124 */
8359 
8360 extern int stelab_(doublereal *pobj, doublereal *vobs, doublereal *appobj);
8361 /*:ref: return_ 12 0 */
8362 /*:ref: chkin_ 14 2 13 124 */
8363 /*:ref: vhat_ 14 2 7 7 */
8364 /*:ref: clight_ 7 0 */
8365 /*:ref: vscl_ 14 3 7 7 7 */
8366 /*:ref: vdot_ 7 2 7 7 */
8367 /*:ref: setmsg_ 14 2 13 124 */
8368 /*:ref: errdp_ 14 3 13 7 124 */
8369 /*:ref: sigerr_ 14 2 13 124 */
8370 /*:ref: chkout_ 14 2 13 124 */
8371 /*:ref: vcrss_ 14 3 7 7 7 */
8372 /*:ref: vnorm_ 7 1 7 */
8373 /*:ref: vrotv_ 14 4 7 7 7 7 */
8374 /*:ref: moved_ 14 3 7 4 7 */
8375 
8376 extern int stlabx_(doublereal *pobj, doublereal *vobs, doublereal *corpos);
8377 /*:ref: return_ 12 0 */
8378 /*:ref: chkin_ 14 2 13 124 */
8379 /*:ref: vminus_ 14 2 7 7 */
8380 /*:ref: stelab_ 14 3 7 7 7 */
8381 /*:ref: chkout_ 14 2 13 124 */
8382 
8383 extern int stmp03_(doublereal *x, doublereal *c0, doublereal *c1, doublereal *c2, doublereal *c3);
8384 /*:ref: dpmax_ 7 0 */
8385 /*:ref: chkin_ 14 2 13 124 */
8386 /*:ref: setmsg_ 14 2 13 124 */
8387 /*:ref: errdp_ 14 3 13 7 124 */
8388 /*:ref: sigerr_ 14 2 13 124 */
8389 /*:ref: chkout_ 14 2 13 124 */
8390 
8391 extern int stpool_(char *item, integer *nth, char *contin, char *string, integer *size, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len);
8392 /*:ref: return_ 12 0 */
8393 /*:ref: chkin_ 14 2 13 124 */
8394 /*:ref: rtrim_ 4 2 13 124 */
8395 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
8396 /*:ref: chkout_ 14 2 13 124 */
8397 
8398 extern int str2et_(char *string, doublereal *et, ftnlen string_len);
8399 /*:ref: return_ 12 0 */
8400 /*:ref: chkin_ 14 2 13 124 */
8401 /*:ref: timdef_ 14 6 13 13 13 124 124 124 */
8402 /*:ref: prefix_ 14 5 13 4 13 124 124 */
8403 /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */
8404 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
8405 /*:ref: setmsg_ 14 2 13 124 */
8406 /*:ref: sigerr_ 14 2 13 124 */
8407 /*:ref: chkout_ 14 2 13 124 */
8408 /*:ref: errch_ 14 4 13 13 124 124 */
8409 /*:ref: ttrans_ 14 5 13 13 7 124 124 */
8410 /*:ref: tchckd_ 14 2 13 124 */
8411 /*:ref: tparch_ 14 2 13 124 */
8412 /*:ref: moved_ 14 3 7 4 7 */
8413 /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */
8414 /*:ref: texpyr_ 14 1 4 */
8415 /*:ref: jul2gr_ 14 4 4 4 4 4 */
8416 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
8417 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
8418 /*:ref: dpfmt_ 14 5 7 13 13 124 124 */
8419 /*:ref: gr2jul_ 14 4 4 4 4 4 */
8420 
8421 extern int subpnt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
8422 /*:ref: return_ 12 0 */
8423 /*:ref: chkin_ 14 2 13 124 */
8424 /*:ref: zzctruin_ 14 1 4 */
8425 /*:ref: zzvalcor_ 14 3 13 12 124 */
8426 /*:ref: failed_ 12 0 */
8427 /*:ref: chkout_ 14 2 13 124 */
8428 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
8429 /*:ref: setmsg_ 14 2 13 124 */
8430 /*:ref: errch_ 14 4 13 13 124 124 */
8431 /*:ref: sigerr_ 14 2 13 124 */
8432 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
8433 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
8434 /*:ref: errint_ 14 3 13 4 124 */
8435 /*:ref: zzsrftrk_ 14 2 4 12 */
8436 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
8437 /*:ref: eqstr_ 12 4 13 13 124 124 */
8438 /*:ref: zzsudski_ 14 4 4 4 4 4 */
8439 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
8440 /*:ref: vminus_ 14 2 7 7 */
8441 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
8442 /*:ref: vnorm_ 7 1 7 */
8443 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
8444 /*:ref: vsub_ 14 3 7 7 7 */
8445 /*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */
8446 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
8447 /*:ref: vdist_ 7 2 7 7 */
8448 /*:ref: clight_ 7 0 */
8449 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
8450 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
8451 /*:ref: mxv_ 14 3 7 7 7 */
8452 /*:ref: mtxv_ 14 3 7 7 7 */
8453 /*:ref: stlabx_ 14 3 7 7 7 */
8454 /*:ref: stelab_ 14 3 7 7 7 */
8455 /*:ref: vequ_ 14 2 7 7 */
8456 /*:ref: touchd_ 7 1 7 */
8457 
8458 extern int subpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *alt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len);
8459 /*:ref: return_ 12 0 */
8460 /*:ref: chkin_ 14 2 13 124 */
8461 /*:ref: zzctruin_ 14 1 4 */
8462 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
8463 /*:ref: setmsg_ 14 2 13 124 */
8464 /*:ref: errch_ 14 4 13 13 124 124 */
8465 /*:ref: sigerr_ 14 2 13 124 */
8466 /*:ref: chkout_ 14 2 13 124 */
8467 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
8468 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
8469 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
8470 /*:ref: vminus_ 14 2 7 7 */
8471 /*:ref: eqstr_ 12 4 13 13 124 124 */
8472 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
8473 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
8474 /*:ref: vdist_ 7 2 7 7 */
8475 
8476 extern int subslr_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
8477 /*:ref: return_ 12 0 */
8478 /*:ref: chkin_ 14 2 13 124 */
8479 /*:ref: zzctruin_ 14 1 4 */
8480 /*:ref: zzvalcor_ 14 3 13 12 124 */
8481 /*:ref: failed_ 12 0 */
8482 /*:ref: chkout_ 14 2 13 124 */
8483 /*:ref: setmsg_ 14 2 13 124 */
8484 /*:ref: errch_ 14 4 13 13 124 124 */
8485 /*:ref: sigerr_ 14 2 13 124 */
8486 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
8487 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
8488 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
8489 /*:ref: errint_ 14 3 13 4 124 */
8490 /*:ref: zzsrftrk_ 14 2 4 12 */
8491 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
8492 /*:ref: eqstr_ 12 4 13 13 124 124 */
8493 /*:ref: zzsudski_ 14 4 4 4 4 4 */
8494 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
8495 /*:ref: vminus_ 14 2 7 7 */
8496 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
8497 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
8498 /*:ref: vsub_ 14 3 7 7 7 */
8499 /*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */
8500 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
8501 /*:ref: vdist_ 7 2 7 7 */
8502 /*:ref: clight_ 7 0 */
8503 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
8504 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
8505 /*:ref: mxv_ 14 3 7 7 7 */
8506 /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */
8507 /*:ref: vadd_ 14 3 7 7 7 */
8508 /*:ref: touchd_ 7 1 7 */
8509 /*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */
8510 /*:ref: vequ_ 14 2 7 7 */
8511 
8512 extern int subsol_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len);
8513 /*:ref: return_ 12 0 */
8514 /*:ref: chkin_ 14 2 13 124 */
8515 /*:ref: zzctruin_ 14 1 4 */
8516 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
8517 /*:ref: setmsg_ 14 2 13 124 */
8518 /*:ref: errch_ 14 4 13 13 124 124 */
8519 /*:ref: sigerr_ 14 2 13 124 */
8520 /*:ref: chkout_ 14 2 13 124 */
8521 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
8522 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
8523 /*:ref: eqstr_ 12 4 13 13 124 124 */
8524 /*:ref: ltime_ 14 7 7 4 13 4 7 7 124 */
8525 /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */
8526 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
8527 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
8528 
8529 extern int suffix_(char *suff, integer *spaces, char *string, ftnlen suff_len, ftnlen string_len);
8530 /*:ref: lastnb_ 4 2 13 124 */
8531 
8532 extern doublereal sumad_(doublereal *array, integer *n);
8533 
8534 extern integer sumai_(integer *array, integer *n);
8535 
8536 extern int surfnm_(doublereal *a, doublereal *b, doublereal *c__, doublereal *point, doublereal *normal);
8537 /*:ref: return_ 12 0 */
8538 /*:ref: chkin_ 14 2 13 124 */
8539 /*:ref: setmsg_ 14 2 13 124 */
8540 /*:ref: errch_ 14 4 13 13 124 124 */
8541 /*:ref: errdp_ 14 3 13 7 124 */
8542 /*:ref: sigerr_ 14 2 13 124 */
8543 /*:ref: chkout_ 14 2 13 124 */
8544 /*:ref: vhatip_ 14 1 7 */
8545 
8546 extern int surfpt_(doublereal *positn, doublereal *u, doublereal *a, doublereal *b, doublereal *c__, doublereal *point, logical *found);
8547 /*:ref: return_ 12 0 */
8548 /*:ref: vzero_ 12 1 7 */
8549 /*:ref: chkin_ 14 2 13 124 */
8550 /*:ref: setmsg_ 14 2 13 124 */
8551 /*:ref: sigerr_ 14 2 13 124 */
8552 /*:ref: chkout_ 14 2 13 124 */
8553 /*:ref: errch_ 14 4 13 13 124 124 */
8554 /*:ref: errdp_ 14 3 13 7 124 */
8555 /*:ref: cleard_ 14 2 4 7 */
8556 /*:ref: vperp_ 14 3 7 7 7 */
8557 /*:ref: vsub_ 14 3 7 7 7 */
8558 /*:ref: vnorm_ 7 1 7 */
8559 /*:ref: vhat_ 14 2 7 7 */
8560 /*:ref: vdot_ 7 2 7 7 */
8561 /*:ref: vequ_ 14 2 7 7 */
8562 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
8563 
8564 extern int surfpv_(doublereal *stvrtx, doublereal *stdir, doublereal *a, doublereal *b, doublereal *c__, doublereal *stx, logical *found);
8565 /*:ref: return_ 12 0 */
8566 /*:ref: chkin_ 14 2 13 124 */
8567 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
8568 /*:ref: failed_ 12 0 */
8569 /*:ref: chkout_ 14 2 13 124 */
8570 /*:ref: dvhat_ 14 2 7 7 */
8571 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
8572 /*:ref: vequ_ 14 2 7 7 */
8573 /*:ref: vsub_ 14 3 7 7 7 */
8574 /*:ref: setmsg_ 14 2 13 124 */
8575 /*:ref: errdp_ 14 3 13 7 124 */
8576 /*:ref: sigerr_ 14 2 13 124 */
8577 /*:ref: vdot_ 7 2 7 7 */
8578 /*:ref: vscl_ 14 3 7 7 7 */
8579 /*:ref: vnorm_ 7 1 7 */
8580 /*:ref: dpmax_ 7 0 */
8581 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
8582 
8583 extern int swapac_(integer *n, integer *locn, integer *m, integer *locm, char *array, ftnlen array_len);
8584 /*:ref: return_ 12 0 */
8585 /*:ref: chkin_ 14 2 13 124 */
8586 /*:ref: setmsg_ 14 2 13 124 */
8587 /*:ref: errint_ 14 3 13 4 124 */
8588 /*:ref: sigerr_ 14 2 13 124 */
8589 /*:ref: chkout_ 14 2 13 124 */
8590 /*:ref: swapc_ 14 4 13 13 124 124 */
8591 /*:ref: cyacip_ 14 6 4 13 4 13 124 124 */
8592 
8593 extern int swapad_(integer *n, integer *locn, integer *m, integer *locm, doublereal *array);
8594 /*:ref: return_ 12 0 */
8595 /*:ref: chkin_ 14 2 13 124 */
8596 /*:ref: setmsg_ 14 2 13 124 */
8597 /*:ref: errint_ 14 3 13 4 124 */
8598 /*:ref: sigerr_ 14 2 13 124 */
8599 /*:ref: chkout_ 14 2 13 124 */
8600 /*:ref: swapd_ 14 2 7 7 */
8601 /*:ref: cyadip_ 14 5 4 13 4 7 124 */
8602 
8603 extern int swapai_(integer *n, integer *locn, integer *m, integer *locm, integer *array);
8604 /*:ref: return_ 12 0 */
8605 /*:ref: chkin_ 14 2 13 124 */
8606 /*:ref: setmsg_ 14 2 13 124 */
8607 /*:ref: errint_ 14 3 13 4 124 */
8608 /*:ref: sigerr_ 14 2 13 124 */
8609 /*:ref: chkout_ 14 2 13 124 */
8610 /*:ref: swapi_ 14 2 4 4 */
8611 /*:ref: cyaiip_ 14 5 4 13 4 4 124 */
8612 
8613 extern int swapc_(char *a, char *b, ftnlen a_len, ftnlen b_len);
8614 
8615 extern int swapd_(doublereal *a, doublereal *b);
8616 
8617 extern int swapi_(integer *a, integer *b);
8618 
8619 extern int sxform_(char *from, char *to, doublereal *et, doublereal *xform, ftnlen from_len, ftnlen to_len);
8620 /*:ref: return_ 12 0 */
8621 /*:ref: chkin_ 14 2 13 124 */
8622 /*:ref: zzctruin_ 14 1 4 */
8623 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
8624 /*:ref: frmchg_ 14 4 4 4 7 7 */
8625 /*:ref: setmsg_ 14 2 13 124 */
8626 /*:ref: errch_ 14 4 13 13 124 124 */
8627 /*:ref: sigerr_ 14 2 13 124 */
8628 /*:ref: chkout_ 14 2 13 124 */
8629 
8630 extern int sydelc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len);
8631 /*:ref: return_ 12 0 */
8632 /*:ref: chkin_ 14 2 13 124 */
8633 /*:ref: cardc_ 4 2 13 124 */
8634 /*:ref: cardi_ 4 1 4 */
8635 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8636 /*:ref: sumai_ 4 2 4 4 */
8637 /*:ref: remlac_ 14 5 4 4 13 4 124 */
8638 /*:ref: scardc_ 14 3 4 13 124 */
8639 /*:ref: remlai_ 14 4 4 4 4 4 */
8640 /*:ref: scardi_ 14 2 4 4 */
8641 /*:ref: chkout_ 14 2 13 124 */
8642 
8643 extern int sydeld_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
8644 /*:ref: return_ 12 0 */
8645 /*:ref: chkin_ 14 2 13 124 */
8646 /*:ref: cardc_ 4 2 13 124 */
8647 /*:ref: cardi_ 4 1 4 */
8648 /*:ref: cardd_ 4 1 7 */
8649 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8650 /*:ref: sumai_ 4 2 4 4 */
8651 /*:ref: remlac_ 14 5 4 4 13 4 124 */
8652 /*:ref: scardc_ 14 3 4 13 124 */
8653 /*:ref: remlai_ 14 4 4 4 4 4 */
8654 /*:ref: scardi_ 14 2 4 4 */
8655 /*:ref: remlad_ 14 4 4 4 7 4 */
8656 /*:ref: scardd_ 14 2 4 7 */
8657 /*:ref: chkout_ 14 2 13 124 */
8658 
8659 extern int sydeli_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
8660 /*:ref: return_ 12 0 */
8661 /*:ref: chkin_ 14 2 13 124 */
8662 /*:ref: cardc_ 4 2 13 124 */
8663 /*:ref: cardi_ 4 1 4 */
8664 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8665 /*:ref: sumai_ 4 2 4 4 */
8666 /*:ref: remlac_ 14 5 4 4 13 4 124 */
8667 /*:ref: scardc_ 14 3 4 13 124 */
8668 /*:ref: remlai_ 14 4 4 4 4 4 */
8669 /*:ref: scardi_ 14 2 4 4 */
8670 /*:ref: chkout_ 14 2 13 124 */
8671 
8672 extern integer sydimc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len);
8673 /*:ref: return_ 12 0 */
8674 /*:ref: chkin_ 14 2 13 124 */
8675 /*:ref: cardc_ 4 2 13 124 */
8676 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8677 /*:ref: chkout_ 14 2 13 124 */
8678 
8679 extern integer sydimd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
8680 /*:ref: return_ 12 0 */
8681 /*:ref: chkin_ 14 2 13 124 */
8682 /*:ref: cardc_ 4 2 13 124 */
8683 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8684 /*:ref: chkout_ 14 2 13 124 */
8685 
8686 extern integer sydimi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
8687 /*:ref: return_ 12 0 */
8688 /*:ref: chkin_ 14 2 13 124 */
8689 /*:ref: cardc_ 4 2 13 124 */
8690 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8691 /*:ref: chkout_ 14 2 13 124 */
8692 
8693 extern int sydupc_(char *name__, char *copy, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len, ftnlen tabval_len);
8694 /*:ref: return_ 12 0 */
8695 /*:ref: chkin_ 14 2 13 124 */
8696 /*:ref: cardc_ 4 2 13 124 */
8697 /*:ref: cardi_ 4 1 4 */
8698 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8699 /*:ref: setmsg_ 14 2 13 124 */
8700 /*:ref: errch_ 14 4 13 13 124 124 */
8701 /*:ref: sigerr_ 14 2 13 124 */
8702 /*:ref: sumai_ 4 2 4 4 */
8703 /*:ref: sizec_ 4 2 13 124 */
8704 /*:ref: sizei_ 4 1 4 */
8705 /*:ref: remlac_ 14 5 4 4 13 4 124 */
8706 /*:ref: scardc_ 14 3 4 13 124 */
8707 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
8708 /*:ref: inslai_ 14 5 4 4 4 4 4 */
8709 /*:ref: scardi_ 14 2 4 4 */
8710 /*:ref: chkout_ 14 2 13 124 */
8711 
8712 extern int sydupd_(char *name__, char *copy, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len);
8713 /*:ref: return_ 12 0 */
8714 /*:ref: chkin_ 14 2 13 124 */
8715 /*:ref: cardc_ 4 2 13 124 */
8716 /*:ref: cardi_ 4 1 4 */
8717 /*:ref: cardd_ 4 1 7 */
8718 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8719 /*:ref: setmsg_ 14 2 13 124 */
8720 /*:ref: errch_ 14 4 13 13 124 124 */
8721 /*:ref: sigerr_ 14 2 13 124 */
8722 /*:ref: sumai_ 4 2 4 4 */
8723 /*:ref: sizec_ 4 2 13 124 */
8724 /*:ref: sizei_ 4 1 4 */
8725 /*:ref: sized_ 4 1 7 */
8726 /*:ref: remlad_ 14 4 4 4 7 4 */
8727 /*:ref: scardd_ 14 2 4 7 */
8728 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
8729 /*:ref: scardc_ 14 3 4 13 124 */
8730 /*:ref: inslai_ 14 5 4 4 4 4 4 */
8731 /*:ref: scardi_ 14 2 4 4 */
8732 /*:ref: chkout_ 14 2 13 124 */
8733 
8734 extern int sydupi_(char *name__, char *copy, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len);
8735 /*:ref: return_ 12 0 */
8736 /*:ref: chkin_ 14 2 13 124 */
8737 /*:ref: cardc_ 4 2 13 124 */
8738 /*:ref: cardi_ 4 1 4 */
8739 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8740 /*:ref: setmsg_ 14 2 13 124 */
8741 /*:ref: errch_ 14 4 13 13 124 124 */
8742 /*:ref: sigerr_ 14 2 13 124 */
8743 /*:ref: sumai_ 4 2 4 4 */
8744 /*:ref: sizec_ 4 2 13 124 */
8745 /*:ref: sizei_ 4 1 4 */
8746 /*:ref: remlai_ 14 4 4 4 4 4 */
8747 /*:ref: scardi_ 14 2 4 4 */
8748 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
8749 /*:ref: scardc_ 14 3 4 13 124 */
8750 /*:ref: inslai_ 14 5 4 4 4 4 4 */
8751 /*:ref: chkout_ 14 2 13 124 */
8752 
8753 extern int syenqc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len);
8754 /*:ref: return_ 12 0 */
8755 /*:ref: chkin_ 14 2 13 124 */
8756 /*:ref: cardc_ 4 2 13 124 */
8757 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8758 /*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */
8759 /*:ref: sizec_ 4 2 13 124 */
8760 /*:ref: setmsg_ 14 2 13 124 */
8761 /*:ref: errch_ 14 4 13 13 124 124 */
8762 /*:ref: sigerr_ 14 2 13 124 */
8763 /*:ref: sumai_ 4 2 4 4 */
8764 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
8765 /*:ref: scardc_ 14 3 4 13 124 */
8766 /*:ref: chkout_ 14 2 13 124 */
8767 
8768 extern int syenqd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
8769 /*:ref: return_ 12 0 */
8770 /*:ref: chkin_ 14 2 13 124 */
8771 /*:ref: cardc_ 4 2 13 124 */
8772 /*:ref: cardd_ 4 1 7 */
8773 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8774 /*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */
8775 /*:ref: sized_ 4 1 7 */
8776 /*:ref: setmsg_ 14 2 13 124 */
8777 /*:ref: errdp_ 14 3 13 7 124 */
8778 /*:ref: errch_ 14 4 13 13 124 124 */
8779 /*:ref: sigerr_ 14 2 13 124 */
8780 /*:ref: sumai_ 4 2 4 4 */
8781 /*:ref: inslad_ 14 5 7 4 4 7 4 */
8782 /*:ref: scardd_ 14 2 4 7 */
8783 /*:ref: chkout_ 14 2 13 124 */
8784 
8785 extern int syenqi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
8786 /*:ref: return_ 12 0 */
8787 /*:ref: chkin_ 14 2 13 124 */
8788 /*:ref: cardc_ 4 2 13 124 */
8789 /*:ref: cardi_ 4 1 4 */
8790 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8791 /*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */
8792 /*:ref: sizei_ 4 1 4 */
8793 /*:ref: setmsg_ 14 2 13 124 */
8794 /*:ref: errint_ 14 3 13 4 124 */
8795 /*:ref: errch_ 14 4 13 13 124 124 */
8796 /*:ref: sigerr_ 14 2 13 124 */
8797 /*:ref: sumai_ 4 2 4 4 */
8798 /*:ref: inslai_ 14 5 4 4 4 4 4 */
8799 /*:ref: scardi_ 14 2 4 4 */
8800 /*:ref: chkout_ 14 2 13 124 */
8801 
8802 extern int syfetc_(integer *nth, char *tabsym, integer *tabptr, char *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen tabval_len, ftnlen name_len);
8803 /*:ref: return_ 12 0 */
8804 /*:ref: chkin_ 14 2 13 124 */
8805 /*:ref: cardc_ 4 2 13 124 */
8806 /*:ref: chkout_ 14 2 13 124 */
8807 
8808 extern int syfetd_(integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len);
8809 /*:ref: return_ 12 0 */
8810 /*:ref: chkin_ 14 2 13 124 */
8811 /*:ref: cardc_ 4 2 13 124 */
8812 /*:ref: chkout_ 14 2 13 124 */
8813 
8814 extern int syfeti_(integer *nth, char *tabsym, integer *tabptr, integer *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len);
8815 /*:ref: return_ 12 0 */
8816 /*:ref: chkin_ 14 2 13 124 */
8817 /*:ref: cardc_ 4 2 13 124 */
8818 /*:ref: chkout_ 14 2 13 124 */
8819 
8820 extern int sygetc_(char *name__, char *tabsym, integer *tabptr, char *tabval, integer *n, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len);
8821 /*:ref: return_ 12 0 */
8822 /*:ref: chkin_ 14 2 13 124 */
8823 /*:ref: cardc_ 4 2 13 124 */
8824 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8825 /*:ref: sumai_ 4 2 4 4 */
8826 /*:ref: movec_ 14 5 13 4 13 124 124 */
8827 /*:ref: chkout_ 14 2 13 124 */
8828 
8829 extern int sygetd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, integer *n, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len);
8830 /*:ref: return_ 12 0 */
8831 /*:ref: chkin_ 14 2 13 124 */
8832 /*:ref: cardc_ 4 2 13 124 */
8833 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8834 /*:ref: sumai_ 4 2 4 4 */
8835 /*:ref: moved_ 14 3 7 4 7 */
8836 /*:ref: chkout_ 14 2 13 124 */
8837 
8838 extern int sygeti_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *n, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len);
8839 /*:ref: return_ 12 0 */
8840 /*:ref: chkin_ 14 2 13 124 */
8841 /*:ref: cardc_ 4 2 13 124 */
8842 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8843 /*:ref: sumai_ 4 2 4 4 */
8844 /*:ref: movei_ 14 3 4 4 4 */
8845 /*:ref: chkout_ 14 2 13 124 */
8846 
8847 extern int synthc_(char *name__, integer *nth, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len);
8848 /*:ref: return_ 12 0 */
8849 /*:ref: chkin_ 14 2 13 124 */
8850 /*:ref: cardc_ 4 2 13 124 */
8851 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8852 /*:ref: sumai_ 4 2 4 4 */
8853 /*:ref: chkout_ 14 2 13 124 */
8854 
8855 extern int synthd_(char *name__, integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len);
8856 /*:ref: return_ 12 0 */
8857 /*:ref: chkin_ 14 2 13 124 */
8858 /*:ref: cardc_ 4 2 13 124 */
8859 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8860 /*:ref: sumai_ 4 2 4 4 */
8861 /*:ref: chkout_ 14 2 13 124 */
8862 
8863 extern int synthi_(char *name__, integer *nth, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len);
8864 /*:ref: return_ 12 0 */
8865 /*:ref: chkin_ 14 2 13 124 */
8866 /*:ref: cardc_ 4 2 13 124 */
8867 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8868 /*:ref: sumai_ 4 2 4 4 */
8869 /*:ref: chkout_ 14 2 13 124 */
8870 
8871 extern int syordc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len);
8872 /*:ref: return_ 12 0 */
8873 /*:ref: chkin_ 14 2 13 124 */
8874 /*:ref: cardc_ 4 2 13 124 */
8875 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8876 /*:ref: sumai_ 4 2 4 4 */
8877 /*:ref: shellc_ 14 3 4 13 124 */
8878 /*:ref: chkout_ 14 2 13 124 */
8879 
8880 extern int syordd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
8881 /*:ref: return_ 12 0 */
8882 /*:ref: chkin_ 14 2 13 124 */
8883 /*:ref: cardc_ 4 2 13 124 */
8884 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8885 /*:ref: sumai_ 4 2 4 4 */
8886 /*:ref: shelld_ 14 2 4 7 */
8887 /*:ref: chkout_ 14 2 13 124 */
8888 
8889 extern int syordi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
8890 /*:ref: return_ 12 0 */
8891 /*:ref: chkin_ 14 2 13 124 */
8892 /*:ref: cardc_ 4 2 13 124 */
8893 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8894 /*:ref: sumai_ 4 2 4 4 */
8895 /*:ref: shelli_ 14 2 4 4 */
8896 /*:ref: chkout_ 14 2 13 124 */
8897 
8898 extern int sypopc_(char *name__, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len);
8899 /*:ref: return_ 12 0 */
8900 /*:ref: chkin_ 14 2 13 124 */
8901 /*:ref: cardc_ 4 2 13 124 */
8902 /*:ref: cardi_ 4 1 4 */
8903 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8904 /*:ref: sumai_ 4 2 4 4 */
8905 /*:ref: remlac_ 14 5 4 4 13 4 124 */
8906 /*:ref: scardc_ 14 3 4 13 124 */
8907 /*:ref: remlai_ 14 4 4 4 4 4 */
8908 /*:ref: scardi_ 14 2 4 4 */
8909 /*:ref: chkout_ 14 2 13 124 */
8910 
8911 extern int sypopd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len);
8912 /*:ref: return_ 12 0 */
8913 /*:ref: chkin_ 14 2 13 124 */
8914 /*:ref: cardc_ 4 2 13 124 */
8915 /*:ref: cardi_ 4 1 4 */
8916 /*:ref: cardd_ 4 1 7 */
8917 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8918 /*:ref: sumai_ 4 2 4 4 */
8919 /*:ref: remlad_ 14 4 4 4 7 4 */
8920 /*:ref: scardd_ 14 2 4 7 */
8921 /*:ref: remlac_ 14 5 4 4 13 4 124 */
8922 /*:ref: scardc_ 14 3 4 13 124 */
8923 /*:ref: remlai_ 14 4 4 4 4 4 */
8924 /*:ref: scardi_ 14 2 4 4 */
8925 /*:ref: chkout_ 14 2 13 124 */
8926 
8927 extern int sypopi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len);
8928 /*:ref: return_ 12 0 */
8929 /*:ref: chkin_ 14 2 13 124 */
8930 /*:ref: cardc_ 4 2 13 124 */
8931 /*:ref: cardi_ 4 1 4 */
8932 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
8933 /*:ref: sumai_ 4 2 4 4 */
8934 /*:ref: remlai_ 14 4 4 4 4 4 */
8935 /*:ref: scardi_ 14 2 4 4 */
8936 /*:ref: remlac_ 14 5 4 4 13 4 124 */
8937 /*:ref: scardc_ 14 3 4 13 124 */
8938 /*:ref: chkout_ 14 2 13 124 */
8939 
8940 extern int sypshc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len);
8941 /*:ref: return_ 12 0 */
8942 /*:ref: chkin_ 14 2 13 124 */
8943 /*:ref: cardc_ 4 2 13 124 */
8944 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8945 /*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */
8946 /*:ref: sizec_ 4 2 13 124 */
8947 /*:ref: setmsg_ 14 2 13 124 */
8948 /*:ref: errch_ 14 4 13 13 124 124 */
8949 /*:ref: sigerr_ 14 2 13 124 */
8950 /*:ref: sumai_ 4 2 4 4 */
8951 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
8952 /*:ref: scardc_ 14 3 4 13 124 */
8953 /*:ref: chkout_ 14 2 13 124 */
8954 
8955 extern int sypshd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
8956 /*:ref: return_ 12 0 */
8957 /*:ref: chkin_ 14 2 13 124 */
8958 /*:ref: cardc_ 4 2 13 124 */
8959 /*:ref: cardd_ 4 1 7 */
8960 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8961 /*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */
8962 /*:ref: sized_ 4 1 7 */
8963 /*:ref: setmsg_ 14 2 13 124 */
8964 /*:ref: errdp_ 14 3 13 7 124 */
8965 /*:ref: errch_ 14 4 13 13 124 124 */
8966 /*:ref: sigerr_ 14 2 13 124 */
8967 /*:ref: sumai_ 4 2 4 4 */
8968 /*:ref: inslad_ 14 5 7 4 4 7 4 */
8969 /*:ref: scardd_ 14 2 4 7 */
8970 /*:ref: chkout_ 14 2 13 124 */
8971 
8972 extern int sypshi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
8973 /*:ref: return_ 12 0 */
8974 /*:ref: chkin_ 14 2 13 124 */
8975 /*:ref: cardc_ 4 2 13 124 */
8976 /*:ref: cardi_ 4 1 4 */
8977 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8978 /*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */
8979 /*:ref: sizei_ 4 1 4 */
8980 /*:ref: setmsg_ 14 2 13 124 */
8981 /*:ref: errint_ 14 3 13 4 124 */
8982 /*:ref: errch_ 14 4 13 13 124 124 */
8983 /*:ref: sigerr_ 14 2 13 124 */
8984 /*:ref: sumai_ 4 2 4 4 */
8985 /*:ref: inslai_ 14 5 4 4 4 4 4 */
8986 /*:ref: scardi_ 14 2 4 4 */
8987 /*:ref: chkout_ 14 2 13 124 */
8988 
8989 extern int syputc_(char *name__, char *values, integer *n, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen values_len, ftnlen tabsym_len, ftnlen tabval_len);
8990 /*:ref: return_ 12 0 */
8991 /*:ref: chkin_ 14 2 13 124 */
8992 /*:ref: setmsg_ 14 2 13 124 */
8993 /*:ref: sigerr_ 14 2 13 124 */
8994 /*:ref: chkout_ 14 2 13 124 */
8995 /*:ref: cardc_ 4 2 13 124 */
8996 /*:ref: cardi_ 4 1 4 */
8997 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
8998 /*:ref: sumai_ 4 2 4 4 */
8999 /*:ref: sizec_ 4 2 13 124 */
9000 /*:ref: errch_ 14 4 13 13 124 124 */
9001 /*:ref: sizei_ 4 1 4 */
9002 /*:ref: remlac_ 14 5 4 4 13 4 124 */
9003 /*:ref: scardc_ 14 3 4 13 124 */
9004 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
9005 /*:ref: inslai_ 14 5 4 4 4 4 4 */
9006 /*:ref: scardi_ 14 2 4 4 */
9007 
9008 extern int syputd_(char *name__, doublereal *values, integer *n, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
9009 /*:ref: return_ 12 0 */
9010 /*:ref: chkin_ 14 2 13 124 */
9011 /*:ref: setmsg_ 14 2 13 124 */
9012 /*:ref: sigerr_ 14 2 13 124 */
9013 /*:ref: chkout_ 14 2 13 124 */
9014 /*:ref: cardc_ 4 2 13 124 */
9015 /*:ref: cardi_ 4 1 4 */
9016 /*:ref: cardd_ 4 1 7 */
9017 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
9018 /*:ref: sumai_ 4 2 4 4 */
9019 /*:ref: sizec_ 4 2 13 124 */
9020 /*:ref: errch_ 14 4 13 13 124 124 */
9021 /*:ref: sizei_ 4 1 4 */
9022 /*:ref: sized_ 4 1 7 */
9023 /*:ref: remlad_ 14 4 4 4 7 4 */
9024 /*:ref: scardd_ 14 2 4 7 */
9025 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
9026 /*:ref: scardc_ 14 3 4 13 124 */
9027 /*:ref: inslai_ 14 5 4 4 4 4 4 */
9028 /*:ref: scardi_ 14 2 4 4 */
9029 /*:ref: inslad_ 14 5 7 4 4 7 4 */
9030 
9031 extern int syputi_(char *name__, integer *values, integer *n, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
9032 /*:ref: return_ 12 0 */
9033 /*:ref: chkin_ 14 2 13 124 */
9034 /*:ref: setmsg_ 14 2 13 124 */
9035 /*:ref: sigerr_ 14 2 13 124 */
9036 /*:ref: chkout_ 14 2 13 124 */
9037 /*:ref: cardc_ 4 2 13 124 */
9038 /*:ref: cardi_ 4 1 4 */
9039 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
9040 /*:ref: sumai_ 4 2 4 4 */
9041 /*:ref: sizec_ 4 2 13 124 */
9042 /*:ref: errch_ 14 4 13 13 124 124 */
9043 /*:ref: sizei_ 4 1 4 */
9044 /*:ref: remlai_ 14 4 4 4 4 4 */
9045 /*:ref: scardi_ 14 2 4 4 */
9046 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
9047 /*:ref: scardc_ 14 3 4 13 124 */
9048 /*:ref: inslai_ 14 5 4 4 4 4 4 */
9049 
9050 extern int syrenc_(char *old, char *new__, char *tabsym, integer *tabptr, char *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len, ftnlen tabval_len);
9051 /*:ref: return_ 12 0 */
9052 /*:ref: chkin_ 14 2 13 124 */
9053 /*:ref: cardc_ 4 2 13 124 */
9054 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9055 /*:ref: setmsg_ 14 2 13 124 */
9056 /*:ref: errch_ 14 4 13 13 124 124 */
9057 /*:ref: sigerr_ 14 2 13 124 */
9058 /*:ref: sydelc_ 14 7 13 13 4 13 124 124 124 */
9059 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
9060 /*:ref: sumai_ 4 2 4 4 */
9061 /*:ref: swapac_ 14 6 4 4 4 4 13 124 */
9062 /*:ref: swapai_ 14 5 4 4 4 4 4 */
9063 /*:ref: chkout_ 14 2 13 124 */
9064 
9065 extern int syrend_(char *old, char *new__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len);
9066 /*:ref: return_ 12 0 */
9067 /*:ref: chkin_ 14 2 13 124 */
9068 /*:ref: cardc_ 4 2 13 124 */
9069 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9070 /*:ref: setmsg_ 14 2 13 124 */
9071 /*:ref: errch_ 14 4 13 13 124 124 */
9072 /*:ref: sigerr_ 14 2 13 124 */
9073 /*:ref: sydeld_ 14 6 13 13 4 7 124 124 */
9074 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
9075 /*:ref: sumai_ 4 2 4 4 */
9076 /*:ref: swapad_ 14 5 4 4 4 4 7 */
9077 /*:ref: swapac_ 14 6 4 4 4 4 13 124 */
9078 /*:ref: swapai_ 14 5 4 4 4 4 4 */
9079 /*:ref: chkout_ 14 2 13 124 */
9080 
9081 extern int syreni_(char *old, char *new__, char *tabsym, integer *tabptr, integer *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len);
9082 /*:ref: return_ 12 0 */
9083 /*:ref: chkin_ 14 2 13 124 */
9084 /*:ref: cardc_ 4 2 13 124 */
9085 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9086 /*:ref: setmsg_ 14 2 13 124 */
9087 /*:ref: errch_ 14 4 13 13 124 124 */
9088 /*:ref: sigerr_ 14 2 13 124 */
9089 /*:ref: sydeli_ 14 6 13 13 4 4 124 124 */
9090 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
9091 /*:ref: sumai_ 4 2 4 4 */
9092 /*:ref: swapai_ 14 5 4 4 4 4 4 */
9093 /*:ref: swapac_ 14 6 4 4 4 4 13 124 */
9094 /*:ref: chkout_ 14 2 13 124 */
9095 
9096 extern int syselc_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, char *tabval, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len);
9097 /*:ref: return_ 12 0 */
9098 /*:ref: chkin_ 14 2 13 124 */
9099 /*:ref: cardc_ 4 2 13 124 */
9100 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9101 /*:ref: sumai_ 4 2 4 4 */
9102 /*:ref: movec_ 14 5 13 4 13 124 124 */
9103 /*:ref: chkout_ 14 2 13 124 */
9104 
9105 extern int syseld_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len);
9106 /*:ref: return_ 12 0 */
9107 /*:ref: chkin_ 14 2 13 124 */
9108 /*:ref: cardc_ 4 2 13 124 */
9109 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9110 /*:ref: sumai_ 4 2 4 4 */
9111 /*:ref: moved_ 14 3 7 4 7 */
9112 /*:ref: chkout_ 14 2 13 124 */
9113 
9114 extern int syseli_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, integer *tabval, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len);
9115 /*:ref: return_ 12 0 */
9116 /*:ref: chkin_ 14 2 13 124 */
9117 /*:ref: cardc_ 4 2 13 124 */
9118 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9119 /*:ref: sumai_ 4 2 4 4 */
9120 /*:ref: movei_ 14 3 4 4 4 */
9121 /*:ref: chkout_ 14 2 13 124 */
9122 
9123 extern int sysetc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len);
9124 /*:ref: return_ 12 0 */
9125 /*:ref: chkin_ 14 2 13 124 */
9126 /*:ref: cardc_ 4 2 13 124 */
9127 /*:ref: cardi_ 4 1 4 */
9128 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
9129 /*:ref: sumai_ 4 2 4 4 */
9130 /*:ref: remlac_ 14 5 4 4 13 4 124 */
9131 /*:ref: scardc_ 14 3 4 13 124 */
9132 /*:ref: sizec_ 4 2 13 124 */
9133 /*:ref: setmsg_ 14 2 13 124 */
9134 /*:ref: errch_ 14 4 13 13 124 124 */
9135 /*:ref: sigerr_ 14 2 13 124 */
9136 /*:ref: sizei_ 4 1 4 */
9137 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
9138 /*:ref: inslai_ 14 5 4 4 4 4 4 */
9139 /*:ref: scardi_ 14 2 4 4 */
9140 /*:ref: chkout_ 14 2 13 124 */
9141 
9142 extern int sysetd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
9143 /*:ref: return_ 12 0 */
9144 /*:ref: chkin_ 14 2 13 124 */
9145 /*:ref: cardc_ 4 2 13 124 */
9146 /*:ref: cardi_ 4 1 4 */
9147 /*:ref: cardd_ 4 1 7 */
9148 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
9149 /*:ref: sumai_ 4 2 4 4 */
9150 /*:ref: remlad_ 14 4 4 4 7 4 */
9151 /*:ref: scardd_ 14 2 4 7 */
9152 /*:ref: sizec_ 4 2 13 124 */
9153 /*:ref: setmsg_ 14 2 13 124 */
9154 /*:ref: errch_ 14 4 13 13 124 124 */
9155 /*:ref: sigerr_ 14 2 13 124 */
9156 /*:ref: sizei_ 4 1 4 */
9157 /*:ref: sized_ 4 1 7 */
9158 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
9159 /*:ref: scardc_ 14 3 4 13 124 */
9160 /*:ref: inslai_ 14 5 4 4 4 4 4 */
9161 /*:ref: scardi_ 14 2 4 4 */
9162 /*:ref: inslad_ 14 5 7 4 4 7 4 */
9163 /*:ref: chkout_ 14 2 13 124 */
9164 
9165 extern int syseti_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
9166 /*:ref: return_ 12 0 */
9167 /*:ref: chkin_ 14 2 13 124 */
9168 /*:ref: cardc_ 4 2 13 124 */
9169 /*:ref: cardi_ 4 1 4 */
9170 /*:ref: lstlec_ 4 5 13 4 13 124 124 */
9171 /*:ref: sumai_ 4 2 4 4 */
9172 /*:ref: remlai_ 14 4 4 4 4 4 */
9173 /*:ref: scardi_ 14 2 4 4 */
9174 /*:ref: sizec_ 4 2 13 124 */
9175 /*:ref: setmsg_ 14 2 13 124 */
9176 /*:ref: errch_ 14 4 13 13 124 124 */
9177 /*:ref: sigerr_ 14 2 13 124 */
9178 /*:ref: sizei_ 4 1 4 */
9179 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
9180 /*:ref: scardc_ 14 3 4 13 124 */
9181 /*:ref: inslai_ 14 5 4 4 4 4 4 */
9182 /*:ref: chkout_ 14 2 13 124 */
9183 
9184 extern int sytrnc_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len);
9185 /*:ref: return_ 12 0 */
9186 /*:ref: chkin_ 14 2 13 124 */
9187 /*:ref: cardc_ 4 2 13 124 */
9188 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9189 /*:ref: sumai_ 4 2 4 4 */
9190 /*:ref: swapc_ 14 4 13 13 124 124 */
9191 /*:ref: setmsg_ 14 2 13 124 */
9192 /*:ref: errint_ 14 3 13 4 124 */
9193 /*:ref: sigerr_ 14 2 13 124 */
9194 /*:ref: chkout_ 14 2 13 124 */
9195 
9196 extern int sytrnd_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
9197 /*:ref: return_ 12 0 */
9198 /*:ref: chkin_ 14 2 13 124 */
9199 /*:ref: cardc_ 4 2 13 124 */
9200 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9201 /*:ref: sumai_ 4 2 4 4 */
9202 /*:ref: swapd_ 14 2 7 7 */
9203 /*:ref: setmsg_ 14 2 13 124 */
9204 /*:ref: errint_ 14 3 13 4 124 */
9205 /*:ref: sigerr_ 14 2 13 124 */
9206 /*:ref: chkout_ 14 2 13 124 */
9207 
9208 extern int sytrni_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
9209 /*:ref: return_ 12 0 */
9210 /*:ref: chkin_ 14 2 13 124 */
9211 /*:ref: cardc_ 4 2 13 124 */
9212 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9213 /*:ref: sumai_ 4 2 4 4 */
9214 /*:ref: swapi_ 14 2 4 4 */
9215 /*:ref: setmsg_ 14 2 13 124 */
9216 /*:ref: errint_ 14 3 13 4 124 */
9217 /*:ref: sigerr_ 14 2 13 124 */
9218 /*:ref: chkout_ 14 2 13 124 */
9219 
9220 extern int tcheck_(doublereal *tvec, char *type__, logical *mods, char *modify, logical *ok, char *error, ftnlen type_len, ftnlen modify_len, ftnlen error_len);
9221 extern int tparch_(char *type__, ftnlen type_len);
9222 extern int tchckd_(char *type__, ftnlen type_len);
9223 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
9224 /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */
9225 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
9226 /*:ref: eqstr_ 12 4 13 13 124 124 */
9227 
9228 extern int termpt_(char *method, char *ilusrc, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *trmvcs, ftnlen method_len, ftnlen ilusrc_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len);
9229 /*:ref: return_ 12 0 */
9230 /*:ref: chkin_ 14 2 13 124 */
9231 /*:ref: zzctruin_ 14 1 4 */
9232 /*:ref: zzvalcor_ 14 3 13 12 124 */
9233 /*:ref: failed_ 12 0 */
9234 /*:ref: chkout_ 14 2 13 124 */
9235 /*:ref: setmsg_ 14 2 13 124 */
9236 /*:ref: errch_ 14 4 13 13 124 124 */
9237 /*:ref: sigerr_ 14 2 13 124 */
9238 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
9239 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
9240 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
9241 /*:ref: errint_ 14 3 13 4 124 */
9242 /*:ref: zzsrftrk_ 14 2 4 12 */
9243 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
9244 /*:ref: eqstr_ 12 4 13 13 124 124 */
9245 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
9246 /*:ref: vzero_ 12 1 7 */
9247 /*:ref: zzsudski_ 14 4 4 4 4 4 */
9248 /*:ref: zzmaxrad_ 14 1 7 */
9249 /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */
9250 /*:ref: cleari_ 14 2 4 4 */
9251 /*:ref: ssized_ 14 2 4 7 */
9252 /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */
9253 /*:ref: errdp_ 14 3 13 7 124 */
9254 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
9255 /*:ref: vcrss_ 14 3 7 7 7 */
9256 /*:ref: vrotv_ 14 4 7 7 7 7 */
9257 /*:ref: scardd_ 14 2 4 7 */
9258 /*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */
9259 /*:ref: cardd_ 4 1 7 */
9260 /*:ref: zzedtmpt_ 14 8 12 7 7 7 7 7 7 7 */
9261 /*:ref: vhat_ 14 2 7 7 */
9262 /*:ref: vscl_ 14 3 7 7 7 */
9263 /*:ref: vminus_ 14 2 7 7 */
9264 /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */
9265 /*:ref: vequ_ 14 2 7 7 */
9266 /*:ref: vadd_ 14 3 7 7 7 */
9267 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
9268 /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */
9269 /*:ref: vsub_ 14 3 7 7 7 */
9270 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
9271 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
9272 /*:ref: mxv_ 14 3 7 7 7 */
9273 /*:ref: touchd_ 7 1 7 */
9274 /*:ref: vnorm_ 7 1 7 */
9275 /*:ref: clight_ 7 0 */
9276 /*:ref: mtxv_ 14 3 7 7 7 */
9277 /*:ref: stelab_ 14 3 7 7 7 */
9278 
9279 extern int texpyr_(integer *year);
9280 extern int tsetyr_(integer *year);
9281 
9282 extern int timdef_(char *action, char *item, char *value, ftnlen action_len, ftnlen item_len, ftnlen value_len);
9283 /*:ref: return_ 12 0 */
9284 /*:ref: chkin_ 14 2 13 124 */
9285 /*:ref: ljust_ 14 4 13 13 124 124 */
9286 /*:ref: ucase_ 14 4 13 13 124 124 */
9287 /*:ref: setmsg_ 14 2 13 124 */
9288 /*:ref: errch_ 14 4 13 13 124 124 */
9289 /*:ref: sigerr_ 14 2 13 124 */
9290 /*:ref: chkout_ 14 2 13 124 */
9291 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
9292 /*:ref: prefix_ 14 5 13 4 13 124 124 */
9293 /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */
9294 
9295 extern int timout_(doublereal *et, char *pictur, char *output, ftnlen pictur_len, ftnlen output_len);
9296 /*:ref: return_ 12 0 */
9297 /*:ref: chkin_ 14 2 13 124 */
9298 /*:ref: scanpr_ 14 5 4 13 4 4 124 */
9299 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9300 /*:ref: ljust_ 14 4 13 13 124 124 */
9301 /*:ref: rtrim_ 4 2 13 124 */
9302 /*:ref: scan_ 14 12 13 13 4 4 4 4 4 4 4 4 124 124 */
9303 /*:ref: timdef_ 14 6 13 13 13 124 124 124 */
9304 /*:ref: prefix_ 14 5 13 4 13 124 124 */
9305 /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */
9306 /*:ref: isrchi_ 4 3 4 4 4 */
9307 /*:ref: scanrj_ 14 6 4 4 4 4 4 4 */
9308 /*:ref: unitim_ 7 5 7 13 13 124 124 */
9309 /*:ref: spd_ 7 0 */
9310 /*:ref: j2000_ 7 0 */
9311 /*:ref: j1950_ 7 0 */
9312 /*:ref: brckti_ 4 3 4 4 4 */
9313 /*:ref: brcktd_ 7 3 7 7 7 */
9314 /*:ref: dpfmt_ 14 5 7 13 13 124 124 */
9315 /*:ref: ttrans_ 14 5 13 13 7 124 124 */
9316 /*:ref: gr2jul_ 14 4 4 4 4 4 */
9317 /*:ref: jul2gr_ 14 4 4 4 4 4 */
9318 /*:ref: rmaind_ 14 4 7 7 7 7 */
9319 /*:ref: ucase_ 14 4 13 13 124 124 */
9320 /*:ref: lcase_ 14 4 13 13 124 124 */
9321 /*:ref: chkout_ 14 2 13 124 */
9322 
9323 extern int tipbod_(char *ref, integer *body, doublereal *et, doublereal *tipm, ftnlen ref_len);
9324 /*:ref: return_ 12 0 */
9325 /*:ref: chkin_ 14 2 13 124 */
9326 /*:ref: tisbod_ 14 5 13 4 7 7 124 */
9327 /*:ref: failed_ 12 0 */
9328 /*:ref: chkout_ 14 2 13 124 */
9329 
9330 extern int tisbod_(char *ref, integer *body, doublereal *et, doublereal *tsipm, ftnlen ref_len);
9331 /*:ref: return_ 12 0 */
9332 /*:ref: chkin_ 14 2 13 124 */
9333 /*:ref: zzctruin_ 14 1 4 */
9334 /*:ref: zzhsiini_ 14 3 4 4 4 */
9335 /*:ref: irfnum_ 14 3 13 4 124 */
9336 /*:ref: spd_ 7 0 */
9337 /*:ref: pckmat_ 14 5 4 7 4 7 12 */
9338 /*:ref: zzpctrck_ 14 2 4 12 */
9339 /*:ref: zzhsichk_ 14 5 4 4 4 4 4 */
9340 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
9341 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
9342 /*:ref: ccifrm_ 14 7 4 4 4 13 4 12 124 */
9343 /*:ref: etcal_ 14 3 7 13 124 */
9344 /*:ref: setmsg_ 14 2 13 124 */
9345 /*:ref: errch_ 14 4 13 13 124 124 */
9346 /*:ref: suffix_ 14 5 13 4 13 124 124 */
9347 /*:ref: errint_ 14 3 13 4 124 */
9348 /*:ref: sigerr_ 14 2 13 124 */
9349 /*:ref: chkout_ 14 2 13 124 */
9350 /*:ref: zzbodbry_ 4 1 4 */
9351 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
9352 /*:ref: j2000_ 7 0 */
9353 /*:ref: cleard_ 14 2 4 7 */
9354 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
9355 /*:ref: failed_ 12 0 */
9356 /*:ref: bodfnd_ 12 3 4 13 124 */
9357 /*:ref: errdp_ 14 3 13 7 124 */
9358 /*:ref: zzhsiavl_ 14 2 4 4 */
9359 /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */
9360 /*:ref: moved_ 14 3 7 4 7 */
9361 /*:ref: rpd_ 7 0 */
9362 /*:ref: vdotg_ 7 3 7 7 4 */
9363 /*:ref: twopi_ 7 0 */
9364 /*:ref: halfpi_ 7 0 */
9365 /*:ref: vpack_ 14 4 7 7 7 7 */
9366 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
9367 /*:ref: irfrot_ 14 3 4 4 7 */
9368 /*:ref: mxm_ 14 3 7 7 7 */
9369 
9370 extern int tkfram_(integer *id, doublereal *rot, integer *frame, logical *found);
9371 /*:ref: lnkini_ 14 2 4 4 */
9372 /*:ref: return_ 12 0 */
9373 /*:ref: chkin_ 14 2 13 124 */
9374 /*:ref: setmsg_ 14 2 13 124 */
9375 /*:ref: sigerr_ 14 2 13 124 */
9376 /*:ref: chkout_ 14 2 13 124 */
9377 /*:ref: lnknfn_ 4 1 4 */
9378 /*:ref: lnktl_ 4 2 4 4 */
9379 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
9380 /*:ref: locati_ 14 6 4 4 4 4 4 12 */
9381 /*:ref: cvpool_ 14 3 13 12 124 */
9382 /*:ref: dwpool_ 14 2 13 124 */
9383 /*:ref: ident_ 14 1 7 */
9384 /*:ref: intstr_ 14 3 4 13 124 */
9385 /*:ref: frmnam_ 14 3 4 13 124 */
9386 /*:ref: errint_ 14 3 13 4 124 */
9387 /*:ref: rtrim_ 4 2 13 124 */
9388 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
9389 /*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */
9390 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
9391 /*:ref: namfrm_ 14 3 13 4 124 */
9392 /*:ref: errch_ 14 4 13 13 124 124 */
9393 /*:ref: ucase_ 14 4 13 13 124 124 */
9394 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
9395 /*:ref: moved_ 14 3 7 4 7 */
9396 /*:ref: sharpr_ 14 1 7 */
9397 /*:ref: vdot_ 7 2 7 7 */
9398 /*:ref: vsclip_ 14 2 7 7 */
9399 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
9400 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
9401 /*:ref: failed_ 12 0 */
9402 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
9403 /*:ref: vhatg_ 14 3 7 4 7 */
9404 /*:ref: q2m_ 14 2 7 7 */
9405 /*:ref: swpool_ 14 5 13 4 13 124 124 */
9406 
9407 extern int tkvrsn_(char *item, char *verstr, ftnlen item_len, ftnlen verstr_len);
9408 /*:ref: eqstr_ 12 4 13 13 124 124 */
9409 
9410 extern int tostdo_(char *line, ftnlen line_len);
9411 /*:ref: stdio_ 14 3 13 4 124 */
9412 /*:ref: writln_ 14 3 13 4 124 */
9413 
9414 extern H_f touchc_(char *ret_val, ftnlen ret_val_len, char *string, ftnlen string_len);
9415 
9416 extern doublereal touchd_(doublereal *dp);
9417 
9418 extern integer touchi_(integer *int__);
9419 
9420 extern logical touchl_(logical *log__);
9421 
9422 extern int tparse_(char *string, doublereal *sp2000, char *error, ftnlen string_len, ftnlen error_len);
9423 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
9424 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
9425 /*:ref: j2000_ 7 0 */
9426 /*:ref: spd_ 7 0 */
9427 /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */
9428 /*:ref: texpyr_ 14 1 4 */
9429 /*:ref: rmaini_ 14 4 4 4 4 4 */
9430 
9431 extern int tpartv_(char *string, doublereal *tvec, integer *ntvec, char *type__, char *modify, logical *mods, logical *yabbrv, logical *succes, char *pictur, char *error, ftnlen string_len, ftnlen type_len, ftnlen modify_len, ftnlen pictur_len, ftnlen error_len);
9432 /*:ref: zztpats_ 12 6 4 4 13 13 124 124 */
9433 /*:ref: zztokns_ 12 4 13 13 124 124 */
9434 /*:ref: zzcmbt_ 12 5 13 13 12 124 124 */
9435 /*:ref: zzsubt_ 12 5 13 13 12 124 124 */
9436 /*:ref: zzrept_ 12 5 13 13 12 124 124 */
9437 /*:ref: zzremt_ 12 2 13 124 */
9438 /*:ref: zzist_ 12 2 13 124 */
9439 /*:ref: zznote_ 12 4 13 4 4 124 */
9440 /*:ref: ucase_ 14 4 13 13 124 124 */
9441 /*:ref: zzunpck_ 12 11 13 12 7 4 13 13 13 124 124 124 124 */
9442 /*:ref: suffix_ 14 5 13 4 13 124 124 */
9443 /*:ref: intmax_ 4 0 */
9444 /*:ref: zzvalt_ 12 6 13 4 4 13 124 124 */
9445 /*:ref: zzgrep_ 12 2 13 124 */
9446 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9447 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
9448 /*:ref: zzispt_ 12 4 13 4 4 124 */
9449 /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */
9450 /*:ref: prefix_ 14 5 13 4 13 124 124 */
9451 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
9452 /*:ref: rtrim_ 4 2 13 124 */
9453 
9454 extern int tpictr_(char *sample, char *pictur, logical *ok, char *error, ftnlen sample_len, ftnlen pictur_len, ftnlen error_len);
9455 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
9456 
9457 extern doublereal trace_(doublereal *matrix);
9458 
9459 extern doublereal traceg_(doublereal *matrix, integer *ndim);
9460 
9461 extern int trcpkg_(integer *depth, integer *index, char *module, char *trace, char *name__, ftnlen module_len, ftnlen trace_len, ftnlen name_len);
9462 extern int chkin_(char *module, ftnlen module_len);
9463 extern int chkout_(char *module, ftnlen module_len);
9464 extern int trcdep_(integer *depth);
9465 extern int trcmxd_(integer *depth);
9466 extern int trcnam_(integer *index, char *name__, ftnlen name_len);
9467 extern int qcktrc_(char *trace, ftnlen trace_len);
9468 extern int freeze_(void);
9469 extern int trcoff_(void);
9470 /*:ref: wrline_ 14 4 13 13 124 124 */
9471 /*:ref: frstnb_ 4 2 13 124 */
9472 /*:ref: getdev_ 14 2 13 124 */
9473 /*:ref: rtrim_ 4 2 13 124 */
9474 /*:ref: getact_ 14 1 4 */
9475 /*:ref: failed_ 12 0 */
9476 /*:ref: intstr_ 14 3 4 13 124 */
9477 /*:ref: suffix_ 14 5 13 4 13 124 124 */
9478 
9479 extern int ttrans_(char *from, char *to, doublereal *tvec, ftnlen from_len, ftnlen to_len);
9480 /*:ref: return_ 12 0 */
9481 /*:ref: chkin_ 14 2 13 124 */
9482 /*:ref: spd_ 7 0 */
9483 /*:ref: j2000_ 7 0 */
9484 /*:ref: ssizec_ 14 3 4 13 124 */
9485 /*:ref: insrtc_ 14 4 13 13 124 124 */
9486 /*:ref: orderc_ 14 4 13 4 4 124 */
9487 /*:ref: reordc_ 14 4 4 4 13 124 */
9488 /*:ref: reordi_ 14 3 4 4 4 */
9489 /*:ref: reordl_ 14 3 4 4 12 */
9490 /*:ref: zzctruin_ 14 1 4 */
9491 /*:ref: swpool_ 14 5 13 4 13 124 124 */
9492 /*:ref: zzcvpool_ 14 4 13 4 12 124 */
9493 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
9494 /*:ref: setmsg_ 14 2 13 124 */
9495 /*:ref: sigerr_ 14 2 13 124 */
9496 /*:ref: chkout_ 14 2 13 124 */
9497 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
9498 /*:ref: ucase_ 14 4 13 13 124 124 */
9499 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
9500 /*:ref: errch_ 14 4 13 13 124 124 */
9501 /*:ref: rmaini_ 14 4 4 4 4 4 */
9502 /*:ref: lstlei_ 4 3 4 4 4 */
9503 /*:ref: odd_ 12 1 4 */
9504 /*:ref: rmaind_ 14 4 7 7 7 7 */
9505 /*:ref: elemc_ 12 4 13 13 124 124 */
9506 /*:ref: unitim_ 7 5 7 13 13 124 124 */
9507 /*:ref: lstled_ 4 3 7 4 7 */
9508 /*:ref: lstlti_ 4 3 4 4 4 */
9509 
9510 extern doublereal twopi_(void);
9511 
9512 extern int twovec_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *mout);
9513 /*:ref: return_ 12 0 */
9514 /*:ref: chkin_ 14 2 13 124 */
9515 /*:ref: setmsg_ 14 2 13 124 */
9516 /*:ref: errint_ 14 3 13 4 124 */
9517 /*:ref: sigerr_ 14 2 13 124 */
9518 /*:ref: chkout_ 14 2 13 124 */
9519 /*:ref: vhat_ 14 2 7 7 */
9520 /*:ref: ucrss_ 14 3 7 7 7 */
9521 /*:ref: xpose_ 14 2 7 7 */
9522 /*:ref: moved_ 14 3 7 4 7 */
9523 
9524 extern int twovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform);
9525 /*:ref: return_ 12 0 */
9526 /*:ref: chkin_ 14 2 13 124 */
9527 /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */
9528 /*:ref: invstm_ 14 2 7 7 */
9529 /*:ref: chkout_ 14 2 13 124 */
9530 
9531 extern int txtopn_(char *fname, integer *unit, ftnlen fname_len);
9532 /*:ref: return_ 12 0 */
9533 /*:ref: chkin_ 14 2 13 124 */
9534 /*:ref: setmsg_ 14 2 13 124 */
9535 /*:ref: sigerr_ 14 2 13 124 */
9536 /*:ref: chkout_ 14 2 13 124 */
9537 /*:ref: getlun_ 14 1 4 */
9538 /*:ref: errch_ 14 4 13 13 124 124 */
9539 /*:ref: errint_ 14 3 13 4 124 */
9540 
9541 extern int txtopr_(char *fname, integer *unit, ftnlen fname_len);
9542 /*:ref: return_ 12 0 */
9543 /*:ref: chkin_ 14 2 13 124 */
9544 /*:ref: setmsg_ 14 2 13 124 */
9545 /*:ref: sigerr_ 14 2 13 124 */
9546 /*:ref: chkout_ 14 2 13 124 */
9547 /*:ref: getlun_ 14 1 4 */
9548 /*:ref: errch_ 14 4 13 13 124 124 */
9549 /*:ref: errint_ 14 3 13 4 124 */
9550 
9551 extern doublereal tyear_(void);
9552 
9553 extern int ucase_(char *in, char *out, ftnlen in_len, ftnlen out_len);
9554 
9555 extern int ucrss_(doublereal *v1, doublereal *v2, doublereal *vout);
9556 /*:ref: vnorm_ 7 1 7 */
9557 
9558 extern int uddc_(U_fp udfunc, doublereal *x, doublereal *dx, logical *isdecr);
9559 /*:ref: return_ 12 0 */
9560 /*:ref: chkin_ 14 2 13 124 */
9561 /*:ref: uddf_ 14 4 200 7 7 7 */
9562 /*:ref: failed_ 12 0 */
9563 /*:ref: chkout_ 14 2 13 124 */
9564 
9565 extern int uddf_(S_fp udfunc, doublereal *x, doublereal *dx, doublereal *deriv);
9566 /*:ref: return_ 12 0 */
9567 /*:ref: chkin_ 14 2 13 124 */
9568 /*:ref: failed_ 12 0 */
9569 /*:ref: chkout_ 14 2 13 124 */
9570 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
9571 
9572 extern int udf_(doublereal *x, doublereal *value);
9573 
9574 extern int unionc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len);
9575 /*:ref: return_ 12 0 */
9576 /*:ref: chkin_ 14 2 13 124 */
9577 /*:ref: setmsg_ 14 2 13 124 */
9578 /*:ref: errint_ 14 3 13 4 124 */
9579 /*:ref: sigerr_ 14 2 13 124 */
9580 /*:ref: chkout_ 14 2 13 124 */
9581 /*:ref: cardc_ 4 2 13 124 */
9582 /*:ref: sizec_ 4 2 13 124 */
9583 /*:ref: scardc_ 14 3 4 13 124 */
9584 /*:ref: excess_ 14 3 4 13 124 */
9585 
9586 extern int uniond_(doublereal *a, doublereal *b, doublereal *c__);
9587 /*:ref: return_ 12 0 */
9588 /*:ref: chkin_ 14 2 13 124 */
9589 /*:ref: cardd_ 4 1 7 */
9590 /*:ref: sized_ 4 1 7 */
9591 /*:ref: scardd_ 14 2 4 7 */
9592 /*:ref: excess_ 14 3 4 13 124 */
9593 /*:ref: sigerr_ 14 2 13 124 */
9594 /*:ref: chkout_ 14 2 13 124 */
9595 
9596 extern int unioni_(integer *a, integer *b, integer *c__);
9597 /*:ref: return_ 12 0 */
9598 /*:ref: chkin_ 14 2 13 124 */
9599 /*:ref: cardi_ 4 1 4 */
9600 /*:ref: sizei_ 4 1 4 */
9601 /*:ref: scardi_ 14 2 4 4 */
9602 /*:ref: excess_ 14 3 4 13 124 */
9603 /*:ref: sigerr_ 14 2 13 124 */
9604 /*:ref: chkout_ 14 2 13 124 */
9605 
9606 extern doublereal unitim_(doublereal *epoch, char *insys, char *outsys, ftnlen insys_len, ftnlen outsys_len);
9607 /*:ref: return_ 12 0 */
9608 /*:ref: chkin_ 14 2 13 124 */
9609 /*:ref: spd_ 7 0 */
9610 /*:ref: j2000_ 7 0 */
9611 /*:ref: validc_ 14 4 4 4 13 124 */
9612 /*:ref: ssizec_ 14 3 4 13 124 */
9613 /*:ref: unionc_ 14 6 13 13 13 124 124 124 */
9614 /*:ref: zzctruin_ 14 1 4 */
9615 /*:ref: swpool_ 14 5 13 4 13 124 124 */
9616 /*:ref: zzcvpool_ 14 4 13 4 12 124 */
9617 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
9618 /*:ref: failed_ 12 0 */
9619 /*:ref: chkout_ 14 2 13 124 */
9620 /*:ref: somfls_ 12 2 12 4 */
9621 /*:ref: setmsg_ 14 2 13 124 */
9622 /*:ref: errch_ 14 4 13 13 124 124 */
9623 /*:ref: sigerr_ 14 2 13 124 */
9624 /*:ref: ucase_ 14 4 13 13 124 124 */
9625 /*:ref: insrtc_ 14 4 13 13 124 124 */
9626 /*:ref: setc_ 12 6 13 13 13 124 124 124 */
9627 /*:ref: elemc_ 12 4 13 13 124 124 */
9628 
9629 extern int unorm_(doublereal *v1, doublereal *vout, doublereal *vmag);
9630 /*:ref: vnorm_ 7 1 7 */
9631 
9632 extern int unormg_(doublereal *v1, integer *ndim, doublereal *vout, doublereal *vmag);
9633 /*:ref: vnormg_ 7 2 7 4 */
9634 
9635 extern int utc2et_(char *utcstr, doublereal *et, ftnlen utcstr_len);
9636 /*:ref: return_ 12 0 */
9637 /*:ref: chkin_ 14 2 13 124 */
9638 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
9639 /*:ref: setmsg_ 14 2 13 124 */
9640 /*:ref: sigerr_ 14 2 13 124 */
9641 /*:ref: chkout_ 14 2 13 124 */
9642 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
9643 /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */
9644 /*:ref: texpyr_ 14 1 4 */
9645 /*:ref: ttrans_ 14 5 13 13 7 124 124 */
9646 /*:ref: errch_ 14 4 13 13 124 124 */
9647 
9648 extern int vadd_(doublereal *v1, doublereal *v2, doublereal *vout);
9649 
9650 extern int vaddg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout);
9651 
9652 extern int validc_(integer *size, integer *n, char *a, ftnlen a_len);
9653 /*:ref: return_ 12 0 */
9654 /*:ref: chkin_ 14 2 13 124 */
9655 /*:ref: setmsg_ 14 2 13 124 */
9656 /*:ref: errint_ 14 3 13 4 124 */
9657 /*:ref: sigerr_ 14 2 13 124 */
9658 /*:ref: chkout_ 14 2 13 124 */
9659 /*:ref: rmdupc_ 14 3 4 13 124 */
9660 /*:ref: ssizec_ 14 3 4 13 124 */
9661 /*:ref: scardc_ 14 3 4 13 124 */
9662 
9663 extern int validd_(integer *size, integer *n, doublereal *a);
9664 /*:ref: return_ 12 0 */
9665 /*:ref: chkin_ 14 2 13 124 */
9666 /*:ref: setmsg_ 14 2 13 124 */
9667 /*:ref: errint_ 14 3 13 4 124 */
9668 /*:ref: sigerr_ 14 2 13 124 */
9669 /*:ref: chkout_ 14 2 13 124 */
9670 /*:ref: rmdupd_ 14 2 4 7 */
9671 /*:ref: ssized_ 14 2 4 7 */
9672 /*:ref: scardd_ 14 2 4 7 */
9673 
9674 extern int validi_(integer *size, integer *n, integer *a);
9675 /*:ref: return_ 12 0 */
9676 /*:ref: chkin_ 14 2 13 124 */
9677 /*:ref: setmsg_ 14 2 13 124 */
9678 /*:ref: errint_ 14 3 13 4 124 */
9679 /*:ref: sigerr_ 14 2 13 124 */
9680 /*:ref: chkout_ 14 2 13 124 */
9681 /*:ref: rmdupi_ 14 2 4 4 */
9682 /*:ref: ssizei_ 14 2 4 4 */
9683 /*:ref: scardi_ 14 2 4 4 */
9684 
9685 extern int vcrss_(doublereal *v1, doublereal *v2, doublereal *vout);
9686 
9687 extern doublereal vdist_(doublereal *v1, doublereal *v2);
9688 /*:ref: vsub_ 14 3 7 7 7 */
9689 /*:ref: vnorm_ 7 1 7 */
9690 
9691 extern doublereal vdistg_(doublereal *v1, doublereal *v2, integer *ndim);
9692 
9693 extern doublereal vdot_(doublereal *v1, doublereal *v2);
9694 
9695 extern doublereal vdotg_(doublereal *v1, doublereal *v2, integer *ndim);
9696 
9697 extern int vequ_(doublereal *vin, doublereal *vout);
9698 
9699 extern int vequg_(doublereal *vin, integer *ndim, doublereal *vout);
9700 
9701 extern int vhat_(doublereal *v1, doublereal *vout);
9702 /*:ref: vnorm_ 7 1 7 */
9703 
9704 extern int vhatg_(doublereal *v1, integer *ndim, doublereal *vout);
9705 /*:ref: vnormg_ 7 2 7 4 */
9706 
9707 extern int vhatip_(doublereal *v);
9708 /*:ref: vnorm_ 7 1 7 */
9709 
9710 extern int vlcom_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum);
9711 
9712 extern int vlcom3_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *c__, doublereal *v3, doublereal *sum);
9713 
9714 extern int vlcomg_(integer *n, doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum);
9715 
9716 extern int vminug_(doublereal *vin, integer *ndim, doublereal *vout);
9717 
9718 extern int vminus_(doublereal *v1, doublereal *vout);
9719 
9720 extern doublereal vnorm_(doublereal *v1);
9721 
9722 extern doublereal vnormg_(doublereal *v1, integer *ndim);
9723 
9724 extern int vpack_(doublereal *x, doublereal *y, doublereal *z__, doublereal *v);
9725 
9726 extern int vperp_(doublereal *a, doublereal *b, doublereal *p);
9727 /*:ref: vproj_ 14 3 7 7 7 */
9728 /*:ref: vsub_ 14 3 7 7 7 */
9729 /*:ref: vsclip_ 14 2 7 7 */
9730 
9731 extern int vprjp_(doublereal *vin, doublereal *plane, doublereal *vout);
9732 /*:ref: return_ 12 0 */
9733 /*:ref: chkin_ 14 2 13 124 */
9734 /*:ref: pl2nvc_ 14 3 7 7 7 */
9735 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
9736 /*:ref: vdot_ 7 2 7 7 */
9737 /*:ref: chkout_ 14 2 13 124 */
9738 
9739 extern int vprjpi_(doublereal *vin, doublereal *projpl, doublereal *invpl, doublereal *vout, logical *found);
9740 /*:ref: return_ 12 0 */
9741 /*:ref: chkin_ 14 2 13 124 */
9742 /*:ref: pl2nvc_ 14 3 7 7 7 */
9743 /*:ref: vdot_ 7 2 7 7 */
9744 /*:ref: dpmax_ 7 0 */
9745 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
9746 /*:ref: chkout_ 14 2 13 124 */
9747 
9748 extern int vproj_(doublereal *a, doublereal *b, doublereal *p);
9749 /*:ref: vdot_ 7 2 7 7 */
9750 /*:ref: vscl_ 14 3 7 7 7 */
9751 
9752 extern int vprojg_(doublereal *a, doublereal *b, integer *ndim, doublereal *p);
9753 /*:ref: vdotg_ 7 3 7 7 4 */
9754 /*:ref: vsclg_ 14 4 7 7 4 7 */
9755 
9756 extern doublereal vrel_(doublereal *v1, doublereal *v2);
9757 /*:ref: vdist_ 7 2 7 7 */
9758 /*:ref: vnorm_ 7 1 7 */
9759 
9760 extern doublereal vrelg_(doublereal *v1, doublereal *v2, integer *ndim);
9761 /*:ref: vdistg_ 7 3 7 7 4 */
9762 /*:ref: vnormg_ 7 2 7 4 */
9763 
9764 extern int vrotv_(doublereal *v, doublereal *axis, doublereal *theta, doublereal *r__);
9765 /*:ref: vnorm_ 7 1 7 */
9766 /*:ref: moved_ 14 3 7 4 7 */
9767 /*:ref: vhat_ 14 2 7 7 */
9768 /*:ref: vproj_ 14 3 7 7 7 */
9769 /*:ref: vsub_ 14 3 7 7 7 */
9770 /*:ref: vcrss_ 14 3 7 7 7 */
9771 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
9772 /*:ref: vadd_ 14 3 7 7 7 */
9773 
9774 extern int vscl_(doublereal *s, doublereal *v1, doublereal *vout);
9775 
9776 extern int vsclg_(doublereal *s, doublereal *v1, integer *ndim, doublereal *vout);
9777 
9778 extern int vsclip_(doublereal *s, doublereal *v);
9779 
9780 extern doublereal vsep_(doublereal *v1, doublereal *v2);
9781 /*:ref: unorm_ 14 3 7 7 7 */
9782 /*:ref: vdot_ 7 2 7 7 */
9783 /*:ref: vnorm_ 7 1 7 */
9784 /*:ref: pi_ 7 0 */
9785 
9786 extern doublereal vsepg_(doublereal *v1, doublereal *v2, integer *ndim);
9787 /*:ref: vnormg_ 7 2 7 4 */
9788 /*:ref: vdotg_ 7 3 7 7 4 */
9789 /*:ref: pi_ 7 0 */
9790 
9791 extern int vsub_(doublereal *v1, doublereal *v2, doublereal *vout);
9792 
9793 extern int vsubg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout);
9794 
9795 extern doublereal vtmv_(doublereal *v1, doublereal *matrix, doublereal *v2);
9796 
9797 extern doublereal vtmvg_(doublereal *v1, doublereal *matrix, doublereal *v2, integer *nrow, integer *ncol);
9798 
9799 extern int vupack_(doublereal *v, doublereal *x, doublereal *y, doublereal *z__);
9800 
9801 extern logical vzero_(doublereal *v);
9802 
9803 extern logical vzerog_(doublereal *v, integer *ndim);
9804 
9805 extern integer wdcnt_(char *string, ftnlen string_len);
9806 
9807 extern integer wdindx_(char *string, char *word, ftnlen string_len, ftnlen word_len);
9808 /*:ref: lastnb_ 4 2 13 124 */
9809 /*:ref: frstnb_ 4 2 13 124 */
9810 
9811 extern integer wncard_(doublereal *window);
9812 /*:ref: return_ 12 0 */
9813 /*:ref: chkin_ 14 2 13 124 */
9814 /*:ref: cardd_ 4 1 7 */
9815 /*:ref: even_ 12 1 4 */
9816 /*:ref: setmsg_ 14 2 13 124 */
9817 /*:ref: errint_ 14 3 13 4 124 */
9818 /*:ref: sigerr_ 14 2 13 124 */
9819 /*:ref: chkout_ 14 2 13 124 */
9820 
9821 extern int wncomd_(doublereal *left, doublereal *right, doublereal *window, doublereal *result);
9822 /*:ref: return_ 12 0 */
9823 /*:ref: chkin_ 14 2 13 124 */
9824 /*:ref: cardd_ 4 1 7 */
9825 /*:ref: scardd_ 14 2 4 7 */
9826 /*:ref: setmsg_ 14 2 13 124 */
9827 /*:ref: sigerr_ 14 2 13 124 */
9828 /*:ref: chkout_ 14 2 13 124 */
9829 /*:ref: wninsd_ 14 3 7 7 7 */
9830 /*:ref: failed_ 12 0 */
9831 
9832 extern int wncond_(doublereal *left, doublereal *right, doublereal *window);
9833 /*:ref: return_ 12 0 */
9834 /*:ref: chkin_ 14 2 13 124 */
9835 /*:ref: wnexpd_ 14 3 7 7 7 */
9836 /*:ref: chkout_ 14 2 13 124 */
9837 
9838 extern int wndifd_(doublereal *a, doublereal *b, doublereal *c__);
9839 /*:ref: return_ 12 0 */
9840 /*:ref: chkin_ 14 2 13 124 */
9841 /*:ref: cardd_ 4 1 7 */
9842 /*:ref: sized_ 4 1 7 */
9843 /*:ref: ssized_ 14 2 4 7 */
9844 /*:ref: copyd_ 14 2 7 7 */
9845 /*:ref: chkout_ 14 2 13 124 */
9846 /*:ref: scardd_ 14 2 4 7 */
9847 /*:ref: setmsg_ 14 2 13 124 */
9848 /*:ref: errint_ 14 3 13 4 124 */
9849 /*:ref: sigerr_ 14 2 13 124 */
9850 
9851 extern logical wnelmd_(doublereal *point, doublereal *window);
9852 /*:ref: return_ 12 0 */
9853 /*:ref: chkin_ 14 2 13 124 */
9854 /*:ref: cardd_ 4 1 7 */
9855 /*:ref: chkout_ 14 2 13 124 */
9856 
9857 extern int wnexpd_(doublereal *left, doublereal *right, doublereal *window);
9858 /*:ref: return_ 12 0 */
9859 /*:ref: chkin_ 14 2 13 124 */
9860 /*:ref: cardd_ 4 1 7 */
9861 /*:ref: scardd_ 14 2 4 7 */
9862 /*:ref: chkout_ 14 2 13 124 */
9863 
9864 extern int wnextd_(char *side, doublereal *window, ftnlen side_len);
9865 /*:ref: return_ 12 0 */
9866 /*:ref: chkin_ 14 2 13 124 */
9867 /*:ref: cardd_ 4 1 7 */
9868 /*:ref: setmsg_ 14 2 13 124 */
9869 /*:ref: errch_ 14 4 13 13 124 124 */
9870 /*:ref: sigerr_ 14 2 13 124 */
9871 /*:ref: chkout_ 14 2 13 124 */
9872 
9873 extern int wnfetd_(doublereal *window, integer *n, doublereal *left, doublereal *right);
9874 /*:ref: return_ 12 0 */
9875 /*:ref: chkin_ 14 2 13 124 */
9876 /*:ref: cardd_ 4 1 7 */
9877 /*:ref: setmsg_ 14 2 13 124 */
9878 /*:ref: sigerr_ 14 2 13 124 */
9879 /*:ref: chkout_ 14 2 13 124 */
9880 
9881 extern int wnfild_(doublereal *small, doublereal *window);
9882 /*:ref: return_ 12 0 */
9883 /*:ref: chkin_ 14 2 13 124 */
9884 /*:ref: cardd_ 4 1 7 */
9885 /*:ref: scardd_ 14 2 4 7 */
9886 /*:ref: chkout_ 14 2 13 124 */
9887 
9888 extern int wnfltd_(doublereal *small, doublereal *window);
9889 /*:ref: return_ 12 0 */
9890 /*:ref: chkin_ 14 2 13 124 */
9891 /*:ref: cardd_ 4 1 7 */
9892 /*:ref: scardd_ 14 2 4 7 */
9893 /*:ref: chkout_ 14 2 13 124 */
9894 
9895 extern logical wnincd_(doublereal *left, doublereal *right, doublereal *window);
9896 /*:ref: return_ 12 0 */
9897 /*:ref: chkin_ 14 2 13 124 */
9898 /*:ref: cardd_ 4 1 7 */
9899 /*:ref: chkout_ 14 2 13 124 */
9900 
9901 extern int wninsd_(doublereal *left, doublereal *right, doublereal *window);
9902 /*:ref: return_ 12 0 */
9903 /*:ref: chkin_ 14 2 13 124 */
9904 /*:ref: sized_ 4 1 7 */
9905 /*:ref: cardd_ 4 1 7 */
9906 /*:ref: setmsg_ 14 2 13 124 */
9907 /*:ref: errdp_ 14 3 13 7 124 */
9908 /*:ref: sigerr_ 14 2 13 124 */
9909 /*:ref: chkout_ 14 2 13 124 */
9910 /*:ref: scardd_ 14 2 4 7 */
9911 /*:ref: excess_ 14 3 4 13 124 */
9912 
9913 extern int wnintd_(doublereal *a, doublereal *b, doublereal *c__);
9914 /*:ref: return_ 12 0 */
9915 /*:ref: chkin_ 14 2 13 124 */
9916 /*:ref: cardd_ 4 1 7 */
9917 /*:ref: sized_ 4 1 7 */
9918 /*:ref: scardd_ 14 2 4 7 */
9919 /*:ref: excess_ 14 3 4 13 124 */
9920 /*:ref: sigerr_ 14 2 13 124 */
9921 /*:ref: chkout_ 14 2 13 124 */
9922 
9923 extern logical wnreld_(doublereal *a, char *op, doublereal *b, ftnlen op_len);
9924 /*:ref: return_ 12 0 */
9925 /*:ref: chkin_ 14 2 13 124 */
9926 /*:ref: cardd_ 4 1 7 */
9927 /*:ref: wnincd_ 12 3 7 7 7 */
9928 /*:ref: setmsg_ 14 2 13 124 */
9929 /*:ref: errch_ 14 4 13 13 124 124 */
9930 /*:ref: sigerr_ 14 2 13 124 */
9931 /*:ref: chkout_ 14 2 13 124 */
9932 
9933 extern int wnsumd_(doublereal *window, doublereal *meas, doublereal *avg, doublereal *stddev, integer *short__, integer *long__);
9934 /*:ref: return_ 12 0 */
9935 /*:ref: cardd_ 4 1 7 */
9936 /*:ref: even_ 12 1 4 */
9937 /*:ref: chkin_ 14 2 13 124 */
9938 /*:ref: setmsg_ 14 2 13 124 */
9939 /*:ref: sigerr_ 14 2 13 124 */
9940 /*:ref: chkout_ 14 2 13 124 */
9941 
9942 extern int wnunid_(doublereal *a, doublereal *b, doublereal *c__);
9943 /*:ref: return_ 12 0 */
9944 /*:ref: chkin_ 14 2 13 124 */
9945 /*:ref: cardd_ 4 1 7 */
9946 /*:ref: sized_ 4 1 7 */
9947 /*:ref: scardd_ 14 2 4 7 */
9948 /*:ref: excess_ 14 3 4 13 124 */
9949 /*:ref: sigerr_ 14 2 13 124 */
9950 /*:ref: chkout_ 14 2 13 124 */
9951 
9952 extern int wnvald_(integer *size, integer *n, doublereal *a);
9953 /*:ref: return_ 12 0 */
9954 /*:ref: chkin_ 14 2 13 124 */
9955 /*:ref: odd_ 12 1 4 */
9956 /*:ref: setmsg_ 14 2 13 124 */
9957 /*:ref: sigerr_ 14 2 13 124 */
9958 /*:ref: chkout_ 14 2 13 124 */
9959 /*:ref: ssized_ 14 2 4 7 */
9960 /*:ref: scardd_ 14 2 4 7 */
9961 /*:ref: wninsd_ 14 3 7 7 7 */
9962 
9963 extern int wrencc_(integer *unit, integer *n, char *data, ftnlen data_len);
9964 /*:ref: return_ 12 0 */
9965 /*:ref: chkin_ 14 2 13 124 */
9966 /*:ref: setmsg_ 14 2 13 124 */
9967 /*:ref: errint_ 14 3 13 4 124 */
9968 /*:ref: sigerr_ 14 2 13 124 */
9969 /*:ref: chkout_ 14 2 13 124 */
9970 
9971 extern int wrencd_(integer *unit, integer *n, doublereal *data);
9972 /*:ref: return_ 12 0 */
9973 /*:ref: chkin_ 14 2 13 124 */
9974 /*:ref: setmsg_ 14 2 13 124 */
9975 /*:ref: errint_ 14 3 13 4 124 */
9976 /*:ref: sigerr_ 14 2 13 124 */
9977 /*:ref: chkout_ 14 2 13 124 */
9978 /*:ref: dp2hx_ 14 4 7 13 4 124 */
9979 
9980 extern int wrenci_(integer *unit, integer *n, integer *data);
9981 /*:ref: return_ 12 0 */
9982 /*:ref: chkin_ 14 2 13 124 */
9983 /*:ref: setmsg_ 14 2 13 124 */
9984 /*:ref: errint_ 14 3 13 4 124 */
9985 /*:ref: sigerr_ 14 2 13 124 */
9986 /*:ref: chkout_ 14 2 13 124 */
9987 /*:ref: int2hx_ 14 4 4 13 4 124 */
9988 
9989 extern int writla_(integer *numlin, char *array, integer *unit, ftnlen array_len);
9990 /*:ref: return_ 12 0 */
9991 /*:ref: chkin_ 14 2 13 124 */
9992 /*:ref: setmsg_ 14 2 13 124 */
9993 /*:ref: errint_ 14 3 13 4 124 */
9994 /*:ref: sigerr_ 14 2 13 124 */
9995 /*:ref: chkout_ 14 2 13 124 */
9996 /*:ref: writln_ 14 3 13 4 124 */
9997 /*:ref: failed_ 12 0 */
9998 
9999 extern int writln_(char *line, integer *unit, ftnlen line_len);
10000 /*:ref: rtrim_ 4 2 13 124 */
10001 /*:ref: chkin_ 14 2 13 124 */
10002 /*:ref: setmsg_ 14 2 13 124 */
10003 /*:ref: errfnm_ 14 3 13 4 124 */
10004 /*:ref: errint_ 14 3 13 4 124 */
10005 /*:ref: sigerr_ 14 2 13 124 */
10006 /*:ref: chkout_ 14 2 13 124 */
10007 
10008 extern int wrkvar_(integer *unit, char *name__, char *dirctv, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen dirctv_len, ftnlen tabsym_len);
10009 /*:ref: return_ 12 0 */
10010 /*:ref: chkin_ 14 2 13 124 */
10011 /*:ref: sydimd_ 4 6 13 13 4 7 124 124 */
10012 /*:ref: synthd_ 14 9 13 4 13 4 7 7 12 124 124 */
10013 /*:ref: ljust_ 14 4 13 13 124 124 */
10014 /*:ref: rjust_ 14 4 13 13 124 124 */
10015 /*:ref: ioerr_ 14 5 13 13 4 124 124 */
10016 /*:ref: sigerr_ 14 2 13 124 */
10017 /*:ref: chkout_ 14 2 13 124 */
10018 
10019 extern int wrline_(char *device, char *line, ftnlen device_len, ftnlen line_len);
10020 extern int clline_(char *device, ftnlen device_len);
10021 /*:ref: ljust_ 14 4 13 13 124 124 */
10022 /*:ref: ucase_ 14 4 13 13 124 124 */
10023 /*:ref: rtrim_ 4 2 13 124 */
10024 /*:ref: ltrim_ 4 2 13 124 */
10025 /*:ref: fndlun_ 14 1 4 */
10026 /*:ref: suffix_ 14 5 13 4 13 124 124 */
10027 /*:ref: intstr_ 14 3 4 13 124 */
10028 
10029 extern int xdda_(doublereal *vertex, doublereal *raydir, integer *grdext, integer *maxnvx, integer *nvx, integer *voxlst);
10030 /*:ref: return_ 12 0 */
10031 /*:ref: vzero_ 12 1 7 */
10032 /*:ref: chkin_ 14 2 13 124 */
10033 /*:ref: setmsg_ 14 2 13 124 */
10034 /*:ref: sigerr_ 14 2 13 124 */
10035 /*:ref: chkout_ 14 2 13 124 */
10036 /*:ref: errint_ 14 3 13 4 124 */
10037 /*:ref: errdp_ 14 3 13 7 124 */
10038 /*:ref: brckti_ 4 3 4 4 4 */
10039 /*:ref: brcktd_ 7 3 7 7 7 */
10040 /*:ref: dpmax_ 7 0 */
10041 /*:ref: zzingrd_ 12 2 4 4 */
10042 
10043 extern int xf2eul_(doublereal *xform, integer *axisa, integer *axisb, integer *axisc, doublereal *eulang, logical *unique);
10044 extern int eul2xf_(doublereal *eulang, integer *axisa, integer *axisb, integer *axisc, doublereal *xform);
10045 /*:ref: return_ 12 0 */
10046 /*:ref: chkin_ 14 2 13 124 */
10047 /*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */
10048 /*:ref: failed_ 12 0 */
10049 /*:ref: chkout_ 14 2 13 124 */
10050 /*:ref: mxmt_ 14 3 7 7 7 */
10051 /*:ref: mxv_ 14 3 7 7 7 */
10052 /*:ref: moved_ 14 3 7 4 7 */
10053 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
10054 /*:ref: mxm_ 14 3 7 7 7 */
10055 
10056 extern int xf2rav_(doublereal *xform, doublereal *rot, doublereal *av);
10057 /*:ref: mtxm_ 14 3 7 7 7 */
10058 
10059 extern int xfmsta_(doublereal *istate, char *icosys, char *ocosys, char *body, doublereal *ostate, ftnlen icosys_len, ftnlen ocosys_len, ftnlen body_len);
10060 /*:ref: return_ 12 0 */
10061 /*:ref: chkin_ 14 2 13 124 */
10062 /*:ref: zzctruin_ 14 1 4 */
10063 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
10064 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10065 /*:ref: setmsg_ 14 2 13 124 */
10066 /*:ref: errch_ 14 4 13 13 124 124 */
10067 /*:ref: sigerr_ 14 2 13 124 */
10068 /*:ref: chkout_ 14 2 13 124 */
10069 /*:ref: vequg_ 14 3 7 4 7 */
10070 /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */
10071 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
10072 /*:ref: failed_ 12 0 */
10073 /*:ref: errdp_ 14 3 13 7 124 */
10074 /*:ref: dpmax_ 7 0 */
10075 /*:ref: cylrec_ 14 4 7 7 7 7 */
10076 /*:ref: drdcyl_ 14 4 7 7 7 7 */
10077 /*:ref: latrec_ 14 4 7 7 7 7 */
10078 /*:ref: drdlat_ 14 4 7 7 7 7 */
10079 /*:ref: sphrec_ 14 4 7 7 7 7 */
10080 /*:ref: drdsph_ 14 4 7 7 7 7 */
10081 /*:ref: georec_ 14 6 7 7 7 7 7 7 */
10082 /*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */
10083 /*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */
10084 /*:ref: drdpgr_ 14 8 13 7 7 7 7 7 7 124 */
10085 /*:ref: mxv_ 14 3 7 7 7 */
10086 /*:ref: vequ_ 14 2 7 7 */
10087 /*:ref: vpack_ 14 4 7 7 7 7 */
10088 /*:ref: reccyl_ 14 4 7 7 7 7 */
10089 /*:ref: reclat_ 14 4 7 7 7 7 */
10090 /*:ref: recsph_ 14 4 7 7 7 7 */
10091 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
10092 /*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */
10093 /*:ref: dcyldr_ 14 4 7 7 7 7 */
10094 /*:ref: dlatdr_ 14 4 7 7 7 7 */
10095 /*:ref: dsphdr_ 14 4 7 7 7 7 */
10096 /*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */
10097 /*:ref: dpgrdr_ 14 8 13 7 7 7 7 7 7 124 */
10098 
10099 extern int xposbl_(doublereal *bmat, integer *nrow, integer *ncol, integer *bsize, doublereal *btmat);
10100 /*:ref: chkin_ 14 2 13 124 */
10101 /*:ref: setmsg_ 14 2 13 124 */
10102 /*:ref: errint_ 14 3 13 4 124 */
10103 /*:ref: sigerr_ 14 2 13 124 */
10104 /*:ref: chkout_ 14 2 13 124 */
10105 
10106 extern int xpose_(doublereal *m1, doublereal *mout);
10107 
10108 extern int xposeg_(doublereal *matrix, integer *nrow, integer *ncol, doublereal *xposem);
10109 
10110 extern int xpsgip_(integer *nrow, integer *ncol, doublereal *matrix);
10111 
10112 extern int zzaddlnk_(integer *aval, integer *bval, integer *maxa, integer *cellsz, integer *pntrs, integer *ncell, integer *cells);
10113 /*:ref: return_ 12 0 */
10114 /*:ref: chkin_ 14 2 13 124 */
10115 /*:ref: setmsg_ 14 2 13 124 */
10116 /*:ref: errint_ 14 3 13 4 124 */
10117 /*:ref: sigerr_ 14 2 13 124 */
10118 /*:ref: chkout_ 14 2 13 124 */
10119 
10120 extern int zzascii_(char *file, char *line, logical *check, char *termin, ftnlen file_len, ftnlen line_len, ftnlen termin_len);
10121 /*:ref: return_ 12 0 */
10122 /*:ref: chkin_ 14 2 13 124 */
10123 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
10124 /*:ref: eqstr_ 12 4 13 13 124 124 */
10125 /*:ref: chkout_ 14 2 13 124 */
10126 /*:ref: setmsg_ 14 2 13 124 */
10127 /*:ref: sigerr_ 14 2 13 124 */
10128 /*:ref: getlun_ 14 1 4 */
10129 /*:ref: rtrim_ 4 2 13 124 */
10130 /*:ref: errch_ 14 4 13 13 124 124 */
10131 /*:ref: errint_ 14 3 13 4 124 */
10132 
10133 extern int zzasryel_(char *extrem, doublereal *ellips, doublereal *vertex, doublereal *dir, doublereal *angle, doublereal *extpt, ftnlen extrem_len);
10134 /*:ref: return_ 12 0 */
10135 /*:ref: chkin_ 14 2 13 124 */
10136 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
10137 /*:ref: ljust_ 14 4 13 13 124 124 */
10138 /*:ref: setmsg_ 14 2 13 124 */
10139 /*:ref: errch_ 14 4 13 13 124 124 */
10140 /*:ref: sigerr_ 14 2 13 124 */
10141 /*:ref: chkout_ 14 2 13 124 */
10142 /*:ref: el2cgv_ 14 4 7 7 7 7 */
10143 /*:ref: vnorm_ 7 1 7 */
10144 /*:ref: vzero_ 12 1 7 */
10145 /*:ref: errdp_ 14 3 13 7 124 */
10146 /*:ref: psv2pl_ 14 4 7 7 7 7 */
10147 /*:ref: failed_ 12 0 */
10148 /*:ref: vprjp_ 14 3 7 7 7 */
10149 /*:ref: vdist_ 7 2 7 7 */
10150 /*:ref: inrypl_ 14 5 7 7 7 4 7 */
10151 /*:ref: vsub_ 14 3 7 7 7 */
10152 /*:ref: vdot_ 7 2 7 7 */
10153 /*:ref: twopi_ 7 0 */
10154 /*:ref: vhat_ 14 2 7 7 */
10155 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
10156 /*:ref: touchd_ 7 1 7 */
10157 /*:ref: swapd_ 14 2 7 7 */
10158 /*:ref: vadd_ 14 3 7 7 7 */
10159 /*:ref: vsep_ 7 2 7 7 */
10160 
10161 extern int zzbodblt_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, char *device, char *reqst, ftnlen names_len, ftnlen nornam_len, ftnlen device_len, ftnlen reqst_len);
10162 extern int zzbodget_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, ftnlen names_len, ftnlen nornam_len);
10163 extern int zzbodlst_(char *device, char *reqst, ftnlen device_len, ftnlen reqst_len);
10164 /*:ref: return_ 12 0 */
10165 /*:ref: chkin_ 14 2 13 124 */
10166 /*:ref: sigerr_ 14 2 13 124 */
10167 /*:ref: chkout_ 14 2 13 124 */
10168 /*:ref: zzidmap_ 14 3 4 13 124 */
10169 /*:ref: ljust_ 14 4 13 13 124 124 */
10170 /*:ref: ucase_ 14 4 13 13 124 124 */
10171 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
10172 /*:ref: setmsg_ 14 2 13 124 */
10173 /*:ref: errint_ 14 3 13 4 124 */
10174 /*:ref: movec_ 14 5 13 4 13 124 124 */
10175 /*:ref: movei_ 14 3 4 4 4 */
10176 /*:ref: intstr_ 14 3 4 13 124 */
10177 /*:ref: wrline_ 14 4 13 13 124 124 */
10178 /*:ref: lastnb_ 4 2 13 124 */
10179 /*:ref: eqstr_ 12 4 13 13 124 124 */
10180 /*:ref: orderi_ 14 3 4 4 4 */
10181 /*:ref: orderc_ 14 4 13 4 4 124 */
10182 
10183 extern integer zzbodbry_(integer *body);
10184 
10185 extern int zzbodini_(char *names, char *nornam, integer *codes, integer *nvals, integer *maxval, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len);
10186 /*:ref: chkin_ 14 2 13 124 */
10187 /*:ref: setmsg_ 14 2 13 124 */
10188 /*:ref: errint_ 14 3 13 4 124 */
10189 /*:ref: sigerr_ 14 2 13 124 */
10190 /*:ref: chkout_ 14 2 13 124 */
10191 /*:ref: zzhsiini_ 14 3 4 4 4 */
10192 /*:ref: zzhscini_ 14 3 4 4 4 */
10193 /*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */
10194 /*:ref: errch_ 14 4 13 13 124 124 */
10195 /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */
10196 
10197 extern int zzbodker_(char *names, char *nornam, integer *codes, integer *nvals, logical *extker, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len);
10198 /*:ref: return_ 12 0 */
10199 /*:ref: chkin_ 14 2 13 124 */
10200 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
10201 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
10202 /*:ref: failed_ 12 0 */
10203 /*:ref: chkout_ 14 2 13 124 */
10204 /*:ref: setmsg_ 14 2 13 124 */
10205 /*:ref: errch_ 14 4 13 13 124 124 */
10206 /*:ref: sigerr_ 14 2 13 124 */
10207 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
10208 /*:ref: errint_ 14 3 13 4 124 */
10209 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
10210 /*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */
10211 
10212 extern int zzbods2c_(integer *usrctr, char *savnam, integer *savcde, logical *savfnd, char *name__, integer *code, logical *found, ftnlen savnam_len, ftnlen name_len);
10213 /*:ref: return_ 12 0 */
10214 /*:ref: zzbctrck_ 14 2 4 12 */
10215 /*:ref: chkin_ 14 2 13 124 */
10216 /*:ref: bods2c_ 14 4 13 4 12 124 */
10217 /*:ref: chkout_ 14 2 13 124 */
10218 
10219 extern int zzbodtrn_(char *name__, integer *code, logical *found, integer *usrctr, logical *update, ftnlen name_len);
10220 extern int zzbodn2c_(char *name__, integer *code, logical *found, ftnlen name_len);
10221 extern int zzbodc2n_(integer *code, char *name__, logical *found, ftnlen name_len);
10222 extern int zzboddef_(char *name__, integer *code, ftnlen name_len);
10223 extern int zzbodkik_(void);
10224 extern int zzbodrst_(void);
10225 extern int zzbctrck_(integer *usrctr, logical *update);
10226 /*:ref: return_ 12 0 */
10227 /*:ref: chkin_ 14 2 13 124 */
10228 /*:ref: sigerr_ 14 2 13 124 */
10229 /*:ref: chkout_ 14 2 13 124 */
10230 /*:ref: zzctrsin_ 14 1 4 */
10231 /*:ref: zzctruin_ 14 1 4 */
10232 /*:ref: zzbodget_ 14 7 4 13 13 4 4 124 124 */
10233 /*:ref: failed_ 12 0 */
10234 /*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */
10235 /*:ref: swpool_ 14 5 13 4 13 124 124 */
10236 /*:ref: zzcvpool_ 14 4 13 4 12 124 */
10237 /*:ref: zzctrinc_ 14 1 4 */
10238 /*:ref: zzbodker_ 14 16 13 13 4 4 12 4 4 13 4 4 4 4 4 124 124 124 */
10239 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
10240 /*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */
10241 /*:ref: zzhsichk_ 14 5 4 4 4 4 4 */
10242 /*:ref: setmsg_ 14 2 13 124 */
10243 /*:ref: errint_ 14 3 13 4 124 */
10244 /*:ref: errch_ 14 4 13 13 124 124 */
10245 /*:ref: zzctrchk_ 14 3 4 4 12 */
10246 
10247 extern int zzbodvcd_(integer *bodyid, char *item, integer *maxn, integer *varctr, integer *n, doublereal *values, ftnlen item_len);
10248 /*:ref: return_ 12 0 */
10249 /*:ref: chkin_ 14 2 13 124 */
10250 /*:ref: zzpctrck_ 14 2 4 12 */
10251 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
10252 /*:ref: failed_ 12 0 */
10253 /*:ref: chkout_ 14 2 13 124 */
10254 
10255 extern int zzbquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, integer *nx, doublereal *r1, doublereal *r2);
10256 /*:ref: return_ 12 0 */
10257 /*:ref: dpmax_ 7 0 */
10258 /*:ref: chkin_ 14 2 13 124 */
10259 /*:ref: setmsg_ 14 2 13 124 */
10260 /*:ref: errdp_ 14 3 13 7 124 */
10261 /*:ref: sigerr_ 14 2 13 124 */
10262 /*:ref: chkout_ 14 2 13 124 */
10263 /*:ref: touchd_ 7 1 7 */
10264 
10265 extern int zzchrlat_(doublereal *midlat, doublereal *dlon, doublereal *eptlat);
10266 /*:ref: return_ 12 0 */
10267 /*:ref: pi_ 7 0 */
10268 /*:ref: chkin_ 14 2 13 124 */
10269 /*:ref: setmsg_ 14 2 13 124 */
10270 /*:ref: errdp_ 14 3 13 7 124 */
10271 /*:ref: sigerr_ 14 2 13 124 */
10272 /*:ref: chkout_ 14 2 13 124 */
10273 /*:ref: halfpi_ 7 0 */
10274 /*:ref: brcktd_ 7 3 7 7 7 */
10275 
10276 extern int zzck4d2i_(doublereal *dpcoef, integer *nsets, doublereal *parcod, integer *i__);
10277 
10278 extern int zzck4i2d_(integer *i__, integer *nsets, doublereal *parcod, doublereal *dpcoef);
10279 
10280 extern int zzckcv01_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
10281 /*:ref: return_ 12 0 */
10282 /*:ref: chkin_ 14 2 13 124 */
10283 /*:ref: setmsg_ 14 2 13 124 */
10284 /*:ref: errdp_ 14 3 13 7 124 */
10285 /*:ref: sigerr_ 14 2 13 124 */
10286 /*:ref: chkout_ 14 2 13 124 */
10287 /*:ref: eqstr_ 12 4 13 13 124 124 */
10288 /*:ref: errch_ 14 4 13 13 124 124 */
10289 /*:ref: dafgda_ 14 4 4 4 4 7 */
10290 /*:ref: errhan_ 14 3 13 4 124 */
10291 /*:ref: errint_ 14 3 13 4 124 */
10292 /*:ref: sct2e_ 14 3 4 7 7 */
10293 /*:ref: wninsd_ 14 3 7 7 7 */
10294 
10295 extern int zzckcv02_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
10296 /*:ref: return_ 12 0 */
10297 /*:ref: chkin_ 14 2 13 124 */
10298 /*:ref: setmsg_ 14 2 13 124 */
10299 /*:ref: errdp_ 14 3 13 7 124 */
10300 /*:ref: sigerr_ 14 2 13 124 */
10301 /*:ref: chkout_ 14 2 13 124 */
10302 /*:ref: eqstr_ 12 4 13 13 124 124 */
10303 /*:ref: errch_ 14 4 13 13 124 124 */
10304 /*:ref: dafgda_ 14 4 4 4 4 7 */
10305 /*:ref: sct2e_ 14 3 4 7 7 */
10306 /*:ref: wninsd_ 14 3 7 7 7 */
10307 
10308 extern int zzckcv03_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
10309 /*:ref: return_ 12 0 */
10310 /*:ref: chkin_ 14 2 13 124 */
10311 /*:ref: setmsg_ 14 2 13 124 */
10312 /*:ref: errdp_ 14 3 13 7 124 */
10313 /*:ref: sigerr_ 14 2 13 124 */
10314 /*:ref: chkout_ 14 2 13 124 */
10315 /*:ref: eqstr_ 12 4 13 13 124 124 */
10316 /*:ref: errch_ 14 4 13 13 124 124 */
10317 /*:ref: dafgda_ 14 4 4 4 4 7 */
10318 /*:ref: errhan_ 14 3 13 4 124 */
10319 /*:ref: errint_ 14 3 13 4 124 */
10320 /*:ref: sct2e_ 14 3 4 7 7 */
10321 /*:ref: wninsd_ 14 3 7 7 7 */
10322 
10323 extern int zzckcv04_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
10324 /*:ref: return_ 12 0 */
10325 /*:ref: chkin_ 14 2 13 124 */
10326 /*:ref: setmsg_ 14 2 13 124 */
10327 /*:ref: errdp_ 14 3 13 7 124 */
10328 /*:ref: sigerr_ 14 2 13 124 */
10329 /*:ref: chkout_ 14 2 13 124 */
10330 /*:ref: eqstr_ 12 4 13 13 124 124 */
10331 /*:ref: errch_ 14 4 13 13 124 124 */
10332 /*:ref: intmax_ 4 0 */
10333 /*:ref: dafps_ 14 5 4 4 7 4 7 */
10334 /*:ref: cknr04_ 14 3 4 7 4 */
10335 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
10336 /*:ref: sct2e_ 14 3 4 7 7 */
10337 /*:ref: wninsd_ 14 3 7 7 7 */
10338 
10339 extern int zzckcv05_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
10340 /*:ref: return_ 12 0 */
10341 /*:ref: chkin_ 14 2 13 124 */
10342 /*:ref: setmsg_ 14 2 13 124 */
10343 /*:ref: errdp_ 14 3 13 7 124 */
10344 /*:ref: sigerr_ 14 2 13 124 */
10345 /*:ref: chkout_ 14 2 13 124 */
10346 /*:ref: eqstr_ 12 4 13 13 124 124 */
10347 /*:ref: errch_ 14 4 13 13 124 124 */
10348 /*:ref: dafgda_ 14 4 4 4 4 7 */
10349 /*:ref: errint_ 14 3 13 7 124 */
10350 /*:ref: sct2e_ 14 3 4 7 7 */
10351 /*:ref: wninsd_ 14 3 7 7 7 */
10352 
10353 extern int zzckcv06_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
10354 /*:ref: return_ 12 0 */
10355 /*:ref: chkin_ 14 2 13 124 */
10356 /*:ref: setmsg_ 14 2 13 124 */
10357 /*:ref: errdp_ 14 3 13 7 124 */
10358 /*:ref: sigerr_ 14 2 13 124 */
10359 /*:ref: chkout_ 14 2 13 124 */
10360 /*:ref: eqstr_ 12 4 13 13 124 124 */
10361 /*:ref: errch_ 14 4 13 13 124 124 */
10362 /*:ref: dafgda_ 14 4 4 4 4 7 */
10363 /*:ref: failed_ 12 0 */
10364 /*:ref: sct2e_ 14 3 4 7 7 */
10365 /*:ref: wninsd_ 14 3 7 7 7 */
10366 
10367 extern int zzckspk_(integer *handle, char *ckspk, ftnlen ckspk_len);
10368 /*:ref: return_ 12 0 */
10369 /*:ref: chkin_ 14 2 13 124 */
10370 /*:ref: dafhsf_ 14 3 4 4 4 */
10371 /*:ref: chkout_ 14 2 13 124 */
10372 /*:ref: dafbfs_ 14 1 4 */
10373 /*:ref: daffna_ 14 1 12 */
10374 /*:ref: failed_ 12 0 */
10375 /*:ref: dafgs_ 14 1 7 */
10376 /*:ref: dafus_ 14 5 7 4 4 7 4 */
10377 /*:ref: zzsizeok_ 14 6 4 4 4 4 12 4 */
10378 /*:ref: dafgda_ 14 4 4 4 4 7 */
10379 
10380 extern int zzcln_(integer *lookat, integer *nameat, integer *namlst, integer *datlst, integer *nmpool, integer *chpool, integer *dppool);
10381 /*:ref: chkin_ 14 2 13 124 */
10382 /*:ref: lnkfsl_ 14 3 4 4 4 */
10383 /*:ref: chkout_ 14 2 13 124 */
10384 
10385 extern int zzcnquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, doublereal *r1, doublereal *r2);
10386 /*:ref: return_ 12 0 */
10387 /*:ref: chkin_ 14 2 13 124 */
10388 /*:ref: dpmax_ 7 0 */
10389 /*:ref: chkout_ 14 2 13 124 */
10390 /*:ref: touchd_ 7 1 7 */
10391 /*:ref: zzbquad_ 14 8 7 7 7 7 4 4 7 7 */
10392 
10393 extern int zzcorepc_(char *abcorr, doublereal *et, doublereal *lt, doublereal *etcorr, ftnlen abcorr_len);
10394 /*:ref: return_ 12 0 */
10395 /*:ref: chkin_ 14 2 13 124 */
10396 /*:ref: zzprscor_ 14 3 13 12 124 */
10397 /*:ref: chkout_ 14 2 13 124 */
10398 
10399 extern int zzcorsxf_(logical *xmit, doublereal *dlt, doublereal *xform, doublereal *corxfm);
10400 /*:ref: moved_ 14 3 7 4 7 */
10401 /*:ref: vsclip_ 14 2 7 7 */
10402 
10403 extern int zzcputim_(doublereal *tvec);
10404 /*:ref: chkout_ 14 2 13 124 */
10405 
10406 extern int zzctr_(integer *newctr, integer *oldctr, logical *update);
10407 extern int zzctruin_(integer *oldctr);
10408 extern int zzctrsin_(integer *oldctr);
10409 extern int zzctrinc_(integer *oldctr);
10410 extern int zzctrchk_(integer *newctr, integer *oldctr, logical *update);
10411 /*:ref: return_ 12 0 */
10412 /*:ref: chkin_ 14 2 13 124 */
10413 /*:ref: setmsg_ 14 2 13 124 */
10414 /*:ref: sigerr_ 14 2 13 124 */
10415 /*:ref: chkout_ 14 2 13 124 */
10416 /*:ref: intmax_ 4 0 */
10417 /*:ref: intmin_ 4 0 */
10418 
10419 extern int zzcvpool_(char *agent, integer *usrctr, logical *update, ftnlen agent_len);
10420 /*:ref: return_ 12 0 */
10421 /*:ref: zzpctrck_ 14 2 4 12 */
10422 /*:ref: chkin_ 14 2 13 124 */
10423 /*:ref: cvpool_ 14 3 13 12 124 */
10424 /*:ref: chkout_ 14 2 13 124 */
10425 
10426 extern int zzcvstat_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len);
10427 extern int zzcvxsta_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len);
10428 extern int zzcvssta_(doublereal *state, integer *center, doublereal *et, char *ref, ftnlen ref_len);
10429 /*:ref: chkin_ 14 2 13 124 */
10430 /*:ref: sigerr_ 14 2 13 124 */
10431 /*:ref: chkout_ 14 2 13 124 */
10432 /*:ref: return_ 12 0 */
10433 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
10434 /*:ref: vequ_ 14 2 7 7 */
10435 /*:ref: sxform_ 14 6 13 13 7 7 124 124 */
10436 /*:ref: failed_ 12 0 */
10437 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
10438 /*:ref: moved_ 14 3 7 4 7 */
10439 
10440 extern int zzcxbrut_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, doublereal *xpt, logical *isbrck);
10441 /*:ref: return_ 12 0 */
10442 /*:ref: vzero_ 12 1 7 */
10443 /*:ref: chkin_ 14 2 13 124 */
10444 /*:ref: setmsg_ 14 2 13 124 */
10445 /*:ref: sigerr_ 14 2 13 124 */
10446 /*:ref: chkout_ 14 2 13 124 */
10447 /*:ref: halfpi_ 7 0 */
10448 /*:ref: pi_ 7 0 */
10449 /*:ref: vminus_ 14 2 7 7 */
10450 /*:ref: vequ_ 14 2 7 7 */
10451 /*:ref: vhatip_ 14 1 7 */
10452 /*:ref: vsub_ 14 3 7 7 7 */
10453 /*:ref: vhat_ 14 2 7 7 */
10454 /*:ref: vdot_ 7 2 7 7 */
10455 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
10456 /*:ref: vadd_ 14 3 7 7 7 */
10457 
10458 extern int zzdafgdr_(integer *handle, integer *recno, doublereal *dprec, logical *found);
10459 /*:ref: return_ 12 0 */
10460 /*:ref: chkin_ 14 2 13 124 */
10461 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
10462 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
10463 /*:ref: ucase_ 14 4 13 13 124 124 */
10464 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10465 /*:ref: setmsg_ 14 2 13 124 */
10466 /*:ref: errch_ 14 4 13 13 124 124 */
10467 /*:ref: sigerr_ 14 2 13 124 */
10468 /*:ref: chkout_ 14 2 13 124 */
10469 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
10470 /*:ref: errint_ 14 3 13 4 124 */
10471 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
10472 /*:ref: failed_ 12 0 */
10473 /*:ref: zzxlated_ 14 5 4 13 4 7 124 */
10474 /*:ref: moved_ 14 3 7 4 7 */
10475 
10476 extern int zzdafgfr_(integer *handle, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, logical *found, ftnlen idword_len, ftnlen ifname_len);
10477 /*:ref: return_ 12 0 */
10478 /*:ref: chkin_ 14 2 13 124 */
10479 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
10480 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
10481 /*:ref: ucase_ 14 4 13 13 124 124 */
10482 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10483 /*:ref: setmsg_ 14 2 13 124 */
10484 /*:ref: errch_ 14 4 13 13 124 124 */
10485 /*:ref: sigerr_ 14 2 13 124 */
10486 /*:ref: chkout_ 14 2 13 124 */
10487 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
10488 /*:ref: errint_ 14 3 13 4 124 */
10489 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
10490 /*:ref: failed_ 12 0 */
10491 /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */
10492 
10493 extern int zzdafgsr_(integer *handle, integer *recno, integer *nd, integer *ni, doublereal *dprec, logical *found);
10494 /*:ref: return_ 12 0 */
10495 /*:ref: chkin_ 14 2 13 124 */
10496 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
10497 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
10498 /*:ref: ucase_ 14 4 13 13 124 124 */
10499 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10500 /*:ref: setmsg_ 14 2 13 124 */
10501 /*:ref: errch_ 14 4 13 13 124 124 */
10502 /*:ref: sigerr_ 14 2 13 124 */
10503 /*:ref: chkout_ 14 2 13 124 */
10504 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
10505 /*:ref: errint_ 14 3 13 4 124 */
10506 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
10507 /*:ref: failed_ 12 0 */
10508 /*:ref: zzxlated_ 14 5 4 13 4 7 124 */
10509 /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */
10510 /*:ref: moved_ 14 3 7 4 7 */
10511 
10512 extern int zzdafnfr_(integer *lun, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len);
10513 /*:ref: return_ 12 0 */
10514 /*:ref: chkin_ 14 2 13 124 */
10515 /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */
10516 /*:ref: rtrim_ 4 2 13 124 */
10517 /*:ref: setmsg_ 14 2 13 124 */
10518 /*:ref: errfnm_ 14 3 13 4 124 */
10519 /*:ref: errint_ 14 3 13 4 124 */
10520 /*:ref: sigerr_ 14 2 13 124 */
10521 /*:ref: chkout_ 14 2 13 124 */
10522 
10523 extern int zzdasgrd_(integer *handle, integer *recno, doublereal *record);
10524 /*:ref: return_ 12 0 */
10525 /*:ref: chkin_ 14 2 13 124 */
10526 /*:ref: zzddhnfc_ 14 1 4 */
10527 /*:ref: failed_ 12 0 */
10528 /*:ref: chkout_ 14 2 13 124 */
10529 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
10530 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
10531 /*:ref: setmsg_ 14 2 13 124 */
10532 /*:ref: errint_ 14 3 13 4 124 */
10533 /*:ref: sigerr_ 14 2 13 124 */
10534 /*:ref: errfnm_ 14 3 13 4 124 */
10535 /*:ref: zzxlated_ 14 5 4 13 4 7 124 */
10536 
10537 extern int zzdasgri_(integer *handle, integer *recno, integer *record);
10538 /*:ref: return_ 12 0 */
10539 /*:ref: chkin_ 14 2 13 124 */
10540 /*:ref: zzddhnfc_ 14 1 4 */
10541 /*:ref: failed_ 12 0 */
10542 /*:ref: chkout_ 14 2 13 124 */
10543 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
10544 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
10545 /*:ref: setmsg_ 14 2 13 124 */
10546 /*:ref: errint_ 14 3 13 4 124 */
10547 /*:ref: sigerr_ 14 2 13 124 */
10548 /*:ref: errfnm_ 14 3 13 4 124 */
10549 /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */
10550 
10551 extern int zzdasnfr_(integer *lun, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len);
10552 /*:ref: return_ 12 0 */
10553 /*:ref: chkin_ 14 2 13 124 */
10554 /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */
10555 /*:ref: rtrim_ 4 2 13 124 */
10556 /*:ref: setmsg_ 14 2 13 124 */
10557 /*:ref: errfnm_ 14 3 13 4 124 */
10558 /*:ref: errint_ 14 3 13 4 124 */
10559 /*:ref: sigerr_ 14 2 13 124 */
10560 /*:ref: chkout_ 14 2 13 124 */
10561 
10562 extern int zzdasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len);
10563 /*:ref: return_ 12 0 */
10564 /*:ref: chkin_ 14 2 13 124 */
10565 /*:ref: zzddhnfc_ 14 1 4 */
10566 /*:ref: failed_ 12 0 */
10567 /*:ref: chkout_ 14 2 13 124 */
10568 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
10569 /*:ref: zzddhppf_ 14 3 4 4 4 */
10570 /*:ref: setmsg_ 14 2 13 124 */
10571 /*:ref: errfnm_ 14 3 13 4 124 */
10572 /*:ref: errint_ 14 3 13 4 124 */
10573 /*:ref: sigerr_ 14 2 13 124 */
10574 /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */
10575 
10576 extern integer zzddhclu_(logical *utlck, integer *nut);
10577 
10578 extern int zzddhf2h_(char *fname, integer *ftabs, integer *ftamh, integer *ftarc, integer *ftbff, integer *fthan, char *ftnam, integer *ftrtm, doublereal *ftmnm, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, logical *exists, logical *opened, integer *handle, logical *found, doublereal *mnm, ftnlen fname_len, ftnlen ftnam_len);
10579 /*:ref: return_ 12 0 */
10580 /*:ref: chkin_ 14 2 13 124 */
10581 /*:ref: chkout_ 14 2 13 124 */
10582 /*:ref: rtrim_ 4 2 13 124 */
10583 /*:ref: setmsg_ 14 2 13 124 */
10584 /*:ref: errint_ 14 3 13 4 124 */
10585 /*:ref: sigerr_ 14 2 13 124 */
10586 /*:ref: isrchi_ 4 3 4 4 4 */
10587 /*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */
10588 /*:ref: failed_ 12 0 */
10589 /*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */
10590 /*:ref: errch_ 14 4 13 13 124 124 */
10591 /*:ref: zzddhmnm_ 7 1 4 */
10592 
10593 extern int zzddhgsd_(char *class__, integer *id, char *label, ftnlen class_len, ftnlen label_len);
10594 /*:ref: ljust_ 14 4 13 13 124 124 */
10595 /*:ref: ucase_ 14 4 13 13 124 124 */
10596 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10597 
10598 extern int zzddhgtu_(integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, integer *uindex);
10599 /*:ref: return_ 12 0 */
10600 /*:ref: getlun_ 14 1 4 */
10601 /*:ref: failed_ 12 0 */
10602 /*:ref: orderi_ 14 3 4 4 4 */
10603 /*:ref: frelun_ 14 1 4 */
10604 /*:ref: chkin_ 14 2 13 124 */
10605 /*:ref: setmsg_ 14 2 13 124 */
10606 /*:ref: sigerr_ 14 2 13 124 */
10607 /*:ref: chkout_ 14 2 13 124 */
10608 
10609 extern int zzddhini_(integer *natbff, integer *supbff, integer *numsup, char *stramh, char *strarc, char *strbff, ftnlen stramh_len, ftnlen strarc_len, ftnlen strbff_len);
10610 /*:ref: return_ 12 0 */
10611 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
10612 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
10613 /*:ref: ucase_ 14 4 13 13 124 124 */
10614 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10615 /*:ref: chkin_ 14 2 13 124 */
10616 /*:ref: setmsg_ 14 2 13 124 */
10617 /*:ref: errch_ 14 4 13 13 124 124 */
10618 /*:ref: sigerr_ 14 2 13 124 */
10619 /*:ref: chkout_ 14 2 13 124 */
10620 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
10621 
10622 extern int zzddhivf_(char *nsum, integer *bff, logical *found, ftnlen nsum_len);
10623 
10624 extern int zzddhman_(logical *lock, char *arch, char *fname, char *method, integer *handle, integer *unit, integer *intamh, integer *intarc, integer *intbff, logical *native, logical *found, logical *kill, ftnlen arch_len, ftnlen fname_len, ftnlen method_len);
10625 extern int zzddhopn_(char *fname, char *method, char *arch, integer *handle, ftnlen fname_len, ftnlen method_len, ftnlen arch_len);
10626 extern int zzddhcls_(integer *handle, char *arch, logical *kill, ftnlen arch_len);
10627 extern int zzddhhlu_(integer *handle, char *arch, logical *lock, integer *unit, ftnlen arch_len);
10628 extern int zzddhunl_(integer *handle, char *arch, ftnlen arch_len);
10629 extern int zzddhnfo_(integer *handle, char *fname, integer *intarc, integer *intbff, integer *intamh, logical *found, ftnlen fname_len);
10630 extern int zzddhisn_(integer *handle, logical *native, logical *found);
10631 extern int zzddhfnh_(char *fname, integer *handle, logical *found, ftnlen fname_len);
10632 extern int zzddhluh_(integer *unit, integer *handle, logical *found);
10633 /*:ref: return_ 12 0 */
10634 /*:ref: chkin_ 14 2 13 124 */
10635 /*:ref: sigerr_ 14 2 13 124 */
10636 /*:ref: chkout_ 14 2 13 124 */
10637 /*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */
10638 /*:ref: failed_ 12 0 */
10639 /*:ref: zzpltchk_ 14 1 12 */
10640 /*:ref: ljust_ 14 4 13 13 124 124 */
10641 /*:ref: ucase_ 14 4 13 13 124 124 */
10642 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10643 /*:ref: setmsg_ 14 2 13 124 */
10644 /*:ref: errch_ 14 4 13 13 124 124 */
10645 /*:ref: zzddhclu_ 4 2 12 4 */
10646 /*:ref: zzddhf2h_ 14 22 13 4 4 4 4 4 13 4 7 4 4 4 12 4 4 12 12 4 12 7 124 124 */
10647 /*:ref: errint_ 14 3 13 4 124 */
10648 /*:ref: bsrchi_ 4 3 4 4 4 */
10649 /*:ref: zzddhrcm_ 14 3 4 4 4 */
10650 /*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */
10651 /*:ref: rtrim_ 4 2 13 124 */
10652 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
10653 /*:ref: zzddhppf_ 14 3 4 4 4 */
10654 /*:ref: isrchi_ 4 3 4 4 4 */
10655 /*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */
10656 /*:ref: frelun_ 14 1 4 */
10657 
10658 extern doublereal zzddhmnm_(integer *unit);
10659 /*:ref: return_ 12 0 */
10660 /*:ref: chkin_ 14 2 13 124 */
10661 /*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */
10662 /*:ref: failed_ 12 0 */
10663 /*:ref: chkout_ 14 2 13 124 */
10664 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */
10665 /*:ref: zzddhppf_ 14 3 4 4 4 */
10666 /*:ref: isrchi_ 4 3 4 4 4 */
10667 /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */
10668 
10669 extern int zzddhnfc_(integer *natbff);
10670 /*:ref: return_ 12 0 */
10671 /*:ref: chkin_ 14 2 13 124 */
10672 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
10673 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
10674 /*:ref: ucase_ 14 4 13 13 124 124 */
10675 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10676 /*:ref: setmsg_ 14 2 13 124 */
10677 /*:ref: errch_ 14 4 13 13 124 124 */
10678 /*:ref: sigerr_ 14 2 13 124 */
10679 /*:ref: chkout_ 14 2 13 124 */
10680 
10681 extern int zzddhppf_(integer *unit, integer *arch, integer *bff);
10682 /*:ref: return_ 12 0 */
10683 /*:ref: chkin_ 14 2 13 124 */
10684 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
10685 /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */
10686 /*:ref: setmsg_ 14 2 13 124 */
10687 /*:ref: errint_ 14 3 13 4 124 */
10688 /*:ref: sigerr_ 14 2 13 124 */
10689 /*:ref: chkout_ 14 2 13 124 */
10690 /*:ref: errfnm_ 14 3 13 4 124 */
10691 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */
10692 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
10693 /*:ref: errch_ 14 4 13 13 124 124 */
10694 /*:ref: zzftpchk_ 14 3 13 12 124 */
10695 /*:ref: pos_ 4 5 13 13 4 124 124 */
10696 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
10697 /*:ref: ucase_ 14 4 13 13 124 124 */
10698 /*:ref: zzddhivf_ 14 4 13 4 12 124 */
10699 
10700 extern int zzddhrcm_(integer *nut, integer *utcst, integer *reqcnt);
10701 /*:ref: intmax_ 4 0 */
10702 
10703 extern int zzddhrmu_(integer *uindex, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut);
10704 /*:ref: chkin_ 14 2 13 124 */
10705 /*:ref: setmsg_ 14 2 13 124 */
10706 /*:ref: errint_ 14 3 13 4 124 */
10707 /*:ref: sigerr_ 14 2 13 124 */
10708 /*:ref: chkout_ 14 2 13 124 */
10709 /*:ref: reslun_ 14 1 4 */
10710 
10711 extern doublereal zzdiv_(doublereal *numr, doublereal *denom);
10712 /*:ref: return_ 12 0 */
10713 /*:ref: chkin_ 14 2 13 124 */
10714 /*:ref: dpmax_ 7 0 */
10715 /*:ref: setmsg_ 14 2 13 124 */
10716 /*:ref: errdp_ 14 3 13 7 124 */
10717 /*:ref: sigerr_ 14 2 13 124 */
10718 /*:ref: chkout_ 14 2 13 124 */
10719 
10720 extern int zzdscm_(doublereal *epoch, doublereal *eccp, doublereal *argpp, doublereal *tc, doublereal *inclp, doublereal *nodep, doublereal *np, doublereal *snodm, doublereal *cnodm, doublereal *sinim, doublereal *cosim, doublereal *sinomm, doublereal *cosomm, doublereal *day, doublereal *e3, doublereal *ee2, doublereal *eccm, doublereal *emsq, doublereal *gam, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *rtemsq, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *s6, doublereal *s7, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *ss6, doublereal *ss7, doublereal *sz1, doublereal *sz2, doublereal *sz3, doublereal *sz11, doublereal *sz12, doublereal *sz13, doublereal *sz21, doublereal *sz22, doublereal *sz23, doublereal *sz31, doublereal *sz32, doublereal *sz33, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *xn, doublereal *z1, doublereal *z2, doublereal *z3, doublereal *z11, doublereal *z12, doublereal *z13, doublereal *z21, doublereal *z22, doublereal *z23, doublereal *z31, doublereal *z32, doublereal *z33, doublereal *zmol, doublereal *zmos);
10721 /*:ref: return_ 12 0 */
10722 /*:ref: chkin_ 14 2 13 124 */
10723 /*:ref: twopi_ 7 0 */
10724 /*:ref: chkout_ 14 2 13 124 */
10725 
10726 extern int zzdsin_(doublereal *geophs, doublereal *cosim, doublereal *emsq, doublereal *argpo, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *sinim, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *sz1, doublereal *sz3, doublereal *sz11, doublereal *sz13, doublereal *sz21, doublereal *sz23, doublereal *sz31, doublereal *sz33, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *mo, doublereal *mdot, doublereal *no, doublereal *nodeo, doublereal *nodedot, doublereal *xpidot, doublereal *z1, doublereal *z3, doublereal *z11, doublereal *z13, doublereal *z21, doublereal *z23, doublereal *z31, doublereal *z33, doublereal *ecco, doublereal *eccsq, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *mm, doublereal *xn, doublereal *nodem, integer *irez, doublereal *atime, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *didt, doublereal *dmdt, doublereal *dndt, doublereal *dnodt, doublereal *domdt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *xfact, doublereal *xlamo, doublereal *xli, doublereal *xni);
10727 /*:ref: return_ 12 0 */
10728 /*:ref: chkin_ 14 2 13 124 */
10729 /*:ref: pi_ 7 0 */
10730 /*:ref: twopi_ 7 0 */
10731 /*:ref: chkout_ 14 2 13 124 */
10732 
10733 extern int zzdskbbl_(integer *bodyid);
10734 /*:ref: return_ 12 0 */
10735 /*:ref: chkin_ 14 2 13 124 */
10736 /*:ref: zzctruin_ 14 1 4 */
10737 /*:ref: zzdskchk_ 14 2 4 12 */
10738 /*:ref: zzdskbss_ 14 1 4 */
10739 /*:ref: zzdsksns_ 14 5 200 4 4 7 12 */
10740 /*:ref: failed_ 12 0 */
10741 /*:ref: chkout_ 14 2 13 124 */
10742 
10743 extern int zzdskbsr_(char *fname, integer *bodyid, integer *handle, L_fp cmpfun, integer *usrctr, logical *update, integer *dladsc, doublereal *dskdsc, logical *found, ftnlen fname_len);
10744 extern int zzdsklsf_(char *fname, integer *handle, ftnlen fname_len);
10745 extern int zzdskusf_(integer *handle);
10746 extern int zzdskbss_(integer *bodyid);
10747 extern int zzdsksns_(L_fp cmpfun, integer *handle, integer *dladsc, doublereal *dskdsc, logical *found);
10748 extern int zzdskchk_(integer *usrctr, logical *update);
10749 /*:ref: return_ 12 0 */
10750 /*:ref: chkin_ 14 2 13 124 */
10751 /*:ref: sigerr_ 14 2 13 124 */
10752 /*:ref: chkout_ 14 2 13 124 */
10753 /*:ref: zzctrsin_ 14 1 4 */
10754 /*:ref: zzctrinc_ 14 1 4 */
10755 /*:ref: lnkini_ 14 2 4 4 */
10756 /*:ref: dasopr_ 14 3 13 4 124 */
10757 /*:ref: failed_ 12 0 */
10758 /*:ref: isrchi_ 4 3 4 4 4 */
10759 /*:ref: dascls_ 14 1 4 */
10760 /*:ref: lnknxt_ 4 2 4 4 */
10761 /*:ref: lnkfsl_ 14 3 4 4 4 */
10762 /*:ref: setmsg_ 14 2 13 124 */
10763 /*:ref: errint_ 14 3 13 4 124 */
10764 /*:ref: intmax_ 4 0 */
10765 /*:ref: lnkprv_ 4 2 4 4 */
10766 /*:ref: dlabfs_ 14 3 4 4 12 */
10767 /*:ref: dlafns_ 14 4 4 4 4 12 */
10768 /*:ref: movei_ 14 3 4 4 4 */
10769 /*:ref: dskgd_ 14 3 4 4 7 */
10770 /*:ref: dlabbs_ 14 3 4 4 12 */
10771 /*:ref: dlafps_ 14 4 4 4 4 12 */
10772 /*:ref: moved_ 14 3 7 4 7 */
10773 /*:ref: lnknfn_ 4 1 4 */
10774 /*:ref: lnkan_ 14 2 4 4 */
10775 /*:ref: lnkilb_ 14 3 4 4 4 */
10776 /*:ref: lnkila_ 14 3 4 4 4 */
10777 /*:ref: zzctrchk_ 14 3 4 4 12 */
10778 
10779 extern int zzdskbun_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *point, doublereal *normal);
10780 /*:ref: return_ 12 0 */
10781 /*:ref: chkin_ 14 2 13 124 */
10782 /*:ref: setmsg_ 14 2 13 124 */
10783 /*:ref: errint_ 14 3 13 4 124 */
10784 /*:ref: sigerr_ 14 2 13 124 */
10785 /*:ref: chkout_ 14 2 13 124 */
10786 /*:ref: dskgtl_ 14 2 4 7 */
10787 /*:ref: vequ_ 14 2 7 7 */
10788 /*:ref: isrchi_ 4 3 4 4 4 */
10789 /*:ref: refchg_ 14 4 4 4 7 7 */
10790 /*:ref: failed_ 12 0 */
10791 /*:ref: mxv_ 14 3 7 7 7 */
10792 /*:ref: vsub_ 14 3 7 7 7 */
10793 /*:ref: vdist_ 7 2 7 7 */
10794 /*:ref: zzinlat_ 14 5 7 7 7 4 12 */
10795 /*:ref: zzinrec_ 14 5 7 7 7 4 12 */
10796 /*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */
10797 /*:ref: moved_ 14 3 7 4 7 */
10798 /*:ref: errdp_ 14 3 13 7 124 */
10799 /*:ref: zzptpl02_ 14 8 4 4 7 7 4 4 7 12 */
10800 /*:ref: pltnrm_ 14 4 7 7 7 7 */
10801 /*:ref: vhatip_ 14 1 7 */
10802 /*:ref: mtxv_ 14 3 7 7 7 */
10803 
10804 extern int zzdskbux_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *segidx, doublereal *dc, integer *ic, logical *found);
10805 /*:ref: return_ 12 0 */
10806 /*:ref: chkin_ 14 2 13 124 */
10807 /*:ref: setmsg_ 14 2 13 124 */
10808 /*:ref: errint_ 14 3 13 4 124 */
10809 /*:ref: sigerr_ 14 2 13 124 */
10810 /*:ref: chkout_ 14 2 13 124 */
10811 /*:ref: dskgtl_ 14 2 4 7 */
10812 /*:ref: vequ_ 14 2 7 7 */
10813 /*:ref: zzdsksph_ 14 5 4 4 4 7 7 */
10814 /*:ref: failed_ 12 0 */
10815 /*:ref: vnorm_ 7 1 7 */
10816 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
10817 /*:ref: isrchi_ 4 3 4 4 4 */
10818 /*:ref: refchg_ 14 4 4 4 7 7 */
10819 /*:ref: mxv_ 14 3 7 7 7 */
10820 /*:ref: vsub_ 14 3 7 7 7 */
10821 /*:ref: nplnpt_ 14 5 7 7 7 7 7 */
10822 /*:ref: zzrytelt_ 14 6 7 7 7 7 4 7 */
10823 /*:ref: vdist_ 7 2 7 7 */
10824 /*:ref: moved_ 14 3 7 4 7 */
10825 /*:ref: orderd_ 14 3 7 4 4 */
10826 /*:ref: zzdsksgx_ 14 10 4 4 4 7 7 7 7 7 4 12 */
10827 /*:ref: vzero_ 12 1 7 */
10828 /*:ref: vadd_ 14 3 7 7 7 */
10829 /*:ref: mtxv_ 14 3 7 7 7 */
10830 
10831 extern int zzdsksba_(integer *bodyid, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad);
10832 /*:ref: return_ 12 0 */
10833 /*:ref: chkin_ 14 2 13 124 */
10834 /*:ref: isrchi_ 4 3 4 4 4 */
10835 /*:ref: setmsg_ 14 2 13 124 */
10836 /*:ref: errint_ 14 3 13 4 124 */
10837 /*:ref: sigerr_ 14 2 13 124 */
10838 /*:ref: chkout_ 14 2 13 124 */
10839 /*:ref: zzdskbbl_ 14 1 4 */
10840 /*:ref: failed_ 12 0 */
10841 /*:ref: zzdsksbd_ 12 1 4 */
10842 /*:ref: zzdskbss_ 14 1 4 */
10843 /*:ref: zzdsksns_ 14 5 200 4 4 7 12 */
10844 /*:ref: zzdsksbr_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */
10845 /*:ref: movei_ 14 3 4 4 4 */
10846 /*:ref: moved_ 14 3 7 4 7 */
10847 /*:ref: zzsegbox_ 14 3 7 7 7 */
10848 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
10849 /*:ref: cleard_ 14 2 4 7 */
10850 /*:ref: frmnam_ 14 3 4 13 124 */
10851 /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */
10852 
10853 extern int zzdsksbf_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *point, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, doublereal *normal);
10854 extern int zzsbfxr_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, logical *found);
10855 extern int zzsbfxri_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found);
10856 extern int zzsbfnrm_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *point, doublereal *normal);
10857 /*:ref: return_ 12 0 */
10858 /*:ref: chkin_ 14 2 13 124 */
10859 /*:ref: sigerr_ 14 2 13 124 */
10860 /*:ref: chkout_ 14 2 13 124 */
10861 /*:ref: zzctruin_ 14 1 4 */
10862 /*:ref: zzdskchk_ 14 2 4 12 */
10863 /*:ref: zzdskbbl_ 14 1 4 */
10864 /*:ref: zzdsksbi_ 14 13 4 4 4 4 4 4 4 7 4 4 7 7 7 */
10865 /*:ref: failed_ 12 0 */
10866 /*:ref: isrchi_ 4 3 4 4 4 */
10867 /*:ref: zzdsksba_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */
10868 /*:ref: zzdskbux_ 14 19 4 4 4 7 4 4 4 4 7 7 7 7 7 7 7 4 7 4 12 */
10869 /*:ref: movei_ 14 3 4 4 4 */
10870 /*:ref: moved_ 14 3 7 4 7 */
10871 /*:ref: zzdskbun_ 14 14 4 4 4 7 4 4 4 4 7 7 7 7 7 7 */
10872 
10873 extern int zzdsksbi_(integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad);
10874 /*:ref: return_ 12 0 */
10875 /*:ref: chkin_ 14 2 13 124 */
10876 /*:ref: cleard_ 14 2 4 7 */
10877 /*:ref: cleari_ 14 2 4 4 */
10878 /*:ref: chkout_ 14 2 13 124 */
10879 
10880 extern int zzdsksbr_(integer *needed, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad);
10881 /*:ref: return_ 12 0 */
10882 /*:ref: chkin_ 14 2 13 124 */
10883 /*:ref: setmsg_ 14 2 13 124 */
10884 /*:ref: errint_ 14 3 13 4 124 */
10885 /*:ref: sigerr_ 14 2 13 124 */
10886 /*:ref: chkout_ 14 2 13 124 */
10887 /*:ref: moved_ 14 3 7 4 7 */
10888 /*:ref: movei_ 14 3 4 4 4 */
10889 
10890 extern logical zzdsksel_(integer *surfid, integer *nsurf, integer *srflst, integer *bodyid, integer *dclass, integer *corsys, doublereal *corpar, doublereal *cor1, doublereal *cor2, integer *framid, doublereal *pos, doublereal *et, integer *handle, integer *dladsc, doublereal *dskdsc);
10891 extern logical zzdsksbd_(integer *bodyid);
10892 extern logical zzdskbdc_(integer *handle, integer *dladsc, doublereal *dskdsc);
10893 extern logical zzdsknot_(integer *handle, integer *dladsc, doublereal *dskdsc);
10894 extern logical zzdsksit_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et);
10895 extern logical zzdskcit_(integer *handle, integer *dladsc, doublereal *dskdsc);
10896 extern logical zzdskusc_(integer *bodyid, doublereal *et, doublereal *cor1, doublereal *cor2);
10897 extern logical zzdskumc_(integer *handle, integer *dladsc, doublereal *dskdsc);
10898 extern logical zzdskmsc_(integer *bodyid, integer *surfid, integer *framid, integer *corsys, doublereal *corpar, doublereal *et, doublereal *cor1, doublereal *cor2);
10899 extern logical zzdskmmc_(integer *handle, integer *dladsc, doublereal *dskdsc);
10900 extern logical zzdsksrc_(integer *surfid, integer *bodyid, integer *dclass, doublereal *et, integer *framid, doublereal *pos);
10901 extern logical zzdskmrc_(integer *handle, integer *dladsc, doublereal *dskdsc);
10902 /*:ref: touchi_ 4 1 4 */
10903 /*:ref: chkin_ 14 2 13 124 */
10904 /*:ref: sigerr_ 14 2 13 124 */
10905 /*:ref: chkout_ 14 2 13 124 */
10906 /*:ref: setmsg_ 14 2 13 124 */
10907 /*:ref: errint_ 14 3 13 4 124 */
10908 /*:ref: shelli_ 14 2 4 4 */
10909 /*:ref: bsrchi_ 4 3 4 4 4 */
10910 /*:ref: twopi_ 7 0 */
10911 /*:ref: moved_ 14 3 7 4 7 */
10912 /*:ref: vequ_ 14 2 7 7 */
10913 /*:ref: refchg_ 14 4 4 4 7 7 */
10914 /*:ref: mxv_ 14 3 7 7 7 */
10915 /*:ref: reclat_ 14 4 7 7 7 7 */
10916 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
10917 
10918 extern doublereal zzdsksgr_(doublereal *dskdsc);
10919 /*:ref: chkin_ 14 2 13 124 */
10920 /*:ref: setmsg_ 14 2 13 124 */
10921 /*:ref: errdp_ 14 3 13 7 124 */
10922 /*:ref: sigerr_ 14 2 13 124 */
10923 /*:ref: chkout_ 14 2 13 124 */
10924 /*:ref: moved_ 14 3 7 4 7 */
10925 /*:ref: vnorm_ 7 1 7 */
10926 /*:ref: errint_ 14 3 13 4 124 */
10927 
10928 extern int zzdsksgx_(integer *handle, integer *dladsc, integer *dtype, doublereal *et, doublereal *vertex, doublereal *raydir, doublereal *xpt, doublereal *dc, integer *ic, logical *found);
10929 /*:ref: return_ 12 0 */
10930 /*:ref: chkin_ 14 2 13 124 */
10931 /*:ref: touchd_ 7 1 7 */
10932 /*:ref: dskx02_ 14 7 4 4 7 7 4 7 12 */
10933 /*:ref: setmsg_ 14 2 13 124 */
10934 /*:ref: errint_ 14 3 13 4 124 */
10935 /*:ref: sigerr_ 14 2 13 124 */
10936 /*:ref: chkout_ 14 2 13 124 */
10937 
10938 extern int zzdsksph_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *minrad, doublereal *maxrad);
10939 /*:ref: return_ 12 0 */
10940 /*:ref: chkin_ 14 2 13 124 */
10941 /*:ref: zzctruin_ 14 1 4 */
10942 /*:ref: setmsg_ 14 2 13 124 */
10943 /*:ref: errint_ 14 3 13 4 124 */
10944 /*:ref: sigerr_ 14 2 13 124 */
10945 /*:ref: chkout_ 14 2 13 124 */
10946 /*:ref: zzdskchk_ 14 2 4 12 */
10947 /*:ref: dpmax_ 7 0 */
10948 /*:ref: zzdskbbl_ 14 1 4 */
10949 /*:ref: failed_ 12 0 */
10950 /*:ref: cleard_ 14 2 4 7 */
10951 /*:ref: zzdskbss_ 14 1 4 */
10952 /*:ref: zzdsksbd_ 14 1 4 */
10953 /*:ref: zzdsksns_ 14 5 200 4 4 7 12 */
10954 /*:ref: isrchi_ 4 3 4 4 4 */
10955 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
10956 /*:ref: frmnam_ 14 3 4 13 124 */
10957 /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */
10958 /*:ref: vnorm_ 7 1 7 */
10959 /*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */
10960 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
10961 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
10962 /*:ref: movei_ 14 3 4 4 4 */
10963 
10964 extern int zzdspc_(integer *irez, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *didt, doublereal *dmdt, doublereal *dnodt, doublereal *domdt, doublereal *argpo, doublereal *argpdot, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *xfact, doublereal *xlamo, doublereal *no, doublereal *atime, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *xli, doublereal *mm, doublereal *xni, doublereal *nodem, doublereal *dndt, doublereal *xn);
10965 /*:ref: return_ 12 0 */
10966 /*:ref: chkin_ 14 2 13 124 */
10967 /*:ref: twopi_ 7 0 */
10968 /*:ref: chkout_ 14 2 13 124 */
10969 
10970 extern int zzdspr_(integer *opmode, doublereal *e3, doublereal *ee2, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *t, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *zmol, doublereal *zmos, doublereal *inclo, logical *doinit, doublereal *eccp, doublereal *inclp, doublereal *nodep, doublereal *argpp, doublereal *mp);
10971 /*:ref: return_ 12 0 */
10972 /*:ref: chkin_ 14 2 13 124 */
10973 /*:ref: twopi_ 7 0 */
10974 /*:ref: pi_ 7 0 */
10975 /*:ref: chkout_ 14 2 13 124 */
10976 
10977 extern int zzdynbid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len);
10978 /*:ref: return_ 12 0 */
10979 /*:ref: chkin_ 14 2 13 124 */
10980 /*:ref: intstr_ 14 3 4 13 124 */
10981 /*:ref: failed_ 12 0 */
10982 /*:ref: chkout_ 14 2 13 124 */
10983 /*:ref: rtrim_ 4 2 13 124 */
10984 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
10985 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
10986 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
10987 /*:ref: setmsg_ 14 2 13 124 */
10988 /*:ref: errint_ 14 3 13 4 124 */
10989 /*:ref: errch_ 14 4 13 13 124 124 */
10990 /*:ref: sigerr_ 14 2 13 124 */
10991 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
10992 /*:ref: bods2c_ 14 4 13 4 12 124 */
10993 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
10994 
10995 extern int zzdynfid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len);
10996 /*:ref: return_ 12 0 */
10997 /*:ref: chkin_ 14 2 13 124 */
10998 /*:ref: intstr_ 14 3 4 13 124 */
10999 /*:ref: failed_ 12 0 */
11000 /*:ref: chkout_ 14 2 13 124 */
11001 /*:ref: rtrim_ 4 2 13 124 */
11002 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
11003 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
11004 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
11005 /*:ref: setmsg_ 14 2 13 124 */
11006 /*:ref: errint_ 14 3 13 4 124 */
11007 /*:ref: errch_ 14 4 13 13 124 124 */
11008 /*:ref: sigerr_ 14 2 13 124 */
11009 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
11010 /*:ref: namfrm_ 14 3 13 4 124 */
11011 /*:ref: beint_ 12 2 13 124 */
11012 /*:ref: prsint_ 14 3 13 4 124 */
11013 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
11014 
11015 extern int zzdynfr0_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm);
11016 /*:ref: return_ 12 0 */
11017 /*:ref: chkin_ 14 2 13 124 */
11018 /*:ref: irfnum_ 14 3 13 4 124 */
11019 /*:ref: bodn2c_ 14 4 13 4 12 124 */
11020 /*:ref: cleard_ 14 2 4 7 */
11021 /*:ref: frmnam_ 14 3 4 13 124 */
11022 /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */
11023 /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */
11024 /*:ref: failed_ 12 0 */
11025 /*:ref: chkout_ 14 2 13 124 */
11026 /*:ref: eqstr_ 12 4 13 13 124 124 */
11027 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
11028 /*:ref: ucase_ 14 4 13 13 124 124 */
11029 /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */
11030 /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */
11031 /*:ref: setmsg_ 14 2 13 124 */
11032 /*:ref: errch_ 14 4 13 13 124 124 */
11033 /*:ref: sigerr_ 14 2 13 124 */
11034 /*:ref: bodc2n_ 14 4 4 13 12 124 */
11035 /*:ref: intstr_ 14 3 4 13 124 */
11036 /*:ref: zzeprc76_ 14 2 7 7 */
11037 /*:ref: invstm_ 14 2 7 7 */
11038 /*:ref: zzenut80_ 14 2 7 7 */
11039 /*:ref: mxmg_ 14 6 7 7 4 4 4 7 */
11040 /*:ref: zzmobliq_ 14 3 7 7 7 */
11041 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
11042 /*:ref: zzfrmch1_ 14 4 4 4 7 7 */
11043 /*:ref: moved_ 14 3 7 4 7 */
11044 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
11045 /*:ref: errint_ 14 3 13 4 124 */
11046 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
11047 /*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */
11048 /*:ref: vpack_ 14 4 7 7 7 7 */
11049 /*:ref: vhat_ 14 2 7 7 */
11050 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
11051 /*:ref: vequ_ 14 2 7 7 */
11052 /*:ref: zzprscor_ 14 3 13 12 124 */
11053 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
11054 /*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */
11055 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
11056 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
11057 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
11058 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
11059 /*:ref: vminug_ 14 3 7 4 7 */
11060 /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */
11061 /*:ref: vsubg_ 14 4 7 7 4 7 */
11062 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
11063 /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */
11064 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
11065 /*:ref: latrec_ 14 4 7 7 7 7 */
11066 /*:ref: stlabx_ 14 3 7 7 7 */
11067 /*:ref: stelab_ 14 3 7 7 7 */
11068 /*:ref: vsep_ 7 2 7 7 */
11069 /*:ref: etcal_ 14 3 7 13 124 */
11070 /*:ref: errdp_ 14 3 13 7 124 */
11071 /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */
11072 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
11073 /*:ref: polyds_ 14 5 7 4 4 7 7 */
11074 
11075 extern int zzdynfrm_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm);
11076 /*:ref: return_ 12 0 */
11077 /*:ref: chkin_ 14 2 13 124 */
11078 /*:ref: irfnum_ 14 3 13 4 124 */
11079 /*:ref: bodn2c_ 14 4 13 4 12 124 */
11080 /*:ref: cleard_ 14 2 4 7 */
11081 /*:ref: frmnam_ 14 3 4 13 124 */
11082 /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */
11083 /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */
11084 /*:ref: failed_ 12 0 */
11085 /*:ref: chkout_ 14 2 13 124 */
11086 /*:ref: eqstr_ 12 4 13 13 124 124 */
11087 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
11088 /*:ref: ucase_ 14 4 13 13 124 124 */
11089 /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */
11090 /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */
11091 /*:ref: setmsg_ 14 2 13 124 */
11092 /*:ref: errch_ 14 4 13 13 124 124 */
11093 /*:ref: sigerr_ 14 2 13 124 */
11094 /*:ref: bodc2n_ 14 4 4 13 12 124 */
11095 /*:ref: intstr_ 14 3 4 13 124 */
11096 /*:ref: zzeprc76_ 14 2 7 7 */
11097 /*:ref: invstm_ 14 2 7 7 */
11098 /*:ref: zzenut80_ 14 2 7 7 */
11099 /*:ref: mxmg_ 14 6 7 7 4 4 4 7 */
11100 /*:ref: zzmobliq_ 14 3 7 7 7 */
11101 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
11102 /*:ref: zzfrmch0_ 14 4 4 4 7 7 */
11103 /*:ref: moved_ 14 3 7 4 7 */
11104 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
11105 /*:ref: errint_ 14 3 13 4 124 */
11106 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
11107 /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */
11108 /*:ref: vpack_ 14 4 7 7 7 7 */
11109 /*:ref: vhat_ 14 2 7 7 */
11110 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
11111 /*:ref: vequ_ 14 2 7 7 */
11112 /*:ref: zzprscor_ 14 3 13 12 124 */
11113 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
11114 /*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */
11115 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
11116 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
11117 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
11118 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
11119 /*:ref: vminug_ 14 3 7 4 7 */
11120 /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */
11121 /*:ref: vsubg_ 14 4 7 7 4 7 */
11122 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
11123 /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */
11124 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
11125 /*:ref: latrec_ 14 4 7 7 7 7 */
11126 /*:ref: stlabx_ 14 3 7 7 7 */
11127 /*:ref: stelab_ 14 3 7 7 7 */
11128 /*:ref: vsep_ 7 2 7 7 */
11129 /*:ref: etcal_ 14 3 7 13 124 */
11130 /*:ref: errdp_ 14 3 13 7 124 */
11131 /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */
11132 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
11133 /*:ref: polyds_ 14 5 7 4 4 7 7 */
11134 
11135 extern int zzdynoac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, logical *found, ftnlen frname_len, ftnlen item_len, ftnlen values_len);
11136 /*:ref: return_ 12 0 */
11137 /*:ref: chkin_ 14 2 13 124 */
11138 /*:ref: intstr_ 14 3 4 13 124 */
11139 /*:ref: failed_ 12 0 */
11140 /*:ref: chkout_ 14 2 13 124 */
11141 /*:ref: rtrim_ 4 2 13 124 */
11142 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
11143 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
11144 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
11145 /*:ref: setmsg_ 14 2 13 124 */
11146 /*:ref: errint_ 14 3 13 4 124 */
11147 /*:ref: errch_ 14 4 13 13 124 124 */
11148 /*:ref: sigerr_ 14 2 13 124 */
11149 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
11150 
11151 extern int zzdynoad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, logical *found, ftnlen frname_len, ftnlen item_len);
11152 /*:ref: return_ 12 0 */
11153 /*:ref: chkin_ 14 2 13 124 */
11154 /*:ref: intstr_ 14 3 4 13 124 */
11155 /*:ref: failed_ 12 0 */
11156 /*:ref: chkout_ 14 2 13 124 */
11157 /*:ref: rtrim_ 4 2 13 124 */
11158 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
11159 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
11160 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
11161 /*:ref: setmsg_ 14 2 13 124 */
11162 /*:ref: errint_ 14 3 13 4 124 */
11163 /*:ref: errch_ 14 4 13 13 124 124 */
11164 /*:ref: sigerr_ 14 2 13 124 */
11165 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
11166 
11167 extern int zzdynrot_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm);
11168 /*:ref: return_ 12 0 */
11169 /*:ref: chkin_ 14 2 13 124 */
11170 /*:ref: irfnum_ 14 3 13 4 124 */
11171 /*:ref: bodn2c_ 14 4 13 4 12 124 */
11172 /*:ref: cleard_ 14 2 4 7 */
11173 /*:ref: frmnam_ 14 3 4 13 124 */
11174 /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */
11175 /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */
11176 /*:ref: failed_ 12 0 */
11177 /*:ref: chkout_ 14 2 13 124 */
11178 /*:ref: eqstr_ 12 4 13 13 124 124 */
11179 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
11180 /*:ref: ucase_ 14 4 13 13 124 124 */
11181 /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */
11182 /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */
11183 /*:ref: setmsg_ 14 2 13 124 */
11184 /*:ref: errch_ 14 4 13 13 124 124 */
11185 /*:ref: sigerr_ 14 2 13 124 */
11186 /*:ref: bodc2n_ 14 4 4 13 12 124 */
11187 /*:ref: intstr_ 14 3 4 13 124 */
11188 /*:ref: zzeprc76_ 14 2 7 7 */
11189 /*:ref: moved_ 14 3 7 4 7 */
11190 /*:ref: xpose_ 14 2 7 7 */
11191 /*:ref: zzenut80_ 14 2 7 7 */
11192 /*:ref: mxm_ 14 3 7 7 7 */
11193 /*:ref: zzmobliq_ 14 3 7 7 7 */
11194 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
11195 /*:ref: zzrefch0_ 14 4 4 4 7 7 */
11196 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
11197 /*:ref: errint_ 14 3 13 4 124 */
11198 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
11199 /*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */
11200 /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */
11201 /*:ref: vhat_ 14 2 7 7 */
11202 /*:ref: zzprscor_ 14 3 13 12 124 */
11203 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
11204 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
11205 /*:ref: mxv_ 14 3 7 7 7 */
11206 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
11207 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
11208 /*:ref: vminus_ 14 2 7 7 */
11209 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
11210 /*:ref: vsub_ 14 3 7 7 7 */
11211 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
11212 /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */
11213 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
11214 /*:ref: latrec_ 14 4 7 7 7 7 */
11215 /*:ref: vequ_ 14 2 7 7 */
11216 /*:ref: stlabx_ 14 3 7 7 7 */
11217 /*:ref: stelab_ 14 3 7 7 7 */
11218 /*:ref: vsep_ 7 2 7 7 */
11219 /*:ref: etcal_ 14 3 7 13 124 */
11220 /*:ref: errdp_ 14 3 13 7 124 */
11221 /*:ref: twovec_ 14 5 7 4 7 4 7 */
11222 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
11223 /*:ref: polyds_ 14 5 7 4 4 7 7 */
11224 
11225 extern int zzdynrt0_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm);
11226 /*:ref: return_ 12 0 */
11227 /*:ref: chkin_ 14 2 13 124 */
11228 /*:ref: irfnum_ 14 3 13 4 124 */
11229 /*:ref: bodn2c_ 14 4 13 4 12 124 */
11230 /*:ref: cleard_ 14 2 4 7 */
11231 /*:ref: frmnam_ 14 3 4 13 124 */
11232 /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */
11233 /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */
11234 /*:ref: failed_ 12 0 */
11235 /*:ref: chkout_ 14 2 13 124 */
11236 /*:ref: eqstr_ 12 4 13 13 124 124 */
11237 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
11238 /*:ref: ucase_ 14 4 13 13 124 124 */
11239 /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */
11240 /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */
11241 /*:ref: setmsg_ 14 2 13 124 */
11242 /*:ref: errch_ 14 4 13 13 124 124 */
11243 /*:ref: sigerr_ 14 2 13 124 */
11244 /*:ref: bodc2n_ 14 4 4 13 12 124 */
11245 /*:ref: intstr_ 14 3 4 13 124 */
11246 /*:ref: zzeprc76_ 14 2 7 7 */
11247 /*:ref: moved_ 14 3 7 4 7 */
11248 /*:ref: xpose_ 14 2 7 7 */
11249 /*:ref: zzenut80_ 14 2 7 7 */
11250 /*:ref: mxm_ 14 3 7 7 7 */
11251 /*:ref: zzmobliq_ 14 3 7 7 7 */
11252 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
11253 /*:ref: zzrefch1_ 14 4 4 4 7 7 */
11254 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
11255 /*:ref: errint_ 14 3 13 4 124 */
11256 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
11257 /*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */
11258 /*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */
11259 /*:ref: vhat_ 14 2 7 7 */
11260 /*:ref: zzprscor_ 14 3 13 12 124 */
11261 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
11262 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
11263 /*:ref: mxv_ 14 3 7 7 7 */
11264 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
11265 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
11266 /*:ref: vminus_ 14 2 7 7 */
11267 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
11268 /*:ref: vsub_ 14 3 7 7 7 */
11269 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
11270 /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */
11271 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
11272 /*:ref: latrec_ 14 4 7 7 7 7 */
11273 /*:ref: stlabx_ 14 3 7 7 7 */
11274 /*:ref: stelab_ 14 3 7 7 7 */
11275 /*:ref: vequ_ 14 2 7 7 */
11276 /*:ref: vsep_ 7 2 7 7 */
11277 /*:ref: etcal_ 14 3 7 13 124 */
11278 /*:ref: errdp_ 14 3 13 7 124 */
11279 /*:ref: twovec_ 14 5 7 4 7 4 7 */
11280 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
11281 /*:ref: polyds_ 14 5 7 4 4 7 7 */
11282 
11283 extern int zzdynvac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, ftnlen frname_len, ftnlen item_len, ftnlen values_len);
11284 /*:ref: return_ 12 0 */
11285 /*:ref: chkin_ 14 2 13 124 */
11286 /*:ref: intstr_ 14 3 4 13 124 */
11287 /*:ref: failed_ 12 0 */
11288 /*:ref: chkout_ 14 2 13 124 */
11289 /*:ref: rtrim_ 4 2 13 124 */
11290 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
11291 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
11292 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
11293 /*:ref: setmsg_ 14 2 13 124 */
11294 /*:ref: errint_ 14 3 13 4 124 */
11295 /*:ref: errch_ 14 4 13 13 124 124 */
11296 /*:ref: sigerr_ 14 2 13 124 */
11297 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
11298 
11299 extern int zzdynvad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, ftnlen frname_len, ftnlen item_len);
11300 /*:ref: return_ 12 0 */
11301 /*:ref: chkin_ 14 2 13 124 */
11302 /*:ref: intstr_ 14 3 4 13 124 */
11303 /*:ref: failed_ 12 0 */
11304 /*:ref: chkout_ 14 2 13 124 */
11305 /*:ref: rtrim_ 4 2 13 124 */
11306 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
11307 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
11308 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
11309 /*:ref: setmsg_ 14 2 13 124 */
11310 /*:ref: errint_ 14 3 13 4 124 */
11311 /*:ref: errch_ 14 4 13 13 124 124 */
11312 /*:ref: sigerr_ 14 2 13 124 */
11313 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
11314 
11315 extern int zzdynvai_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, integer *values, ftnlen frname_len, ftnlen item_len);
11316 /*:ref: return_ 12 0 */
11317 /*:ref: chkin_ 14 2 13 124 */
11318 /*:ref: intstr_ 14 3 4 13 124 */
11319 /*:ref: failed_ 12 0 */
11320 /*:ref: chkout_ 14 2 13 124 */
11321 /*:ref: rtrim_ 4 2 13 124 */
11322 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
11323 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
11324 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
11325 /*:ref: setmsg_ 14 2 13 124 */
11326 /*:ref: errint_ 14 3 13 4 124 */
11327 /*:ref: errch_ 14 4 13 13 124 124 */
11328 /*:ref: sigerr_ 14 2 13 124 */
11329 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
11330 
11331 extern int zzedterm_(char *type__, doublereal *a, doublereal *b, doublereal *c__, doublereal *srcrad, doublereal *srcpos, integer *npts, doublereal *trmpts, ftnlen type_len);
11332 /*:ref: return_ 12 0 */
11333 /*:ref: chkin_ 14 2 13 124 */
11334 /*:ref: ljust_ 14 4 13 13 124 124 */
11335 /*:ref: ucase_ 14 4 13 13 124 124 */
11336 /*:ref: setmsg_ 14 2 13 124 */
11337 /*:ref: errch_ 14 4 13 13 124 124 */
11338 /*:ref: sigerr_ 14 2 13 124 */
11339 /*:ref: chkout_ 14 2 13 124 */
11340 /*:ref: errint_ 14 3 13 4 124 */
11341 /*:ref: errdp_ 14 3 13 7 124 */
11342 /*:ref: vnorm_ 7 1 7 */
11343 /*:ref: vminus_ 14 2 7 7 */
11344 /*:ref: frame_ 14 3 7 7 7 */
11345 /*:ref: vequ_ 14 2 7 7 */
11346 /*:ref: twopi_ 7 0 */
11347 /*:ref: latrec_ 14 4 7 7 7 7 */
11348 /*:ref: halfpi_ 7 0 */
11349 /*:ref: touchd_ 7 1 7 */
11350 /*:ref: mxv_ 14 3 7 7 7 */
11351 /*:ref: vadd_ 14 3 7 7 7 */
11352 /*:ref: nvp2pl_ 14 3 7 7 7 */
11353 /*:ref: pl2nvc_ 14 3 7 7 7 */
11354 /*:ref: vpack_ 14 4 7 7 7 7 */
11355 /*:ref: vscl_ 14 3 7 7 7 */
11356 /*:ref: vsub_ 14 3 7 7 7 */
11357 /*:ref: vsep_ 7 2 7 7 */
11358 /*:ref: vdot_ 7 2 7 7 */
11359 
11360 extern int zzedtmpt_(logical *umbral, doublereal *a, doublereal *b, doublereal *c__, doublereal *r__, doublereal *axis, doublereal *plnvec, doublereal *point);
11361 /*:ref: return_ 12 0 */
11362 /*:ref: chkin_ 14 2 13 124 */
11363 /*:ref: setmsg_ 14 2 13 124 */
11364 /*:ref: errdp_ 14 3 13 7 124 */
11365 /*:ref: sigerr_ 14 2 13 124 */
11366 /*:ref: chkout_ 14 2 13 124 */
11367 /*:ref: vzero_ 12 1 7 */
11368 /*:ref: vnorm_ 7 1 7 */
11369 /*:ref: cleard_ 14 2 4 7 */
11370 /*:ref: mxv_ 14 3 7 7 7 */
11371 /*:ref: vhat_ 14 2 7 7 */
11372 /*:ref: vcrss_ 14 3 7 7 7 */
11373 /*:ref: dasine_ 7 2 7 7 */
11374 /*:ref: failed_ 12 0 */
11375 /*:ref: halfpi_ 7 0 */
11376 /*:ref: vrotv_ 14 4 7 7 7 7 */
11377 /*:ref: vdot_ 7 2 7 7 */
11378 /*:ref: vscl_ 14 3 7 7 7 */
11379 /*:ref: ednmpt_ 14 5 7 7 7 7 7 */
11380 /*:ref: vadd_ 14 3 7 7 7 */
11381 /*:ref: vequ_ 14 2 7 7 */
11382 /*:ref: touchd_ 7 1 7 */
11383 /*:ref: vperp_ 14 3 7 7 7 */
11384 /*:ref: vdist_ 7 2 7 7 */
11385 /*:ref: errint_ 14 3 13 4 124 */
11386 
11387 extern int zzekac01_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *rcptrs, integer *wkindx);
11388 /*:ref: return_ 12 0 */
11389 /*:ref: chkin_ 14 2 13 124 */
11390 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11391 /*:ref: setmsg_ 14 2 13 124 */
11392 /*:ref: errint_ 14 3 13 4 124 */
11393 /*:ref: errch_ 14 4 13 13 124 124 */
11394 /*:ref: sigerr_ 14 2 13 124 */
11395 /*:ref: chkout_ 14 2 13 124 */
11396 /*:ref: zzekspsh_ 14 2 4 4 */
11397 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11398 /*:ref: cleari_ 14 2 4 4 */
11399 /*:ref: zzekpgwi_ 14 3 4 4 4 */
11400 /*:ref: zzekordi_ 14 5 4 12 12 4 4 */
11401 /*:ref: zzektrit_ 14 2 4 4 */
11402 /*:ref: zzektr1s_ 14 4 4 4 4 4 */
11403 /*:ref: dasudi_ 14 4 4 4 4 4 */
11404 
11405 extern int zzekac02_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *rcptrs, integer *wkindx);
11406 /*:ref: return_ 12 0 */
11407 /*:ref: chkin_ 14 2 13 124 */
11408 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11409 /*:ref: setmsg_ 14 2 13 124 */
11410 /*:ref: errint_ 14 3 13 4 124 */
11411 /*:ref: errch_ 14 4 13 13 124 124 */
11412 /*:ref: sigerr_ 14 2 13 124 */
11413 /*:ref: chkout_ 14 2 13 124 */
11414 /*:ref: zzekspsh_ 14 2 4 4 */
11415 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11416 /*:ref: cleard_ 14 2 4 7 */
11417 /*:ref: zzekpgwd_ 14 3 4 4 7 */
11418 /*:ref: zzekordd_ 14 5 7 12 12 4 4 */
11419 /*:ref: zzektrit_ 14 2 4 4 */
11420 /*:ref: zzektr1s_ 14 4 4 4 4 4 */
11421 /*:ref: dasudi_ 14 4 4 4 4 4 */
11422 
11423 extern int zzekac03_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen cvals_len);
11424 /*:ref: return_ 12 0 */
11425 /*:ref: chkin_ 14 2 13 124 */
11426 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11427 /*:ref: setmsg_ 14 2 13 124 */
11428 /*:ref: errint_ 14 3 13 4 124 */
11429 /*:ref: errch_ 14 4 13 13 124 124 */
11430 /*:ref: sigerr_ 14 2 13 124 */
11431 /*:ref: chkout_ 14 2 13 124 */
11432 /*:ref: zzekspsh_ 14 2 4 4 */
11433 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11434 /*:ref: prtenc_ 14 3 4 13 124 */
11435 /*:ref: rtrim_ 4 2 13 124 */
11436 /*:ref: prtdec_ 14 3 13 4 124 */
11437 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
11438 /*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */
11439 /*:ref: zzektrit_ 14 2 4 4 */
11440 /*:ref: zzektr1s_ 14 4 4 4 4 4 */
11441 /*:ref: dasudi_ 14 4 4 4 4 4 */
11442 
11443 extern int zzekac04_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, integer *entszs, logical *nlflgs);
11444 /*:ref: return_ 12 0 */
11445 /*:ref: chkin_ 14 2 13 124 */
11446 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11447 /*:ref: setmsg_ 14 2 13 124 */
11448 /*:ref: errint_ 14 3 13 4 124 */
11449 /*:ref: errch_ 14 4 13 13 124 124 */
11450 /*:ref: sigerr_ 14 2 13 124 */
11451 /*:ref: chkout_ 14 2 13 124 */
11452 /*:ref: zzekspsh_ 14 2 4 4 */
11453 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11454 /*:ref: cleari_ 14 2 4 4 */
11455 /*:ref: zzekpgwi_ 14 3 4 4 4 */
11456 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11457 
11458 extern int zzekac05_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, integer *entszs, logical *nlflgs);
11459 /*:ref: return_ 12 0 */
11460 /*:ref: chkin_ 14 2 13 124 */
11461 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11462 /*:ref: setmsg_ 14 2 13 124 */
11463 /*:ref: errint_ 14 3 13 4 124 */
11464 /*:ref: errch_ 14 4 13 13 124 124 */
11465 /*:ref: sigerr_ 14 2 13 124 */
11466 /*:ref: chkout_ 14 2 13 124 */
11467 /*:ref: zzekspsh_ 14 2 4 4 */
11468 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11469 /*:ref: cleard_ 14 2 4 7 */
11470 /*:ref: zzekpgwd_ 14 3 4 4 7 */
11471 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11472 
11473 extern int zzekac06_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, integer *entszs, logical *nlflgs, ftnlen cvals_len);
11474 /*:ref: return_ 12 0 */
11475 /*:ref: chkin_ 14 2 13 124 */
11476 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11477 /*:ref: setmsg_ 14 2 13 124 */
11478 /*:ref: errint_ 14 3 13 4 124 */
11479 /*:ref: errch_ 14 4 13 13 124 124 */
11480 /*:ref: sigerr_ 14 2 13 124 */
11481 /*:ref: chkout_ 14 2 13 124 */
11482 /*:ref: zzekspsh_ 14 2 4 4 */
11483 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11484 /*:ref: prtenc_ 14 3 4 13 124 */
11485 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
11486 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11487 
11488 extern int zzekac07_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *wkindx);
11489 /*:ref: return_ 12 0 */
11490 /*:ref: chkin_ 14 2 13 124 */
11491 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11492 /*:ref: setmsg_ 14 2 13 124 */
11493 /*:ref: errint_ 14 3 13 4 124 */
11494 /*:ref: errch_ 14 4 13 13 124 124 */
11495 /*:ref: sigerr_ 14 2 13 124 */
11496 /*:ref: chkout_ 14 2 13 124 */
11497 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
11498 /*:ref: cleari_ 14 2 4 4 */
11499 /*:ref: zzekpgwi_ 14 3 4 4 4 */
11500 /*:ref: dasudi_ 14 4 4 4 4 4 */
11501 /*:ref: zzekordi_ 14 5 4 12 12 4 4 */
11502 /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */
11503 /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */
11504 
11505 extern int zzekac08_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *wkindx);
11506 /*:ref: return_ 12 0 */
11507 /*:ref: chkin_ 14 2 13 124 */
11508 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11509 /*:ref: setmsg_ 14 2 13 124 */
11510 /*:ref: errint_ 14 3 13 4 124 */
11511 /*:ref: errch_ 14 4 13 13 124 124 */
11512 /*:ref: sigerr_ 14 2 13 124 */
11513 /*:ref: chkout_ 14 2 13 124 */
11514 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
11515 /*:ref: cleard_ 14 2 4 7 */
11516 /*:ref: zzekpgwd_ 14 3 4 4 7 */
11517 /*:ref: dasudi_ 14 4 4 4 4 4 */
11518 /*:ref: zzekordd_ 14 5 7 12 12 4 4 */
11519 /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */
11520 /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */
11521 
11522 extern int zzekac09_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *wkindx, ftnlen cvals_len);
11523 /*:ref: return_ 12 0 */
11524 /*:ref: chkin_ 14 2 13 124 */
11525 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11526 /*:ref: setmsg_ 14 2 13 124 */
11527 /*:ref: errint_ 14 3 13 4 124 */
11528 /*:ref: errch_ 14 4 13 13 124 124 */
11529 /*:ref: sigerr_ 14 2 13 124 */
11530 /*:ref: chkout_ 14 2 13 124 */
11531 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
11532 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
11533 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11534 /*:ref: dasudi_ 14 4 4 4 4 4 */
11535 /*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */
11536 /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */
11537 /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */
11538 
11539 extern int zzekacps_(integer *handle, integer *segdsc, integer *type__, integer *n, integer *p, integer *base);
11540 /*:ref: zzekpgan_ 14 4 4 4 4 4 */
11541 /*:ref: failed_ 12 0 */
11542 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11543 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11544 /*:ref: zzektrap_ 14 4 4 4 4 4 */
11545 
11546 extern int zzekad01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull);
11547 /*:ref: chkin_ 14 2 13 124 */
11548 /*:ref: setmsg_ 14 2 13 124 */
11549 /*:ref: errint_ 14 3 13 4 124 */
11550 /*:ref: sigerr_ 14 2 13 124 */
11551 /*:ref: chkout_ 14 2 13 124 */
11552 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11553 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11554 /*:ref: dasudi_ 14 4 4 4 4 4 */
11555 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11556 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11557 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11558 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11559 /*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */
11560 
11561 extern int zzekad02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull);
11562 /*:ref: chkin_ 14 2 13 124 */
11563 /*:ref: setmsg_ 14 2 13 124 */
11564 /*:ref: errint_ 14 3 13 4 124 */
11565 /*:ref: sigerr_ 14 2 13 124 */
11566 /*:ref: chkout_ 14 2 13 124 */
11567 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11568 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11569 /*:ref: dasudi_ 14 4 4 4 4 4 */
11570 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11571 /*:ref: dasudd_ 14 4 4 4 4 7 */
11572 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11573 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11574 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11575 /*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */
11576 
11577 extern int zzekad03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len);
11578 /*:ref: chkin_ 14 2 13 124 */
11579 /*:ref: setmsg_ 14 2 13 124 */
11580 /*:ref: errint_ 14 3 13 4 124 */
11581 /*:ref: sigerr_ 14 2 13 124 */
11582 /*:ref: chkout_ 14 2 13 124 */
11583 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11584 /*:ref: rtrim_ 4 2 13 124 */
11585 /*:ref: dasudi_ 14 4 4 4 4 4 */
11586 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11587 /*:ref: zzeksei_ 14 3 4 4 4 */
11588 /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */
11589 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11590 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11591 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11592 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11593 /*:ref: zzekiic1_ 14 7 4 4 4 13 4 12 124 */
11594 
11595 extern int zzekad04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull);
11596 /*:ref: chkin_ 14 2 13 124 */
11597 /*:ref: setmsg_ 14 2 13 124 */
11598 /*:ref: errint_ 14 3 13 4 124 */
11599 /*:ref: sigerr_ 14 2 13 124 */
11600 /*:ref: chkout_ 14 2 13 124 */
11601 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11602 /*:ref: dasudi_ 14 4 4 4 4 4 */
11603 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11604 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11605 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11606 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11607 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11608 
11609 extern int zzekad05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull);
11610 /*:ref: chkin_ 14 2 13 124 */
11611 /*:ref: setmsg_ 14 2 13 124 */
11612 /*:ref: errint_ 14 3 13 4 124 */
11613 /*:ref: sigerr_ 14 2 13 124 */
11614 /*:ref: chkout_ 14 2 13 124 */
11615 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11616 /*:ref: dasudi_ 14 4 4 4 4 4 */
11617 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11618 /*:ref: dasudd_ 14 4 4 4 4 7 */
11619 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11620 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11621 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11622 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11623 
11624 extern int zzekad06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len);
11625 /*:ref: chkin_ 14 2 13 124 */
11626 /*:ref: setmsg_ 14 2 13 124 */
11627 /*:ref: errint_ 14 3 13 4 124 */
11628 /*:ref: sigerr_ 14 2 13 124 */
11629 /*:ref: chkout_ 14 2 13 124 */
11630 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11631 /*:ref: dasudi_ 14 4 4 4 4 4 */
11632 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11633 /*:ref: failed_ 12 0 */
11634 /*:ref: zzeksei_ 14 3 4 4 4 */
11635 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11636 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11637 /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */
11638 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11639 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11640 
11641 extern int zzekaps_(integer *handle, integer *segdsc, integer *type__, logical *new__, integer *p, integer *base);
11642 /*:ref: zzekpgan_ 14 4 4 4 4 4 */
11643 /*:ref: zzekpgal_ 14 4 4 4 4 4 */
11644 /*:ref: failed_ 12 0 */
11645 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11646 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
11647 /*:ref: zzektrap_ 14 4 4 4 4 4 */
11648 
11649 extern int zzekbs01_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len);
11650 /*:ref: return_ 12 0 */
11651 /*:ref: chkin_ 14 2 13 124 */
11652 /*:ref: zzekpgch_ 14 3 4 13 124 */
11653 /*:ref: failed_ 12 0 */
11654 /*:ref: chkout_ 14 2 13 124 */
11655 /*:ref: zzekpgan_ 14 4 4 4 4 4 */
11656 /*:ref: zzektrit_ 14 2 4 4 */
11657 /*:ref: cleari_ 14 2 4 4 */
11658 /*:ref: eknseg_ 4 1 4 */
11659 /*:ref: ljust_ 14 4 13 13 124 124 */
11660 /*:ref: ucase_ 14 4 13 13 124 124 */
11661 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
11662 /*:ref: zzekcix1_ 14 2 4 4 */
11663 /*:ref: movei_ 14 3 4 4 4 */
11664 /*:ref: zzekpgwi_ 14 3 4 4 4 */
11665 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11666 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11667 /*:ref: zzektrap_ 14 4 4 4 4 4 */
11668 
11669 extern int zzekbs02_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len);
11670 /*:ref: return_ 12 0 */
11671 /*:ref: chkin_ 14 2 13 124 */
11672 /*:ref: zzekpgch_ 14 3 4 13 124 */
11673 /*:ref: failed_ 12 0 */
11674 /*:ref: chkout_ 14 2 13 124 */
11675 /*:ref: zzekpgan_ 14 4 4 4 4 4 */
11676 /*:ref: zzektrit_ 14 2 4 4 */
11677 /*:ref: cleari_ 14 2 4 4 */
11678 /*:ref: eknseg_ 4 1 4 */
11679 /*:ref: ljust_ 14 4 13 13 124 124 */
11680 /*:ref: ucase_ 14 4 13 13 124 124 */
11681 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
11682 /*:ref: movei_ 14 3 4 4 4 */
11683 /*:ref: zzekpgwi_ 14 3 4 4 4 */
11684 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11685 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11686 /*:ref: zzektrap_ 14 4 4 4 4 4 */
11687 
11688 extern int zzekcchk_(char *query, integer *eqryi, char *eqryc, integer *ntab, char *tablst, char *alslst, integer *base, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen tablst_len, ftnlen alslst_len, ftnlen errmsg_len);
11689 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
11690 /*:ref: failed_ 12 0 */
11691 /*:ref: chkin_ 14 2 13 124 */
11692 /*:ref: setmsg_ 14 2 13 124 */
11693 /*:ref: sigerr_ 14 2 13 124 */
11694 /*:ref: chkout_ 14 2 13 124 */
11695 /*:ref: errint_ 14 3 13 4 124 */
11696 /*:ref: ekccnt_ 14 3 13 4 124 */
11697 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
11698 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
11699 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
11700 
11701 extern int zzekcdsc_(integer *handle, integer *segdsc, char *column, integer *coldsc, ftnlen column_len);
11702 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11703 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
11704 /*:ref: eqstr_ 12 4 13 13 124 124 */
11705 /*:ref: chkin_ 14 2 13 124 */
11706 /*:ref: setmsg_ 14 2 13 124 */
11707 /*:ref: errch_ 14 4 13 13 124 124 */
11708 /*:ref: errint_ 14 3 13 4 124 */
11709 /*:ref: errhan_ 14 3 13 4 124 */
11710 /*:ref: sigerr_ 14 2 13 124 */
11711 /*:ref: chkout_ 14 2 13 124 */
11712 
11713 extern int zzekcix1_(integer *handle, integer *coldsc);
11714 /*:ref: return_ 12 0 */
11715 /*:ref: chkin_ 14 2 13 124 */
11716 /*:ref: zzekpgch_ 14 3 4 13 124 */
11717 /*:ref: failed_ 12 0 */
11718 /*:ref: chkout_ 14 2 13 124 */
11719 /*:ref: zzektrit_ 14 2 4 4 */
11720 
11721 extern int zzekcnam_(integer *handle, integer *coldsc, char *column, ftnlen column_len);
11722 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
11723 
11724 extern int zzekde01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
11725 /*:ref: return_ 12 0 */
11726 /*:ref: chkin_ 14 2 13 124 */
11727 /*:ref: zzekpgch_ 14 3 4 13 124 */
11728 /*:ref: failed_ 12 0 */
11729 /*:ref: chkout_ 14 2 13 124 */
11730 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11731 /*:ref: zzekixdl_ 14 4 4 4 4 4 */
11732 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
11733 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11734 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11735 /*:ref: zzekdps_ 14 4 4 4 4 4 */
11736 /*:ref: dasudi_ 14 4 4 4 4 4 */
11737 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11738 /*:ref: setmsg_ 14 2 13 124 */
11739 /*:ref: errint_ 14 3 13 4 124 */
11740 /*:ref: errhan_ 14 3 13 4 124 */
11741 /*:ref: sigerr_ 14 2 13 124 */
11742 
11743 extern int zzekde02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
11744 /*:ref: return_ 12 0 */
11745 /*:ref: chkin_ 14 2 13 124 */
11746 /*:ref: zzekpgch_ 14 3 4 13 124 */
11747 /*:ref: failed_ 12 0 */
11748 /*:ref: chkout_ 14 2 13 124 */
11749 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11750 /*:ref: zzekixdl_ 14 4 4 4 4 4 */
11751 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
11752 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11753 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11754 /*:ref: zzekdps_ 14 4 4 4 4 4 */
11755 /*:ref: dasudi_ 14 4 4 4 4 4 */
11756 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11757 /*:ref: setmsg_ 14 2 13 124 */
11758 /*:ref: errint_ 14 3 13 4 124 */
11759 /*:ref: errhan_ 14 3 13 4 124 */
11760 /*:ref: sigerr_ 14 2 13 124 */
11761 
11762 extern int zzekde03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
11763 /*:ref: return_ 12 0 */
11764 /*:ref: chkin_ 14 2 13 124 */
11765 /*:ref: zzekpgch_ 14 3 4 13 124 */
11766 /*:ref: failed_ 12 0 */
11767 /*:ref: chkout_ 14 2 13 124 */
11768 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11769 /*:ref: zzekixdl_ 14 4 4 4 4 4 */
11770 /*:ref: zzekgei_ 14 3 4 4 4 */
11771 /*:ref: dasudi_ 14 4 4 4 4 4 */
11772 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
11773 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
11774 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11775 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11776 /*:ref: zzekdps_ 14 4 4 4 4 4 */
11777 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11778 /*:ref: setmsg_ 14 2 13 124 */
11779 /*:ref: errint_ 14 3 13 4 124 */
11780 /*:ref: errhan_ 14 3 13 4 124 */
11781 /*:ref: sigerr_ 14 2 13 124 */
11782 
11783 extern int zzekde04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
11784 /*:ref: return_ 12 0 */
11785 /*:ref: chkin_ 14 2 13 124 */
11786 /*:ref: zzekpgch_ 14 3 4 13 124 */
11787 /*:ref: failed_ 12 0 */
11788 /*:ref: chkout_ 14 2 13 124 */
11789 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11790 /*:ref: dasudi_ 14 4 4 4 4 4 */
11791 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
11792 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
11793 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11794 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11795 /*:ref: zzekdps_ 14 4 4 4 4 4 */
11796 /*:ref: setmsg_ 14 2 13 124 */
11797 /*:ref: errint_ 14 3 13 4 124 */
11798 /*:ref: errhan_ 14 3 13 4 124 */
11799 /*:ref: sigerr_ 14 2 13 124 */
11800 
11801 extern int zzekde05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
11802 /*:ref: return_ 12 0 */
11803 /*:ref: chkin_ 14 2 13 124 */
11804 /*:ref: zzekpgch_ 14 3 4 13 124 */
11805 /*:ref: failed_ 12 0 */
11806 /*:ref: chkout_ 14 2 13 124 */
11807 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11808 /*:ref: dasrdd_ 14 4 4 4 4 7 */
11809 /*:ref: dasudi_ 14 4 4 4 4 4 */
11810 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
11811 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
11812 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11813 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11814 /*:ref: zzekdps_ 14 4 4 4 4 4 */
11815 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11816 /*:ref: setmsg_ 14 2 13 124 */
11817 /*:ref: errint_ 14 3 13 4 124 */
11818 /*:ref: errhan_ 14 3 13 4 124 */
11819 /*:ref: sigerr_ 14 2 13 124 */
11820 
11821 extern int zzekde06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
11822 /*:ref: return_ 12 0 */
11823 /*:ref: chkin_ 14 2 13 124 */
11824 /*:ref: zzekpgch_ 14 3 4 13 124 */
11825 /*:ref: failed_ 12 0 */
11826 /*:ref: chkout_ 14 2 13 124 */
11827 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11828 /*:ref: zzekgei_ 14 3 4 4 4 */
11829 /*:ref: dasudi_ 14 4 4 4 4 4 */
11830 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
11831 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
11832 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
11833 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
11834 /*:ref: zzekdps_ 14 4 4 4 4 4 */
11835 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11836 /*:ref: setmsg_ 14 2 13 124 */
11837 /*:ref: errint_ 14 3 13 4 124 */
11838 /*:ref: errhan_ 14 3 13 4 124 */
11839 /*:ref: sigerr_ 14 2 13 124 */
11840 
11841 extern int zzekdps_(integer *handle, integer *segdsc, integer *type__, integer *p);
11842 /*:ref: zzekpgfr_ 14 3 4 4 4 */
11843 /*:ref: failed_ 12 0 */
11844 /*:ref: dasudi_ 14 4 4 4 4 4 */
11845 /*:ref: zzektrls_ 4 3 4 4 4 */
11846 /*:ref: zzektrdl_ 14 3 4 4 4 */
11847 
11848 extern integer zzekecmp_(integer *hans, integer *sgdscs, integer *cldscs, integer *rows, integer *elts);
11849 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
11850 /*:ref: chkin_ 14 2 13 124 */
11851 /*:ref: setmsg_ 14 2 13 124 */
11852 /*:ref: errhan_ 14 3 13 4 124 */
11853 /*:ref: errint_ 14 3 13 4 124 */
11854 /*:ref: sigerr_ 14 2 13 124 */
11855 /*:ref: chkout_ 14 2 13 124 */
11856 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
11857 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
11858 
11859 extern int zzekencd_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len);
11860 /*:ref: return_ 12 0 */
11861 /*:ref: chkin_ 14 2 13 124 */
11862 /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */
11863 /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */
11864 /*:ref: chkout_ 14 2 13 124 */
11865 /*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */
11866 /*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */
11867 /*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */
11868 /*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */
11869 
11870 extern int zzekerc1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len);
11871 /*:ref: failed_ 12 0 */
11872 /*:ref: zzektrsz_ 4 2 4 4 */
11873 /*:ref: chkin_ 14 2 13 124 */
11874 /*:ref: setmsg_ 14 2 13 124 */
11875 /*:ref: errint_ 14 3 13 4 124 */
11876 /*:ref: sigerr_ 14 2 13 124 */
11877 /*:ref: chkout_ 14 2 13 124 */
11878 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
11879 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
11880 
11881 extern int zzekerd1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr);
11882 /*:ref: failed_ 12 0 */
11883 /*:ref: zzektrsz_ 4 2 4 4 */
11884 /*:ref: chkin_ 14 2 13 124 */
11885 /*:ref: setmsg_ 14 2 13 124 */
11886 /*:ref: errint_ 14 3 13 4 124 */
11887 /*:ref: sigerr_ 14 2 13 124 */
11888 /*:ref: chkout_ 14 2 13 124 */
11889 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
11890 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
11891 
11892 extern int zzekeri1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr);
11893 /*:ref: failed_ 12 0 */
11894 /*:ref: zzektrsz_ 4 2 4 4 */
11895 /*:ref: chkin_ 14 2 13 124 */
11896 /*:ref: setmsg_ 14 2 13 124 */
11897 /*:ref: errint_ 14 3 13 4 124 */
11898 /*:ref: sigerr_ 14 2 13 124 */
11899 /*:ref: chkout_ 14 2 13 124 */
11900 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
11901 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
11902 
11903 extern integer zzekesiz_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
11904 /*:ref: zzeksz04_ 4 4 4 4 4 4 */
11905 /*:ref: zzeksz05_ 4 4 4 4 4 4 */
11906 /*:ref: zzeksz06_ 4 4 4 4 4 4 */
11907 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
11908 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11909 /*:ref: chkin_ 14 2 13 124 */
11910 /*:ref: setmsg_ 14 2 13 124 */
11911 /*:ref: errint_ 14 3 13 4 124 */
11912 /*:ref: errch_ 14 4 13 13 124 124 */
11913 /*:ref: errhan_ 14 3 13 4 124 */
11914 /*:ref: sigerr_ 14 2 13 124 */
11915 /*:ref: chkout_ 14 2 13 124 */
11916 
11917 extern int zzekff01_(integer *handle, integer *segno, integer *rcptrs);
11918 /*:ref: return_ 12 0 */
11919 /*:ref: chkin_ 14 2 13 124 */
11920 /*:ref: zzeksrd_ 14 3 4 4 4 */
11921 /*:ref: setmsg_ 14 2 13 124 */
11922 /*:ref: errint_ 14 3 13 4 124 */
11923 /*:ref: sigerr_ 14 2 13 124 */
11924 /*:ref: chkout_ 14 2 13 124 */
11925 /*:ref: zzekmloc_ 14 4 4 4 4 4 */
11926 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11927 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
11928 /*:ref: cleari_ 14 2 4 4 */
11929 /*:ref: zzekpgwi_ 14 3 4 4 4 */
11930 /*:ref: zzektrit_ 14 2 4 4 */
11931 /*:ref: zzektr1s_ 14 4 4 4 4 4 */
11932 /*:ref: dasudi_ 14 4 4 4 4 4 */
11933 
11934 extern int zzekfrx_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *pos);
11935 /*:ref: return_ 12 0 */
11936 /*:ref: chkin_ 14 2 13 124 */
11937 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
11938 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
11939 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
11940 /*:ref: setmsg_ 14 2 13 124 */
11941 /*:ref: errhan_ 14 3 13 4 124 */
11942 /*:ref: errint_ 14 3 13 4 124 */
11943 /*:ref: sigerr_ 14 2 13 124 */
11944 /*:ref: chkout_ 14 2 13 124 */
11945 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11946 /*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */
11947 /*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */
11948 /*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */
11949 
11950 extern int zzekgcdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr);
11951 /*:ref: zzekrp2n_ 4 3 4 4 4 */
11952 /*:ref: chkin_ 14 2 13 124 */
11953 /*:ref: setmsg_ 14 2 13 124 */
11954 /*:ref: errint_ 14 3 13 4 124 */
11955 /*:ref: errhan_ 14 3 13 4 124 */
11956 /*:ref: sigerr_ 14 2 13 124 */
11957 /*:ref: chkout_ 14 2 13 124 */
11958 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11959 
11960 extern int zzekgei_(integer *handle, integer *addrss, integer *ival);
11961 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
11962 /*:ref: prtdec_ 14 3 13 4 124 */
11963 
11964 extern int zzekgfwd_(integer *handle, integer *type__, integer *p, integer *fward);
11965 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11966 /*:ref: failed_ 12 0 */
11967 /*:ref: zzekgei_ 14 3 4 4 4 */
11968 /*:ref: dasrdd_ 14 4 4 4 4 7 */
11969 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11970 
11971 extern int zzekglnk_(integer *handle, integer *type__, integer *p, integer *nlinks);
11972 /*:ref: zzekpgbs_ 14 3 4 4 4 */
11973 /*:ref: failed_ 12 0 */
11974 /*:ref: zzekgei_ 14 3 4 4 4 */
11975 /*:ref: dasrdd_ 14 4 4 4 4 7 */
11976 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11977 
11978 extern int zzekgrcp_(integer *handle, integer *recptr, integer *ptr);
11979 /*:ref: zzekpgch_ 14 3 4 13 124 */
11980 /*:ref: failed_ 12 0 */
11981 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11982 
11983 extern int zzekgrs_(integer *handle, integer *recptr, integer *status);
11984 /*:ref: dasrdi_ 14 4 4 4 4 4 */
11985 
11986 extern int zzekif01_(integer *handle, integer *segno, integer *rcptrs);
11987 /*:ref: return_ 12 0 */
11988 /*:ref: chkin_ 14 2 13 124 */
11989 /*:ref: zzeksdsc_ 14 3 4 4 4 */
11990 /*:ref: zzekstop_ 14 1 4 */
11991 /*:ref: zzeksdec_ 14 1 4 */
11992 /*:ref: zzekspsh_ 14 2 4 4 */
11993 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
11994 /*:ref: chkout_ 14 2 13 124 */
11995 
11996 extern int zzekif02_(integer *handle, integer *segno);
11997 /*:ref: return_ 12 0 */
11998 /*:ref: chkin_ 14 2 13 124 */
11999 /*:ref: zzekmloc_ 14 4 4 4 4 4 */
12000 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12001 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
12002 /*:ref: dasudi_ 14 4 4 4 4 4 */
12003 /*:ref: setmsg_ 14 2 13 124 */
12004 /*:ref: errint_ 14 3 13 4 124 */
12005 /*:ref: sigerr_ 14 2 13 124 */
12006 /*:ref: chkout_ 14 2 13 124 */
12007 
12008 extern int zzekiic1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, ftnlen ckey_len);
12009 /*:ref: failed_ 12 0 */
12010 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12011 /*:ref: chkin_ 14 2 13 124 */
12012 /*:ref: setmsg_ 14 2 13 124 */
12013 /*:ref: errch_ 14 4 13 13 124 124 */
12014 /*:ref: sigerr_ 14 2 13 124 */
12015 /*:ref: chkout_ 14 2 13 124 */
12016 /*:ref: errint_ 14 3 13 4 124 */
12017 /*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */
12018 /*:ref: zzektrin_ 14 4 4 4 4 4 */
12019 
12020 extern int zzekiid1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null);
12021 /*:ref: failed_ 12 0 */
12022 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12023 /*:ref: chkin_ 14 2 13 124 */
12024 /*:ref: setmsg_ 14 2 13 124 */
12025 /*:ref: errch_ 14 4 13 13 124 124 */
12026 /*:ref: sigerr_ 14 2 13 124 */
12027 /*:ref: chkout_ 14 2 13 124 */
12028 /*:ref: errint_ 14 3 13 4 124 */
12029 /*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */
12030 /*:ref: zzektrin_ 14 4 4 4 4 4 */
12031 
12032 extern int zzekiii1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null);
12033 /*:ref: failed_ 12 0 */
12034 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12035 /*:ref: chkin_ 14 2 13 124 */
12036 /*:ref: setmsg_ 14 2 13 124 */
12037 /*:ref: errch_ 14 4 13 13 124 124 */
12038 /*:ref: sigerr_ 14 2 13 124 */
12039 /*:ref: chkout_ 14 2 13 124 */
12040 /*:ref: errint_ 14 3 13 4 124 */
12041 /*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */
12042 /*:ref: zzektrin_ 14 4 4 4 4 4 */
12043 
12044 extern integer zzekille_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len);
12045 /*:ref: return_ 12 0 */
12046 /*:ref: chkin_ 14 2 13 124 */
12047 /*:ref: setmsg_ 14 2 13 124 */
12048 /*:ref: errint_ 14 3 13 4 124 */
12049 /*:ref: sigerr_ 14 2 13 124 */
12050 /*:ref: chkout_ 14 2 13 124 */
12051 /*:ref: zzekllec_ 14 7 4 4 4 13 4 4 124 */
12052 /*:ref: zzeklled_ 14 6 4 4 4 7 4 4 */
12053 /*:ref: zzekllei_ 14 6 4 4 4 4 4 4 */
12054 
12055 extern integer zzekillt_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len);
12056 /*:ref: return_ 12 0 */
12057 /*:ref: chkin_ 14 2 13 124 */
12058 /*:ref: setmsg_ 14 2 13 124 */
12059 /*:ref: errint_ 14 3 13 4 124 */
12060 /*:ref: sigerr_ 14 2 13 124 */
12061 /*:ref: chkout_ 14 2 13 124 */
12062 /*:ref: zzeklltc_ 14 7 4 4 4 13 4 4 124 */
12063 /*:ref: zzeklltd_ 14 6 4 4 4 7 4 4 */
12064 /*:ref: zzekllti_ 14 6 4 4 4 4 4 4 */
12065 
12066 extern int zzekinqc_(char *value, integer *length, integer *lexbeg, integer *lexend, integer *eqryi, char *eqryc, integer *descr, ftnlen value_len, ftnlen eqryc_len);
12067 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12068 /*:ref: chkin_ 14 2 13 124 */
12069 /*:ref: setmsg_ 14 2 13 124 */
12070 /*:ref: sigerr_ 14 2 13 124 */
12071 /*:ref: chkout_ 14 2 13 124 */
12072 /*:ref: errint_ 14 3 13 4 124 */
12073 /*:ref: cleari_ 14 2 4 4 */
12074 /*:ref: zzekweqi_ 14 4 13 4 4 124 */
12075 
12076 extern int zzekinqn_(doublereal *value, integer *type__, integer *lexbeg, integer *lexend, integer *eqryi, doublereal *eqryd, integer *descr);
12077 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12078 /*:ref: chkin_ 14 2 13 124 */
12079 /*:ref: setmsg_ 14 2 13 124 */
12080 /*:ref: sigerr_ 14 2 13 124 */
12081 /*:ref: chkout_ 14 2 13 124 */
12082 /*:ref: errint_ 14 3 13 4 124 */
12083 /*:ref: cleari_ 14 2 4 4 */
12084 /*:ref: zzekweqi_ 14 4 13 4 4 124 */
12085 
12086 extern int zzekixdl_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
12087 /*:ref: return_ 12 0 */
12088 /*:ref: chkin_ 14 2 13 124 */
12089 /*:ref: zzekfrx_ 14 5 4 4 4 4 4 */
12090 /*:ref: zzektrdl_ 14 3 4 4 4 */
12091 /*:ref: setmsg_ 14 2 13 124 */
12092 /*:ref: errint_ 14 3 13 4 124 */
12093 /*:ref: sigerr_ 14 2 13 124 */
12094 /*:ref: chkout_ 14 2 13 124 */
12095 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12096 /*:ref: errhan_ 14 3 13 4 124 */
12097 
12098 extern int zzekixlk_(integer *handle, integer *coldsc, integer *key, integer *recptr);
12099 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
12100 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12101 /*:ref: chkin_ 14 2 13 124 */
12102 /*:ref: setmsg_ 14 2 13 124 */
12103 /*:ref: errint_ 14 3 13 4 124 */
12104 /*:ref: sigerr_ 14 2 13 124 */
12105 /*:ref: chkout_ 14 2 13 124 */
12106 
12107 extern int zzekjoin_(integer *jbase1, integer *jbase2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *jbase3, integer *nrows);
12108 /*:ref: chkin_ 14 2 13 124 */
12109 /*:ref: setmsg_ 14 2 13 124 */
12110 /*:ref: errint_ 14 3 13 4 124 */
12111 /*:ref: sigerr_ 14 2 13 124 */
12112 /*:ref: chkout_ 14 2 13 124 */
12113 /*:ref: zzeksrd_ 14 3 4 4 4 */
12114 /*:ref: zzekstop_ 14 1 4 */
12115 /*:ref: zzekspsh_ 14 2 4 4 */
12116 /*:ref: zzeksupd_ 14 3 4 4 4 */
12117 /*:ref: zzekjprp_ 14 23 4 4 4 4 4 4 4 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 */
12118 /*:ref: zzekjnxt_ 14 2 12 4 */
12119 
12120 extern int zzekjsqz_(integer *jrsbas);
12121 /*:ref: zzeksrd_ 14 3 4 4 4 */
12122 /*:ref: failed_ 12 0 */
12123 /*:ref: zzeksupd_ 14 3 4 4 4 */
12124 
12125 extern int zzekjsrt_(integer *njrs, integer *ubases, integer *norder, integer *otabs, integer *ocols, integer *oelts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *ordbas);
12126 /*:ref: return_ 12 0 */
12127 /*:ref: chkin_ 14 2 13 124 */
12128 /*:ref: setmsg_ 14 2 13 124 */
12129 /*:ref: errint_ 14 3 13 4 124 */
12130 /*:ref: sigerr_ 14 2 13 124 */
12131 /*:ref: chkout_ 14 2 13 124 */
12132 /*:ref: zzeksrd_ 14 3 4 4 4 */
12133 /*:ref: zzekvset_ 14 2 4 4 */
12134 /*:ref: zzekvcal_ 14 3 4 4 4 */
12135 /*:ref: lnknxt_ 4 2 4 4 */
12136 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
12137 /*:ref: errhan_ 14 3 13 4 124 */
12138 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
12139 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
12140 /*:ref: zzekvcmp_ 12 15 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */
12141 /*:ref: swapi_ 14 2 4 4 */
12142 /*:ref: zzekstop_ 14 1 4 */
12143 /*:ref: zzekspsh_ 14 2 4 4 */
12144 /*:ref: zzeksupd_ 14 3 4 4 4 */
12145 
12146 extern int zzekjtst_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, logical *found, integer *rowvec);
12147 extern int zzekjprp_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs);
12148 extern int zzekjnxt_(logical *found, integer *rowvec);
12149 /*:ref: chkin_ 14 2 13 124 */
12150 /*:ref: sigerr_ 14 2 13 124 */
12151 /*:ref: chkout_ 14 2 13 124 */
12152 /*:ref: return_ 12 0 */
12153 /*:ref: movei_ 14 3 4 4 4 */
12154 /*:ref: lnknxt_ 4 2 4 4 */
12155 /*:ref: zzekstop_ 14 1 4 */
12156 /*:ref: zzekspsh_ 14 2 4 4 */
12157 /*:ref: zzeksrd_ 14 3 4 4 4 */
12158 /*:ref: zzeksupd_ 14 3 4 4 4 */
12159 /*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */
12160 /*:ref: zzekrcmp_ 12 12 4 4 4 4 4 4 4 4 4 4 4 4 */
12161 /*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */
12162 
12163 extern int zzekkey_(integer *handle, integer *segdsc, integer *nrows, integer *ncnstr, integer *clidxs, integer *dsclst, integer *ops, integer *dtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, logical *active, integer *key, integer *keydsc, integer *begidx, integer *endidx, logical *found, ftnlen chrbuf_len);
12164 /*:ref: return_ 12 0 */
12165 /*:ref: chkin_ 14 2 13 124 */
12166 /*:ref: setmsg_ 14 2 13 124 */
12167 /*:ref: errint_ 14 3 13 4 124 */
12168 /*:ref: sigerr_ 14 2 13 124 */
12169 /*:ref: chkout_ 14 2 13 124 */
12170 /*:ref: ssizei_ 14 2 4 4 */
12171 /*:ref: insrti_ 14 2 4 4 */
12172 /*:ref: cardi_ 4 1 4 */
12173 /*:ref: zzekillt_ 4 9 4 4 4 4 4 13 7 4 124 */
12174 /*:ref: zzekille_ 4 9 4 4 4 4 4 13 7 4 124 */
12175 /*:ref: failed_ 12 0 */
12176 /*:ref: ordi_ 4 2 4 4 */
12177 /*:ref: movei_ 14 3 4 4 4 */
12178 
12179 extern int zzeklerc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len);
12180 /*:ref: failed_ 12 0 */
12181 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12182 /*:ref: chkin_ 14 2 13 124 */
12183 /*:ref: setmsg_ 14 2 13 124 */
12184 /*:ref: errch_ 14 4 13 13 124 124 */
12185 /*:ref: sigerr_ 14 2 13 124 */
12186 /*:ref: chkout_ 14 2 13 124 */
12187 /*:ref: errint_ 14 3 13 4 124 */
12188 /*:ref: zzekerc1_ 14 9 4 4 4 13 4 12 4 4 124 */
12189 
12190 extern int zzeklerd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr);
12191 /*:ref: failed_ 12 0 */
12192 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12193 /*:ref: chkin_ 14 2 13 124 */
12194 /*:ref: setmsg_ 14 2 13 124 */
12195 /*:ref: errch_ 14 4 13 13 124 124 */
12196 /*:ref: sigerr_ 14 2 13 124 */
12197 /*:ref: chkout_ 14 2 13 124 */
12198 /*:ref: errint_ 14 3 13 4 124 */
12199 /*:ref: zzekerd1_ 14 8 4 4 4 7 4 12 4 4 */
12200 
12201 extern int zzekleri_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr);
12202 /*:ref: failed_ 12 0 */
12203 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12204 /*:ref: chkin_ 14 2 13 124 */
12205 /*:ref: setmsg_ 14 2 13 124 */
12206 /*:ref: errch_ 14 4 13 13 124 124 */
12207 /*:ref: sigerr_ 14 2 13 124 */
12208 /*:ref: chkout_ 14 2 13 124 */
12209 /*:ref: errint_ 14 3 13 4 124 */
12210 /*:ref: zzekeri1_ 14 8 4 4 4 4 4 12 4 4 */
12211 
12212 extern int zzekllec_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len);
12213 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12214 /*:ref: chkin_ 14 2 13 124 */
12215 /*:ref: setmsg_ 14 2 13 124 */
12216 /*:ref: errch_ 14 4 13 13 124 124 */
12217 /*:ref: sigerr_ 14 2 13 124 */
12218 /*:ref: chkout_ 14 2 13 124 */
12219 /*:ref: errint_ 14 3 13 4 124 */
12220 /*:ref: zzekixlk_ 14 4 4 4 4 4 */
12221 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
12222 
12223 extern int zzeklled_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr);
12224 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12225 /*:ref: chkin_ 14 2 13 124 */
12226 /*:ref: setmsg_ 14 2 13 124 */
12227 /*:ref: errch_ 14 4 13 13 124 124 */
12228 /*:ref: sigerr_ 14 2 13 124 */
12229 /*:ref: chkout_ 14 2 13 124 */
12230 /*:ref: errint_ 14 3 13 4 124 */
12231 /*:ref: zzekixlk_ 14 4 4 4 4 4 */
12232 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
12233 
12234 extern int zzekllei_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr);
12235 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12236 /*:ref: chkin_ 14 2 13 124 */
12237 /*:ref: setmsg_ 14 2 13 124 */
12238 /*:ref: errch_ 14 4 13 13 124 124 */
12239 /*:ref: sigerr_ 14 2 13 124 */
12240 /*:ref: chkout_ 14 2 13 124 */
12241 /*:ref: errint_ 14 3 13 4 124 */
12242 /*:ref: zzekixlk_ 14 4 4 4 4 4 */
12243 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
12244 
12245 extern int zzeklltc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len);
12246 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12247 /*:ref: chkin_ 14 2 13 124 */
12248 /*:ref: setmsg_ 14 2 13 124 */
12249 /*:ref: errch_ 14 4 13 13 124 124 */
12250 /*:ref: sigerr_ 14 2 13 124 */
12251 /*:ref: chkout_ 14 2 13 124 */
12252 /*:ref: errint_ 14 3 13 4 124 */
12253 /*:ref: zzekixlk_ 14 4 4 4 4 4 */
12254 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
12255 
12256 extern int zzeklltd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr);
12257 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12258 /*:ref: chkin_ 14 2 13 124 */
12259 /*:ref: setmsg_ 14 2 13 124 */
12260 /*:ref: errch_ 14 4 13 13 124 124 */
12261 /*:ref: sigerr_ 14 2 13 124 */
12262 /*:ref: chkout_ 14 2 13 124 */
12263 /*:ref: errint_ 14 3 13 4 124 */
12264 /*:ref: zzekixlk_ 14 4 4 4 4 4 */
12265 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
12266 
12267 extern int zzekllti_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr);
12268 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12269 /*:ref: chkin_ 14 2 13 124 */
12270 /*:ref: setmsg_ 14 2 13 124 */
12271 /*:ref: errch_ 14 4 13 13 124 124 */
12272 /*:ref: sigerr_ 14 2 13 124 */
12273 /*:ref: chkout_ 14 2 13 124 */
12274 /*:ref: errint_ 14 3 13 4 124 */
12275 /*:ref: zzekixlk_ 14 4 4 4 4 4 */
12276 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
12277 
12278 extern int zzekmloc_(integer *handle, integer *segno, integer *page, integer *base);
12279 /*:ref: eknseg_ 4 1 4 */
12280 /*:ref: chkin_ 14 2 13 124 */
12281 /*:ref: setmsg_ 14 2 13 124 */
12282 /*:ref: errint_ 14 3 13 4 124 */
12283 /*:ref: sigerr_ 14 2 13 124 */
12284 /*:ref: chkout_ 14 2 13 124 */
12285 /*:ref: zzektrbs_ 4 1 4 */
12286 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12287 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
12288 
12289 extern int zzeknres_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len);
12290 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12291 /*:ref: failed_ 12 0 */
12292 /*:ref: chkin_ 14 2 13 124 */
12293 /*:ref: setmsg_ 14 2 13 124 */
12294 /*:ref: sigerr_ 14 2 13 124 */
12295 /*:ref: chkout_ 14 2 13 124 */
12296 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
12297 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
12298 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
12299 /*:ref: ekntab_ 14 1 4 */
12300 /*:ref: ektnam_ 14 3 4 13 124 */
12301 /*:ref: ekccnt_ 14 3 13 4 124 */
12302 /*:ref: zzekcchk_ 14 15 13 4 13 4 13 13 4 12 13 4 124 124 124 124 124 */
12303 /*:ref: zzekweqi_ 14 4 13 4 4 124 */
12304 
12305 extern int zzeknrml_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len);
12306 /*:ref: return_ 12 0 */
12307 /*:ref: chkin_ 14 2 13 124 */
12308 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
12309 /*:ref: chkout_ 14 2 13 124 */
12310 /*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */
12311 /*:ref: lnkini_ 14 2 4 4 */
12312 /*:ref: lnkan_ 14 2 4 4 */
12313 /*:ref: lnkila_ 14 3 4 4 4 */
12314 /*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */
12315 /*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */
12316 /*:ref: isrchi_ 4 3 4 4 4 */
12317 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
12318 /*:ref: lnkhl_ 4 2 4 4 */
12319 /*:ref: lnkprv_ 4 2 4 4 */
12320 /*:ref: lnknxt_ 4 2 4 4 */
12321 /*:ref: lnkfsl_ 14 3 4 4 4 */
12322 /*:ref: cleari_ 14 2 4 4 */
12323 /*:ref: lnkilb_ 14 3 4 4 4 */
12324 /*:ref: lnknfn_ 4 1 4 */
12325 /*:ref: lnktl_ 4 2 4 4 */
12326 /*:ref: ssizei_ 14 2 4 4 */
12327 /*:ref: insrti_ 14 2 4 4 */
12328 /*:ref: cardi_ 4 1 4 */
12329 /*:ref: appndi_ 14 2 4 4 */
12330 /*:ref: zzekweqi_ 14 4 13 4 4 124 */
12331 
12332 extern int zzekordc_(char *cvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder, ftnlen cvals_len);
12333 /*:ref: swapi_ 14 2 4 4 */
12334 
12335 extern int zzekordd_(doublereal *dvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder);
12336 /*:ref: swapi_ 14 2 4 4 */
12337 
12338 extern int zzekordi_(integer *ivals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder);
12339 /*:ref: swapi_ 14 2 4 4 */
12340 
12341 extern int zzekpage_(integer *handle, integer *type__, integer *addrss, char *stat, integer *p, char *pagec, doublereal *paged, integer *pagei, integer *base, integer *value, ftnlen stat_len, ftnlen pagec_len);
12342 extern int zzekpgin_(integer *handle);
12343 extern int zzekpgan_(integer *handle, integer *type__, integer *p, integer *base);
12344 extern int zzekpgal_(integer *handle, integer *type__, integer *p, integer *base);
12345 extern int zzekpgfr_(integer *handle, integer *type__, integer *p);
12346 extern int zzekpgrc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len);
12347 extern int zzekpgrd_(integer *handle, integer *p, doublereal *paged);
12348 extern int zzekpgri_(integer *handle, integer *p, integer *pagei);
12349 extern int zzekpgwc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len);
12350 extern int zzekpgwd_(integer *handle, integer *p, doublereal *paged);
12351 extern int zzekpgwi_(integer *handle, integer *p, integer *pagei);
12352 extern int zzekpgbs_(integer *type__, integer *p, integer *base);
12353 extern int zzekpgpg_(integer *type__, integer *addrss, integer *p, integer *base);
12354 extern int zzekpgst_(integer *handle, char *stat, integer *value, ftnlen stat_len);
12355 /*:ref: sigerr_ 14 2 13 124 */
12356 /*:ref: chkin_ 14 2 13 124 */
12357 /*:ref: dassih_ 14 3 4 13 124 */
12358 /*:ref: failed_ 12 0 */
12359 /*:ref: chkout_ 14 2 13 124 */
12360 /*:ref: daslla_ 14 4 4 4 4 4 */
12361 /*:ref: setmsg_ 14 2 13 124 */
12362 /*:ref: errhan_ 14 3 13 4 124 */
12363 /*:ref: errint_ 14 3 13 4 124 */
12364 /*:ref: fillc_ 14 5 13 4 13 124 124 */
12365 /*:ref: filld_ 14 3 7 4 7 */
12366 /*:ref: filli_ 14 3 4 4 4 */
12367 /*:ref: dasadi_ 14 3 4 4 4 */
12368 /*:ref: dasudi_ 14 4 4 4 4 4 */
12369 /*:ref: zzekpgch_ 14 3 4 13 124 */
12370 /*:ref: dasadc_ 14 6 4 4 4 4 13 124 */
12371 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12372 /*:ref: dasadd_ 14 3 4 4 7 */
12373 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
12374 /*:ref: prtdec_ 14 3 13 4 124 */
12375 /*:ref: dasrdd_ 14 4 4 4 4 7 */
12376 /*:ref: prtenc_ 14 3 4 13 124 */
12377 /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */
12378 /*:ref: dasudd_ 14 4 4 4 4 7 */
12379 /*:ref: eqstr_ 12 4 13 13 124 124 */
12380 /*:ref: errch_ 14 4 13 13 124 124 */
12381 
12382 extern int zzekpars_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len);
12383 /*:ref: return_ 12 0 */
12384 /*:ref: chkin_ 14 2 13 124 */
12385 /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */
12386 /*:ref: failed_ 12 0 */
12387 /*:ref: chkout_ 14 2 13 124 */
12388 /*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */
12389 /*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */
12390 /*:ref: appndi_ 14 2 4 4 */
12391 /*:ref: cleari_ 14 2 4 4 */
12392 /*:ref: zzekweqi_ 14 4 13 4 4 124 */
12393 /*:ref: movei_ 14 3 4 4 4 */
12394 /*:ref: cardi_ 4 1 4 */
12395 /*:ref: zzeknrml_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */
12396 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
12397 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
12398 
12399 extern int zzekpcol_(char *qcol, integer *eqryi, char *eqryc, char *table, char *alias, integer *tabidx, char *column, integer *colidx, logical *error, char *errmsg, ftnlen qcol_len, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len, ftnlen column_len, ftnlen errmsg_len);
12400 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12401 /*:ref: failed_ 12 0 */
12402 /*:ref: chkin_ 14 2 13 124 */
12403 /*:ref: setmsg_ 14 2 13 124 */
12404 /*:ref: sigerr_ 14 2 13 124 */
12405 /*:ref: chkout_ 14 2 13 124 */
12406 /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */
12407 /*:ref: ucase_ 14 4 13 13 124 124 */
12408 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
12409 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
12410 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
12411 /*:ref: ekccnt_ 14 3 13 4 124 */
12412 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
12413 
12414 extern int zzekpdec_(char *decl, integer *pardsc, ftnlen decl_len);
12415 /*:ref: return_ 12 0 */
12416 /*:ref: chkin_ 14 2 13 124 */
12417 /*:ref: cleari_ 14 2 4 4 */
12418 /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */
12419 /*:ref: ucase_ 14 4 13 13 124 124 */
12420 /*:ref: setmsg_ 14 2 13 124 */
12421 /*:ref: errch_ 14 4 13 13 124 124 */
12422 /*:ref: sigerr_ 14 2 13 124 */
12423 /*:ref: chkout_ 14 2 13 124 */
12424 /*:ref: eqstr_ 12 4 13 13 124 124 */
12425 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
12426 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
12427 
12428 extern int zzekpgch_(integer *handle, char *access, ftnlen access_len);
12429 /*:ref: chkin_ 14 2 13 124 */
12430 /*:ref: dassih_ 14 3 4 13 124 */
12431 /*:ref: failed_ 12 0 */
12432 /*:ref: chkout_ 14 2 13 124 */
12433 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12434 /*:ref: setmsg_ 14 2 13 124 */
12435 /*:ref: errhan_ 14 3 13 4 124 */
12436 /*:ref: errint_ 14 3 13 4 124 */
12437 /*:ref: sigerr_ 14 2 13 124 */
12438 /*:ref: daslla_ 14 4 4 4 4 4 */
12439 
12440 extern int zzekqcnj_(integer *eqryi, integer *n, integer *size);
12441 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12442 /*:ref: failed_ 12 0 */
12443 /*:ref: chkin_ 14 2 13 124 */
12444 /*:ref: setmsg_ 14 2 13 124 */
12445 /*:ref: sigerr_ 14 2 13 124 */
12446 /*:ref: chkout_ 14 2 13 124 */
12447 /*:ref: errint_ 14 3 13 4 124 */
12448 
12449 extern int zzekqcon_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *n, integer *cnstyp, char *ltname, integer *ltidx, char *lcname, integer *lcidx, integer *opcode, char *rtname, integer *rtidx, char *rcname, integer *rcidx, integer *dtype, integer *cbeg, integer *cend, doublereal *dval, integer *ival, ftnlen eqryc_len, ftnlen ltname_len, ftnlen lcname_len, ftnlen rtname_len, ftnlen rcname_len);
12450 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12451 /*:ref: failed_ 12 0 */
12452 /*:ref: chkin_ 14 2 13 124 */
12453 /*:ref: setmsg_ 14 2 13 124 */
12454 /*:ref: sigerr_ 14 2 13 124 */
12455 /*:ref: chkout_ 14 2 13 124 */
12456 /*:ref: errint_ 14 3 13 4 124 */
12457 
12458 extern int zzekqini_(integer *isize, integer *dsize, integer *eqryi, char *eqryc, doublereal *eqryd, ftnlen eqryc_len);
12459 /*:ref: return_ 12 0 */
12460 /*:ref: chkin_ 14 2 13 124 */
12461 /*:ref: setmsg_ 14 2 13 124 */
12462 /*:ref: errint_ 14 3 13 4 124 */
12463 /*:ref: sigerr_ 14 2 13 124 */
12464 /*:ref: chkout_ 14 2 13 124 */
12465 /*:ref: ssizei_ 14 2 4 4 */
12466 /*:ref: cleard_ 14 2 4 7 */
12467 /*:ref: appndi_ 14 2 4 4 */
12468 /*:ref: cleari_ 14 2 4 4 */
12469 
12470 extern int zzekqord_(integer *eqryi, char *eqryc, integer *n, char *table, integer *tabidx, char *column, integer *colidx, integer *sense, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len);
12471 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12472 /*:ref: failed_ 12 0 */
12473 /*:ref: chkin_ 14 2 13 124 */
12474 /*:ref: setmsg_ 14 2 13 124 */
12475 /*:ref: sigerr_ 14 2 13 124 */
12476 /*:ref: chkout_ 14 2 13 124 */
12477 /*:ref: errint_ 14 3 13 4 124 */
12478 
12479 extern int zzekqsel_(integer *eqryi, char *eqryc, integer *n, integer *lxbeg, integer *lxend, char *table, integer *tabidx, char *column, integer *colidx, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len);
12480 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12481 /*:ref: failed_ 12 0 */
12482 /*:ref: chkin_ 14 2 13 124 */
12483 /*:ref: setmsg_ 14 2 13 124 */
12484 /*:ref: sigerr_ 14 2 13 124 */
12485 /*:ref: chkout_ 14 2 13 124 */
12486 /*:ref: errint_ 14 3 13 4 124 */
12487 
12488 extern int zzekqtab_(integer *eqryi, char *eqryc, integer *n, char *table, char *alias, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len);
12489 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12490 /*:ref: failed_ 12 0 */
12491 /*:ref: chkin_ 14 2 13 124 */
12492 /*:ref: setmsg_ 14 2 13 124 */
12493 /*:ref: sigerr_ 14 2 13 124 */
12494 /*:ref: chkout_ 14 2 13 124 */
12495 /*:ref: errint_ 14 3 13 4 124 */
12496 
12497 extern int zzekrbck_(char *action, integer *handle, integer *segdsc, integer *coldsc, integer *recno, ftnlen action_len);
12498 
12499 extern logical zzekrcmp_(integer *op, integer *ncols, integer *han1, integer *sgdsc1, integer *cdlst1, integer *row1, integer *elts1, integer *han2, integer *sgdsc2, integer *cdlst2, integer *row2, integer *elts2);
12500 /*:ref: movei_ 14 3 4 4 4 */
12501 /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */
12502 /*:ref: chkin_ 14 2 13 124 */
12503 /*:ref: setmsg_ 14 2 13 124 */
12504 /*:ref: errint_ 14 3 13 4 124 */
12505 /*:ref: sigerr_ 14 2 13 124 */
12506 /*:ref: chkout_ 14 2 13 124 */
12507 
12508 extern int zzekrd01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull);
12509 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12510 /*:ref: chkin_ 14 2 13 124 */
12511 /*:ref: setmsg_ 14 2 13 124 */
12512 /*:ref: errint_ 14 3 13 4 124 */
12513 /*:ref: errhan_ 14 3 13 4 124 */
12514 /*:ref: sigerr_ 14 2 13 124 */
12515 /*:ref: chkout_ 14 2 13 124 */
12516 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12517 
12518 extern int zzekrd02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull);
12519 /*:ref: chkin_ 14 2 13 124 */
12520 /*:ref: setmsg_ 14 2 13 124 */
12521 /*:ref: errint_ 14 3 13 4 124 */
12522 /*:ref: sigerr_ 14 2 13 124 */
12523 /*:ref: chkout_ 14 2 13 124 */
12524 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12525 /*:ref: dasrdd_ 14 4 4 4 4 7 */
12526 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12527 /*:ref: errhan_ 14 3 13 4 124 */
12528 
12529 extern int zzekrd03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len);
12530 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12531 /*:ref: chkin_ 14 2 13 124 */
12532 /*:ref: setmsg_ 14 2 13 124 */
12533 /*:ref: errint_ 14 3 13 4 124 */
12534 /*:ref: errhan_ 14 3 13 4 124 */
12535 /*:ref: sigerr_ 14 2 13 124 */
12536 /*:ref: chkout_ 14 2 13 124 */
12537 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12538 /*:ref: zzekgei_ 14 3 4 4 4 */
12539 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
12540 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
12541 /*:ref: zzekpgbs_ 14 3 4 4 4 */
12542 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12543 /*:ref: errch_ 14 4 13 13 124 124 */
12544 
12545 extern int zzekrd04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, integer *ivals, logical *isnull, logical *found);
12546 /*:ref: chkin_ 14 2 13 124 */
12547 /*:ref: setmsg_ 14 2 13 124 */
12548 /*:ref: errint_ 14 3 13 4 124 */
12549 /*:ref: sigerr_ 14 2 13 124 */
12550 /*:ref: chkout_ 14 2 13 124 */
12551 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12552 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
12553 /*:ref: zzekpgbs_ 14 3 4 4 4 */
12554 /*:ref: failed_ 12 0 */
12555 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
12556 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12557 /*:ref: errhan_ 14 3 13 4 124 */
12558 
12559 extern int zzekrd05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, doublereal *dvals, logical *isnull, logical *found);
12560 /*:ref: chkin_ 14 2 13 124 */
12561 /*:ref: setmsg_ 14 2 13 124 */
12562 /*:ref: errint_ 14 3 13 4 124 */
12563 /*:ref: sigerr_ 14 2 13 124 */
12564 /*:ref: chkout_ 14 2 13 124 */
12565 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12566 /*:ref: dasrdd_ 14 4 4 4 4 7 */
12567 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
12568 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
12569 /*:ref: zzekpgbs_ 14 3 4 4 4 */
12570 /*:ref: failed_ 12 0 */
12571 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12572 /*:ref: errhan_ 14 3 13 4 124 */
12573 
12574 extern int zzekrd06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, char *cvals, logical *isnull, logical *found, ftnlen cvals_len);
12575 /*:ref: chkin_ 14 2 13 124 */
12576 /*:ref: setmsg_ 14 2 13 124 */
12577 /*:ref: errint_ 14 3 13 4 124 */
12578 /*:ref: sigerr_ 14 2 13 124 */
12579 /*:ref: chkout_ 14 2 13 124 */
12580 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12581 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12582 /*:ref: errch_ 14 4 13 13 124 124 */
12583 /*:ref: errhan_ 14 3 13 4 124 */
12584 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12585 /*:ref: zzekgei_ 14 3 4 4 4 */
12586 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
12587 /*:ref: zzekpgbs_ 14 3 4 4 4 */
12588 /*:ref: failed_ 12 0 */
12589 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
12590 
12591 extern int zzekrd07_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull);
12592 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12593 /*:ref: chkin_ 14 2 13 124 */
12594 /*:ref: setmsg_ 14 2 13 124 */
12595 /*:ref: errint_ 14 3 13 4 124 */
12596 /*:ref: errhan_ 14 3 13 4 124 */
12597 /*:ref: sigerr_ 14 2 13 124 */
12598 /*:ref: chkout_ 14 2 13 124 */
12599 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12600 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
12601 
12602 extern int zzekrd08_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull);
12603 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12604 /*:ref: chkin_ 14 2 13 124 */
12605 /*:ref: setmsg_ 14 2 13 124 */
12606 /*:ref: errint_ 14 3 13 4 124 */
12607 /*:ref: errhan_ 14 3 13 4 124 */
12608 /*:ref: sigerr_ 14 2 13 124 */
12609 /*:ref: chkout_ 14 2 13 124 */
12610 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12611 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
12612 /*:ref: dasrdd_ 14 4 4 4 4 7 */
12613 
12614 extern int zzekrd09_(integer *handle, integer *segdsc, integer *coldsc, integer *recno, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len);
12615 /*:ref: chkin_ 14 2 13 124 */
12616 /*:ref: setmsg_ 14 2 13 124 */
12617 /*:ref: errint_ 14 3 13 4 124 */
12618 /*:ref: errhan_ 14 3 13 4 124 */
12619 /*:ref: sigerr_ 14 2 13 124 */
12620 /*:ref: chkout_ 14 2 13 124 */
12621 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12622 /*:ref: errch_ 14 4 13 13 124 124 */
12623 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12624 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
12625 
12626 extern int zzekreqi_(integer *eqryi, char *name__, integer *value, ftnlen name_len);
12627 /*:ref: ljust_ 14 4 13 13 124 124 */
12628 /*:ref: ucase_ 14 4 13 13 124 124 */
12629 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
12630 /*:ref: chkin_ 14 2 13 124 */
12631 /*:ref: setmsg_ 14 2 13 124 */
12632 /*:ref: errch_ 14 4 13 13 124 124 */
12633 /*:ref: sigerr_ 14 2 13 124 */
12634 /*:ref: chkout_ 14 2 13 124 */
12635 
12636 extern logical zzekrmch_(integer *ncnstr, logical *active, integer *handle, integer *segdsc, integer *cdscrs, integer *row, integer *elts, integer *ops, integer *vtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, ftnlen chrbuf_len);
12637 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
12638 
12639 extern integer zzekrp2n_(integer *handle, integer *segno, integer *recptr);
12640 /*:ref: zzeksdsc_ 14 3 4 4 4 */
12641 /*:ref: failed_ 12 0 */
12642 /*:ref: zzektrls_ 4 3 4 4 4 */
12643 /*:ref: chkin_ 14 2 13 124 */
12644 /*:ref: setmsg_ 14 2 13 124 */
12645 /*:ref: errint_ 14 3 13 4 124 */
12646 /*:ref: errhan_ 14 3 13 4 124 */
12647 /*:ref: sigerr_ 14 2 13 124 */
12648 /*:ref: chkout_ 14 2 13 124 */
12649 
12650 extern int zzekrplk_(integer *handle, integer *segdsc, integer *n, integer *recptr);
12651 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
12652 /*:ref: chkin_ 14 2 13 124 */
12653 /*:ref: setmsg_ 14 2 13 124 */
12654 /*:ref: errint_ 14 3 13 4 124 */
12655 /*:ref: sigerr_ 14 2 13 124 */
12656 /*:ref: chkout_ 14 2 13 124 */
12657 
12658 extern int zzekrsc_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *cvlen, char *cval, logical *isnull, logical *found, ftnlen cval_len);
12659 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12660 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12661 /*:ref: chkin_ 14 2 13 124 */
12662 /*:ref: setmsg_ 14 2 13 124 */
12663 /*:ref: errch_ 14 4 13 13 124 124 */
12664 /*:ref: errint_ 14 3 13 4 124 */
12665 /*:ref: errhan_ 14 3 13 4 124 */
12666 /*:ref: sigerr_ 14 2 13 124 */
12667 /*:ref: chkout_ 14 2 13 124 */
12668 /*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */
12669 /*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */
12670 /*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */
12671 
12672 extern int zzekrsd_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, doublereal *dval, logical *isnull, logical *found);
12673 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12674 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12675 /*:ref: chkin_ 14 2 13 124 */
12676 /*:ref: setmsg_ 14 2 13 124 */
12677 /*:ref: errch_ 14 4 13 13 124 124 */
12678 /*:ref: errint_ 14 3 13 4 124 */
12679 /*:ref: errhan_ 14 3 13 4 124 */
12680 /*:ref: sigerr_ 14 2 13 124 */
12681 /*:ref: chkout_ 14 2 13 124 */
12682 /*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */
12683 /*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */
12684 /*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */
12685 
12686 extern int zzekrsi_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *ival, logical *isnull, logical *found);
12687 /*:ref: zzekcnam_ 14 4 4 4 13 124 */
12688 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12689 /*:ref: chkin_ 14 2 13 124 */
12690 /*:ref: setmsg_ 14 2 13 124 */
12691 /*:ref: errch_ 14 4 13 13 124 124 */
12692 /*:ref: errint_ 14 3 13 4 124 */
12693 /*:ref: errhan_ 14 3 13 4 124 */
12694 /*:ref: sigerr_ 14 2 13 124 */
12695 /*:ref: chkout_ 14 2 13 124 */
12696 /*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */
12697 /*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */
12698 /*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */
12699 
12700 extern int zzeksca_(integer *n, integer *beg, integer *end, integer *idata, integer *top);
12701 extern int zzekstop_(integer *top);
12702 extern int zzekspsh_(integer *n, integer *idata);
12703 extern int zzekspop_(integer *n, integer *idata);
12704 extern int zzeksdec_(integer *n);
12705 extern int zzeksupd_(integer *beg, integer *end, integer *idata);
12706 extern int zzeksrd_(integer *beg, integer *end, integer *idata);
12707 extern int zzekscln_(void);
12708 /*:ref: return_ 12 0 */
12709 /*:ref: chkin_ 14 2 13 124 */
12710 /*:ref: sigerr_ 14 2 13 124 */
12711 /*:ref: chkout_ 14 2 13 124 */
12712 /*:ref: dasops_ 14 1 4 */
12713 /*:ref: failed_ 12 0 */
12714 /*:ref: daslla_ 14 4 4 4 4 4 */
12715 /*:ref: dasudi_ 14 4 4 4 4 4 */
12716 /*:ref: dasadi_ 14 3 4 4 4 */
12717 /*:ref: setmsg_ 14 2 13 124 */
12718 /*:ref: errint_ 14 3 13 4 124 */
12719 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12720 /*:ref: cleari_ 14 2 4 4 */
12721 /*:ref: daswbr_ 14 1 4 */
12722 /*:ref: dasllc_ 14 1 4 */
12723 
12724 extern int zzekscan_(char *query, integer *maxntk, integer *maxnum, integer *ntoken, integer *tokens, integer *lxbegs, integer *lxends, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, logical *scnerr, char *errmsg, ftnlen query_len, ftnlen chrbuf_len, ftnlen errmsg_len);
12725 /*:ref: return_ 12 0 */
12726 /*:ref: chkin_ 14 2 13 124 */
12727 /*:ref: ssizei_ 14 2 4 4 */
12728 /*:ref: lxcsid_ 14 5 13 13 4 124 124 */
12729 /*:ref: rtrim_ 4 2 13 124 */
12730 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
12731 /*:ref: chkout_ 14 2 13 124 */
12732 /*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */
12733 /*:ref: parsqs_ 14 11 13 13 13 4 12 13 4 124 124 124 124 */
12734 /*:ref: prefix_ 14 5 13 4 13 124 124 */
12735 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
12736 /*:ref: lx4num_ 14 5 13 4 4 4 124 */
12737 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
12738 /*:ref: beint_ 12 2 13 124 */
12739 /*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */
12740 /*:ref: ucase_ 14 4 13 13 124 124 */
12741 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
12742 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
12743 /*:ref: frstpc_ 4 2 13 124 */
12744 /*:ref: suffix_ 14 5 13 4 13 124 124 */
12745 
12746 extern int zzekscdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr);
12747 /*:ref: zzekpgch_ 14 3 4 13 124 */
12748 /*:ref: failed_ 12 0 */
12749 /*:ref: zzekrp2n_ 4 3 4 4 4 */
12750 /*:ref: chkin_ 14 2 13 124 */
12751 /*:ref: setmsg_ 14 2 13 124 */
12752 /*:ref: errint_ 14 3 13 4 124 */
12753 /*:ref: errhan_ 14 3 13 4 124 */
12754 /*:ref: sigerr_ 14 2 13 124 */
12755 /*:ref: chkout_ 14 2 13 124 */
12756 /*:ref: dasudi_ 14 4 4 4 4 4 */
12757 
12758 extern logical zzekscmp_(integer *op, integer *handle, integer *segdsc, integer *coldsc, integer *row, integer *eltidx, integer *dtype, char *cval, doublereal *dval, integer *ival, logical *null, ftnlen cval_len);
12759 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
12760 /*:ref: failed_ 12 0 */
12761 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
12762 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
12763 /*:ref: chkin_ 14 2 13 124 */
12764 /*:ref: setmsg_ 14 2 13 124 */
12765 /*:ref: errint_ 14 3 13 4 124 */
12766 /*:ref: sigerr_ 14 2 13 124 */
12767 /*:ref: chkout_ 14 2 13 124 */
12768 /*:ref: errhan_ 14 3 13 4 124 */
12769 /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */
12770 
12771 extern int zzeksdsc_(integer *handle, integer *segno, integer *segdsc);
12772 /*:ref: zzekmloc_ 14 4 4 4 4 4 */
12773 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12774 
12775 extern int zzeksei_(integer *handle, integer *addrss, integer *ival);
12776 /*:ref: prtenc_ 14 3 4 13 124 */
12777 /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */
12778 
12779 extern int zzeksemc_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len);
12780 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12781 /*:ref: failed_ 12 0 */
12782 /*:ref: chkin_ 14 2 13 124 */
12783 /*:ref: setmsg_ 14 2 13 124 */
12784 /*:ref: sigerr_ 14 2 13 124 */
12785 /*:ref: chkout_ 14 2 13 124 */
12786 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
12787 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
12788 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
12789 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
12790 /*:ref: zzekweqi_ 14 4 13 4 4 124 */
12791 
12792 extern int zzeksfwd_(integer *handle, integer *type__, integer *p, integer *fward);
12793 /*:ref: zzekpgbs_ 14 3 4 4 4 */
12794 /*:ref: failed_ 12 0 */
12795 /*:ref: zzeksei_ 14 3 4 4 4 */
12796 /*:ref: dasudd_ 14 4 4 4 4 7 */
12797 /*:ref: dasudi_ 14 4 4 4 4 4 */
12798 
12799 extern int zzeksinf_(integer *handle, integer *segno, char *tabnam, integer *segdsc, char *cnames, integer *cdscrs, ftnlen tabnam_len, ftnlen cnames_len);
12800 /*:ref: return_ 12 0 */
12801 /*:ref: chkin_ 14 2 13 124 */
12802 /*:ref: zzekpgch_ 14 3 4 13 124 */
12803 /*:ref: failed_ 12 0 */
12804 /*:ref: chkout_ 14 2 13 124 */
12805 /*:ref: eknseg_ 4 1 4 */
12806 /*:ref: setmsg_ 14 2 13 124 */
12807 /*:ref: errint_ 14 3 13 4 124 */
12808 /*:ref: sigerr_ 14 2 13 124 */
12809 /*:ref: zzekmloc_ 14 4 4 4 4 4 */
12810 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12811 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
12812 
12813 extern int zzekslnk_(integer *handle, integer *type__, integer *p, integer *nlinks);
12814 /*:ref: zzekpgbs_ 14 3 4 4 4 */
12815 /*:ref: failed_ 12 0 */
12816 /*:ref: zzeksei_ 14 3 4 4 4 */
12817 /*:ref: dasudd_ 14 4 4 4 4 7 */
12818 /*:ref: dasudi_ 14 4 4 4 4 4 */
12819 
12820 extern int zzeksrcp_(integer *handle, integer *recptr, integer *recno);
12821 /*:ref: zzekpgch_ 14 3 4 13 124 */
12822 /*:ref: failed_ 12 0 */
12823 /*:ref: dasudi_ 14 4 4 4 4 4 */
12824 
12825 extern int zzeksrs_(integer *handle, integer *recptr, integer *status);
12826 /*:ref: zzekpgch_ 14 3 4 13 124 */
12827 /*:ref: failed_ 12 0 */
12828 /*:ref: dasudi_ 14 4 4 4 4 4 */
12829 
12830 extern integer zzekstyp_(integer *ncols, integer *cdscrs);
12831 /*:ref: return_ 12 0 */
12832 /*:ref: chkin_ 14 2 13 124 */
12833 /*:ref: setmsg_ 14 2 13 124 */
12834 /*:ref: sigerr_ 14 2 13 124 */
12835 /*:ref: chkout_ 14 2 13 124 */
12836 
12837 extern integer zzeksz04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
12838 /*:ref: chkin_ 14 2 13 124 */
12839 /*:ref: setmsg_ 14 2 13 124 */
12840 /*:ref: errint_ 14 3 13 4 124 */
12841 /*:ref: sigerr_ 14 2 13 124 */
12842 /*:ref: chkout_ 14 2 13 124 */
12843 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12844 
12845 extern integer zzeksz05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
12846 /*:ref: chkin_ 14 2 13 124 */
12847 /*:ref: setmsg_ 14 2 13 124 */
12848 /*:ref: errint_ 14 3 13 4 124 */
12849 /*:ref: sigerr_ 14 2 13 124 */
12850 /*:ref: chkout_ 14 2 13 124 */
12851 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12852 /*:ref: dasrdd_ 14 4 4 4 4 7 */
12853 
12854 extern integer zzeksz06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
12855 /*:ref: chkin_ 14 2 13 124 */
12856 /*:ref: setmsg_ 14 2 13 124 */
12857 /*:ref: errint_ 14 3 13 4 124 */
12858 /*:ref: sigerr_ 14 2 13 124 */
12859 /*:ref: chkout_ 14 2 13 124 */
12860 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12861 /*:ref: zzekgei_ 14 3 4 4 4 */
12862 
12863 extern int zzektcnv_(char *timstr, doublereal *et, logical *error, char *errmsg, ftnlen timstr_len, ftnlen errmsg_len);
12864 /*:ref: return_ 12 0 */
12865 /*:ref: chkin_ 14 2 13 124 */
12866 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
12867 /*:ref: ljust_ 14 4 13 13 124 124 */
12868 /*:ref: ucase_ 14 4 13 13 124 124 */
12869 /*:ref: posr_ 4 5 13 13 4 124 124 */
12870 /*:ref: rtrim_ 4 2 13 124 */
12871 /*:ref: scn2id_ 14 4 13 4 12 124 */
12872 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
12873 /*:ref: chkout_ 14 2 13 124 */
12874 /*:ref: scpars_ 14 7 4 13 12 13 7 124 124 */
12875 /*:ref: failed_ 12 0 */
12876 /*:ref: suffix_ 14 5 13 4 13 124 124 */
12877 /*:ref: sct2e_ 14 3 4 7 7 */
12878 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
12879 /*:ref: str2et_ 14 3 13 7 124 */
12880 
12881 extern int zzektloc_(integer *tokid, integer *kwcode, integer *ntoken, integer *tokens, integer *values, integer *loc, logical *found);
12882 
12883 extern int zzektr13_(integer *handle, integer *tree);
12884 /*:ref: zzekpgri_ 14 3 4 4 4 */
12885 /*:ref: chkin_ 14 2 13 124 */
12886 /*:ref: setmsg_ 14 2 13 124 */
12887 /*:ref: errint_ 14 3 13 4 124 */
12888 /*:ref: sigerr_ 14 2 13 124 */
12889 /*:ref: chkout_ 14 2 13 124 */
12890 /*:ref: zzekpgal_ 14 4 4 4 4 4 */
12891 /*:ref: cleari_ 14 2 4 4 */
12892 /*:ref: movei_ 14 3 4 4 4 */
12893 /*:ref: zzekpgwi_ 14 3 4 4 4 */
12894 
12895 extern int zzektr1s_(integer *handle, integer *tree, integer *size, integer *values);
12896 /*:ref: return_ 12 0 */
12897 /*:ref: chkin_ 14 2 13 124 */
12898 /*:ref: zzektrsz_ 4 2 4 4 */
12899 /*:ref: setmsg_ 14 2 13 124 */
12900 /*:ref: errint_ 14 3 13 4 124 */
12901 /*:ref: errhan_ 14 3 13 4 124 */
12902 /*:ref: sigerr_ 14 2 13 124 */
12903 /*:ref: chkout_ 14 2 13 124 */
12904 /*:ref: zzekpgri_ 14 3 4 4 4 */
12905 /*:ref: zzekpgal_ 14 4 4 4 4 4 */
12906 /*:ref: zzekpgwi_ 14 3 4 4 4 */
12907 /*:ref: cleari_ 14 2 4 4 */
12908 /*:ref: zzektrbs_ 4 1 4 */
12909 /*:ref: dasudi_ 14 4 4 4 4 4 */
12910 
12911 extern int zzektr23_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, logical *overfl);
12912 /*:ref: zzekpgri_ 14 3 4 4 4 */
12913 /*:ref: chkin_ 14 2 13 124 */
12914 /*:ref: setmsg_ 14 2 13 124 */
12915 /*:ref: errint_ 14 3 13 4 124 */
12916 /*:ref: sigerr_ 14 2 13 124 */
12917 /*:ref: chkout_ 14 2 13 124 */
12918 /*:ref: zzekpgal_ 14 4 4 4 4 4 */
12919 /*:ref: cleari_ 14 2 4 4 */
12920 /*:ref: movei_ 14 3 4 4 4 */
12921 /*:ref: zzektrbs_ 4 1 4 */
12922 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12923 /*:ref: dasudi_ 14 4 4 4 4 4 */
12924 /*:ref: zzekpgwi_ 14 3 4 4 4 */
12925 
12926 extern int zzektr31_(integer *handle, integer *tree);
12927 /*:ref: zzekpgri_ 14 3 4 4 4 */
12928 /*:ref: chkin_ 14 2 13 124 */
12929 /*:ref: setmsg_ 14 2 13 124 */
12930 /*:ref: errint_ 14 3 13 4 124 */
12931 /*:ref: sigerr_ 14 2 13 124 */
12932 /*:ref: chkout_ 14 2 13 124 */
12933 /*:ref: movei_ 14 3 4 4 4 */
12934 /*:ref: zzekpgwi_ 14 3 4 4 4 */
12935 /*:ref: zzekpgfr_ 14 3 4 4 4 */
12936 
12937 extern int zzektr32_(integer *handle, integer *tree, integer *left, integer *middle, integer *right, integer *parent, integer *lpkidx, logical *undrfl);
12938 /*:ref: zzekpgri_ 14 3 4 4 4 */
12939 /*:ref: chkin_ 14 2 13 124 */
12940 /*:ref: setmsg_ 14 2 13 124 */
12941 /*:ref: errint_ 14 3 13 4 124 */
12942 /*:ref: sigerr_ 14 2 13 124 */
12943 /*:ref: chkout_ 14 2 13 124 */
12944 /*:ref: movei_ 14 3 4 4 4 */
12945 /*:ref: zzektrbs_ 4 1 4 */
12946 /*:ref: dasrdi_ 14 4 4 4 4 4 */
12947 /*:ref: dasudi_ 14 4 4 4 4 4 */
12948 /*:ref: zzekpgwi_ 14 3 4 4 4 */
12949 /*:ref: zzekpgfr_ 14 3 4 4 4 */
12950 
12951 extern int zzektrap_(integer *handle, integer *tree, integer *value, integer *key);
12952 /*:ref: zzektrsz_ 4 2 4 4 */
12953 /*:ref: zzektrin_ 14 4 4 4 4 4 */
12954 
12955 extern int zzektrbn_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx);
12956 /*:ref: chkin_ 14 2 13 124 */
12957 /*:ref: setmsg_ 14 2 13 124 */
12958 /*:ref: sigerr_ 14 2 13 124 */
12959 /*:ref: chkout_ 14 2 13 124 */
12960 /*:ref: zzektrnk_ 4 3 4 4 4 */
12961 /*:ref: errint_ 14 3 13 4 124 */
12962 /*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */
12963 
12964 extern integer zzektrbs_(integer *node);
12965 /*:ref: zzekpgbs_ 14 3 4 4 4 */
12966 
12967 extern int zzektrdl_(integer *handle, integer *tree, integer *key);
12968 /*:ref: zzektrud_ 14 5 4 4 4 4 12 */
12969 /*:ref: failed_ 12 0 */
12970 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
12971 /*:ref: zzektrsb_ 14 7 4 4 4 4 4 4 4 */
12972 /*:ref: zzektrnk_ 4 3 4 4 4 */
12973 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
12974 /*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */
12975 /*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */
12976 /*:ref: zzektrki_ 14 5 4 4 4 4 4 */
12977 /*:ref: zzektr32_ 14 8 4 4 4 4 4 4 4 12 */
12978 /*:ref: zzektr31_ 14 2 4 4 */
12979 
12980 extern int zzektrdp_(integer *handle, integer *tree, integer *key, integer *ptr);
12981 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
12982 
12983 extern int zzektres_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len);
12984 /*:ref: zzekreqi_ 14 4 4 13 4 124 */
12985 /*:ref: failed_ 12 0 */
12986 /*:ref: chkin_ 14 2 13 124 */
12987 /*:ref: setmsg_ 14 2 13 124 */
12988 /*:ref: sigerr_ 14 2 13 124 */
12989 /*:ref: chkout_ 14 2 13 124 */
12990 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
12991 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
12992 /*:ref: zzektcnv_ 14 6 13 7 12 13 124 124 */
12993 /*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */
12994 /*:ref: movei_ 14 3 4 4 4 */
12995 /*:ref: zzekweqi_ 14 4 13 4 4 124 */
12996 
12997 extern int zzektrfr_(integer *handle, integer *tree);
12998 /*:ref: return_ 12 0 */
12999 /*:ref: chkin_ 14 2 13 124 */
13000 /*:ref: zzekpgri_ 14 3 4 4 4 */
13001 /*:ref: setmsg_ 14 2 13 124 */
13002 /*:ref: errint_ 14 3 13 4 124 */
13003 /*:ref: errhan_ 14 3 13 4 124 */
13004 /*:ref: sigerr_ 14 2 13 124 */
13005 /*:ref: chkout_ 14 2 13 124 */
13006 /*:ref: zzekpgfr_ 14 3 4 4 4 */
13007 
13008 extern int zzektrin_(integer *handle, integer *tree, integer *key, integer *value);
13009 /*:ref: zzektrui_ 14 5 4 4 4 4 12 */
13010 /*:ref: failed_ 12 0 */
13011 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
13012 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
13013 /*:ref: zzektrnk_ 4 3 4 4 4 */
13014 /*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */
13015 /*:ref: zzektrki_ 14 5 4 4 4 4 4 */
13016 /*:ref: zzektr23_ 14 7 4 4 4 4 4 4 12 */
13017 /*:ref: zzektr13_ 14 2 4 4 */
13018 
13019 extern int zzektrit_(integer *handle, integer *tree);
13020 /*:ref: return_ 12 0 */
13021 /*:ref: chkin_ 14 2 13 124 */
13022 /*:ref: zzekpgal_ 14 4 4 4 4 4 */
13023 /*:ref: cleari_ 14 2 4 4 */
13024 /*:ref: zzekpgwi_ 14 3 4 4 4 */
13025 /*:ref: chkout_ 14 2 13 124 */
13026 
13027 extern int zzektrki_(integer *handle, integer *tree, integer *nodkey, integer *n, integer *key);
13028 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
13029 /*:ref: zzektrnk_ 4 3 4 4 4 */
13030 /*:ref: chkin_ 14 2 13 124 */
13031 /*:ref: setmsg_ 14 2 13 124 */
13032 /*:ref: errint_ 14 3 13 4 124 */
13033 /*:ref: sigerr_ 14 2 13 124 */
13034 /*:ref: chkout_ 14 2 13 124 */
13035 /*:ref: zzektrbs_ 4 1 4 */
13036 /*:ref: dasrdi_ 14 4 4 4 4 4 */
13037 
13038 extern int zzektrlk_(integer *handle, integer *tree, integer *key, integer *idx, integer *node, integer *noffst, integer *level, integer *value);
13039 /*:ref: dasham_ 14 3 4 13 124 */
13040 /*:ref: zzekpgri_ 14 3 4 4 4 */
13041 /*:ref: chkin_ 14 2 13 124 */
13042 /*:ref: setmsg_ 14 2 13 124 */
13043 /*:ref: errint_ 14 3 13 4 124 */
13044 /*:ref: errhan_ 14 3 13 4 124 */
13045 /*:ref: sigerr_ 14 2 13 124 */
13046 /*:ref: chkout_ 14 2 13 124 */
13047 /*:ref: lstlei_ 4 3 4 4 4 */
13048 
13049 extern integer zzektrls_(integer *handle, integer *tree, integer *ival);
13050 /*:ref: zzektrsz_ 4 2 4 4 */
13051 /*:ref: zzektrdp_ 14 4 4 4 4 4 */
13052 
13053 extern integer zzektrnk_(integer *handle, integer *tree, integer *node);
13054 /*:ref: zzektrbs_ 4 1 4 */
13055 /*:ref: dasrdi_ 14 4 4 4 4 4 */
13056 
13057 extern int zzektrpi_(integer *handle, integer *tree, integer *key, integer *parent, integer *pkey, integer *poffst, integer *lpidx, integer *lpkey, integer *lsib, integer *rpidx, integer *rpkey, integer *rsib);
13058 /*:ref: zzekpgri_ 14 3 4 4 4 */
13059 /*:ref: chkin_ 14 2 13 124 */
13060 /*:ref: setmsg_ 14 2 13 124 */
13061 /*:ref: errint_ 14 3 13 4 124 */
13062 /*:ref: errhan_ 14 3 13 4 124 */
13063 /*:ref: sigerr_ 14 2 13 124 */
13064 /*:ref: chkout_ 14 2 13 124 */
13065 /*:ref: lstlei_ 4 3 4 4 4 */
13066 
13067 extern int zzektrrk_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, integer *nrot);
13068 /*:ref: chkin_ 14 2 13 124 */
13069 /*:ref: setmsg_ 14 2 13 124 */
13070 /*:ref: sigerr_ 14 2 13 124 */
13071 /*:ref: chkout_ 14 2 13 124 */
13072 /*:ref: zzekpgri_ 14 3 4 4 4 */
13073 /*:ref: failed_ 12 0 */
13074 /*:ref: errint_ 14 3 13 4 124 */
13075 /*:ref: movei_ 14 3 4 4 4 */
13076 /*:ref: zzekpgwi_ 14 3 4 4 4 */
13077 
13078 extern int zzektrsb_(integer *handle, integer *tree, integer *key, integer *lsib, integer *lkey, integer *rsib, integer *rkey);
13079 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
13080 /*:ref: failed_ 12 0 */
13081 /*:ref: zzektrbs_ 4 1 4 */
13082 /*:ref: dasrdi_ 14 4 4 4 4 4 */
13083 
13084 extern integer zzektrsz_(integer *handle, integer *tree);
13085 /*:ref: zzektrbs_ 4 1 4 */
13086 /*:ref: dasrdi_ 14 4 4 4 4 4 */
13087 
13088 extern int zzektrud_(integer *handle, integer *tree, integer *key, integer *trgkey, logical *undrfl);
13089 /*:ref: zzekpgri_ 14 3 4 4 4 */
13090 /*:ref: chkin_ 14 2 13 124 */
13091 /*:ref: setmsg_ 14 2 13 124 */
13092 /*:ref: errint_ 14 3 13 4 124 */
13093 /*:ref: errhan_ 14 3 13 4 124 */
13094 /*:ref: chkout_ 14 2 13 124 */
13095 /*:ref: zzekpgwi_ 14 3 4 4 4 */
13096 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
13097 /*:ref: failed_ 12 0 */
13098 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
13099 /*:ref: sigerr_ 14 2 13 124 */
13100 
13101 extern int zzektrui_(integer *handle, integer *tree, integer *key, integer *value, logical *overfl);
13102 /*:ref: zzekpgri_ 14 3 4 4 4 */
13103 /*:ref: chkin_ 14 2 13 124 */
13104 /*:ref: setmsg_ 14 2 13 124 */
13105 /*:ref: errint_ 14 3 13 4 124 */
13106 /*:ref: errhan_ 14 3 13 4 124 */
13107 /*:ref: sigerr_ 14 2 13 124 */
13108 /*:ref: chkout_ 14 2 13 124 */
13109 /*:ref: zzekpgwi_ 14 3 4 4 4 */
13110 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
13111 /*:ref: failed_ 12 0 */
13112 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
13113 
13114 extern int zzekue01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull);
13115 /*:ref: return_ 12 0 */
13116 /*:ref: chkin_ 14 2 13 124 */
13117 /*:ref: zzekpgch_ 14 3 4 13 124 */
13118 /*:ref: failed_ 12 0 */
13119 /*:ref: chkout_ 14 2 13 124 */
13120 /*:ref: dasrdi_ 14 4 4 4 4 4 */
13121 /*:ref: zzekixdl_ 14 4 4 4 4 4 */
13122 /*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */
13123 /*:ref: setmsg_ 14 2 13 124 */
13124 /*:ref: errint_ 14 3 13 4 124 */
13125 /*:ref: sigerr_ 14 2 13 124 */
13126 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
13127 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
13128 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
13129 /*:ref: dasudi_ 14 4 4 4 4 4 */
13130 /*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */
13131 /*:ref: zzekrp2n_ 4 3 4 4 4 */
13132 /*:ref: errhan_ 14 3 13 4 124 */
13133 
13134 extern int zzekue02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull);
13135 /*:ref: return_ 12 0 */
13136 /*:ref: chkin_ 14 2 13 124 */
13137 /*:ref: zzekpgch_ 14 3 4 13 124 */
13138 /*:ref: failed_ 12 0 */
13139 /*:ref: chkout_ 14 2 13 124 */
13140 /*:ref: dasrdi_ 14 4 4 4 4 4 */
13141 /*:ref: zzekixdl_ 14 4 4 4 4 4 */
13142 /*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */
13143 /*:ref: setmsg_ 14 2 13 124 */
13144 /*:ref: errint_ 14 3 13 4 124 */
13145 /*:ref: sigerr_ 14 2 13 124 */
13146 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
13147 /*:ref: zzekglnk_ 14 4 4 4 4 4 */
13148 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
13149 /*:ref: dasudi_ 14 4 4 4 4 4 */
13150 /*:ref: dasudd_ 14 4 4 4 4 7 */
13151 /*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */
13152 /*:ref: zzekrp2n_ 4 3 4 4 4 */
13153 /*:ref: errhan_ 14 3 13 4 124 */
13154 
13155 extern int zzekue03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len);
13156 /*:ref: return_ 12 0 */
13157 /*:ref: chkin_ 14 2 13 124 */
13158 /*:ref: zzekde03_ 14 4 4 4 4 4 */
13159 /*:ref: failed_ 12 0 */
13160 /*:ref: chkout_ 14 2 13 124 */
13161 /*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */
13162 
13163 extern int zzekue04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull);
13164 /*:ref: return_ 12 0 */
13165 /*:ref: chkin_ 14 2 13 124 */
13166 /*:ref: zzekde04_ 14 4 4 4 4 4 */
13167 /*:ref: failed_ 12 0 */
13168 /*:ref: chkout_ 14 2 13 124 */
13169 /*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */
13170 
13171 extern int zzekue05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull);
13172 /*:ref: return_ 12 0 */
13173 /*:ref: chkin_ 14 2 13 124 */
13174 /*:ref: zzekde05_ 14 4 4 4 4 4 */
13175 /*:ref: failed_ 12 0 */
13176 /*:ref: chkout_ 14 2 13 124 */
13177 /*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */
13178 
13179 extern int zzekue06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len);
13180 /*:ref: return_ 12 0 */
13181 /*:ref: chkin_ 14 2 13 124 */
13182 /*:ref: zzekde06_ 14 4 4 4 4 4 */
13183 /*:ref: failed_ 12 0 */
13184 /*:ref: chkout_ 14 2 13 124 */
13185 /*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */
13186 
13187 extern int zzekvadr_(integer *njrs, integer *bases, integer *rwvidx, integer *rwvbas, integer *sgvbas);
13188 extern int zzekvset_(integer *njrs, integer *bases);
13189 extern int zzekvcal_(integer *rwvidx, integer *rwvbas, integer *sgvbas);
13190 /*:ref: return_ 12 0 */
13191 /*:ref: chkin_ 14 2 13 124 */
13192 /*:ref: sigerr_ 14 2 13 124 */
13193 /*:ref: chkout_ 14 2 13 124 */
13194 /*:ref: setmsg_ 14 2 13 124 */
13195 /*:ref: errint_ 14 3 13 4 124 */
13196 /*:ref: zzekstop_ 14 1 4 */
13197 /*:ref: zzeksrd_ 14 3 4 4 4 */
13198 /*:ref: cleari_ 14 2 4 4 */
13199 /*:ref: lstlei_ 4 3 4 4 4 */
13200 
13201 extern logical zzekvcmp_(integer *op, integer *ncols, integer *tabs, integer *cols, integer *elts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *sgvec1, integer *rwvec1, integer *sgvec2, integer *rwvec2);
13202 /*:ref: lnknxt_ 4 2 4 4 */
13203 /*:ref: movei_ 14 3 4 4 4 */
13204 /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */
13205 /*:ref: chkin_ 14 2 13 124 */
13206 /*:ref: setmsg_ 14 2 13 124 */
13207 /*:ref: errint_ 14 3 13 4 124 */
13208 /*:ref: sigerr_ 14 2 13 124 */
13209 /*:ref: chkout_ 14 2 13 124 */
13210 
13211 extern logical zzekvmch_(integer *ncnstr, logical *active, integer *lhans, integer *lsdscs, integer *lcdscs, integer *lrows, integer *lelts, integer *ops, integer *rhans, integer *rsdscs, integer *rcdscs, integer *rrows, integer *relts);
13212 /*:ref: movei_ 14 3 4 4 4 */
13213 /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */
13214 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
13215 /*:ref: chkin_ 14 2 13 124 */
13216 /*:ref: setmsg_ 14 2 13 124 */
13217 /*:ref: errhan_ 14 3 13 4 124 */
13218 /*:ref: errint_ 14 3 13 4 124 */
13219 /*:ref: sigerr_ 14 2 13 124 */
13220 /*:ref: chkout_ 14 2 13 124 */
13221 /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */
13222 
13223 extern int zzekweed_(integer *njrs, integer *bases, integer *nrows);
13224 /*:ref: chkin_ 14 2 13 124 */
13225 /*:ref: setmsg_ 14 2 13 124 */
13226 /*:ref: errint_ 14 3 13 4 124 */
13227 /*:ref: sigerr_ 14 2 13 124 */
13228 /*:ref: chkout_ 14 2 13 124 */
13229 /*:ref: zzekvset_ 14 2 4 4 */
13230 /*:ref: zzeksrd_ 14 3 4 4 4 */
13231 /*:ref: sameai_ 12 3 4 4 4 */
13232 /*:ref: zzeksupd_ 14 3 4 4 4 */
13233 /*:ref: zzekjsqz_ 14 1 4 */
13234 
13235 extern int zzekweqi_(char *name__, integer *value, integer *eqryi, ftnlen name_len);
13236 /*:ref: ljust_ 14 4 13 13 124 124 */
13237 /*:ref: ucase_ 14 4 13 13 124 124 */
13238 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
13239 /*:ref: chkin_ 14 2 13 124 */
13240 /*:ref: setmsg_ 14 2 13 124 */
13241 /*:ref: errch_ 14 4 13 13 124 124 */
13242 /*:ref: sigerr_ 14 2 13 124 */
13243 /*:ref: chkout_ 14 2 13 124 */
13244 
13245 extern int zzekwpac_(integer *handle, integer *segdsc, integer *nvals, integer *l, char *cvals, integer *p, integer *base, ftnlen cvals_len);
13246 /*:ref: return_ 12 0 */
13247 /*:ref: chkin_ 14 2 13 124 */
13248 /*:ref: setmsg_ 14 2 13 124 */
13249 /*:ref: errint_ 14 3 13 4 124 */
13250 /*:ref: sigerr_ 14 2 13 124 */
13251 /*:ref: chkout_ 14 2 13 124 */
13252 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
13253 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
13254 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
13255 
13256 extern int zzekwpai_(integer *handle, integer *segdsc, integer *nvals, integer *ivals, integer *p, integer *base);
13257 /*:ref: return_ 12 0 */
13258 /*:ref: chkin_ 14 2 13 124 */
13259 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
13260 /*:ref: cleari_ 14 2 4 4 */
13261 /*:ref: zzekpgwi_ 14 3 4 4 4 */
13262 /*:ref: chkout_ 14 2 13 124 */
13263 
13264 extern int zzekwpal_(integer *handle, integer *segdsc, integer *nvals, logical *lvals, integer *p, integer *base);
13265 /*:ref: return_ 12 0 */
13266 /*:ref: chkin_ 14 2 13 124 */
13267 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
13268 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
13269 /*:ref: zzekslnk_ 14 4 4 4 4 4 */
13270 /*:ref: chkout_ 14 2 13 124 */
13271 
13272 extern int zzellbds_(doublereal *a, doublereal *b, doublereal *hmax, doublereal *hmin, doublereal *amax, doublereal *bmax, doublereal *amin, doublereal *bmin);
13273 /*:ref: chkin_ 14 2 13 124 */
13274 /*:ref: setmsg_ 14 2 13 124 */
13275 /*:ref: errdp_ 14 3 13 7 124 */
13276 /*:ref: sigerr_ 14 2 13 124 */
13277 /*:ref: chkout_ 14 2 13 124 */
13278 
13279 extern int zzelnaxx_(doublereal *a, doublereal *b, doublereal *lat, doublereal *xxpt, doublereal *yxpt);
13280 /*:ref: return_ 12 0 */
13281 /*:ref: chkin_ 14 2 13 124 */
13282 /*:ref: setmsg_ 14 2 13 124 */
13283 /*:ref: errdp_ 14 3 13 7 124 */
13284 /*:ref: sigerr_ 14 2 13 124 */
13285 /*:ref: chkout_ 14 2 13 124 */
13286 /*:ref: ednmpt_ 14 5 7 7 7 7 7 */
13287 
13288 extern int zzelvupy_(doublereal *ellips, doublereal *vertex, doublereal *axis, integer *n, doublereal *bounds, logical *found);
13289 /*:ref: return_ 12 0 */
13290 /*:ref: chkin_ 14 2 13 124 */
13291 /*:ref: el2cgv_ 14 4 7 7 7 7 */
13292 /*:ref: saelgv_ 14 4 7 7 7 7 */
13293 /*:ref: vzero_ 12 1 7 */
13294 /*:ref: setmsg_ 14 2 13 124 */
13295 /*:ref: errdp_ 14 3 13 7 124 */
13296 /*:ref: vnorm_ 7 1 7 */
13297 /*:ref: sigerr_ 14 2 13 124 */
13298 /*:ref: chkout_ 14 2 13 124 */
13299 /*:ref: cgv2el_ 14 4 7 7 7 7 */
13300 /*:ref: errint_ 14 3 13 4 124 */
13301 /*:ref: vsub_ 14 3 7 7 7 */
13302 /*:ref: vsep_ 7 2 7 7 */
13303 /*:ref: pi_ 7 0 */
13304 /*:ref: ucrss_ 14 3 7 7 7 */
13305 /*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */
13306 /*:ref: vdist_ 7 2 7 7 */
13307 /*:ref: vdot_ 7 2 7 7 */
13308 /*:ref: nvp2pl_ 14 3 7 7 7 */
13309 /*:ref: inrypl_ 14 5 7 7 7 4 7 */
13310 /*:ref: zzwind_ 4 4 7 4 7 7 */
13311 /*:ref: psv2pl_ 14 4 7 7 7 7 */
13312 /*:ref: inelpl_ 14 5 7 7 4 7 7 */
13313 /*:ref: vhat_ 14 2 7 7 */
13314 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
13315 
13316 extern int zzenut80_(doublereal *et, doublereal *nutxf);
13317 /*:ref: return_ 12 0 */
13318 /*:ref: chkin_ 14 2 13 124 */
13319 /*:ref: zzwahr_ 14 2 7 7 */
13320 /*:ref: zzmobliq_ 14 3 7 7 7 */
13321 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
13322 /*:ref: chkout_ 14 2 13 124 */
13323 
13324 extern int zzeprc76_(doublereal *et, doublereal *precxf);
13325 /*:ref: jyear_ 7 0 */
13326 /*:ref: rpd_ 7 0 */
13327 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
13328 
13329 extern int zzeprcss_(doublereal *et, doublereal *precm);
13330 /*:ref: jyear_ 7 0 */
13331 /*:ref: rpd_ 7 0 */
13332 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
13333 
13334 extern int zzfdat_(integer *ncount, integer *maxbfr, char *name__, integer *idcode, integer *center, integer *type__, integer *typid, integer *centrd, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen name_len, ftnlen bnmnms_len);
13335 /*:ref: chkin_ 14 2 13 124 */
13336 /*:ref: setmsg_ 14 2 13 124 */
13337 /*:ref: sigerr_ 14 2 13 124 */
13338 /*:ref: chkout_ 14 2 13 124 */
13339 /*:ref: irfnam_ 14 3 4 13 124 */
13340 /*:ref: orderi_ 14 3 4 4 4 */
13341 /*:ref: zzhscini_ 14 3 4 4 4 */
13342 /*:ref: zzhsiini_ 14 3 4 4 4 */
13343 /*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */
13344 /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */
13345 
13346 extern int zzfovaxi_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len);
13347 /*:ref: return_ 12 0 */
13348 /*:ref: chkin_ 14 2 13 124 */
13349 /*:ref: setmsg_ 14 2 13 124 */
13350 /*:ref: errch_ 14 4 13 13 124 124 */
13351 /*:ref: errint_ 14 3 13 4 124 */
13352 /*:ref: sigerr_ 14 2 13 124 */
13353 /*:ref: chkout_ 14 2 13 124 */
13354 /*:ref: vcrss_ 14 3 7 7 7 */
13355 /*:ref: vzero_ 12 1 7 */
13356 /*:ref: cleard_ 14 2 4 7 */
13357 /*:ref: vhat_ 14 2 7 7 */
13358 /*:ref: vadd_ 14 3 7 7 7 */
13359 /*:ref: vequ_ 14 2 7 7 */
13360 /*:ref: vsclip_ 14 2 7 7 */
13361 /*:ref: halfpi_ 7 0 */
13362 /*:ref: vsep_ 7 2 7 7 */
13363 /*:ref: zzhullax_ 14 5 13 4 7 7 124 */
13364 /*:ref: failed_ 12 0 */
13365 /*:ref: vhatip_ 14 1 7 */
13366 
13367 extern int zzfrmch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform);
13368 /*:ref: return_ 12 0 */
13369 /*:ref: chkin_ 14 2 13 124 */
13370 /*:ref: chkout_ 14 2 13 124 */
13371 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13372 /*:ref: setmsg_ 14 2 13 124 */
13373 /*:ref: errint_ 14 3 13 4 124 */
13374 /*:ref: sigerr_ 14 2 13 124 */
13375 /*:ref: zzfrmgt0_ 14 5 4 7 7 4 12 */
13376 /*:ref: zzmsxf_ 14 3 7 4 7 */
13377 /*:ref: isrchi_ 4 3 4 4 4 */
13378 /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */
13379 /*:ref: failed_ 12 0 */
13380 /*:ref: invstm_ 14 2 7 7 */
13381 
13382 extern int zzfrmch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform);
13383 /*:ref: return_ 12 0 */
13384 /*:ref: chkin_ 14 2 13 124 */
13385 /*:ref: chkout_ 14 2 13 124 */
13386 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13387 /*:ref: setmsg_ 14 2 13 124 */
13388 /*:ref: errint_ 14 3 13 4 124 */
13389 /*:ref: sigerr_ 14 2 13 124 */
13390 /*:ref: zzfrmgt1_ 14 5 4 7 7 4 12 */
13391 /*:ref: zzmsxf_ 14 3 7 4 7 */
13392 /*:ref: isrchi_ 4 3 4 4 4 */
13393 /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */
13394 /*:ref: failed_ 12 0 */
13395 /*:ref: invstm_ 14 2 7 7 */
13396 
13397 extern int zzfrmgt0_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found);
13398 /*:ref: return_ 12 0 */
13399 /*:ref: chkin_ 14 2 13 124 */
13400 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13401 /*:ref: chkout_ 14 2 13 124 */
13402 /*:ref: tisbod_ 14 5 13 4 7 7 124 */
13403 /*:ref: invstm_ 14 2 7 7 */
13404 /*:ref: namfrm_ 14 3 13 4 124 */
13405 /*:ref: irfrot_ 14 3 4 4 7 */
13406 /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */
13407 /*:ref: tkfram_ 14 4 4 7 4 12 */
13408 /*:ref: zzdynfr0_ 14 5 4 4 7 7 4 */
13409 /*:ref: setmsg_ 14 2 13 124 */
13410 /*:ref: errint_ 14 3 13 4 124 */
13411 /*:ref: errch_ 14 4 13 13 124 124 */
13412 /*:ref: sigerr_ 14 2 13 124 */
13413 /*:ref: failed_ 12 0 */
13414 
13415 extern int zzfrmgt1_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found);
13416 /*:ref: return_ 12 0 */
13417 /*:ref: chkin_ 14 2 13 124 */
13418 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13419 /*:ref: chkout_ 14 2 13 124 */
13420 /*:ref: tisbod_ 14 5 13 4 7 7 124 */
13421 /*:ref: invstm_ 14 2 7 7 */
13422 /*:ref: namfrm_ 14 3 13 4 124 */
13423 /*:ref: irfrot_ 14 3 4 4 7 */
13424 /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */
13425 /*:ref: tkfram_ 14 4 4 7 4 12 */
13426 /*:ref: setmsg_ 14 2 13 124 */
13427 /*:ref: errint_ 14 3 13 4 124 */
13428 /*:ref: sigerr_ 14 2 13 124 */
13429 /*:ref: errch_ 14 4 13 13 124 124 */
13430 /*:ref: failed_ 12 0 */
13431 
13432 extern int zzftpchk_(char *string, logical *ftperr, ftnlen string_len);
13433 /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */
13434 /*:ref: zzrbrkst_ 14 10 13 13 13 13 4 12 124 124 124 124 */
13435 /*:ref: rtrim_ 4 2 13 124 */
13436 /*:ref: pos_ 4 5 13 13 4 124 124 */
13437 
13438 extern int zzftpstr_(char *tstcom, char *lend, char *rend, char *delim, ftnlen tstcom_len, ftnlen lend_len, ftnlen rend_len, ftnlen delim_len);
13439 /*:ref: suffix_ 14 5 13 4 13 124 124 */
13440 
13441 extern int zzgapool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtset, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtset_len);
13442 /*:ref: return_ 12 0 */
13443 /*:ref: chkin_ 14 2 13 124 */
13444 /*:ref: scardc_ 14 3 4 13 124 */
13445 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
13446 /*:ref: cardc_ 4 2 13 124 */
13447 /*:ref: chkout_ 14 2 13 124 */
13448 /*:ref: lnknxt_ 4 2 4 4 */
13449 /*:ref: validc_ 14 4 4 4 13 124 */
13450 /*:ref: sizec_ 4 2 13 124 */
13451 
13452 extern int zzgetbff_(integer *bffid);
13453 
13454 extern int zzgetelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, logical *ok, char *error, ftnlen lines_len, ftnlen error_len);
13455 /*:ref: return_ 12 0 */
13456 /*:ref: chkin_ 14 2 13 124 */
13457 /*:ref: rpd_ 7 0 */
13458 /*:ref: twopi_ 7 0 */
13459 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
13460 /*:ref: chkout_ 14 2 13 124 */
13461 /*:ref: lastnb_ 4 2 13 124 */
13462 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
13463 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
13464 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
13465 /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */
13466 /*:ref: ttrans_ 14 5 13 13 7 124 124 */
13467 
13468 extern int zzgetvox_(doublereal *voxsiz, doublereal *voxori, integer *nvox, doublereal *xyz, logical *inbox, integer *voxcor);
13469 /*:ref: return_ 12 0 */
13470 /*:ref: chkin_ 14 2 13 124 */
13471 /*:ref: setmsg_ 14 2 13 124 */
13472 /*:ref: errdp_ 14 3 13 7 124 */
13473 /*:ref: sigerr_ 14 2 13 124 */
13474 /*:ref: chkout_ 14 2 13 124 */
13475 
13476 extern int zzgfcoq_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, doublereal *dvec, char *crdsys, integer *ctrid, doublereal *re, doublereal *f, char *crdnam, doublereal *value, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len);
13477 /*:ref: return_ 12 0 */
13478 /*:ref: chkin_ 14 2 13 124 */
13479 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
13480 /*:ref: setmsg_ 14 2 13 124 */
13481 /*:ref: errch_ 14 4 13 13 124 124 */
13482 /*:ref: sigerr_ 14 2 13 124 */
13483 /*:ref: chkout_ 14 2 13 124 */
13484 /*:ref: bodc2s_ 14 3 4 13 124 */
13485 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
13486 /*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */
13487 /*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */
13488 /*:ref: failed_ 12 0 */
13489 /*:ref: moved_ 14 3 7 4 7 */
13490 /*:ref: reclat_ 14 4 7 7 7 7 */
13491 /*:ref: recrad_ 14 4 7 7 7 7 */
13492 /*:ref: recsph_ 14 4 7 7 7 7 */
13493 /*:ref: reccyl_ 14 4 7 7 7 7 */
13494 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
13495 /*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */
13496 
13497 extern int zzgfcost_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len);
13498 /*:ref: return_ 12 0 */
13499 /*:ref: chkin_ 14 2 13 124 */
13500 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
13501 /*:ref: zzgfssob_ 14 11 13 4 7 13 13 4 7 7 124 124 124 */
13502 /*:ref: zzgfssin_ 14 16 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 */
13503 /*:ref: setmsg_ 14 2 13 124 */
13504 /*:ref: errch_ 14 4 13 13 124 124 */
13505 /*:ref: sigerr_ 14 2 13 124 */
13506 /*:ref: chkout_ 14 2 13 124 */
13507 
13508 extern int zzgfcou_(char *vecdef, char *method, char *target, doublereal *et, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, logical *decres, doublereal *crdval, logical *crdfnd, U_fp udfunc, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len);
13509 extern int zzgfcoin_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len);
13510 extern int zzgfcog_(doublereal *et, doublereal *crdval);
13511 extern int zzgfcodc_(U_fp udfunc, doublereal *et, logical *decres);
13512 extern int zzgfcoex_(U_fp udfunc, doublereal *et, logical *crdfnd);
13513 extern int zzgfcocg_(doublereal *et, doublereal *crdval);
13514 extern int zzgfcosg_(doublereal *et, doublereal *crdval);
13515 extern int zzgfcocd_(U_fp udfunc, doublereal *et, logical *decres);
13516 extern int zzgfcosd_(U_fp udfunc, doublereal *et, logical *decres);
13517 /*:ref: return_ 12 0 */
13518 /*:ref: chkin_ 14 2 13 124 */
13519 /*:ref: sigerr_ 14 2 13 124 */
13520 /*:ref: chkout_ 14 2 13 124 */
13521 /*:ref: bods2c_ 14 4 13 4 12 124 */
13522 /*:ref: setmsg_ 14 2 13 124 */
13523 /*:ref: errch_ 14 4 13 13 124 124 */
13524 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
13525 /*:ref: ucase_ 14 4 13 13 124 124 */
13526 /*:ref: zzvalcor_ 14 3 13 12 124 */
13527 /*:ref: failed_ 12 0 */
13528 /*:ref: ljust_ 14 4 13 13 124 124 */
13529 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
13530 /*:ref: namfrm_ 14 3 13 4 124 */
13531 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13532 /*:ref: errint_ 14 3 13 4 124 */
13533 /*:ref: bodfnd_ 12 3 4 13 124 */
13534 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
13535 /*:ref: errdp_ 14 3 13 7 124 */
13536 /*:ref: bodc2s_ 14 3 4 13 124 */
13537 /*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */
13538 /*:ref: pi_ 7 0 */
13539 /*:ref: vzero_ 12 1 7 */
13540 /*:ref: moved_ 14 3 7 4 7 */
13541 /*:ref: cleard_ 14 2 4 7 */
13542 /*:ref: zzgfcoq_ 14 23 13 13 4 7 13 13 4 13 7 13 4 7 7 13 7 12 124 124 124 124 124 124 124 */
13543 /*:ref: etcal_ 14 3 7 13 124 */
13544 /*:ref: zzgfcost_ 14 18 13 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 124 */
13545 /*:ref: zzgfcprx_ 14 7 7 13 7 7 4 4 124 */
13546 /*:ref: reclat_ 14 4 7 7 7 7 */
13547 /*:ref: recrad_ 14 4 7 7 7 7 */
13548 /*:ref: recsph_ 14 4 7 7 7 7 */
13549 /*:ref: reccyl_ 14 4 7 7 7 7 */
13550 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
13551 
13552 extern int zzgfcprx_(doublereal *state, char *corsys, doublereal *re, doublereal *f, integer *sense, integer *cdsign, ftnlen corsys_len);
13553 /*:ref: return_ 12 0 */
13554 /*:ref: chkin_ 14 2 13 124 */
13555 /*:ref: setmsg_ 14 2 13 124 */
13556 /*:ref: errint_ 14 3 13 4 124 */
13557 /*:ref: sigerr_ 14 2 13 124 */
13558 /*:ref: chkout_ 14 2 13 124 */
13559 /*:ref: vzero_ 12 1 7 */
13560 /*:ref: cleari_ 14 2 4 4 */
13561 /*:ref: vhat_ 14 2 7 7 */
13562 /*:ref: vdot_ 7 2 7 7 */
13563 /*:ref: errch_ 14 4 13 13 124 124 */
13564 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
13565 /*:ref: failed_ 12 0 */
13566 /*:ref: latrec_ 14 4 7 7 7 7 */
13567 /*:ref: vpack_ 14 4 7 7 7 7 */
13568 /*:ref: vhatip_ 14 1 7 */
13569 /*:ref: zzrtnmat_ 14 2 7 7 */
13570 /*:ref: mxv_ 14 3 7 7 7 */
13571 
13572 extern int zzgfcslv_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len);
13573 /*:ref: return_ 12 0 */
13574 /*:ref: chkin_ 14 2 13 124 */
13575 /*:ref: setmsg_ 14 2 13 124 */
13576 /*:ref: errint_ 14 3 13 4 124 */
13577 /*:ref: sigerr_ 14 2 13 124 */
13578 /*:ref: chkout_ 14 2 13 124 */
13579 /*:ref: errdp_ 14 3 13 7 124 */
13580 /*:ref: ljust_ 14 4 13 13 124 124 */
13581 /*:ref: ucase_ 14 4 13 13 124 124 */
13582 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
13583 /*:ref: errch_ 14 4 13 13 124 124 */
13584 /*:ref: ssized_ 14 2 4 7 */
13585 /*:ref: scardd_ 14 2 4 7 */
13586 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
13587 /*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */
13588 /*:ref: failed_ 12 0 */
13589 /*:ref: wncard_ 4 1 7 */
13590 /*:ref: wnfetd_ 14 4 7 4 7 7 */
13591 /*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */
13592 /*:ref: wncond_ 14 3 7 7 7 */
13593 /*:ref: copyd_ 14 2 7 7 */
13594 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
13595 /*:ref: zzgflong_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 214 200 214 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */
13596 /*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 214 200 214 13 13 12 212 7 124 124 124 */
13597 
13598 extern int zzgfdiq_(integer *targid, doublereal *et, char *abcorr, integer *obsid, doublereal *dist, ftnlen abcorr_len);
13599 /*:ref: return_ 12 0 */
13600 /*:ref: chkin_ 14 2 13 124 */
13601 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
13602 /*:ref: failed_ 12 0 */
13603 /*:ref: chkout_ 14 2 13 124 */
13604 /*:ref: vnorm_ 7 1 7 */
13605 
13606 extern int zzgfdiu_(char *target, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *dist, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len);
13607 extern int zzgfdiin_(char *target, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len);
13608 extern int zzgfdidc_(U_fp udfunc, doublereal *et, logical *decres);
13609 extern int zzgfdigq_(doublereal *et, doublereal *dist);
13610 /*:ref: chkin_ 14 2 13 124 */
13611 /*:ref: sigerr_ 14 2 13 124 */
13612 /*:ref: chkout_ 14 2 13 124 */
13613 /*:ref: return_ 12 0 */
13614 /*:ref: bods2c_ 14 4 13 4 12 124 */
13615 /*:ref: setmsg_ 14 2 13 124 */
13616 /*:ref: errch_ 14 4 13 13 124 124 */
13617 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
13618 /*:ref: ucase_ 14 4 13 13 124 124 */
13619 /*:ref: zzvalcor_ 14 3 13 12 124 */
13620 /*:ref: failed_ 12 0 */
13621 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
13622 /*:ref: vdot_ 7 2 7 7 */
13623 /*:ref: zzgfdiq_ 14 6 4 7 13 4 7 124 */
13624 
13625 extern int zzgfdsps_(integer *nlead, char *string, char *fmt, integer *ntrail, ftnlen string_len, ftnlen fmt_len);
13626 /*:ref: rtrim_ 4 2 13 124 */
13627 /*:ref: suffix_ 14 5 13 4 13 124 124 */
13628 /*:ref: chkin_ 14 2 13 124 */
13629 /*:ref: setmsg_ 14 2 13 124 */
13630 /*:ref: errint_ 14 3 13 4 124 */
13631 /*:ref: sigerr_ 14 2 13 124 */
13632 /*:ref: chkout_ 14 2 13 124 */
13633 
13634 extern int zzgffvu_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *time, logical *vistat, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
13635 extern int zzgffvin_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len);
13636 extern int zzgffvst_(doublereal *time, logical *vistat);
13637 /*:ref: chkin_ 14 2 13 124 */
13638 /*:ref: sigerr_ 14 2 13 124 */
13639 /*:ref: chkout_ 14 2 13 124 */
13640 /*:ref: return_ 12 0 */
13641 /*:ref: cleard_ 14 2 4 7 */
13642 /*:ref: bods2c_ 14 4 13 4 12 124 */
13643 /*:ref: setmsg_ 14 2 13 124 */
13644 /*:ref: errch_ 14 4 13 13 124 124 */
13645 /*:ref: ljust_ 14 4 13 13 124 124 */
13646 /*:ref: ucase_ 14 4 13 13 124 124 */
13647 /*:ref: namfrm_ 14 3 13 4 124 */
13648 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13649 /*:ref: errint_ 14 3 13 4 124 */
13650 /*:ref: zzprscor_ 14 3 13 12 124 */
13651 /*:ref: failed_ 12 0 */
13652 /*:ref: zzvalcor_ 14 3 13 12 124 */
13653 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
13654 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
13655 /*:ref: errdp_ 14 3 13 7 124 */
13656 /*:ref: vzero_ 12 1 7 */
13657 /*:ref: vhat_ 14 2 7 7 */
13658 /*:ref: getfov_ 14 9 4 4 13 13 7 4 7 124 124 */
13659 /*:ref: zzfovaxi_ 14 5 13 4 7 7 124 */
13660 /*:ref: vequ_ 14 2 7 7 */
13661 /*:ref: vsep_ 7 2 7 7 */
13662 /*:ref: halfpi_ 7 0 */
13663 /*:ref: dpr_ 7 0 */
13664 /*:ref: nvc2pl_ 14 3 7 7 7 */
13665 /*:ref: vrotv_ 14 4 7 7 7 7 */
13666 /*:ref: inrypl_ 14 5 7 7 7 4 7 */
13667 /*:ref: vsub_ 14 3 7 7 7 */
13668 /*:ref: vnorm_ 7 1 7 */
13669 /*:ref: vscl_ 14 3 7 7 7 */
13670 /*:ref: ucrss_ 14 3 7 7 7 */
13671 /*:ref: frame_ 14 3 7 7 7 */
13672 /*:ref: mxv_ 14 3 7 7 7 */
13673 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
13674 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
13675 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
13676 /*:ref: mxm_ 14 3 7 7 7 */
13677 /*:ref: vminus_ 14 2 7 7 */
13678 /*:ref: edlimb_ 14 5 7 7 7 7 7 */
13679 /*:ref: el2cgv_ 14 4 7 7 7 7 */
13680 /*:ref: vadd_ 14 3 7 7 7 */
13681 /*:ref: cgv2el_ 14 4 7 7 7 7 */
13682 /*:ref: zzelvupy_ 14 6 7 7 7 4 7 12 */
13683 /*:ref: zzocced_ 4 5 7 7 7 7 7 */
13684 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
13685 /*:ref: stlabx_ 14 3 7 7 7 */
13686 /*:ref: stelab_ 14 3 7 7 7 */
13687 /*:ref: mtxv_ 14 3 7 7 7 */
13688 /*:ref: vdot_ 7 2 7 7 */
13689 /*:ref: zzwind2d_ 4 3 4 7 7 */
13690 
13691 extern int zzgfilu_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *et, U_fp udfunc, logical *decres, doublereal *angle, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
13692 extern int zzgfilin_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
13693 extern int zzgfildc_(U_fp udfunc, doublereal *et, logical *decres);
13694 extern int zzgfilgq_(doublereal *et, doublereal *angle);
13695 /*:ref: chkin_ 14 2 13 124 */
13696 /*:ref: sigerr_ 14 2 13 124 */
13697 /*:ref: chkout_ 14 2 13 124 */
13698 /*:ref: return_ 12 0 */
13699 /*:ref: bods2c_ 14 4 13 4 12 124 */
13700 /*:ref: failed_ 12 0 */
13701 /*:ref: setmsg_ 14 2 13 124 */
13702 /*:ref: errch_ 14 4 13 13 124 124 */
13703 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
13704 /*:ref: ucase_ 14 4 13 13 124 124 */
13705 /*:ref: zzvalcor_ 14 3 13 12 124 */
13706 /*:ref: bodvrd_ 14 7 13 13 4 4 7 124 124 */
13707 /*:ref: surfnm_ 14 5 7 7 7 7 7 */
13708 /*:ref: vequ_ 14 2 7 7 */
13709 /*:ref: ljust_ 14 4 13 13 124 124 */
13710 /*:ref: namfrm_ 14 3 13 4 124 */
13711 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13712 /*:ref: errint_ 14 3 13 4 124 */
13713 /*:ref: esrchc_ 4 5 13 4 13 124 124 */
13714 /*:ref: zzilusta_ 14 18 13 13 13 7 13 13 13 7 7 7 7 7 124 124 124 124 124 124 */
13715 /*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */
13716 
13717 extern int zzgflong_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len);
13718 /*:ref: return_ 12 0 */
13719 /*:ref: chkin_ 14 2 13 124 */
13720 /*:ref: setmsg_ 14 2 13 124 */
13721 /*:ref: errint_ 14 3 13 4 124 */
13722 /*:ref: sigerr_ 14 2 13 124 */
13723 /*:ref: chkout_ 14 2 13 124 */
13724 /*:ref: ssized_ 14 2 4 7 */
13725 /*:ref: lnkini_ 14 2 4 4 */
13726 /*:ref: ljust_ 14 4 13 13 124 124 */
13727 /*:ref: ucase_ 14 4 13 13 124 124 */
13728 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
13729 /*:ref: errch_ 14 4 13 13 124 124 */
13730 /*:ref: errdp_ 14 3 13 7 124 */
13731 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
13732 /*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */
13733 /*:ref: failed_ 12 0 */
13734 /*:ref: wncard_ 4 1 7 */
13735 /*:ref: scardd_ 14 2 4 7 */
13736 /*:ref: copyd_ 14 2 7 7 */
13737 /*:ref: namfrm_ 14 3 13 4 124 */
13738 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13739 /*:ref: bodc2s_ 14 3 4 13 124 */
13740 /*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */
13741 /*:ref: pi_ 7 0 */
13742 /*:ref: twopi_ 7 0 */
13743 /*:ref: lnkan_ 14 2 4 4 */
13744 /*:ref: zzgfrelx_ 14 25 200 200 200 200 214 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */
13745 /*:ref: zzgfcosg_ 14 2 7 7 */
13746 /*:ref: zzgfcocg_ 14 2 7 7 */
13747 /*:ref: cardd_ 4 1 7 */
13748 /*:ref: smsgnd_ 12 2 7 7 */
13749 /*:ref: wninsd_ 14 3 7 7 7 */
13750 /*:ref: wndifd_ 14 3 7 7 7 */
13751 /*:ref: zzgfcog_ 14 2 7 7 */
13752 /*:ref: wnunid_ 14 3 7 7 7 */
13753 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
13754 /*:ref: lnkila_ 14 3 4 4 4 */
13755 /*:ref: wnintd_ 14 3 7 7 7 */
13756 /*:ref: ssizei_ 14 2 4 4 */
13757 /*:ref: insrti_ 14 2 4 4 */
13758 /*:ref: lnknxt_ 4 2 4 4 */
13759 /*:ref: elemi_ 12 2 4 4 */
13760 /*:ref: lnkfsl_ 14 3 4 4 4 */
13761 
13762 extern int zzgfocu_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, doublereal *time, logical *ocstat, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len);
13763 extern int zzgfocin_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len);
13764 extern int zzgfocst_(doublereal *time, logical *ocstat);
13765 /*:ref: chkin_ 14 2 13 124 */
13766 /*:ref: sigerr_ 14 2 13 124 */
13767 /*:ref: chkout_ 14 2 13 124 */
13768 /*:ref: return_ 12 0 */
13769 /*:ref: bods2c_ 14 4 13 4 12 124 */
13770 /*:ref: setmsg_ 14 2 13 124 */
13771 /*:ref: errch_ 14 4 13 13 124 124 */
13772 /*:ref: eqstr_ 12 4 13 13 124 124 */
13773 /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */
13774 /*:ref: failed_ 12 0 */
13775 /*:ref: ljust_ 14 4 13 13 124 124 */
13776 /*:ref: ucase_ 14 4 13 13 124 124 */
13777 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
13778 /*:ref: zzvalcor_ 14 3 13 12 124 */
13779 /*:ref: suffix_ 14 5 13 4 13 124 124 */
13780 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
13781 /*:ref: errint_ 14 3 13 4 124 */
13782 /*:ref: errdp_ 14 3 13 7 124 */
13783 /*:ref: moved_ 14 3 7 4 7 */
13784 /*:ref: minad_ 14 4 7 4 7 4 */
13785 /*:ref: maxad_ 14 4 7 4 7 4 */
13786 /*:ref: namfrm_ 14 3 13 4 124 */
13787 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
13788 /*:ref: zzsudski_ 14 4 4 4 4 4 */
13789 /*:ref: zzminrad_ 14 1 7 */
13790 /*:ref: zzmaxrad_ 14 1 7 */
13791 /*:ref: cleard_ 14 2 4 7 */
13792 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
13793 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
13794 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
13795 /*:ref: vscl_ 14 3 7 7 7 */
13796 /*:ref: zzocced_ 4 5 7 7 7 7 7 */
13797 /*:ref: vnorm_ 7 1 7 */
13798 /*:ref: vsub_ 14 3 7 7 7 */
13799 /*:ref: vsep_ 7 2 7 7 */
13800 /*:ref: dasine_ 7 2 7 7 */
13801 /*:ref: vminus_ 14 2 7 7 */
13802 /*:ref: halfpi_ 7 0 */
13803 /*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */
13804 
13805 extern int zzgfpaq_(doublereal *et, integer *targ, integer *illmn, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len);
13806 /*:ref: return_ 12 0 */
13807 /*:ref: chkin_ 14 2 13 124 */
13808 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
13809 /*:ref: failed_ 12 0 */
13810 /*:ref: chkout_ 14 2 13 124 */
13811 /*:ref: eqstr_ 12 4 13 13 124 124 */
13812 /*:ref: vsep_ 7 2 7 7 */
13813 /*:ref: pi_ 7 0 */
13814 
13815 extern int zzgfpau_(char *target, char *illmn, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len);
13816 extern int zzgfpain_(char *target, char *illmn, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len);
13817 extern int zzgfpadc_(U_fp udfunc, doublereal *et, logical *decres);
13818 extern int zzgfpagq_(doublereal *et, doublereal *rvl);
13819 extern int zzgfpax_(integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen xabcor_len);
13820 /*:ref: chkin_ 14 2 13 124 */
13821 /*:ref: sigerr_ 14 2 13 124 */
13822 /*:ref: chkout_ 14 2 13 124 */
13823 /*:ref: return_ 12 0 */
13824 /*:ref: bods2c_ 14 4 13 4 12 124 */
13825 /*:ref: setmsg_ 14 2 13 124 */
13826 /*:ref: errch_ 14 4 13 13 124 124 */
13827 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
13828 /*:ref: ucase_ 14 4 13 13 124 124 */
13829 /*:ref: zzvalcor_ 14 3 13 12 124 */
13830 /*:ref: failed_ 12 0 */
13831 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
13832 /*:ref: vhat_ 14 2 7 7 */
13833 /*:ref: vdot_ 7 2 7 7 */
13834 /*:ref: clight_ 7 0 */
13835 /*:ref: vsclip_ 14 2 7 7 */
13836 /*:ref: dvsep_ 7 2 7 7 */
13837 /*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */
13838 
13839 extern int zzgfref_(doublereal *refval);
13840 /*:ref: zzholdd_ 14 4 4 4 12 7 */
13841 
13842 extern int zzgfrel_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, S_fp udqref, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len);
13843 /*:ref: return_ 12 0 */
13844 /*:ref: chkin_ 14 2 13 124 */
13845 /*:ref: setmsg_ 14 2 13 124 */
13846 /*:ref: errint_ 14 3 13 4 124 */
13847 /*:ref: sigerr_ 14 2 13 124 */
13848 /*:ref: chkout_ 14 2 13 124 */
13849 /*:ref: sized_ 4 1 7 */
13850 /*:ref: ljust_ 14 4 13 13 124 124 */
13851 /*:ref: ucase_ 14 4 13 13 124 124 */
13852 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
13853 /*:ref: errch_ 14 4 13 13 124 124 */
13854 /*:ref: errdp_ 14 3 13 7 124 */
13855 /*:ref: cardd_ 4 1 7 */
13856 /*:ref: scardd_ 14 2 4 7 */
13857 /*:ref: ssized_ 14 2 4 7 */
13858 /*:ref: failed_ 12 0 */
13859 /*:ref: copyd_ 14 2 7 7 */
13860 /*:ref: wnexpd_ 14 3 7 7 7 */
13861 /*:ref: wncard_ 4 1 7 */
13862 /*:ref: wnfetd_ 14 4 7 4 7 7 */
13863 /*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */
13864 /*:ref: wnextd_ 14 3 13 7 124 */
13865 /*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */
13866 /*:ref: wnintd_ 14 3 7 7 7 */
13867 /*:ref: wndifd_ 14 3 7 7 7 */
13868 /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */
13869 /*:ref: swapi_ 14 2 4 4 */
13870 
13871 extern int zzgfrelx_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len);
13872 /*:ref: return_ 12 0 */
13873 /*:ref: chkin_ 14 2 13 124 */
13874 /*:ref: setmsg_ 14 2 13 124 */
13875 /*:ref: errint_ 14 3 13 4 124 */
13876 /*:ref: sigerr_ 14 2 13 124 */
13877 /*:ref: chkout_ 14 2 13 124 */
13878 /*:ref: sized_ 4 1 7 */
13879 /*:ref: ljust_ 14 4 13 13 124 124 */
13880 /*:ref: ucase_ 14 4 13 13 124 124 */
13881 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
13882 /*:ref: errch_ 14 4 13 13 124 124 */
13883 /*:ref: errdp_ 14 3 13 7 124 */
13884 /*:ref: cardd_ 4 1 7 */
13885 /*:ref: scardd_ 14 2 4 7 */
13886 /*:ref: ssized_ 14 2 4 7 */
13887 /*:ref: failed_ 12 0 */
13888 /*:ref: copyd_ 14 2 7 7 */
13889 /*:ref: wnexpd_ 14 3 7 7 7 */
13890 /*:ref: zzgfref_ 14 1 7 */
13891 /*:ref: wncard_ 4 1 7 */
13892 /*:ref: wnfetd_ 14 4 7 4 7 7 */
13893 /*:ref: zzgfsolvx_ 14 14 214 200 200 200 12 212 12 7 7 7 7 12 200 7 */
13894 /*:ref: wnextd_ 14 3 13 7 124 */
13895 /*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */
13896 /*:ref: wnintd_ 14 3 7 7 7 */
13897 /*:ref: wndifd_ 14 3 7 7 7 */
13898 /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */
13899 /*:ref: swapi_ 14 2 4 4 */
13900 
13901 extern int zzgfrpwk_(integer *unit, doublereal *total, doublereal *freq, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len);
13902 extern int zzgftswk_(doublereal *total, doublereal *freq, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len);
13903 extern int zzgfwkin_(doublereal *incr);
13904 extern int zzgfwkad_(doublereal *freq, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len);
13905 extern int zzgfwkun_(integer *unit);
13906 extern int zzgfwkmo_(integer *unit, doublereal *total, doublereal *freq, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len);
13907 /*:ref: chkin_ 14 2 13 124 */
13908 /*:ref: sigerr_ 14 2 13 124 */
13909 /*:ref: chkout_ 14 2 13 124 */
13910 /*:ref: return_ 12 0 */
13911 /*:ref: stdio_ 14 3 13 4 124 */
13912 /*:ref: zzcputim_ 14 1 7 */
13913 /*:ref: rtrim_ 4 2 13 124 */
13914 /*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */
13915 /*:ref: writln_ 14 3 13 4 124 */
13916 /*:ref: brcktd_ 7 3 7 7 7 */
13917 /*:ref: dpfmt_ 14 5 7 13 13 124 124 */
13918 
13919 extern int zzgfrrq_(doublereal *et, integer *targ, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len);
13920 /*:ref: return_ 12 0 */
13921 /*:ref: chkin_ 14 2 13 124 */
13922 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
13923 /*:ref: failed_ 12 0 */
13924 /*:ref: chkout_ 14 2 13 124 */
13925 /*:ref: dvnorm_ 7 1 7 */
13926 
13927 extern int zzgfrru_(char *target, char *abcorr, char *obsrvr, doublereal *dt, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len);
13928 extern int zzgfrrin_(char *target, char *abcorr, char *obsrvr, doublereal *dt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len);
13929 extern int zzgfrrdc_(U_fp udfunc, doublereal *et, logical *decres);
13930 extern int zzgfrrgq_(doublereal *et, doublereal *rvl);
13931 extern int zzgfrrx_(integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen xabcor_len);
13932 /*:ref: chkin_ 14 2 13 124 */
13933 /*:ref: sigerr_ 14 2 13 124 */
13934 /*:ref: chkout_ 14 2 13 124 */
13935 /*:ref: return_ 12 0 */
13936 /*:ref: bods2c_ 14 4 13 4 12 124 */
13937 /*:ref: setmsg_ 14 2 13 124 */
13938 /*:ref: errch_ 14 4 13 13 124 124 */
13939 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
13940 /*:ref: ucase_ 14 4 13 13 124 124 */
13941 /*:ref: zzvalcor_ 14 3 13 12 124 */
13942 /*:ref: failed_ 12 0 */
13943 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
13944 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
13945 /*:ref: dvhat_ 14 2 7 7 */
13946 /*:ref: vdot_ 7 2 7 7 */
13947 /*:ref: zzgfrrq_ 14 6 7 4 4 13 7 124 */
13948 
13949 extern int zzgfsolv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result);
13950 /*:ref: return_ 12 0 */
13951 /*:ref: chkin_ 14 2 13 124 */
13952 /*:ref: setmsg_ 14 2 13 124 */
13953 /*:ref: errdp_ 14 3 13 7 124 */
13954 /*:ref: sigerr_ 14 2 13 124 */
13955 /*:ref: chkout_ 14 2 13 124 */
13956 /*:ref: failed_ 12 0 */
13957 /*:ref: dpmax_ 7 0 */
13958 /*:ref: touchd_ 7 1 7 */
13959 /*:ref: errint_ 14 3 13 4 124 */
13960 /*:ref: brcktd_ 7 3 7 7 7 */
13961 /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */
13962 
13963 extern int zzgfsolvx_(U_fp udfuns, S_fp udfunb, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result);
13964 /*:ref: return_ 12 0 */
13965 /*:ref: chkin_ 14 2 13 124 */
13966 /*:ref: setmsg_ 14 2 13 124 */
13967 /*:ref: errdp_ 14 3 13 7 124 */
13968 /*:ref: sigerr_ 14 2 13 124 */
13969 /*:ref: chkout_ 14 2 13 124 */
13970 /*:ref: failed_ 12 0 */
13971 /*:ref: dpmax_ 7 0 */
13972 /*:ref: touchd_ 7 1 7 */
13973 /*:ref: errint_ 14 3 13 4 124 */
13974 /*:ref: brcktd_ 7 3 7 7 7 */
13975 /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */
13976 
13977 extern int zzgfspq_(doublereal *et, integer *targ1, integer *targ2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, doublereal *value, ftnlen abcorr_len, ftnlen ref_len);
13978 /*:ref: return_ 12 0 */
13979 /*:ref: chkin_ 14 2 13 124 */
13980 /*:ref: setmsg_ 14 2 13 124 */
13981 /*:ref: errint_ 14 3 13 4 124 */
13982 /*:ref: errdp_ 14 3 13 7 124 */
13983 /*:ref: sigerr_ 14 2 13 124 */
13984 /*:ref: chkout_ 14 2 13 124 */
13985 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
13986 /*:ref: failed_ 12 0 */
13987 /*:ref: vnorm_ 7 1 7 */
13988 /*:ref: dasine_ 7 2 7 7 */
13989 /*:ref: halfpi_ 7 0 */
13990 /*:ref: vsep_ 7 2 7 7 */
13991 
13992 extern int zzgfspu_(char *of, char *from, char *shape, char *frame, doublereal *et, U_fp udfunc, char *abcorr, logical *decres, doublereal *sep, char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len);
13993 extern int zzgfspin_(char *of, char *from, char *shape, char *frame, char *abcorr, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len);
13994 extern int zzgfspdc_(U_fp udfunc, doublereal *et, logical *decres);
13995 extern int zzgfspgq_(doublereal *et, doublereal *sep);
13996 extern int zzgfspx_(char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len);
13997 /*:ref: chkin_ 14 2 13 124 */
13998 /*:ref: sigerr_ 14 2 13 124 */
13999 /*:ref: chkout_ 14 2 13 124 */
14000 /*:ref: return_ 12 0 */
14001 /*:ref: bods2c_ 14 4 13 4 12 124 */
14002 /*:ref: setmsg_ 14 2 13 124 */
14003 /*:ref: errch_ 14 4 13 13 124 124 */
14004 /*:ref: errint_ 14 3 13 4 124 */
14005 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
14006 /*:ref: ucase_ 14 4 13 13 124 124 */
14007 /*:ref: zzvalcor_ 14 3 13 12 124 */
14008 /*:ref: failed_ 12 0 */
14009 /*:ref: ljust_ 14 4 13 13 124 124 */
14010 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
14011 /*:ref: zzgftreb_ 14 2 4 7 */
14012 /*:ref: namfrm_ 14 3 13 4 124 */
14013 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
14014 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
14015 /*:ref: dvsep_ 7 2 7 7 */
14016 /*:ref: dhfa_ 7 2 7 7 */
14017 /*:ref: zzgfspq_ 14 11 7 4 4 7 7 4 13 13 7 124 124 */
14018 
14019 extern int zzgfssin_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen dref_len);
14020 /*:ref: return_ 12 0 */
14021 /*:ref: chkin_ 14 2 13 124 */
14022 /*:ref: bodc2s_ 14 3 4 13 124 */
14023 /*:ref: zzprscor_ 14 3 13 12 124 */
14024 /*:ref: eqstr_ 12 4 13 13 124 124 */
14025 /*:ref: setmsg_ 14 2 13 124 */
14026 /*:ref: errch_ 14 4 13 13 124 124 */
14027 /*:ref: sigerr_ 14 2 13 124 */
14028 /*:ref: chkout_ 14 2 13 124 */
14029 /*:ref: sxform_ 14 6 13 13 7 7 124 124 */
14030 /*:ref: moved_ 14 3 7 4 7 */
14031 /*:ref: cleard_ 14 2 4 7 */
14032 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
14033 /*:ref: namfrm_ 14 3 13 4 124 */
14034 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
14035 /*:ref: failed_ 12 0 */
14036 /*:ref: errint_ 14 3 13 4 124 */
14037 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
14038 /*:ref: vminug_ 14 3 7 4 7 */
14039 /*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */
14040 /*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */
14041 /*:ref: zzcorsxf_ 14 4 12 7 7 7 */
14042 /*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */
14043 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
14044 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
14045 /*:ref: vscl_ 14 3 7 7 7 */
14046 /*:ref: vsubg_ 14 4 7 7 4 7 */
14047 /*:ref: invstm_ 14 2 7 7 */
14048 /*:ref: vaddg_ 14 4 7 7 4 7 */
14049 /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */
14050 /*:ref: vhat_ 14 2 7 7 */
14051 /*:ref: vdot_ 7 2 7 7 */
14052 /*:ref: clight_ 7 0 */
14053 
14054 extern int zzgfssob_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, doublereal *radii, doublereal *state, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len);
14055 /*:ref: return_ 12 0 */
14056 /*:ref: chkin_ 14 2 13 124 */
14057 /*:ref: bodc2s_ 14 3 4 13 124 */
14058 /*:ref: zzprscor_ 14 3 13 12 124 */
14059 /*:ref: eqstr_ 12 4 13 13 124 124 */
14060 /*:ref: setmsg_ 14 2 13 124 */
14061 /*:ref: errch_ 14 4 13 13 124 124 */
14062 /*:ref: sigerr_ 14 2 13 124 */
14063 /*:ref: chkout_ 14 2 13 124 */
14064 /*:ref: namfrm_ 14 3 13 4 124 */
14065 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
14066 /*:ref: failed_ 12 0 */
14067 /*:ref: errint_ 14 3 13 4 124 */
14068 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
14069 /*:ref: vminug_ 14 3 7 4 7 */
14070 /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */
14071 /*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */
14072 /*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */
14073 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
14074 /*:ref: sxform_ 14 6 13 13 7 7 124 124 */
14075 /*:ref: moved_ 14 3 7 4 7 */
14076 /*:ref: cleard_ 14 2 4 7 */
14077 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
14078 /*:ref: vscl_ 14 3 7 7 7 */
14079 /*:ref: vsubg_ 14 4 7 7 4 7 */
14080 /*:ref: zzcorsxf_ 14 4 12 7 7 7 */
14081 /*:ref: invstm_ 14 2 7 7 */
14082 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
14083 /*:ref: vaddg_ 14 4 7 7 4 7 */
14084 /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */
14085 /*:ref: vhat_ 14 2 7 7 */
14086 /*:ref: vdot_ 7 2 7 7 */
14087 /*:ref: clight_ 7 0 */
14088 
14089 extern int zzgftreb_(integer *body, doublereal *axes);
14090 /*:ref: return_ 12 0 */
14091 /*:ref: chkin_ 14 2 13 124 */
14092 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
14093 /*:ref: setmsg_ 14 2 13 124 */
14094 /*:ref: errint_ 14 3 13 4 124 */
14095 /*:ref: sigerr_ 14 2 13 124 */
14096 /*:ref: chkout_ 14 2 13 124 */
14097 
14098 extern int zzgfudb_(U_fp udfuns, U_fp udfunb, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result);
14099 /*:ref: return_ 12 0 */
14100 /*:ref: chkin_ 14 2 13 124 */
14101 /*:ref: setmsg_ 14 2 13 124 */
14102 /*:ref: errdp_ 14 3 13 7 124 */
14103 /*:ref: sigerr_ 14 2 13 124 */
14104 /*:ref: chkout_ 14 2 13 124 */
14105 /*:ref: wncard_ 4 1 7 */
14106 /*:ref: wnfetd_ 14 4 7 4 7 7 */
14107 /*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */
14108 /*:ref: failed_ 12 0 */
14109 
14110 extern int zzgfudlt_(S_fp udfunc, doublereal *et, logical *isless);
14111 /*:ref: return_ 12 0 */
14112 /*:ref: chkin_ 14 2 13 124 */
14113 /*:ref: failed_ 12 0 */
14114 /*:ref: chkout_ 14 2 13 124 */
14115 /*:ref: zzholdd_ 14 4 4 4 12 7 */
14116 /*:ref: setmsg_ 14 2 13 124 */
14117 /*:ref: sigerr_ 14 2 13 124 */
14118 
14119 extern int zzgfwsts_(doublereal *wndw1, doublereal *wndw2, char *inclsn, doublereal *wndw3, ftnlen inclsn_len);
14120 /*:ref: return_ 12 0 */
14121 /*:ref: chkin_ 14 2 13 124 */
14122 /*:ref: sized_ 4 1 7 */
14123 /*:ref: ssized_ 14 2 4 7 */
14124 /*:ref: cardd_ 4 1 7 */
14125 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
14126 /*:ref: setmsg_ 14 2 13 124 */
14127 /*:ref: errch_ 14 4 13 13 124 124 */
14128 /*:ref: sigerr_ 14 2 13 124 */
14129 /*:ref: chkout_ 14 2 13 124 */
14130 /*:ref: errint_ 14 3 13 4 124 */
14131 /*:ref: scardd_ 14 2 4 7 */
14132 
14133 extern int zzgpnm_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *found, integer *lookat, integer *nameat, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len);
14134 /*:ref: return_ 12 0 */
14135 /*:ref: chkin_ 14 2 13 124 */
14136 /*:ref: zzhash_ 4 2 13 124 */
14137 /*:ref: lnknfn_ 4 1 4 */
14138 /*:ref: lnkan_ 14 2 4 4 */
14139 /*:ref: lnkila_ 14 3 4 4 4 */
14140 /*:ref: setmsg_ 14 2 13 124 */
14141 /*:ref: sigerr_ 14 2 13 124 */
14142 /*:ref: chkout_ 14 2 13 124 */
14143 
14144 extern int zzgrav_(doublereal *grav);
14145 
14146 extern integer zzhashi_(integer *n, integer *m);
14147 /*:ref: chkin_ 14 2 13 124 */
14148 /*:ref: setmsg_ 14 2 13 124 */
14149 /*:ref: errint_ 14 3 13 4 124 */
14150 /*:ref: sigerr_ 14 2 13 124 */
14151 /*:ref: chkout_ 14 2 13 124 */
14152 
14153 extern int zzholdd_(integer *op, integer *id, logical *ok, doublereal *value);
14154 /*:ref: return_ 12 0 */
14155 /*:ref: brckti_ 4 3 4 4 4 */
14156 /*:ref: chkin_ 14 2 13 124 */
14157 /*:ref: setmsg_ 14 2 13 124 */
14158 /*:ref: errint_ 14 3 13 4 124 */
14159 /*:ref: sigerr_ 14 2 13 124 */
14160 /*:ref: chkout_ 14 2 13 124 */
14161 
14162 extern int zzhsc_(integer *hashsz, integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, integer *avail, ftnlen items_len, ftnlen item_len);
14163 extern int zzhscini_(integer *hashsz, integer *hedlst, integer *collst);
14164 extern int zzhscadd_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, ftnlen items_len, ftnlen item_len);
14165 extern int zzhscchk_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, ftnlen items_len, ftnlen item_len);
14166 extern int zzhscavl_(integer *collst, integer *avail);
14167 extern int zzhscinf_(integer *hedlst, integer *collst, char *items, char *item, integer *avail, ftnlen items_len, ftnlen item_len);
14168 /*:ref: return_ 12 0 */
14169 /*:ref: chkin_ 14 2 13 124 */
14170 /*:ref: sigerr_ 14 2 13 124 */
14171 /*:ref: chkout_ 14 2 13 124 */
14172 /*:ref: zzhash2_ 4 3 13 4 124 */
14173 /*:ref: failed_ 12 0 */
14174 /*:ref: setmsg_ 14 2 13 124 */
14175 /*:ref: errch_ 14 4 13 13 124 124 */
14176 
14177 extern int zzhsi_(integer *hashsz, integer *hedlst, integer *collst, integer *items, integer *item, char *param, integer *itemat, logical *new__, integer *avail, ftnlen param_len);
14178 extern int zzhsiini_(integer *hashsz, integer *hedlst, integer *collst);
14179 extern int zzhsiadd_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat, logical *new__);
14180 extern int zzhsichk_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat);
14181 extern int zzhsiavl_(integer *collst, integer *avail);
14182 extern int zzhsiinf_(integer *hedlst, integer *collst, integer *items, char *param, integer *avail, ftnlen param_len);
14183 /*:ref: return_ 12 0 */
14184 /*:ref: chkin_ 14 2 13 124 */
14185 /*:ref: sigerr_ 14 2 13 124 */
14186 /*:ref: chkout_ 14 2 13 124 */
14187 /*:ref: zzhashi_ 4 2 4 4 */
14188 /*:ref: failed_ 12 0 */
14189 /*:ref: setmsg_ 14 2 13 124 */
14190 /*:ref: errint_ 14 3 13 4 124 */
14191 /*:ref: errch_ 14 4 13 13 124 124 */
14192 
14193 extern int zzhullax_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len);
14194 /*:ref: return_ 12 0 */
14195 /*:ref: chkin_ 14 2 13 124 */
14196 /*:ref: setmsg_ 14 2 13 124 */
14197 /*:ref: errch_ 14 4 13 13 124 124 */
14198 /*:ref: errint_ 14 3 13 4 124 */
14199 /*:ref: sigerr_ 14 2 13 124 */
14200 /*:ref: chkout_ 14 2 13 124 */
14201 /*:ref: vcrss_ 14 3 7 7 7 */
14202 /*:ref: vzero_ 12 1 7 */
14203 /*:ref: vsep_ 7 2 7 7 */
14204 /*:ref: halfpi_ 7 0 */
14205 /*:ref: vsclip_ 14 2 7 7 */
14206 /*:ref: pi_ 7 0 */
14207 /*:ref: vhat_ 14 2 7 7 */
14208 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
14209 /*:ref: vhatip_ 14 1 7 */
14210 /*:ref: ucrss_ 14 3 7 7 7 */
14211 /*:ref: mxv_ 14 3 7 7 7 */
14212 /*:ref: reclat_ 14 4 7 7 7 7 */
14213 /*:ref: errdp_ 14 3 13 7 124 */
14214 /*:ref: vrotv_ 14 4 7 7 7 7 */
14215 
14216 extern int zzidmap_(integer *bltcod, char *bltnam, ftnlen bltnam_len);
14217 
14218 extern int zzilusta_(char *method, char *target, char *illum, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *normal, doublereal *phssta, doublereal *incsta, doublereal *emista, ftnlen method_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len);
14219 /*:ref: return_ 12 0 */
14220 /*:ref: chkin_ 14 2 13 124 */
14221 /*:ref: eqstr_ 12 4 13 13 124 124 */
14222 /*:ref: setmsg_ 14 2 13 124 */
14223 /*:ref: errch_ 14 4 13 13 124 124 */
14224 /*:ref: sigerr_ 14 2 13 124 */
14225 /*:ref: chkout_ 14 2 13 124 */
14226 /*:ref: vzero_ 12 1 7 */
14227 /*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */
14228 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
14229 /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */
14230 /*:ref: failed_ 12 0 */
14231 /*:ref: sxform_ 14 6 13 13 7 7 124 124 */
14232 /*:ref: zzvalcor_ 14 3 13 12 124 */
14233 /*:ref: vhat_ 14 2 7 7 */
14234 /*:ref: vdot_ 7 2 7 7 */
14235 /*:ref: clight_ 7 0 */
14236 /*:ref: zzcorsxf_ 14 4 12 7 7 7 */
14237 /*:ref: moved_ 14 3 7 4 7 */
14238 /*:ref: cleard_ 14 2 4 7 */
14239 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
14240 /*:ref: vsclip_ 14 2 7 7 */
14241 /*:ref: vminug_ 14 3 7 4 7 */
14242 /*:ref: vsep_ 7 2 7 7 */
14243 /*:ref: dvsep_ 7 2 7 7 */
14244 
14245 extern logical zzingrd_(integer *nvox, integer *voxel);
14246 
14247 extern int zzinil_(doublereal *geophs, integer *opmode, doublereal *ecco, doublereal *epoch, doublereal *inclo, doublereal *no, doublereal *ainv, doublereal *ao, doublereal *con41, doublereal *con42, doublereal *cosio, doublereal *cosio2, doublereal *eccsq, doublereal *omeosq, doublereal *posq, doublereal *rp, doublereal *rteosq, doublereal *sinio, doublereal *gsto);
14248 /*:ref: return_ 12 0 */
14249 /*:ref: chkin_ 14 2 13 124 */
14250 /*:ref: twopi_ 7 0 */
14251 /*:ref: setmsg_ 14 2 13 124 */
14252 /*:ref: errint_ 14 3 13 4 124 */
14253 /*:ref: sigerr_ 14 2 13 124 */
14254 /*:ref: chkout_ 14 2 13 124 */
14255 
14256 extern int zzinilnk_(integer *maxp, integer *maxc, integer *ncell, integer *pntrs, integer *cells);
14257 /*:ref: return_ 12 0 */
14258 /*:ref: chkin_ 14 2 13 124 */
14259 /*:ref: setmsg_ 14 2 13 124 */
14260 /*:ref: errint_ 14 3 13 4 124 */
14261 /*:ref: sigerr_ 14 2 13 124 */
14262 /*:ref: chkout_ 14 2 13 124 */
14263 
14264 extern int zzinlat_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside);
14265 /*:ref: return_ 12 0 */
14266 /*:ref: twopi_ 7 0 */
14267 /*:ref: halfpi_ 7 0 */
14268 /*:ref: reclat_ 14 4 7 7 7 7 */
14269 /*:ref: zzinlat0_ 14 6 7 7 7 7 4 12 */
14270 /*:ref: chkin_ 14 2 13 124 */
14271 /*:ref: setmsg_ 14 2 13 124 */
14272 /*:ref: errdp_ 14 3 13 7 124 */
14273 /*:ref: sigerr_ 14 2 13 124 */
14274 /*:ref: chkout_ 14 2 13 124 */
14275 /*:ref: errint_ 14 3 13 4 124 */
14276 /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */
14277 
14278 extern int zzinlat0_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *bounds, integer *exclud, logical *inside);
14279 /*:ref: twopi_ 7 0 */
14280 /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */
14281 
14282 extern int zzinpdt_(doublereal *p, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *exclud, logical *inside);
14283 /*:ref: return_ 12 0 */
14284 /*:ref: chkin_ 14 2 13 124 */
14285 /*:ref: halfpi_ 7 0 */
14286 /*:ref: twopi_ 7 0 */
14287 /*:ref: pi_ 7 0 */
14288 /*:ref: setmsg_ 14 2 13 124 */
14289 /*:ref: errint_ 14 3 13 4 124 */
14290 /*:ref: sigerr_ 14 2 13 124 */
14291 /*:ref: chkout_ 14 2 13 124 */
14292 /*:ref: reclat_ 14 4 7 7 7 7 */
14293 /*:ref: zzinpdt0_ 14 6 7 7 7 7 4 12 */
14294 /*:ref: errdp_ 14 3 13 7 124 */
14295 /*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */
14296 /*:ref: failed_ 12 0 */
14297 /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */
14298 
14299 extern int zzinpdt0_(doublereal *p, doublereal *lon, doublereal *bounds, doublereal *corpar, integer *exclud, logical *inside);
14300 /*:ref: return_ 12 0 */
14301 /*:ref: chkin_ 14 2 13 124 */
14302 /*:ref: twopi_ 7 0 */
14303 /*:ref: halfpi_ 7 0 */
14304 /*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */
14305 /*:ref: failed_ 12 0 */
14306 /*:ref: chkout_ 14 2 13 124 */
14307 /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */
14308 /*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */
14309 
14310 extern int zzinrec_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside);
14311 /*:ref: return_ 12 0 */
14312 /*:ref: chkin_ 14 2 13 124 */
14313 /*:ref: setmsg_ 14 2 13 124 */
14314 /*:ref: errdp_ 14 3 13 7 124 */
14315 /*:ref: sigerr_ 14 2 13 124 */
14316 /*:ref: chkout_ 14 2 13 124 */
14317 /*:ref: errint_ 14 3 13 4 124 */
14318 
14319 extern int zzinrypl_(doublereal *vertex, doublereal *udir, doublereal *uplnml, doublereal *const__, doublereal *maxd, integer *nxpts, doublereal *xpt);
14320 /*:ref: vdot_ 7 2 7 7 */
14321 /*:ref: vequ_ 14 2 7 7 */
14322 
14323 extern int zzinssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len);
14324 
14325 extern int zzinvelt_(doublereal *p, integer *corsys, doublereal *corpar, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside);
14326 /*:ref: return_ 12 0 */
14327 /*:ref: chkin_ 14 2 13 124 */
14328 /*:ref: setmsg_ 14 2 13 124 */
14329 /*:ref: errdp_ 14 3 13 7 124 */
14330 /*:ref: sigerr_ 14 2 13 124 */
14331 /*:ref: chkout_ 14 2 13 124 */
14332 /*:ref: zzinlat_ 14 5 7 7 7 4 12 */
14333 /*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */
14334 /*:ref: zzinrec_ 14 5 7 7 7 4 12 */
14335 /*:ref: errint_ 14 3 13 4 124 */
14336 
14337 extern int zzlatbox_(doublereal *bounds, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius);
14338 /*:ref: return_ 12 0 */
14339 /*:ref: twopi_ 7 0 */
14340 /*:ref: chkin_ 14 2 13 124 */
14341 /*:ref: setmsg_ 14 2 13 124 */
14342 /*:ref: errdp_ 14 3 13 7 124 */
14343 /*:ref: sigerr_ 14 2 13 124 */
14344 /*:ref: chkout_ 14 2 13 124 */
14345 /*:ref: halfpi_ 7 0 */
14346 /*:ref: cylrec_ 14 4 7 7 7 7 */
14347 /*:ref: vpack_ 14 4 7 7 7 7 */
14348 /*:ref: vnorm_ 7 1 7 */
14349 
14350 extern int zzldker_(char *file, char *nofile, char *filtyp, integer *handle, ftnlen file_len, ftnlen nofile_len, ftnlen filtyp_len);
14351 /*:ref: return_ 12 0 */
14352 /*:ref: chkin_ 14 2 13 124 */
14353 /*:ref: exists_ 12 2 13 124 */
14354 /*:ref: setmsg_ 14 2 13 124 */
14355 /*:ref: errch_ 14 4 13 13 124 124 */
14356 /*:ref: sigerr_ 14 2 13 124 */
14357 /*:ref: chkout_ 14 2 13 124 */
14358 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
14359 /*:ref: spklef_ 14 3 13 4 124 */
14360 /*:ref: cklpf_ 14 3 13 4 124 */
14361 /*:ref: pcklof_ 14 3 13 4 124 */
14362 /*:ref: tkvrsn_ 14 4 13 13 124 124 */
14363 /*:ref: eklef_ 14 3 13 4 124 */
14364 /*:ref: zzdsklsf_ 14 3 13 4 124 */
14365 /*:ref: ldpool_ 14 2 13 124 */
14366 /*:ref: failed_ 12 0 */
14367 /*:ref: zzbodkik_ 14 0 */
14368 
14369 extern int zzlexmet_(char *method, integer *maxn, integer *n, integer *begs, integer *ends, ftnlen method_len);
14370 /*:ref: return_ 12 0 */
14371 /*:ref: chkin_ 14 2 13 124 */
14372 /*:ref: chkout_ 14 2 13 124 */
14373 /*:ref: rtrim_ 4 2 13 124 */
14374 /*:ref: cpos_ 4 5 13 13 4 124 124 */
14375 /*:ref: ltrim_ 4 2 13 124 */
14376 /*:ref: setmsg_ 14 2 13 124 */
14377 /*:ref: errint_ 14 3 13 4 124 */
14378 /*:ref: sigerr_ 14 2 13 124 */
14379 /*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */
14380 /*:ref: errch_ 14 4 13 13 124 124 */
14381 
14382 extern int zzmkpc_(char *pictur, integer *b, integer *e, char *mark, char *pattrn, ftnlen pictur_len, ftnlen mark_len, ftnlen pattrn_len);
14383 /*:ref: lastnb_ 4 2 13 124 */
14384 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
14385 
14386 extern int zzmkspin_(integer *np, integer *plates, doublereal *vrtces, doublereal *voxscl, integer *cgscal, integer *maxptr, integer *mxcell, integer *maxvxl, integer *cells, integer *nvox, doublereal *voxsiz, doublereal *voxori, integer *nvxtot, integer *nvxptr, integer *vxptr, integer *nvxlst, integer *vxlist, doublereal *extent, integer *cgrptr);
14387 /*:ref: return_ 12 0 */
14388 /*:ref: chkin_ 14 2 13 124 */
14389 /*:ref: setmsg_ 14 2 13 124 */
14390 /*:ref: errint_ 14 3 13 4 124 */
14391 /*:ref: sigerr_ 14 2 13 124 */
14392 /*:ref: chkout_ 14 2 13 124 */
14393 /*:ref: dpmax_ 7 0 */
14394 /*:ref: dpmin_ 7 0 */
14395 /*:ref: zzinilnk_ 14 5 4 4 4 4 4 */
14396 /*:ref: cleari_ 14 2 4 4 */
14397 /*:ref: brcktd_ 7 3 7 7 7 */
14398 /*:ref: vpack_ 14 4 7 7 7 7 */
14399 /*:ref: zzgetvox_ 14 6 7 7 4 7 12 4 */
14400 /*:ref: errdp_ 14 3 13 7 124 */
14401 /*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */
14402 /*:ref: failed_ 12 0 */
14403 /*:ref: zzvox2id_ 4 2 4 4 */
14404 /*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */
14405 /*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */
14406 
14407 extern int zzmobliq_(doublereal *et, doublereal *mob, doublereal *dmob);
14408 /*:ref: jyear_ 7 0 */
14409 /*:ref: rpd_ 7 0 */
14410 
14411 extern int zzmsxf_(doublereal *matrix, integer *n, doublereal *output);
14412 
14413 extern doublereal zzmult_(doublereal *a, doublereal *b);
14414 /*:ref: return_ 12 0 */
14415 /*:ref: chkin_ 14 2 13 124 */
14416 /*:ref: dpmax_ 7 0 */
14417 /*:ref: chkout_ 14 2 13 124 */
14418 /*:ref: setmsg_ 14 2 13 124 */
14419 /*:ref: errdp_ 14 3 13 7 124 */
14420 /*:ref: sigerr_ 14 2 13 124 */
14421 
14422 extern int zznamfrm_(integer *usrctr, char *savnam, integer *savcde, char *frname, integer *frcode, ftnlen savnam_len, ftnlen frname_len);
14423 /*:ref: return_ 12 0 */
14424 /*:ref: zzpctrck_ 14 2 4 12 */
14425 /*:ref: chkin_ 14 2 13 124 */
14426 /*:ref: namfrm_ 14 3 13 4 124 */
14427 /*:ref: chkout_ 14 2 13 124 */
14428 
14429 extern int zznofcon_(doublereal *et, integer *frame1, integer *endp1, integer *frame2, integer *endp2, char *errmsg, ftnlen errmsg_len);
14430 /*:ref: return_ 12 0 */
14431 /*:ref: chkin_ 14 2 13 124 */
14432 /*:ref: etcal_ 14 3 7 13 124 */
14433 /*:ref: frmnam_ 14 3 4 13 124 */
14434 /*:ref: failed_ 12 0 */
14435 /*:ref: chkout_ 14 2 13 124 */
14436 /*:ref: repmf_ 14 10 13 13 7 4 13 13 124 124 124 124 */
14437 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
14438 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
14439 /*:ref: suffix_ 14 5 13 4 13 124 124 */
14440 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
14441 /*:ref: ckmeta_ 14 4 4 13 4 124 */
14442 /*:ref: zzsclk_ 12 2 4 4 */
14443 
14444 extern int zznrddp_(doublereal *ao, doublereal *elems, doublereal *em, doublereal *omgasm, doublereal *omgdot, doublereal *t, doublereal *xinc, doublereal *xll, doublereal *xlldot, doublereal *xn, doublereal *xnodes, doublereal *xnodot, doublereal *xnodp);
14445 extern int zzdpinit_(doublereal *ao, doublereal *xlldot, doublereal *omgdot, doublereal *xnodot, doublereal *xnodp, doublereal *elems);
14446 extern int zzdpsec_(doublereal *xll, doublereal *omgasm, doublereal *xnodes, doublereal *em, doublereal *xinc, doublereal *xn, doublereal *t, doublereal *elems, doublereal *omgdot);
14447 extern int zzdpper_(doublereal *t, doublereal *em, doublereal *xinc, doublereal *omgasm, doublereal *xnodes, doublereal *xll);
14448 /*:ref: return_ 12 0 */
14449 /*:ref: chkin_ 14 2 13 124 */
14450 /*:ref: setmsg_ 14 2 13 124 */
14451 /*:ref: sigerr_ 14 2 13 124 */
14452 /*:ref: chkout_ 14 2 13 124 */
14453 /*:ref: pi_ 7 0 */
14454 /*:ref: twopi_ 7 0 */
14455 /*:ref: j2000_ 7 0 */
14456 /*:ref: spd_ 7 0 */
14457 /*:ref: j1950_ 7 0 */
14458 /*:ref: zzsecprt_ 14 12 4 7 7 7 7 7 7 7 7 7 7 7 */
14459 
14460 extern int zznrmlon_(doublereal *inmin, doublereal *inmax, doublereal *tol, doublereal *outmin, doublereal *outmax);
14461 /*:ref: twopi_ 7 0 */
14462 /*:ref: chkin_ 14 2 13 124 */
14463 /*:ref: setmsg_ 14 2 13 124 */
14464 /*:ref: errdp_ 14 3 13 7 124 */
14465 /*:ref: sigerr_ 14 2 13 124 */
14466 /*:ref: chkout_ 14 2 13 124 */
14467 /*:ref: dpr_ 7 0 */
14468 /*:ref: touchd_ 7 1 7 */
14469 
14470 extern int zznwpool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtwrk, char *notify, char *agents, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtwrk_len, ftnlen notify_len, ftnlen agents_len);
14471 /*:ref: return_ 12 0 */
14472 /*:ref: chkin_ 14 2 13 124 */
14473 /*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */
14474 /*:ref: unionc_ 14 6 13 13 13 124 124 124 */
14475 /*:ref: copyc_ 14 4 13 13 124 124 */
14476 /*:ref: chkout_ 14 2 13 124 */
14477 
14478 extern integer zzocced_(doublereal *viewpt, doublereal *centr1, doublereal *semax1, doublereal *centr2, doublereal *semax2);
14479 /*:ref: return_ 12 0 */
14480 /*:ref: chkin_ 14 2 13 124 */
14481 /*:ref: unorm_ 14 3 7 7 7 */
14482 /*:ref: setmsg_ 14 2 13 124 */
14483 /*:ref: errdp_ 14 3 13 7 124 */
14484 /*:ref: sigerr_ 14 2 13 124 */
14485 /*:ref: chkout_ 14 2 13 124 */
14486 /*:ref: vequ_ 14 2 7 7 */
14487 /*:ref: vsub_ 14 3 7 7 7 */
14488 /*:ref: vnorm_ 7 1 7 */
14489 /*:ref: errint_ 14 3 13 4 124 */
14490 /*:ref: isrot_ 12 3 7 7 7 */
14491 /*:ref: det_ 7 1 7 */
14492 /*:ref: mtxv_ 14 3 7 7 7 */
14493 /*:ref: dasine_ 7 2 7 7 */
14494 /*:ref: failed_ 12 0 */
14495 /*:ref: vminus_ 14 2 7 7 */
14496 /*:ref: edlimb_ 14 5 7 7 7 7 7 */
14497 /*:ref: el2cgv_ 14 4 7 7 7 7 */
14498 /*:ref: psv2pl_ 14 4 7 7 7 7 */
14499 /*:ref: vprjp_ 14 3 7 7 7 */
14500 /*:ref: vdist_ 7 2 7 7 */
14501 /*:ref: vsep_ 7 2 7 7 */
14502 /*:ref: halfpi_ 7 0 */
14503 /*:ref: xpose_ 14 2 7 7 */
14504 /*:ref: mxv_ 14 3 7 7 7 */
14505 /*:ref: vadd_ 14 3 7 7 7 */
14506 /*:ref: cleard_ 14 2 4 7 */
14507 /*:ref: mxm_ 14 3 7 7 7 */
14508 /*:ref: saelgv_ 14 4 7 7 7 7 */
14509 /*:ref: cgv2el_ 14 4 7 7 7 7 */
14510 /*:ref: zzasryel_ 14 7 13 7 7 7 7 7 124 */
14511 /*:ref: ucrss_ 14 3 7 7 7 */
14512 /*:ref: pi_ 7 0 */
14513 
14514 extern int zzpdcmpl_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat, integer *rel);
14515 /*:ref: return_ 12 0 */
14516 /*:ref: chkin_ 14 2 13 124 */
14517 /*:ref: halfpi_ 7 0 */
14518 /*:ref: chkout_ 14 2 13 124 */
14519 /*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */
14520 /*:ref: failed_ 12 0 */
14521 /*:ref: vsub_ 14 3 7 7 7 */
14522 /*:ref: reclat_ 14 4 7 7 7 7 */
14523 
14524 extern logical zzpdpltc_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat);
14525 /*:ref: return_ 12 0 */
14526 /*:ref: chkin_ 14 2 13 124 */
14527 /*:ref: setmsg_ 14 2 13 124 */
14528 /*:ref: errdp_ 14 3 13 7 124 */
14529 /*:ref: sigerr_ 14 2 13 124 */
14530 /*:ref: chkout_ 14 2 13 124 */
14531 /*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */
14532 /*:ref: failed_ 12 0 */
14533 
14534 extern int zzpdtbox_(doublereal *bounds, doublereal *corpar, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius);
14535 /*:ref: return_ 12 0 */
14536 /*:ref: chkin_ 14 2 13 124 */
14537 /*:ref: setmsg_ 14 2 13 124 */
14538 /*:ref: errdp_ 14 3 13 7 124 */
14539 /*:ref: sigerr_ 14 2 13 124 */
14540 /*:ref: chkout_ 14 2 13 124 */
14541 /*:ref: twopi_ 7 0 */
14542 /*:ref: halfpi_ 7 0 */
14543 /*:ref: georec_ 14 6 7 7 7 7 7 7 */
14544 /*:ref: vnorm_ 7 1 7 */
14545 /*:ref: cylrec_ 14 4 7 7 7 7 */
14546 /*:ref: vpack_ 14 4 7 7 7 7 */
14547 
14548 extern integer zzphsh_(char *word, integer *m, integer *m2, ftnlen word_len);
14549 extern integer zzshsh_(integer *m);
14550 extern integer zzhash_(char *word, ftnlen word_len);
14551 extern integer zzhash2_(char *word, integer *m2, ftnlen word_len);
14552 /*:ref: intmax_ 4 0 */
14553 /*:ref: chkin_ 14 2 13 124 */
14554 /*:ref: setmsg_ 14 2 13 124 */
14555 /*:ref: errint_ 14 3 13 4 124 */
14556 /*:ref: sigerr_ 14 2 13 124 */
14557 /*:ref: chkout_ 14 2 13 124 */
14558 /*:ref: errch_ 14 4 13 13 124 124 */
14559 
14560 extern int zzpini_(logical *first, integer *maxvar, integer *maxval, integer *maxlin, char *begdat, char *begtxt, integer *nmpool, integer *dppool, integer *chpool, integer *namlst, integer *datlst, integer *maxagt, integer *mxnote, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agents, char *active, char *notify, integer *subctr, ftnlen begdat_len, ftnlen begtxt_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agents_len, ftnlen active_len, ftnlen notify_len);
14561 /*:ref: chkin_ 14 2 13 124 */
14562 /*:ref: zzshsh_ 4 1 4 */
14563 /*:ref: touchi_ 4 1 4 */
14564 /*:ref: lnkini_ 14 2 4 4 */
14565 /*:ref: ssizec_ 14 3 4 13 124 */
14566 /*:ref: cleari_ 14 2 4 4 */
14567 /*:ref: clearc_ 14 3 4 13 124 */
14568 /*:ref: zzctrsin_ 14 1 4 */
14569 /*:ref: failed_ 12 0 */
14570 /*:ref: chkout_ 14 2 13 124 */
14571 
14572 extern int zzplatfm_(char *key, char *value, ftnlen key_len, ftnlen value_len);
14573 /*:ref: ucase_ 14 4 13 13 124 124 */
14574 /*:ref: ljust_ 14 4 13 13 124 124 */
14575 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
14576 
14577 extern int zzpltchk_(logical *ok);
14578 /*:ref: return_ 12 0 */
14579 /*:ref: chkin_ 14 2 13 124 */
14580 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
14581 /*:ref: zzgetbff_ 14 1 4 */
14582 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
14583 /*:ref: setmsg_ 14 2 13 124 */
14584 /*:ref: errch_ 14 4 13 13 124 124 */
14585 /*:ref: sigerr_ 14 2 13 124 */
14586 /*:ref: chkout_ 14 2 13 124 */
14587 
14588 extern int zzprscor_(char *abcorr, logical *attblk, ftnlen abcorr_len);
14589 /*:ref: return_ 12 0 */
14590 /*:ref: orderc_ 14 4 13 4 4 124 */
14591 /*:ref: reordc_ 14 4 4 4 13 124 */
14592 /*:ref: reordl_ 14 3 4 4 12 */
14593 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
14594 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
14595 /*:ref: chkin_ 14 2 13 124 */
14596 /*:ref: setmsg_ 14 2 13 124 */
14597 /*:ref: errch_ 14 4 13 13 124 124 */
14598 /*:ref: sigerr_ 14 2 13 124 */
14599 /*:ref: chkout_ 14 2 13 124 */
14600 
14601 extern int zzprsmet_(integer *bodyid, char *method, integer *mxnsrf, char *shape, char *subtyp, logical *pri, integer *nsurf, integer *srflst, char *pntdef, char *trmtyp, ftnlen method_len, ftnlen shape_len, ftnlen subtyp_len, ftnlen pntdef_len, ftnlen trmtyp_len);
14602 /*:ref: return_ 12 0 */
14603 /*:ref: chkin_ 14 2 13 124 */
14604 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
14605 /*:ref: zzlexmet_ 14 6 13 4 4 4 4 124 */
14606 /*:ref: failed_ 12 0 */
14607 /*:ref: chkout_ 14 2 13 124 */
14608 /*:ref: setmsg_ 14 2 13 124 */
14609 /*:ref: errint_ 14 3 13 4 124 */
14610 /*:ref: errch_ 14 4 13 13 124 124 */
14611 /*:ref: sigerr_ 14 2 13 124 */
14612 /*:ref: srfscc_ 14 5 13 4 4 12 124 */
14613 /*:ref: eqstr_ 12 4 13 13 124 124 */
14614 
14615 extern int zzptpl02_(integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *point, integer *plid, integer *plate, doublereal *verts, logical *found);
14616 /*:ref: return_ 12 0 */
14617 /*:ref: chkin_ 14 2 13 124 */
14618 /*:ref: dlassg_ 12 4 4 4 4 4 */
14619 /*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */
14620 /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */
14621 /*:ref: failed_ 12 0 */
14622 /*:ref: chkout_ 14 2 13 124 */
14623 /*:ref: setmsg_ 14 2 13 124 */
14624 /*:ref: sigerr_ 14 2 13 124 */
14625 /*:ref: zzsegbox_ 14 3 7 7 7 */
14626 /*:ref: movei_ 14 3 4 4 4 */
14627 /*:ref: dskgtl_ 14 2 4 7 */
14628 /*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */
14629 /*:ref: vsub_ 14 3 7 7 7 */
14630 /*:ref: brckti_ 4 3 4 4 4 */
14631 /*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */
14632 /*:ref: zzvox2id_ 4 2 4 4 */
14633 /*:ref: dpmax_ 7 0 */
14634 /*:ref: pltexp_ 14 3 7 7 7 */
14635 /*:ref: pltnrm_ 14 4 7 7 7 7 */
14636 /*:ref: vhatip_ 14 1 7 */
14637 /*:ref: vdot_ 7 2 7 7 */
14638 /*:ref: pltnp_ 14 6 7 7 7 7 7 7 */
14639 /*:ref: moved_ 14 3 7 4 7 */
14640 
14641 extern int zzraybox_(doublereal *vertex, doublereal *raydir, doublereal *boxori, doublereal *extent, doublereal *xpt, logical *found);
14642 /*:ref: return_ 12 0 */
14643 /*:ref: vzero_ 12 1 7 */
14644 /*:ref: chkin_ 14 2 13 124 */
14645 /*:ref: setmsg_ 14 2 13 124 */
14646 /*:ref: sigerr_ 14 2 13 124 */
14647 /*:ref: chkout_ 14 2 13 124 */
14648 /*:ref: vhat_ 14 2 7 7 */
14649 /*:ref: errdp_ 14 3 13 7 124 */
14650 /*:ref: vsub_ 14 3 7 7 7 */
14651 /*:ref: vequ_ 14 2 7 7 */
14652 /*:ref: vnorm_ 7 1 7 */
14653 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
14654 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
14655 /*:ref: vadd_ 14 3 7 7 7 */
14656 
14657 extern int zzrbrkst_(char *string, char *lftend, char *rgtend, char *substr, integer *length, logical *bkpres, ftnlen string_len, ftnlen lftend_len, ftnlen rgtend_len, ftnlen substr_len);
14658 /*:ref: posr_ 4 5 13 13 4 124 124 */
14659 
14660 extern int zzrecbox_(doublereal *bounds, doublereal *center, doublereal *lx, doublereal *ly, doublereal *lz, doublereal *radius);
14661 /*:ref: return_ 12 0 */
14662 /*:ref: chkin_ 14 2 13 124 */
14663 /*:ref: setmsg_ 14 2 13 124 */
14664 /*:ref: errint_ 14 3 13 4 124 */
14665 /*:ref: errdp_ 14 3 13 7 124 */
14666 /*:ref: sigerr_ 14 2 13 124 */
14667 /*:ref: chkout_ 14 2 13 124 */
14668 /*:ref: vpack_ 14 4 7 7 7 7 */
14669 /*:ref: vnorm_ 7 1 7 */
14670 
14671 extern int zzrefch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate);
14672 /*:ref: return_ 12 0 */
14673 /*:ref: chkin_ 14 2 13 124 */
14674 /*:ref: ident_ 14 1 7 */
14675 /*:ref: chkout_ 14 2 13 124 */
14676 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
14677 /*:ref: setmsg_ 14 2 13 124 */
14678 /*:ref: errint_ 14 3 13 4 124 */
14679 /*:ref: sigerr_ 14 2 13 124 */
14680 /*:ref: zzrotgt0_ 14 5 4 7 7 4 12 */
14681 /*:ref: zzrxr_ 14 3 7 4 7 */
14682 /*:ref: isrchi_ 4 3 4 4 4 */
14683 /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */
14684 /*:ref: failed_ 12 0 */
14685 /*:ref: xpose_ 14 2 7 7 */
14686 
14687 extern int zzrefch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate);
14688 /*:ref: return_ 12 0 */
14689 /*:ref: chkin_ 14 2 13 124 */
14690 /*:ref: ident_ 14 1 7 */
14691 /*:ref: chkout_ 14 2 13 124 */
14692 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
14693 /*:ref: setmsg_ 14 2 13 124 */
14694 /*:ref: errint_ 14 3 13 4 124 */
14695 /*:ref: sigerr_ 14 2 13 124 */
14696 /*:ref: zzrotgt1_ 14 5 4 7 7 4 12 */
14697 /*:ref: zzrxr_ 14 3 7 4 7 */
14698 /*:ref: isrchi_ 4 3 4 4 4 */
14699 /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */
14700 /*:ref: failed_ 12 0 */
14701 /*:ref: xpose_ 14 2 7 7 */
14702 
14703 extern int zzrepsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len);
14704 /*:ref: sumai_ 4 2 4 4 */
14705 
14706 extern logical zzrept_(char *sub, char *replac, logical *l2r, ftnlen sub_len, ftnlen replac_len);
14707 /*:ref: zzsubt_ 12 5 13 13 12 124 124 */
14708 /*:ref: zzremt_ 12 2 13 124 */
14709 
14710 extern int zzrotgt0_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found);
14711 /*:ref: return_ 12 0 */
14712 /*:ref: chkin_ 14 2 13 124 */
14713 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
14714 /*:ref: chkout_ 14 2 13 124 */
14715 /*:ref: irfrot_ 14 3 4 4 7 */
14716 /*:ref: tipbod_ 14 5 13 4 7 7 124 */
14717 /*:ref: xpose_ 14 2 7 7 */
14718 /*:ref: namfrm_ 14 3 13 4 124 */
14719 /*:ref: failed_ 12 0 */
14720 /*:ref: ckfrot_ 14 5 4 7 7 4 12 */
14721 /*:ref: tkfram_ 14 4 4 7 4 12 */
14722 /*:ref: zzdynrt0_ 14 5 4 4 7 7 4 */
14723 /*:ref: setmsg_ 14 2 13 124 */
14724 /*:ref: errint_ 14 3 13 4 124 */
14725 /*:ref: errch_ 14 4 13 13 124 124 */
14726 /*:ref: sigerr_ 14 2 13 124 */
14727 
14728 extern int zzrotgt1_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found);
14729 /*:ref: return_ 12 0 */
14730 /*:ref: chkin_ 14 2 13 124 */
14731 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
14732 /*:ref: chkout_ 14 2 13 124 */
14733 /*:ref: irfrot_ 14 3 4 4 7 */
14734 /*:ref: tipbod_ 14 5 13 4 7 7 124 */
14735 /*:ref: xpose_ 14 2 7 7 */
14736 /*:ref: namfrm_ 14 3 13 4 124 */
14737 /*:ref: failed_ 12 0 */
14738 /*:ref: ckfrot_ 14 5 4 7 7 4 12 */
14739 /*:ref: tkfram_ 14 4 4 7 4 12 */
14740 /*:ref: setmsg_ 14 2 13 124 */
14741 /*:ref: errint_ 14 3 13 4 124 */
14742 /*:ref: sigerr_ 14 2 13 124 */
14743 /*:ref: errch_ 14 4 13 13 124 124 */
14744 
14745 extern int zzrtnmat_(doublereal *v, doublereal *m);
14746 /*:ref: return_ 12 0 */
14747 /*:ref: cleard_ 14 2 4 7 */
14748 /*:ref: chkin_ 14 2 13 124 */
14749 /*:ref: setmsg_ 14 2 13 124 */
14750 /*:ref: errdp_ 14 3 13 7 124 */
14751 /*:ref: sigerr_ 14 2 13 124 */
14752 /*:ref: chkout_ 14 2 13 124 */
14753 /*:ref: ucrss_ 14 3 7 7 7 */
14754 /*:ref: vhat_ 14 2 7 7 */
14755 
14756 extern int zzrvar_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len);
14757 /*:ref: return_ 12 0 */
14758 /*:ref: chkin_ 14 2 13 124 */
14759 /*:ref: failed_ 12 0 */
14760 /*:ref: rdkdat_ 14 3 13 12 124 */
14761 /*:ref: chkout_ 14 2 13 124 */
14762 /*:ref: rdklin_ 14 3 13 4 124 */
14763 /*:ref: setmsg_ 14 2 13 124 */
14764 /*:ref: rtrim_ 4 2 13 124 */
14765 /*:ref: errint_ 14 3 13 4 124 */
14766 /*:ref: errch_ 14 4 13 13 124 124 */
14767 /*:ref: sigerr_ 14 2 13 124 */
14768 /*:ref: lastpc_ 4 2 13 124 */
14769 /*:ref: zzhash_ 4 2 13 124 */
14770 /*:ref: lnknfn_ 4 1 4 */
14771 /*:ref: lnkan_ 14 2 4 4 */
14772 /*:ref: lnkila_ 14 3 4 4 4 */
14773 /*:ref: lnkfsl_ 14 3 4 4 4 */
14774 /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */
14775 /*:ref: tparse_ 14 5 13 7 13 124 124 */
14776 /*:ref: lastnb_ 4 2 13 124 */
14777 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
14778 
14779 extern int zzrvbf_(char *buffer, integer *bsize, integer *linnum, integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen buffer_len, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len);
14780 /*:ref: return_ 12 0 */
14781 /*:ref: chkin_ 14 2 13 124 */
14782 /*:ref: failed_ 12 0 */
14783 /*:ref: chkout_ 14 2 13 124 */
14784 /*:ref: setmsg_ 14 2 13 124 */
14785 /*:ref: rtrim_ 4 2 13 124 */
14786 /*:ref: errint_ 14 3 13 4 124 */
14787 /*:ref: errch_ 14 4 13 13 124 124 */
14788 /*:ref: sigerr_ 14 2 13 124 */
14789 /*:ref: lastpc_ 4 2 13 124 */
14790 /*:ref: zzhash_ 4 2 13 124 */
14791 /*:ref: lnknfn_ 4 1 4 */
14792 /*:ref: lnkan_ 14 2 4 4 */
14793 /*:ref: lnkila_ 14 3 4 4 4 */
14794 /*:ref: lnkfsl_ 14 3 4 4 4 */
14795 /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */
14796 /*:ref: tparse_ 14 5 13 7 13 124 124 */
14797 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
14798 
14799 extern int zzrxr_(doublereal *matrix, integer *n, doublereal *output);
14800 /*:ref: ident_ 14 1 7 */
14801 
14802 extern int zzrytelt_(doublereal *vertex, doublereal *raydir, doublereal *dskdsc, doublereal *margin, integer *nxpts, doublereal *xpt);
14803 /*:ref: return_ 12 0 */
14804 /*:ref: chkin_ 14 2 13 124 */
14805 /*:ref: zzrytlat_ 14 6 7 7 7 7 4 7 */
14806 /*:ref: zzrytrec_ 14 6 7 7 7 7 4 7 */
14807 /*:ref: zzrytpdt_ 14 7 7 7 7 7 7 4 7 */
14808 /*:ref: setmsg_ 14 2 13 124 */
14809 /*:ref: errint_ 14 3 13 4 124 */
14810 /*:ref: sigerr_ 14 2 13 124 */
14811 /*:ref: chkout_ 14 2 13 124 */
14812 
14813 extern int zzrytlat_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt);
14814 /*:ref: zzinlat_ 14 5 7 7 7 4 12 */
14815 /*:ref: failed_ 12 0 */
14816 /*:ref: vequ_ 14 2 7 7 */
14817 /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */
14818 /*:ref: vhat_ 14 2 7 7 */
14819 /*:ref: dpmax_ 7 0 */
14820 /*:ref: zzryxsph_ 14 5 7 7 7 7 12 */
14821 /*:ref: reclat_ 14 4 7 7 7 7 */
14822 /*:ref: vdist_ 7 2 7 7 */
14823 /*:ref: vnorm_ 7 1 7 */
14824 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
14825 /*:ref: halfpi_ 7 0 */
14826 /*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */
14827 /*:ref: vpack_ 14 4 7 7 7 7 */
14828 /*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */
14829 /*:ref: ucrss_ 14 3 7 7 7 */
14830 /*:ref: vdot_ 7 2 7 7 */
14831 /*:ref: vminus_ 14 2 7 7 */
14832 
14833 extern int zzrytpdt_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *nxpts, doublereal *xpt);
14834 /*:ref: return_ 12 0 */
14835 /*:ref: chkin_ 14 2 13 124 */
14836 /*:ref: setmsg_ 14 2 13 124 */
14837 /*:ref: errdp_ 14 3 13 7 124 */
14838 /*:ref: sigerr_ 14 2 13 124 */
14839 /*:ref: chkout_ 14 2 13 124 */
14840 /*:ref: vzero_ 12 1 7 */
14841 /*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */
14842 /*:ref: failed_ 12 0 */
14843 /*:ref: vequ_ 14 2 7 7 */
14844 /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */
14845 /*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */
14846 /*:ref: vhat_ 14 2 7 7 */
14847 /*:ref: dpmax_ 7 0 */
14848 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
14849 /*:ref: vdist_ 7 2 7 7 */
14850 /*:ref: vnorm_ 7 1 7 */
14851 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
14852 /*:ref: halfpi_ 7 0 */
14853 /*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */
14854 /*:ref: vsub_ 14 3 7 7 7 */
14855 /*:ref: vsep_ 7 2 7 7 */
14856 /*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */
14857 /*:ref: zzpdpltc_ 12 4 7 7 7 7 */
14858 /*:ref: vpack_ 14 4 7 7 7 7 */
14859 /*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */
14860 /*:ref: ucrss_ 14 3 7 7 7 */
14861 /*:ref: vdot_ 7 2 7 7 */
14862 /*:ref: vminus_ 14 2 7 7 */
14863 
14864 extern int zzrytrec_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt);
14865 /*:ref: return_ 12 0 */
14866 /*:ref: chkin_ 14 2 13 124 */
14867 /*:ref: setmsg_ 14 2 13 124 */
14868 /*:ref: errint_ 14 3 13 4 124 */
14869 /*:ref: errdp_ 14 3 13 7 124 */
14870 /*:ref: sigerr_ 14 2 13 124 */
14871 /*:ref: chkout_ 14 2 13 124 */
14872 /*:ref: zzinrec_ 14 5 7 7 7 4 12 */
14873 /*:ref: vequ_ 14 2 7 7 */
14874 /*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */
14875 
14876 extern int zzryxsph_(doublereal *vertex, doublereal *udir, doublereal *r__, doublereal *xpt, logical *found);
14877 /*:ref: vdot_ 7 2 7 7 */
14878 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
14879 
14880 extern logical zzsclk_(integer *ckid, integer *sclkid);
14881 /*:ref: return_ 12 0 */
14882 /*:ref: chkin_ 14 2 13 124 */
14883 /*:ref: ssizei_ 14 2 4 4 */
14884 /*:ref: intstr_ 14 3 4 13 124 */
14885 /*:ref: elemi_ 12 2 4 4 */
14886 /*:ref: cvpool_ 14 3 13 12 124 */
14887 /*:ref: cardi_ 4 1 4 */
14888 /*:ref: sizei_ 4 1 4 */
14889 /*:ref: insrti_ 14 2 4 4 */
14890 /*:ref: chkout_ 14 2 13 124 */
14891 /*:ref: swpool_ 14 5 13 4 13 124 124 */
14892 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
14893 /*:ref: removi_ 14 2 4 4 */
14894 
14895 extern int zzsecprt_(integer *isynfl, doublereal *dg, doublereal *del, doublereal *xni, doublereal *omegao, doublereal *atime, doublereal *omgdot, doublereal *xli, doublereal *xfact, doublereal *xldot, doublereal *xndot, doublereal *xnddt);
14896 
14897 extern int zzsegbox_(doublereal *dskdsc, doublereal *boxctr, doublereal *maxr);
14898 /*:ref: return_ 12 0 */
14899 /*:ref: chkin_ 14 2 13 124 */
14900 /*:ref: zzlatbox_ 14 6 7 7 7 7 7 7 */
14901 /*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */
14902 /*:ref: zzpdtbox_ 14 7 7 7 7 7 7 7 7 */
14903 /*:ref: setmsg_ 14 2 13 124 */
14904 /*:ref: errint_ 14 3 13 4 124 */
14905 /*:ref: sigerr_ 14 2 13 124 */
14906 /*:ref: chkout_ 14 2 13 124 */
14907 
14908 extern int zzsfxcor_(S_fp udnear, S_fp udmaxr, S_fp udrayx, integer *trgcde, doublereal *et, char *abcorr, logical *uselt, logical *usecn, logical *usestl, logical *xmit, char *fixref, integer *obscde, integer *dfrcde, integer *dclass, integer *dcentr, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen abcorr_len, ftnlen fixref_len);
14909 /*:ref: return_ 12 0 */
14910 /*:ref: chkin_ 14 2 13 124 */
14911 /*:ref: vzero_ 12 1 7 */
14912 /*:ref: setmsg_ 14 2 13 124 */
14913 /*:ref: sigerr_ 14 2 13 124 */
14914 /*:ref: chkout_ 14 2 13 124 */
14915 /*:ref: suffix_ 14 5 13 4 13 124 124 */
14916 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
14917 /*:ref: failed_ 12 0 */
14918 /*:ref: vminus_ 14 2 7 7 */
14919 /*:ref: refchg_ 14 4 4 4 7 7 */
14920 /*:ref: mxv_ 14 3 7 7 7 */
14921 /*:ref: vequ_ 14 2 7 7 */
14922 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
14923 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
14924 /*:ref: stelab_ 14 3 7 7 7 */
14925 /*:ref: stlabx_ 14 3 7 7 7 */
14926 /*:ref: vsub_ 14 3 7 7 7 */
14927 /*:ref: vadd_ 14 3 7 7 7 */
14928 /*:ref: vnorm_ 7 1 7 */
14929 /*:ref: errint_ 14 3 13 4 124 */
14930 /*:ref: dasine_ 7 2 7 7 */
14931 /*:ref: vsep_ 7 2 7 7 */
14932 /*:ref: vdist_ 7 2 7 7 */
14933 /*:ref: clight_ 7 0 */
14934 /*:ref: touchd_ 7 1 7 */
14935 /*:ref: vhatip_ 14 1 7 */
14936 /*:ref: vscl_ 14 3 7 7 7 */
14937 
14938 extern int zzsglatx_(doublereal *p1, doublereal *p2, doublereal *minlat, doublereal *minp, doublereal *maxlat, doublereal *maxp);
14939 /*:ref: return_ 12 0 */
14940 /*:ref: chkin_ 14 2 13 124 */
14941 /*:ref: reclat_ 14 4 7 7 7 7 */
14942 /*:ref: vequ_ 14 2 7 7 */
14943 /*:ref: vcrss_ 14 3 7 7 7 */
14944 /*:ref: vzero_ 12 1 7 */
14945 /*:ref: chkout_ 14 2 13 124 */
14946 /*:ref: vhatip_ 14 1 7 */
14947 /*:ref: vdot_ 7 2 7 7 */
14948 /*:ref: opsgnd_ 12 2 7 7 */
14949 /*:ref: nvc2pl_ 14 3 7 7 7 */
14950 /*:ref: vsub_ 14 3 7 7 7 */
14951 /*:ref: inrypl_ 14 5 7 7 7 4 7 */
14952 /*:ref: failed_ 12 0 */
14953 
14954 extern int zzsgp4_(doublereal *geophs, doublereal *elems, integer *opmode, doublereal *t, doublereal *state);
14955 extern int xxsgp4i_(doublereal *geophs, doublereal *elems, integer *opmode);
14956 extern int xxsgp4e_(doublereal *t, doublereal *state);
14957 /*:ref: chkin_ 14 2 13 124 */
14958 /*:ref: setmsg_ 14 2 13 124 */
14959 /*:ref: sigerr_ 14 2 13 124 */
14960 /*:ref: chkout_ 14 2 13 124 */
14961 /*:ref: return_ 12 0 */
14962 /*:ref: ttrans_ 14 5 13 13 7 124 124 */
14963 /*:ref: failed_ 12 0 */
14964 /*:ref: zzinil_ 14 19 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */
14965 /*:ref: twopi_ 7 0 */
14966 /*:ref: zzdscm_ 14 88 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */
14967 /*:ref: zzdspr_ 14 40 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 7 7 7 7 7 */
14968 /*:ref: zzdsin_ 14 73 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */
14969 /*:ref: zzdspc_ 14 37 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */
14970 /*:ref: errdp_ 14 3 13 7 124 */
14971 /*:ref: pi_ 7 0 */
14972 
14973 extern int zzsinutl_(integer *trgcde, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *spoint, logical *found, doublereal *minrad, doublereal *maxrad, doublereal *pnear, doublereal *dist);
14974 extern int zzsuelin_(integer *trgcde);
14975 extern int zzsudski_(integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid);
14976 extern int zzraysfx_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *spoint, logical *found);
14977 extern int zzmaxrad_(doublereal *maxrad);
14978 extern int zzminrad_(doublereal *minrad);
14979 extern int zzraynp_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *pnear, doublereal *dist);
14980 /*:ref: return_ 12 0 */
14981 /*:ref: chkin_ 14 2 13 124 */
14982 /*:ref: sigerr_ 14 2 13 124 */
14983 /*:ref: chkout_ 14 2 13 124 */
14984 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
14985 /*:ref: failed_ 12 0 */
14986 /*:ref: setmsg_ 14 2 13 124 */
14987 /*:ref: errint_ 14 3 13 4 124 */
14988 /*:ref: movei_ 14 3 4 4 4 */
14989 /*:ref: cleard_ 14 2 4 7 */
14990 /*:ref: zzdsksph_ 14 5 4 4 4 7 7 */
14991 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
14992 /*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */
14993 /*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */
14994 
14995 extern int zzsizeok_(integer *size, integer *psize, integer *dsize, integer *offset, logical *ok, integer *n);
14996 /*:ref: rmaini_ 14 4 4 4 4 4 */
14997 
14998 extern int zzspkac0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
14999 /*:ref: return_ 12 0 */
15000 /*:ref: chkin_ 14 2 13 124 */
15001 /*:ref: zzprscor_ 14 3 13 12 124 */
15002 /*:ref: failed_ 12 0 */
15003 /*:ref: chkout_ 14 2 13 124 */
15004 /*:ref: irfnum_ 14 3 13 4 124 */
15005 /*:ref: setmsg_ 14 2 13 124 */
15006 /*:ref: errch_ 14 4 13 13 124 124 */
15007 /*:ref: sigerr_ 14 2 13 124 */
15008 /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */
15009 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
15010 /*:ref: cleard_ 14 2 4 7 */
15011 /*:ref: zzspkas0_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */
15012 
15013 extern int zzspkac1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15014 /*:ref: return_ 12 0 */
15015 /*:ref: chkin_ 14 2 13 124 */
15016 /*:ref: zzprscor_ 14 3 13 12 124 */
15017 /*:ref: failed_ 12 0 */
15018 /*:ref: chkout_ 14 2 13 124 */
15019 /*:ref: irfnum_ 14 3 13 4 124 */
15020 /*:ref: setmsg_ 14 2 13 124 */
15021 /*:ref: errch_ 14 4 13 13 124 124 */
15022 /*:ref: sigerr_ 14 2 13 124 */
15023 /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */
15024 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
15025 /*:ref: cleard_ 14 2 4 7 */
15026 /*:ref: zzspkas1_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */
15027 
15028 extern int zzspkap0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15029 /*:ref: return_ 12 0 */
15030 /*:ref: chkin_ 14 2 13 124 */
15031 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
15032 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
15033 /*:ref: setmsg_ 14 2 13 124 */
15034 /*:ref: errch_ 14 4 13 13 124 124 */
15035 /*:ref: sigerr_ 14 2 13 124 */
15036 /*:ref: chkout_ 14 2 13 124 */
15037 /*:ref: odd_ 12 1 4 */
15038 /*:ref: irfnum_ 14 3 13 4 124 */
15039 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
15040 /*:ref: vsubg_ 14 4 7 7 4 7 */
15041 /*:ref: moved_ 14 3 7 4 7 */
15042 /*:ref: vnorm_ 7 1 7 */
15043 /*:ref: clight_ 7 0 */
15044 /*:ref: stlabx_ 14 3 7 7 7 */
15045 /*:ref: vequ_ 14 2 7 7 */
15046 /*:ref: stelab_ 14 3 7 7 7 */
15047 
15048 extern int zzspkap1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15049 /*:ref: return_ 12 0 */
15050 /*:ref: chkin_ 14 2 13 124 */
15051 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
15052 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
15053 /*:ref: setmsg_ 14 2 13 124 */
15054 /*:ref: errch_ 14 4 13 13 124 124 */
15055 /*:ref: sigerr_ 14 2 13 124 */
15056 /*:ref: chkout_ 14 2 13 124 */
15057 /*:ref: odd_ 12 1 4 */
15058 /*:ref: irfnum_ 14 3 13 4 124 */
15059 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
15060 /*:ref: vsubg_ 14 4 7 7 4 7 */
15061 /*:ref: moved_ 14 3 7 4 7 */
15062 /*:ref: vnorm_ 7 1 7 */
15063 /*:ref: clight_ 7 0 */
15064 /*:ref: stlabx_ 14 3 7 7 7 */
15065 /*:ref: vequ_ 14 2 7 7 */
15066 /*:ref: stelab_ 14 3 7 7 7 */
15067 
15068 extern int zzspkas0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15069 /*:ref: return_ 12 0 */
15070 /*:ref: chkin_ 14 2 13 124 */
15071 /*:ref: zzprscor_ 14 3 13 12 124 */
15072 /*:ref: failed_ 12 0 */
15073 /*:ref: chkout_ 14 2 13 124 */
15074 /*:ref: setmsg_ 14 2 13 124 */
15075 /*:ref: errch_ 14 4 13 13 124 124 */
15076 /*:ref: sigerr_ 14 2 13 124 */
15077 /*:ref: irfnum_ 14 3 13 4 124 */
15078 /*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */
15079 /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */
15080 /*:ref: vadd_ 14 3 7 7 7 */
15081 /*:ref: vequ_ 14 2 7 7 */
15082 
15083 extern int zzspkas1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15084 /*:ref: return_ 12 0 */
15085 /*:ref: chkin_ 14 2 13 124 */
15086 /*:ref: zzprscor_ 14 3 13 12 124 */
15087 /*:ref: failed_ 12 0 */
15088 /*:ref: chkout_ 14 2 13 124 */
15089 /*:ref: setmsg_ 14 2 13 124 */
15090 /*:ref: errch_ 14 4 13 13 124 124 */
15091 /*:ref: sigerr_ 14 2 13 124 */
15092 /*:ref: irfnum_ 14 3 13 4 124 */
15093 /*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */
15094 /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */
15095 /*:ref: vadd_ 14 3 7 7 7 */
15096 /*:ref: vequ_ 14 2 7 7 */
15097 
15098 extern int zzspkez0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15099 /*:ref: return_ 12 0 */
15100 /*:ref: chkin_ 14 2 13 124 */
15101 /*:ref: zzctruin_ 14 1 4 */
15102 /*:ref: zzvalcor_ 14 3 13 12 124 */
15103 /*:ref: failed_ 12 0 */
15104 /*:ref: chkout_ 14 2 13 124 */
15105 /*:ref: namfrm_ 14 3 13 4 124 */
15106 /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */
15107 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
15108 /*:ref: setmsg_ 14 2 13 124 */
15109 /*:ref: errch_ 14 4 13 13 124 124 */
15110 /*:ref: sigerr_ 14 2 13 124 */
15111 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
15112 /*:ref: zzspkac0_ 14 10 4 7 13 13 4 7 7 7 124 124 */
15113 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
15114 /*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */
15115 /*:ref: zzfrmch0_ 14 4 4 4 7 7 */
15116 /*:ref: vsclip_ 14 2 7 7 */
15117 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
15118 
15119 extern int zzspkez1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15120 /*:ref: return_ 12 0 */
15121 /*:ref: chkin_ 14 2 13 124 */
15122 /*:ref: zzctruin_ 14 1 4 */
15123 /*:ref: zzvalcor_ 14 3 13 12 124 */
15124 /*:ref: failed_ 12 0 */
15125 /*:ref: chkout_ 14 2 13 124 */
15126 /*:ref: namfrm_ 14 3 13 4 124 */
15127 /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */
15128 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
15129 /*:ref: setmsg_ 14 2 13 124 */
15130 /*:ref: errch_ 14 4 13 13 124 124 */
15131 /*:ref: sigerr_ 14 2 13 124 */
15132 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
15133 /*:ref: zzspkac1_ 14 10 4 7 13 13 4 7 7 7 124 124 */
15134 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
15135 /*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */
15136 /*:ref: zzfrmch1_ 14 4 4 4 7 7 */
15137 /*:ref: vsclip_ 14 2 7 7 */
15138 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
15139 
15140 extern int zzspkfao_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15141 /*:ref: return_ 12 0 */
15142 /*:ref: chkin_ 14 2 13 124 */
15143 /*:ref: zzvalcor_ 14 3 13 12 124 */
15144 /*:ref: failed_ 12 0 */
15145 /*:ref: chkout_ 14 2 13 124 */
15146 /*:ref: irfnum_ 14 3 13 4 124 */
15147 /*:ref: setmsg_ 14 2 13 124 */
15148 /*:ref: errch_ 14 4 13 13 124 124 */
15149 /*:ref: sigerr_ 14 2 13 124 */
15150 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
15151 /*:ref: vaddg_ 14 4 7 7 4 7 */
15152 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
15153 /*:ref: cleard_ 14 2 4 7 */
15154 /*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */
15155 
15156 extern int zzspkfap_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15157 /*:ref: return_ 12 0 */
15158 /*:ref: chkin_ 14 2 13 124 */
15159 /*:ref: zzvalcor_ 14 3 13 12 124 */
15160 /*:ref: failed_ 12 0 */
15161 /*:ref: chkout_ 14 2 13 124 */
15162 /*:ref: irfnum_ 14 3 13 4 124 */
15163 /*:ref: setmsg_ 14 2 13 124 */
15164 /*:ref: errch_ 14 4 13 13 124 124 */
15165 /*:ref: sigerr_ 14 2 13 124 */
15166 /*:ref: zzspkflt_ 14 10 200 7 13 13 7 7 7 7 124 124 */
15167 /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */
15168 /*:ref: vadd_ 14 3 7 7 7 */
15169 /*:ref: vequ_ 14 2 7 7 */
15170 
15171 extern int zzspkfat_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15172 /*:ref: return_ 12 0 */
15173 /*:ref: chkin_ 14 2 13 124 */
15174 /*:ref: zzvalcor_ 14 3 13 12 124 */
15175 /*:ref: failed_ 12 0 */
15176 /*:ref: chkout_ 14 2 13 124 */
15177 /*:ref: irfnum_ 14 3 13 4 124 */
15178 /*:ref: setmsg_ 14 2 13 124 */
15179 /*:ref: errch_ 14 4 13 13 124 124 */
15180 /*:ref: sigerr_ 14 2 13 124 */
15181 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
15182 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
15183 /*:ref: cleard_ 14 2 4 7 */
15184 /*:ref: zzspkfap_ 14 11 200 7 13 13 7 7 7 7 7 124 124 */
15185 
15186 extern int zzspkflt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15187 /*:ref: return_ 12 0 */
15188 /*:ref: chkin_ 14 2 13 124 */
15189 /*:ref: zzvalcor_ 14 3 13 12 124 */
15190 /*:ref: failed_ 12 0 */
15191 /*:ref: chkout_ 14 2 13 124 */
15192 /*:ref: irfnum_ 14 3 13 4 124 */
15193 /*:ref: setmsg_ 14 2 13 124 */
15194 /*:ref: errch_ 14 4 13 13 124 124 */
15195 /*:ref: sigerr_ 14 2 13 124 */
15196 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
15197 /*:ref: vaddg_ 14 4 7 7 4 7 */
15198 /*:ref: vsubg_ 14 4 7 7 4 7 */
15199 /*:ref: vnorm_ 7 1 7 */
15200 /*:ref: clight_ 7 0 */
15201 /*:ref: vdot_ 7 2 7 7 */
15202 /*:ref: touchd_ 7 1 7 */
15203 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
15204 
15205 extern int zzspkfzo_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15206 /*:ref: return_ 12 0 */
15207 /*:ref: chkin_ 14 2 13 124 */
15208 /*:ref: zzvalcor_ 14 3 13 12 124 */
15209 /*:ref: failed_ 12 0 */
15210 /*:ref: chkout_ 14 2 13 124 */
15211 /*:ref: namfrm_ 14 3 13 4 124 */
15212 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
15213 /*:ref: vsubg_ 14 4 7 7 4 7 */
15214 /*:ref: vnorm_ 7 1 7 */
15215 /*:ref: clight_ 7 0 */
15216 /*:ref: setmsg_ 14 2 13 124 */
15217 /*:ref: errch_ 14 4 13 13 124 124 */
15218 /*:ref: sigerr_ 14 2 13 124 */
15219 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
15220 /*:ref: zzspkfao_ 14 10 4 7 13 13 214 7 7 7 124 124 */
15221 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
15222 /*:ref: vaddg_ 14 4 7 7 4 7 */
15223 /*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */
15224 /*:ref: frmchg_ 14 4 4 4 7 7 */
15225 /*:ref: zzcorsxf_ 14 4 12 7 7 7 */
15226 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
15227 
15228 extern int zzspkfzt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15229 /*:ref: return_ 12 0 */
15230 /*:ref: chkin_ 14 2 13 124 */
15231 /*:ref: zzvalcor_ 14 3 13 12 124 */
15232 /*:ref: failed_ 12 0 */
15233 /*:ref: chkout_ 14 2 13 124 */
15234 /*:ref: namfrm_ 14 3 13 4 124 */
15235 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
15236 /*:ref: vaddg_ 14 4 7 7 4 7 */
15237 /*:ref: vnorm_ 7 1 7 */
15238 /*:ref: clight_ 7 0 */
15239 /*:ref: setmsg_ 14 2 13 124 */
15240 /*:ref: errch_ 14 4 13 13 124 124 */
15241 /*:ref: sigerr_ 14 2 13 124 */
15242 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
15243 /*:ref: zzspkfat_ 14 10 214 7 13 13 4 7 7 7 124 124 */
15244 /*:ref: spkssb_ 14 5 4 7 13 7 124 */
15245 /*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */
15246 /*:ref: frmchg_ 14 4 4 4 7 7 */
15247 /*:ref: zzcorsxf_ 14 4 12 7 7 7 */
15248 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
15249 
15250 extern int zzspkgo0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len);
15251 /*:ref: return_ 12 0 */
15252 /*:ref: chkin_ 14 2 13 124 */
15253 /*:ref: zzctruin_ 14 1 4 */
15254 /*:ref: cleard_ 14 2 4 7 */
15255 /*:ref: chkout_ 14 2 13 124 */
15256 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
15257 /*:ref: irfnum_ 14 3 13 4 124 */
15258 /*:ref: frstnp_ 4 2 13 124 */
15259 /*:ref: setmsg_ 14 2 13 124 */
15260 /*:ref: errch_ 14 4 13 13 124 124 */
15261 /*:ref: sigerr_ 14 2 13 124 */
15262 /*:ref: failed_ 12 0 */
15263 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
15264 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
15265 /*:ref: moved_ 14 3 7 4 7 */
15266 /*:ref: irfrot_ 14 3 4 4 7 */
15267 /*:ref: mxv_ 14 3 7 7 7 */
15268 /*:ref: zzfrmch0_ 14 4 4 4 7 7 */
15269 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
15270 /*:ref: vaddg_ 14 4 7 7 4 7 */
15271 /*:ref: isrchi_ 4 3 4 4 4 */
15272 /*:ref: bodc2n_ 14 4 4 13 12 124 */
15273 /*:ref: prefix_ 14 5 13 4 13 124 124 */
15274 /*:ref: suffix_ 14 5 13 4 13 124 124 */
15275 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
15276 /*:ref: intstr_ 14 3 4 13 124 */
15277 /*:ref: etcal_ 14 3 7 13 124 */
15278 /*:ref: vsubg_ 14 4 7 7 4 7 */
15279 /*:ref: vnorm_ 7 1 7 */
15280 /*:ref: clight_ 7 0 */
15281 
15282 extern int zzspkgo1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len);
15283 /*:ref: return_ 12 0 */
15284 /*:ref: chkin_ 14 2 13 124 */
15285 /*:ref: zzctruin_ 14 1 4 */
15286 /*:ref: cleard_ 14 2 4 7 */
15287 /*:ref: chkout_ 14 2 13 124 */
15288 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
15289 /*:ref: irfnum_ 14 3 13 4 124 */
15290 /*:ref: frstnp_ 4 2 13 124 */
15291 /*:ref: setmsg_ 14 2 13 124 */
15292 /*:ref: errch_ 14 4 13 13 124 124 */
15293 /*:ref: sigerr_ 14 2 13 124 */
15294 /*:ref: failed_ 12 0 */
15295 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
15296 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
15297 /*:ref: moved_ 14 3 7 4 7 */
15298 /*:ref: irfrot_ 14 3 4 4 7 */
15299 /*:ref: mxv_ 14 3 7 7 7 */
15300 /*:ref: zzfrmch1_ 14 4 4 4 7 7 */
15301 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
15302 /*:ref: vaddg_ 14 4 7 7 4 7 */
15303 /*:ref: isrchi_ 4 3 4 4 4 */
15304 /*:ref: bodc2n_ 14 4 4 13 12 124 */
15305 /*:ref: prefix_ 14 5 13 4 13 124 124 */
15306 /*:ref: suffix_ 14 5 13 4 13 124 124 */
15307 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
15308 /*:ref: intstr_ 14 3 4 13 124 */
15309 /*:ref: etcal_ 14 3 7 13 124 */
15310 /*:ref: vsubg_ 14 4 7 7 4 7 */
15311 /*:ref: vnorm_ 7 1 7 */
15312 /*:ref: clight_ 7 0 */
15313 
15314 extern int zzspkgp0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len);
15315 /*:ref: return_ 12 0 */
15316 /*:ref: chkin_ 14 2 13 124 */
15317 /*:ref: zzctruin_ 14 1 4 */
15318 /*:ref: cleard_ 14 2 4 7 */
15319 /*:ref: chkout_ 14 2 13 124 */
15320 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
15321 /*:ref: irfnum_ 14 3 13 4 124 */
15322 /*:ref: frstnp_ 4 2 13 124 */
15323 /*:ref: setmsg_ 14 2 13 124 */
15324 /*:ref: errch_ 14 4 13 13 124 124 */
15325 /*:ref: sigerr_ 14 2 13 124 */
15326 /*:ref: failed_ 12 0 */
15327 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
15328 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
15329 /*:ref: moved_ 14 3 7 4 7 */
15330 /*:ref: irfrot_ 14 3 4 4 7 */
15331 /*:ref: mxv_ 14 3 7 7 7 */
15332 /*:ref: zzrefch0_ 14 4 4 4 7 7 */
15333 /*:ref: vadd_ 14 3 7 7 7 */
15334 /*:ref: vequ_ 14 2 7 7 */
15335 /*:ref: isrchi_ 4 3 4 4 4 */
15336 /*:ref: bodc2n_ 14 4 4 13 12 124 */
15337 /*:ref: prefix_ 14 5 13 4 13 124 124 */
15338 /*:ref: suffix_ 14 5 13 4 13 124 124 */
15339 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
15340 /*:ref: intstr_ 14 3 4 13 124 */
15341 /*:ref: etcal_ 14 3 7 13 124 */
15342 /*:ref: vsub_ 14 3 7 7 7 */
15343 /*:ref: vnorm_ 7 1 7 */
15344 /*:ref: clight_ 7 0 */
15345 
15346 extern int zzspkgp1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len);
15347 /*:ref: return_ 12 0 */
15348 /*:ref: chkin_ 14 2 13 124 */
15349 /*:ref: zzctruin_ 14 1 4 */
15350 /*:ref: cleard_ 14 2 4 7 */
15351 /*:ref: chkout_ 14 2 13 124 */
15352 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
15353 /*:ref: irfnum_ 14 3 13 4 124 */
15354 /*:ref: frstnp_ 4 2 13 124 */
15355 /*:ref: setmsg_ 14 2 13 124 */
15356 /*:ref: errch_ 14 4 13 13 124 124 */
15357 /*:ref: sigerr_ 14 2 13 124 */
15358 /*:ref: failed_ 12 0 */
15359 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
15360 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
15361 /*:ref: moved_ 14 3 7 4 7 */
15362 /*:ref: irfrot_ 14 3 4 4 7 */
15363 /*:ref: mxv_ 14 3 7 7 7 */
15364 /*:ref: zzrefch1_ 14 4 4 4 7 7 */
15365 /*:ref: vadd_ 14 3 7 7 7 */
15366 /*:ref: vequ_ 14 2 7 7 */
15367 /*:ref: isrchi_ 4 3 4 4 4 */
15368 /*:ref: bodc2n_ 14 4 4 13 12 124 */
15369 /*:ref: prefix_ 14 5 13 4 13 124 124 */
15370 /*:ref: suffix_ 14 5 13 4 13 124 124 */
15371 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
15372 /*:ref: intstr_ 14 3 4 13 124 */
15373 /*:ref: etcal_ 14 3 7 13 124 */
15374 /*:ref: vsub_ 14 3 7 7 7 */
15375 /*:ref: vnorm_ 7 1 7 */
15376 /*:ref: clight_ 7 0 */
15377 
15378 extern int zzspklt0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15379 /*:ref: return_ 12 0 */
15380 /*:ref: chkin_ 14 2 13 124 */
15381 /*:ref: zzvalcor_ 14 3 13 12 124 */
15382 /*:ref: failed_ 12 0 */
15383 /*:ref: chkout_ 14 2 13 124 */
15384 /*:ref: irfnum_ 14 3 13 4 124 */
15385 /*:ref: setmsg_ 14 2 13 124 */
15386 /*:ref: errch_ 14 4 13 13 124 124 */
15387 /*:ref: sigerr_ 14 2 13 124 */
15388 /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */
15389 /*:ref: vsubg_ 14 4 7 7 4 7 */
15390 /*:ref: vnorm_ 7 1 7 */
15391 /*:ref: clight_ 7 0 */
15392 /*:ref: vdot_ 7 2 7 7 */
15393 /*:ref: touchd_ 7 1 7 */
15394 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
15395 
15396 extern int zzspklt1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len);
15397 /*:ref: return_ 12 0 */
15398 /*:ref: chkin_ 14 2 13 124 */
15399 /*:ref: zzvalcor_ 14 3 13 12 124 */
15400 /*:ref: failed_ 12 0 */
15401 /*:ref: chkout_ 14 2 13 124 */
15402 /*:ref: irfnum_ 14 3 13 4 124 */
15403 /*:ref: setmsg_ 14 2 13 124 */
15404 /*:ref: errch_ 14 4 13 13 124 124 */
15405 /*:ref: sigerr_ 14 2 13 124 */
15406 /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */
15407 /*:ref: vsubg_ 14 4 7 7 4 7 */
15408 /*:ref: vnorm_ 7 1 7 */
15409 /*:ref: clight_ 7 0 */
15410 /*:ref: vdot_ 7 2 7 7 */
15411 /*:ref: touchd_ 7 1 7 */
15412 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
15413 
15414 extern int zzspkpa0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15415 /*:ref: return_ 12 0 */
15416 /*:ref: chkin_ 14 2 13 124 */
15417 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
15418 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
15419 /*:ref: setmsg_ 14 2 13 124 */
15420 /*:ref: errch_ 14 4 13 13 124 124 */
15421 /*:ref: sigerr_ 14 2 13 124 */
15422 /*:ref: chkout_ 14 2 13 124 */
15423 /*:ref: odd_ 12 1 4 */
15424 /*:ref: irfnum_ 14 3 13 4 124 */
15425 /*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */
15426 /*:ref: failed_ 12 0 */
15427 /*:ref: vsub_ 14 3 7 7 7 */
15428 /*:ref: vequ_ 14 2 7 7 */
15429 /*:ref: vnorm_ 7 1 7 */
15430 /*:ref: clight_ 7 0 */
15431 /*:ref: stlabx_ 14 3 7 7 7 */
15432 /*:ref: stelab_ 14 3 7 7 7 */
15433 
15434 extern int zzspkpa1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15435 /*:ref: return_ 12 0 */
15436 /*:ref: chkin_ 14 2 13 124 */
15437 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
15438 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
15439 /*:ref: setmsg_ 14 2 13 124 */
15440 /*:ref: errch_ 14 4 13 13 124 124 */
15441 /*:ref: sigerr_ 14 2 13 124 */
15442 /*:ref: chkout_ 14 2 13 124 */
15443 /*:ref: odd_ 12 1 4 */
15444 /*:ref: irfnum_ 14 3 13 4 124 */
15445 /*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */
15446 /*:ref: failed_ 12 0 */
15447 /*:ref: vsub_ 14 3 7 7 7 */
15448 /*:ref: vequ_ 14 2 7 7 */
15449 /*:ref: vnorm_ 7 1 7 */
15450 /*:ref: clight_ 7 0 */
15451 /*:ref: stlabx_ 14 3 7 7 7 */
15452 /*:ref: stelab_ 14 3 7 7 7 */
15453 
15454 extern int zzspksb0_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len);
15455 /*:ref: return_ 12 0 */
15456 /*:ref: chkin_ 14 2 13 124 */
15457 /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */
15458 /*:ref: chkout_ 14 2 13 124 */
15459 
15460 extern int zzspksb1_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len);
15461 /*:ref: return_ 12 0 */
15462 /*:ref: chkin_ 14 2 13 124 */
15463 /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */
15464 /*:ref: chkout_ 14 2 13 124 */
15465 
15466 extern int zzspkzp0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15467 /*:ref: return_ 12 0 */
15468 /*:ref: chkin_ 14 2 13 124 */
15469 /*:ref: namfrm_ 14 3 13 4 124 */
15470 /*:ref: zzctruin_ 14 1 4 */
15471 /*:ref: ltrim_ 4 2 13 124 */
15472 /*:ref: eqchr_ 12 4 13 13 124 124 */
15473 /*:ref: eqstr_ 12 4 13 13 124 124 */
15474 /*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */
15475 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
15476 /*:ref: setmsg_ 14 2 13 124 */
15477 /*:ref: errch_ 14 4 13 13 124 124 */
15478 /*:ref: sigerr_ 14 2 13 124 */
15479 /*:ref: chkout_ 14 2 13 124 */
15480 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
15481 /*:ref: failed_ 12 0 */
15482 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
15483 /*:ref: zzspkpa0_ 14 9 4 7 13 7 13 7 7 124 124 */
15484 /*:ref: zzrefch0_ 14 4 4 4 7 7 */
15485 /*:ref: mxv_ 14 3 7 7 7 */
15486 
15487 extern int zzspkzp1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
15488 /*:ref: return_ 12 0 */
15489 /*:ref: chkin_ 14 2 13 124 */
15490 /*:ref: namfrm_ 14 3 13 4 124 */
15491 /*:ref: zzctruin_ 14 1 4 */
15492 /*:ref: ltrim_ 4 2 13 124 */
15493 /*:ref: eqchr_ 12 4 13 13 124 124 */
15494 /*:ref: eqstr_ 12 4 13 13 124 124 */
15495 /*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */
15496 /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */
15497 /*:ref: setmsg_ 14 2 13 124 */
15498 /*:ref: errch_ 14 4 13 13 124 124 */
15499 /*:ref: sigerr_ 14 2 13 124 */
15500 /*:ref: chkout_ 14 2 13 124 */
15501 /*:ref: frinfo_ 14 5 4 4 4 4 12 */
15502 /*:ref: failed_ 12 0 */
15503 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
15504 /*:ref: zzspkpa1_ 14 9 4 7 13 7 13 7 7 124 124 */
15505 /*:ref: zzrefch1_ 14 4 4 4 7 7 */
15506 /*:ref: mxv_ 14 3 7 7 7 */
15507 
15508 extern int zzsrfini_(char *nornam, integer *codes, integer *bodies, integer *nvals, integer *maxval, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen nornam_len);
15509 /*:ref: chkin_ 14 2 13 124 */
15510 /*:ref: setmsg_ 14 2 13 124 */
15511 /*:ref: errint_ 14 3 13 4 124 */
15512 /*:ref: sigerr_ 14 2 13 124 */
15513 /*:ref: chkout_ 14 2 13 124 */
15514 /*:ref: zzhsiini_ 14 3 4 4 4 */
15515 /*:ref: zzhscini_ 14 3 4 4 4 */
15516 /*:ref: cleari_ 14 2 4 4 */
15517 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
15518 /*:ref: zzhash2_ 4 3 13 4 124 */
15519 /*:ref: errch_ 14 4 13 13 124 124 */
15520 /*:ref: zzhashi_ 4 2 4 4 */
15521 
15522 extern int zzsrfker_(char *kernam, char *nornam, integer *kersid, integer *kerbid, logical *extker, integer *nkvar, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen kernam_len, ftnlen nornam_len);
15523 /*:ref: return_ 12 0 */
15524 /*:ref: chkin_ 14 2 13 124 */
15525 /*:ref: swpool_ 14 5 13 4 13 124 124 */
15526 /*:ref: failed_ 12 0 */
15527 /*:ref: chkout_ 14 2 13 124 */
15528 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
15529 /*:ref: setmsg_ 14 2 13 124 */
15530 /*:ref: errch_ 14 4 13 13 124 124 */
15531 /*:ref: sigerr_ 14 2 13 124 */
15532 /*:ref: errint_ 14 3 13 4 124 */
15533 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
15534 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
15535 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
15536 /*:ref: zzsrfini_ 14 12 13 4 4 4 4 4 4 4 4 4 4 124 */
15537 
15538 extern int zzsrftrn_(integer *bodyid, char *srfnam, integer *surfid, integer *usrctr, logical *found, logical *update, ftnlen srfnam_len);
15539 extern int zzsrfn2c_(char *srfnam, integer *bodyid, integer *surfid, logical *found, ftnlen srfnam_len);
15540 extern int zzsrfc2n_(integer *surfid, integer *bodyid, char *srfnam, logical *found, ftnlen srfnam_len);
15541 extern int zzsrftrk_(integer *usrctr, logical *update);
15542 /*:ref: return_ 12 0 */
15543 /*:ref: chkin_ 14 2 13 124 */
15544 /*:ref: setmsg_ 14 2 13 124 */
15545 /*:ref: sigerr_ 14 2 13 124 */
15546 /*:ref: chkout_ 14 2 13 124 */
15547 /*:ref: zzctrsin_ 14 1 4 */
15548 /*:ref: zzctruin_ 14 1 4 */
15549 /*:ref: zzsrfker_ 14 14 13 13 4 4 12 4 4 4 4 4 4 4 124 124 */
15550 /*:ref: zzcvpool_ 14 4 13 4 12 124 */
15551 /*:ref: failed_ 12 0 */
15552 /*:ref: zzctrinc_ 14 1 4 */
15553 /*:ref: ljucrs_ 14 5 4 13 13 124 124 */
15554 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
15555 /*:ref: zzhash2_ 4 3 13 4 124 */
15556 /*:ref: zzhashi_ 4 2 4 4 */
15557 /*:ref: zzctrchk_ 14 3 4 4 12 */
15558 
15559 extern int zzstelab_(logical *xmit, doublereal *accobs, doublereal *vobs, doublereal *starg, doublereal *scorr, doublereal *dscorr);
15560 /*:ref: return_ 12 0 */
15561 /*:ref: vminus_ 14 2 7 7 */
15562 /*:ref: vequ_ 14 2 7 7 */
15563 /*:ref: dvhat_ 14 2 7 7 */
15564 /*:ref: vperp_ 14 3 7 7 7 */
15565 /*:ref: vdot_ 7 2 7 7 */
15566 /*:ref: vnorm_ 7 1 7 */
15567 /*:ref: clight_ 7 0 */
15568 /*:ref: chkin_ 14 2 13 124 */
15569 /*:ref: setmsg_ 14 2 13 124 */
15570 /*:ref: sigerr_ 14 2 13 124 */
15571 /*:ref: chkout_ 14 2 13 124 */
15572 /*:ref: vzero_ 12 1 7 */
15573 /*:ref: cleard_ 14 2 4 7 */
15574 /*:ref: vhat_ 14 2 7 7 */
15575 /*:ref: vlcom_ 14 5 7 7 7 7 7 */
15576 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
15577 /*:ref: vadd_ 14 3 7 7 7 */
15578 /*:ref: qderiv_ 14 5 4 7 7 7 7 */
15579 
15580 extern int zztangnt_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *schstp, doublereal *soltol, doublereal *result, doublereal *points);
15581 /*:ref: return_ 12 0 */
15582 /*:ref: chkin_ 14 2 13 124 */
15583 /*:ref: scardd_ 14 2 4 7 */
15584 /*:ref: vrotv_ 14 4 7 7 7 7 */
15585 /*:ref: pi_ 7 0 */
15586 /*:ref: vequ_ 14 2 7 7 */
15587 /*:ref: zztanini_ 14 10 4 7 4 4 4 4 4 7 7 7 */
15588 /*:ref: zzmaxrad_ 14 1 7 */
15589 /*:ref: failed_ 12 0 */
15590 /*:ref: chkout_ 14 2 13 124 */
15591 /*:ref: setmsg_ 14 2 13 124 */
15592 /*:ref: errdp_ 14 3 13 7 124 */
15593 /*:ref: sigerr_ 14 2 13 124 */
15594 /*:ref: vnorm_ 7 1 7 */
15595 /*:ref: dasine_ 7 2 7 7 */
15596 /*:ref: errint_ 14 3 13 4 124 */
15597 /*:ref: zztanslv_ 14 11 200 200 200 12 7 7 7 7 7 7 12 */
15598 /*:ref: cardd_ 4 1 7 */
15599 
15600 extern int zztanslv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, doublereal *result, doublereal *points, logical *endflg);
15601 /*:ref: return_ 12 0 */
15602 /*:ref: chkin_ 14 2 13 124 */
15603 /*:ref: setmsg_ 14 2 13 124 */
15604 /*:ref: errdp_ 14 3 13 7 124 */
15605 /*:ref: sigerr_ 14 2 13 124 */
15606 /*:ref: chkout_ 14 2 13 124 */
15607 /*:ref: touchd_ 7 1 7 */
15608 /*:ref: sized_ 4 1 7 */
15609 /*:ref: failed_ 12 0 */
15610 /*:ref: vequ_ 14 2 7 7 */
15611 /*:ref: errint_ 14 3 13 4 124 */
15612 /*:ref: brcktd_ 7 3 7 7 7 */
15613 /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */
15614 
15615 extern int zztanutl_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *angle, logical *ocultd, doublereal *point);
15616 extern int zztanini_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis);
15617 extern int zztansta_(doublereal *angle, logical *ocultd, doublereal *point);
15618 /*:ref: chkin_ 14 2 13 124 */
15619 /*:ref: sigerr_ 14 2 13 124 */
15620 /*:ref: chkout_ 14 2 13 124 */
15621 /*:ref: return_ 12 0 */
15622 /*:ref: vzero_ 12 1 7 */
15623 /*:ref: setmsg_ 14 2 13 124 */
15624 /*:ref: errint_ 14 3 13 4 124 */
15625 /*:ref: errdp_ 14 3 13 7 124 */
15626 /*:ref: vcrss_ 14 3 7 7 7 */
15627 /*:ref: vhatip_ 14 1 7 */
15628 /*:ref: vequ_ 14 2 7 7 */
15629 /*:ref: vhat_ 14 2 7 7 */
15630 /*:ref: zzsuelin_ 14 1 4 */
15631 /*:ref: zzsudski_ 14 4 4 4 4 4 */
15632 /*:ref: vrotv_ 14 4 7 7 7 7 */
15633 /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */
15634 /*:ref: pi_ 7 0 */
15635 /*:ref: vsclip_ 14 2 7 7 */
15636 /*:ref: vadd_ 14 3 7 7 7 */
15637 
15638 extern int zzteme_(doublereal *et, doublereal *mt);
15639 /*:ref: return_ 12 0 */
15640 /*:ref: chkin_ 14 2 13 124 */
15641 /*:ref: zzeprc76_ 14 2 7 7 */
15642 /*:ref: invstm_ 14 2 7 7 */
15643 /*:ref: moved_ 14 3 7 4 7 */
15644 /*:ref: zzenut80_ 14 2 7 7 */
15645 /*:ref: mxvg_ 14 5 7 7 4 4 7 */
15646 /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */
15647 /*:ref: chkout_ 14 2 13 124 */
15648 
15649 extern logical zztime_(char *string, char *transl, char *letter, char *error, char *pic, doublereal *tvec, integer *b, integer *e, logical *l2r, logical *yabbrv, ftnlen string_len, ftnlen transl_len, ftnlen letter_len, ftnlen error_len, ftnlen pic_len);
15650 extern logical zzcmbt_(char *string, char *letter, logical *l2r, ftnlen string_len, ftnlen letter_len);
15651 extern logical zzgrep_(char *string, ftnlen string_len);
15652 extern logical zzispt_(char *string, integer *b, integer *e, ftnlen string_len);
15653 extern logical zzist_(char *letter, ftnlen letter_len);
15654 extern logical zznote_(char *letter, integer *b, integer *e, ftnlen letter_len);
15655 extern logical zzremt_(char *letter, ftnlen letter_len);
15656 extern logical zzsubt_(char *string, char *transl, logical *l2r, ftnlen string_len, ftnlen transl_len);
15657 extern logical zztokns_(char *string, char *error, ftnlen string_len, ftnlen error_len);
15658 extern logical zzunpck_(char *string, logical *yabbrv, doublereal *tvec, integer *e, char *transl, char *pic, char *error, ftnlen string_len, ftnlen transl_len, ftnlen pic_len, ftnlen error_len);
15659 extern logical zzvalt_(char *string, integer *b, integer *e, char *letter, ftnlen string_len, ftnlen letter_len);
15660 /*:ref: chkin_ 14 2 13 124 */
15661 /*:ref: sigerr_ 14 2 13 124 */
15662 /*:ref: chkout_ 14 2 13 124 */
15663 /*:ref: pos_ 4 5 13 13 4 124 124 */
15664 /*:ref: posr_ 4 5 13 13 4 124 124 */
15665 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
15666 /*:ref: cpos_ 4 5 13 13 4 124 124 */
15667 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
15668 /*:ref: rtrim_ 4 2 13 124 */
15669 /*:ref: lx4uns_ 14 5 13 4 4 4 124 */
15670 /*:ref: zztknerr_ 14 9 13 13 13 13 12 124 124 124 124 */
15671 /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */
15672 /*:ref: prefix_ 14 5 13 4 13 124 124 */
15673 /*:ref: ucase_ 14 4 13 13 124 124 */
15674 /*:ref: samsbi_ 12 8 13 4 4 13 4 4 124 124 */
15675 /*:ref: samchi_ 12 6 13 4 13 4 124 124 */
15676 /*:ref: suffix_ 14 5 13 4 13 124 124 */
15677 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
15678 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
15679 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
15680 /*:ref: zzmkpc_ 14 8 13 4 4 13 13 124 124 124 */
15681 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
15682 
15683 extern int zztknerr_(char *templt, char *string, char *token, char *error, logical *status, ftnlen templt_len, ftnlen string_len, ftnlen token_len, ftnlen error_len);
15684 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
15685 
15686 extern int zztogrid_(doublereal *modxyz, doublereal *voxori, doublereal *voxsiz, doublereal *grdxyz);
15687 /*:ref: return_ 12 0 */
15688 /*:ref: chkin_ 14 2 13 124 */
15689 /*:ref: setmsg_ 14 2 13 124 */
15690 /*:ref: errdp_ 14 3 13 7 124 */
15691 /*:ref: sigerr_ 14 2 13 124 */
15692 /*:ref: chkout_ 14 2 13 124 */
15693 
15694 extern logical zztpats_(integer *room, integer *nknown, char *known, char *meanng, ftnlen known_len, ftnlen meanng_len);
15695 /*:ref: orderc_ 14 4 13 4 4 124 */
15696 /*:ref: reordc_ 14 4 4 4 13 124 */
15697 
15698 extern int zztrvlnk_(integer *aval, integer *maxa, integer *pntrs, integer *cellsz, integer *cells, integer *maxb, integer *nb, integer *blist);
15699 /*:ref: return_ 12 0 */
15700 /*:ref: chkin_ 14 2 13 124 */
15701 /*:ref: setmsg_ 14 2 13 124 */
15702 /*:ref: errint_ 14 3 13 4 124 */
15703 /*:ref: sigerr_ 14 2 13 124 */
15704 /*:ref: chkout_ 14 2 13 124 */
15705 
15706 extern int zztwovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform);
15707 /*:ref: return_ 12 0 */
15708 /*:ref: chkin_ 14 2 13 124 */
15709 /*:ref: setmsg_ 14 2 13 124 */
15710 /*:ref: errint_ 14 3 13 4 124 */
15711 /*:ref: sigerr_ 14 2 13 124 */
15712 /*:ref: chkout_ 14 2 13 124 */
15713 /*:ref: dvhat_ 14 2 7 7 */
15714 /*:ref: ducrss_ 14 3 7 7 7 */
15715 /*:ref: moved_ 14 3 7 4 7 */
15716 /*:ref: cleard_ 14 2 4 7 */
15717 /*:ref: vzero_ 12 1 7 */
15718 
15719 extern int zzuntngl_(integer *nptr, integer *maxcel, integer *cells, integer *maxb, integer *pntrs, integer *nout, integer *outlst);
15720 /*:ref: return_ 12 0 */
15721 /*:ref: chkin_ 14 2 13 124 */
15722 /*:ref: setmsg_ 14 2 13 124 */
15723 /*:ref: errint_ 14 3 13 4 124 */
15724 /*:ref: sigerr_ 14 2 13 124 */
15725 /*:ref: chkout_ 14 2 13 124 */
15726 /*:ref: zztrvlnk_ 14 8 4 4 4 4 4 4 4 4 */
15727 /*:ref: failed_ 12 0 */
15728 
15729 extern int zzutcpm_(char *string, integer *start, doublereal *hoff, doublereal *moff, integer *last, logical *succes, ftnlen string_len);
15730 /*:ref: lx4uns_ 14 5 13 4 4 4 124 */
15731 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
15732 /*:ref: samch_ 12 6 13 4 13 4 124 124 */
15733 
15734 extern int zzvalcor_(char *abcorr, logical *attblk, ftnlen abcorr_len);
15735 /*:ref: return_ 12 0 */
15736 /*:ref: chkin_ 14 2 13 124 */
15737 /*:ref: zzprscor_ 14 3 13 12 124 */
15738 /*:ref: failed_ 12 0 */
15739 /*:ref: chkout_ 14 2 13 124 */
15740 /*:ref: setmsg_ 14 2 13 124 */
15741 /*:ref: errch_ 14 4 13 13 124 124 */
15742 /*:ref: sigerr_ 14 2 13 124 */
15743 
15744 extern integer zzvox2id_(integer *vixyz, integer *nvox);
15745 
15746 extern int zzvoxcvo_(integer *vixyz, integer *nvox, integer *cgrscl, integer *cgxyz, integer *cgoff, integer *cgof1d);
15747 /*:ref: return_ 12 0 */
15748 /*:ref: chkin_ 14 2 13 124 */
15749 /*:ref: setmsg_ 14 2 13 124 */
15750 /*:ref: errint_ 14 3 13 4 124 */
15751 /*:ref: sigerr_ 14 2 13 124 */
15752 /*:ref: chkout_ 14 2 13 124 */
15753 
15754 extern int zzvrtplt_(integer *nv, integer *np, integer *plates, integer *cellsz, integer *maxlst, integer *cells, integer *vrtptr, integer *nlist, integer *pltlst);
15755 /*:ref: return_ 12 0 */
15756 /*:ref: chkin_ 14 2 13 124 */
15757 /*:ref: setmsg_ 14 2 13 124 */
15758 /*:ref: errint_ 14 3 13 4 124 */
15759 /*:ref: sigerr_ 14 2 13 124 */
15760 /*:ref: chkout_ 14 2 13 124 */
15761 /*:ref: zzinilnk_ 14 5 4 4 4 4 4 */
15762 /*:ref: failed_ 12 0 */
15763 /*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */
15764 /*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */
15765 
15766 extern int zzvstrng_(doublereal *x, char *fill, integer *from, integer *to, logical *rnd, integer *expont, char *substr, logical *did, ftnlen fill_len, ftnlen substr_len);
15767 extern int zzvststr_(doublereal *x, char *fill, integer *expont, ftnlen fill_len);
15768 extern int zzvsbstr_(integer *from, integer *to, logical *rnd, char *substr, logical *did, ftnlen substr_len);
15769 /*:ref: dpstr_ 14 4 7 4 13 124 */
15770 
15771 extern int zzwahr_(doublereal *et, doublereal *dvnut);
15772 /*:ref: pi_ 7 0 */
15773 /*:ref: twopi_ 7 0 */
15774 /*:ref: spd_ 7 0 */
15775 
15776 extern integer zzwind_(doublereal *plane, integer *n, doublereal *vertcs, doublereal *point);
15777 /*:ref: return_ 12 0 */
15778 /*:ref: chkin_ 14 2 13 124 */
15779 /*:ref: setmsg_ 14 2 13 124 */
15780 /*:ref: errint_ 14 3 13 4 124 */
15781 /*:ref: sigerr_ 14 2 13 124 */
15782 /*:ref: chkout_ 14 2 13 124 */
15783 /*:ref: pl2nvc_ 14 3 7 7 7 */
15784 /*:ref: vzero_ 12 1 7 */
15785 /*:ref: vdot_ 7 2 7 7 */
15786 /*:ref: vminus_ 14 2 7 7 */
15787 /*:ref: vequ_ 14 2 7 7 */
15788 /*:ref: vsub_ 14 3 7 7 7 */
15789 /*:ref: vperp_ 14 3 7 7 7 */
15790 /*:ref: vsep_ 7 2 7 7 */
15791 /*:ref: ucrss_ 14 3 7 7 7 */
15792 /*:ref: twopi_ 7 0 */
15793 
15794 extern integer zzwind2d_(integer *n, doublereal *vertcs, doublereal *point);
15795 /*:ref: return_ 12 0 */
15796 /*:ref: chkin_ 14 2 13 124 */
15797 /*:ref: setmsg_ 14 2 13 124 */
15798 /*:ref: errint_ 14 3 13 4 124 */
15799 /*:ref: sigerr_ 14 2 13 124 */
15800 /*:ref: chkout_ 14 2 13 124 */
15801 /*:ref: vsubg_ 14 4 7 7 4 7 */
15802 /*:ref: vsepg_ 7 3 7 7 4 */
15803 /*:ref: vdotg_ 7 3 7 7 4 */
15804 /*:ref: moved_ 14 3 7 4 7 */
15805 /*:ref: twopi_ 7 0 */
15806 
15807 extern int zzwninsd_(doublereal *left, doublereal *right, char *context, doublereal *window, ftnlen context_len);
15808 /*:ref: return_ 12 0 */
15809 /*:ref: chkin_ 14 2 13 124 */
15810 /*:ref: sized_ 4 1 7 */
15811 /*:ref: cardd_ 4 1 7 */
15812 /*:ref: lastnb_ 4 2 13 124 */
15813 /*:ref: setmsg_ 14 2 13 124 */
15814 /*:ref: errdp_ 14 3 13 7 124 */
15815 /*:ref: sigerr_ 14 2 13 124 */
15816 /*:ref: chkout_ 14 2 13 124 */
15817 /*:ref: scardd_ 14 2 4 7 */
15818 /*:ref: errint_ 14 3 13 4 124 */
15819 
15820 extern int zzxlated_(integer *inbff, char *input, integer *space, doublereal *output, ftnlen input_len);
15821 /*:ref: return_ 12 0 */
15822 /*:ref: chkin_ 14 2 13 124 */
15823 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
15824 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
15825 /*:ref: ucase_ 14 4 13 13 124 124 */
15826 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
15827 /*:ref: setmsg_ 14 2 13 124 */
15828 /*:ref: errch_ 14 4 13 13 124 124 */
15829 /*:ref: sigerr_ 14 2 13 124 */
15830 /*:ref: chkout_ 14 2 13 124 */
15831 /*:ref: intmin_ 4 0 */
15832 /*:ref: errint_ 14 3 13 4 124 */
15833 /*:ref: moved_ 14 3 7 4 7 */
15834 
15835 extern int zzxlatei_(integer *inbff, char *input, integer *space, integer *output, ftnlen input_len);
15836 /*:ref: return_ 12 0 */
15837 /*:ref: chkin_ 14 2 13 124 */
15838 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
15839 /*:ref: zzplatfm_ 14 4 13 13 124 124 */
15840 /*:ref: ucase_ 14 4 13 13 124 124 */
15841 /*:ref: isrchc_ 4 5 13 4 13 124 124 */
15842 /*:ref: setmsg_ 14 2 13 124 */
15843 /*:ref: errch_ 14 4 13 13 124 124 */
15844 /*:ref: sigerr_ 14 2 13 124 */
15845 /*:ref: chkout_ 14 2 13 124 */
15846 /*:ref: intmin_ 4 0 */
15847 /*:ref: errint_ 14 3 13 4 124 */
15848 
15849 
15850 #ifdef __cplusplus
15851    }
15852 #endif
15853 
15854 #endif
15855 
15856