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