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 48 -Version 49 50 - C-SPICELIB Version 5.0.0, 06-MAR-2005 (NJB) 51 52 Added typedefs for pointers to functions. This change was 53 made to support CSPICE wrappers for geometry finder routines. 54 55 Added typedefs for the SUN-SOLARIS-64BIT-GCC_C 56 environment (these are identical to those for the 57 ALPHA-DIGITAL-UNIX_C environment). 58 59 - C-SPICELIB Version 4.1.0, 24-MAY-2001 (WLT) 60 61 Moved the #ifdef __cplusplus so that it appears after the 62 typedefs. This allows us to more easily wrap CSPICE in a 63 namespace for C++. 64 65 - C-SPICELIB Version 4.0.0, 09-FEB-1999 (NJB) 66 67 Updated to accommodate the Alpha/Digital Unix platform. 68 Also updated to support inclusion in C++ code. 69 70 - C-SPICELIB Version 3.0.0, 02-NOV-1998 (NJB) 71 72 Updated for SPICELIB version N0049. 73 74 - C-SPICELIB Version 2.0.0, 15-SEP-1997 (NJB) 75 76 Changed variable name "typid" to "typid" in prototype 77 for zzfdat_. This was done to enable compilation under 78 Borland C++. 79 80 - C-SPICELIB Version 1.0.0, 15-SEP-1997 (NJB) (KRG) 81 82 -Index_Entries 83 84 protoypes of f2c'd SPICELIB functions 85 86 */ 87 88 89 #ifndef HAVE_SPICEF2C_H 90 #define HAVE_SPICEF2C_H 91 92 93 94 /* 95 Include Files: 96 97 Many of the prototypes below use data types defined by f2c. We 98 copy here the f2c definitions that occur in prototypes of functions 99 produced by running f2c on Fortran SPICELIB routines. 100 101 The reason we don't simply conditionally include f2c.h itself here 102 is that f2c.h defines macros that conflict with stdlib.h on some 103 systems. It's simpler to just replicate the few typedefs we need. 104 */ 105 106 #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ 107 || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) ) 108 109 #define VOID void 110 111 typedef VOID H_f; 112 typedef int integer; 113 typedef double doublereal; 114 typedef int logical; 115 typedef int ftnlen; 116 117 118 /* 119 Type H_fp is used for character return type. 120 Type S_fp is used for subroutines. 121 Type U_fp is used for functions of unknown type. 122 */ 123 typedef VOID (*H_fp)(); 124 typedef doublereal (*D_fp)(); 125 typedef doublereal (*E_fp)(); 126 typedef int (*S_fp)(); 127 typedef int (*U_fp)(); 128 typedef integer (*I_fp)(); 129 typedef logical (*L_fp)(); 130 131 #else 132 133 #define VOID void 134 135 typedef VOID H_f; 136 typedef long integer; 137 typedef double doublereal; 138 typedef long logical; 139 typedef long ftnlen; 140 141 /* 142 Type H_fp is used for character return type. 143 Type S_fp is used for subroutines. 144 Type U_fp is used for functions of unknown type. 145 */ 146 typedef VOID (*H_fp)(); 147 typedef doublereal (*D_fp)(); 148 typedef doublereal (*E_fp)(); 149 typedef int (*S_fp)(); 150 typedef int (*U_fp)(); 151 typedef integer (*I_fp)(); 152 typedef logical (*L_fp)(); 153 154 #endif 155 156 157 #ifdef __cplusplus 158 extern "C" { 159 #endif 160 161 162 /* 163 Function prototypes for functions created by f2c are listed below. 164 See the headers of the Fortran routines for descriptions of the 165 routines' interfaces. 166 167 The functions listed below are those expected to be called by 168 C-SPICELIB wrappers. Prototypes are not currently provided for other 169 f2c'd functions. 170 171 */ 172 173 /* 174 -Prototypes 175 */ 176 177 extern logical accept_(logical *ok); 178 extern logical allowd_(void); 179 180 extern logical alltru_(logical *logcls, integer *n); 181 182 extern H_f ana_(char *ret_val, ftnlen ret_val_len, char *word, char *case__, ftnlen word_len, ftnlen case_len); 183 /*:ref: ucase_ 14 4 13 13 124 124 */ 184 /*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ 185 /*:ref: ljust_ 14 4 13 13 124 124 */ 186 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 187 188 extern int appndc_(char *item, char *cell, ftnlen item_len, ftnlen cell_len); 189 /*:ref: return_ 12 0 */ 190 /*:ref: chkin_ 14 2 13 124 */ 191 /*:ref: cardc_ 4 2 13 124 */ 192 /*:ref: sizec_ 4 2 13 124 */ 193 /*:ref: scardc_ 14 3 4 13 124 */ 194 /*:ref: setmsg_ 14 2 13 124 */ 195 /*:ref: errch_ 14 4 13 13 124 124 */ 196 /*:ref: sigerr_ 14 2 13 124 */ 197 /*:ref: chkout_ 14 2 13 124 */ 198 199 extern int appndd_(doublereal *item, doublereal *cell); 200 /*:ref: return_ 12 0 */ 201 /*:ref: chkin_ 14 2 13 124 */ 202 /*:ref: cardd_ 4 1 7 */ 203 /*:ref: sized_ 4 1 7 */ 204 /*:ref: scardd_ 14 2 4 7 */ 205 /*:ref: setmsg_ 14 2 13 124 */ 206 /*:ref: errdp_ 14 3 13 7 124 */ 207 /*:ref: sigerr_ 14 2 13 124 */ 208 /*:ref: chkout_ 14 2 13 124 */ 209 210 extern int appndi_(integer *item, integer *cell); 211 /*:ref: return_ 12 0 */ 212 /*:ref: chkin_ 14 2 13 124 */ 213 /*:ref: cardi_ 4 1 4 */ 214 /*:ref: sizei_ 4 1 4 */ 215 /*:ref: scardi_ 14 2 4 4 */ 216 /*:ref: setmsg_ 14 2 13 124 */ 217 /*:ref: errint_ 14 3 13 4 124 */ 218 /*:ref: sigerr_ 14 2 13 124 */ 219 /*:ref: chkout_ 14 2 13 124 */ 220 221 extern logical approx_(doublereal *x, doublereal *y, doublereal *tol); 222 223 extern int astrip_(char *instr, char *asciib, char *asciie, char *outstr, ftnlen instr_len, ftnlen asciib_len, ftnlen asciie_len, ftnlen outstr_len); 224 /*:ref: lastnb_ 4 2 13 124 */ 225 226 extern int axisar_(doublereal *axis, doublereal *angle, doublereal *r__); 227 /*:ref: ident_ 14 1 7 */ 228 /*:ref: vrotv_ 14 4 7 7 7 7 */ 229 /*:ref: vequ_ 14 2 7 7 */ 230 231 extern doublereal b1900_(void); 232 233 extern doublereal b1950_(void); 234 235 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); 236 /*:ref: return_ 12 0 */ 237 /*:ref: chkin_ 14 2 13 124 */ 238 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 239 /*:ref: setmsg_ 14 2 13 124 */ 240 /*:ref: errch_ 14 4 13 13 124 124 */ 241 /*:ref: sigerr_ 14 2 13 124 */ 242 /*:ref: chkout_ 14 2 13 124 */ 243 /*:ref: errint_ 14 3 13 4 124 */ 244 /*:ref: eqchr_ 12 4 13 13 124 124 */ 245 246 extern logical bedec_(char *string, ftnlen string_len); 247 /*:ref: pos_ 4 5 13 13 4 124 124 */ 248 /*:ref: beint_ 12 2 13 124 */ 249 /*:ref: beuns_ 12 2 13 124 */ 250 251 extern logical beint_(char *string, ftnlen string_len); 252 /*:ref: frstnb_ 4 2 13 124 */ 253 /*:ref: beuns_ 12 2 13 124 */ 254 255 extern logical benum_(char *string, ftnlen string_len); 256 /*:ref: cpos_ 4 5 13 13 4 124 124 */ 257 /*:ref: bedec_ 12 2 13 124 */ 258 /*:ref: beint_ 12 2 13 124 */ 259 260 extern logical beuns_(char *string, ftnlen string_len); 261 /*:ref: frstnb_ 4 2 13 124 */ 262 263 extern int bodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); 264 /*:ref: return_ 12 0 */ 265 /*:ref: chkin_ 14 2 13 124 */ 266 /*:ref: zzbodc2n_ 14 4 4 13 12 124 */ 267 /*:ref: chkout_ 14 2 13 124 */ 268 269 extern int boddef_(char *name__, integer *code, ftnlen name_len); 270 /*:ref: return_ 12 0 */ 271 /*:ref: chkin_ 14 2 13 124 */ 272 /*:ref: zzboddef_ 14 3 13 4 124 */ 273 /*:ref: chkout_ 14 2 13 124 */ 274 275 extern int bodeul_(integer *body, doublereal *et, doublereal *ra, doublereal *dec, doublereal *w, doublereal *lambda); 276 /*:ref: return_ 12 0 */ 277 /*:ref: chkin_ 14 2 13 124 */ 278 /*:ref: irfnum_ 14 3 13 4 124 */ 279 /*:ref: pckeul_ 14 6 4 7 12 13 7 124 */ 280 /*:ref: bodfnd_ 12 3 4 13 124 */ 281 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 282 /*:ref: rpd_ 7 0 */ 283 /*:ref: twopi_ 7 0 */ 284 /*:ref: zzbodbry_ 4 1 4 */ 285 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 286 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 287 /*:ref: spd_ 7 0 */ 288 /*:ref: j2000_ 7 0 */ 289 /*:ref: cleard_ 14 2 4 7 */ 290 /*:ref: setmsg_ 14 2 13 124 */ 291 /*:ref: errint_ 14 3 13 4 124 */ 292 /*:ref: errdp_ 14 3 13 7 124 */ 293 /*:ref: sigerr_ 14 2 13 124 */ 294 /*:ref: chkout_ 14 2 13 124 */ 295 /*:ref: vdotg_ 7 3 7 7 4 */ 296 /*:ref: halfpi_ 7 0 */ 297 /*:ref: irfrot_ 14 3 4 4 7 */ 298 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 299 /*:ref: mxm_ 14 3 7 7 7 */ 300 /*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ 301 302 extern logical bodfnd_(integer *body, char *item, ftnlen item_len); 303 /*:ref: return_ 12 0 */ 304 /*:ref: chkin_ 14 2 13 124 */ 305 /*:ref: intstr_ 14 3 4 13 124 */ 306 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 307 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 308 /*:ref: chkout_ 14 2 13 124 */ 309 310 extern int bodmat_(integer *body, doublereal *et, doublereal *tipm); 311 /*:ref: return_ 12 0 */ 312 /*:ref: chkin_ 14 2 13 124 */ 313 /*:ref: irfnum_ 14 3 13 4 124 */ 314 /*:ref: pckmat_ 14 5 4 7 4 7 12 */ 315 /*:ref: zzbodbry_ 4 1 4 */ 316 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 317 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 318 /*:ref: spd_ 7 0 */ 319 /*:ref: j2000_ 7 0 */ 320 /*:ref: cleard_ 14 2 4 7 */ 321 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 322 /*:ref: bodfnd_ 12 3 4 13 124 */ 323 /*:ref: setmsg_ 14 2 13 124 */ 324 /*:ref: errint_ 14 3 13 4 124 */ 325 /*:ref: errdp_ 14 3 13 7 124 */ 326 /*:ref: sigerr_ 14 2 13 124 */ 327 /*:ref: chkout_ 14 2 13 124 */ 328 /*:ref: rpd_ 7 0 */ 329 /*:ref: vdotg_ 7 3 7 7 4 */ 330 /*:ref: twopi_ 7 0 */ 331 /*:ref: halfpi_ 7 0 */ 332 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 333 /*:ref: irfrot_ 14 3 4 4 7 */ 334 /*:ref: mxm_ 14 3 7 7 7 */ 335 /*:ref: moved_ 14 3 7 4 7 */ 336 337 extern int bodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); 338 /*:ref: return_ 12 0 */ 339 /*:ref: chkin_ 14 2 13 124 */ 340 /*:ref: zzbodn2c_ 14 4 13 4 12 124 */ 341 /*:ref: chkout_ 14 2 13 124 */ 342 343 extern int bods2c_(char *name__, integer *code, logical *found, ftnlen name_len); 344 /*:ref: return_ 12 0 */ 345 /*:ref: chkin_ 14 2 13 124 */ 346 /*:ref: zzbodn2c_ 14 4 13 4 12 124 */ 347 /*:ref: beint_ 12 2 13 124 */ 348 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 349 /*:ref: chkout_ 14 2 13 124 */ 350 351 extern int bodvar_(integer *body, char *item, integer *dim, doublereal *values, ftnlen item_len); 352 /*:ref: return_ 12 0 */ 353 /*:ref: chkin_ 14 2 13 124 */ 354 /*:ref: intstr_ 14 3 4 13 124 */ 355 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 356 /*:ref: rtpool_ 14 5 13 4 7 12 124 */ 357 /*:ref: setmsg_ 14 2 13 124 */ 358 /*:ref: errch_ 14 4 13 13 124 124 */ 359 /*:ref: sigerr_ 14 2 13 124 */ 360 /*:ref: chkout_ 14 2 13 124 */ 361 362 extern int bodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len); 363 /*:ref: return_ 12 0 */ 364 /*:ref: chkin_ 14 2 13 124 */ 365 /*:ref: intstr_ 14 3 4 13 124 */ 366 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 367 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 368 /*:ref: setmsg_ 14 2 13 124 */ 369 /*:ref: errch_ 14 4 13 13 124 124 */ 370 /*:ref: sigerr_ 14 2 13 124 */ 371 /*:ref: chkout_ 14 2 13 124 */ 372 /*:ref: errint_ 14 3 13 4 124 */ 373 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 374 375 extern int bodvrd_(char *bodynm, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen bodynm_len, ftnlen item_len); 376 /*:ref: return_ 12 0 */ 377 /*:ref: chkin_ 14 2 13 124 */ 378 /*:ref: bods2c_ 14 4 13 4 12 124 */ 379 /*:ref: setmsg_ 14 2 13 124 */ 380 /*:ref: errch_ 14 4 13 13 124 124 */ 381 /*:ref: sigerr_ 14 2 13 124 */ 382 /*:ref: chkout_ 14 2 13 124 */ 383 /*:ref: intstr_ 14 3 4 13 124 */ 384 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 385 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 386 /*:ref: errint_ 14 3 13 4 124 */ 387 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 388 389 extern doublereal brcktd_(doublereal *number, doublereal *end1, doublereal *end2); 390 391 extern integer brckti_(integer *number, integer *end1, integer *end2); 392 393 extern integer bschoc_(char *value, integer *ndim, char *array, integer *order, ftnlen value_len, ftnlen array_len); 394 395 extern integer bschoi_(integer *value, integer *ndim, integer *array, integer *order); 396 397 extern integer bsrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); 398 399 extern integer bsrchd_(doublereal *value, integer *ndim, doublereal *array); 400 401 extern integer bsrchi_(integer *value, integer *ndim, integer *array); 402 403 extern integer cardc_(char *cell, ftnlen cell_len); 404 /*:ref: return_ 12 0 */ 405 /*:ref: chkin_ 14 2 13 124 */ 406 /*:ref: dechar_ 14 3 13 4 124 */ 407 /*:ref: setmsg_ 14 2 13 124 */ 408 /*:ref: errint_ 14 3 13 4 124 */ 409 /*:ref: sigerr_ 14 2 13 124 */ 410 /*:ref: chkout_ 14 2 13 124 */ 411 412 extern integer cardd_(doublereal *cell); 413 /*:ref: return_ 12 0 */ 414 /*:ref: chkin_ 14 2 13 124 */ 415 /*:ref: setmsg_ 14 2 13 124 */ 416 /*:ref: errint_ 14 3 13 4 124 */ 417 /*:ref: sigerr_ 14 2 13 124 */ 418 /*:ref: chkout_ 14 2 13 124 */ 419 420 extern integer cardi_(integer *cell); 421 /*:ref: return_ 12 0 */ 422 /*:ref: chkin_ 14 2 13 124 */ 423 /*:ref: setmsg_ 14 2 13 124 */ 424 /*:ref: errint_ 14 3 13 4 124 */ 425 /*:ref: sigerr_ 14 2 13 124 */ 426 /*:ref: chkout_ 14 2 13 124 */ 427 428 extern int cgv2el_(doublereal *center, doublereal *vec1, doublereal *vec2, doublereal *ellips); 429 /*:ref: return_ 12 0 */ 430 /*:ref: chkin_ 14 2 13 124 */ 431 /*:ref: vequ_ 14 2 7 7 */ 432 /*:ref: saelgv_ 14 4 7 7 7 7 */ 433 /*:ref: chkout_ 14 2 13 124 */ 434 435 extern integer chbase_(void); 436 437 extern int chbder_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, integer *nderiv, doublereal *partdp, doublereal *dpdxs); 438 439 extern int chbint_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *dpdx); 440 441 extern int chbval_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p); 442 443 extern int chckid_(char *class__, integer *maxlen, char *id, ftnlen class_len, ftnlen id_len); 444 /*:ref: return_ 12 0 */ 445 /*:ref: chkin_ 14 2 13 124 */ 446 /*:ref: frstnp_ 4 2 13 124 */ 447 /*:ref: setmsg_ 14 2 13 124 */ 448 /*:ref: errch_ 14 4 13 13 124 124 */ 449 /*:ref: errint_ 14 3 13 4 124 */ 450 /*:ref: sigerr_ 14 2 13 124 */ 451 /*:ref: chkout_ 14 2 13 124 */ 452 /*:ref: lastnb_ 4 2 13 124 */ 453 454 extern int chgirf_(integer *refa, integer *refb, doublereal *rotab, char *name__, integer *index, ftnlen name_len); 455 extern int irfrot_(integer *refa, integer *refb, doublereal *rotab); 456 extern int irfnum_(char *name__, integer *index, ftnlen name_len); 457 extern int irfnam_(integer *index, char *name__, ftnlen name_len); 458 extern int irfdef_(integer *index); 459 /*:ref: return_ 12 0 */ 460 /*:ref: chkin_ 14 2 13 124 */ 461 /*:ref: sigerr_ 14 2 13 124 */ 462 /*:ref: chkout_ 14 2 13 124 */ 463 /*:ref: rotate_ 14 3 7 4 7 */ 464 /*:ref: wdcnt_ 4 2 13 124 */ 465 /*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ 466 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 467 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 468 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ 469 /*:ref: rotmat_ 14 4 7 7 4 7 */ 470 /*:ref: moved_ 14 3 7 4 7 */ 471 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 472 /*:ref: mxm_ 14 3 7 7 7 */ 473 /*:ref: setmsg_ 14 2 13 124 */ 474 /*:ref: errint_ 14 3 13 4 124 */ 475 /*:ref: mxmt_ 14 3 7 7 7 */ 476 /*:ref: eqstr_ 12 4 13 13 124 124 */ 477 /*:ref: esrchc_ 4 5 13 4 13 124 124 */ 478 479 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); 480 extern int cklpf_(char *fname, integer *handle, ftnlen fname_len); 481 extern int ckupf_(integer *handle); 482 extern int ckbss_(integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav); 483 extern int cksns_(integer *handle, doublereal *descr, char *segid, logical *found, ftnlen segid_len); 484 extern int ckhave_(logical *found); 485 /*:ref: return_ 12 0 */ 486 /*:ref: chkin_ 14 2 13 124 */ 487 /*:ref: sigerr_ 14 2 13 124 */ 488 /*:ref: chkout_ 14 2 13 124 */ 489 /*:ref: lnktl_ 4 2 4 4 */ 490 /*:ref: lnkfsl_ 14 3 4 4 4 */ 491 /*:ref: lnkini_ 14 2 4 4 */ 492 /*:ref: dafopr_ 14 3 13 4 124 */ 493 /*:ref: failed_ 12 0 */ 494 /*:ref: isrchi_ 4 3 4 4 4 */ 495 /*:ref: dafcls_ 14 1 4 */ 496 /*:ref: lnknxt_ 4 2 4 4 */ 497 /*:ref: setmsg_ 14 2 13 124 */ 498 /*:ref: errint_ 14 3 13 4 124 */ 499 /*:ref: intmax_ 4 0 */ 500 /*:ref: moved_ 14 3 7 4 7 */ 501 /*:ref: lnkprv_ 4 2 4 4 */ 502 /*:ref: dpmin_ 7 0 */ 503 /*:ref: dpmax_ 7 0 */ 504 /*:ref: cleard_ 14 2 4 7 */ 505 /*:ref: dafbfs_ 14 1 4 */ 506 /*:ref: daffna_ 14 1 12 */ 507 /*:ref: dafgs_ 14 1 7 */ 508 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 509 /*:ref: dafbbs_ 14 1 4 */ 510 /*:ref: daffpa_ 14 1 12 */ 511 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 512 /*:ref: lnknfn_ 4 1 4 */ 513 /*:ref: lnkan_ 14 2 4 4 */ 514 /*:ref: dafgn_ 14 2 13 124 */ 515 /*:ref: lnkilb_ 14 3 4 4 4 */ 516 /*:ref: lnkila_ 14 3 4 4 4 */ 517 518 extern int ckcls_(integer *handle); 519 /*:ref: return_ 12 0 */ 520 /*:ref: chkin_ 14 2 13 124 */ 521 /*:ref: dafbfs_ 14 1 4 */ 522 /*:ref: daffna_ 14 1 12 */ 523 /*:ref: failed_ 12 0 */ 524 /*:ref: chkout_ 14 2 13 124 */ 525 /*:ref: setmsg_ 14 2 13 124 */ 526 /*:ref: errhan_ 14 3 13 4 124 */ 527 /*:ref: sigerr_ 14 2 13 124 */ 528 /*:ref: dafcls_ 14 1 4 */ 529 530 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); 531 /*:ref: return_ 12 0 */ 532 /*:ref: chkin_ 14 2 13 124 */ 533 /*:ref: setmsg_ 14 2 13 124 */ 534 /*:ref: errdp_ 14 3 13 7 124 */ 535 /*:ref: sigerr_ 14 2 13 124 */ 536 /*:ref: chkout_ 14 2 13 124 */ 537 /*:ref: eqstr_ 12 4 13 13 124 124 */ 538 /*:ref: errch_ 14 4 13 13 124 124 */ 539 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ 540 /*:ref: ckmeta_ 14 4 4 13 4 124 */ 541 /*:ref: failed_ 12 0 */ 542 /*:ref: dafopr_ 14 3 13 4 124 */ 543 /*:ref: dafbfs_ 14 1 4 */ 544 /*:ref: daffna_ 14 1 12 */ 545 /*:ref: dafgs_ 14 1 7 */ 546 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 547 /*:ref: sct2e_ 14 3 4 7 7 */ 548 /*:ref: wninsd_ 14 3 7 7 7 */ 549 /*:ref: zzckcv01_ 14 8 4 4 4 4 7 13 7 124 */ 550 /*:ref: zzckcv02_ 14 8 4 4 4 4 7 13 7 124 */ 551 /*:ref: zzckcv03_ 14 8 4 4 4 4 7 13 7 124 */ 552 /*:ref: zzckcv04_ 14 8 4 4 4 4 7 13 7 124 */ 553 /*:ref: zzckcv05_ 14 9 4 4 4 4 7 7 13 7 124 */ 554 /*:ref: errint_ 14 3 13 4 124 */ 555 /*:ref: dafcls_ 14 1 4 */ 556 557 extern int cke01_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); 558 /*:ref: return_ 12 0 */ 559 /*:ref: chkin_ 14 2 13 124 */ 560 /*:ref: q2m_ 14 2 7 7 */ 561 /*:ref: chkout_ 14 2 13 124 */ 562 563 extern int cke02_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); 564 /*:ref: return_ 12 0 */ 565 /*:ref: chkin_ 14 2 13 124 */ 566 /*:ref: vequg_ 14 3 7 4 7 */ 567 /*:ref: vequ_ 14 2 7 7 */ 568 /*:ref: vnorm_ 7 1 7 */ 569 /*:ref: axisar_ 14 3 7 7 7 */ 570 /*:ref: q2m_ 14 2 7 7 */ 571 /*:ref: mxmt_ 14 3 7 7 7 */ 572 /*:ref: chkout_ 14 2 13 124 */ 573 574 extern int cke03_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); 575 /*:ref: return_ 12 0 */ 576 /*:ref: chkin_ 14 2 13 124 */ 577 /*:ref: moved_ 14 3 7 4 7 */ 578 /*:ref: q2m_ 14 2 7 7 */ 579 /*:ref: vequ_ 14 2 7 7 */ 580 /*:ref: chkout_ 14 2 13 124 */ 581 /*:ref: mtxm_ 14 3 7 7 7 */ 582 /*:ref: raxisa_ 14 3 7 7 7 */ 583 /*:ref: failed_ 12 0 */ 584 /*:ref: axisar_ 14 3 7 7 7 */ 585 /*:ref: mxmt_ 14 3 7 7 7 */ 586 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 587 588 extern int cke04_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); 589 /*:ref: chbval_ 14 5 7 4 7 7 7 */ 590 /*:ref: vhatg_ 14 3 7 4 7 */ 591 /*:ref: q2m_ 14 2 7 7 */ 592 593 extern int cke05_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); 594 /*:ref: return_ 12 0 */ 595 /*:ref: chkin_ 14 2 13 124 */ 596 /*:ref: setmsg_ 14 2 13 124 */ 597 /*:ref: errint_ 14 3 13 4 124 */ 598 /*:ref: sigerr_ 14 2 13 124 */ 599 /*:ref: chkout_ 14 2 13 124 */ 600 /*:ref: vminug_ 14 3 7 4 7 */ 601 /*:ref: vdistg_ 7 3 7 7 4 */ 602 /*:ref: moved_ 14 3 7 4 7 */ 603 /*:ref: xpsgip_ 14 3 4 4 7 */ 604 /*:ref: lgrind_ 14 7 4 7 7 7 7 7 7 */ 605 /*:ref: vnormg_ 7 2 7 4 */ 606 /*:ref: errdp_ 14 3 13 7 124 */ 607 /*:ref: vsclg_ 14 4 7 7 4 7 */ 608 /*:ref: vdotg_ 7 3 7 7 4 */ 609 /*:ref: vsubg_ 14 4 7 7 4 7 */ 610 /*:ref: qdq2av_ 14 3 7 7 7 */ 611 /*:ref: vsclip_ 14 2 7 7 */ 612 /*:ref: lgrint_ 7 5 4 7 7 7 7 */ 613 /*:ref: vhatg_ 14 3 7 4 7 */ 614 /*:ref: vscl_ 14 3 7 7 7 */ 615 /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ 616 /*:ref: q2m_ 14 2 7 7 */ 617 618 extern int ckfrot_(integer *inst, doublereal *et, doublereal *rotate, integer *ref, logical *found); 619 /*:ref: return_ 12 0 */ 620 /*:ref: chkin_ 14 2 13 124 */ 621 /*:ref: ckhave_ 14 1 12 */ 622 /*:ref: ckmeta_ 14 4 4 13 4 124 */ 623 /*:ref: chkout_ 14 2 13 124 */ 624 /*:ref: zzsclk_ 12 2 4 4 */ 625 /*:ref: sce2c_ 14 3 4 7 7 */ 626 /*:ref: ckbss_ 14 4 4 7 7 12 */ 627 /*:ref: cksns_ 14 5 4 7 13 12 124 */ 628 /*:ref: failed_ 12 0 */ 629 /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ 630 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 631 /*:ref: xpose_ 14 2 7 7 */ 632 633 extern int ckfxfm_(integer *inst, doublereal *et, doublereal *xform, integer *ref, logical *found); 634 /*:ref: return_ 12 0 */ 635 /*:ref: chkin_ 14 2 13 124 */ 636 /*:ref: ckmeta_ 14 4 4 13 4 124 */ 637 /*:ref: ckhave_ 14 1 12 */ 638 /*:ref: chkout_ 14 2 13 124 */ 639 /*:ref: zzsclk_ 12 2 4 4 */ 640 /*:ref: sce2c_ 14 3 4 7 7 */ 641 /*:ref: ckbss_ 14 4 4 7 7 12 */ 642 /*:ref: cksns_ 14 5 4 7 13 12 124 */ 643 /*:ref: failed_ 12 0 */ 644 /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ 645 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 646 /*:ref: rav2xf_ 14 3 7 7 7 */ 647 /*:ref: invstm_ 14 2 7 7 */ 648 649 extern int ckgp_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *clkout, logical *found, ftnlen ref_len); 650 /*:ref: return_ 12 0 */ 651 /*:ref: chkin_ 14 2 13 124 */ 652 /*:ref: chkout_ 14 2 13 124 */ 653 /*:ref: ckbss_ 14 4 4 7 7 12 */ 654 /*:ref: cksns_ 14 5 4 7 13 12 124 */ 655 /*:ref: failed_ 12 0 */ 656 /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ 657 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 658 /*:ref: namfrm_ 14 3 13 4 124 */ 659 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 660 /*:ref: ckmeta_ 14 4 4 13 4 124 */ 661 /*:ref: sct2e_ 14 3 4 7 7 */ 662 /*:ref: frmchg_ 14 4 4 4 7 7 */ 663 /*:ref: xf2rav_ 14 3 7 7 7 */ 664 /*:ref: mxm_ 14 3 7 7 7 */ 665 /*:ref: moved_ 14 3 7 4 7 */ 666 667 extern int ckgpav_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found, ftnlen ref_len); 668 /*:ref: return_ 12 0 */ 669 /*:ref: chkin_ 14 2 13 124 */ 670 /*:ref: chkout_ 14 2 13 124 */ 671 /*:ref: ckbss_ 14 4 4 7 7 12 */ 672 /*:ref: cksns_ 14 5 4 7 13 12 124 */ 673 /*:ref: failed_ 12 0 */ 674 /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ 675 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 676 /*:ref: namfrm_ 14 3 13 4 124 */ 677 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 678 /*:ref: ckmeta_ 14 4 4 13 4 124 */ 679 /*:ref: sct2e_ 14 3 4 7 7 */ 680 /*:ref: frmchg_ 14 4 4 4 7 7 */ 681 /*:ref: xf2rav_ 14 3 7 7 7 */ 682 /*:ref: mxm_ 14 3 7 7 7 */ 683 /*:ref: moved_ 14 3 7 4 7 */ 684 /*:ref: mtxv_ 14 3 7 7 7 */ 685 /*:ref: vadd_ 14 3 7 7 7 */ 686 687 extern int ckgr01_(integer *handle, doublereal *descr, integer *recno, doublereal *record); 688 /*:ref: return_ 12 0 */ 689 /*:ref: chkin_ 14 2 13 124 */ 690 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 691 /*:ref: setmsg_ 14 2 13 124 */ 692 /*:ref: errint_ 14 3 13 4 124 */ 693 /*:ref: sigerr_ 14 2 13 124 */ 694 /*:ref: chkout_ 14 2 13 124 */ 695 /*:ref: dafgda_ 14 4 4 4 4 7 */ 696 697 extern int ckgr02_(integer *handle, doublereal *descr, integer *recno, doublereal *record); 698 /*:ref: return_ 12 0 */ 699 /*:ref: chkin_ 14 2 13 124 */ 700 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 701 /*:ref: setmsg_ 14 2 13 124 */ 702 /*:ref: errint_ 14 3 13 4 124 */ 703 /*:ref: sigerr_ 14 2 13 124 */ 704 /*:ref: chkout_ 14 2 13 124 */ 705 /*:ref: cknr02_ 14 3 4 7 4 */ 706 /*:ref: dafgda_ 14 4 4 4 4 7 */ 707 /*:ref: moved_ 14 3 7 4 7 */ 708 709 extern int ckgr03_(integer *handle, doublereal *descr, integer *recno, doublereal *record); 710 /*:ref: return_ 12 0 */ 711 /*:ref: chkin_ 14 2 13 124 */ 712 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 713 /*:ref: setmsg_ 14 2 13 124 */ 714 /*:ref: errint_ 14 3 13 4 124 */ 715 /*:ref: sigerr_ 14 2 13 124 */ 716 /*:ref: chkout_ 14 2 13 124 */ 717 /*:ref: dafgda_ 14 4 4 4 4 7 */ 718 719 extern int ckgr04_(integer *handle, doublereal *descr, integer *recno, doublereal *record); 720 /*:ref: return_ 12 0 */ 721 /*:ref: chkin_ 14 2 13 124 */ 722 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 723 /*:ref: setmsg_ 14 2 13 124 */ 724 /*:ref: errint_ 14 3 13 4 124 */ 725 /*:ref: sigerr_ 14 2 13 124 */ 726 /*:ref: chkout_ 14 2 13 124 */ 727 /*:ref: cknr04_ 14 3 4 7 4 */ 728 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ 729 /*:ref: zzck4d2i_ 14 4 7 4 7 4 */ 730 731 extern int ckgr05_(integer *handle, doublereal *descr, integer *recno, doublereal *record); 732 /*:ref: return_ 12 0 */ 733 /*:ref: chkin_ 14 2 13 124 */ 734 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 735 /*:ref: setmsg_ 14 2 13 124 */ 736 /*:ref: errint_ 14 3 13 4 124 */ 737 /*:ref: sigerr_ 14 2 13 124 */ 738 /*:ref: chkout_ 14 2 13 124 */ 739 /*:ref: dafgda_ 14 4 4 4 4 7 */ 740 741 extern int ckmeta_(integer *ckid, char *meta, integer *idcode, ftnlen meta_len); 742 /*:ref: return_ 12 0 */ 743 /*:ref: chkin_ 14 2 13 124 */ 744 /*:ref: bschoi_ 4 4 4 4 4 4 */ 745 /*:ref: cvpool_ 14 3 13 12 124 */ 746 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ 747 /*:ref: orderi_ 14 3 4 4 4 */ 748 /*:ref: intstr_ 14 3 4 13 124 */ 749 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 750 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 751 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 752 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 753 /*:ref: ljust_ 14 4 13 13 124 124 */ 754 /*:ref: ucase_ 14 4 13 13 124 124 */ 755 /*:ref: setmsg_ 14 2 13 124 */ 756 /*:ref: errch_ 14 4 13 13 124 124 */ 757 /*:ref: sigerr_ 14 2 13 124 */ 758 /*:ref: chkout_ 14 2 13 124 */ 759 760 extern int cknr01_(integer *handle, doublereal *descr, integer *nrec); 761 /*:ref: return_ 12 0 */ 762 /*:ref: chkin_ 14 2 13 124 */ 763 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 764 /*:ref: setmsg_ 14 2 13 124 */ 765 /*:ref: errint_ 14 3 13 4 124 */ 766 /*:ref: sigerr_ 14 2 13 124 */ 767 /*:ref: chkout_ 14 2 13 124 */ 768 /*:ref: dafgda_ 14 4 4 4 4 7 */ 769 770 extern int cknr02_(integer *handle, doublereal *descr, integer *nrec); 771 /*:ref: return_ 12 0 */ 772 /*:ref: chkin_ 14 2 13 124 */ 773 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 774 /*:ref: setmsg_ 14 2 13 124 */ 775 /*:ref: errint_ 14 3 13 4 124 */ 776 /*:ref: sigerr_ 14 2 13 124 */ 777 /*:ref: chkout_ 14 2 13 124 */ 778 779 extern int cknr03_(integer *handle, doublereal *descr, integer *nrec); 780 /*:ref: return_ 12 0 */ 781 /*:ref: chkin_ 14 2 13 124 */ 782 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 783 /*:ref: setmsg_ 14 2 13 124 */ 784 /*:ref: errint_ 14 3 13 4 124 */ 785 /*:ref: sigerr_ 14 2 13 124 */ 786 /*:ref: chkout_ 14 2 13 124 */ 787 /*:ref: dafgda_ 14 4 4 4 4 7 */ 788 789 extern int cknr04_(integer *handle, doublereal *descr, integer *nrec); 790 /*:ref: return_ 12 0 */ 791 /*:ref: chkin_ 14 2 13 124 */ 792 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 793 /*:ref: setmsg_ 14 2 13 124 */ 794 /*:ref: errint_ 14 3 13 4 124 */ 795 /*:ref: sigerr_ 14 2 13 124 */ 796 /*:ref: chkout_ 14 2 13 124 */ 797 /*:ref: sgmeta_ 14 4 4 7 4 4 */ 798 799 extern int cknr05_(integer *handle, doublereal *descr, integer *nrec); 800 /*:ref: return_ 12 0 */ 801 /*:ref: chkin_ 14 2 13 124 */ 802 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 803 /*:ref: setmsg_ 14 2 13 124 */ 804 /*:ref: errint_ 14 3 13 4 124 */ 805 /*:ref: sigerr_ 14 2 13 124 */ 806 /*:ref: chkout_ 14 2 13 124 */ 807 /*:ref: dafgda_ 14 4 4 4 4 7 */ 808 809 extern int ckobj_(char *ck, integer *ids, ftnlen ck_len); 810 /*:ref: return_ 12 0 */ 811 /*:ref: chkin_ 14 2 13 124 */ 812 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ 813 /*:ref: setmsg_ 14 2 13 124 */ 814 /*:ref: errch_ 14 4 13 13 124 124 */ 815 /*:ref: sigerr_ 14 2 13 124 */ 816 /*:ref: chkout_ 14 2 13 124 */ 817 /*:ref: dafopr_ 14 3 13 4 124 */ 818 /*:ref: failed_ 12 0 */ 819 /*:ref: dafbfs_ 14 1 4 */ 820 /*:ref: daffna_ 14 1 12 */ 821 /*:ref: dafgs_ 14 1 7 */ 822 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 823 /*:ref: insrti_ 14 2 4 4 */ 824 /*:ref: dafcls_ 14 1 4 */ 825 826 extern int ckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len); 827 /*:ref: return_ 12 0 */ 828 /*:ref: chkin_ 14 2 13 124 */ 829 /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ 830 /*:ref: failed_ 12 0 */ 831 /*:ref: chkout_ 14 2 13 124 */ 832 833 extern int ckpfs_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found); 834 /*:ref: return_ 12 0 */ 835 /*:ref: chkin_ 14 2 13 124 */ 836 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 837 /*:ref: ckr01_ 14 7 4 7 7 7 12 7 12 */ 838 /*:ref: cke01_ 14 5 12 7 7 7 7 */ 839 /*:ref: ckr02_ 14 6 4 7 7 7 7 12 */ 840 /*:ref: cke02_ 14 5 12 7 7 7 7 */ 841 /*:ref: ckr03_ 14 7 4 7 7 7 12 7 12 */ 842 /*:ref: cke03_ 14 5 12 7 7 7 7 */ 843 /*:ref: ckr04_ 14 7 4 7 7 7 12 7 12 */ 844 /*:ref: cke04_ 14 5 12 7 7 7 7 */ 845 /*:ref: ckr05_ 14 7 4 7 7 7 12 7 12 */ 846 /*:ref: cke05_ 14 5 12 7 7 7 7 */ 847 /*:ref: setmsg_ 14 2 13 124 */ 848 /*:ref: errint_ 14 3 13 4 124 */ 849 /*:ref: sigerr_ 14 2 13 124 */ 850 /*:ref: chkout_ 14 2 13 124 */ 851 852 extern int ckr01_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); 853 /*:ref: return_ 12 0 */ 854 /*:ref: chkin_ 14 2 13 124 */ 855 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 856 /*:ref: setmsg_ 14 2 13 124 */ 857 /*:ref: errint_ 14 3 13 4 124 */ 858 /*:ref: sigerr_ 14 2 13 124 */ 859 /*:ref: chkout_ 14 2 13 124 */ 860 /*:ref: dafgda_ 14 4 4 4 4 7 */ 861 /*:ref: lstled_ 4 3 7 4 7 */ 862 /*:ref: lstcld_ 4 3 7 4 7 */ 863 864 extern int ckr02_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, doublereal *record, logical *found); 865 /*:ref: return_ 12 0 */ 866 /*:ref: chkin_ 14 2 13 124 */ 867 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 868 /*:ref: setmsg_ 14 2 13 124 */ 869 /*:ref: errint_ 14 3 13 4 124 */ 870 /*:ref: sigerr_ 14 2 13 124 */ 871 /*:ref: chkout_ 14 2 13 124 */ 872 /*:ref: dafgda_ 14 4 4 4 4 7 */ 873 /*:ref: lstled_ 4 3 7 4 7 */ 874 /*:ref: vequg_ 14 3 7 4 7 */ 875 876 extern int ckr03_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); 877 /*:ref: return_ 12 0 */ 878 /*:ref: chkin_ 14 2 13 124 */ 879 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 880 /*:ref: setmsg_ 14 2 13 124 */ 881 /*:ref: errint_ 14 3 13 4 124 */ 882 /*:ref: sigerr_ 14 2 13 124 */ 883 /*:ref: chkout_ 14 2 13 124 */ 884 /*:ref: dafgda_ 14 4 4 4 4 7 */ 885 /*:ref: failed_ 12 0 */ 886 /*:ref: lstltd_ 4 3 7 4 7 */ 887 /*:ref: lstled_ 4 3 7 4 7 */ 888 /*:ref: moved_ 14 3 7 4 7 */ 889 /*:ref: dpmax_ 7 0 */ 890 891 extern int ckr04_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); 892 /*:ref: return_ 12 0 */ 893 /*:ref: chkin_ 14 2 13 124 */ 894 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 895 /*:ref: setmsg_ 14 2 13 124 */ 896 /*:ref: errint_ 14 3 13 4 124 */ 897 /*:ref: sigerr_ 14 2 13 124 */ 898 /*:ref: chkout_ 14 2 13 124 */ 899 /*:ref: cknr04_ 14 3 4 7 4 */ 900 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ 901 /*:ref: failed_ 12 0 */ 902 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ 903 /*:ref: zzck4d2i_ 14 4 7 4 7 4 */ 904 905 extern int ckr05_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); 906 /*:ref: return_ 12 0 */ 907 /*:ref: chkin_ 14 2 13 124 */ 908 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 909 /*:ref: setmsg_ 14 2 13 124 */ 910 /*:ref: errint_ 14 3 13 4 124 */ 911 /*:ref: sigerr_ 14 2 13 124 */ 912 /*:ref: chkout_ 14 2 13 124 */ 913 /*:ref: errdp_ 14 3 13 7 124 */ 914 /*:ref: brcktd_ 7 3 7 7 7 */ 915 /*:ref: dafgda_ 14 4 4 4 4 7 */ 916 /*:ref: failed_ 12 0 */ 917 /*:ref: odd_ 12 1 4 */ 918 /*:ref: lstltd_ 4 3 7 4 7 */ 919 /*:ref: lstled_ 4 3 7 4 7 */ 920 /*:ref: dpmax_ 7 0 */ 921 /*:ref: moved_ 14 3 7 4 7 */ 922 923 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); 924 /*:ref: return_ 12 0 */ 925 /*:ref: chkin_ 14 2 13 124 */ 926 /*:ref: setmsg_ 14 2 13 124 */ 927 /*:ref: errint_ 14 3 13 4 124 */ 928 /*:ref: sigerr_ 14 2 13 124 */ 929 /*:ref: chkout_ 14 2 13 124 */ 930 /*:ref: errdp_ 14 3 13 7 124 */ 931 /*:ref: namfrm_ 14 3 13 4 124 */ 932 /*:ref: errch_ 14 4 13 13 124 124 */ 933 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 934 /*:ref: lastnb_ 4 2 13 124 */ 935 /*:ref: dafbna_ 14 4 4 7 13 124 */ 936 /*:ref: failed_ 12 0 */ 937 /*:ref: dafada_ 14 2 7 4 */ 938 /*:ref: dafena_ 14 0 */ 939 940 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); 941 /*:ref: return_ 12 0 */ 942 /*:ref: chkin_ 14 2 13 124 */ 943 /*:ref: setmsg_ 14 2 13 124 */ 944 /*:ref: errint_ 14 3 13 4 124 */ 945 /*:ref: sigerr_ 14 2 13 124 */ 946 /*:ref: chkout_ 14 2 13 124 */ 947 /*:ref: errdp_ 14 3 13 7 124 */ 948 /*:ref: namfrm_ 14 3 13 4 124 */ 949 /*:ref: errch_ 14 4 13 13 124 124 */ 950 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 951 /*:ref: lastnb_ 4 2 13 124 */ 952 /*:ref: dafbna_ 14 4 4 7 13 124 */ 953 /*:ref: failed_ 12 0 */ 954 /*:ref: dafada_ 14 2 7 4 */ 955 /*:ref: dafena_ 14 0 */ 956 957 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); 958 /*:ref: return_ 12 0 */ 959 /*:ref: chkin_ 14 2 13 124 */ 960 /*:ref: setmsg_ 14 2 13 124 */ 961 /*:ref: errint_ 14 3 13 4 124 */ 962 /*:ref: sigerr_ 14 2 13 124 */ 963 /*:ref: chkout_ 14 2 13 124 */ 964 /*:ref: errdp_ 14 3 13 7 124 */ 965 /*:ref: namfrm_ 14 3 13 4 124 */ 966 /*:ref: errch_ 14 4 13 13 124 124 */ 967 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 968 /*:ref: lastnb_ 4 2 13 124 */ 969 /*:ref: dafbna_ 14 4 4 7 13 124 */ 970 /*:ref: failed_ 12 0 */ 971 /*:ref: dafada_ 14 2 7 4 */ 972 /*:ref: dafena_ 14 0 */ 973 974 extern int ckw04a_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, doublereal *sclkdp); 975 /*:ref: return_ 12 0 */ 976 /*:ref: chkin_ 14 2 13 124 */ 977 /*:ref: setmsg_ 14 2 13 124 */ 978 /*:ref: errint_ 14 3 13 4 124 */ 979 /*:ref: errhan_ 14 3 13 4 124 */ 980 /*:ref: sigerr_ 14 2 13 124 */ 981 /*:ref: chkout_ 14 2 13 124 */ 982 /*:ref: zzck4i2d_ 14 4 4 4 7 7 */ 983 /*:ref: sgwvpk_ 14 6 4 4 4 7 4 7 */ 984 985 extern int ckw04b_(integer *handle, doublereal *begtim, integer *inst, char *ref, logical *avflag, char *segid, ftnlen ref_len, ftnlen segid_len); 986 /*:ref: return_ 12 0 */ 987 /*:ref: chkin_ 14 2 13 124 */ 988 /*:ref: namfrm_ 14 3 13 4 124 */ 989 /*:ref: setmsg_ 14 2 13 124 */ 990 /*:ref: errch_ 14 4 13 13 124 124 */ 991 /*:ref: sigerr_ 14 2 13 124 */ 992 /*:ref: chkout_ 14 2 13 124 */ 993 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 994 /*:ref: lastnb_ 4 2 13 124 */ 995 /*:ref: sgbwvs_ 14 7 4 7 13 4 7 4 124 */ 996 997 extern int ckw04e_(integer *handle, doublereal *endtim); 998 /*:ref: return_ 12 0 */ 999 /*:ref: chkin_ 14 2 13 124 */ 1000 /*:ref: sgwes_ 14 1 4 */ 1001 /*:ref: failed_ 12 0 */ 1002 /*:ref: chkout_ 14 2 13 124 */ 1003 /*:ref: dafbbs_ 14 1 4 */ 1004 /*:ref: daffpa_ 14 1 12 */ 1005 /*:ref: setmsg_ 14 2 13 124 */ 1006 /*:ref: sigerr_ 14 2 13 124 */ 1007 /*:ref: dafgs_ 14 1 7 */ 1008 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 1009 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 1010 /*:ref: dafrs_ 14 1 7 */ 1011 1012 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); 1013 /*:ref: return_ 12 0 */ 1014 /*:ref: chkin_ 14 2 13 124 */ 1015 /*:ref: setmsg_ 14 2 13 124 */ 1016 /*:ref: errint_ 14 3 13 4 124 */ 1017 /*:ref: sigerr_ 14 2 13 124 */ 1018 /*:ref: chkout_ 14 2 13 124 */ 1019 /*:ref: namfrm_ 14 3 13 4 124 */ 1020 /*:ref: errch_ 14 4 13 13 124 124 */ 1021 /*:ref: lastnb_ 4 2 13 124 */ 1022 /*:ref: errdp_ 14 3 13 7 124 */ 1023 /*:ref: bsrchd_ 4 3 7 4 7 */ 1024 /*:ref: vnormg_ 7 2 7 4 */ 1025 /*:ref: odd_ 12 1 4 */ 1026 /*:ref: lstltd_ 4 3 7 4 7 */ 1027 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 1028 /*:ref: dafbna_ 14 4 4 7 13 124 */ 1029 /*:ref: failed_ 12 0 */ 1030 /*:ref: dafada_ 14 2 7 4 */ 1031 /*:ref: dafena_ 14 0 */ 1032 1033 extern int clearc_(integer *ndim, char *array, ftnlen array_len); 1034 1035 extern int cleard_(integer *ndim, doublereal *array); 1036 1037 extern int cleari_(integer *ndim, integer *array); 1038 1039 extern doublereal clight_(void); 1040 1041 extern int cmprss_(char *delim, integer *n, char *input, char *output, ftnlen delim_len, ftnlen input_len, ftnlen output_len); 1042 1043 extern int conics_(doublereal *elts, doublereal *et, doublereal *state); 1044 /*:ref: return_ 12 0 */ 1045 /*:ref: chkin_ 14 2 13 124 */ 1046 /*:ref: setmsg_ 14 2 13 124 */ 1047 /*:ref: errdp_ 14 3 13 7 124 */ 1048 /*:ref: sigerr_ 14 2 13 124 */ 1049 /*:ref: chkout_ 14 2 13 124 */ 1050 /*:ref: vscl_ 14 3 7 7 7 */ 1051 /*:ref: twopi_ 7 0 */ 1052 /*:ref: prop2b_ 14 4 7 7 7 7 */ 1053 1054 extern int convrt_(doublereal *x, char *in, char *out, doublereal *y, ftnlen in_len, ftnlen out_len); 1055 /*:ref: return_ 12 0 */ 1056 /*:ref: chkin_ 14 2 13 124 */ 1057 /*:ref: dpr_ 7 0 */ 1058 /*:ref: ucase_ 14 4 13 13 124 124 */ 1059 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 1060 /*:ref: setmsg_ 14 2 13 124 */ 1061 /*:ref: sigerr_ 14 2 13 124 */ 1062 /*:ref: chkout_ 14 2 13 124 */ 1063 1064 extern int copyc_(char *cell, char *copy, ftnlen cell_len, ftnlen copy_len); 1065 /*:ref: return_ 12 0 */ 1066 /*:ref: chkin_ 14 2 13 124 */ 1067 /*:ref: cardc_ 4 2 13 124 */ 1068 /*:ref: sizec_ 4 2 13 124 */ 1069 /*:ref: lastpc_ 4 2 13 124 */ 1070 /*:ref: scardc_ 14 3 4 13 124 */ 1071 /*:ref: excess_ 14 3 4 13 124 */ 1072 /*:ref: sigerr_ 14 2 13 124 */ 1073 /*:ref: chkout_ 14 2 13 124 */ 1074 /*:ref: setmsg_ 14 2 13 124 */ 1075 /*:ref: errint_ 14 3 13 4 124 */ 1076 1077 extern int copyd_(doublereal *cell, doublereal *copy); 1078 /*:ref: return_ 12 0 */ 1079 /*:ref: chkin_ 14 2 13 124 */ 1080 /*:ref: cardd_ 4 1 7 */ 1081 /*:ref: sized_ 4 1 7 */ 1082 /*:ref: scardd_ 14 2 4 7 */ 1083 /*:ref: excess_ 14 3 4 13 124 */ 1084 /*:ref: sigerr_ 14 2 13 124 */ 1085 /*:ref: chkout_ 14 2 13 124 */ 1086 1087 extern int copyi_(integer *cell, integer *copy); 1088 /*:ref: return_ 12 0 */ 1089 /*:ref: chkin_ 14 2 13 124 */ 1090 /*:ref: cardi_ 4 1 4 */ 1091 /*:ref: sizei_ 4 1 4 */ 1092 /*:ref: scardi_ 14 2 4 4 */ 1093 /*:ref: excess_ 14 3 4 13 124 */ 1094 /*:ref: sigerr_ 14 2 13 124 */ 1095 /*:ref: chkout_ 14 2 13 124 */ 1096 1097 extern integer countc_(integer *unit, integer *bline, integer *eline, char *line, ftnlen line_len); 1098 /*:ref: return_ 12 0 */ 1099 /*:ref: chkin_ 14 2 13 124 */ 1100 /*:ref: setmsg_ 14 2 13 124 */ 1101 /*:ref: errint_ 14 3 13 4 124 */ 1102 /*:ref: sigerr_ 14 2 13 124 */ 1103 /*:ref: chkout_ 14 2 13 124 */ 1104 /*:ref: errfnm_ 14 3 13 4 124 */ 1105 /*:ref: lastnb_ 4 2 13 124 */ 1106 /*:ref: astrip_ 14 8 13 13 13 13 124 124 124 124 */ 1107 1108 extern integer cpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); 1109 1110 extern integer cposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); 1111 1112 extern int cyacip_(integer *nelt, char *dir, integer *ncycle, char *array, ftnlen dir_len, ftnlen array_len); 1113 /*:ref: return_ 12 0 */ 1114 /*:ref: chkin_ 14 2 13 124 */ 1115 /*:ref: chkout_ 14 2 13 124 */ 1116 /*:ref: setmsg_ 14 2 13 124 */ 1117 /*:ref: errch_ 14 4 13 13 124 124 */ 1118 /*:ref: sigerr_ 14 2 13 124 */ 1119 /*:ref: nbwid_ 4 3 13 4 124 */ 1120 /*:ref: gcd_ 4 2 4 4 */ 1121 1122 extern int cyadip_(integer *nelt, char *dir, integer *ncycle, doublereal *array, ftnlen dir_len); 1123 /*:ref: return_ 12 0 */ 1124 /*:ref: chkin_ 14 2 13 124 */ 1125 /*:ref: chkout_ 14 2 13 124 */ 1126 /*:ref: setmsg_ 14 2 13 124 */ 1127 /*:ref: errch_ 14 4 13 13 124 124 */ 1128 /*:ref: sigerr_ 14 2 13 124 */ 1129 /*:ref: gcd_ 4 2 4 4 */ 1130 1131 extern int cyaiip_(integer *nelt, char *dir, integer *ncycle, integer *array, ftnlen dir_len); 1132 /*:ref: return_ 12 0 */ 1133 /*:ref: chkin_ 14 2 13 124 */ 1134 /*:ref: chkout_ 14 2 13 124 */ 1135 /*:ref: setmsg_ 14 2 13 124 */ 1136 /*:ref: errch_ 14 4 13 13 124 124 */ 1137 /*:ref: sigerr_ 14 2 13 124 */ 1138 /*:ref: gcd_ 4 2 4 4 */ 1139 1140 extern int cyclac_(char *array, integer *nelt, char *dir, integer *ncycle, char *out, ftnlen array_len, ftnlen dir_len, ftnlen out_len); 1141 /*:ref: return_ 12 0 */ 1142 /*:ref: chkin_ 14 2 13 124 */ 1143 /*:ref: chkout_ 14 2 13 124 */ 1144 /*:ref: setmsg_ 14 2 13 124 */ 1145 /*:ref: errch_ 14 4 13 13 124 124 */ 1146 /*:ref: sigerr_ 14 2 13 124 */ 1147 /*:ref: movec_ 14 5 13 4 13 124 124 */ 1148 /*:ref: nbwid_ 4 3 13 4 124 */ 1149 /*:ref: gcd_ 4 2 4 4 */ 1150 1151 extern int cyclad_(doublereal *array, integer *nelt, char *dir, integer *ncycle, doublereal *out, ftnlen dir_len); 1152 /*:ref: return_ 12 0 */ 1153 /*:ref: chkin_ 14 2 13 124 */ 1154 /*:ref: chkout_ 14 2 13 124 */ 1155 /*:ref: setmsg_ 14 2 13 124 */ 1156 /*:ref: errch_ 14 4 13 13 124 124 */ 1157 /*:ref: sigerr_ 14 2 13 124 */ 1158 /*:ref: moved_ 14 3 7 4 7 */ 1159 /*:ref: gcd_ 4 2 4 4 */ 1160 1161 extern int cyclai_(integer *array, integer *nelt, char *dir, integer *ncycle, integer *out, ftnlen dir_len); 1162 /*:ref: return_ 12 0 */ 1163 /*:ref: chkin_ 14 2 13 124 */ 1164 /*:ref: chkout_ 14 2 13 124 */ 1165 /*:ref: setmsg_ 14 2 13 124 */ 1166 /*:ref: errch_ 14 4 13 13 124 124 */ 1167 /*:ref: sigerr_ 14 2 13 124 */ 1168 /*:ref: movei_ 14 3 4 4 4 */ 1169 /*:ref: gcd_ 4 2 4 4 */ 1170 1171 extern int cyclec_(char *instr, char *dir, integer *ncycle, char *outstr, ftnlen instr_len, ftnlen dir_len, ftnlen outstr_len); 1172 /*:ref: return_ 12 0 */ 1173 /*:ref: chkin_ 14 2 13 124 */ 1174 /*:ref: setmsg_ 14 2 13 124 */ 1175 /*:ref: errch_ 14 4 13 13 124 124 */ 1176 /*:ref: sigerr_ 14 2 13 124 */ 1177 /*:ref: chkout_ 14 2 13 124 */ 1178 /*:ref: gcd_ 4 2 4 4 */ 1179 1180 extern int cyllat_(doublereal *r__, doublereal *longc, doublereal *z__, doublereal *radius, doublereal *long__, doublereal *lat); 1181 1182 extern int cylrec_(doublereal *r__, doublereal *long__, doublereal *z__, doublereal *rectan); 1183 1184 extern int cylsph_(doublereal *r__, doublereal *longc, doublereal *z__, doublereal *radius, doublereal *colat, doublereal *long__); 1185 1186 extern doublereal dacosh_(doublereal *x); 1187 /*:ref: return_ 12 0 */ 1188 /*:ref: chkin_ 14 2 13 124 */ 1189 /*:ref: setmsg_ 14 2 13 124 */ 1190 /*:ref: sigerr_ 14 2 13 124 */ 1191 /*:ref: chkout_ 14 2 13 124 */ 1192 1193 extern int dafa2b_(char *ascii, char *binary, integer *resv, ftnlen ascii_len, ftnlen binary_len); 1194 /*:ref: return_ 12 0 */ 1195 /*:ref: chkin_ 14 2 13 124 */ 1196 /*:ref: txtopr_ 14 3 13 4 124 */ 1197 /*:ref: failed_ 12 0 */ 1198 /*:ref: chkout_ 14 2 13 124 */ 1199 /*:ref: daft2b_ 14 4 4 13 4 124 */ 1200 1201 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); 1202 extern int dafopr_(char *fname, integer *handle, ftnlen fname_len); 1203 extern int dafopw_(char *fname, integer *handle, ftnlen fname_len); 1204 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); 1205 extern int dafopn_(char *fname, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ifname_len); 1206 extern int dafcls_(integer *handle); 1207 extern int dafhsf_(integer *handle, integer *nd, integer *ni); 1208 extern int dafhlu_(integer *handle, integer *unit); 1209 extern int dafluh_(integer *unit, integer *handle); 1210 extern int dafhfn_(integer *handle, char *fname, ftnlen fname_len); 1211 extern int daffnh_(char *fname, integer *handle, ftnlen fname_len); 1212 extern int dafhof_(integer *fhset); 1213 extern int dafsih_(integer *handle, char *access, ftnlen access_len); 1214 /*:ref: return_ 12 0 */ 1215 /*:ref: chkin_ 14 2 13 124 */ 1216 /*:ref: sigerr_ 14 2 13 124 */ 1217 /*:ref: chkout_ 14 2 13 124 */ 1218 /*:ref: ssizei_ 14 2 4 4 */ 1219 /*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ 1220 /*:ref: failed_ 12 0 */ 1221 /*:ref: isrchi_ 4 3 4 4 4 */ 1222 /*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ 1223 /*:ref: zzddhcls_ 14 4 4 13 12 124 */ 1224 /*:ref: setmsg_ 14 2 13 124 */ 1225 /*:ref: errch_ 14 4 13 13 124 124 */ 1226 /*:ref: insrti_ 14 2 4 4 */ 1227 /*:ref: errint_ 14 3 13 4 124 */ 1228 /*:ref: ltrim_ 4 2 13 124 */ 1229 /*:ref: rtrim_ 4 2 13 124 */ 1230 /*:ref: cleard_ 14 2 4 7 */ 1231 /*:ref: dafrwa_ 14 3 4 4 4 */ 1232 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 1233 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 1234 /*:ref: zzdafnfr_ 14 12 4 13 4 4 13 4 4 4 13 124 124 124 */ 1235 /*:ref: removi_ 14 2 4 4 */ 1236 /*:ref: zzddhluh_ 14 3 4 4 12 */ 1237 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ 1238 /*:ref: errfnm_ 14 3 13 4 124 */ 1239 /*:ref: zzddhfnh_ 14 4 13 4 12 124 */ 1240 /*:ref: copyi_ 14 2 4 4 */ 1241 /*:ref: ljust_ 14 4 13 13 124 124 */ 1242 /*:ref: ucase_ 14 4 13 13 124 124 */ 1243 /*:ref: elemi_ 12 2 4 4 */ 1244 1245 extern int dafana_(integer *handle, doublereal *sum, char *name__, doublereal *data, integer *n, ftnlen name_len); 1246 extern int dafbna_(integer *handle, doublereal *sum, char *name__, ftnlen name_len); 1247 extern int dafada_(doublereal *data, integer *n); 1248 extern int dafena_(void); 1249 extern int dafcad_(integer *handle); 1250 /*:ref: return_ 12 0 */ 1251 /*:ref: chkin_ 14 2 13 124 */ 1252 /*:ref: sigerr_ 14 2 13 124 */ 1253 /*:ref: chkout_ 14 2 13 124 */ 1254 /*:ref: dafsih_ 14 3 4 13 124 */ 1255 /*:ref: failed_ 12 0 */ 1256 /*:ref: ssizei_ 14 2 4 4 */ 1257 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 1258 /*:ref: dafhof_ 14 1 4 */ 1259 /*:ref: elemi_ 12 2 4 4 */ 1260 /*:ref: setmsg_ 14 2 13 124 */ 1261 /*:ref: errhan_ 14 3 13 4 124 */ 1262 /*:ref: errint_ 14 3 13 4 124 */ 1263 /*:ref: dafhsf_ 14 3 4 4 4 */ 1264 /*:ref: moved_ 14 3 7 4 7 */ 1265 /*:ref: dafhfn_ 14 3 4 13 124 */ 1266 /*:ref: errch_ 14 4 13 13 124 124 */ 1267 /*:ref: dafwda_ 14 4 4 4 4 7 */ 1268 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 1269 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 1270 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ 1271 /*:ref: dafrcr_ 14 4 4 4 13 124 */ 1272 /*:ref: dafwdr_ 14 3 4 4 7 */ 1273 /*:ref: dafwcr_ 14 4 4 4 13 124 */ 1274 /*:ref: dafarw_ 14 3 4 4 4 */ 1275 /*:ref: cleard_ 14 2 4 7 */ 1276 /*:ref: dafrwa_ 14 3 4 4 4 */ 1277 /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ 1278 1279 extern int dafarr_(integer *handle, integer *resv); 1280 /*:ref: return_ 12 0 */ 1281 /*:ref: chkin_ 14 2 13 124 */ 1282 /*:ref: chkout_ 14 2 13 124 */ 1283 /*:ref: dafsih_ 14 3 4 13 124 */ 1284 /*:ref: failed_ 12 0 */ 1285 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 1286 /*:ref: dafarw_ 14 3 4 4 4 */ 1287 /*:ref: dafwdr_ 14 3 4 4 7 */ 1288 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ 1289 /*:ref: dafrcr_ 14 4 4 4 13 124 */ 1290 /*:ref: dafwcr_ 14 4 4 4 13 124 */ 1291 /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ 1292 /*:ref: dafbfs_ 14 1 4 */ 1293 /*:ref: daffna_ 14 1 12 */ 1294 /*:ref: dafgs_ 14 1 7 */ 1295 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 1296 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 1297 /*:ref: dafws_ 14 1 7 */ 1298 1299 extern int dafb2a_(char *binary, char *ascii, ftnlen binary_len, ftnlen ascii_len); 1300 /*:ref: return_ 12 0 */ 1301 /*:ref: chkin_ 14 2 13 124 */ 1302 /*:ref: txtopn_ 14 3 13 4 124 */ 1303 /*:ref: failed_ 12 0 */ 1304 /*:ref: chkout_ 14 2 13 124 */ 1305 /*:ref: dafb2t_ 14 3 13 4 124 */ 1306 1307 extern int dafb2t_(char *binary, integer *text, ftnlen binary_len); 1308 /*:ref: return_ 12 0 */ 1309 /*:ref: chkin_ 14 2 13 124 */ 1310 /*:ref: dafopr_ 14 3 13 4 124 */ 1311 /*:ref: failed_ 12 0 */ 1312 /*:ref: chkout_ 14 2 13 124 */ 1313 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 1314 /*:ref: setmsg_ 14 2 13 124 */ 1315 /*:ref: errch_ 14 4 13 13 124 124 */ 1316 /*:ref: errint_ 14 3 13 4 124 */ 1317 /*:ref: sigerr_ 14 2 13 124 */ 1318 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 1319 /*:ref: dafcls_ 14 1 4 */ 1320 /*:ref: errfnm_ 14 3 13 4 124 */ 1321 /*:ref: dafbfs_ 14 1 4 */ 1322 /*:ref: daffna_ 14 1 12 */ 1323 /*:ref: dafgs_ 14 1 7 */ 1324 /*:ref: dafgn_ 14 2 13 124 */ 1325 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 1326 /*:ref: dafgda_ 14 4 4 4 4 7 */ 1327 1328 extern int dafbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); 1329 /*:ref: return_ 12 0 */ 1330 /*:ref: chkin_ 14 2 13 124 */ 1331 /*:ref: dafopr_ 14 3 13 4 124 */ 1332 /*:ref: failed_ 12 0 */ 1333 /*:ref: chkout_ 14 2 13 124 */ 1334 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 1335 /*:ref: setmsg_ 14 2 13 124 */ 1336 /*:ref: errfnm_ 14 3 13 4 124 */ 1337 /*:ref: errint_ 14 3 13 4 124 */ 1338 /*:ref: sigerr_ 14 2 13 124 */ 1339 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 1340 /*:ref: wrenci_ 14 3 4 4 4 */ 1341 /*:ref: dafbfs_ 14 1 4 */ 1342 /*:ref: daffna_ 14 1 12 */ 1343 /*:ref: dafgs_ 14 1 7 */ 1344 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 1345 /*:ref: dafgn_ 14 2 13 124 */ 1346 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 1347 /*:ref: rtrim_ 4 2 13 124 */ 1348 /*:ref: wrencd_ 14 3 4 4 7 */ 1349 /*:ref: dafgda_ 14 4 4 4 4 7 */ 1350 /*:ref: dafcls_ 14 1 4 */ 1351 1352 extern int daffa_(integer *handle, doublereal *sum, char *name__, logical *found, ftnlen name_len); 1353 extern int dafbfs_(integer *handle); 1354 extern int daffna_(logical *found); 1355 extern int dafbbs_(integer *handle); 1356 extern int daffpa_(logical *found); 1357 extern int dafgs_(doublereal *sum); 1358 extern int dafgn_(char *name__, ftnlen name_len); 1359 extern int dafgh_(integer *handle); 1360 extern int dafrs_(doublereal *sum); 1361 extern int dafrn_(char *name__, ftnlen name_len); 1362 extern int dafws_(doublereal *sum); 1363 extern int dafcs_(integer *handle); 1364 /*:ref: return_ 12 0 */ 1365 /*:ref: chkin_ 14 2 13 124 */ 1366 /*:ref: sigerr_ 14 2 13 124 */ 1367 /*:ref: chkout_ 14 2 13 124 */ 1368 /*:ref: dafsih_ 14 3 4 13 124 */ 1369 /*:ref: failed_ 12 0 */ 1370 /*:ref: ssizei_ 14 2 4 4 */ 1371 /*:ref: dafhof_ 14 1 4 */ 1372 /*:ref: elemi_ 12 2 4 4 */ 1373 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 1374 /*:ref: dafgsr_ 14 6 4 4 4 4 7 12 */ 1375 /*:ref: setmsg_ 14 2 13 124 */ 1376 /*:ref: dafhfn_ 14 3 4 13 124 */ 1377 /*:ref: errch_ 14 4 13 13 124 124 */ 1378 /*:ref: dafhsf_ 14 3 4 4 4 */ 1379 /*:ref: moved_ 14 3 7 4 7 */ 1380 /*:ref: dafrcr_ 14 4 4 4 13 124 */ 1381 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 1382 /*:ref: movei_ 14 3 4 4 4 */ 1383 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 1384 /*:ref: dafwdr_ 14 3 4 4 7 */ 1385 /*:ref: dafwcr_ 14 4 4 4 13 124 */ 1386 1387 extern int dafgda_(integer *handle, integer *begin, integer *end, doublereal *data); 1388 /*:ref: return_ 12 0 */ 1389 /*:ref: chkin_ 14 2 13 124 */ 1390 /*:ref: setmsg_ 14 2 13 124 */ 1391 /*:ref: errint_ 14 3 13 4 124 */ 1392 /*:ref: sigerr_ 14 2 13 124 */ 1393 /*:ref: chkout_ 14 2 13 124 */ 1394 /*:ref: dafarw_ 14 3 4 4 4 */ 1395 /*:ref: dafgdr_ 14 6 4 4 4 4 7 12 */ 1396 /*:ref: cleard_ 14 2 4 7 */ 1397 1398 extern int dafps_(integer *nd, integer *ni, doublereal *dc, integer *ic, doublereal *sum); 1399 extern int dafus_(doublereal *sum, integer *nd, integer *ni, doublereal *dc, integer *ic); 1400 /*:ref: moved_ 14 3 7 4 7 */ 1401 /*:ref: movei_ 14 3 4 4 4 */ 1402 1403 extern int dafra_(integer *handle, integer *iorder, integer *n); 1404 /*:ref: return_ 12 0 */ 1405 /*:ref: chkin_ 14 2 13 124 */ 1406 /*:ref: chkout_ 14 2 13 124 */ 1407 /*:ref: isordv_ 12 2 4 4 */ 1408 /*:ref: setmsg_ 14 2 13 124 */ 1409 /*:ref: sigerr_ 14 2 13 124 */ 1410 /*:ref: dafbfs_ 14 1 4 */ 1411 /*:ref: daffna_ 14 1 12 */ 1412 /*:ref: failed_ 12 0 */ 1413 /*:ref: errint_ 14 3 13 4 124 */ 1414 /*:ref: dafgs_ 14 1 7 */ 1415 /*:ref: dafgn_ 14 2 13 124 */ 1416 /*:ref: dafws_ 14 1 7 */ 1417 /*:ref: dafrn_ 14 2 13 124 */ 1418 1419 extern int dafrcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); 1420 /*:ref: return_ 12 0 */ 1421 /*:ref: chkin_ 14 2 13 124 */ 1422 /*:ref: dafsih_ 14 3 4 13 124 */ 1423 /*:ref: failed_ 12 0 */ 1424 /*:ref: chkout_ 14 2 13 124 */ 1425 /*:ref: setmsg_ 14 2 13 124 */ 1426 /*:ref: errint_ 14 3 13 4 124 */ 1427 /*:ref: sigerr_ 14 2 13 124 */ 1428 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 1429 1430 extern int dafrda_(integer *handle, integer *begin, integer *end, doublereal *data); 1431 /*:ref: return_ 12 0 */ 1432 /*:ref: zzddhisn_ 14 3 4 12 12 */ 1433 /*:ref: chkin_ 14 2 13 124 */ 1434 /*:ref: setmsg_ 14 2 13 124 */ 1435 /*:ref: errhan_ 14 3 13 4 124 */ 1436 /*:ref: sigerr_ 14 2 13 124 */ 1437 /*:ref: chkout_ 14 2 13 124 */ 1438 /*:ref: errint_ 14 3 13 4 124 */ 1439 /*:ref: dafarw_ 14 3 4 4 4 */ 1440 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ 1441 /*:ref: cleard_ 14 2 4 7 */ 1442 1443 extern int dafrfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); 1444 /*:ref: return_ 12 0 */ 1445 /*:ref: chkin_ 14 2 13 124 */ 1446 /*:ref: dafsih_ 14 3 4 13 124 */ 1447 /*:ref: failed_ 12 0 */ 1448 /*:ref: chkout_ 14 2 13 124 */ 1449 /*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ 1450 /*:ref: setmsg_ 14 2 13 124 */ 1451 /*:ref: sigerr_ 14 2 13 124 */ 1452 1453 extern int dafrrr_(integer *handle, integer *resv); 1454 /*:ref: return_ 12 0 */ 1455 /*:ref: chkin_ 14 2 13 124 */ 1456 /*:ref: dafsih_ 14 3 4 13 124 */ 1457 /*:ref: failed_ 12 0 */ 1458 /*:ref: chkout_ 14 2 13 124 */ 1459 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 1460 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ 1461 /*:ref: dafarw_ 14 3 4 4 4 */ 1462 /*:ref: dafwdr_ 14 3 4 4 7 */ 1463 /*:ref: dafrcr_ 14 4 4 4 13 124 */ 1464 /*:ref: dafwcr_ 14 4 4 4 13 124 */ 1465 /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ 1466 /*:ref: dafbfs_ 14 1 4 */ 1467 /*:ref: daffna_ 14 1 12 */ 1468 /*:ref: dafgs_ 14 1 7 */ 1469 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 1470 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 1471 /*:ref: dafws_ 14 1 7 */ 1472 1473 extern int dafrwa_(integer *recno, integer *wordno, integer *addr__); 1474 extern int dafarw_(integer *addr__, integer *recno, integer *wordno); 1475 /*:ref: return_ 12 0 */ 1476 /*:ref: chkin_ 14 2 13 124 */ 1477 /*:ref: setmsg_ 14 2 13 124 */ 1478 /*:ref: errint_ 14 3 13 4 124 */ 1479 /*:ref: sigerr_ 14 2 13 124 */ 1480 /*:ref: chkout_ 14 2 13 124 */ 1481 1482 extern int dafrwd_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *drec, doublereal *data, logical *found, integer *reads, integer *reqs); 1483 extern int dafgdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); 1484 extern int dafgsr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); 1485 extern int dafrdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); 1486 extern int dafwdr_(integer *handle, integer *recno, doublereal *drec); 1487 extern int dafnrr_(integer *reads, integer *reqs); 1488 /*:ref: return_ 12 0 */ 1489 /*:ref: chkin_ 14 2 13 124 */ 1490 /*:ref: sigerr_ 14 2 13 124 */ 1491 /*:ref: chkout_ 14 2 13 124 */ 1492 /*:ref: minai_ 14 4 4 4 4 4 */ 1493 /*:ref: zzdafgdr_ 14 4 4 4 7 12 */ 1494 /*:ref: failed_ 12 0 */ 1495 /*:ref: moved_ 14 3 7 4 7 */ 1496 /*:ref: zzddhrcm_ 14 3 4 4 4 */ 1497 /*:ref: dafhsf_ 14 3 4 4 4 */ 1498 /*:ref: zzdafgsr_ 14 6 4 4 4 4 7 12 */ 1499 /*:ref: zzddhisn_ 14 3 4 12 12 */ 1500 /*:ref: setmsg_ 14 2 13 124 */ 1501 /*:ref: errhan_ 14 3 13 4 124 */ 1502 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 1503 /*:ref: errint_ 14 3 13 4 124 */ 1504 1505 extern int daft2b_(integer *text, char *binary, integer *resv, ftnlen binary_len); 1506 /*:ref: return_ 12 0 */ 1507 /*:ref: chkin_ 14 2 13 124 */ 1508 /*:ref: setmsg_ 14 2 13 124 */ 1509 /*:ref: errfnm_ 14 3 13 4 124 */ 1510 /*:ref: errint_ 14 3 13 4 124 */ 1511 /*:ref: sigerr_ 14 2 13 124 */ 1512 /*:ref: chkout_ 14 2 13 124 */ 1513 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ 1514 /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ 1515 /*:ref: failed_ 12 0 */ 1516 /*:ref: dafcls_ 14 1 4 */ 1517 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 1518 /*:ref: dafbna_ 14 4 4 7 13 124 */ 1519 /*:ref: dafada_ 14 2 7 4 */ 1520 /*:ref: errch_ 14 4 13 13 124 124 */ 1521 /*:ref: dafena_ 14 0 */ 1522 1523 extern int daftb_(integer *xfrlun, char *binfil, ftnlen binfil_len); 1524 /*:ref: return_ 12 0 */ 1525 /*:ref: chkin_ 14 2 13 124 */ 1526 /*:ref: setmsg_ 14 2 13 124 */ 1527 /*:ref: errfnm_ 14 3 13 4 124 */ 1528 /*:ref: errint_ 14 3 13 4 124 */ 1529 /*:ref: sigerr_ 14 2 13 124 */ 1530 /*:ref: chkout_ 14 2 13 124 */ 1531 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ 1532 /*:ref: rdenci_ 14 3 4 4 4 */ 1533 /*:ref: failed_ 12 0 */ 1534 /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ 1535 /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ 1536 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ 1537 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 1538 /*:ref: errch_ 14 4 13 13 124 124 */ 1539 /*:ref: rdencd_ 14 3 4 4 7 */ 1540 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 1541 /*:ref: dafbna_ 14 4 4 7 13 124 */ 1542 /*:ref: dafada_ 14 2 7 4 */ 1543 /*:ref: dafena_ 14 0 */ 1544 /*:ref: dafcls_ 14 1 4 */ 1545 1546 extern int dafwcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); 1547 /*:ref: return_ 12 0 */ 1548 /*:ref: chkin_ 14 2 13 124 */ 1549 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 1550 /*:ref: dafsih_ 14 3 4 13 124 */ 1551 /*:ref: setmsg_ 14 2 13 124 */ 1552 /*:ref: errint_ 14 3 13 4 124 */ 1553 /*:ref: sigerr_ 14 2 13 124 */ 1554 /*:ref: chkout_ 14 2 13 124 */ 1555 1556 extern int dafwda_(integer *handle, integer *begin, integer *end, doublereal *data); 1557 /*:ref: return_ 12 0 */ 1558 /*:ref: chkin_ 14 2 13 124 */ 1559 /*:ref: setmsg_ 14 2 13 124 */ 1560 /*:ref: errint_ 14 3 13 4 124 */ 1561 /*:ref: sigerr_ 14 2 13 124 */ 1562 /*:ref: chkout_ 14 2 13 124 */ 1563 /*:ref: dafarw_ 14 3 4 4 4 */ 1564 /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ 1565 /*:ref: cleard_ 14 2 4 7 */ 1566 /*:ref: moved_ 14 3 7 4 7 */ 1567 /*:ref: dafwdr_ 14 3 4 4 7 */ 1568 1569 extern int dafwfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); 1570 /*:ref: return_ 12 0 */ 1571 /*:ref: chkin_ 14 2 13 124 */ 1572 /*:ref: dafsih_ 14 3 4 13 124 */ 1573 /*:ref: failed_ 12 0 */ 1574 /*:ref: chkout_ 14 2 13 124 */ 1575 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 1576 /*:ref: setmsg_ 14 2 13 124 */ 1577 /*:ref: errfnm_ 14 3 13 4 124 */ 1578 /*:ref: errint_ 14 3 13 4 124 */ 1579 /*:ref: sigerr_ 14 2 13 124 */ 1580 1581 extern int dasa2l_(integer *handle, integer *type__, integer *addrss, integer *clbase, integer *clsize, integer *recno, integer *wordno); 1582 /*:ref: chkin_ 14 2 13 124 */ 1583 /*:ref: dashlu_ 14 2 4 4 */ 1584 /*:ref: setmsg_ 14 2 13 124 */ 1585 /*:ref: errint_ 14 3 13 4 124 */ 1586 /*:ref: errfnm_ 14 3 13 4 124 */ 1587 /*:ref: sigerr_ 14 2 13 124 */ 1588 /*:ref: chkout_ 14 2 13 124 */ 1589 /*:ref: isrchi_ 4 3 4 4 4 */ 1590 /*:ref: dasham_ 14 3 4 13 124 */ 1591 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1592 /*:ref: dasrri_ 14 5 4 4 4 4 4 */ 1593 1594 extern int dasac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); 1595 /*:ref: return_ 12 0 */ 1596 /*:ref: chkin_ 14 2 13 124 */ 1597 /*:ref: dassih_ 14 3 4 13 124 */ 1598 /*:ref: failed_ 12 0 */ 1599 /*:ref: chkout_ 14 2 13 124 */ 1600 /*:ref: dashlu_ 14 2 4 4 */ 1601 /*:ref: setmsg_ 14 2 13 124 */ 1602 /*:ref: errfnm_ 14 3 13 4 124 */ 1603 /*:ref: errint_ 14 3 13 4 124 */ 1604 /*:ref: sigerr_ 14 2 13 124 */ 1605 /*:ref: lastnb_ 4 2 13 124 */ 1606 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ 1607 /*:ref: dasacr_ 14 2 4 4 */ 1608 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ 1609 /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ 1610 1611 extern int dasacr_(integer *handle, integer *n); 1612 /*:ref: return_ 12 0 */ 1613 /*:ref: chkin_ 14 2 13 124 */ 1614 /*:ref: dassih_ 14 3 4 13 124 */ 1615 /*:ref: dashlu_ 14 2 4 4 */ 1616 /*:ref: failed_ 12 0 */ 1617 /*:ref: chkout_ 14 2 13 124 */ 1618 /*:ref: setmsg_ 14 2 13 124 */ 1619 /*:ref: errint_ 14 3 13 4 124 */ 1620 /*:ref: sigerr_ 14 2 13 124 */ 1621 /*:ref: daswbr_ 14 1 4 */ 1622 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1623 /*:ref: maxai_ 14 4 4 4 4 4 */ 1624 /*:ref: cleari_ 14 2 4 4 */ 1625 /*:ref: dasioi_ 14 5 13 4 4 4 124 */ 1626 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ 1627 /*:ref: dasiod_ 14 5 13 4 4 7 124 */ 1628 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1629 1630 extern int dasacu_(integer *comlun, char *begmrk, char *endmrk, logical *insbln, integer *handle, ftnlen begmrk_len, ftnlen endmrk_len); 1631 /*:ref: return_ 12 0 */ 1632 /*:ref: chkin_ 14 2 13 124 */ 1633 /*:ref: dassih_ 14 3 4 13 124 */ 1634 /*:ref: failed_ 12 0 */ 1635 /*:ref: chkout_ 14 2 13 124 */ 1636 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ 1637 /*:ref: getlun_ 14 1 4 */ 1638 /*:ref: setmsg_ 14 2 13 124 */ 1639 /*:ref: errint_ 14 3 13 4 124 */ 1640 /*:ref: sigerr_ 14 2 13 124 */ 1641 /*:ref: readln_ 14 4 4 13 12 124 */ 1642 /*:ref: ljust_ 14 4 13 13 124 124 */ 1643 /*:ref: errch_ 14 4 13 13 124 124 */ 1644 /*:ref: errfnm_ 14 3 13 4 124 */ 1645 /*:ref: readla_ 14 6 4 4 4 13 12 124 */ 1646 /*:ref: lastnb_ 4 2 13 124 */ 1647 /*:ref: writla_ 14 4 4 13 4 124 */ 1648 /*:ref: dasac_ 14 4 4 4 13 124 */ 1649 1650 extern int dasadc_(integer *handle, integer *n, integer *bpos, integer *epos, char *data, ftnlen data_len); 1651 /*:ref: return_ 12 0 */ 1652 /*:ref: chkin_ 14 2 13 124 */ 1653 /*:ref: setmsg_ 14 2 13 124 */ 1654 /*:ref: errint_ 14 3 13 4 124 */ 1655 /*:ref: sigerr_ 14 2 13 124 */ 1656 /*:ref: chkout_ 14 2 13 124 */ 1657 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1658 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 1659 /*:ref: failed_ 12 0 */ 1660 /*:ref: daswrc_ 14 4 4 4 13 124 */ 1661 /*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ 1662 /*:ref: dascud_ 14 3 4 4 4 */ 1663 1664 extern int dasadd_(integer *handle, integer *n, doublereal *data); 1665 /*:ref: return_ 12 0 */ 1666 /*:ref: chkin_ 14 2 13 124 */ 1667 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1668 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 1669 /*:ref: failed_ 12 0 */ 1670 /*:ref: moved_ 14 3 7 4 7 */ 1671 /*:ref: daswrd_ 14 3 4 4 7 */ 1672 /*:ref: dasurd_ 14 5 4 4 4 4 7 */ 1673 /*:ref: dascud_ 14 3 4 4 4 */ 1674 /*:ref: chkout_ 14 2 13 124 */ 1675 1676 extern int dasadi_(integer *handle, integer *n, integer *data); 1677 /*:ref: return_ 12 0 */ 1678 /*:ref: chkin_ 14 2 13 124 */ 1679 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1680 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 1681 /*:ref: failed_ 12 0 */ 1682 /*:ref: movei_ 14 3 4 4 4 */ 1683 /*:ref: daswri_ 14 3 4 4 4 */ 1684 /*:ref: dasuri_ 14 5 4 4 4 4 4 */ 1685 /*:ref: dascud_ 14 3 4 4 4 */ 1686 /*:ref: chkout_ 14 2 13 124 */ 1687 1688 extern int dasbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); 1689 /*:ref: return_ 12 0 */ 1690 /*:ref: chkin_ 14 2 13 124 */ 1691 /*:ref: dasopr_ 14 3 13 4 124 */ 1692 /*:ref: failed_ 12 0 */ 1693 /*:ref: chkout_ 14 2 13 124 */ 1694 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ 1695 /*:ref: dashlu_ 14 2 4 4 */ 1696 /*:ref: dascls_ 14 1 4 */ 1697 /*:ref: setmsg_ 14 2 13 124 */ 1698 /*:ref: errint_ 14 3 13 4 124 */ 1699 /*:ref: errfnm_ 14 3 13 4 124 */ 1700 /*:ref: sigerr_ 14 2 13 124 */ 1701 /*:ref: wrenci_ 14 3 4 4 4 */ 1702 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 1703 /*:ref: rtrim_ 4 2 13 124 */ 1704 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ 1705 /*:ref: wrencc_ 14 4 4 4 13 124 */ 1706 /*:ref: daslla_ 14 4 4 4 4 4 */ 1707 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 1708 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 1709 /*:ref: wrencd_ 14 3 4 4 7 */ 1710 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 1711 1712 extern int dascls_(integer *handle); 1713 /*:ref: return_ 12 0 */ 1714 /*:ref: chkin_ 14 2 13 124 */ 1715 /*:ref: ssizei_ 14 2 4 4 */ 1716 /*:ref: dashof_ 14 1 4 */ 1717 /*:ref: elemi_ 12 2 4 4 */ 1718 /*:ref: chkout_ 14 2 13 124 */ 1719 /*:ref: dasham_ 14 3 4 13 124 */ 1720 /*:ref: daswbr_ 14 1 4 */ 1721 /*:ref: dashlu_ 14 2 4 4 */ 1722 /*:ref: failed_ 12 0 */ 1723 /*:ref: setmsg_ 14 2 13 124 */ 1724 /*:ref: errint_ 14 3 13 4 124 */ 1725 /*:ref: sigerr_ 14 2 13 124 */ 1726 /*:ref: dassdr_ 14 1 4 */ 1727 /*:ref: dasllc_ 14 1 4 */ 1728 1729 extern int dascud_(integer *handle, integer *type__, integer *nwords); 1730 /*:ref: return_ 12 0 */ 1731 /*:ref: chkin_ 14 2 13 124 */ 1732 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1733 /*:ref: setmsg_ 14 2 13 124 */ 1734 /*:ref: errint_ 14 3 13 4 124 */ 1735 /*:ref: sigerr_ 14 2 13 124 */ 1736 /*:ref: chkout_ 14 2 13 124 */ 1737 /*:ref: maxai_ 14 4 4 4 4 4 */ 1738 /*:ref: dasuri_ 14 5 4 4 4 4 4 */ 1739 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1740 /*:ref: dasrri_ 14 5 4 4 4 4 4 */ 1741 /*:ref: cleari_ 14 2 4 4 */ 1742 /*:ref: daswri_ 14 3 4 4 4 */ 1743 1744 extern int dasdc_(integer *handle); 1745 /*:ref: return_ 12 0 */ 1746 /*:ref: chkin_ 14 2 13 124 */ 1747 /*:ref: dassih_ 14 3 4 13 124 */ 1748 /*:ref: failed_ 12 0 */ 1749 /*:ref: chkout_ 14 2 13 124 */ 1750 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ 1751 /*:ref: dasrcr_ 14 2 4 4 */ 1752 /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ 1753 1754 extern int dasec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); 1755 /*:ref: return_ 12 0 */ 1756 /*:ref: chkin_ 14 2 13 124 */ 1757 /*:ref: dassih_ 14 3 4 13 124 */ 1758 /*:ref: failed_ 12 0 */ 1759 /*:ref: chkout_ 14 2 13 124 */ 1760 /*:ref: setmsg_ 14 2 13 124 */ 1761 /*:ref: errint_ 14 3 13 4 124 */ 1762 /*:ref: sigerr_ 14 2 13 124 */ 1763 /*:ref: dashlu_ 14 2 4 4 */ 1764 /*:ref: isrchi_ 4 3 4 4 4 */ 1765 /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ 1766 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ 1767 /*:ref: errfnm_ 14 3 13 4 124 */ 1768 1769 extern int dasecu_(integer *handle, integer *comlun, logical *comnts); 1770 /*:ref: return_ 12 0 */ 1771 /*:ref: chkin_ 14 2 13 124 */ 1772 /*:ref: dassih_ 14 3 4 13 124 */ 1773 /*:ref: failed_ 12 0 */ 1774 /*:ref: chkout_ 14 2 13 124 */ 1775 /*:ref: dasec_ 14 6 4 4 4 13 12 124 */ 1776 /*:ref: writla_ 14 4 4 13 4 124 */ 1777 1778 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); 1779 extern int dasopr_(char *fname, integer *handle, ftnlen fname_len); 1780 extern int dasopw_(char *fname, integer *handle, ftnlen fname_len); 1781 extern int dasonw_(char *fname, char *ftype, char *ifname, integer *ncomr, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); 1782 extern int dasopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); 1783 extern int dasops_(integer *handle); 1784 extern int dasllc_(integer *handle); 1785 extern int dashfs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); 1786 extern int dasufs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); 1787 extern int dashlu_(integer *handle, integer *unit); 1788 extern int dasluh_(integer *unit, integer *handle); 1789 extern int dashfn_(integer *handle, char *fname, ftnlen fname_len); 1790 extern int dasfnh_(char *fname, integer *handle, ftnlen fname_len); 1791 extern int dashof_(integer *fhset); 1792 extern int dassih_(integer *handle, char *access, ftnlen access_len); 1793 extern int dasham_(integer *handle, char *access, ftnlen access_len); 1794 /*:ref: return_ 12 0 */ 1795 /*:ref: chkin_ 14 2 13 124 */ 1796 /*:ref: sigerr_ 14 2 13 124 */ 1797 /*:ref: chkout_ 14 2 13 124 */ 1798 /*:ref: lnkini_ 14 2 4 4 */ 1799 /*:ref: ssizei_ 14 2 4 4 */ 1800 /*:ref: setmsg_ 14 2 13 124 */ 1801 /*:ref: exists_ 12 2 13 124 */ 1802 /*:ref: rtrim_ 4 2 13 124 */ 1803 /*:ref: errch_ 14 4 13 13 124 124 */ 1804 /*:ref: lnknxt_ 4 2 4 4 */ 1805 /*:ref: errint_ 14 3 13 4 124 */ 1806 /*:ref: lnknfn_ 4 1 4 */ 1807 /*:ref: getlun_ 14 1 4 */ 1808 /*:ref: failed_ 12 0 */ 1809 /*:ref: zzddhppf_ 14 3 4 4 4 */ 1810 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 1811 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 1812 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ 1813 /*:ref: lnkan_ 14 2 4 4 */ 1814 /*:ref: lnkilb_ 14 3 4 4 4 */ 1815 /*:ref: cleari_ 14 2 4 4 */ 1816 /*:ref: dasioi_ 14 5 13 4 4 4 124 */ 1817 /*:ref: maxai_ 14 4 4 4 4 4 */ 1818 /*:ref: insrti_ 14 2 4 4 */ 1819 /*:ref: ltrim_ 4 2 13 124 */ 1820 /*:ref: zzdasnfr_ 14 11 4 13 13 4 4 4 4 13 124 124 124 */ 1821 /*:ref: lnkfsl_ 14 3 4 4 4 */ 1822 /*:ref: removi_ 14 2 4 4 */ 1823 /*:ref: errfnm_ 14 3 13 4 124 */ 1824 /*:ref: copyi_ 14 2 4 4 */ 1825 /*:ref: ljust_ 14 4 13 13 124 124 */ 1826 /*:ref: ucase_ 14 4 13 13 124 124 */ 1827 /*:ref: elemi_ 12 2 4 4 */ 1828 1829 extern int dasioc_(char *action, integer *unit, integer *recno, char *record, ftnlen action_len, ftnlen record_len); 1830 /*:ref: return_ 12 0 */ 1831 /*:ref: eqstr_ 12 4 13 13 124 124 */ 1832 /*:ref: chkin_ 14 2 13 124 */ 1833 /*:ref: setmsg_ 14 2 13 124 */ 1834 /*:ref: errfnm_ 14 3 13 4 124 */ 1835 /*:ref: errint_ 14 3 13 4 124 */ 1836 /*:ref: sigerr_ 14 2 13 124 */ 1837 /*:ref: chkout_ 14 2 13 124 */ 1838 /*:ref: errch_ 14 4 13 13 124 124 */ 1839 1840 extern int dasiod_(char *action, integer *unit, integer *recno, doublereal *record, ftnlen action_len); 1841 /*:ref: return_ 12 0 */ 1842 /*:ref: eqstr_ 12 4 13 13 124 124 */ 1843 /*:ref: chkin_ 14 2 13 124 */ 1844 /*:ref: setmsg_ 14 2 13 124 */ 1845 /*:ref: errfnm_ 14 3 13 4 124 */ 1846 /*:ref: errint_ 14 3 13 4 124 */ 1847 /*:ref: sigerr_ 14 2 13 124 */ 1848 /*:ref: chkout_ 14 2 13 124 */ 1849 /*:ref: errch_ 14 4 13 13 124 124 */ 1850 1851 extern int dasioi_(char *action, integer *unit, integer *recno, integer *record, ftnlen action_len); 1852 /*:ref: return_ 12 0 */ 1853 /*:ref: eqstr_ 12 4 13 13 124 124 */ 1854 /*:ref: chkin_ 14 2 13 124 */ 1855 /*:ref: setmsg_ 14 2 13 124 */ 1856 /*:ref: errfnm_ 14 3 13 4 124 */ 1857 /*:ref: errint_ 14 3 13 4 124 */ 1858 /*:ref: sigerr_ 14 2 13 124 */ 1859 /*:ref: chkout_ 14 2 13 124 */ 1860 /*:ref: errch_ 14 4 13 13 124 124 */ 1861 1862 extern int daslla_(integer *handle, integer *lastc, integer *lastd, integer *lasti); 1863 /*:ref: return_ 12 0 */ 1864 /*:ref: chkin_ 14 2 13 124 */ 1865 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1866 /*:ref: chkout_ 14 2 13 124 */ 1867 1868 extern int dasrcr_(integer *handle, integer *n); 1869 /*:ref: return_ 12 0 */ 1870 /*:ref: chkin_ 14 2 13 124 */ 1871 /*:ref: dassih_ 14 3 4 13 124 */ 1872 /*:ref: dashlu_ 14 2 4 4 */ 1873 /*:ref: failed_ 12 0 */ 1874 /*:ref: chkout_ 14 2 13 124 */ 1875 /*:ref: setmsg_ 14 2 13 124 */ 1876 /*:ref: errint_ 14 3 13 4 124 */ 1877 /*:ref: sigerr_ 14 2 13 124 */ 1878 /*:ref: daswbr_ 14 1 4 */ 1879 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1880 /*:ref: maxai_ 14 4 4 4 4 4 */ 1881 /*:ref: cleari_ 14 2 4 4 */ 1882 /*:ref: dasioi_ 14 5 13 4 4 4 124 */ 1883 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ 1884 /*:ref: dasiod_ 14 5 13 4 4 7 124 */ 1885 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1886 1887 extern int dasrdc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); 1888 /*:ref: chkin_ 14 2 13 124 */ 1889 /*:ref: setmsg_ 14 2 13 124 */ 1890 /*:ref: errint_ 14 3 13 4 124 */ 1891 /*:ref: sigerr_ 14 2 13 124 */ 1892 /*:ref: chkout_ 14 2 13 124 */ 1893 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 1894 /*:ref: failed_ 12 0 */ 1895 /*:ref: dasrrc_ 14 6 4 4 4 4 13 124 */ 1896 1897 extern int dasrdd_(integer *handle, integer *first, integer *last, doublereal *data); 1898 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 1899 /*:ref: dasrrd_ 14 5 4 4 4 4 7 */ 1900 /*:ref: failed_ 12 0 */ 1901 1902 extern int dasrdi_(integer *handle, integer *first, integer *last, integer *data); 1903 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 1904 /*:ref: dasrri_ 14 5 4 4 4 4 4 */ 1905 /*:ref: failed_ 12 0 */ 1906 1907 extern int dasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); 1908 /*:ref: return_ 12 0 */ 1909 /*:ref: chkin_ 14 2 13 124 */ 1910 /*:ref: dashlu_ 14 2 4 4 */ 1911 /*:ref: failed_ 12 0 */ 1912 /*:ref: chkout_ 14 2 13 124 */ 1913 /*:ref: setmsg_ 14 2 13 124 */ 1914 /*:ref: errfnm_ 14 3 13 4 124 */ 1915 /*:ref: errint_ 14 3 13 4 124 */ 1916 /*:ref: sigerr_ 14 2 13 124 */ 1917 1918 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); 1919 extern int dasrrd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); 1920 extern int dasrri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); 1921 extern int dasrrc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); 1922 extern int daswrd_(integer *handle, integer *recno, doublereal *recd); 1923 extern int daswri_(integer *handle, integer *recno, integer *reci); 1924 extern int daswrc_(integer *handle, integer *recno, char *recc, ftnlen recc_len); 1925 extern int dasurd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); 1926 extern int dasuri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); 1927 extern int dasurc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); 1928 extern int daswbr_(integer *handle); 1929 /*:ref: return_ 12 0 */ 1930 /*:ref: chkin_ 14 2 13 124 */ 1931 /*:ref: sigerr_ 14 2 13 124 */ 1932 /*:ref: chkout_ 14 2 13 124 */ 1933 /*:ref: lnkini_ 14 2 4 4 */ 1934 /*:ref: dashlu_ 14 2 4 4 */ 1935 /*:ref: setmsg_ 14 2 13 124 */ 1936 /*:ref: errint_ 14 3 13 4 124 */ 1937 /*:ref: errfnm_ 14 3 13 4 124 */ 1938 /*:ref: lnkxsl_ 14 3 4 4 4 */ 1939 /*:ref: lnkilb_ 14 3 4 4 4 */ 1940 /*:ref: moved_ 14 3 7 4 7 */ 1941 /*:ref: lnktl_ 4 2 4 4 */ 1942 /*:ref: dasiod_ 14 5 13 4 4 7 124 */ 1943 /*:ref: lnkan_ 14 2 4 4 */ 1944 /*:ref: failed_ 12 0 */ 1945 /*:ref: movei_ 14 3 4 4 4 */ 1946 /*:ref: dasioi_ 14 5 13 4 4 4 124 */ 1947 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ 1948 /*:ref: dassih_ 14 3 4 13 124 */ 1949 /*:ref: lnkfsl_ 14 3 4 4 4 */ 1950 1951 extern int dassdr_(integer *handle); 1952 /*:ref: return_ 12 0 */ 1953 /*:ref: chkin_ 14 2 13 124 */ 1954 /*:ref: dassih_ 14 3 4 13 124 */ 1955 /*:ref: dashlu_ 14 2 4 4 */ 1956 /*:ref: failed_ 12 0 */ 1957 /*:ref: chkout_ 14 2 13 124 */ 1958 /*:ref: daswbr_ 14 1 4 */ 1959 /*:ref: dasops_ 14 1 4 */ 1960 /*:ref: cleari_ 14 2 4 4 */ 1961 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1962 /*:ref: maxai_ 14 4 4 4 4 4 */ 1963 /*:ref: dasrri_ 14 5 4 4 4 4 4 */ 1964 /*:ref: dasadi_ 14 3 4 4 4 */ 1965 /*:ref: sumai_ 4 2 4 4 */ 1966 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 1967 /*:ref: dasudi_ 14 4 4 4 4 4 */ 1968 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ 1969 /*:ref: dasiod_ 14 5 13 4 4 7 124 */ 1970 /*:ref: dasioi_ 14 5 13 4 4 4 124 */ 1971 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ 1972 /*:ref: dasllc_ 14 1 4 */ 1973 1974 extern int dastb_(integer *xfrlun, char *binfil, ftnlen binfil_len); 1975 /*:ref: return_ 12 0 */ 1976 /*:ref: chkin_ 14 2 13 124 */ 1977 /*:ref: setmsg_ 14 2 13 124 */ 1978 /*:ref: errfnm_ 14 3 13 4 124 */ 1979 /*:ref: errint_ 14 3 13 4 124 */ 1980 /*:ref: sigerr_ 14 2 13 124 */ 1981 /*:ref: chkout_ 14 2 13 124 */ 1982 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ 1983 /*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ 1984 /*:ref: failed_ 12 0 */ 1985 /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ 1986 /*:ref: dascls_ 14 1 4 */ 1987 /*:ref: rdenci_ 14 3 4 4 4 */ 1988 /*:ref: dashlu_ 14 2 4 4 */ 1989 /*:ref: dasacr_ 14 2 4 4 */ 1990 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ 1991 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 1992 /*:ref: errch_ 14 4 13 13 124 124 */ 1993 /*:ref: rdencc_ 14 4 4 4 13 124 */ 1994 /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ 1995 /*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ 1996 /*:ref: rdencd_ 14 3 4 4 7 */ 1997 /*:ref: dasadd_ 14 3 4 4 7 */ 1998 /*:ref: dasadi_ 14 3 4 4 4 */ 1999 2000 extern int dasudc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); 2001 /*:ref: return_ 12 0 */ 2002 /*:ref: chkin_ 14 2 13 124 */ 2003 /*:ref: daslla_ 14 4 4 4 4 4 */ 2004 /*:ref: setmsg_ 14 2 13 124 */ 2005 /*:ref: errint_ 14 3 13 4 124 */ 2006 /*:ref: sigerr_ 14 2 13 124 */ 2007 /*:ref: chkout_ 14 2 13 124 */ 2008 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 2009 /*:ref: failed_ 12 0 */ 2010 /*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ 2011 2012 extern int dasudd_(integer *handle, integer *first, integer *last, doublereal *data); 2013 /*:ref: return_ 12 0 */ 2014 /*:ref: chkin_ 14 2 13 124 */ 2015 /*:ref: daslla_ 14 4 4 4 4 4 */ 2016 /*:ref: setmsg_ 14 2 13 124 */ 2017 /*:ref: errint_ 14 3 13 4 124 */ 2018 /*:ref: sigerr_ 14 2 13 124 */ 2019 /*:ref: chkout_ 14 2 13 124 */ 2020 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 2021 /*:ref: failed_ 12 0 */ 2022 /*:ref: dasurd_ 14 5 4 4 4 4 7 */ 2023 2024 extern int dasudi_(integer *handle, integer *first, integer *last, integer *data); 2025 /*:ref: return_ 12 0 */ 2026 /*:ref: chkin_ 14 2 13 124 */ 2027 /*:ref: daslla_ 14 4 4 4 4 4 */ 2028 /*:ref: setmsg_ 14 2 13 124 */ 2029 /*:ref: errint_ 14 3 13 4 124 */ 2030 /*:ref: sigerr_ 14 2 13 124 */ 2031 /*:ref: chkout_ 14 2 13 124 */ 2032 /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ 2033 /*:ref: failed_ 12 0 */ 2034 /*:ref: dasuri_ 14 5 4 4 4 4 4 */ 2035 2036 extern int daswfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); 2037 /*:ref: return_ 12 0 */ 2038 /*:ref: chkin_ 14 2 13 124 */ 2039 /*:ref: dassih_ 14 3 4 13 124 */ 2040 /*:ref: dashlu_ 14 2 4 4 */ 2041 /*:ref: failed_ 12 0 */ 2042 /*:ref: chkout_ 14 2 13 124 */ 2043 /*:ref: setmsg_ 14 2 13 124 */ 2044 /*:ref: errfnm_ 14 3 13 4 124 */ 2045 /*:ref: errint_ 14 3 13 4 124 */ 2046 /*:ref: sigerr_ 14 2 13 124 */ 2047 /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ 2048 /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ 2049 2050 extern doublereal datanh_(doublereal *x); 2051 /*:ref: return_ 12 0 */ 2052 /*:ref: chkin_ 14 2 13 124 */ 2053 /*:ref: setmsg_ 14 2 13 124 */ 2054 /*:ref: sigerr_ 14 2 13 124 */ 2055 /*:ref: chkout_ 14 2 13 124 */ 2056 2057 extern doublereal dcbrt_(doublereal *x); 2058 2059 extern int dcyldr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); 2060 /*:ref: return_ 12 0 */ 2061 /*:ref: chkin_ 14 2 13 124 */ 2062 /*:ref: setmsg_ 14 2 13 124 */ 2063 /*:ref: sigerr_ 14 2 13 124 */ 2064 /*:ref: chkout_ 14 2 13 124 */ 2065 /*:ref: vpack_ 14 4 7 7 7 7 */ 2066 /*:ref: reccyl_ 14 4 7 7 7 7 */ 2067 /*:ref: drdcyl_ 14 4 7 7 7 7 */ 2068 /*:ref: invort_ 14 2 7 7 */ 2069 2070 extern int delfil_(char *filnam, ftnlen filnam_len); 2071 /*:ref: return_ 12 0 */ 2072 /*:ref: chkin_ 14 2 13 124 */ 2073 /*:ref: setmsg_ 14 2 13 124 */ 2074 /*:ref: sigerr_ 14 2 13 124 */ 2075 /*:ref: chkout_ 14 2 13 124 */ 2076 /*:ref: errch_ 14 4 13 13 124 124 */ 2077 /*:ref: errint_ 14 3 13 4 124 */ 2078 /*:ref: getlun_ 14 1 4 */ 2079 2080 extern int deltet_(doublereal *epoch, char *eptype, doublereal *delta, ftnlen eptype_len); 2081 /*:ref: return_ 12 0 */ 2082 /*:ref: chkin_ 14 2 13 124 */ 2083 /*:ref: ucase_ 14 4 13 13 124 124 */ 2084 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 2085 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 2086 /*:ref: setmsg_ 14 2 13 124 */ 2087 /*:ref: errint_ 14 3 13 4 124 */ 2088 /*:ref: sigerr_ 14 2 13 124 */ 2089 /*:ref: chkout_ 14 2 13 124 */ 2090 /*:ref: errch_ 14 4 13 13 124 124 */ 2091 2092 extern doublereal det_(doublereal *m1); 2093 2094 extern int dgeodr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi); 2095 /*:ref: return_ 12 0 */ 2096 /*:ref: chkin_ 14 2 13 124 */ 2097 /*:ref: setmsg_ 14 2 13 124 */ 2098 /*:ref: errdp_ 14 3 13 7 124 */ 2099 /*:ref: sigerr_ 14 2 13 124 */ 2100 /*:ref: chkout_ 14 2 13 124 */ 2101 /*:ref: vpack_ 14 4 7 7 7 7 */ 2102 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ 2103 /*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ 2104 /*:ref: invort_ 14 2 7 7 */ 2105 2106 extern int diags2_(doublereal *symmat, doublereal *diag, doublereal *rotate); 2107 /*:ref: return_ 12 0 */ 2108 /*:ref: chkin_ 14 2 13 124 */ 2109 /*:ref: moved_ 14 3 7 4 7 */ 2110 /*:ref: chkout_ 14 2 13 124 */ 2111 /*:ref: rquad_ 14 5 7 7 7 7 7 */ 2112 /*:ref: vhatg_ 14 3 7 4 7 */ 2113 2114 extern int diffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); 2115 /*:ref: return_ 12 0 */ 2116 /*:ref: chkin_ 14 2 13 124 */ 2117 /*:ref: setmsg_ 14 2 13 124 */ 2118 /*:ref: errint_ 14 3 13 4 124 */ 2119 /*:ref: sigerr_ 14 2 13 124 */ 2120 /*:ref: chkout_ 14 2 13 124 */ 2121 /*:ref: cardc_ 4 2 13 124 */ 2122 /*:ref: sizec_ 4 2 13 124 */ 2123 /*:ref: scardc_ 14 3 4 13 124 */ 2124 /*:ref: excess_ 14 3 4 13 124 */ 2125 2126 extern int diffd_(doublereal *a, doublereal *b, doublereal *c__); 2127 /*:ref: return_ 12 0 */ 2128 /*:ref: chkin_ 14 2 13 124 */ 2129 /*:ref: cardd_ 4 1 7 */ 2130 /*:ref: sized_ 4 1 7 */ 2131 /*:ref: scardd_ 14 2 4 7 */ 2132 /*:ref: excess_ 14 3 4 13 124 */ 2133 /*:ref: sigerr_ 14 2 13 124 */ 2134 /*:ref: chkout_ 14 2 13 124 */ 2135 2136 extern int diffi_(integer *a, integer *b, integer *c__); 2137 /*:ref: return_ 12 0 */ 2138 /*:ref: chkin_ 14 2 13 124 */ 2139 /*:ref: cardi_ 4 1 4 */ 2140 /*:ref: sizei_ 4 1 4 */ 2141 /*:ref: scardi_ 14 2 4 4 */ 2142 /*:ref: excess_ 14 3 4 13 124 */ 2143 /*:ref: sigerr_ 14 2 13 124 */ 2144 /*:ref: chkout_ 14 2 13 124 */ 2145 2146 extern int dlatdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); 2147 /*:ref: return_ 12 0 */ 2148 /*:ref: chkin_ 14 2 13 124 */ 2149 /*:ref: setmsg_ 14 2 13 124 */ 2150 /*:ref: sigerr_ 14 2 13 124 */ 2151 /*:ref: chkout_ 14 2 13 124 */ 2152 /*:ref: vpack_ 14 4 7 7 7 7 */ 2153 /*:ref: reclat_ 14 4 7 7 7 7 */ 2154 /*:ref: drdlat_ 14 4 7 7 7 7 */ 2155 /*:ref: invort_ 14 2 7 7 */ 2156 2157 extern int dnearp_(doublereal *state, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); 2158 /*:ref: return_ 12 0 */ 2159 /*:ref: chkin_ 14 2 13 124 */ 2160 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ 2161 /*:ref: failed_ 12 0 */ 2162 /*:ref: chkout_ 14 2 13 124 */ 2163 /*:ref: vsub_ 14 3 7 7 7 */ 2164 /*:ref: mxv_ 14 3 7 7 7 */ 2165 /*:ref: unorm_ 14 3 7 7 7 */ 2166 /*:ref: vdot_ 7 2 7 7 */ 2167 /*:ref: vtmv_ 7 3 7 7 7 */ 2168 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 2169 2170 extern int dp2hx_(doublereal *number, char *string, integer *length, ftnlen string_len); 2171 /*:ref: int2hx_ 14 4 4 13 4 124 */ 2172 2173 extern int dpfmt_(doublereal *x, char *pictur, char *str, ftnlen pictur_len, ftnlen str_len); 2174 /*:ref: pos_ 4 5 13 13 4 124 124 */ 2175 /*:ref: chkin_ 14 2 13 124 */ 2176 /*:ref: setmsg_ 14 2 13 124 */ 2177 /*:ref: sigerr_ 14 2 13 124 */ 2178 /*:ref: chkout_ 14 2 13 124 */ 2179 /*:ref: errch_ 14 4 13 13 124 124 */ 2180 /*:ref: errint_ 14 3 13 4 124 */ 2181 /*:ref: zzvststr_ 14 4 7 13 4 124 */ 2182 /*:ref: dpstr_ 14 4 7 4 13 124 */ 2183 /*:ref: ljust_ 14 4 13 13 124 124 */ 2184 /*:ref: rjust_ 14 4 13 13 124 124 */ 2185 /*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ 2186 /*:ref: ncpos_ 4 5 13 13 4 124 124 */ 2187 2188 extern int dpgrdr_(char *body, doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); 2189 /*:ref: return_ 12 0 */ 2190 /*:ref: chkin_ 14 2 13 124 */ 2191 /*:ref: bods2c_ 14 4 13 4 12 124 */ 2192 /*:ref: setmsg_ 14 2 13 124 */ 2193 /*:ref: errch_ 14 4 13 13 124 124 */ 2194 /*:ref: sigerr_ 14 2 13 124 */ 2195 /*:ref: chkout_ 14 2 13 124 */ 2196 /*:ref: errdp_ 14 3 13 7 124 */ 2197 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 2198 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 2199 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 2200 /*:ref: ucase_ 14 4 13 13 124 124 */ 2201 /*:ref: plnsns_ 4 1 4 */ 2202 /*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ 2203 2204 extern doublereal dpr_(void); 2205 2206 extern int dpspce_(doublereal *time, doublereal *geophs, doublereal *elems, doublereal *state); 2207 /*:ref: return_ 12 0 */ 2208 /*:ref: chkin_ 14 2 13 124 */ 2209 /*:ref: twopi_ 7 0 */ 2210 /*:ref: halfpi_ 7 0 */ 2211 /*:ref: zzdpinit_ 14 6 7 7 7 7 7 7 */ 2212 /*:ref: zzdpper_ 14 6 7 7 7 7 7 7 */ 2213 /*:ref: zzdpsec_ 14 9 7 7 7 7 7 7 7 7 7 */ 2214 /*:ref: latrec_ 14 4 7 7 7 7 */ 2215 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 2216 /*:ref: chkout_ 14 2 13 124 */ 2217 2218 extern int dpstr_(doublereal *x, integer *sigdig, char *string, ftnlen string_len); 2219 /*:ref: intstr_ 14 3 4 13 124 */ 2220 2221 extern int dpstrf_(doublereal *x, integer *sigdig, char *format, char *string, ftnlen format_len, ftnlen string_len); 2222 /*:ref: dpstr_ 14 4 7 4 13 124 */ 2223 /*:ref: zzvststr_ 14 4 7 13 4 124 */ 2224 /*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ 2225 2226 extern int drdcyl_(doublereal *r__, doublereal *long__, doublereal *z__, doublereal *jacobi); 2227 2228 extern int drdgeo_(doublereal *long__, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi); 2229 /*:ref: return_ 12 0 */ 2230 /*:ref: chkin_ 14 2 13 124 */ 2231 /*:ref: setmsg_ 14 2 13 124 */ 2232 /*:ref: errdp_ 14 3 13 7 124 */ 2233 /*:ref: sigerr_ 14 2 13 124 */ 2234 /*:ref: chkout_ 14 2 13 124 */ 2235 2236 extern int drdlat_(doublereal *r__, doublereal *long__, doublereal *lat, doublereal *jacobi); 2237 2238 extern int drdpgr_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); 2239 /*:ref: return_ 12 0 */ 2240 /*:ref: chkin_ 14 2 13 124 */ 2241 /*:ref: bods2c_ 14 4 13 4 12 124 */ 2242 /*:ref: setmsg_ 14 2 13 124 */ 2243 /*:ref: errch_ 14 4 13 13 124 124 */ 2244 /*:ref: sigerr_ 14 2 13 124 */ 2245 /*:ref: chkout_ 14 2 13 124 */ 2246 /*:ref: errdp_ 14 3 13 7 124 */ 2247 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 2248 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 2249 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 2250 /*:ref: ucase_ 14 4 13 13 124 124 */ 2251 /*:ref: plnsns_ 4 1 4 */ 2252 /*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ 2253 2254 extern int drdsph_(doublereal *r__, doublereal *colat, doublereal *long__, doublereal *jacobi); 2255 2256 extern int drotat_(doublereal *angle, integer *iaxis, doublereal *dmout); 2257 /*:ref: chkin_ 14 2 13 124 */ 2258 /*:ref: setmsg_ 14 2 13 124 */ 2259 /*:ref: errint_ 14 3 13 4 124 */ 2260 /*:ref: sigerr_ 14 2 13 124 */ 2261 /*:ref: chkout_ 14 2 13 124 */ 2262 2263 extern int dsphdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); 2264 /*:ref: return_ 12 0 */ 2265 /*:ref: chkin_ 14 2 13 124 */ 2266 /*:ref: setmsg_ 14 2 13 124 */ 2267 /*:ref: sigerr_ 14 2 13 124 */ 2268 /*:ref: chkout_ 14 2 13 124 */ 2269 /*:ref: vpack_ 14 4 7 7 7 7 */ 2270 /*:ref: recsph_ 14 4 7 7 7 7 */ 2271 /*:ref: drdsph_ 14 4 7 7 7 7 */ 2272 /*:ref: invort_ 14 2 7 7 */ 2273 2274 extern int ducrss_(doublereal *s1, doublereal *s2, doublereal *sout); 2275 /*:ref: dvcrss_ 14 3 7 7 7 */ 2276 /*:ref: dvhat_ 14 2 7 7 */ 2277 2278 extern int dvcrss_(doublereal *s1, doublereal *s2, doublereal *sout); 2279 /*:ref: vcrss_ 14 3 7 7 7 */ 2280 /*:ref: vequ_ 14 2 7 7 */ 2281 /*:ref: vadd_ 14 3 7 7 7 */ 2282 2283 extern doublereal dvdot_(doublereal *s1, doublereal *s2); 2284 2285 extern int dvhat_(doublereal *s1, doublereal *sout); 2286 /*:ref: unorm_ 14 3 7 7 7 */ 2287 /*:ref: vequ_ 14 2 7 7 */ 2288 /*:ref: vperp_ 14 3 7 7 7 */ 2289 /*:ref: vsclip_ 14 2 7 7 */ 2290 2291 extern int dxtrct_(char *keywd, integer *maxwds, char *string, integer *nfound, integer *parsed, doublereal *values, ftnlen keywd_len, ftnlen string_len); 2292 /*:ref: wdindx_ 4 4 13 13 124 124 */ 2293 /*:ref: lastnb_ 4 2 13 124 */ 2294 /*:ref: nblen_ 4 2 13 124 */ 2295 /*:ref: fndnwd_ 14 5 13 4 4 4 124 */ 2296 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 2297 2298 extern int edlimb_(doublereal *a, doublereal *b, doublereal *c__, doublereal *viewpt, doublereal *limb); 2299 /*:ref: return_ 12 0 */ 2300 /*:ref: chkin_ 14 2 13 124 */ 2301 /*:ref: setmsg_ 14 2 13 124 */ 2302 /*:ref: errdp_ 14 3 13 7 124 */ 2303 /*:ref: sigerr_ 14 2 13 124 */ 2304 /*:ref: chkout_ 14 2 13 124 */ 2305 /*:ref: vscl_ 14 3 7 7 7 */ 2306 /*:ref: nvc2pl_ 14 3 7 7 7 */ 2307 /*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ 2308 /*:ref: vsclg_ 14 4 7 7 4 7 */ 2309 /*:ref: moved_ 14 3 7 4 7 */ 2310 2311 extern int ekacec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); 2312 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2313 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2314 /*:ref: failed_ 12 0 */ 2315 /*:ref: chkin_ 14 2 13 124 */ 2316 /*:ref: dashlu_ 14 2 4 4 */ 2317 /*:ref: setmsg_ 14 2 13 124 */ 2318 /*:ref: errch_ 14 4 13 13 124 124 */ 2319 /*:ref: errint_ 14 3 13 4 124 */ 2320 /*:ref: errfnm_ 14 3 13 4 124 */ 2321 /*:ref: sigerr_ 14 2 13 124 */ 2322 /*:ref: chkout_ 14 2 13 124 */ 2323 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2324 /*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ 2325 /*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ 2326 2327 extern int ekaced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); 2328 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2329 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2330 /*:ref: failed_ 12 0 */ 2331 /*:ref: chkin_ 14 2 13 124 */ 2332 /*:ref: dashlu_ 14 2 4 4 */ 2333 /*:ref: setmsg_ 14 2 13 124 */ 2334 /*:ref: errch_ 14 4 13 13 124 124 */ 2335 /*:ref: errint_ 14 3 13 4 124 */ 2336 /*:ref: errfnm_ 14 3 13 4 124 */ 2337 /*:ref: sigerr_ 14 2 13 124 */ 2338 /*:ref: chkout_ 14 2 13 124 */ 2339 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2340 /*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ 2341 /*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ 2342 2343 extern int ekacei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); 2344 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2345 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2346 /*:ref: failed_ 12 0 */ 2347 /*:ref: chkin_ 14 2 13 124 */ 2348 /*:ref: dashlu_ 14 2 4 4 */ 2349 /*:ref: setmsg_ 14 2 13 124 */ 2350 /*:ref: errch_ 14 4 13 13 124 124 */ 2351 /*:ref: errint_ 14 3 13 4 124 */ 2352 /*:ref: errfnm_ 14 3 13 4 124 */ 2353 /*:ref: sigerr_ 14 2 13 124 */ 2354 /*:ref: chkout_ 14 2 13 124 */ 2355 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2356 /*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ 2357 /*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ 2358 2359 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); 2360 /*:ref: return_ 12 0 */ 2361 /*:ref: chkin_ 14 2 13 124 */ 2362 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2363 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2364 /*:ref: failed_ 12 0 */ 2365 /*:ref: chkout_ 14 2 13 124 */ 2366 /*:ref: setmsg_ 14 2 13 124 */ 2367 /*:ref: errch_ 14 4 13 13 124 124 */ 2368 /*:ref: errint_ 14 3 13 4 124 */ 2369 /*:ref: sigerr_ 14 2 13 124 */ 2370 /*:ref: zzekac03_ 14 8 4 4 4 13 12 4 4 124 */ 2371 /*:ref: zzekac06_ 14 7 4 4 4 13 4 12 124 */ 2372 /*:ref: zzekac09_ 14 7 4 4 4 13 12 4 124 */ 2373 2374 extern int ekacld_(integer *handle, integer *segno, char *column, doublereal *dvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); 2375 /*:ref: return_ 12 0 */ 2376 /*:ref: chkin_ 14 2 13 124 */ 2377 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2378 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2379 /*:ref: failed_ 12 0 */ 2380 /*:ref: chkout_ 14 2 13 124 */ 2381 /*:ref: setmsg_ 14 2 13 124 */ 2382 /*:ref: errch_ 14 4 13 13 124 124 */ 2383 /*:ref: errint_ 14 3 13 4 124 */ 2384 /*:ref: sigerr_ 14 2 13 124 */ 2385 /*:ref: zzekac02_ 14 7 4 4 4 7 12 4 4 */ 2386 /*:ref: zzekac05_ 14 6 4 4 4 7 4 12 */ 2387 /*:ref: zzekac08_ 14 6 4 4 4 7 12 4 */ 2388 2389 extern int ekacli_(integer *handle, integer *segno, char *column, integer *ivals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); 2390 /*:ref: return_ 12 0 */ 2391 /*:ref: chkin_ 14 2 13 124 */ 2392 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2393 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2394 /*:ref: failed_ 12 0 */ 2395 /*:ref: chkout_ 14 2 13 124 */ 2396 /*:ref: setmsg_ 14 2 13 124 */ 2397 /*:ref: errch_ 14 4 13 13 124 124 */ 2398 /*:ref: errint_ 14 3 13 4 124 */ 2399 /*:ref: sigerr_ 14 2 13 124 */ 2400 /*:ref: zzekac01_ 14 7 4 4 4 4 12 4 4 */ 2401 /*:ref: zzekac04_ 14 6 4 4 4 4 4 12 */ 2402 /*:ref: zzekac07_ 14 6 4 4 4 4 12 4 */ 2403 2404 extern int ekappr_(integer *handle, integer *segno, integer *recno); 2405 /*:ref: return_ 12 0 */ 2406 /*:ref: chkin_ 14 2 13 124 */ 2407 /*:ref: zzekpgch_ 14 3 4 13 124 */ 2408 /*:ref: failed_ 12 0 */ 2409 /*:ref: chkout_ 14 2 13 124 */ 2410 /*:ref: zzekmloc_ 14 4 4 4 4 4 */ 2411 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 2412 /*:ref: ekinsr_ 14 3 4 4 4 */ 2413 2414 extern int ekbseg_(integer *handle, char *tabnam, integer *ncols, char *cnames, char *decls, integer *segno, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); 2415 /*:ref: return_ 12 0 */ 2416 /*:ref: chkin_ 14 2 13 124 */ 2417 /*:ref: zzekpgch_ 14 3 4 13 124 */ 2418 /*:ref: failed_ 12 0 */ 2419 /*:ref: chkout_ 14 2 13 124 */ 2420 /*:ref: ssizei_ 14 2 4 4 */ 2421 /*:ref: lxdfid_ 14 1 4 */ 2422 /*:ref: chckid_ 14 5 13 4 13 124 124 */ 2423 /*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ 2424 /*:ref: lastnb_ 4 2 13 124 */ 2425 /*:ref: setmsg_ 14 2 13 124 */ 2426 /*:ref: errch_ 14 4 13 13 124 124 */ 2427 /*:ref: sigerr_ 14 2 13 124 */ 2428 /*:ref: errint_ 14 3 13 4 124 */ 2429 /*:ref: zzekpdec_ 14 3 13 4 124 */ 2430 /*:ref: zzekstyp_ 4 2 4 4 */ 2431 /*:ref: zzekbs01_ 14 8 4 13 4 13 4 4 124 124 */ 2432 /*:ref: zzekbs02_ 14 8 4 13 4 13 4 4 124 124 */ 2433 2434 extern int ekcls_(integer *handle); 2435 /*:ref: return_ 12 0 */ 2436 /*:ref: chkin_ 14 2 13 124 */ 2437 /*:ref: dascls_ 14 1 4 */ 2438 /*:ref: chkout_ 14 2 13 124 */ 2439 2440 extern int ekdelr_(integer *handle, integer *segno, integer *recno); 2441 /*:ref: return_ 12 0 */ 2442 /*:ref: chkin_ 14 2 13 124 */ 2443 /*:ref: zzekpgch_ 14 3 4 13 124 */ 2444 /*:ref: failed_ 12 0 */ 2445 /*:ref: chkout_ 14 2 13 124 */ 2446 /*:ref: zzekmloc_ 14 4 4 4 4 4 */ 2447 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 2448 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ 2449 /*:ref: setmsg_ 14 2 13 124 */ 2450 /*:ref: errint_ 14 3 13 4 124 */ 2451 /*:ref: sigerr_ 14 2 13 124 */ 2452 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2453 /*:ref: zzekde01_ 14 4 4 4 4 4 */ 2454 /*:ref: zzekde02_ 14 4 4 4 4 4 */ 2455 /*:ref: zzekde03_ 14 4 4 4 4 4 */ 2456 /*:ref: zzekde04_ 14 4 4 4 4 4 */ 2457 /*:ref: zzekde05_ 14 4 4 4 4 4 */ 2458 /*:ref: zzekde06_ 14 4 4 4 4 4 */ 2459 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 2460 /*:ref: dashlu_ 14 2 4 4 */ 2461 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 2462 /*:ref: errch_ 14 4 13 13 124 124 */ 2463 /*:ref: errfnm_ 14 3 13 4 124 */ 2464 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 2465 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 2466 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 2467 /*:ref: zzekdps_ 14 4 4 4 4 4 */ 2468 /*:ref: zzektrdl_ 14 3 4 4 4 */ 2469 /*:ref: dasudi_ 14 4 4 4 4 4 */ 2470 2471 extern int ekffld_(integer *handle, integer *segno, integer *rcptrs); 2472 /*:ref: return_ 12 0 */ 2473 /*:ref: chkin_ 14 2 13 124 */ 2474 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2475 /*:ref: zzekff01_ 14 3 4 4 4 */ 2476 /*:ref: setmsg_ 14 2 13 124 */ 2477 /*:ref: errint_ 14 3 13 4 124 */ 2478 /*:ref: sigerr_ 14 2 13 124 */ 2479 /*:ref: chkout_ 14 2 13 124 */ 2480 2481 extern int ekfind_(char *query, integer *nmrows, logical *error, char *errmsg, ftnlen query_len, ftnlen errmsg_len); 2482 /*:ref: return_ 12 0 */ 2483 /*:ref: chkin_ 14 2 13 124 */ 2484 /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ 2485 /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ 2486 /*:ref: chkout_ 14 2 13 124 */ 2487 /*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ 2488 /*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ 2489 /*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ 2490 /*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ 2491 /*:ref: eksrch_ 14 8 4 13 7 4 12 13 124 124 */ 2492 2493 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); 2494 /*:ref: return_ 12 0 */ 2495 /*:ref: chkin_ 14 2 13 124 */ 2496 /*:ref: setmsg_ 14 2 13 124 */ 2497 /*:ref: errint_ 14 3 13 4 124 */ 2498 /*:ref: sigerr_ 14 2 13 124 */ 2499 /*:ref: chkout_ 14 2 13 124 */ 2500 /*:ref: ekbseg_ 14 9 4 13 4 13 13 4 124 124 124 */ 2501 /*:ref: failed_ 12 0 */ 2502 /*:ref: zzekmloc_ 14 4 4 4 4 4 */ 2503 /*:ref: dasudi_ 14 4 4 4 4 4 */ 2504 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2505 /*:ref: zzekif01_ 14 3 4 4 4 */ 2506 /*:ref: zzekif02_ 14 2 4 4 */ 2507 2508 extern int ekinsr_(integer *handle, integer *segno, integer *recno); 2509 /*:ref: return_ 12 0 */ 2510 /*:ref: chkin_ 14 2 13 124 */ 2511 /*:ref: zzekpgch_ 14 3 4 13 124 */ 2512 /*:ref: failed_ 12 0 */ 2513 /*:ref: chkout_ 14 2 13 124 */ 2514 /*:ref: zzekmloc_ 14 4 4 4 4 4 */ 2515 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 2516 /*:ref: setmsg_ 14 2 13 124 */ 2517 /*:ref: errint_ 14 3 13 4 124 */ 2518 /*:ref: sigerr_ 14 2 13 124 */ 2519 /*:ref: cleari_ 14 2 4 4 */ 2520 /*:ref: filli_ 14 3 4 4 4 */ 2521 /*:ref: ekshdw_ 14 2 4 12 */ 2522 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 2523 /*:ref: dasudi_ 14 4 4 4 4 4 */ 2524 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 2525 /*:ref: zzektrin_ 14 4 4 4 4 4 */ 2526 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ 2527 2528 extern integer eknseg_(integer *handle); 2529 /*:ref: return_ 12 0 */ 2530 /*:ref: chkin_ 14 2 13 124 */ 2531 /*:ref: zzekpgch_ 14 3 4 13 124 */ 2532 /*:ref: failed_ 12 0 */ 2533 /*:ref: chkout_ 14 2 13 124 */ 2534 /*:ref: zzektrbs_ 4 1 4 */ 2535 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 2536 /*:ref: zzektrsz_ 4 2 4 4 */ 2537 2538 extern int ekopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); 2539 /*:ref: return_ 12 0 */ 2540 /*:ref: chkin_ 14 2 13 124 */ 2541 /*:ref: setmsg_ 14 2 13 124 */ 2542 /*:ref: errint_ 14 3 13 4 124 */ 2543 /*:ref: sigerr_ 14 2 13 124 */ 2544 /*:ref: chkout_ 14 2 13 124 */ 2545 /*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ 2546 /*:ref: failed_ 12 0 */ 2547 /*:ref: zzekpgin_ 14 1 4 */ 2548 /*:ref: zzekpgan_ 14 4 4 4 4 4 */ 2549 /*:ref: zzektrit_ 14 2 4 4 */ 2550 /*:ref: dasudi_ 14 4 4 4 4 4 */ 2551 2552 extern int ekopr_(char *fname, integer *handle, ftnlen fname_len); 2553 /*:ref: return_ 12 0 */ 2554 /*:ref: chkin_ 14 2 13 124 */ 2555 /*:ref: dasopr_ 14 3 13 4 124 */ 2556 /*:ref: failed_ 12 0 */ 2557 /*:ref: chkout_ 14 2 13 124 */ 2558 /*:ref: zzekpgch_ 14 3 4 13 124 */ 2559 2560 extern int ekops_(integer *handle); 2561 /*:ref: return_ 12 0 */ 2562 /*:ref: chkin_ 14 2 13 124 */ 2563 /*:ref: dasops_ 14 1 4 */ 2564 /*:ref: failed_ 12 0 */ 2565 /*:ref: chkout_ 14 2 13 124 */ 2566 /*:ref: zzekpgin_ 14 1 4 */ 2567 /*:ref: zzekpgan_ 14 4 4 4 4 4 */ 2568 /*:ref: zzektrit_ 14 2 4 4 */ 2569 /*:ref: dasudi_ 14 4 4 4 4 4 */ 2570 2571 extern int ekopw_(char *fname, integer *handle, ftnlen fname_len); 2572 /*:ref: return_ 12 0 */ 2573 /*:ref: chkin_ 14 2 13 124 */ 2574 /*:ref: dasopw_ 14 3 13 4 124 */ 2575 /*:ref: failed_ 12 0 */ 2576 /*:ref: chkout_ 14 2 13 124 */ 2577 /*:ref: zzekpgch_ 14 3 4 13 124 */ 2578 2579 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); 2580 /*:ref: return_ 12 0 */ 2581 /*:ref: chkin_ 14 2 13 124 */ 2582 /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ 2583 /*:ref: zzekencd_ 14 10 13 4 13 7 12 13 4 124 124 124 */ 2584 /*:ref: chkout_ 14 2 13 124 */ 2585 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 2586 /*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ 2587 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ 2588 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ 2589 2590 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); 2591 extern int eklef_(char *fname, integer *handle, ftnlen fname_len); 2592 extern int ekuef_(integer *handle); 2593 extern int ekntab_(integer *n); 2594 extern int ektnam_(integer *n, char *table, ftnlen table_len); 2595 extern int ekccnt_(char *table, integer *ccount, ftnlen table_len); 2596 extern int ekcii_(char *table, integer *cindex, char *column, integer *attdsc, ftnlen table_len, ftnlen column_len); 2597 extern int eksrch_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *nmrows, logical *semerr, char *errmsg, ftnlen eqryc_len, ftnlen errmsg_len); 2598 extern int eknelt_(integer *selidx, integer *row, integer *nelt); 2599 extern int ekgc_(integer *selidx, integer *row, integer *elment, char *cdata, logical *null, logical *found, ftnlen cdata_len); 2600 extern int ekgd_(integer *selidx, integer *row, integer *elment, doublereal *ddata, logical *null, logical *found); 2601 extern int ekgi_(integer *selidx, integer *row, integer *elment, integer *idata, logical *null, logical *found); 2602 /*:ref: return_ 12 0 */ 2603 /*:ref: chkin_ 14 2 13 124 */ 2604 /*:ref: sigerr_ 14 2 13 124 */ 2605 /*:ref: chkout_ 14 2 13 124 */ 2606 /*:ref: lnkini_ 14 2 4 4 */ 2607 /*:ref: ekopr_ 14 3 13 4 124 */ 2608 /*:ref: failed_ 12 0 */ 2609 /*:ref: dascls_ 14 1 4 */ 2610 /*:ref: lnknxt_ 4 2 4 4 */ 2611 /*:ref: zzekpgch_ 14 3 4 13 124 */ 2612 /*:ref: lnknfn_ 4 1 4 */ 2613 /*:ref: dashlu_ 14 2 4 4 */ 2614 /*:ref: ekcls_ 14 1 4 */ 2615 /*:ref: setmsg_ 14 2 13 124 */ 2616 /*:ref: errfnm_ 14 3 13 4 124 */ 2617 /*:ref: eknseg_ 4 1 4 */ 2618 /*:ref: lnkan_ 14 2 4 4 */ 2619 /*:ref: lnkilb_ 14 3 4 4 4 */ 2620 /*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ 2621 /*:ref: ssizec_ 14 3 4 13 124 */ 2622 /*:ref: movec_ 14 5 13 4 13 124 124 */ 2623 /*:ref: validc_ 14 4 4 4 13 124 */ 2624 /*:ref: cardc_ 4 2 13 124 */ 2625 /*:ref: movei_ 14 3 4 4 4 */ 2626 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 2627 /*:ref: lnkfsl_ 14 3 4 4 4 */ 2628 /*:ref: lnktl_ 4 2 4 4 */ 2629 /*:ref: errint_ 14 3 13 4 124 */ 2630 /*:ref: errch_ 14 4 13 13 124 124 */ 2631 /*:ref: eqstr_ 12 4 13 13 124 124 */ 2632 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 2633 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ 2634 /*:ref: ssizei_ 14 2 4 4 */ 2635 /*:ref: appndc_ 14 4 13 13 124 124 */ 2636 /*:ref: appndi_ 14 2 4 4 */ 2637 /*:ref: zzekstop_ 14 1 4 */ 2638 /*:ref: zzeksdec_ 14 1 4 */ 2639 /*:ref: cleari_ 14 2 4 4 */ 2640 /*:ref: zzekqcnj_ 14 3 4 4 4 */ 2641 /*: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 */ 2642 /*:ref: zzekspsh_ 14 2 4 4 */ 2643 /*:ref: zzeksupd_ 14 3 4 4 4 */ 2644 /*:ref: zzekkey_ 14 20 4 4 4 4 4 4 4 4 13 4 4 7 4 12 4 4 4 4 12 124 */ 2645 /*:ref: zzekixlk_ 14 4 4 4 4 4 */ 2646 /*:ref: zzekrplk_ 14 4 4 4 4 4 */ 2647 /*:ref: zzekrmch_ 12 15 4 12 4 4 4 4 4 4 4 13 4 4 7 4 124 */ 2648 /*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ 2649 /*:ref: zzekjsqz_ 14 1 4 */ 2650 /*:ref: zzekjoin_ 14 18 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ 2651 /*:ref: zzeksrd_ 14 3 4 4 4 */ 2652 /*:ref: zzekweed_ 14 3 4 4 4 */ 2653 /*:ref: zzekvset_ 14 2 4 4 */ 2654 /*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ 2655 /*:ref: zzekqord_ 14 11 4 13 4 13 4 13 4 4 124 124 124 */ 2656 /*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ 2657 /*:ref: zzekvcal_ 14 3 4 4 4 */ 2658 /*:ref: zzekesiz_ 4 4 4 4 4 4 */ 2659 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 2660 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ 2661 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ 2662 2663 extern int ekrcec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); 2664 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2665 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2666 /*:ref: failed_ 12 0 */ 2667 /*:ref: chkin_ 14 2 13 124 */ 2668 /*:ref: dashlu_ 14 2 4 4 */ 2669 /*:ref: setmsg_ 14 2 13 124 */ 2670 /*:ref: errch_ 14 4 13 13 124 124 */ 2671 /*:ref: errint_ 14 3 13 4 124 */ 2672 /*:ref: errfnm_ 14 3 13 4 124 */ 2673 /*:ref: sigerr_ 14 2 13 124 */ 2674 /*:ref: chkout_ 14 2 13 124 */ 2675 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2676 /*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ 2677 /*:ref: zzekesiz_ 4 4 4 4 4 4 */ 2678 /*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 2679 /*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ 2680 2681 extern int ekrced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); 2682 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2683 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2684 /*:ref: failed_ 12 0 */ 2685 /*:ref: chkin_ 14 2 13 124 */ 2686 /*:ref: dashlu_ 14 2 4 4 */ 2687 /*:ref: setmsg_ 14 2 13 124 */ 2688 /*:ref: errch_ 14 4 13 13 124 124 */ 2689 /*:ref: errint_ 14 3 13 4 124 */ 2690 /*:ref: errfnm_ 14 3 13 4 124 */ 2691 /*:ref: sigerr_ 14 2 13 124 */ 2692 /*:ref: chkout_ 14 2 13 124 */ 2693 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2694 /*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ 2695 /*:ref: zzekesiz_ 4 4 4 4 4 4 */ 2696 /*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ 2697 /*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ 2698 2699 extern int ekrcei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); 2700 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2701 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2702 /*:ref: failed_ 12 0 */ 2703 /*:ref: chkin_ 14 2 13 124 */ 2704 /*:ref: dashlu_ 14 2 4 4 */ 2705 /*:ref: setmsg_ 14 2 13 124 */ 2706 /*:ref: errch_ 14 4 13 13 124 124 */ 2707 /*:ref: errint_ 14 3 13 4 124 */ 2708 /*:ref: errfnm_ 14 3 13 4 124 */ 2709 /*:ref: sigerr_ 14 2 13 124 */ 2710 /*:ref: chkout_ 14 2 13 124 */ 2711 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2712 /*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ 2713 /*:ref: zzekesiz_ 4 4 4 4 4 4 */ 2714 /*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ 2715 /*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ 2716 2717 extern int ekshdw_(integer *handle, logical *isshad); 2718 2719 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); 2720 /*:ref: return_ 12 0 */ 2721 /*:ref: chkin_ 14 2 13 124 */ 2722 /*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ 2723 /*:ref: failed_ 12 0 */ 2724 /*:ref: chkout_ 14 2 13 124 */ 2725 2726 extern int ekucec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); 2727 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2728 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2729 /*:ref: failed_ 12 0 */ 2730 /*:ref: chkin_ 14 2 13 124 */ 2731 /*:ref: dashlu_ 14 2 4 4 */ 2732 /*:ref: setmsg_ 14 2 13 124 */ 2733 /*:ref: errch_ 14 4 13 13 124 124 */ 2734 /*:ref: errint_ 14 3 13 4 124 */ 2735 /*:ref: errfnm_ 14 3 13 4 124 */ 2736 /*:ref: sigerr_ 14 2 13 124 */ 2737 /*:ref: chkout_ 14 2 13 124 */ 2738 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2739 /*:ref: ekshdw_ 14 2 4 12 */ 2740 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ 2741 /*:ref: zzekue03_ 14 7 4 4 4 4 13 12 124 */ 2742 /*:ref: zzekue06_ 14 8 4 4 4 4 4 13 12 124 */ 2743 2744 extern int ekuced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); 2745 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2746 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2747 /*:ref: failed_ 12 0 */ 2748 /*:ref: chkin_ 14 2 13 124 */ 2749 /*:ref: dashlu_ 14 2 4 4 */ 2750 /*:ref: setmsg_ 14 2 13 124 */ 2751 /*:ref: errch_ 14 4 13 13 124 124 */ 2752 /*:ref: errint_ 14 3 13 4 124 */ 2753 /*:ref: errfnm_ 14 3 13 4 124 */ 2754 /*:ref: sigerr_ 14 2 13 124 */ 2755 /*:ref: chkout_ 14 2 13 124 */ 2756 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2757 /*:ref: ekshdw_ 14 2 4 12 */ 2758 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ 2759 /*:ref: zzekue02_ 14 6 4 4 4 4 7 12 */ 2760 /*:ref: zzekue05_ 14 7 4 4 4 4 4 7 12 */ 2761 2762 extern int ekucei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); 2763 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 2764 /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ 2765 /*:ref: failed_ 12 0 */ 2766 /*:ref: chkin_ 14 2 13 124 */ 2767 /*:ref: dashlu_ 14 2 4 4 */ 2768 /*:ref: setmsg_ 14 2 13 124 */ 2769 /*:ref: errch_ 14 4 13 13 124 124 */ 2770 /*:ref: errint_ 14 3 13 4 124 */ 2771 /*:ref: errfnm_ 14 3 13 4 124 */ 2772 /*:ref: sigerr_ 14 2 13 124 */ 2773 /*:ref: chkout_ 14 2 13 124 */ 2774 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 2775 /*:ref: ekshdw_ 14 2 4 12 */ 2776 /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ 2777 /*:ref: zzekue01_ 14 6 4 4 4 4 4 12 */ 2778 /*:ref: zzekue04_ 14 7 4 4 4 4 4 4 12 */ 2779 2780 extern int el2cgv_(doublereal *ellips, doublereal *center, doublereal *smajor, doublereal *sminor); 2781 /*:ref: vequ_ 14 2 7 7 */ 2782 2783 extern logical elemc_(char *item, char *a, ftnlen item_len, ftnlen a_len); 2784 /*:ref: return_ 12 0 */ 2785 /*:ref: chkin_ 14 2 13 124 */ 2786 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 2787 /*:ref: cardc_ 4 2 13 124 */ 2788 /*:ref: chkout_ 14 2 13 124 */ 2789 2790 extern logical elemd_(doublereal *item, doublereal *a); 2791 /*:ref: return_ 12 0 */ 2792 /*:ref: chkin_ 14 2 13 124 */ 2793 /*:ref: bsrchd_ 4 3 7 4 7 */ 2794 /*:ref: cardd_ 4 1 7 */ 2795 /*:ref: chkout_ 14 2 13 124 */ 2796 2797 extern logical elemi_(integer *item, integer *a); 2798 /*:ref: return_ 12 0 */ 2799 /*:ref: chkin_ 14 2 13 124 */ 2800 /*:ref: bsrchi_ 4 3 4 4 4 */ 2801 /*:ref: cardi_ 4 1 4 */ 2802 /*:ref: chkout_ 14 2 13 124 */ 2803 2804 extern int elltof_(doublereal *ma, doublereal *ecc, doublereal *e); 2805 /*:ref: return_ 12 0 */ 2806 /*:ref: chkin_ 14 2 13 124 */ 2807 /*:ref: sigerr_ 14 2 13 124 */ 2808 /*:ref: chkout_ 14 2 13 124 */ 2809 /*:ref: pi_ 7 0 */ 2810 /*:ref: twopi_ 7 0 */ 2811 /*:ref: halfpi_ 7 0 */ 2812 /*:ref: dcbrt_ 7 1 7 */ 2813 2814 extern int enchar_(integer *number, char *string, ftnlen string_len); 2815 extern int dechar_(char *string, integer *number, ftnlen string_len); 2816 /*:ref: return_ 12 0 */ 2817 /*:ref: chkin_ 14 2 13 124 */ 2818 /*:ref: sigerr_ 14 2 13 124 */ 2819 /*:ref: chkout_ 14 2 13 124 */ 2820 /*:ref: chbase_ 4 0 */ 2821 2822 extern logical eqchr_(char *a, char *b, ftnlen a_len, ftnlen b_len); 2823 extern logical nechr_(char *a, char *b, ftnlen a_len, ftnlen b_len); 2824 2825 extern int eqncpv_(doublereal *et, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, doublereal *state); 2826 /*:ref: return_ 12 0 */ 2827 /*:ref: chkin_ 14 2 13 124 */ 2828 /*:ref: twopi_ 7 0 */ 2829 /*:ref: setmsg_ 14 2 13 124 */ 2830 /*:ref: errdp_ 14 3 13 7 124 */ 2831 /*:ref: sigerr_ 14 2 13 124 */ 2832 /*:ref: chkout_ 14 2 13 124 */ 2833 /*:ref: kepleq_ 7 3 7 7 7 */ 2834 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 2835 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ 2836 /*:ref: mxv_ 14 3 7 7 7 */ 2837 2838 extern logical eqstr_(char *a, char *b, ftnlen a_len, ftnlen b_len); 2839 2840 extern int erract_(char *op, char *action, ftnlen op_len, ftnlen action_len); 2841 /*:ref: chkin_ 14 2 13 124 */ 2842 /*:ref: ljust_ 14 4 13 13 124 124 */ 2843 /*:ref: ucase_ 14 4 13 13 124 124 */ 2844 /*:ref: getact_ 14 1 4 */ 2845 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 2846 /*:ref: putact_ 14 1 4 */ 2847 /*:ref: setmsg_ 14 2 13 124 */ 2848 /*:ref: sigerr_ 14 2 13 124 */ 2849 /*:ref: chkout_ 14 2 13 124 */ 2850 2851 extern int errch_(char *marker, char *string, ftnlen marker_len, ftnlen string_len); 2852 /*:ref: allowd_ 12 0 */ 2853 /*:ref: lastnb_ 4 2 13 124 */ 2854 /*:ref: getlms_ 14 2 13 124 */ 2855 /*:ref: frstnb_ 4 2 13 124 */ 2856 /*:ref: nblen_ 4 2 13 124 */ 2857 /*:ref: putlms_ 14 2 13 124 */ 2858 2859 extern int errdev_(char *op, char *device, ftnlen op_len, ftnlen device_len); 2860 /*:ref: chkin_ 14 2 13 124 */ 2861 /*:ref: ljust_ 14 4 13 13 124 124 */ 2862 /*:ref: ucase_ 14 4 13 13 124 124 */ 2863 /*:ref: getdev_ 14 2 13 124 */ 2864 /*:ref: lastnb_ 4 2 13 124 */ 2865 /*:ref: setmsg_ 14 2 13 124 */ 2866 /*:ref: sigerr_ 14 2 13 124 */ 2867 /*:ref: chkout_ 14 2 13 124 */ 2868 /*:ref: putdev_ 14 2 13 124 */ 2869 2870 extern int errdp_(char *marker, doublereal *dpnum, ftnlen marker_len); 2871 /*:ref: allowd_ 12 0 */ 2872 /*:ref: lastnb_ 4 2 13 124 */ 2873 /*:ref: getlms_ 14 2 13 124 */ 2874 /*:ref: dpstr_ 14 4 7 4 13 124 */ 2875 /*:ref: ljust_ 14 4 13 13 124 124 */ 2876 /*:ref: frstnb_ 4 2 13 124 */ 2877 /*:ref: putlms_ 14 2 13 124 */ 2878 2879 extern int errfnm_(char *marker, integer *unit, ftnlen marker_len); 2880 /*:ref: errch_ 14 4 13 13 124 124 */ 2881 2882 extern int errhan_(char *marker, integer *handle, ftnlen marker_len); 2883 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ 2884 /*:ref: intstr_ 14 3 4 13 124 */ 2885 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 2886 /*:ref: errch_ 14 4 13 13 124 124 */ 2887 2888 extern int errint_(char *marker, integer *integr, ftnlen marker_len); 2889 /*:ref: allowd_ 12 0 */ 2890 /*:ref: lastnb_ 4 2 13 124 */ 2891 /*:ref: getlms_ 14 2 13 124 */ 2892 /*:ref: intstr_ 14 3 4 13 124 */ 2893 /*:ref: frstnb_ 4 2 13 124 */ 2894 /*:ref: putlms_ 14 2 13 124 */ 2895 2896 extern int errprt_(char *op, char *list, ftnlen op_len, ftnlen list_len); 2897 /*:ref: chkin_ 14 2 13 124 */ 2898 /*:ref: msgsel_ 12 2 13 124 */ 2899 /*:ref: ljust_ 14 4 13 13 124 124 */ 2900 /*:ref: ucase_ 14 4 13 13 124 124 */ 2901 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 2902 /*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ 2903 /*:ref: setmsg_ 14 2 13 124 */ 2904 /*:ref: sigerr_ 14 2 13 124 */ 2905 /*:ref: setprt_ 12 5 12 12 12 12 12 */ 2906 /*:ref: chkout_ 14 2 13 124 */ 2907 2908 extern integer esrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); 2909 /*:ref: eqstr_ 12 4 13 13 124 124 */ 2910 2911 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); 2912 /*:ref: return_ 12 0 */ 2913 /*:ref: chkin_ 14 2 13 124 */ 2914 /*:ref: ljust_ 14 4 13 13 124 124 */ 2915 /*:ref: ucase_ 14 4 13 13 124 124 */ 2916 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 2917 /*:ref: intstr_ 14 3 4 13 124 */ 2918 /*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ 2919 /*:ref: reclat_ 14 4 7 7 7 7 */ 2920 /*:ref: setmsg_ 14 2 13 124 */ 2921 /*:ref: errch_ 14 4 13 13 124 124 */ 2922 /*:ref: sigerr_ 14 2 13 124 */ 2923 /*:ref: chkout_ 14 2 13 124 */ 2924 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 2925 /*:ref: errint_ 14 3 13 4 124 */ 2926 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ 2927 /*:ref: rmaind_ 14 4 7 7 7 7 */ 2928 /*:ref: twopi_ 7 0 */ 2929 /*:ref: pi_ 7 0 */ 2930 /*:ref: brcktd_ 7 3 7 7 7 */ 2931 /*:ref: dpfmt_ 14 5 7 13 13 124 124 */ 2932 2933 extern int et2utc_(doublereal *et, char *format, integer *prec, char *utcstr, ftnlen format_len, ftnlen utcstr_len); 2934 /*:ref: return_ 12 0 */ 2935 /*:ref: chkin_ 14 2 13 124 */ 2936 /*:ref: ucase_ 14 4 13 13 124 124 */ 2937 /*:ref: setmsg_ 14 2 13 124 */ 2938 /*:ref: errch_ 14 4 13 13 124 124 */ 2939 /*:ref: sigerr_ 14 2 13 124 */ 2940 /*:ref: chkout_ 14 2 13 124 */ 2941 /*:ref: ttrans_ 14 5 13 13 7 124 124 */ 2942 /*:ref: failed_ 12 0 */ 2943 /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ 2944 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 2945 /*:ref: unitim_ 7 5 7 13 13 124 124 */ 2946 /*:ref: intstr_ 14 3 4 13 124 */ 2947 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 2948 /*:ref: errint_ 14 3 13 4 124 */ 2949 2950 extern int etcal_(doublereal *et, char *string, ftnlen string_len); 2951 /*:ref: spd_ 7 0 */ 2952 /*:ref: intmax_ 4 0 */ 2953 /*:ref: intmin_ 4 0 */ 2954 /*:ref: lstlti_ 4 3 4 4 4 */ 2955 /*:ref: intstr_ 14 3 4 13 124 */ 2956 /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ 2957 /*:ref: ljust_ 14 4 13 13 124 124 */ 2958 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 2959 2960 extern int eul2m_(doublereal *angle3, doublereal *angle2, doublereal *angle1, integer *axis3, integer *axis2, integer *axis1, doublereal *r__); 2961 /*:ref: return_ 12 0 */ 2962 /*:ref: chkin_ 14 2 13 124 */ 2963 /*:ref: setmsg_ 14 2 13 124 */ 2964 /*:ref: errint_ 14 3 13 4 124 */ 2965 /*:ref: sigerr_ 14 2 13 124 */ 2966 /*:ref: chkout_ 14 2 13 124 */ 2967 /*:ref: rotate_ 14 3 7 4 7 */ 2968 /*:ref: rotmat_ 14 4 7 7 4 7 */ 2969 2970 extern int ev2lin_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); 2971 /*:ref: twopi_ 7 0 */ 2972 /*:ref: brcktd_ 7 3 7 7 7 */ 2973 2974 extern logical even_(integer *i__); 2975 2976 extern doublereal exact_(doublereal *number, doublereal *value, doublereal *tol); 2977 2978 extern int excess_(integer *number, char *struct__, ftnlen struct_len); 2979 /*:ref: return_ 12 0 */ 2980 /*:ref: chkin_ 14 2 13 124 */ 2981 /*:ref: intstr_ 14 3 4 13 124 */ 2982 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 2983 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 2984 /*:ref: setmsg_ 14 2 13 124 */ 2985 /*:ref: chkout_ 14 2 13 124 */ 2986 2987 extern logical exists_(char *file, ftnlen file_len); 2988 /*:ref: return_ 12 0 */ 2989 /*:ref: chkin_ 14 2 13 124 */ 2990 /*:ref: setmsg_ 14 2 13 124 */ 2991 /*:ref: sigerr_ 14 2 13 124 */ 2992 /*:ref: chkout_ 14 2 13 124 */ 2993 /*:ref: rtrim_ 4 2 13 124 */ 2994 /*:ref: errint_ 14 3 13 4 124 */ 2995 2996 extern int expln_(char *msg, char *expl, ftnlen msg_len, ftnlen expl_len); 2997 2998 extern integer fetchc_(integer *nth, char *set, ftnlen set_len); 2999 /*:ref: return_ 12 0 */ 3000 /*:ref: chkin_ 14 2 13 124 */ 3001 /*:ref: cardc_ 4 2 13 124 */ 3002 /*:ref: setmsg_ 14 2 13 124 */ 3003 /*:ref: errint_ 14 3 13 4 124 */ 3004 /*:ref: sigerr_ 14 2 13 124 */ 3005 /*:ref: chkout_ 14 2 13 124 */ 3006 3007 extern integer fetchd_(integer *nth, doublereal *set); 3008 /*:ref: return_ 12 0 */ 3009 /*:ref: chkin_ 14 2 13 124 */ 3010 /*:ref: cardd_ 4 1 7 */ 3011 /*:ref: setmsg_ 14 2 13 124 */ 3012 /*:ref: errint_ 14 3 13 4 124 */ 3013 /*:ref: sigerr_ 14 2 13 124 */ 3014 /*:ref: chkout_ 14 2 13 124 */ 3015 3016 extern integer fetchi_(integer *nth, integer *set); 3017 /*:ref: return_ 12 0 */ 3018 /*:ref: chkin_ 14 2 13 124 */ 3019 /*:ref: cardi_ 4 1 4 */ 3020 /*:ref: setmsg_ 14 2 13 124 */ 3021 /*:ref: errint_ 14 3 13 4 124 */ 3022 /*:ref: sigerr_ 14 2 13 124 */ 3023 /*:ref: chkout_ 14 2 13 124 */ 3024 3025 extern int fillc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); 3026 3027 extern int filld_(doublereal *value, integer *ndim, doublereal *array); 3028 3029 extern int filli_(integer *value, integer *ndim, integer *array); 3030 3031 extern int fn2lun_(char *filnam, integer *lunit, ftnlen filnam_len); 3032 /*:ref: return_ 12 0 */ 3033 /*:ref: chkin_ 14 2 13 124 */ 3034 /*:ref: setmsg_ 14 2 13 124 */ 3035 /*:ref: sigerr_ 14 2 13 124 */ 3036 /*:ref: chkout_ 14 2 13 124 */ 3037 /*:ref: errch_ 14 4 13 13 124 124 */ 3038 /*:ref: errint_ 14 3 13 4 124 */ 3039 3040 extern int fndlun_(integer *unit); 3041 extern int reslun_(integer *unit); 3042 extern int frelun_(integer *unit); 3043 3044 extern int fndnwd_(char *string, integer *start, integer *b, integer *e, ftnlen string_len); 3045 3046 extern int frame_(doublereal *x, doublereal *y, doublereal *z__); 3047 /*:ref: vhatip_ 14 1 7 */ 3048 3049 extern int framex_(char *cname, char *frname, integer *frcode, integer *cent, integer *class__, integer *clssid, logical *found, ftnlen cname_len, ftnlen frname_len); 3050 extern int namfrm_(char *frname, integer *frcode, ftnlen frname_len); 3051 extern int frmnam_(integer *frcode, char *frname, ftnlen frname_len); 3052 extern int frinfo_(integer *frcode, integer *cent, integer *class__, integer *clssid, logical *found); 3053 extern int cidfrm_(integer *cent, integer *frcode, char *frname, logical *found, ftnlen frname_len); 3054 extern int cnmfrm_(char *cname, integer *frcode, char *frname, logical *found, ftnlen cname_len, ftnlen frname_len); 3055 /*:ref: chkin_ 14 2 13 124 */ 3056 /*:ref: setmsg_ 14 2 13 124 */ 3057 /*:ref: sigerr_ 14 2 13 124 */ 3058 /*:ref: chkout_ 14 2 13 124 */ 3059 /*:ref: return_ 12 0 */ 3060 /*:ref: zzfdat_ 14 10 4 13 4 4 4 4 4 4 4 124 */ 3061 /*:ref: ljust_ 14 4 13 13 124 124 */ 3062 /*:ref: ucase_ 14 4 13 13 124 124 */ 3063 /*:ref: bschoc_ 4 6 13 4 13 4 124 124 */ 3064 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 3065 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ 3066 /*:ref: bschoi_ 4 4 4 4 4 4 */ 3067 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 3068 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 3069 /*:ref: errch_ 14 4 13 13 124 124 */ 3070 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ 3071 /*:ref: failed_ 12 0 */ 3072 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ 3073 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 3074 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 3075 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 3076 /*:ref: bodn2c_ 14 4 13 4 12 124 */ 3077 3078 extern int frmchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); 3079 /*:ref: return_ 12 0 */ 3080 /*:ref: chkin_ 14 2 13 124 */ 3081 /*:ref: chkout_ 14 2 13 124 */ 3082 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 3083 /*:ref: setmsg_ 14 2 13 124 */ 3084 /*:ref: errint_ 14 3 13 4 124 */ 3085 /*:ref: sigerr_ 14 2 13 124 */ 3086 /*:ref: frmget_ 14 5 4 7 7 4 12 */ 3087 /*:ref: zzmsxf_ 14 3 7 4 7 */ 3088 /*:ref: isrchi_ 4 3 4 4 4 */ 3089 /*:ref: frmnam_ 14 3 4 13 124 */ 3090 /*:ref: rtrim_ 4 2 13 124 */ 3091 /*:ref: errch_ 14 4 13 13 124 124 */ 3092 /*:ref: invstm_ 14 2 7 7 */ 3093 3094 extern int frmget_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); 3095 /*:ref: return_ 12 0 */ 3096 /*:ref: chkin_ 14 2 13 124 */ 3097 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 3098 /*:ref: chkout_ 14 2 13 124 */ 3099 /*:ref: tisbod_ 14 5 13 4 7 7 124 */ 3100 /*:ref: invstm_ 14 2 7 7 */ 3101 /*:ref: namfrm_ 14 3 13 4 124 */ 3102 /*:ref: irfrot_ 14 3 4 4 7 */ 3103 /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ 3104 /*:ref: tkfram_ 14 4 4 7 4 12 */ 3105 /*:ref: zzdynfrm_ 14 5 4 4 7 7 4 */ 3106 /*:ref: setmsg_ 14 2 13 124 */ 3107 /*:ref: errint_ 14 3 13 4 124 */ 3108 /*:ref: errch_ 14 4 13 13 124 124 */ 3109 /*:ref: sigerr_ 14 2 13 124 */ 3110 /*:ref: failed_ 12 0 */ 3111 3112 extern integer frstnb_(char *string, ftnlen string_len); 3113 3114 extern integer frstnp_(char *string, ftnlen string_len); 3115 3116 extern integer frstpc_(char *string, ftnlen string_len); 3117 3118 extern integer gcd_(integer *a, integer *b); 3119 3120 extern int georec_(doublereal *long__, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan); 3121 /*:ref: return_ 12 0 */ 3122 /*:ref: chkin_ 14 2 13 124 */ 3123 /*:ref: setmsg_ 14 2 13 124 */ 3124 /*:ref: errdp_ 14 3 13 7 124 */ 3125 /*:ref: sigerr_ 14 2 13 124 */ 3126 /*:ref: chkout_ 14 2 13 124 */ 3127 /*:ref: surfnm_ 14 5 7 7 7 7 7 */ 3128 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 3129 3130 extern int getelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, ftnlen lines_len); 3131 /*:ref: return_ 12 0 */ 3132 /*:ref: chkin_ 14 2 13 124 */ 3133 /*:ref: zzgetelm_ 14 8 4 13 7 7 12 13 124 124 */ 3134 /*:ref: setmsg_ 14 2 13 124 */ 3135 /*:ref: errch_ 14 4 13 13 124 124 */ 3136 /*:ref: sigerr_ 14 2 13 124 */ 3137 /*:ref: chkout_ 14 2 13 124 */ 3138 3139 extern int getfat_(char *file, char *arch, char *kertyp, ftnlen file_len, ftnlen arch_len, ftnlen kertyp_len); 3140 /*:ref: return_ 12 0 */ 3141 /*:ref: chkin_ 14 2 13 124 */ 3142 /*:ref: setmsg_ 14 2 13 124 */ 3143 /*:ref: sigerr_ 14 2 13 124 */ 3144 /*:ref: chkout_ 14 2 13 124 */ 3145 /*:ref: zzddhfnh_ 14 4 13 4 12 124 */ 3146 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ 3147 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 3148 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 3149 /*:ref: errint_ 14 3 13 4 124 */ 3150 /*:ref: errch_ 14 4 13 13 124 124 */ 3151 /*:ref: ssizei_ 14 2 4 4 */ 3152 /*:ref: dashof_ 14 1 4 */ 3153 /*:ref: cardi_ 4 1 4 */ 3154 /*:ref: dashlu_ 14 2 4 4 */ 3155 /*:ref: getlun_ 14 1 4 */ 3156 /*:ref: ljust_ 14 4 13 13 124 124 */ 3157 /*:ref: ucase_ 14 4 13 13 124 124 */ 3158 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ 3159 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ 3160 /*:ref: dafopr_ 14 3 13 4 124 */ 3161 /*:ref: zzckspk_ 14 3 4 13 124 */ 3162 /*:ref: dafcls_ 14 1 4 */ 3163 3164 extern int getfov_(integer *instid, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen shape_len, ftnlen frame_len); 3165 /*:ref: return_ 12 0 */ 3166 /*:ref: chkin_ 14 2 13 124 */ 3167 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 3168 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 3169 /*:ref: setmsg_ 14 2 13 124 */ 3170 /*:ref: errch_ 14 4 13 13 124 124 */ 3171 /*:ref: rtrim_ 4 2 13 124 */ 3172 /*:ref: errint_ 14 3 13 4 124 */ 3173 /*:ref: sigerr_ 14 2 13 124 */ 3174 /*:ref: chkout_ 14 2 13 124 */ 3175 /*:ref: ucase_ 14 4 13 13 124 124 */ 3176 /*:ref: ljust_ 14 4 13 13 124 124 */ 3177 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 3178 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 3179 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 3180 /*:ref: eqstr_ 12 4 13 13 124 124 */ 3181 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 3182 /*:ref: vcrss_ 14 3 7 7 7 */ 3183 /*:ref: vnorm_ 7 1 7 */ 3184 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ 3185 /*:ref: vrotv_ 14 4 7 7 7 7 */ 3186 /*:ref: vequ_ 14 2 7 7 */ 3187 /*:ref: unorm_ 14 3 7 7 7 */ 3188 /*:ref: vperp_ 14 3 7 7 7 */ 3189 /*:ref: vhat_ 14 2 7 7 */ 3190 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 3191 /*:ref: vscl_ 14 3 7 7 7 */ 3192 3193 extern int getlun_(integer *unit); 3194 /*:ref: return_ 12 0 */ 3195 /*:ref: chkin_ 14 2 13 124 */ 3196 /*:ref: fndlun_ 14 1 4 */ 3197 /*:ref: setmsg_ 14 2 13 124 */ 3198 /*:ref: sigerr_ 14 2 13 124 */ 3199 /*:ref: chkout_ 14 2 13 124 */ 3200 /*:ref: errint_ 14 3 13 4 124 */ 3201 3202 extern int getmsg_(char *option, char *msg, ftnlen option_len, ftnlen msg_len); 3203 /*:ref: ljust_ 14 4 13 13 124 124 */ 3204 /*:ref: ucase_ 14 4 13 13 124 124 */ 3205 /*:ref: getsms_ 14 2 13 124 */ 3206 /*:ref: expln_ 14 4 13 13 124 124 */ 3207 /*:ref: getlms_ 14 2 13 124 */ 3208 /*:ref: setmsg_ 14 2 13 124 */ 3209 /*:ref: sigerr_ 14 2 13 124 */ 3210 3211 extern doublereal halfpi_(void); 3212 3213 extern int hrmesp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); 3214 /*:ref: return_ 12 0 */ 3215 /*:ref: chkin_ 14 2 13 124 */ 3216 /*:ref: setmsg_ 14 2 13 124 */ 3217 /*:ref: errint_ 14 3 13 4 124 */ 3218 /*:ref: sigerr_ 14 2 13 124 */ 3219 /*:ref: chkout_ 14 2 13 124 */ 3220 3221 extern int hrmint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); 3222 /*:ref: return_ 12 0 */ 3223 /*:ref: chkin_ 14 2 13 124 */ 3224 /*:ref: setmsg_ 14 2 13 124 */ 3225 /*:ref: errint_ 14 3 13 4 124 */ 3226 /*:ref: sigerr_ 14 2 13 124 */ 3227 /*:ref: chkout_ 14 2 13 124 */ 3228 /*:ref: errdp_ 14 3 13 7 124 */ 3229 3230 extern int hx2dp_(char *string, doublereal *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); 3231 /*:ref: dpmin_ 7 0 */ 3232 /*:ref: dpmax_ 7 0 */ 3233 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 3234 /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ 3235 3236 extern int hx2int_(char *string, integer *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); 3237 /*:ref: intmin_ 4 0 */ 3238 /*:ref: intmax_ 4 0 */ 3239 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 3240 3241 extern int hyptof_(doublereal *ma, doublereal *ecc, doublereal *f); 3242 /*:ref: return_ 12 0 */ 3243 /*:ref: chkin_ 14 2 13 124 */ 3244 /*:ref: dpmax_ 7 0 */ 3245 /*:ref: sigerr_ 14 2 13 124 */ 3246 /*:ref: chkout_ 14 2 13 124 */ 3247 /*:ref: dcbrt_ 7 1 7 */ 3248 3249 extern int ident_(doublereal *matrix); 3250 3251 extern int idw2at_(char *idword, char *arch, char *type__, ftnlen idword_len, ftnlen arch_len, ftnlen type_len); 3252 /*:ref: return_ 12 0 */ 3253 /*:ref: chkin_ 14 2 13 124 */ 3254 /*:ref: chkout_ 14 2 13 124 */ 3255 /*:ref: pos_ 4 5 13 13 4 124 124 */ 3256 3257 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); 3258 /*:ref: return_ 12 0 */ 3259 /*:ref: chkin_ 14 2 13 124 */ 3260 /*:ref: bods2c_ 14 4 13 4 12 124 */ 3261 /*:ref: setmsg_ 14 2 13 124 */ 3262 /*:ref: errch_ 14 4 13 13 124 124 */ 3263 /*:ref: sigerr_ 14 2 13 124 */ 3264 /*:ref: chkout_ 14 2 13 124 */ 3265 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 3266 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ 3267 /*:ref: eqstr_ 12 4 13 13 124 124 */ 3268 /*:ref: vminus_ 14 2 7 7 */ 3269 /*:ref: vequ_ 14 2 7 7 */ 3270 /*:ref: vsub_ 14 3 7 7 7 */ 3271 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 3272 /*:ref: surfnm_ 14 5 7 7 7 7 7 */ 3273 /*:ref: vsep_ 7 2 7 7 */ 3274 3275 extern int inedpl_(doublereal *a, doublereal *b, doublereal *c__, doublereal *plane, doublereal *ellips, logical *found); 3276 /*:ref: return_ 12 0 */ 3277 /*:ref: chkin_ 14 2 13 124 */ 3278 /*:ref: setmsg_ 14 2 13 124 */ 3279 /*:ref: errdp_ 14 3 13 7 124 */ 3280 /*:ref: sigerr_ 14 2 13 124 */ 3281 /*:ref: chkout_ 14 2 13 124 */ 3282 /*:ref: pl2nvc_ 14 3 7 7 7 */ 3283 /*:ref: vzero_ 12 1 7 */ 3284 /*:ref: pl2psv_ 14 4 7 7 7 7 */ 3285 /*:ref: vnorm_ 7 1 7 */ 3286 /*:ref: psv2pl_ 14 4 7 7 7 7 */ 3287 /*:ref: brcktd_ 7 3 7 7 7 */ 3288 /*:ref: vsclip_ 14 2 7 7 */ 3289 /*:ref: cgv2el_ 14 4 7 7 7 7 */ 3290 3291 extern int inelpl_(doublereal *ellips, doublereal *plane, integer *nxpts, doublereal *xpt1, doublereal *xpt2); 3292 /*:ref: return_ 12 0 */ 3293 /*:ref: chkin_ 14 2 13 124 */ 3294 /*:ref: el2cgv_ 14 4 7 7 7 7 */ 3295 /*:ref: pl2nvp_ 14 3 7 7 7 */ 3296 /*:ref: vsub_ 14 3 7 7 7 */ 3297 /*:ref: nvp2pl_ 14 3 7 7 7 */ 3298 /*:ref: pl2nvc_ 14 3 7 7 7 */ 3299 /*:ref: vdot_ 7 2 7 7 */ 3300 /*:ref: vzerog_ 12 2 7 4 */ 3301 /*:ref: chkout_ 14 2 13 124 */ 3302 /*:ref: vnormg_ 7 2 7 4 */ 3303 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ 3304 3305 extern int inrypl_(doublereal *vertex, doublereal *dir, doublereal *plane, integer *nxpts, doublereal *xpt); 3306 /*:ref: return_ 12 0 */ 3307 /*:ref: chkin_ 14 2 13 124 */ 3308 /*:ref: dpmax_ 7 0 */ 3309 /*:ref: vnorm_ 7 1 7 */ 3310 /*:ref: setmsg_ 14 2 13 124 */ 3311 /*:ref: sigerr_ 14 2 13 124 */ 3312 /*:ref: chkout_ 14 2 13 124 */ 3313 /*:ref: pl2nvc_ 14 3 7 7 7 */ 3314 /*:ref: vhat_ 14 2 7 7 */ 3315 /*:ref: vzero_ 12 1 7 */ 3316 /*:ref: vscl_ 14 3 7 7 7 */ 3317 /*:ref: vequ_ 14 2 7 7 */ 3318 /*:ref: vdot_ 7 2 7 7 */ 3319 /*:ref: smsgnd_ 12 2 7 7 */ 3320 /*:ref: cleard_ 14 2 4 7 */ 3321 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 3322 /*:ref: vsclip_ 14 2 7 7 */ 3323 3324 extern int inslac_(char *elts, integer *ne, integer *loc, char *array, integer *na, ftnlen elts_len, ftnlen array_len); 3325 /*:ref: return_ 12 0 */ 3326 /*:ref: chkin_ 14 2 13 124 */ 3327 /*:ref: setmsg_ 14 2 13 124 */ 3328 /*:ref: errint_ 14 3 13 4 124 */ 3329 /*:ref: sigerr_ 14 2 13 124 */ 3330 /*:ref: chkout_ 14 2 13 124 */ 3331 3332 extern int inslad_(doublereal *elts, integer *ne, integer *loc, doublereal *array, integer *na); 3333 /*:ref: return_ 12 0 */ 3334 /*:ref: chkin_ 14 2 13 124 */ 3335 /*:ref: setmsg_ 14 2 13 124 */ 3336 /*:ref: errint_ 14 3 13 4 124 */ 3337 /*:ref: sigerr_ 14 2 13 124 */ 3338 /*:ref: chkout_ 14 2 13 124 */ 3339 3340 extern int inslai_(integer *elts, integer *ne, integer *loc, integer *array, integer *na); 3341 /*:ref: return_ 12 0 */ 3342 /*:ref: chkin_ 14 2 13 124 */ 3343 /*:ref: setmsg_ 14 2 13 124 */ 3344 /*:ref: errint_ 14 3 13 4 124 */ 3345 /*:ref: sigerr_ 14 2 13 124 */ 3346 /*:ref: chkout_ 14 2 13 124 */ 3347 3348 extern int insrtc_(char *item, char *a, ftnlen item_len, ftnlen a_len); 3349 /*:ref: return_ 12 0 */ 3350 /*:ref: chkin_ 14 2 13 124 */ 3351 /*:ref: sizec_ 4 2 13 124 */ 3352 /*:ref: cardc_ 4 2 13 124 */ 3353 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 3354 /*:ref: scardc_ 14 3 4 13 124 */ 3355 /*:ref: setmsg_ 14 2 13 124 */ 3356 /*:ref: errint_ 14 3 13 4 124 */ 3357 /*:ref: sigerr_ 14 2 13 124 */ 3358 /*:ref: chkout_ 14 2 13 124 */ 3359 3360 extern int insrtd_(doublereal *item, doublereal *a); 3361 /*:ref: return_ 12 0 */ 3362 /*:ref: chkin_ 14 2 13 124 */ 3363 /*:ref: sized_ 4 1 7 */ 3364 /*:ref: cardd_ 4 1 7 */ 3365 /*:ref: lstled_ 4 3 7 4 7 */ 3366 /*:ref: scardd_ 14 2 4 7 */ 3367 /*:ref: setmsg_ 14 2 13 124 */ 3368 /*:ref: errint_ 14 3 13 4 124 */ 3369 /*:ref: sigerr_ 14 2 13 124 */ 3370 /*:ref: chkout_ 14 2 13 124 */ 3371 3372 extern int insrti_(integer *item, integer *a); 3373 /*:ref: return_ 12 0 */ 3374 /*:ref: chkin_ 14 2 13 124 */ 3375 /*:ref: sizei_ 4 1 4 */ 3376 /*:ref: cardi_ 4 1 4 */ 3377 /*:ref: lstlei_ 4 3 4 4 4 */ 3378 /*:ref: scardi_ 14 2 4 4 */ 3379 /*:ref: setmsg_ 14 2 13 124 */ 3380 /*:ref: errint_ 14 3 13 4 124 */ 3381 /*:ref: sigerr_ 14 2 13 124 */ 3382 /*:ref: chkout_ 14 2 13 124 */ 3383 3384 extern int inssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); 3385 /*:ref: chkin_ 14 2 13 124 */ 3386 /*:ref: setmsg_ 14 2 13 124 */ 3387 /*:ref: errint_ 14 3 13 4 124 */ 3388 /*:ref: sigerr_ 14 2 13 124 */ 3389 /*:ref: chkout_ 14 2 13 124 */ 3390 3391 extern int int2hx_(integer *number, char *string, integer *length, ftnlen string_len); 3392 3393 extern int interc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); 3394 /*:ref: return_ 12 0 */ 3395 /*:ref: chkin_ 14 2 13 124 */ 3396 /*:ref: setmsg_ 14 2 13 124 */ 3397 /*:ref: errint_ 14 3 13 4 124 */ 3398 /*:ref: sigerr_ 14 2 13 124 */ 3399 /*:ref: chkout_ 14 2 13 124 */ 3400 /*:ref: cardc_ 4 2 13 124 */ 3401 /*:ref: sizec_ 4 2 13 124 */ 3402 /*:ref: scardc_ 14 3 4 13 124 */ 3403 /*:ref: excess_ 14 3 4 13 124 */ 3404 3405 extern int interd_(doublereal *a, doublereal *b, doublereal *c__); 3406 /*:ref: return_ 12 0 */ 3407 /*:ref: chkin_ 14 2 13 124 */ 3408 /*:ref: cardd_ 4 1 7 */ 3409 /*:ref: sized_ 4 1 7 */ 3410 /*:ref: scardd_ 14 2 4 7 */ 3411 /*:ref: excess_ 14 3 4 13 124 */ 3412 /*:ref: sigerr_ 14 2 13 124 */ 3413 /*:ref: chkout_ 14 2 13 124 */ 3414 3415 extern int interi_(integer *a, integer *b, integer *c__); 3416 /*:ref: return_ 12 0 */ 3417 /*:ref: chkin_ 14 2 13 124 */ 3418 /*:ref: cardi_ 4 1 4 */ 3419 /*:ref: sizei_ 4 1 4 */ 3420 /*:ref: scardi_ 14 2 4 4 */ 3421 /*:ref: excess_ 14 3 4 13 124 */ 3422 /*:ref: sigerr_ 14 2 13 124 */ 3423 /*:ref: chkout_ 14 2 13 124 */ 3424 3425 extern int intord_(integer *n, char *string, ftnlen string_len); 3426 /*:ref: inttxt_ 14 3 4 13 124 */ 3427 /*:ref: lastnb_ 4 2 13 124 */ 3428 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 3429 3430 extern int intstr_(integer *number, char *string, ftnlen string_len); 3431 3432 extern int inttxt_(integer *n, char *string, ftnlen string_len); 3433 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 3434 3435 extern int invert_(doublereal *m1, doublereal *mout); 3436 /*:ref: det_ 7 1 7 */ 3437 /*:ref: filld_ 14 3 7 4 7 */ 3438 /*:ref: vsclg_ 14 4 7 7 4 7 */ 3439 3440 extern int invort_(doublereal *m, doublereal *mit); 3441 /*:ref: dpmax_ 7 0 */ 3442 /*:ref: unorm_ 14 3 7 7 7 */ 3443 /*:ref: chkin_ 14 2 13 124 */ 3444 /*:ref: setmsg_ 14 2 13 124 */ 3445 /*:ref: errint_ 14 3 13 4 124 */ 3446 /*:ref: sigerr_ 14 2 13 124 */ 3447 /*:ref: chkout_ 14 2 13 124 */ 3448 /*:ref: errdp_ 14 3 13 7 124 */ 3449 /*:ref: vsclip_ 14 2 7 7 */ 3450 /*:ref: xpose_ 14 2 7 7 */ 3451 3452 extern int invstm_(doublereal *mat, doublereal *invmat); 3453 /*:ref: return_ 12 0 */ 3454 /*:ref: chkin_ 14 2 13 124 */ 3455 /*:ref: xposbl_ 14 5 7 4 4 4 7 */ 3456 /*:ref: chkout_ 14 2 13 124 */ 3457 3458 extern int ioerr_(char *action, char *file, integer *iostat, ftnlen action_len, ftnlen file_len); 3459 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 3460 /*:ref: intstr_ 14 3 4 13 124 */ 3461 /*:ref: setmsg_ 14 2 13 124 */ 3462 3463 extern int irftrn_(char *refa, char *refb, doublereal *rotab, ftnlen refa_len, ftnlen refb_len); 3464 /*:ref: return_ 12 0 */ 3465 /*:ref: chkin_ 14 2 13 124 */ 3466 /*:ref: irfnum_ 14 3 13 4 124 */ 3467 /*:ref: irfrot_ 14 3 4 4 7 */ 3468 /*:ref: chkout_ 14 2 13 124 */ 3469 3470 extern int iso2utc_(char *tstrng, char *utcstr, char *error, ftnlen tstrng_len, ftnlen utcstr_len, ftnlen error_len); 3471 /*:ref: return_ 12 0 */ 3472 /*:ref: chkin_ 14 2 13 124 */ 3473 /*:ref: ljust_ 14 4 13 13 124 124 */ 3474 /*:ref: rtrim_ 4 2 13 124 */ 3475 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 3476 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 3477 /*:ref: chkout_ 14 2 13 124 */ 3478 3479 extern logical isopen_(char *file, ftnlen file_len); 3480 /*:ref: return_ 12 0 */ 3481 /*:ref: chkin_ 14 2 13 124 */ 3482 /*:ref: setmsg_ 14 2 13 124 */ 3483 /*:ref: sigerr_ 14 2 13 124 */ 3484 /*:ref: chkout_ 14 2 13 124 */ 3485 /*:ref: errint_ 14 3 13 4 124 */ 3486 3487 extern logical isordv_(integer *array, integer *n); 3488 3489 extern integer isrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); 3490 3491 extern integer isrchd_(doublereal *value, integer *ndim, doublereal *array); 3492 3493 extern integer isrchi_(integer *value, integer *ndim, integer *array); 3494 3495 extern logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol); 3496 /*:ref: return_ 12 0 */ 3497 /*:ref: chkin_ 14 2 13 124 */ 3498 /*:ref: setmsg_ 14 2 13 124 */ 3499 /*:ref: errdp_ 14 3 13 7 124 */ 3500 /*:ref: sigerr_ 14 2 13 124 */ 3501 /*:ref: chkout_ 14 2 13 124 */ 3502 /*:ref: unorm_ 14 3 7 7 7 */ 3503 /*:ref: det_ 7 1 7 */ 3504 /*:ref: brcktd_ 7 3 7 7 7 */ 3505 3506 extern doublereal j1900_(void); 3507 3508 extern doublereal j1950_(void); 3509 3510 extern doublereal j2000_(void); 3511 3512 extern doublereal j2100_(void); 3513 3514 extern int jul2gr_(integer *year, integer *month, integer *day, integer *doy); 3515 extern int gr2jul_(integer *year, integer *month, integer *day, integer *doy); 3516 /*:ref: rmaini_ 14 4 4 4 4 4 */ 3517 /*:ref: lstlti_ 4 3 4 4 4 */ 3518 3519 extern doublereal jyear_(void); 3520 3521 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); 3522 extern int furnsh_(char *file, ftnlen file_len); 3523 extern int ktotal_(char *kind, integer *count, ftnlen kind_len); 3524 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); 3525 extern int kinfo_(char *file, char *filtyp, char *source, integer *handle, logical *found, ftnlen file_len, ftnlen filtyp_len, ftnlen source_len); 3526 extern int unload_(char *file, ftnlen file_len); 3527 /*:ref: chkin_ 14 2 13 124 */ 3528 /*:ref: setmsg_ 14 2 13 124 */ 3529 /*:ref: sigerr_ 14 2 13 124 */ 3530 /*:ref: chkout_ 14 2 13 124 */ 3531 /*:ref: return_ 12 0 */ 3532 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 3533 /*:ref: cvpool_ 14 3 13 12 124 */ 3534 /*:ref: errint_ 14 3 13 4 124 */ 3535 /*:ref: zzldker_ 14 7 13 13 13 4 124 124 124 */ 3536 /*:ref: failed_ 12 0 */ 3537 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 3538 /*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */ 3539 /*:ref: stpool_ 14 9 13 4 13 13 4 12 124 124 124 */ 3540 /*:ref: pos_ 4 5 13 13 4 124 124 */ 3541 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 3542 /*:ref: rtrim_ 4 2 13 124 */ 3543 /*:ref: samsub_ 12 8 13 4 4 13 4 4 124 124 */ 3544 /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ 3545 /*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ 3546 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 3547 /*:ref: dvpool_ 14 2 13 124 */ 3548 /*:ref: errch_ 14 4 13 13 124 124 */ 3549 /*:ref: fndnwd_ 14 5 13 4 4 4 124 */ 3550 /*:ref: eqstr_ 12 4 13 13 124 124 */ 3551 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 3552 /*:ref: spkuef_ 14 1 4 */ 3553 /*:ref: ckupf_ 14 1 4 */ 3554 /*:ref: pckuof_ 14 1 4 */ 3555 /*:ref: ekuef_ 14 1 4 */ 3556 /*:ref: clpool_ 14 0 */ 3557 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 3558 /*:ref: remlai_ 14 4 4 4 4 4 */ 3559 /*:ref: ldpool_ 14 2 13 124 */ 3560 /*:ref: spklef_ 14 3 13 4 124 */ 3561 /*:ref: cklpf_ 14 3 13 4 124 */ 3562 /*:ref: pcklof_ 14 3 13 4 124 */ 3563 /*:ref: eklef_ 14 3 13 4 124 */ 3564 3565 extern doublereal kepleq_(doublereal *ml, doublereal *h__, doublereal *k); 3566 /*:ref: chkin_ 14 2 13 124 */ 3567 /*:ref: setmsg_ 14 2 13 124 */ 3568 /*:ref: errdp_ 14 3 13 7 124 */ 3569 /*:ref: sigerr_ 14 2 13 124 */ 3570 /*:ref: chkout_ 14 2 13 124 */ 3571 /*:ref: kpsolv_ 7 1 7 */ 3572 3573 extern doublereal kpsolv_(doublereal *evec); 3574 /*:ref: chkin_ 14 2 13 124 */ 3575 /*:ref: setmsg_ 14 2 13 124 */ 3576 /*:ref: errdp_ 14 3 13 7 124 */ 3577 /*:ref: sigerr_ 14 2 13 124 */ 3578 /*:ref: chkout_ 14 2 13 124 */ 3579 3580 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); 3581 /*:ref: wdindx_ 4 4 13 13 124 124 */ 3582 /*:ref: nblen_ 4 2 13 124 */ 3583 /*:ref: fndnwd_ 14 5 13 4 4 4 124 */ 3584 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 3585 /*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ 3586 3587 extern integer lastnb_(char *string, ftnlen string_len); 3588 3589 extern integer lastpc_(char *string, ftnlen string_len); 3590 3591 extern int latcyl_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *r__, doublereal *longc, doublereal *z__); 3592 3593 extern int latrec_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *rectan); 3594 3595 extern int latsph_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *rho, doublereal *colat, doublereal *longs); 3596 /*:ref: halfpi_ 7 0 */ 3597 3598 extern int lbuild_(char *items, integer *n, char *delim, char *list, ftnlen items_len, ftnlen delim_len, ftnlen list_len); 3599 /*:ref: frstnb_ 4 2 13 124 */ 3600 /*:ref: lastnb_ 4 2 13 124 */ 3601 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 3602 3603 extern int lcase_(char *in, char *out, ftnlen in_len, ftnlen out_len); 3604 3605 extern doublereal lgresp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *work, doublereal *x); 3606 /*:ref: return_ 12 0 */ 3607 /*:ref: chkin_ 14 2 13 124 */ 3608 /*:ref: setmsg_ 14 2 13 124 */ 3609 /*:ref: errint_ 14 3 13 4 124 */ 3610 /*:ref: sigerr_ 14 2 13 124 */ 3611 /*:ref: chkout_ 14 2 13 124 */ 3612 3613 extern int lgrind_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x, doublereal *p, doublereal *dp); 3614 /*:ref: return_ 12 0 */ 3615 /*:ref: chkin_ 14 2 13 124 */ 3616 /*:ref: setmsg_ 14 2 13 124 */ 3617 /*:ref: errint_ 14 3 13 4 124 */ 3618 /*:ref: sigerr_ 14 2 13 124 */ 3619 /*:ref: chkout_ 14 2 13 124 */ 3620 /*:ref: errdp_ 14 3 13 7 124 */ 3621 3622 extern doublereal lgrint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x); 3623 /*:ref: return_ 12 0 */ 3624 /*:ref: chkin_ 14 2 13 124 */ 3625 /*:ref: setmsg_ 14 2 13 124 */ 3626 /*:ref: errint_ 14 3 13 4 124 */ 3627 /*:ref: sigerr_ 14 2 13 124 */ 3628 /*:ref: chkout_ 14 2 13 124 */ 3629 /*:ref: errdp_ 14 3 13 7 124 */ 3630 3631 extern int ljust_(char *input, char *output, ftnlen input_len, ftnlen output_len); 3632 3633 extern int lnkan_(integer *pool, integer *new__); 3634 /*:ref: chkin_ 14 2 13 124 */ 3635 /*:ref: setmsg_ 14 2 13 124 */ 3636 /*:ref: sigerr_ 14 2 13 124 */ 3637 /*:ref: chkout_ 14 2 13 124 */ 3638 3639 extern int lnkfsl_(integer *head, integer *tail, integer *pool); 3640 /*:ref: chkin_ 14 2 13 124 */ 3641 /*:ref: setmsg_ 14 2 13 124 */ 3642 /*:ref: errint_ 14 3 13 4 124 */ 3643 /*:ref: sigerr_ 14 2 13 124 */ 3644 /*:ref: chkout_ 14 2 13 124 */ 3645 3646 extern integer lnkhl_(integer *node, integer *pool); 3647 /*:ref: chkin_ 14 2 13 124 */ 3648 /*:ref: setmsg_ 14 2 13 124 */ 3649 /*:ref: errint_ 14 3 13 4 124 */ 3650 /*:ref: sigerr_ 14 2 13 124 */ 3651 /*:ref: chkout_ 14 2 13 124 */ 3652 3653 extern int lnkila_(integer *prev, integer *list, integer *pool); 3654 /*:ref: chkin_ 14 2 13 124 */ 3655 /*:ref: setmsg_ 14 2 13 124 */ 3656 /*:ref: errint_ 14 3 13 4 124 */ 3657 /*:ref: sigerr_ 14 2 13 124 */ 3658 /*:ref: chkout_ 14 2 13 124 */ 3659 3660 extern int lnkilb_(integer *list, integer *next, integer *pool); 3661 /*:ref: chkin_ 14 2 13 124 */ 3662 /*:ref: setmsg_ 14 2 13 124 */ 3663 /*:ref: errint_ 14 3 13 4 124 */ 3664 /*:ref: sigerr_ 14 2 13 124 */ 3665 /*:ref: chkout_ 14 2 13 124 */ 3666 3667 extern int lnkini_(integer *size, integer *pool); 3668 /*:ref: chkin_ 14 2 13 124 */ 3669 /*:ref: setmsg_ 14 2 13 124 */ 3670 /*:ref: errint_ 14 3 13 4 124 */ 3671 /*:ref: sigerr_ 14 2 13 124 */ 3672 /*:ref: chkout_ 14 2 13 124 */ 3673 3674 extern integer lnknfn_(integer *pool); 3675 3676 extern integer lnknxt_(integer *node, integer *pool); 3677 /*:ref: chkin_ 14 2 13 124 */ 3678 /*:ref: setmsg_ 14 2 13 124 */ 3679 /*:ref: errint_ 14 3 13 4 124 */ 3680 /*:ref: sigerr_ 14 2 13 124 */ 3681 /*:ref: chkout_ 14 2 13 124 */ 3682 3683 extern integer lnkprv_(integer *node, integer *pool); 3684 /*:ref: chkin_ 14 2 13 124 */ 3685 /*:ref: setmsg_ 14 2 13 124 */ 3686 /*:ref: errint_ 14 3 13 4 124 */ 3687 /*:ref: sigerr_ 14 2 13 124 */ 3688 /*:ref: chkout_ 14 2 13 124 */ 3689 3690 extern integer lnksiz_(integer *pool); 3691 3692 extern integer lnktl_(integer *node, integer *pool); 3693 /*:ref: chkin_ 14 2 13 124 */ 3694 /*:ref: setmsg_ 14 2 13 124 */ 3695 /*:ref: errint_ 14 3 13 4 124 */ 3696 /*:ref: sigerr_ 14 2 13 124 */ 3697 /*:ref: chkout_ 14 2 13 124 */ 3698 3699 extern int lnkxsl_(integer *head, integer *tail, integer *pool); 3700 /*:ref: chkin_ 14 2 13 124 */ 3701 /*:ref: setmsg_ 14 2 13 124 */ 3702 /*:ref: errint_ 14 3 13 4 124 */ 3703 /*:ref: sigerr_ 14 2 13 124 */ 3704 /*:ref: chkout_ 14 2 13 124 */ 3705 3706 extern int locati_(integer *id, integer *idsz, integer *list, integer *pool, integer *at, logical *presnt); 3707 /*:ref: chkin_ 14 2 13 124 */ 3708 /*:ref: lnknfn_ 4 1 4 */ 3709 /*:ref: lnksiz_ 4 1 4 */ 3710 /*:ref: lnkan_ 14 2 4 4 */ 3711 /*:ref: chkout_ 14 2 13 124 */ 3712 /*:ref: setmsg_ 14 2 13 124 */ 3713 /*:ref: errint_ 14 3 13 4 124 */ 3714 /*:ref: sigerr_ 14 2 13 124 */ 3715 /*:ref: lnkxsl_ 14 3 4 4 4 */ 3716 /*:ref: lnkilb_ 14 3 4 4 4 */ 3717 3718 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); 3719 /*:ref: return_ 12 0 */ 3720 /*:ref: chkin_ 14 2 13 124 */ 3721 /*:ref: setmsg_ 14 2 13 124 */ 3722 /*:ref: errch_ 14 4 13 13 124 124 */ 3723 /*:ref: errint_ 14 3 13 4 124 */ 3724 /*:ref: errfnm_ 14 3 13 4 124 */ 3725 /*:ref: sigerr_ 14 2 13 124 */ 3726 /*:ref: chkout_ 14 2 13 124 */ 3727 /*:ref: ljust_ 14 4 13 13 124 124 */ 3728 /*:ref: ltrim_ 4 2 13 124 */ 3729 3730 extern int lparse_(char *list, char *delim, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delim_len, ftnlen items_len); 3731 3732 extern int lparsm_(char *list, char *delims, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delims_len, ftnlen items_len); 3733 3734 extern int lparss_(char *list, char *delims, char *set, ftnlen list_len, ftnlen delims_len, ftnlen set_len); 3735 /*:ref: return_ 12 0 */ 3736 /*:ref: chkin_ 14 2 13 124 */ 3737 /*:ref: sizec_ 4 2 13 124 */ 3738 /*:ref: scardc_ 14 3 4 13 124 */ 3739 /*:ref: insrtc_ 14 4 13 13 124 124 */ 3740 /*:ref: lastnb_ 4 2 13 124 */ 3741 /*:ref: validc_ 14 4 4 4 13 124 */ 3742 /*:ref: failed_ 12 0 */ 3743 /*:ref: chkout_ 14 2 13 124 */ 3744 3745 extern doublereal lspcn_(char *body, doublereal *et, char *abcorr, ftnlen body_len, ftnlen abcorr_len); 3746 /*:ref: return_ 12 0 */ 3747 /*:ref: chkin_ 14 2 13 124 */ 3748 /*:ref: bods2c_ 14 4 13 4 12 124 */ 3749 /*:ref: setmsg_ 14 2 13 124 */ 3750 /*:ref: errch_ 14 4 13 13 124 124 */ 3751 /*:ref: sigerr_ 14 2 13 124 */ 3752 /*:ref: chkout_ 14 2 13 124 */ 3753 /*:ref: tipbod_ 14 5 13 4 7 7 124 */ 3754 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ 3755 /*:ref: ucrss_ 14 3 7 7 7 */ 3756 /*:ref: twovec_ 14 5 7 4 7 4 7 */ 3757 /*:ref: failed_ 12 0 */ 3758 /*:ref: spkezr_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ 3759 /*:ref: mxv_ 14 3 7 7 7 */ 3760 /*:ref: recrad_ 14 4 7 7 7 7 */ 3761 3762 extern integer lstcld_(doublereal *x, integer *n, doublereal *array); 3763 3764 extern integer lstcli_(integer *x, integer *n, integer *array); 3765 3766 extern integer lstlec_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); 3767 3768 extern integer lstled_(doublereal *x, integer *n, doublereal *array); 3769 3770 extern integer lstlei_(integer *x, integer *n, integer *array); 3771 3772 extern integer lstltc_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); 3773 3774 extern integer lstltd_(doublereal *x, integer *n, doublereal *array); 3775 3776 extern integer lstlti_(integer *x, integer *n, integer *array); 3777 3778 extern int ltime_(doublereal *etobs, integer *obs, char *dir, integer *targ, doublereal *ettarg, doublereal *elapsd, ftnlen dir_len); 3779 /*:ref: return_ 12 0 */ 3780 /*:ref: chkin_ 14 2 13 124 */ 3781 /*:ref: setmsg_ 14 2 13 124 */ 3782 /*:ref: rtrim_ 4 2 13 124 */ 3783 /*:ref: errch_ 14 4 13 13 124 124 */ 3784 /*:ref: sigerr_ 14 2 13 124 */ 3785 /*:ref: chkout_ 14 2 13 124 */ 3786 /*:ref: clight_ 7 0 */ 3787 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ 3788 /*:ref: vdist_ 7 2 7 7 */ 3789 /*:ref: failed_ 12 0 */ 3790 3791 extern integer ltrim_(char *string, ftnlen string_len); 3792 /*:ref: frstnb_ 4 2 13 124 */ 3793 3794 extern int lun2fn_(integer *lunit, char *filnam, ftnlen filnam_len); 3795 /*:ref: return_ 12 0 */ 3796 /*:ref: chkin_ 14 2 13 124 */ 3797 /*:ref: setmsg_ 14 2 13 124 */ 3798 /*:ref: errint_ 14 3 13 4 124 */ 3799 /*:ref: sigerr_ 14 2 13 124 */ 3800 /*:ref: chkout_ 14 2 13 124 */ 3801 3802 extern int lx4dec_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); 3803 /*:ref: lx4uns_ 14 5 13 4 4 4 124 */ 3804 /*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ 3805 3806 extern int lx4num_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); 3807 /*:ref: lx4dec_ 14 5 13 4 4 4 124 */ 3808 /*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ 3809 3810 extern int lx4sgn_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); 3811 /*:ref: lx4uns_ 14 5 13 4 4 4 124 */ 3812 3813 extern int lx4uns_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); 3814 3815 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); 3816 extern int lxidnt_(integer *idspec, char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); 3817 extern int lxdfid_(integer *idspec); 3818 extern int lxcsid_(char *hdchrs, char *tlchrs, integer *idspec, ftnlen hdchrs_len, ftnlen tlchrs_len); 3819 /*:ref: return_ 12 0 */ 3820 /*:ref: chkin_ 14 2 13 124 */ 3821 /*:ref: sigerr_ 14 2 13 124 */ 3822 /*:ref: chkout_ 14 2 13 124 */ 3823 /*:ref: rtrim_ 4 2 13 124 */ 3824 /*:ref: bsrchi_ 4 3 4 4 4 */ 3825 /*:ref: ssizei_ 14 2 4 4 */ 3826 /*:ref: validi_ 14 3 4 4 4 */ 3827 /*:ref: scardi_ 14 2 4 4 */ 3828 /*:ref: appndi_ 14 2 4 4 */ 3829 /*:ref: setmsg_ 14 2 13 124 */ 3830 /*:ref: errint_ 14 3 13 4 124 */ 3831 /*:ref: insrti_ 14 2 4 4 */ 3832 /*:ref: cardi_ 4 1 4 */ 3833 3834 extern int lxqstr_(char *string, char *qchar, integer *first, integer *last, integer *nchar, ftnlen string_len, ftnlen qchar_len); 3835 3836 extern int m2eul_(doublereal *r__, integer *axis3, integer *axis2, integer *axis1, doublereal *angle3, doublereal *angle2, doublereal *angle1); 3837 /*:ref: return_ 12 0 */ 3838 /*:ref: chkin_ 14 2 13 124 */ 3839 /*:ref: setmsg_ 14 2 13 124 */ 3840 /*:ref: errint_ 14 3 13 4 124 */ 3841 /*:ref: sigerr_ 14 2 13 124 */ 3842 /*:ref: chkout_ 14 2 13 124 */ 3843 /*:ref: isrot_ 12 3 7 7 7 */ 3844 /*:ref: vhat_ 14 2 7 7 */ 3845 /*:ref: cleard_ 14 2 4 7 */ 3846 /*:ref: mxm_ 14 3 7 7 7 */ 3847 /*:ref: mtxm_ 14 3 7 7 7 */ 3848 3849 extern int m2q_(doublereal *r__, doublereal *q); 3850 /*:ref: isrot_ 12 3 7 7 7 */ 3851 /*:ref: chkin_ 14 2 13 124 */ 3852 /*:ref: setmsg_ 14 2 13 124 */ 3853 /*:ref: sigerr_ 14 2 13 124 */ 3854 /*:ref: chkout_ 14 2 13 124 */ 3855 3856 extern logical matchi_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); 3857 /*:ref: frstnb_ 4 2 13 124 */ 3858 /*:ref: lastnb_ 4 2 13 124 */ 3859 /*:ref: samch_ 12 6 13 4 13 4 124 124 */ 3860 /*:ref: nechr_ 12 4 13 13 124 124 */ 3861 /*:ref: samchi_ 12 6 13 4 13 4 124 124 */ 3862 3863 extern logical matchw_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); 3864 /*:ref: frstnb_ 4 2 13 124 */ 3865 /*:ref: lastnb_ 4 2 13 124 */ 3866 /*:ref: samch_ 12 6 13 4 13 4 124 124 */ 3867 3868 extern int maxac_(char *array, integer *ndim, char *maxval, integer *loc, ftnlen array_len, ftnlen maxval_len); 3869 3870 extern int maxad_(doublereal *array, integer *ndim, doublereal *maxval, integer *loc); 3871 3872 extern int maxai_(integer *array, integer *ndim, integer *maxval, integer *loc); 3873 3874 extern int mequ_(doublereal *m1, doublereal *mout); 3875 /*:ref: moved_ 14 3 7 4 7 */ 3876 3877 extern int mequg_(doublereal *m1, integer *nr, integer *nc, doublereal *mout); 3878 /*:ref: moved_ 14 3 7 4 7 */ 3879 3880 extern int minac_(char *array, integer *ndim, char *minval, integer *loc, ftnlen array_len, ftnlen minval_len); 3881 3882 extern int minad_(doublereal *array, integer *ndim, doublereal *minval, integer *loc); 3883 3884 extern int minai_(integer *array, integer *ndim, integer *minval, integer *loc); 3885 3886 extern int movec_(char *arrfrm, integer *ndim, char *arrto, ftnlen arrfrm_len, ftnlen arrto_len); 3887 3888 extern int movei_(integer *arrfrm, integer *ndim, integer *arrto); 3889 3890 extern int mtxm_(doublereal *m1, doublereal *m2, doublereal *mout); 3891 /*:ref: moved_ 14 3 7 4 7 */ 3892 3893 extern int mtxmg_(doublereal *m1, doublereal *m2, integer *nc1, integer *nr1r2, integer *nc2, doublereal *mout); 3894 3895 extern int mtxv_(doublereal *matrix, doublereal *vin, doublereal *vout); 3896 3897 extern int mtxvg_(doublereal *m1, doublereal *v2, integer *nc1, integer *nr1r2, doublereal *vout); 3898 3899 extern int mxm_(doublereal *m1, doublereal *m2, doublereal *mout); 3900 /*:ref: moved_ 14 3 7 4 7 */ 3901 3902 extern int mxmg_(doublereal *m1, doublereal *m2, integer *row1, integer *col1, integer *col2, doublereal *mout); 3903 3904 extern int mxmt_(doublereal *m1, doublereal *m2, doublereal *mout); 3905 /*:ref: moved_ 14 3 7 4 7 */ 3906 3907 extern int mxmtg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1c2, integer *nr2, doublereal *mout); 3908 3909 extern int mxv_(doublereal *matrix, doublereal *vin, doublereal *vout); 3910 3911 extern int mxvg_(doublereal *m1, doublereal *v2, integer *nr1, integer *nc1r2, doublereal *vout); 3912 3913 extern integer nblen_(char *string, ftnlen string_len); 3914 /*:ref: lastnb_ 4 2 13 124 */ 3915 /*:ref: frstnb_ 4 2 13 124 */ 3916 3917 extern integer nbwid_(char *array, integer *nelt, ftnlen array_len); 3918 3919 extern integer ncpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); 3920 3921 extern integer ncposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); 3922 3923 extern int nearpt_(doublereal *positn, doublereal *a, doublereal *b, doublereal *c__, doublereal *npoint, doublereal *alt); 3924 /*:ref: return_ 12 0 */ 3925 /*:ref: chkin_ 14 2 13 124 */ 3926 /*:ref: setmsg_ 14 2 13 124 */ 3927 /*:ref: errch_ 14 4 13 13 124 124 */ 3928 /*:ref: errdp_ 14 3 13 7 124 */ 3929 /*:ref: sigerr_ 14 2 13 124 */ 3930 /*:ref: chkout_ 14 2 13 124 */ 3931 /*:ref: vequ_ 14 2 7 7 */ 3932 /*:ref: orderd_ 14 3 7 4 4 */ 3933 /*:ref: reordd_ 14 3 4 4 7 */ 3934 /*:ref: vsclip_ 14 2 7 7 */ 3935 /*:ref: vnorm_ 7 1 7 */ 3936 /*:ref: dpmax_ 7 0 */ 3937 /*:ref: errint_ 14 3 13 4 124 */ 3938 /*:ref: touchd_ 7 1 7 */ 3939 /*:ref: brcktd_ 7 3 7 7 7 */ 3940 /*:ref: approx_ 12 3 7 7 7 */ 3941 /*:ref: vdist_ 7 2 7 7 */ 3942 /*:ref: surfnm_ 14 5 7 7 7 7 7 */ 3943 /*:ref: vperp_ 14 3 7 7 7 */ 3944 /*:ref: vadd_ 14 3 7 7 7 */ 3945 3946 extern int nextwd_(char *string, char *next, char *rest, ftnlen string_len, ftnlen next_len, ftnlen rest_len); 3947 /*:ref: ljust_ 14 4 13 13 124 124 */ 3948 3949 extern logical notru_(logical *logcls, integer *n); 3950 3951 extern int nparsd_(char *string, doublereal *x, char *error, integer *ptr, ftnlen string_len, ftnlen error_len); 3952 /*:ref: dpmax_ 7 0 */ 3953 /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ 3954 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 3955 /*:ref: pi_ 7 0 */ 3956 3957 extern int nparsi_(char *string, integer *n, char *error, integer *pnter, ftnlen string_len, ftnlen error_len); 3958 /*:ref: intmax_ 4 0 */ 3959 /*:ref: intmin_ 4 0 */ 3960 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 3961 3962 extern int npedln_(doublereal *a, doublereal *b, doublereal *c__, doublereal *linept, doublereal *linedr, doublereal *pnear, doublereal *dist); 3963 /*:ref: return_ 12 0 */ 3964 /*:ref: chkin_ 14 2 13 124 */ 3965 /*:ref: unorm_ 14 3 7 7 7 */ 3966 /*:ref: setmsg_ 14 2 13 124 */ 3967 /*:ref: sigerr_ 14 2 13 124 */ 3968 /*:ref: chkout_ 14 2 13 124 */ 3969 /*:ref: errdp_ 14 3 13 7 124 */ 3970 /*:ref: vminus_ 14 2 7 7 */ 3971 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ 3972 /*:ref: vscl_ 14 3 7 7 7 */ 3973 /*:ref: nvc2pl_ 14 3 7 7 7 */ 3974 /*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ 3975 /*:ref: pjelpl_ 14 3 7 7 7 */ 3976 /*:ref: vprjp_ 14 3 7 7 7 */ 3977 /*:ref: npelpt_ 14 4 7 7 7 7 */ 3978 /*:ref: failed_ 12 0 */ 3979 /*:ref: vprjpi_ 14 5 7 7 7 7 12 */ 3980 /*:ref: vsclip_ 14 2 7 7 */ 3981 3982 extern int npelpt_(doublereal *point, doublereal *ellips, doublereal *pnear, doublereal *dist); 3983 /*:ref: return_ 12 0 */ 3984 /*:ref: chkin_ 14 2 13 124 */ 3985 /*:ref: el2cgv_ 14 4 7 7 7 7 */ 3986 /*:ref: vnorm_ 7 1 7 */ 3987 /*:ref: setmsg_ 14 2 13 124 */ 3988 /*:ref: errdp_ 14 3 13 7 124 */ 3989 /*:ref: sigerr_ 14 2 13 124 */ 3990 /*:ref: chkout_ 14 2 13 124 */ 3991 /*:ref: vsclip_ 14 2 7 7 */ 3992 /*:ref: vsub_ 14 3 7 7 7 */ 3993 /*:ref: twovec_ 14 5 7 4 7 4 7 */ 3994 /*:ref: mxv_ 14 3 7 7 7 */ 3995 /*:ref: vequ_ 14 2 7 7 */ 3996 /*:ref: vpack_ 14 4 7 7 7 7 */ 3997 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ 3998 /*:ref: mtxv_ 14 3 7 7 7 */ 3999 /*:ref: vadd_ 14 3 7 7 7 */ 4000 /*:ref: vdist_ 7 2 7 7 */ 4001 4002 extern int nplnpt_(doublereal *linpt, doublereal *lindir, doublereal *point, doublereal *pnear, doublereal *dist); 4003 /*:ref: return_ 12 0 */ 4004 /*:ref: chkin_ 14 2 13 124 */ 4005 /*:ref: vzero_ 12 1 7 */ 4006 /*:ref: setmsg_ 14 2 13 124 */ 4007 /*:ref: sigerr_ 14 2 13 124 */ 4008 /*:ref: chkout_ 14 2 13 124 */ 4009 /*:ref: vsub_ 14 3 7 7 7 */ 4010 /*:ref: vproj_ 14 3 7 7 7 */ 4011 /*:ref: vadd_ 14 3 7 7 7 */ 4012 /*:ref: vdist_ 7 2 7 7 */ 4013 4014 extern int nthwd_(char *string, integer *nth, char *word, integer *loc, ftnlen string_len, ftnlen word_len); 4015 4016 extern int nvc2pl_(doublereal *normal, doublereal *const__, doublereal *plane); 4017 /*:ref: return_ 12 0 */ 4018 /*:ref: unorm_ 14 3 7 7 7 */ 4019 /*:ref: chkin_ 14 2 13 124 */ 4020 /*:ref: setmsg_ 14 2 13 124 */ 4021 /*:ref: sigerr_ 14 2 13 124 */ 4022 /*:ref: chkout_ 14 2 13 124 */ 4023 /*:ref: vminus_ 14 2 7 7 */ 4024 /*:ref: vequ_ 14 2 7 7 */ 4025 4026 extern int nvp2pl_(doublereal *normal, doublereal *point, doublereal *plane); 4027 /*:ref: return_ 12 0 */ 4028 /*:ref: vzero_ 12 1 7 */ 4029 /*:ref: chkin_ 14 2 13 124 */ 4030 /*:ref: setmsg_ 14 2 13 124 */ 4031 /*:ref: sigerr_ 14 2 13 124 */ 4032 /*:ref: chkout_ 14 2 13 124 */ 4033 /*:ref: vhat_ 14 2 7 7 */ 4034 /*:ref: vdot_ 7 2 7 7 */ 4035 /*:ref: vminus_ 14 2 7 7 */ 4036 /*:ref: vequ_ 14 2 7 7 */ 4037 4038 extern logical odd_(integer *i__); 4039 4040 extern logical opsgnd_(doublereal *x, doublereal *y); 4041 4042 extern logical opsgni_(integer *x, integer *y); 4043 4044 extern integer ordc_(char *item, char *set, ftnlen item_len, ftnlen set_len); 4045 /*:ref: return_ 12 0 */ 4046 /*:ref: chkin_ 14 2 13 124 */ 4047 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 4048 /*:ref: cardc_ 4 2 13 124 */ 4049 /*:ref: chkout_ 14 2 13 124 */ 4050 4051 extern integer ordd_(doublereal *item, doublereal *set); 4052 /*:ref: return_ 12 0 */ 4053 /*:ref: chkin_ 14 2 13 124 */ 4054 /*:ref: bsrchd_ 4 3 7 4 7 */ 4055 /*:ref: cardd_ 4 1 7 */ 4056 /*:ref: chkout_ 14 2 13 124 */ 4057 4058 extern int orderc_(char *array, integer *ndim, integer *iorder, ftnlen array_len); 4059 /*:ref: swapi_ 14 2 4 4 */ 4060 4061 extern int orderd_(doublereal *array, integer *ndim, integer *iorder); 4062 /*:ref: swapi_ 14 2 4 4 */ 4063 4064 extern int orderi_(integer *array, integer *ndim, integer *iorder); 4065 /*:ref: swapi_ 14 2 4 4 */ 4066 4067 extern integer ordi_(integer *item, integer *set); 4068 /*:ref: return_ 12 0 */ 4069 /*:ref: chkin_ 14 2 13 124 */ 4070 /*:ref: bsrchi_ 4 3 4 4 4 */ 4071 /*:ref: cardi_ 4 1 4 */ 4072 /*:ref: chkout_ 14 2 13 124 */ 4073 4074 extern int oscelt_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); 4075 /*:ref: return_ 12 0 */ 4076 /*:ref: chkin_ 14 2 13 124 */ 4077 /*:ref: setmsg_ 14 2 13 124 */ 4078 /*:ref: errdp_ 14 3 13 7 124 */ 4079 /*:ref: sigerr_ 14 2 13 124 */ 4080 /*:ref: chkout_ 14 2 13 124 */ 4081 /*:ref: vequ_ 14 2 7 7 */ 4082 /*:ref: vzero_ 12 1 7 */ 4083 /*:ref: vnorm_ 7 1 7 */ 4084 /*:ref: vcrss_ 14 3 7 7 7 */ 4085 /*:ref: vpack_ 14 4 7 7 7 7 */ 4086 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 4087 /*:ref: vdot_ 7 2 7 7 */ 4088 /*:ref: vsclip_ 14 2 7 7 */ 4089 /*:ref: exact_ 7 3 7 7 7 */ 4090 /*:ref: vsep_ 7 2 7 7 */ 4091 /*:ref: pi_ 7 0 */ 4092 /*:ref: twopi_ 7 0 */ 4093 /*:ref: ucrss_ 14 3 7 7 7 */ 4094 /*:ref: vhat_ 14 2 7 7 */ 4095 /*:ref: dacosh_ 7 1 7 */ 4096 4097 extern int outmsg_(char *list, ftnlen list_len); 4098 /*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ 4099 /*:ref: ucase_ 14 4 13 13 124 124 */ 4100 /*:ref: getdev_ 14 2 13 124 */ 4101 /*:ref: wrline_ 14 4 13 13 124 124 */ 4102 /*:ref: msgsel_ 12 2 13 124 */ 4103 /*:ref: tkvrsn_ 14 4 13 13 124 124 */ 4104 /*:ref: getsms_ 14 2 13 124 */ 4105 /*:ref: expln_ 14 4 13 13 124 124 */ 4106 /*:ref: rtrim_ 4 2 13 124 */ 4107 /*:ref: getlms_ 14 2 13 124 */ 4108 /*:ref: wdcnt_ 4 2 13 124 */ 4109 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ 4110 /*:ref: ljust_ 14 4 13 13 124 124 */ 4111 /*:ref: trcdep_ 14 1 4 */ 4112 /*:ref: trcnam_ 14 3 4 13 124 */ 4113 /*:ref: lastnb_ 4 2 13 124 */ 4114 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 4115 4116 extern int packac_(char *in, integer *pack, integer *npack, integer *maxout, integer *nout, char *out, ftnlen in_len, ftnlen out_len); 4117 /*:ref: return_ 12 0 */ 4118 /*:ref: chkin_ 14 2 13 124 */ 4119 /*:ref: setmsg_ 14 2 13 124 */ 4120 /*:ref: errint_ 14 3 13 4 124 */ 4121 /*:ref: sigerr_ 14 2 13 124 */ 4122 /*:ref: chkout_ 14 2 13 124 */ 4123 4124 extern int packad_(doublereal *in, integer *pack, integer *npack, integer *maxout, integer *nout, doublereal *out); 4125 /*:ref: return_ 12 0 */ 4126 /*:ref: chkin_ 14 2 13 124 */ 4127 /*:ref: setmsg_ 14 2 13 124 */ 4128 /*:ref: errint_ 14 3 13 4 124 */ 4129 /*:ref: sigerr_ 14 2 13 124 */ 4130 /*:ref: chkout_ 14 2 13 124 */ 4131 4132 extern int packai_(integer *in, integer *pack, integer *npack, integer *maxout, integer *nout, integer *out); 4133 /*:ref: return_ 12 0 */ 4134 /*:ref: chkin_ 14 2 13 124 */ 4135 /*:ref: setmsg_ 14 2 13 124 */ 4136 /*:ref: errint_ 14 3 13 4 124 */ 4137 /*:ref: sigerr_ 14 2 13 124 */ 4138 /*:ref: chkout_ 14 2 13 124 */ 4139 4140 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); 4141 /*:ref: frstnb_ 4 2 13 124 */ 4142 /*:ref: lastnb_ 4 2 13 124 */ 4143 4144 extern int partof_(doublereal *ma, doublereal *d__); 4145 /*:ref: return_ 12 0 */ 4146 /*:ref: chkin_ 14 2 13 124 */ 4147 /*:ref: chkout_ 14 2 13 124 */ 4148 /*:ref: dcbrt_ 7 1 7 */ 4149 4150 extern int pck03a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); 4151 /*:ref: return_ 12 0 */ 4152 /*:ref: chkin_ 14 2 13 124 */ 4153 /*:ref: setmsg_ 14 2 13 124 */ 4154 /*:ref: errhan_ 14 3 13 4 124 */ 4155 /*:ref: errint_ 14 3 13 4 124 */ 4156 /*:ref: sigerr_ 14 2 13 124 */ 4157 /*:ref: chkout_ 14 2 13 124 */ 4158 /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ 4159 4160 extern int pck03b_(integer *handle, char *segid, integer *body, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); 4161 /*:ref: return_ 12 0 */ 4162 /*:ref: chkin_ 14 2 13 124 */ 4163 /*:ref: setmsg_ 14 2 13 124 */ 4164 /*:ref: errint_ 14 3 13 4 124 */ 4165 /*:ref: sigerr_ 14 2 13 124 */ 4166 /*:ref: chkout_ 14 2 13 124 */ 4167 /*:ref: pckpds_ 14 7 4 13 4 7 7 7 124 */ 4168 /*:ref: failed_ 12 0 */ 4169 /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ 4170 4171 extern int pck03e_(integer *handle); 4172 /*:ref: return_ 12 0 */ 4173 /*:ref: chkin_ 14 2 13 124 */ 4174 /*:ref: sgwes_ 14 1 4 */ 4175 /*:ref: chkout_ 14 2 13 124 */ 4176 4177 extern int pckbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); 4178 extern int pcklof_(char *fname, integer *handle, ftnlen fname_len); 4179 extern int pckuof_(integer *handle); 4180 extern int pcksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); 4181 /*:ref: return_ 12 0 */ 4182 /*:ref: chkin_ 14 2 13 124 */ 4183 /*:ref: sigerr_ 14 2 13 124 */ 4184 /*:ref: chkout_ 14 2 13 124 */ 4185 /*:ref: lnkini_ 14 2 4 4 */ 4186 /*:ref: dafopr_ 14 3 13 4 124 */ 4187 /*:ref: failed_ 12 0 */ 4188 /*:ref: isrchi_ 4 3 4 4 4 */ 4189 /*:ref: dafcls_ 14 1 4 */ 4190 /*:ref: lnknxt_ 4 2 4 4 */ 4191 /*:ref: lnkfsl_ 14 3 4 4 4 */ 4192 /*:ref: setmsg_ 14 2 13 124 */ 4193 /*:ref: errint_ 14 3 13 4 124 */ 4194 /*:ref: intmax_ 4 0 */ 4195 /*:ref: moved_ 14 3 7 4 7 */ 4196 /*:ref: lnkprv_ 4 2 4 4 */ 4197 /*:ref: dpmin_ 7 0 */ 4198 /*:ref: dpmax_ 7 0 */ 4199 /*:ref: cleard_ 14 2 4 7 */ 4200 /*:ref: dafbfs_ 14 1 4 */ 4201 /*:ref: daffna_ 14 1 12 */ 4202 /*:ref: dafgs_ 14 1 7 */ 4203 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 4204 /*:ref: dafbbs_ 14 1 4 */ 4205 /*:ref: daffpa_ 14 1 12 */ 4206 /*:ref: lnknfn_ 4 1 4 */ 4207 /*:ref: lnkan_ 14 2 4 4 */ 4208 /*:ref: dafgn_ 14 2 13 124 */ 4209 /*:ref: lnkilb_ 14 3 4 4 4 */ 4210 /*:ref: lnkila_ 14 3 4 4 4 */ 4211 /*:ref: lnktl_ 4 2 4 4 */ 4212 4213 extern int pckcls_(integer *handle); 4214 /*:ref: return_ 12 0 */ 4215 /*:ref: chkin_ 14 2 13 124 */ 4216 /*:ref: dafbfs_ 14 1 4 */ 4217 /*:ref: daffna_ 14 1 12 */ 4218 /*:ref: failed_ 12 0 */ 4219 /*:ref: chkout_ 14 2 13 124 */ 4220 /*:ref: setmsg_ 14 2 13 124 */ 4221 /*:ref: errhan_ 14 3 13 4 124 */ 4222 /*:ref: sigerr_ 14 2 13 124 */ 4223 /*:ref: dafcls_ 14 1 4 */ 4224 4225 extern int pcke02_(doublereal *et, doublereal *record, doublereal *eulang); 4226 /*:ref: return_ 12 0 */ 4227 /*:ref: chkin_ 14 2 13 124 */ 4228 /*:ref: spke02_ 14 3 7 7 7 */ 4229 /*:ref: twopi_ 7 0 */ 4230 /*:ref: chkout_ 14 2 13 124 */ 4231 4232 extern int pcke03_(doublereal *et, doublereal *record, doublereal *rotmat); 4233 /*:ref: return_ 12 0 */ 4234 /*:ref: chkin_ 14 2 13 124 */ 4235 /*:ref: chbval_ 14 5 7 4 7 7 7 */ 4236 /*:ref: rpd_ 7 0 */ 4237 /*:ref: halfpi_ 7 0 */ 4238 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 4239 /*:ref: vcrss_ 14 3 7 7 7 */ 4240 /*:ref: chkout_ 14 2 13 124 */ 4241 4242 extern int pckeul_(integer *body, doublereal *et, logical *found, char *ref, doublereal *eulang, ftnlen ref_len); 4243 /*:ref: return_ 12 0 */ 4244 /*:ref: chkin_ 14 2 13 124 */ 4245 /*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ 4246 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 4247 /*:ref: irfnam_ 14 3 4 13 124 */ 4248 /*:ref: pckr02_ 14 4 4 7 7 7 */ 4249 /*:ref: pcke02_ 14 3 7 7 7 */ 4250 /*:ref: chkout_ 14 2 13 124 */ 4251 4252 extern int pckmat_(integer *body, doublereal *et, integer *ref, doublereal *tsipm, logical *found); 4253 /*:ref: return_ 12 0 */ 4254 /*:ref: chkin_ 14 2 13 124 */ 4255 /*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ 4256 /*:ref: failed_ 12 0 */ 4257 /*:ref: chkout_ 14 2 13 124 */ 4258 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 4259 /*:ref: pckr02_ 14 4 4 7 7 7 */ 4260 /*:ref: pcke02_ 14 3 7 7 7 */ 4261 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ 4262 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ 4263 /*:ref: setmsg_ 14 2 13 124 */ 4264 /*:ref: errint_ 14 3 13 4 124 */ 4265 /*:ref: sigerr_ 14 2 13 124 */ 4266 /*:ref: pckr03_ 14 4 4 7 7 7 */ 4267 /*:ref: pcke03_ 14 3 7 7 7 */ 4268 4269 extern int pckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len); 4270 /*:ref: return_ 12 0 */ 4271 /*:ref: chkin_ 14 2 13 124 */ 4272 /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ 4273 /*:ref: failed_ 12 0 */ 4274 /*:ref: chkout_ 14 2 13 124 */ 4275 4276 extern int pckpds_(integer *body, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); 4277 /*:ref: return_ 12 0 */ 4278 /*:ref: chkin_ 14 2 13 124 */ 4279 /*:ref: setmsg_ 14 2 13 124 */ 4280 /*:ref: sigerr_ 14 2 13 124 */ 4281 /*:ref: chkout_ 14 2 13 124 */ 4282 /*:ref: irfnum_ 14 3 13 4 124 */ 4283 /*:ref: errch_ 14 4 13 13 124 124 */ 4284 /*:ref: etcal_ 14 3 7 13 124 */ 4285 /*:ref: errdp_ 14 3 13 7 124 */ 4286 /*:ref: errint_ 14 3 13 4 124 */ 4287 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 4288 4289 extern int pckr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 4290 /*:ref: return_ 12 0 */ 4291 /*:ref: chkin_ 14 2 13 124 */ 4292 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 4293 /*:ref: dafgda_ 14 4 4 4 4 7 */ 4294 /*:ref: chkout_ 14 2 13 124 */ 4295 4296 extern int pckr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 4297 /*:ref: return_ 12 0 */ 4298 /*:ref: chkin_ 14 2 13 124 */ 4299 /*:ref: setmsg_ 14 2 13 124 */ 4300 /*:ref: errdp_ 14 3 13 7 124 */ 4301 /*:ref: sigerr_ 14 2 13 124 */ 4302 /*:ref: chkout_ 14 2 13 124 */ 4303 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ 4304 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ 4305 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ 4306 4307 extern int pckuds_(doublereal *descr, integer *body, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end); 4308 /*:ref: return_ 12 0 */ 4309 /*:ref: chkin_ 14 2 13 124 */ 4310 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 4311 /*:ref: failed_ 12 0 */ 4312 /*:ref: chkout_ 14 2 13 124 */ 4313 4314 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); 4315 /*:ref: return_ 12 0 */ 4316 /*:ref: chkin_ 14 2 13 124 */ 4317 /*:ref: setmsg_ 14 2 13 124 */ 4318 /*:ref: errint_ 14 3 13 4 124 */ 4319 /*:ref: sigerr_ 14 2 13 124 */ 4320 /*:ref: chkout_ 14 2 13 124 */ 4321 /*:ref: errdp_ 14 3 13 7 124 */ 4322 /*:ref: irfnum_ 14 3 13 4 124 */ 4323 /*:ref: errch_ 14 4 13 13 124 124 */ 4324 /*:ref: etcal_ 14 3 7 13 124 */ 4325 /*:ref: chckid_ 14 5 13 4 13 124 124 */ 4326 /*:ref: failed_ 12 0 */ 4327 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 4328 /*:ref: dafbna_ 14 4 4 7 13 124 */ 4329 /*:ref: dafada_ 14 2 7 4 */ 4330 /*:ref: dafena_ 14 0 */ 4331 4332 extern integer pcwid_(char *array, integer *nelt, ftnlen array_len); 4333 4334 extern int pgrrec_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan, ftnlen body_len); 4335 /*:ref: return_ 12 0 */ 4336 /*:ref: chkin_ 14 2 13 124 */ 4337 /*:ref: bods2c_ 14 4 13 4 12 124 */ 4338 /*:ref: setmsg_ 14 2 13 124 */ 4339 /*:ref: errch_ 14 4 13 13 124 124 */ 4340 /*:ref: sigerr_ 14 2 13 124 */ 4341 /*:ref: chkout_ 14 2 13 124 */ 4342 /*:ref: errdp_ 14 3 13 7 124 */ 4343 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 4344 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 4345 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 4346 /*:ref: ucase_ 14 4 13 13 124 124 */ 4347 /*:ref: plnsns_ 4 1 4 */ 4348 /*:ref: georec_ 14 6 7 7 7 7 7 7 */ 4349 4350 extern doublereal pi_(void); 4351 4352 extern int pjelpl_(doublereal *elin, doublereal *plane, doublereal *elout); 4353 /*:ref: return_ 12 0 */ 4354 /*:ref: chkin_ 14 2 13 124 */ 4355 /*:ref: el2cgv_ 14 4 7 7 7 7 */ 4356 /*:ref: pl2nvc_ 14 3 7 7 7 */ 4357 /*:ref: vperp_ 14 3 7 7 7 */ 4358 /*:ref: vprjp_ 14 3 7 7 7 */ 4359 /*:ref: cgv2el_ 14 4 7 7 7 7 */ 4360 /*:ref: chkout_ 14 2 13 124 */ 4361 4362 extern int pl2nvc_(doublereal *plane, doublereal *normal, doublereal *const__); 4363 /*:ref: vequ_ 14 2 7 7 */ 4364 4365 extern int pl2nvp_(doublereal *plane, doublereal *normal, doublereal *point); 4366 /*:ref: pl2nvc_ 14 3 7 7 7 */ 4367 /*:ref: vscl_ 14 3 7 7 7 */ 4368 4369 extern int pl2psv_(doublereal *plane, doublereal *point, doublereal *span1, doublereal *span2); 4370 /*:ref: pl2nvp_ 14 3 7 7 7 */ 4371 /*:ref: frame_ 14 3 7 7 7 */ 4372 4373 extern integer plnsns_(integer *bodid); 4374 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 4375 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 4376 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 4377 4378 extern int polyds_(doublereal *coeffs, integer *deg, integer *nderiv, doublereal *t, doublereal *p); 4379 4380 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__, ftnlen kernel_len, ftnlen name_len, ftnlen names_len, ftnlen agent_len, ftnlen cvals_len, ftnlen type_len); 4381 extern int clpool_(void); 4382 extern int ldpool_(char *kernel, ftnlen kernel_len); 4383 extern int rtpool_(char *name__, integer *n, doublereal *values, logical *found, ftnlen name_len); 4384 extern int expool_(char *name__, logical *found, ftnlen name_len); 4385 extern int wrpool_(integer *unit); 4386 extern int swpool_(char *agent, integer *nnames, char *names, ftnlen agent_len, ftnlen names_len); 4387 extern int cvpool_(char *agent, logical *update, ftnlen agent_len); 4388 extern int gcpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); 4389 extern int gdpool_(char *name__, integer *start, integer *room, integer *n, doublereal *values, logical *found, ftnlen name_len); 4390 extern int gipool_(char *name__, integer *start, integer *room, integer *n, integer *ivals, logical *found, ftnlen name_len); 4391 extern int dtpool_(char *name__, logical *found, integer *n, char *type__, ftnlen name_len, ftnlen type_len); 4392 extern int pcpool_(char *name__, integer *n, char *cvals, ftnlen name_len, ftnlen cvals_len); 4393 extern int pdpool_(char *name__, integer *n, doublereal *values, ftnlen name_len); 4394 extern int pipool_(char *name__, integer *n, integer *ivals, ftnlen name_len); 4395 extern int lmpool_(char *cvals, integer *n, ftnlen cvals_len); 4396 extern int szpool_(char *name__, integer *n, logical *found, ftnlen name_len); 4397 extern int dvpool_(char *name__, ftnlen name_len); 4398 extern int gnpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); 4399 /*:ref: return_ 12 0 */ 4400 /*:ref: chkin_ 14 2 13 124 */ 4401 /*:ref: setmsg_ 14 2 13 124 */ 4402 /*:ref: sigerr_ 14 2 13 124 */ 4403 /*:ref: chkout_ 14 2 13 124 */ 4404 /*:ref: zzpini_ 14 26 12 4 4 4 13 13 4 4 4 4 4 4 4 13 4 13 13 13 13 124 124 124 124 124 124 124 */ 4405 /*:ref: lnkini_ 14 2 4 4 */ 4406 /*:ref: copyc_ 14 4 13 13 124 124 */ 4407 /*:ref: cardc_ 4 2 13 124 */ 4408 /*:ref: syfetc_ 14 9 4 13 4 13 13 12 124 124 124 */ 4409 /*:ref: sygetc_ 14 11 13 13 4 13 4 13 12 124 124 124 124 */ 4410 /*:ref: validc_ 14 4 4 4 13 124 */ 4411 /*:ref: unionc_ 14 6 13 13 13 124 124 124 */ 4412 /*:ref: rdknew_ 14 2 13 124 */ 4413 /*:ref: zzrvar_ 14 13 4 4 13 4 4 7 4 13 13 12 124 124 124 */ 4414 /*:ref: failed_ 12 0 */ 4415 /*:ref: cltext_ 14 2 13 124 */ 4416 /*:ref: zzhash_ 4 2 13 124 */ 4417 /*:ref: ioerr_ 14 5 13 13 4 124 124 */ 4418 /*:ref: rtrim_ 4 2 13 124 */ 4419 /*:ref: errch_ 14 4 13 13 124 124 */ 4420 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 4421 /*:ref: sypshc_ 14 9 13 13 13 4 13 124 124 124 124 */ 4422 /*:ref: syordc_ 14 7 13 13 4 13 124 124 124 */ 4423 /*:ref: errint_ 14 3 13 4 124 */ 4424 /*:ref: insrtc_ 14 4 13 13 124 124 */ 4425 /*:ref: elemc_ 12 4 13 13 124 124 */ 4426 /*:ref: removc_ 14 4 13 13 124 124 */ 4427 /*:ref: intmax_ 4 0 */ 4428 /*:ref: intmin_ 4 0 */ 4429 /*:ref: errdp_ 14 3 13 7 124 */ 4430 /*:ref: zzgpnm_ 14 15 4 4 13 4 4 7 4 13 13 12 4 4 124 124 124 */ 4431 /*:ref: lnknfn_ 4 1 4 */ 4432 /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ 4433 /*:ref: lnkfsl_ 14 3 4 4 4 */ 4434 /*:ref: lnkan_ 14 2 4 4 */ 4435 /*:ref: lnkila_ 14 3 4 4 4 */ 4436 /*:ref: zzrvbf_ 14 17 13 4 4 4 4 13 4 4 7 4 13 13 12 124 124 124 124 */ 4437 /*:ref: eqstr_ 12 4 13 13 124 124 */ 4438 /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ 4439 4440 extern integer pos_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); 4441 4442 extern integer posr_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); 4443 4444 extern int prefix_(char *pref, integer *spaces, char *string, ftnlen pref_len, ftnlen string_len); 4445 /*:ref: lastnb_ 4 2 13 124 */ 4446 /*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ 4447 4448 extern doublereal prodad_(doublereal *array, integer *n); 4449 4450 extern integer prodai_(integer *array, integer *n); 4451 4452 extern int prompt_(char *prmpt, char *string, ftnlen prmpt_len, ftnlen string_len); 4453 /*:ref: chkin_ 14 2 13 124 */ 4454 /*:ref: setmsg_ 14 2 13 124 */ 4455 /*:ref: sigerr_ 14 2 13 124 */ 4456 /*:ref: chkout_ 14 2 13 124 */ 4457 /*:ref: errch_ 14 4 13 13 124 124 */ 4458 /*:ref: errint_ 14 3 13 4 124 */ 4459 4460 extern int prop2b_(doublereal *gm, doublereal *pvinit, doublereal *dt, doublereal *pvprop); 4461 /*:ref: return_ 12 0 */ 4462 /*:ref: chkin_ 14 2 13 124 */ 4463 /*:ref: sigerr_ 14 2 13 124 */ 4464 /*:ref: chkout_ 14 2 13 124 */ 4465 /*:ref: vzero_ 12 1 7 */ 4466 /*:ref: vnorm_ 7 1 7 */ 4467 /*:ref: vdot_ 7 2 7 7 */ 4468 /*:ref: vcrss_ 14 3 7 7 7 */ 4469 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 4470 /*:ref: dpmax_ 7 0 */ 4471 /*:ref: brckti_ 4 3 4 4 4 */ 4472 /*:ref: brcktd_ 7 3 7 7 7 */ 4473 /*:ref: stmp03_ 14 5 7 7 7 7 7 */ 4474 /*:ref: setmsg_ 14 2 13 124 */ 4475 /*:ref: errdp_ 14 3 13 7 124 */ 4476 /*:ref: vequg_ 14 3 7 4 7 */ 4477 4478 extern int prsdp_(char *string, doublereal *dpval, ftnlen string_len); 4479 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 4480 /*:ref: chkin_ 14 2 13 124 */ 4481 /*:ref: setmsg_ 14 2 13 124 */ 4482 /*:ref: sigerr_ 14 2 13 124 */ 4483 /*:ref: chkout_ 14 2 13 124 */ 4484 4485 extern int prsint_(char *string, integer *intval, ftnlen string_len); 4486 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 4487 /*:ref: chkin_ 14 2 13 124 */ 4488 /*:ref: setmsg_ 14 2 13 124 */ 4489 /*:ref: sigerr_ 14 2 13 124 */ 4490 /*:ref: chkout_ 14 2 13 124 */ 4491 4492 extern int prtenc_(integer *number, char *string, ftnlen string_len); 4493 extern int prtdec_(char *string, integer *number, ftnlen string_len); 4494 /*:ref: chkin_ 14 2 13 124 */ 4495 /*:ref: sigerr_ 14 2 13 124 */ 4496 /*:ref: chkout_ 14 2 13 124 */ 4497 4498 extern logical prtpkg_(logical *short__, logical *long__, logical *expl, logical *trace, logical *dfault, char *type__, ftnlen type_len); 4499 extern logical setprt_(logical *short__, logical *expl, logical *long__, logical *trace, logical *dfault); 4500 extern logical msgsel_(char *type__, ftnlen type_len); 4501 /*:ref: getdev_ 14 2 13 124 */ 4502 /*:ref: wrline_ 14 4 13 13 124 124 */ 4503 /*:ref: ljust_ 14 4 13 13 124 124 */ 4504 /*:ref: ucase_ 14 4 13 13 124 124 */ 4505 4506 extern int psv2pl_(doublereal *point, doublereal *span1, doublereal *span2, doublereal *plane); 4507 /*:ref: return_ 12 0 */ 4508 /*:ref: ucrss_ 14 3 7 7 7 */ 4509 /*:ref: vzero_ 12 1 7 */ 4510 /*:ref: chkin_ 14 2 13 124 */ 4511 /*:ref: setmsg_ 14 2 13 124 */ 4512 /*:ref: sigerr_ 14 2 13 124 */ 4513 /*:ref: chkout_ 14 2 13 124 */ 4514 /*:ref: vdot_ 7 2 7 7 */ 4515 /*:ref: vminus_ 14 2 7 7 */ 4516 /*:ref: vequ_ 14 2 7 7 */ 4517 4518 extern int putact_(integer *action); 4519 extern int getact_(integer *action); 4520 4521 extern int putdev_(char *device, ftnlen device_len); 4522 extern int getdev_(char *device, ftnlen device_len); 4523 4524 extern int putlms_(char *msg, ftnlen msg_len); 4525 extern int getlms_(char *msg, ftnlen msg_len); 4526 4527 extern int putsms_(char *msg, ftnlen msg_len); 4528 extern int getsms_(char *msg, ftnlen msg_len); 4529 4530 extern int pxform_(char *from, char *to, doublereal *et, doublereal *rotate, ftnlen from_len, ftnlen to_len); 4531 /*:ref: return_ 12 0 */ 4532 /*:ref: chkin_ 14 2 13 124 */ 4533 /*:ref: namfrm_ 14 3 13 4 124 */ 4534 /*:ref: refchg_ 14 4 4 4 7 7 */ 4535 /*:ref: setmsg_ 14 2 13 124 */ 4536 /*:ref: errch_ 14 4 13 13 124 124 */ 4537 /*:ref: sigerr_ 14 2 13 124 */ 4538 /*:ref: chkout_ 14 2 13 124 */ 4539 4540 extern int q2m_(doublereal *q, doublereal *r__); 4541 4542 extern int qderiv_(integer *n, doublereal *f0, doublereal *f2, doublereal *delta, doublereal *dfdt); 4543 /*:ref: chkin_ 14 2 13 124 */ 4544 /*:ref: setmsg_ 14 2 13 124 */ 4545 /*:ref: sigerr_ 14 2 13 124 */ 4546 /*:ref: chkout_ 14 2 13 124 */ 4547 /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ 4548 4549 extern int qdq2av_(doublereal *q, doublereal *dq, doublereal *av); 4550 /*:ref: vhatg_ 14 3 7 4 7 */ 4551 /*:ref: vminus_ 14 2 7 7 */ 4552 /*:ref: qxq_ 14 3 7 7 7 */ 4553 /*:ref: vscl_ 14 3 7 7 7 */ 4554 4555 extern int quote_(char *in, char *left, char *right, char *out, ftnlen in_len, ftnlen left_len, ftnlen right_len, ftnlen out_len); 4556 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 4557 /*:ref: frstnb_ 4 2 13 124 */ 4558 /*:ref: lastnb_ 4 2 13 124 */ 4559 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 4560 4561 extern int qxq_(doublereal *q1, doublereal *q2, doublereal *qout); 4562 /*:ref: vdot_ 7 2 7 7 */ 4563 /*:ref: vcrss_ 14 3 7 7 7 */ 4564 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ 4565 4566 extern int radrec_(doublereal *range, doublereal *ra, doublereal *dec, doublereal *rectan); 4567 /*:ref: latrec_ 14 4 7 7 7 7 */ 4568 4569 extern int rav2xf_(doublereal *rot, doublereal *av, doublereal *xform); 4570 /*:ref: mxm_ 14 3 7 7 7 */ 4571 4572 extern int raxisa_(doublereal *matrix, doublereal *axis, doublereal *angle); 4573 /*:ref: return_ 12 0 */ 4574 /*:ref: chkin_ 14 2 13 124 */ 4575 /*:ref: m2q_ 14 2 7 7 */ 4576 /*:ref: failed_ 12 0 */ 4577 /*:ref: chkout_ 14 2 13 124 */ 4578 /*:ref: vzero_ 12 1 7 */ 4579 /*:ref: pi_ 7 0 */ 4580 /*:ref: vhat_ 14 2 7 7 */ 4581 /*:ref: vnorm_ 7 1 7 */ 4582 4583 extern int rdencc_(integer *unit, integer *n, char *data, ftnlen data_len); 4584 /*:ref: return_ 12 0 */ 4585 /*:ref: chkin_ 14 2 13 124 */ 4586 /*:ref: setmsg_ 14 2 13 124 */ 4587 /*:ref: errint_ 14 3 13 4 124 */ 4588 /*:ref: sigerr_ 14 2 13 124 */ 4589 /*:ref: chkout_ 14 2 13 124 */ 4590 /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ 4591 /*:ref: errch_ 14 4 13 13 124 124 */ 4592 4593 extern int rdencd_(integer *unit, integer *n, doublereal *data); 4594 /*:ref: return_ 12 0 */ 4595 /*:ref: chkin_ 14 2 13 124 */ 4596 /*:ref: setmsg_ 14 2 13 124 */ 4597 /*:ref: errint_ 14 3 13 4 124 */ 4598 /*:ref: sigerr_ 14 2 13 124 */ 4599 /*:ref: chkout_ 14 2 13 124 */ 4600 /*:ref: hx2dp_ 14 6 13 7 12 13 124 124 */ 4601 /*:ref: errch_ 14 4 13 13 124 124 */ 4602 4603 extern int rdenci_(integer *unit, integer *n, integer *data); 4604 /*:ref: return_ 12 0 */ 4605 /*:ref: chkin_ 14 2 13 124 */ 4606 /*:ref: setmsg_ 14 2 13 124 */ 4607 /*:ref: errint_ 14 3 13 4 124 */ 4608 /*:ref: sigerr_ 14 2 13 124 */ 4609 /*:ref: chkout_ 14 2 13 124 */ 4610 /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ 4611 /*:ref: errch_ 14 4 13 13 124 124 */ 4612 4613 extern int rdker_(char *kernel, char *line, integer *number, logical *eof, ftnlen kernel_len, ftnlen line_len); 4614 extern int rdknew_(char *kernel, ftnlen kernel_len); 4615 extern int rdkdat_(char *line, logical *eof, ftnlen line_len); 4616 extern int rdklin_(char *kernel, integer *number, ftnlen kernel_len); 4617 /*:ref: return_ 12 0 */ 4618 /*:ref: chkin_ 14 2 13 124 */ 4619 /*:ref: setmsg_ 14 2 13 124 */ 4620 /*:ref: sigerr_ 14 2 13 124 */ 4621 /*:ref: chkout_ 14 2 13 124 */ 4622 /*:ref: cltext_ 14 2 13 124 */ 4623 /*:ref: zzsetnnread_ 14 1 12 */ 4624 /*:ref: rdtext_ 14 5 13 13 12 124 124 */ 4625 /*:ref: ljust_ 14 4 13 13 124 124 */ 4626 /*:ref: failed_ 12 0 */ 4627 4628 extern int rdkvar_(char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *eof, ftnlen tabsym_len, ftnlen name_len); 4629 /*:ref: return_ 12 0 */ 4630 /*:ref: chkin_ 14 2 13 124 */ 4631 /*:ref: failed_ 12 0 */ 4632 /*:ref: rdkdat_ 14 3 13 12 124 */ 4633 /*:ref: chkout_ 14 2 13 124 */ 4634 /*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ 4635 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ 4636 /*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ 4637 /*:ref: tparse_ 14 5 13 7 13 124 124 */ 4638 /*:ref: setmsg_ 14 2 13 124 */ 4639 /*:ref: sigerr_ 14 2 13 124 */ 4640 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 4641 /*:ref: syenqd_ 14 7 13 7 13 4 7 124 124 */ 4642 4643 extern int rdnbl_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); 4644 /*:ref: return_ 12 0 */ 4645 /*:ref: chkin_ 14 2 13 124 */ 4646 /*:ref: rdtext_ 14 5 13 13 12 124 124 */ 4647 /*:ref: failed_ 12 0 */ 4648 /*:ref: chkout_ 14 2 13 124 */ 4649 4650 extern int rdtext_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); 4651 extern int cltext_(char *file, ftnlen file_len); 4652 /*:ref: return_ 12 0 */ 4653 /*:ref: chkin_ 14 2 13 124 */ 4654 /*:ref: setmsg_ 14 2 13 124 */ 4655 /*:ref: errch_ 14 4 13 13 124 124 */ 4656 /*:ref: errint_ 14 3 13 4 124 */ 4657 /*:ref: sigerr_ 14 2 13 124 */ 4658 /*:ref: chkout_ 14 2 13 124 */ 4659 /*:ref: isrchi_ 4 3 4 4 4 */ 4660 /*:ref: getlun_ 14 1 4 */ 4661 4662 extern int readla_(integer *unit, integer *maxlin, integer *numlin, char *array, logical *eof, ftnlen array_len); 4663 /*:ref: return_ 12 0 */ 4664 /*:ref: chkin_ 14 2 13 124 */ 4665 /*:ref: setmsg_ 14 2 13 124 */ 4666 /*:ref: errint_ 14 3 13 4 124 */ 4667 /*:ref: sigerr_ 14 2 13 124 */ 4668 /*:ref: chkout_ 14 2 13 124 */ 4669 /*:ref: readln_ 14 4 4 13 12 124 */ 4670 /*:ref: failed_ 12 0 */ 4671 4672 extern int readln_(integer *unit, char *line, logical *eof, ftnlen line_len); 4673 /*:ref: chkin_ 14 2 13 124 */ 4674 /*:ref: setmsg_ 14 2 13 124 */ 4675 /*:ref: errfnm_ 14 3 13 4 124 */ 4676 /*:ref: errint_ 14 3 13 4 124 */ 4677 /*:ref: sigerr_ 14 2 13 124 */ 4678 /*:ref: chkout_ 14 2 13 124 */ 4679 4680 extern int reccyl_(doublereal *rectan, doublereal *r__, doublereal *long__, doublereal *z__); 4681 /*:ref: twopi_ 7 0 */ 4682 4683 extern int recgeo_(doublereal *rectan, doublereal *re, doublereal *f, doublereal *long__, doublereal *lat, doublereal *alt); 4684 /*:ref: return_ 12 0 */ 4685 /*:ref: chkin_ 14 2 13 124 */ 4686 /*:ref: setmsg_ 14 2 13 124 */ 4687 /*:ref: errdp_ 14 3 13 7 124 */ 4688 /*:ref: sigerr_ 14 2 13 124 */ 4689 /*:ref: chkout_ 14 2 13 124 */ 4690 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ 4691 /*:ref: surfnm_ 14 5 7 7 7 7 7 */ 4692 /*:ref: reclat_ 14 4 7 7 7 7 */ 4693 4694 extern int reclat_(doublereal *rectan, doublereal *radius, doublereal *long__, doublereal *lat); 4695 4696 extern int recpgr_(char *body, doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt, ftnlen body_len); 4697 /*:ref: return_ 12 0 */ 4698 /*:ref: chkin_ 14 2 13 124 */ 4699 /*:ref: bods2c_ 14 4 13 4 12 124 */ 4700 /*:ref: setmsg_ 14 2 13 124 */ 4701 /*:ref: errch_ 14 4 13 13 124 124 */ 4702 /*:ref: sigerr_ 14 2 13 124 */ 4703 /*:ref: chkout_ 14 2 13 124 */ 4704 /*:ref: errdp_ 14 3 13 7 124 */ 4705 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 4706 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 4707 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 4708 /*:ref: ucase_ 14 4 13 13 124 124 */ 4709 /*:ref: plnsns_ 4 1 4 */ 4710 /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ 4711 /*:ref: twopi_ 7 0 */ 4712 /*:ref: brcktd_ 7 3 7 7 7 */ 4713 4714 extern int recrad_(doublereal *rectan, doublereal *range, doublereal *ra, doublereal *dec); 4715 /*:ref: reclat_ 14 4 7 7 7 7 */ 4716 /*:ref: twopi_ 7 0 */ 4717 4718 extern int recsph_(doublereal *rectan, doublereal *r__, doublereal *colat, doublereal *long__); 4719 4720 extern int refchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); 4721 /*:ref: return_ 12 0 */ 4722 /*:ref: chkin_ 14 2 13 124 */ 4723 /*:ref: ident_ 14 1 7 */ 4724 /*:ref: chkout_ 14 2 13 124 */ 4725 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 4726 /*:ref: setmsg_ 14 2 13 124 */ 4727 /*:ref: errint_ 14 3 13 4 124 */ 4728 /*:ref: sigerr_ 14 2 13 124 */ 4729 /*:ref: rotget_ 14 5 4 7 7 4 12 */ 4730 /*:ref: zzrxr_ 14 3 7 4 7 */ 4731 /*:ref: isrchi_ 4 3 4 4 4 */ 4732 /*:ref: frmnam_ 14 3 4 13 124 */ 4733 /*:ref: rtrim_ 4 2 13 124 */ 4734 /*:ref: errch_ 14 4 13 13 124 124 */ 4735 /*:ref: xpose_ 14 2 7 7 */ 4736 4737 extern int remlac_(integer *ne, integer *loc, char *array, integer *na, ftnlen array_len); 4738 /*:ref: return_ 12 0 */ 4739 /*:ref: chkin_ 14 2 13 124 */ 4740 /*:ref: setmsg_ 14 2 13 124 */ 4741 /*:ref: errint_ 14 3 13 4 124 */ 4742 /*:ref: sigerr_ 14 2 13 124 */ 4743 /*:ref: chkout_ 14 2 13 124 */ 4744 4745 extern int remlad_(integer *ne, integer *loc, doublereal *array, integer *na); 4746 /*:ref: return_ 12 0 */ 4747 /*:ref: chkin_ 14 2 13 124 */ 4748 /*:ref: setmsg_ 14 2 13 124 */ 4749 /*:ref: errint_ 14 3 13 4 124 */ 4750 /*:ref: sigerr_ 14 2 13 124 */ 4751 /*:ref: chkout_ 14 2 13 124 */ 4752 4753 extern int remlai_(integer *ne, integer *loc, integer *array, integer *na); 4754 /*:ref: return_ 12 0 */ 4755 /*:ref: chkin_ 14 2 13 124 */ 4756 /*:ref: setmsg_ 14 2 13 124 */ 4757 /*:ref: errint_ 14 3 13 4 124 */ 4758 /*:ref: sigerr_ 14 2 13 124 */ 4759 /*:ref: chkout_ 14 2 13 124 */ 4760 4761 extern int removc_(char *item, char *a, ftnlen item_len, ftnlen a_len); 4762 /*:ref: return_ 12 0 */ 4763 /*:ref: chkin_ 14 2 13 124 */ 4764 /*:ref: cardc_ 4 2 13 124 */ 4765 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 4766 /*:ref: scardc_ 14 3 4 13 124 */ 4767 /*:ref: chkout_ 14 2 13 124 */ 4768 4769 extern int removd_(doublereal *item, doublereal *a); 4770 /*:ref: return_ 12 0 */ 4771 /*:ref: chkin_ 14 2 13 124 */ 4772 /*:ref: cardd_ 4 1 7 */ 4773 /*:ref: bsrchd_ 4 3 7 4 7 */ 4774 /*:ref: scardd_ 14 2 4 7 */ 4775 /*:ref: chkout_ 14 2 13 124 */ 4776 4777 extern int removi_(integer *item, integer *a); 4778 /*:ref: return_ 12 0 */ 4779 /*:ref: chkin_ 14 2 13 124 */ 4780 /*:ref: cardi_ 4 1 4 */ 4781 /*:ref: bsrchi_ 4 3 4 4 4 */ 4782 /*:ref: scardi_ 14 2 4 4 */ 4783 /*:ref: chkout_ 14 2 13 124 */ 4784 4785 extern int remsub_(char *in, integer *left, integer *right, char *out, ftnlen in_len, ftnlen out_len); 4786 /*:ref: return_ 12 0 */ 4787 /*:ref: chkin_ 14 2 13 124 */ 4788 /*:ref: setmsg_ 14 2 13 124 */ 4789 /*:ref: errint_ 14 3 13 4 124 */ 4790 /*:ref: sigerr_ 14 2 13 124 */ 4791 /*:ref: chkout_ 14 2 13 124 */ 4792 /*:ref: lastnb_ 4 2 13 124 */ 4793 4794 extern int reordc_(integer *iorder, integer *ndim, char *array, ftnlen array_len); 4795 4796 extern int reordd_(integer *iorder, integer *ndim, doublereal *array); 4797 4798 extern int reordi_(integer *iorder, integer *ndim, integer *array); 4799 4800 extern int reordl_(integer *iorder, integer *ndim, logical *array); 4801 4802 extern int replch_(char *instr, char *old, char *new__, char *outstr, ftnlen instr_len, ftnlen old_len, ftnlen new_len, ftnlen outstr_len); 4803 4804 extern int replwd_(char *instr, integer *nth, char *new__, char *outstr, ftnlen instr_len, ftnlen new_len, ftnlen outstr_len); 4805 /*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ 4806 /*:ref: fndnwd_ 14 5 13 4 4 4 124 */ 4807 /*:ref: frstnb_ 4 2 13 124 */ 4808 /*:ref: lastnb_ 4 2 13 124 */ 4809 4810 extern int repmc_(char *in, char *marker, char *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen value_len, ftnlen out_len); 4811 /*:ref: frstnb_ 4 2 13 124 */ 4812 /*:ref: lastnb_ 4 2 13 124 */ 4813 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ 4814 4815 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); 4816 /*:ref: return_ 12 0 */ 4817 /*:ref: chkin_ 14 2 13 124 */ 4818 /*:ref: ljust_ 14 4 13 13 124 124 */ 4819 /*:ref: ucase_ 14 4 13 13 124 124 */ 4820 /*:ref: setmsg_ 14 2 13 124 */ 4821 /*:ref: errch_ 14 4 13 13 124 124 */ 4822 /*:ref: sigerr_ 14 2 13 124 */ 4823 /*:ref: chkout_ 14 2 13 124 */ 4824 /*:ref: frstnb_ 4 2 13 124 */ 4825 /*:ref: lastnb_ 4 2 13 124 */ 4826 /*:ref: inttxt_ 14 3 4 13 124 */ 4827 /*:ref: lcase_ 14 4 13 13 124 124 */ 4828 /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ 4829 4830 extern int repmd_(char *in, char *marker, doublereal *value, integer *sigdig, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); 4831 /*:ref: frstnb_ 4 2 13 124 */ 4832 /*:ref: lastnb_ 4 2 13 124 */ 4833 /*:ref: dpstr_ 14 4 7 4 13 124 */ 4834 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ 4835 4836 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); 4837 /*:ref: frstnb_ 4 2 13 124 */ 4838 /*:ref: lastnb_ 4 2 13 124 */ 4839 /*:ref: ljust_ 14 4 13 13 124 124 */ 4840 /*:ref: ucase_ 14 4 13 13 124 124 */ 4841 /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ 4842 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ 4843 4844 extern int repmi_(char *in, char *marker, integer *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); 4845 /*:ref: frstnb_ 4 2 13 124 */ 4846 /*:ref: lastnb_ 4 2 13 124 */ 4847 /*:ref: intstr_ 14 3 4 13 124 */ 4848 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ 4849 4850 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); 4851 /*:ref: return_ 12 0 */ 4852 /*:ref: chkin_ 14 2 13 124 */ 4853 /*:ref: ljust_ 14 4 13 13 124 124 */ 4854 /*:ref: ucase_ 14 4 13 13 124 124 */ 4855 /*:ref: setmsg_ 14 2 13 124 */ 4856 /*:ref: errch_ 14 4 13 13 124 124 */ 4857 /*:ref: sigerr_ 14 2 13 124 */ 4858 /*:ref: chkout_ 14 2 13 124 */ 4859 /*:ref: frstnb_ 4 2 13 124 */ 4860 /*:ref: lastnb_ 4 2 13 124 */ 4861 /*:ref: intord_ 14 3 4 13 124 */ 4862 /*:ref: lcase_ 14 4 13 13 124 124 */ 4863 /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ 4864 4865 extern int repsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); 4866 /*:ref: return_ 12 0 */ 4867 /*:ref: chkin_ 14 2 13 124 */ 4868 /*:ref: setmsg_ 14 2 13 124 */ 4869 /*:ref: errint_ 14 3 13 4 124 */ 4870 /*:ref: sigerr_ 14 2 13 124 */ 4871 /*:ref: chkout_ 14 2 13 124 */ 4872 /*:ref: sumai_ 4 2 4 4 */ 4873 4874 extern int reset_(void); 4875 /*:ref: seterr_ 12 1 12 */ 4876 /*:ref: putsms_ 14 2 13 124 */ 4877 /*:ref: putlms_ 14 2 13 124 */ 4878 /*:ref: accept_ 12 1 12 */ 4879 4880 extern logical return_(void); 4881 /*:ref: getact_ 14 1 4 */ 4882 /*:ref: failed_ 12 0 */ 4883 4884 extern int rjust_(char *input, char *output, ftnlen input_len, ftnlen output_len); 4885 /*:ref: frstnb_ 4 2 13 124 */ 4886 /*:ref: lastnb_ 4 2 13 124 */ 4887 4888 extern int rmaind_(doublereal *num, doublereal *denom, doublereal *q, doublereal *rem); 4889 /*:ref: chkin_ 14 2 13 124 */ 4890 /*:ref: setmsg_ 14 2 13 124 */ 4891 /*:ref: sigerr_ 14 2 13 124 */ 4892 /*:ref: chkout_ 14 2 13 124 */ 4893 4894 extern int rmaini_(integer *num, integer *denom, integer *q, integer *rem); 4895 /*:ref: chkin_ 14 2 13 124 */ 4896 /*:ref: setmsg_ 14 2 13 124 */ 4897 /*:ref: sigerr_ 14 2 13 124 */ 4898 /*:ref: chkout_ 14 2 13 124 */ 4899 4900 extern int rmdupc_(integer *nelt, char *array, ftnlen array_len); 4901 /*:ref: shellc_ 14 3 4 13 124 */ 4902 4903 extern int rmdupd_(integer *nelt, doublereal *array); 4904 /*:ref: shelld_ 14 2 4 7 */ 4905 4906 extern int rmdupi_(integer *nelt, integer *array); 4907 /*:ref: shelli_ 14 2 4 4 */ 4908 4909 extern int rotate_(doublereal *angle, integer *iaxis, doublereal *mout); 4910 4911 extern int rotget_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); 4912 /*:ref: return_ 12 0 */ 4913 /*:ref: chkin_ 14 2 13 124 */ 4914 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 4915 /*:ref: chkout_ 14 2 13 124 */ 4916 /*:ref: irfrot_ 14 3 4 4 7 */ 4917 /*:ref: tipbod_ 14 5 13 4 7 7 124 */ 4918 /*:ref: xpose_ 14 2 7 7 */ 4919 /*:ref: namfrm_ 14 3 13 4 124 */ 4920 /*:ref: failed_ 12 0 */ 4921 /*:ref: ckfrot_ 14 5 4 7 7 4 12 */ 4922 /*:ref: tkfram_ 14 4 4 7 4 12 */ 4923 /*:ref: zzdynrot_ 14 5 4 4 7 7 4 */ 4924 /*:ref: setmsg_ 14 2 13 124 */ 4925 /*:ref: errint_ 14 3 13 4 124 */ 4926 /*:ref: errch_ 14 4 13 13 124 124 */ 4927 /*:ref: sigerr_ 14 2 13 124 */ 4928 4929 extern int rotmat_(doublereal *m1, doublereal *angle, integer *iaxis, doublereal *mout); 4930 /*:ref: moved_ 14 3 7 4 7 */ 4931 4932 extern int rotvec_(doublereal *v1, doublereal *angle, integer *iaxis, doublereal *vout); 4933 4934 extern doublereal rpd_(void); 4935 4936 extern int rquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *root1, doublereal *root2); 4937 /*:ref: return_ 12 0 */ 4938 /*:ref: chkin_ 14 2 13 124 */ 4939 /*:ref: setmsg_ 14 2 13 124 */ 4940 /*:ref: sigerr_ 14 2 13 124 */ 4941 /*:ref: chkout_ 14 2 13 124 */ 4942 /*:ref: moved_ 14 3 7 4 7 */ 4943 4944 extern integer rtrim_(char *string, ftnlen string_len); 4945 /*:ref: lastnb_ 4 2 13 124 */ 4946 4947 extern int saelgv_(doublereal *vec1, doublereal *vec2, doublereal *smajor, doublereal *sminor); 4948 /*:ref: return_ 12 0 */ 4949 /*:ref: chkin_ 14 2 13 124 */ 4950 /*:ref: moved_ 14 3 7 4 7 */ 4951 /*:ref: vnorm_ 7 1 7 */ 4952 /*:ref: cleard_ 14 2 4 7 */ 4953 /*:ref: chkout_ 14 2 13 124 */ 4954 /*:ref: vdot_ 7 2 7 7 */ 4955 /*:ref: diags2_ 14 3 7 7 7 */ 4956 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 4957 /*:ref: vsclip_ 14 2 7 7 */ 4958 4959 extern logical samch_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); 4960 4961 extern logical samchi_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); 4962 /*:ref: eqchr_ 12 4 13 13 124 124 */ 4963 4964 extern logical sameai_(integer *a1, integer *a2, integer *ndim); 4965 4966 extern logical samsbi_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); 4967 /*:ref: nechr_ 12 4 13 13 124 124 */ 4968 4969 extern logical samsub_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); 4970 4971 extern int sc01_(integer *sc, char *clkstr, doublereal *ticks, doublereal *sclkdp, doublereal *et, ftnlen clkstr_len); 4972 extern int sctk01_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); 4973 extern int scfm01_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); 4974 extern int scte01_(integer *sc, doublereal *sclkdp, doublereal *et); 4975 extern int scet01_(integer *sc, doublereal *et, doublereal *sclkdp); 4976 extern int scec01_(integer *sc, doublereal *et, doublereal *sclkdp); 4977 /*:ref: return_ 12 0 */ 4978 /*:ref: chkin_ 14 2 13 124 */ 4979 /*:ref: sigerr_ 14 2 13 124 */ 4980 /*:ref: chkout_ 14 2 13 124 */ 4981 /*:ref: movec_ 14 5 13 4 13 124 124 */ 4982 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 4983 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 4984 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 4985 /*:ref: cvpool_ 14 3 13 12 124 */ 4986 /*:ref: scli01_ 14 6 13 4 4 4 4 124 */ 4987 /*:ref: scld01_ 14 6 13 4 4 4 7 124 */ 4988 /*:ref: failed_ 12 0 */ 4989 /*:ref: setmsg_ 14 2 13 124 */ 4990 /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ 4991 /*:ref: errint_ 14 3 13 4 124 */ 4992 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 4993 /*:ref: errch_ 14 4 13 13 124 124 */ 4994 /*:ref: sumai_ 4 2 4 4 */ 4995 /*:ref: errdp_ 14 3 13 7 124 */ 4996 /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ 4997 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 4998 /*:ref: unitim_ 7 5 7 13 13 124 124 */ 4999 5000 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); 5001 extern int scanpr_(integer *nmarks, char *marks, integer *mrklen, integer *pnters, ftnlen marks_len); 5002 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); 5003 /*:ref: return_ 12 0 */ 5004 /*:ref: chkin_ 14 2 13 124 */ 5005 /*:ref: setmsg_ 14 2 13 124 */ 5006 /*:ref: sigerr_ 14 2 13 124 */ 5007 /*:ref: chkout_ 14 2 13 124 */ 5008 /*:ref: ljust_ 14 4 13 13 124 124 */ 5009 /*:ref: rmdupc_ 14 3 4 13 124 */ 5010 /*:ref: rtrim_ 4 2 13 124 */ 5011 /*:ref: ncpos_ 4 5 13 13 4 124 124 */ 5012 5013 extern int scanrj_(integer *ids, integer *n, integer *ntokns, integer *ident, integer *beg, integer *end); 5014 /*:ref: isrchi_ 4 3 4 4 4 */ 5015 5016 extern int scardc_(integer *card, char *cell, ftnlen cell_len); 5017 /*:ref: return_ 12 0 */ 5018 /*:ref: chkin_ 14 2 13 124 */ 5019 /*:ref: dechar_ 14 3 13 4 124 */ 5020 /*:ref: setmsg_ 14 2 13 124 */ 5021 /*:ref: errint_ 14 3 13 4 124 */ 5022 /*:ref: sigerr_ 14 2 13 124 */ 5023 /*:ref: chkout_ 14 2 13 124 */ 5024 /*:ref: enchar_ 14 3 4 13 124 */ 5025 5026 extern int scardd_(integer *card, doublereal *cell); 5027 /*:ref: return_ 12 0 */ 5028 /*:ref: chkin_ 14 2 13 124 */ 5029 /*:ref: setmsg_ 14 2 13 124 */ 5030 /*:ref: errint_ 14 3 13 4 124 */ 5031 /*:ref: sigerr_ 14 2 13 124 */ 5032 /*:ref: chkout_ 14 2 13 124 */ 5033 5034 extern int scardi_(integer *card, integer *cell); 5035 /*:ref: return_ 12 0 */ 5036 /*:ref: chkin_ 14 2 13 124 */ 5037 /*:ref: setmsg_ 14 2 13 124 */ 5038 /*:ref: errint_ 14 3 13 4 124 */ 5039 /*:ref: sigerr_ 14 2 13 124 */ 5040 /*:ref: chkout_ 14 2 13 124 */ 5041 5042 extern int scdecd_(integer *sc, doublereal *sclkdp, char *sclkch, ftnlen sclkch_len); 5043 /*:ref: return_ 12 0 */ 5044 /*:ref: chkin_ 14 2 13 124 */ 5045 /*:ref: scpart_ 14 4 4 4 7 7 */ 5046 /*:ref: failed_ 12 0 */ 5047 /*:ref: chkout_ 14 2 13 124 */ 5048 /*:ref: setmsg_ 14 2 13 124 */ 5049 /*:ref: errint_ 14 3 13 4 124 */ 5050 /*:ref: sigerr_ 14 2 13 124 */ 5051 /*:ref: lstled_ 4 3 7 4 7 */ 5052 /*:ref: errdp_ 14 3 13 7 124 */ 5053 /*:ref: scfmt_ 14 4 4 7 13 124 */ 5054 /*:ref: intstr_ 14 3 4 13 124 */ 5055 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 5056 /*:ref: lastnb_ 4 2 13 124 */ 5057 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 5058 5059 extern int sce2c_(integer *sc, doublereal *et, doublereal *sclkdp); 5060 /*:ref: return_ 12 0 */ 5061 /*:ref: chkin_ 14 2 13 124 */ 5062 /*:ref: sctype_ 4 1 4 */ 5063 /*:ref: scec01_ 14 3 4 7 7 */ 5064 /*:ref: setmsg_ 14 2 13 124 */ 5065 /*:ref: errint_ 14 3 13 4 124 */ 5066 /*:ref: sigerr_ 14 2 13 124 */ 5067 /*:ref: chkout_ 14 2 13 124 */ 5068 5069 extern int sce2s_(integer *sc, doublereal *et, char *sclkch, ftnlen sclkch_len); 5070 /*:ref: return_ 12 0 */ 5071 /*:ref: chkin_ 14 2 13 124 */ 5072 /*:ref: sce2t_ 14 3 4 7 7 */ 5073 /*:ref: scdecd_ 14 4 4 7 13 124 */ 5074 /*:ref: chkout_ 14 2 13 124 */ 5075 5076 extern int sce2t_(integer *sc, doublereal *et, doublereal *sclkdp); 5077 /*:ref: return_ 12 0 */ 5078 /*:ref: chkin_ 14 2 13 124 */ 5079 /*:ref: sctype_ 4 1 4 */ 5080 /*:ref: scet01_ 14 3 4 7 7 */ 5081 /*:ref: setmsg_ 14 2 13 124 */ 5082 /*:ref: errint_ 14 3 13 4 124 */ 5083 /*:ref: sigerr_ 14 2 13 124 */ 5084 /*:ref: chkout_ 14 2 13 124 */ 5085 5086 extern int scencd_(integer *sc, char *sclkch, doublereal *sclkdp, ftnlen sclkch_len); 5087 /*:ref: return_ 12 0 */ 5088 /*:ref: chkin_ 14 2 13 124 */ 5089 /*:ref: cpos_ 4 5 13 13 4 124 124 */ 5090 /*:ref: sctiks_ 14 4 4 13 7 124 */ 5091 /*:ref: scpart_ 14 4 4 4 7 7 */ 5092 /*:ref: setmsg_ 14 2 13 124 */ 5093 /*:ref: errint_ 14 3 13 4 124 */ 5094 /*:ref: sigerr_ 14 2 13 124 */ 5095 /*:ref: chkout_ 14 2 13 124 */ 5096 /*:ref: errch_ 14 4 13 13 124 124 */ 5097 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 5098 5099 extern int scfmt_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); 5100 /*:ref: return_ 12 0 */ 5101 /*:ref: chkin_ 14 2 13 124 */ 5102 /*:ref: sctype_ 4 1 4 */ 5103 /*:ref: scfm01_ 14 4 4 7 13 124 */ 5104 /*:ref: setmsg_ 14 2 13 124 */ 5105 /*:ref: errint_ 14 3 13 4 124 */ 5106 /*:ref: sigerr_ 14 2 13 124 */ 5107 /*:ref: chkout_ 14 2 13 124 */ 5108 5109 extern int sclu01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, doublereal *dval, ftnlen name_len); 5110 extern int scli01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, ftnlen name_len); 5111 extern int scld01_(char *name__, integer *sc, integer *maxnv, integer *n, doublereal *dval, ftnlen name_len); 5112 /*:ref: return_ 12 0 */ 5113 /*:ref: chkin_ 14 2 13 124 */ 5114 /*:ref: sigerr_ 14 2 13 124 */ 5115 /*:ref: chkout_ 14 2 13 124 */ 5116 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 5117 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 5118 /*:ref: rtpool_ 14 5 13 4 7 12 124 */ 5119 /*:ref: setmsg_ 14 2 13 124 */ 5120 /*:ref: errch_ 14 4 13 13 124 124 */ 5121 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 5122 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 5123 /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ 5124 5125 extern int scpars_(integer *sc, char *sclkch, logical *error, char *msg, doublereal *sclkdp, ftnlen sclkch_len, ftnlen msg_len); 5126 /*:ref: return_ 12 0 */ 5127 /*:ref: chkin_ 14 2 13 124 */ 5128 /*:ref: chkout_ 14 2 13 124 */ 5129 /*:ref: cpos_ 4 5 13 13 4 124 124 */ 5130 /*:ref: sctype_ 4 1 4 */ 5131 /*:ref: failed_ 12 0 */ 5132 /*:ref: scps01_ 14 7 4 13 12 13 7 124 124 */ 5133 /*:ref: setmsg_ 14 2 13 124 */ 5134 /*:ref: errint_ 14 3 13 4 124 */ 5135 /*:ref: sigerr_ 14 2 13 124 */ 5136 /*:ref: scpart_ 14 4 4 4 7 7 */ 5137 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 5138 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 5139 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 5140 5141 extern int scpart_(integer *sc, integer *nparts, doublereal *pstart, doublereal *pstop); 5142 /*:ref: return_ 12 0 */ 5143 /*:ref: chkin_ 14 2 13 124 */ 5144 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 5145 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 5146 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 5147 /*:ref: cvpool_ 14 3 13 12 124 */ 5148 /*:ref: scld01_ 14 6 13 4 4 4 7 124 */ 5149 /*:ref: setmsg_ 14 2 13 124 */ 5150 /*:ref: errint_ 14 3 13 4 124 */ 5151 /*:ref: sigerr_ 14 2 13 124 */ 5152 /*:ref: chkout_ 14 2 13 124 */ 5153 5154 extern int scps01_(integer *sc, char *clkstr, logical *error, char *msg, doublereal *ticks, ftnlen clkstr_len, ftnlen msg_len); 5155 /*:ref: return_ 12 0 */ 5156 /*:ref: chkin_ 14 2 13 124 */ 5157 /*:ref: scli01_ 14 6 13 4 4 4 4 124 */ 5158 /*:ref: scld01_ 14 6 13 4 4 4 7 124 */ 5159 /*:ref: failed_ 12 0 */ 5160 /*:ref: chkout_ 14 2 13 124 */ 5161 /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ 5162 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 5163 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 5164 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 5165 5166 extern int scs2e_(integer *sc, char *sclkch, doublereal *et, ftnlen sclkch_len); 5167 /*:ref: return_ 12 0 */ 5168 /*:ref: chkin_ 14 2 13 124 */ 5169 /*:ref: scencd_ 14 4 4 13 7 124 */ 5170 /*:ref: sct2e_ 14 3 4 7 7 */ 5171 /*:ref: chkout_ 14 2 13 124 */ 5172 5173 extern int sct2e_(integer *sc, doublereal *sclkdp, doublereal *et); 5174 /*:ref: return_ 12 0 */ 5175 /*:ref: chkin_ 14 2 13 124 */ 5176 /*:ref: sctype_ 4 1 4 */ 5177 /*:ref: scte01_ 14 3 4 7 7 */ 5178 /*:ref: setmsg_ 14 2 13 124 */ 5179 /*:ref: errint_ 14 3 13 4 124 */ 5180 /*:ref: sigerr_ 14 2 13 124 */ 5181 /*:ref: chkout_ 14 2 13 124 */ 5182 5183 extern int sctiks_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); 5184 /*:ref: return_ 12 0 */ 5185 /*:ref: chkin_ 14 2 13 124 */ 5186 /*:ref: sctype_ 4 1 4 */ 5187 /*:ref: sctk01_ 14 4 4 13 7 124 */ 5188 /*:ref: setmsg_ 14 2 13 124 */ 5189 /*:ref: errint_ 14 3 13 4 124 */ 5190 /*:ref: sigerr_ 14 2 13 124 */ 5191 /*:ref: chkout_ 14 2 13 124 */ 5192 5193 extern int sctran_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); 5194 extern int scn2id_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); 5195 extern int scid2n_(integer *clkid, char *clknam, logical *found, ftnlen clknam_len); 5196 /*:ref: return_ 12 0 */ 5197 /*:ref: chkin_ 14 2 13 124 */ 5198 /*:ref: sigerr_ 14 2 13 124 */ 5199 /*:ref: chkout_ 14 2 13 124 */ 5200 /*:ref: ucase_ 14 4 13 13 124 124 */ 5201 /*:ref: posr_ 4 5 13 13 4 124 124 */ 5202 /*:ref: rtrim_ 4 2 13 124 */ 5203 /*:ref: bodn2c_ 14 4 13 4 12 124 */ 5204 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 5205 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 5206 5207 extern integer sctype_(integer *sc); 5208 /*:ref: return_ 12 0 */ 5209 /*:ref: chkin_ 14 2 13 124 */ 5210 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 5211 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 5212 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 5213 /*:ref: cvpool_ 14 3 13 12 124 */ 5214 /*:ref: scli01_ 14 6 13 4 4 4 4 124 */ 5215 /*:ref: chkout_ 14 2 13 124 */ 5216 5217 extern int sdiffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); 5218 /*:ref: return_ 12 0 */ 5219 /*:ref: chkin_ 14 2 13 124 */ 5220 /*:ref: setmsg_ 14 2 13 124 */ 5221 /*:ref: errint_ 14 3 13 4 124 */ 5222 /*:ref: sigerr_ 14 2 13 124 */ 5223 /*:ref: chkout_ 14 2 13 124 */ 5224 /*:ref: cardc_ 4 2 13 124 */ 5225 /*:ref: sizec_ 4 2 13 124 */ 5226 /*:ref: scardc_ 14 3 4 13 124 */ 5227 /*:ref: excess_ 14 3 4 13 124 */ 5228 5229 extern int sdiffd_(doublereal *a, doublereal *b, doublereal *c__); 5230 /*:ref: return_ 12 0 */ 5231 /*:ref: chkin_ 14 2 13 124 */ 5232 /*:ref: cardd_ 4 1 7 */ 5233 /*:ref: sized_ 4 1 7 */ 5234 /*:ref: scardd_ 14 2 4 7 */ 5235 /*:ref: excess_ 14 3 4 13 124 */ 5236 /*:ref: sigerr_ 14 2 13 124 */ 5237 /*:ref: chkout_ 14 2 13 124 */ 5238 5239 extern int sdiffi_(integer *a, integer *b, integer *c__); 5240 /*:ref: return_ 12 0 */ 5241 /*:ref: chkin_ 14 2 13 124 */ 5242 /*:ref: cardi_ 4 1 4 */ 5243 /*:ref: sizei_ 4 1 4 */ 5244 /*:ref: scardi_ 14 2 4 4 */ 5245 /*:ref: excess_ 14 3 4 13 124 */ 5246 /*:ref: sigerr_ 14 2 13 124 */ 5247 /*:ref: chkout_ 14 2 13 124 */ 5248 5249 extern logical setc_(char *a, char *op, char *b, ftnlen a_len, ftnlen op_len, ftnlen b_len); 5250 /*:ref: return_ 12 0 */ 5251 /*:ref: chkin_ 14 2 13 124 */ 5252 /*:ref: cardc_ 4 2 13 124 */ 5253 /*:ref: chkout_ 14 2 13 124 */ 5254 /*:ref: setmsg_ 14 2 13 124 */ 5255 /*:ref: errch_ 14 4 13 13 124 124 */ 5256 /*:ref: sigerr_ 14 2 13 124 */ 5257 5258 extern logical setd_(doublereal *a, char *op, doublereal *b, ftnlen op_len); 5259 /*:ref: return_ 12 0 */ 5260 /*:ref: chkin_ 14 2 13 124 */ 5261 /*:ref: cardd_ 4 1 7 */ 5262 /*:ref: chkout_ 14 2 13 124 */ 5263 /*:ref: setmsg_ 14 2 13 124 */ 5264 /*:ref: errch_ 14 4 13 13 124 124 */ 5265 /*:ref: sigerr_ 14 2 13 124 */ 5266 5267 extern logical seterr_(logical *status); 5268 extern logical failed_(void); 5269 5270 extern logical seti_(integer *a, char *op, integer *b, ftnlen op_len); 5271 /*:ref: return_ 12 0 */ 5272 /*:ref: chkin_ 14 2 13 124 */ 5273 /*:ref: cardi_ 4 1 4 */ 5274 /*:ref: chkout_ 14 2 13 124 */ 5275 /*:ref: setmsg_ 14 2 13 124 */ 5276 /*:ref: errch_ 14 4 13 13 124 124 */ 5277 /*:ref: sigerr_ 14 2 13 124 */ 5278 5279 extern int setmsg_(char *msg, ftnlen msg_len); 5280 /*:ref: allowd_ 12 0 */ 5281 /*:ref: putlms_ 14 2 13 124 */ 5282 5283 extern int sgfcon_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); 5284 /*:ref: return_ 12 0 */ 5285 /*:ref: chkin_ 14 2 13 124 */ 5286 /*:ref: sgmeta_ 14 4 4 7 4 4 */ 5287 /*:ref: failed_ 12 0 */ 5288 /*:ref: chkout_ 14 2 13 124 */ 5289 /*:ref: setmsg_ 14 2 13 124 */ 5290 /*:ref: errint_ 14 3 13 4 124 */ 5291 /*:ref: sigerr_ 14 2 13 124 */ 5292 /*:ref: dafgda_ 14 4 4 4 4 7 */ 5293 5294 extern int sgfpkt_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values, integer *ends); 5295 /*:ref: return_ 12 0 */ 5296 /*:ref: chkin_ 14 2 13 124 */ 5297 /*:ref: sgmeta_ 14 4 4 7 4 4 */ 5298 /*:ref: failed_ 12 0 */ 5299 /*:ref: chkout_ 14 2 13 124 */ 5300 /*:ref: setmsg_ 14 2 13 124 */ 5301 /*:ref: errint_ 14 3 13 4 124 */ 5302 /*:ref: sigerr_ 14 2 13 124 */ 5303 /*:ref: dafgda_ 14 4 4 4 4 7 */ 5304 5305 extern int sgfref_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); 5306 /*:ref: return_ 12 0 */ 5307 /*:ref: chkin_ 14 2 13 124 */ 5308 /*:ref: sgmeta_ 14 4 4 7 4 4 */ 5309 /*:ref: failed_ 12 0 */ 5310 /*:ref: chkout_ 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: dafgda_ 14 4 4 4 4 7 */ 5315 5316 extern int sgfrvi_(integer *handle, doublereal *descr, doublereal *x, doublereal *value, integer *indx, logical *found); 5317 /*:ref: return_ 12 0 */ 5318 /*:ref: chkin_ 14 2 13 124 */ 5319 /*:ref: intmax_ 4 0 */ 5320 /*:ref: sgmeta_ 14 4 4 7 4 4 */ 5321 /*:ref: failed_ 12 0 */ 5322 /*:ref: chkout_ 14 2 13 124 */ 5323 /*:ref: setmsg_ 14 2 13 124 */ 5324 /*:ref: errint_ 14 3 13 4 124 */ 5325 /*:ref: sigerr_ 14 2 13 124 */ 5326 /*:ref: dafgda_ 14 4 4 4 4 7 */ 5327 /*:ref: lstled_ 4 3 7 4 7 */ 5328 /*:ref: errdp_ 14 3 13 7 124 */ 5329 5330 extern int sgmeta_(integer *handle, doublereal *descr, integer *mnemon, integer *value); 5331 /*:ref: return_ 12 0 */ 5332 /*:ref: moved_ 14 3 7 4 7 */ 5333 /*:ref: chkin_ 14 2 13 124 */ 5334 /*:ref: setmsg_ 14 2 13 124 */ 5335 /*:ref: errint_ 14 3 13 4 124 */ 5336 /*:ref: sigerr_ 14 2 13 124 */ 5337 /*:ref: chkout_ 14 2 13 124 */ 5338 /*:ref: dafhsf_ 14 3 4 4 4 */ 5339 /*:ref: failed_ 12 0 */ 5340 /*:ref: dafgda_ 14 4 4 4 4 7 */ 5341 5342 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); 5343 extern int sgbwfs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *pktsiz, integer *idxtyp, ftnlen segid_len); 5344 extern int sgbwvs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *idxtyp, ftnlen segid_len); 5345 extern int sgwfpk_(integer *handle, integer *npkts, doublereal *pktdat, integer *nrefs, doublereal *refdat); 5346 extern int sgwvpk_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat); 5347 extern int sgwes_(integer *handle); 5348 /*:ref: return_ 12 0 */ 5349 /*:ref: chkin_ 14 2 13 124 */ 5350 /*:ref: setmsg_ 14 2 13 124 */ 5351 /*:ref: sigerr_ 14 2 13 124 */ 5352 /*:ref: chkout_ 14 2 13 124 */ 5353 /*:ref: dafsih_ 14 3 4 13 124 */ 5354 /*:ref: failed_ 12 0 */ 5355 /*:ref: isrchi_ 4 3 4 4 4 */ 5356 /*:ref: errhan_ 14 3 13 4 124 */ 5357 /*:ref: dafhsf_ 14 3 4 4 4 */ 5358 /*:ref: lastnb_ 4 2 13 124 */ 5359 /*:ref: errint_ 14 3 13 4 124 */ 5360 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 5361 /*:ref: dafbna_ 14 4 4 7 13 124 */ 5362 /*:ref: dafada_ 14 2 7 4 */ 5363 /*:ref: dafcad_ 14 1 4 */ 5364 /*:ref: errdp_ 14 3 13 7 124 */ 5365 /*:ref: dafgda_ 14 4 4 4 4 7 */ 5366 /*:ref: dafena_ 14 0 */ 5367 5368 extern int sharpr_(doublereal *rot); 5369 /*:ref: vhatip_ 14 1 7 */ 5370 /*:ref: ucrss_ 14 3 7 7 7 */ 5371 5372 extern int shellc_(integer *ndim, char *array, ftnlen array_len); 5373 /*:ref: swapc_ 14 4 13 13 124 124 */ 5374 5375 extern int shelld_(integer *ndim, doublereal *array); 5376 /*:ref: swapd_ 14 2 7 7 */ 5377 5378 extern int shelli_(integer *ndim, integer *array); 5379 /*:ref: swapi_ 14 2 4 4 */ 5380 5381 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); 5382 /*:ref: return_ 12 0 */ 5383 /*:ref: chkin_ 14 2 13 124 */ 5384 /*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ 5385 /*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ 5386 /*:ref: setmsg_ 14 2 13 124 */ 5387 /*:ref: errch_ 14 4 13 13 124 124 */ 5388 /*:ref: sigerr_ 14 2 13 124 */ 5389 /*:ref: chkout_ 14 2 13 124 */ 5390 5391 extern int shiftl_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); 5392 5393 extern int shiftr_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); 5394 5395 extern int sigdgt_(char *in, char *out, ftnlen in_len, ftnlen out_len); 5396 /*:ref: frstnb_ 4 2 13 124 */ 5397 /*:ref: lastnb_ 4 2 13 124 */ 5398 /*:ref: cpos_ 4 5 13 13 4 124 124 */ 5399 5400 extern int sigerr_(char *msg, ftnlen msg_len); 5401 /*:ref: getact_ 14 1 4 */ 5402 /*:ref: failed_ 12 0 */ 5403 /*:ref: seterr_ 12 1 12 */ 5404 /*:ref: putsms_ 14 2 13 124 */ 5405 /*:ref: freeze_ 14 0 */ 5406 /*:ref: outmsg_ 14 2 13 124 */ 5407 /*:ref: accept_ 12 1 12 */ 5408 /*:ref: byebye_ 14 2 13 124 */ 5409 5410 extern integer sizec_(char *cell, ftnlen cell_len); 5411 /*:ref: return_ 12 0 */ 5412 /*:ref: chkin_ 14 2 13 124 */ 5413 /*:ref: dechar_ 14 3 13 4 124 */ 5414 /*:ref: setmsg_ 14 2 13 124 */ 5415 /*:ref: errint_ 14 3 13 4 124 */ 5416 /*:ref: sigerr_ 14 2 13 124 */ 5417 /*:ref: chkout_ 14 2 13 124 */ 5418 5419 extern integer sized_(doublereal *cell); 5420 /*:ref: return_ 12 0 */ 5421 /*:ref: chkin_ 14 2 13 124 */ 5422 /*:ref: setmsg_ 14 2 13 124 */ 5423 /*:ref: errint_ 14 3 13 4 124 */ 5424 /*:ref: sigerr_ 14 2 13 124 */ 5425 /*:ref: chkout_ 14 2 13 124 */ 5426 5427 extern integer sizei_(integer *cell); 5428 /*:ref: return_ 12 0 */ 5429 /*:ref: chkin_ 14 2 13 124 */ 5430 /*:ref: setmsg_ 14 2 13 124 */ 5431 /*:ref: errint_ 14 3 13 4 124 */ 5432 /*:ref: sigerr_ 14 2 13 124 */ 5433 /*:ref: chkout_ 14 2 13 124 */ 5434 5435 extern logical smsgnd_(doublereal *x, doublereal *y); 5436 5437 extern logical smsgni_(integer *x, integer *y); 5438 5439 extern logical somfls_(logical *logcls, integer *n); 5440 5441 extern logical somtru_(logical *logcls, integer *n); 5442 5443 extern int spca2b_(char *text, char *binary, ftnlen text_len, ftnlen binary_len); 5444 /*:ref: return_ 12 0 */ 5445 /*:ref: chkin_ 14 2 13 124 */ 5446 /*:ref: txtopr_ 14 3 13 4 124 */ 5447 /*:ref: spct2b_ 14 3 4 13 124 */ 5448 /*:ref: chkout_ 14 2 13 124 */ 5449 5450 extern int spcac_(integer *handle, integer *unit, char *bmark, char *emark, ftnlen bmark_len, ftnlen emark_len); 5451 /*:ref: return_ 12 0 */ 5452 /*:ref: chkin_ 14 2 13 124 */ 5453 /*:ref: dafsih_ 14 3 4 13 124 */ 5454 /*:ref: failed_ 12 0 */ 5455 /*:ref: chkout_ 14 2 13 124 */ 5456 /*:ref: locln_ 14 10 4 13 13 13 4 4 12 124 124 124 */ 5457 /*:ref: countc_ 4 5 4 4 4 13 124 */ 5458 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 5459 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 5460 /*:ref: setmsg_ 14 2 13 124 */ 5461 /*:ref: errint_ 14 3 13 4 124 */ 5462 /*:ref: errfnm_ 14 3 13 4 124 */ 5463 /*:ref: sigerr_ 14 2 13 124 */ 5464 /*:ref: dafarr_ 14 2 4 4 */ 5465 /*:ref: lastnb_ 4 2 13 124 */ 5466 5467 extern int spcb2a_(char *binary, char *text, ftnlen binary_len, ftnlen text_len); 5468 /*:ref: return_ 12 0 */ 5469 /*:ref: chkin_ 14 2 13 124 */ 5470 /*:ref: txtopn_ 14 3 13 4 124 */ 5471 /*:ref: spcb2t_ 14 3 13 4 124 */ 5472 /*:ref: chkout_ 14 2 13 124 */ 5473 5474 extern int spcb2t_(char *binary, integer *unit, ftnlen binary_len); 5475 /*:ref: return_ 12 0 */ 5476 /*:ref: chkin_ 14 2 13 124 */ 5477 /*:ref: dafb2t_ 14 3 13 4 124 */ 5478 /*:ref: setmsg_ 14 2 13 124 */ 5479 /*:ref: errfnm_ 14 3 13 4 124 */ 5480 /*:ref: errint_ 14 3 13 4 124 */ 5481 /*:ref: sigerr_ 14 2 13 124 */ 5482 /*:ref: chkout_ 14 2 13 124 */ 5483 /*:ref: dafopr_ 14 3 13 4 124 */ 5484 /*:ref: spcec_ 14 2 4 4 */ 5485 /*:ref: dafcls_ 14 1 4 */ 5486 5487 extern int spcdc_(integer *handle); 5488 /*:ref: return_ 12 0 */ 5489 /*:ref: chkin_ 14 2 13 124 */ 5490 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 5491 /*:ref: dafrrr_ 14 2 4 4 */ 5492 /*:ref: chkout_ 14 2 13 124 */ 5493 5494 extern int spcec_(integer *handle, integer *unit); 5495 /*:ref: return_ 12 0 */ 5496 /*:ref: chkin_ 14 2 13 124 */ 5497 /*:ref: dafsih_ 14 3 4 13 124 */ 5498 /*:ref: failed_ 12 0 */ 5499 /*:ref: chkout_ 14 2 13 124 */ 5500 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 5501 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 5502 /*:ref: setmsg_ 14 2 13 124 */ 5503 /*:ref: errint_ 14 3 13 4 124 */ 5504 /*:ref: errfnm_ 14 3 13 4 124 */ 5505 /*:ref: sigerr_ 14 2 13 124 */ 5506 5507 extern int spcopn_(char *spc, char *ifname, integer *handle, ftnlen spc_len, ftnlen ifname_len); 5508 /*:ref: return_ 12 0 */ 5509 /*:ref: chkin_ 14 2 13 124 */ 5510 /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ 5511 /*:ref: chkout_ 14 2 13 124 */ 5512 5513 extern int spcrfl_(integer *handle, char *line, logical *eoc, ftnlen line_len); 5514 extern int spcrnl_(char *line, logical *eoc, ftnlen line_len); 5515 /*:ref: return_ 12 0 */ 5516 /*:ref: chkin_ 14 2 13 124 */ 5517 /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ 5518 /*:ref: chkout_ 14 2 13 124 */ 5519 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 5520 /*:ref: failed_ 12 0 */ 5521 /*:ref: setmsg_ 14 2 13 124 */ 5522 /*:ref: errint_ 14 3 13 4 124 */ 5523 /*:ref: errfnm_ 14 3 13 4 124 */ 5524 /*:ref: sigerr_ 14 2 13 124 */ 5525 /*:ref: pos_ 4 5 13 13 4 124 124 */ 5526 5527 extern int spct2b_(integer *unit, char *binary, ftnlen binary_len); 5528 /*:ref: return_ 12 0 */ 5529 /*:ref: chkin_ 14 2 13 124 */ 5530 /*:ref: daft2b_ 14 4 4 13 4 124 */ 5531 /*:ref: setmsg_ 14 2 13 124 */ 5532 /*:ref: errint_ 14 3 13 4 124 */ 5533 /*:ref: errfnm_ 14 3 13 4 124 */ 5534 /*:ref: sigerr_ 14 2 13 124 */ 5535 /*:ref: chkout_ 14 2 13 124 */ 5536 /*:ref: ltrim_ 4 2 13 124 */ 5537 /*:ref: getlun_ 14 1 4 */ 5538 /*:ref: rtrim_ 4 2 13 124 */ 5539 /*:ref: dafopw_ 14 3 13 4 124 */ 5540 /*:ref: spcac_ 14 6 4 4 13 13 124 124 */ 5541 /*:ref: dafcls_ 14 1 4 */ 5542 5543 extern doublereal spd_(void); 5544 5545 extern int sphcyl_(doublereal *radius, doublereal *colat, doublereal *slong, doublereal *r__, doublereal *long__, doublereal *z__); 5546 5547 extern int sphlat_(doublereal *r__, doublereal *colat, doublereal *longs, doublereal *radius, doublereal *long__, doublereal *lat); 5548 /*:ref: halfpi_ 7 0 */ 5549 5550 extern int sphrec_(doublereal *r__, doublereal *colat, doublereal *long__, doublereal *rectan); 5551 5552 extern doublereal sphsd_(doublereal *radius, doublereal *long1, doublereal *lat1, doublereal *long2, doublereal *lat2); 5553 /*:ref: return_ 12 0 */ 5554 /*:ref: chkin_ 14 2 13 124 */ 5555 /*:ref: setmsg_ 14 2 13 124 */ 5556 /*:ref: errdp_ 14 3 13 7 124 */ 5557 /*:ref: sigerr_ 14 2 13 124 */ 5558 /*:ref: chkout_ 14 2 13 124 */ 5559 /*:ref: brcktd_ 7 3 7 7 7 */ 5560 5561 extern int spk14a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); 5562 /*:ref: return_ 12 0 */ 5563 /*:ref: chkin_ 14 2 13 124 */ 5564 /*:ref: setmsg_ 14 2 13 124 */ 5565 /*:ref: errhan_ 14 3 13 4 124 */ 5566 /*:ref: errint_ 14 3 13 4 124 */ 5567 /*:ref: sigerr_ 14 2 13 124 */ 5568 /*:ref: chkout_ 14 2 13 124 */ 5569 /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ 5570 5571 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); 5572 /*:ref: return_ 12 0 */ 5573 /*:ref: chkin_ 14 2 13 124 */ 5574 /*:ref: setmsg_ 14 2 13 124 */ 5575 /*:ref: errint_ 14 3 13 4 124 */ 5576 /*:ref: sigerr_ 14 2 13 124 */ 5577 /*:ref: chkout_ 14 2 13 124 */ 5578 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ 5579 /*:ref: failed_ 12 0 */ 5580 /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ 5581 5582 extern int spk14e_(integer *handle); 5583 /*:ref: return_ 12 0 */ 5584 /*:ref: chkin_ 14 2 13 124 */ 5585 /*:ref: sgwes_ 14 1 4 */ 5586 /*:ref: chkout_ 14 2 13 124 */ 5587 5588 extern int spkapo_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 5589 /*:ref: return_ 12 0 */ 5590 /*:ref: chkin_ 14 2 13 124 */ 5591 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 5592 /*:ref: ucase_ 14 4 13 13 124 124 */ 5593 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 5594 /*:ref: setmsg_ 14 2 13 124 */ 5595 /*:ref: errch_ 14 4 13 13 124 124 */ 5596 /*:ref: sigerr_ 14 2 13 124 */ 5597 /*:ref: chkout_ 14 2 13 124 */ 5598 /*:ref: odd_ 12 1 4 */ 5599 /*:ref: irfnum_ 14 3 13 4 124 */ 5600 /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ 5601 /*:ref: vsub_ 14 3 7 7 7 */ 5602 /*:ref: vequ_ 14 2 7 7 */ 5603 /*:ref: vnorm_ 7 1 7 */ 5604 /*:ref: clight_ 7 0 */ 5605 /*:ref: stlabx_ 14 3 7 7 7 */ 5606 /*:ref: stelab_ 14 3 7 7 7 */ 5607 5608 extern int spkapp_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 5609 /*:ref: return_ 12 0 */ 5610 /*:ref: chkin_ 14 2 13 124 */ 5611 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 5612 /*:ref: ucase_ 14 4 13 13 124 124 */ 5613 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 5614 /*:ref: setmsg_ 14 2 13 124 */ 5615 /*:ref: errch_ 14 4 13 13 124 124 */ 5616 /*:ref: sigerr_ 14 2 13 124 */ 5617 /*:ref: chkout_ 14 2 13 124 */ 5618 /*:ref: odd_ 12 1 4 */ 5619 /*:ref: irfnum_ 14 3 13 4 124 */ 5620 /*:ref: spkssb_ 14 5 4 7 13 7 124 */ 5621 /*:ref: vsubg_ 14 4 7 7 4 7 */ 5622 /*:ref: moved_ 14 3 7 4 7 */ 5623 /*:ref: vnorm_ 7 1 7 */ 5624 /*:ref: clight_ 7 0 */ 5625 /*:ref: stlabx_ 14 3 7 7 7 */ 5626 /*:ref: vequ_ 14 2 7 7 */ 5627 /*:ref: stelab_ 14 3 7 7 7 */ 5628 5629 extern int spkbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); 5630 extern int spklef_(char *fname, integer *handle, ftnlen fname_len); 5631 extern int spkuef_(integer *handle); 5632 extern int spksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); 5633 /*:ref: return_ 12 0 */ 5634 /*:ref: chkin_ 14 2 13 124 */ 5635 /*:ref: sigerr_ 14 2 13 124 */ 5636 /*:ref: chkout_ 14 2 13 124 */ 5637 /*:ref: lnkini_ 14 2 4 4 */ 5638 /*:ref: dafopr_ 14 3 13 4 124 */ 5639 /*:ref: failed_ 12 0 */ 5640 /*:ref: isrchi_ 4 3 4 4 4 */ 5641 /*:ref: dafcls_ 14 1 4 */ 5642 /*:ref: lnknxt_ 4 2 4 4 */ 5643 /*:ref: lnkfsl_ 14 3 4 4 4 */ 5644 /*:ref: setmsg_ 14 2 13 124 */ 5645 /*:ref: errint_ 14 3 13 4 124 */ 5646 /*:ref: intmax_ 4 0 */ 5647 /*:ref: moved_ 14 3 7 4 7 */ 5648 /*:ref: lnkprv_ 4 2 4 4 */ 5649 /*:ref: dpmin_ 7 0 */ 5650 /*:ref: dpmax_ 7 0 */ 5651 /*:ref: cleard_ 14 2 4 7 */ 5652 /*:ref: dafbfs_ 14 1 4 */ 5653 /*:ref: daffna_ 14 1 12 */ 5654 /*:ref: dafgs_ 14 1 7 */ 5655 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 5656 /*:ref: dafbbs_ 14 1 4 */ 5657 /*:ref: daffpa_ 14 1 12 */ 5658 /*:ref: lnknfn_ 4 1 4 */ 5659 /*:ref: lnkan_ 14 2 4 4 */ 5660 /*:ref: dafgn_ 14 2 13 124 */ 5661 /*:ref: lnkilb_ 14 3 4 4 4 */ 5662 /*:ref: lnkila_ 14 3 4 4 4 */ 5663 /*:ref: lnktl_ 4 2 4 4 */ 5664 5665 extern int spkcls_(integer *handle); 5666 /*:ref: return_ 12 0 */ 5667 /*:ref: chkin_ 14 2 13 124 */ 5668 /*:ref: dafbfs_ 14 1 4 */ 5669 /*:ref: daffna_ 14 1 12 */ 5670 /*:ref: failed_ 12 0 */ 5671 /*:ref: chkout_ 14 2 13 124 */ 5672 /*:ref: setmsg_ 14 2 13 124 */ 5673 /*:ref: errhan_ 14 3 13 4 124 */ 5674 /*:ref: sigerr_ 14 2 13 124 */ 5675 /*:ref: dafcls_ 14 1 4 */ 5676 5677 extern int spkcov_(char *spk, integer *idcode, doublereal *cover, ftnlen spk_len); 5678 /*:ref: return_ 12 0 */ 5679 /*:ref: chkin_ 14 2 13 124 */ 5680 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ 5681 /*:ref: setmsg_ 14 2 13 124 */ 5682 /*:ref: errch_ 14 4 13 13 124 124 */ 5683 /*:ref: sigerr_ 14 2 13 124 */ 5684 /*:ref: chkout_ 14 2 13 124 */ 5685 /*:ref: dafopr_ 14 3 13 4 124 */ 5686 /*:ref: failed_ 12 0 */ 5687 /*:ref: dafbfs_ 14 1 4 */ 5688 /*:ref: daffna_ 14 1 12 */ 5689 /*:ref: dafgs_ 14 1 7 */ 5690 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 5691 /*:ref: wninsd_ 14 3 7 7 7 */ 5692 /*:ref: dafcls_ 14 1 4 */ 5693 5694 extern int spke01_(doublereal *et, doublereal *record, doublereal *state); 5695 /*:ref: return_ 12 0 */ 5696 /*:ref: moved_ 14 3 7 4 7 */ 5697 5698 extern int spke02_(doublereal *et, doublereal *record, doublereal *xyzdot); 5699 /*:ref: return_ 12 0 */ 5700 /*:ref: chkin_ 14 2 13 124 */ 5701 /*:ref: chbint_ 14 6 7 4 7 7 7 7 */ 5702 /*:ref: chkout_ 14 2 13 124 */ 5703 5704 extern int spke03_(doublereal *et, doublereal *record, doublereal *state); 5705 /*:ref: return_ 12 0 */ 5706 /*:ref: chkin_ 14 2 13 124 */ 5707 /*:ref: chbval_ 14 5 7 4 7 7 7 */ 5708 /*:ref: chkout_ 14 2 13 124 */ 5709 5710 extern int spke05_(doublereal *et, doublereal *record, doublereal *state); 5711 /*:ref: return_ 12 0 */ 5712 /*:ref: chkin_ 14 2 13 124 */ 5713 /*:ref: moved_ 14 3 7 4 7 */ 5714 /*:ref: prop2b_ 14 4 7 7 7 7 */ 5715 /*:ref: pi_ 7 0 */ 5716 /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ 5717 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 5718 /*:ref: vadd_ 14 3 7 7 7 */ 5719 /*:ref: vequ_ 14 2 7 7 */ 5720 /*:ref: chkout_ 14 2 13 124 */ 5721 5722 extern int spke08_(doublereal *et, doublereal *record, doublereal *state); 5723 /*:ref: return_ 12 0 */ 5724 /*:ref: xposeg_ 14 4 7 4 4 7 */ 5725 /*:ref: moved_ 14 3 7 4 7 */ 5726 /*:ref: lgresp_ 7 6 4 7 7 7 7 7 */ 5727 5728 extern int spke09_(doublereal *et, doublereal *record, doublereal *state); 5729 /*:ref: return_ 12 0 */ 5730 /*:ref: xposeg_ 14 4 7 4 4 7 */ 5731 /*:ref: moved_ 14 3 7 4 7 */ 5732 /*:ref: lgrint_ 7 5 4 7 7 7 7 */ 5733 5734 extern int spke10_(doublereal *et, doublereal *record, doublereal *state); 5735 /*:ref: return_ 12 0 */ 5736 /*:ref: chkin_ 14 2 13 124 */ 5737 /*:ref: pi_ 7 0 */ 5738 /*:ref: twopi_ 7 0 */ 5739 /*:ref: spd_ 7 0 */ 5740 /*:ref: ev2lin_ 14 4 7 7 7 7 */ 5741 /*:ref: dpspce_ 14 4 7 7 7 7 */ 5742 /*:ref: brcktd_ 7 3 7 7 7 */ 5743 /*:ref: zzmobliq_ 14 3 7 7 7 */ 5744 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 5745 /*:ref: mtxv_ 14 3 7 7 7 */ 5746 /*:ref: moved_ 14 3 7 4 7 */ 5747 /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ 5748 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 5749 /*:ref: vadd_ 14 3 7 7 7 */ 5750 /*:ref: vequ_ 14 2 7 7 */ 5751 /*:ref: zzeprcss_ 14 2 7 7 */ 5752 /*:ref: chkout_ 14 2 13 124 */ 5753 5754 extern int spke12_(doublereal *et, doublereal *record, doublereal *state); 5755 /*:ref: return_ 12 0 */ 5756 /*:ref: chkin_ 14 2 13 124 */ 5757 /*:ref: hrmesp_ 14 8 4 7 7 7 7 7 7 7 */ 5758 /*:ref: chkout_ 14 2 13 124 */ 5759 5760 extern int spke13_(doublereal *et, doublereal *record, doublereal *state); 5761 /*:ref: return_ 12 0 */ 5762 /*:ref: chkin_ 14 2 13 124 */ 5763 /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ 5764 /*:ref: chkout_ 14 2 13 124 */ 5765 5766 extern int spke14_(doublereal *et, doublereal *record, doublereal *state); 5767 /*:ref: return_ 12 0 */ 5768 /*:ref: chkin_ 14 2 13 124 */ 5769 /*:ref: chbval_ 14 5 7 4 7 7 7 */ 5770 /*:ref: chkout_ 14 2 13 124 */ 5771 5772 extern int spke15_(doublereal *et, doublereal *recin, doublereal *state); 5773 /*:ref: return_ 12 0 */ 5774 /*:ref: chkin_ 14 2 13 124 */ 5775 /*:ref: vequ_ 14 2 7 7 */ 5776 /*:ref: setmsg_ 14 2 13 124 */ 5777 /*:ref: errdp_ 14 3 13 7 124 */ 5778 /*:ref: sigerr_ 14 2 13 124 */ 5779 /*:ref: chkout_ 14 2 13 124 */ 5780 /*:ref: vzero_ 12 1 7 */ 5781 /*:ref: vhatip_ 14 1 7 */ 5782 /*:ref: vdot_ 7 2 7 7 */ 5783 /*:ref: vsep_ 7 2 7 7 */ 5784 /*:ref: dpr_ 7 0 */ 5785 /*:ref: vscl_ 14 3 7 7 7 */ 5786 /*:ref: vcrss_ 14 3 7 7 7 */ 5787 /*:ref: vsclip_ 14 2 7 7 */ 5788 /*:ref: prop2b_ 14 4 7 7 7 7 */ 5789 /*:ref: twopi_ 7 0 */ 5790 /*:ref: pi_ 7 0 */ 5791 /*:ref: vrotv_ 14 4 7 7 7 7 */ 5792 /*:ref: moved_ 14 3 7 4 7 */ 5793 5794 extern int spke17_(doublereal *et, doublereal *recin, doublereal *state); 5795 /*:ref: return_ 12 0 */ 5796 /*:ref: chkin_ 14 2 13 124 */ 5797 /*:ref: setmsg_ 14 2 13 124 */ 5798 /*:ref: errdp_ 14 3 13 7 124 */ 5799 /*:ref: sigerr_ 14 2 13 124 */ 5800 /*:ref: chkout_ 14 2 13 124 */ 5801 /*:ref: eqncpv_ 14 6 7 7 7 7 7 7 */ 5802 5803 extern int spke18_(doublereal *et, doublereal *record, doublereal *state); 5804 /*:ref: return_ 12 0 */ 5805 /*:ref: chkin_ 14 2 13 124 */ 5806 /*:ref: setmsg_ 14 2 13 124 */ 5807 /*:ref: errint_ 14 3 13 4 124 */ 5808 /*:ref: sigerr_ 14 2 13 124 */ 5809 /*:ref: chkout_ 14 2 13 124 */ 5810 /*:ref: xpsgip_ 14 3 4 4 7 */ 5811 /*:ref: lgrint_ 7 5 4 7 7 7 7 */ 5812 /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ 5813 /*:ref: vequ_ 14 2 7 7 */ 5814 5815 extern int spkez_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 5816 /*:ref: return_ 12 0 */ 5817 /*:ref: chkin_ 14 2 13 124 */ 5818 /*:ref: namfrm_ 14 3 13 4 124 */ 5819 /*:ref: ltrim_ 4 2 13 124 */ 5820 /*:ref: eqchr_ 12 4 13 13 124 124 */ 5821 /*:ref: eqstr_ 12 4 13 13 124 124 */ 5822 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ 5823 /*:ref: setmsg_ 14 2 13 124 */ 5824 /*:ref: errch_ 14 4 13 13 124 124 */ 5825 /*:ref: sigerr_ 14 2 13 124 */ 5826 /*:ref: chkout_ 14 2 13 124 */ 5827 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 5828 /*:ref: spkssb_ 14 5 4 7 13 7 124 */ 5829 /*:ref: spkapp_ 14 9 4 7 13 7 13 7 7 124 124 */ 5830 /*:ref: failed_ 12 0 */ 5831 /*:ref: frmchg_ 14 4 4 4 7 7 */ 5832 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 5833 5834 extern int spkezp_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 5835 /*:ref: return_ 12 0 */ 5836 /*:ref: chkin_ 14 2 13 124 */ 5837 /*:ref: namfrm_ 14 3 13 4 124 */ 5838 /*:ref: ltrim_ 4 2 13 124 */ 5839 /*:ref: eqchr_ 12 4 13 13 124 124 */ 5840 /*:ref: eqstr_ 12 4 13 13 124 124 */ 5841 /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ 5842 /*:ref: setmsg_ 14 2 13 124 */ 5843 /*:ref: errch_ 14 4 13 13 124 124 */ 5844 /*:ref: sigerr_ 14 2 13 124 */ 5845 /*:ref: chkout_ 14 2 13 124 */ 5846 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 5847 /*:ref: spkssb_ 14 5 4 7 13 7 124 */ 5848 /*:ref: spkapo_ 14 9 4 7 13 7 13 7 7 124 124 */ 5849 /*:ref: failed_ 12 0 */ 5850 /*:ref: refchg_ 14 4 4 4 7 7 */ 5851 /*:ref: mxv_ 14 3 7 7 7 */ 5852 5853 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); 5854 /*:ref: return_ 12 0 */ 5855 /*:ref: chkin_ 14 2 13 124 */ 5856 /*:ref: zzbodn2c_ 14 4 13 4 12 124 */ 5857 /*:ref: beint_ 12 2 13 124 */ 5858 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 5859 /*:ref: setmsg_ 14 2 13 124 */ 5860 /*:ref: errch_ 14 4 13 13 124 124 */ 5861 /*:ref: sigerr_ 14 2 13 124 */ 5862 /*:ref: chkout_ 14 2 13 124 */ 5863 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ 5864 5865 extern int spkgeo_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); 5866 /*:ref: return_ 12 0 */ 5867 /*:ref: chkin_ 14 2 13 124 */ 5868 /*:ref: cleard_ 14 2 4 7 */ 5869 /*:ref: chkout_ 14 2 13 124 */ 5870 /*:ref: irfnum_ 14 3 13 4 124 */ 5871 /*:ref: namfrm_ 14 3 13 4 124 */ 5872 /*:ref: frstnp_ 4 2 13 124 */ 5873 /*:ref: setmsg_ 14 2 13 124 */ 5874 /*:ref: errch_ 14 4 13 13 124 124 */ 5875 /*:ref: sigerr_ 14 2 13 124 */ 5876 /*:ref: failed_ 12 0 */ 5877 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ 5878 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ 5879 /*:ref: moved_ 14 3 7 4 7 */ 5880 /*:ref: irfrot_ 14 3 4 4 7 */ 5881 /*:ref: mxv_ 14 3 7 7 7 */ 5882 /*:ref: frmchg_ 14 4 4 4 7 7 */ 5883 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 5884 /*:ref: vaddg_ 14 4 7 7 4 7 */ 5885 /*:ref: isrchi_ 4 3 4 4 4 */ 5886 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 5887 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 5888 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 5889 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 5890 /*:ref: intstr_ 14 3 4 13 124 */ 5891 /*:ref: etcal_ 14 3 7 13 124 */ 5892 /*:ref: vsubg_ 14 4 7 7 4 7 */ 5893 /*:ref: vnorm_ 7 1 7 */ 5894 /*:ref: clight_ 7 0 */ 5895 5896 extern int spkgps_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); 5897 /*:ref: return_ 12 0 */ 5898 /*:ref: chkin_ 14 2 13 124 */ 5899 /*:ref: cleard_ 14 2 4 7 */ 5900 /*:ref: chkout_ 14 2 13 124 */ 5901 /*:ref: irfnum_ 14 3 13 4 124 */ 5902 /*:ref: namfrm_ 14 3 13 4 124 */ 5903 /*:ref: frstnp_ 4 2 13 124 */ 5904 /*:ref: setmsg_ 14 2 13 124 */ 5905 /*:ref: errch_ 14 4 13 13 124 124 */ 5906 /*:ref: sigerr_ 14 2 13 124 */ 5907 /*:ref: failed_ 12 0 */ 5908 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ 5909 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ 5910 /*:ref: moved_ 14 3 7 4 7 */ 5911 /*:ref: irfrot_ 14 3 4 4 7 */ 5912 /*:ref: mxv_ 14 3 7 7 7 */ 5913 /*:ref: refchg_ 14 4 4 4 7 7 */ 5914 /*:ref: vadd_ 14 3 7 7 7 */ 5915 /*:ref: vequ_ 14 2 7 7 */ 5916 /*:ref: isrchi_ 4 3 4 4 4 */ 5917 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 5918 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 5919 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 5920 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 5921 /*:ref: intstr_ 14 3 4 13 124 */ 5922 /*:ref: etcal_ 14 3 7 13 124 */ 5923 /*:ref: vsub_ 14 3 7 7 7 */ 5924 /*:ref: vnorm_ 7 1 7 */ 5925 /*:ref: clight_ 7 0 */ 5926 5927 extern int spkobj_(char *spk, integer *ids, ftnlen spk_len); 5928 /*:ref: return_ 12 0 */ 5929 /*:ref: chkin_ 14 2 13 124 */ 5930 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ 5931 /*:ref: setmsg_ 14 2 13 124 */ 5932 /*:ref: errch_ 14 4 13 13 124 124 */ 5933 /*:ref: sigerr_ 14 2 13 124 */ 5934 /*:ref: chkout_ 14 2 13 124 */ 5935 /*:ref: dafopr_ 14 3 13 4 124 */ 5936 /*:ref: failed_ 12 0 */ 5937 /*:ref: dafbfs_ 14 1 4 */ 5938 /*:ref: daffna_ 14 1 12 */ 5939 /*:ref: dafgs_ 14 1 7 */ 5940 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 5941 /*:ref: insrti_ 14 2 4 4 */ 5942 /*:ref: dafcls_ 14 1 4 */ 5943 5944 extern int spkopa_(char *file, integer *handle, ftnlen file_len); 5945 /*:ref: return_ 12 0 */ 5946 /*:ref: chkin_ 14 2 13 124 */ 5947 /*:ref: exists_ 12 2 13 124 */ 5948 /*:ref: setmsg_ 14 2 13 124 */ 5949 /*:ref: errch_ 14 4 13 13 124 124 */ 5950 /*:ref: sigerr_ 14 2 13 124 */ 5951 /*:ref: chkout_ 14 2 13 124 */ 5952 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ 5953 /*:ref: failed_ 12 0 */ 5954 /*:ref: dafopw_ 14 3 13 4 124 */ 5955 5956 extern int spkopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len); 5957 /*:ref: return_ 12 0 */ 5958 /*:ref: chkin_ 14 2 13 124 */ 5959 /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ 5960 /*:ref: failed_ 12 0 */ 5961 /*:ref: chkout_ 14 2 13 124 */ 5962 5963 extern int spkpds_(integer *body, integer *center, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); 5964 /*:ref: return_ 12 0 */ 5965 /*:ref: chkin_ 14 2 13 124 */ 5966 /*:ref: setmsg_ 14 2 13 124 */ 5967 /*:ref: sigerr_ 14 2 13 124 */ 5968 /*:ref: chkout_ 14 2 13 124 */ 5969 /*:ref: errint_ 14 3 13 4 124 */ 5970 /*:ref: namfrm_ 14 3 13 4 124 */ 5971 /*:ref: errch_ 14 4 13 13 124 124 */ 5972 /*:ref: etcal_ 14 3 7 13 124 */ 5973 /*:ref: errdp_ 14 3 13 7 124 */ 5974 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 5975 5976 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); 5977 /*:ref: return_ 12 0 */ 5978 /*:ref: chkin_ 14 2 13 124 */ 5979 /*:ref: zzbodn2c_ 14 4 13 4 12 124 */ 5980 /*:ref: beint_ 12 2 13 124 */ 5981 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 5982 /*:ref: setmsg_ 14 2 13 124 */ 5983 /*:ref: errch_ 14 4 13 13 124 124 */ 5984 /*:ref: sigerr_ 14 2 13 124 */ 5985 /*:ref: chkout_ 14 2 13 124 */ 5986 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ 5987 5988 extern int spkpv_(integer *handle, doublereal *descr, doublereal *et, char *ref, doublereal *state, integer *center, ftnlen ref_len); 5989 /*:ref: return_ 12 0 */ 5990 /*:ref: chkin_ 14 2 13 124 */ 5991 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 5992 /*:ref: namfrm_ 14 3 13 4 124 */ 5993 /*:ref: setmsg_ 14 2 13 124 */ 5994 /*:ref: errch_ 14 4 13 13 124 124 */ 5995 /*:ref: sigerr_ 14 2 13 124 */ 5996 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ 5997 /*:ref: frmchg_ 14 4 4 4 7 7 */ 5998 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 5999 /*:ref: chkout_ 14 2 13 124 */ 6000 6001 extern int spkpvn_(integer *handle, doublereal *descr, doublereal *et, integer *ref, doublereal *state, integer *center); 6002 /*:ref: return_ 12 0 */ 6003 /*:ref: chkin_ 14 2 13 124 */ 6004 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6005 /*:ref: spkr01_ 14 4 4 7 7 7 */ 6006 /*:ref: spke01_ 14 3 7 7 7 */ 6007 /*:ref: spkr02_ 14 4 4 7 7 7 */ 6008 /*:ref: spke02_ 14 3 7 7 7 */ 6009 /*:ref: spkr03_ 14 4 4 7 7 7 */ 6010 /*:ref: spke03_ 14 3 7 7 7 */ 6011 /*:ref: spkr05_ 14 4 4 7 7 7 */ 6012 /*:ref: spke05_ 14 3 7 7 7 */ 6013 /*:ref: spkr08_ 14 4 4 7 7 7 */ 6014 /*:ref: spke08_ 14 3 7 7 7 */ 6015 /*:ref: spkr09_ 14 4 4 7 7 7 */ 6016 /*:ref: spke09_ 14 3 7 7 7 */ 6017 /*:ref: spkr10_ 14 4 4 7 7 7 */ 6018 /*:ref: spke10_ 14 3 7 7 7 */ 6019 /*:ref: spkr12_ 14 4 4 7 7 7 */ 6020 /*:ref: spke12_ 14 3 7 7 7 */ 6021 /*:ref: spkr13_ 14 4 4 7 7 7 */ 6022 /*:ref: spke13_ 14 3 7 7 7 */ 6023 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ 6024 /*:ref: failed_ 12 0 */ 6025 /*:ref: chkout_ 14 2 13 124 */ 6026 /*:ref: setmsg_ 14 2 13 124 */ 6027 /*:ref: errint_ 14 3 13 4 124 */ 6028 /*:ref: sigerr_ 14 2 13 124 */ 6029 /*:ref: spkr14_ 14 4 4 7 7 7 */ 6030 /*:ref: spke14_ 14 3 7 7 7 */ 6031 /*:ref: spkr15_ 14 4 4 7 7 7 */ 6032 /*:ref: spke15_ 14 3 7 7 7 */ 6033 /*:ref: spkr17_ 14 4 4 7 7 7 */ 6034 /*:ref: spke17_ 14 3 7 7 7 */ 6035 /*:ref: spkr18_ 14 4 4 7 7 7 */ 6036 /*:ref: spke18_ 14 3 7 7 7 */ 6037 6038 extern int spkr01_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6039 /*:ref: return_ 12 0 */ 6040 /*:ref: chkin_ 14 2 13 124 */ 6041 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6042 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6043 /*:ref: lstltd_ 4 3 7 4 7 */ 6044 /*:ref: chkout_ 14 2 13 124 */ 6045 6046 extern int spkr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6047 /*:ref: return_ 12 0 */ 6048 /*:ref: chkin_ 14 2 13 124 */ 6049 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6050 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6051 /*:ref: chkout_ 14 2 13 124 */ 6052 6053 extern int spkr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6054 /*:ref: return_ 12 0 */ 6055 /*:ref: chkin_ 14 2 13 124 */ 6056 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6057 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6058 /*:ref: chkout_ 14 2 13 124 */ 6059 6060 extern int spkr05_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6061 /*:ref: return_ 12 0 */ 6062 /*:ref: chkin_ 14 2 13 124 */ 6063 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6064 /*:ref: setmsg_ 14 2 13 124 */ 6065 /*:ref: errint_ 14 3 13 4 124 */ 6066 /*:ref: sigerr_ 14 2 13 124 */ 6067 /*:ref: chkout_ 14 2 13 124 */ 6068 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6069 /*:ref: lstltd_ 4 3 7 4 7 */ 6070 /*:ref: moved_ 14 3 7 4 7 */ 6071 6072 extern int spkr08_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6073 /*:ref: return_ 12 0 */ 6074 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6075 /*:ref: chkin_ 14 2 13 124 */ 6076 /*:ref: setmsg_ 14 2 13 124 */ 6077 /*:ref: errint_ 14 3 13 4 124 */ 6078 /*:ref: sigerr_ 14 2 13 124 */ 6079 /*:ref: chkout_ 14 2 13 124 */ 6080 /*:ref: errdp_ 14 3 13 7 124 */ 6081 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6082 /*:ref: odd_ 12 1 4 */ 6083 6084 extern int spkr09_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6085 /*:ref: return_ 12 0 */ 6086 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6087 /*:ref: chkin_ 14 2 13 124 */ 6088 /*:ref: setmsg_ 14 2 13 124 */ 6089 /*:ref: errint_ 14 3 13 4 124 */ 6090 /*:ref: sigerr_ 14 2 13 124 */ 6091 /*:ref: chkout_ 14 2 13 124 */ 6092 /*:ref: errdp_ 14 3 13 7 124 */ 6093 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6094 /*:ref: lstltd_ 4 3 7 4 7 */ 6095 /*:ref: odd_ 12 1 4 */ 6096 6097 extern int spkr10_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6098 /*:ref: return_ 12 0 */ 6099 /*:ref: chkin_ 14 2 13 124 */ 6100 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ 6101 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ 6102 /*:ref: sgmeta_ 14 4 4 7 4 4 */ 6103 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ 6104 /*:ref: moved_ 14 3 7 4 7 */ 6105 /*:ref: chkout_ 14 2 13 124 */ 6106 6107 extern int spkr12_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6108 /*:ref: return_ 12 0 */ 6109 /*:ref: chkin_ 14 2 13 124 */ 6110 /*:ref: spkr08_ 14 4 4 7 7 7 */ 6111 /*:ref: chkout_ 14 2 13 124 */ 6112 6113 extern int spkr13_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6114 /*:ref: return_ 12 0 */ 6115 /*:ref: chkin_ 14 2 13 124 */ 6116 /*:ref: spkr09_ 14 4 4 7 7 7 */ 6117 /*:ref: chkout_ 14 2 13 124 */ 6118 6119 extern int spkr14_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6120 /*:ref: return_ 12 0 */ 6121 /*:ref: chkin_ 14 2 13 124 */ 6122 /*:ref: setmsg_ 14 2 13 124 */ 6123 /*:ref: errdp_ 14 3 13 7 124 */ 6124 /*:ref: sigerr_ 14 2 13 124 */ 6125 /*:ref: chkout_ 14 2 13 124 */ 6126 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ 6127 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ 6128 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ 6129 6130 extern int spkr15_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6131 /*:ref: return_ 12 0 */ 6132 /*:ref: chkin_ 14 2 13 124 */ 6133 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6134 /*:ref: setmsg_ 14 2 13 124 */ 6135 /*:ref: errint_ 14 3 13 4 124 */ 6136 /*:ref: sigerr_ 14 2 13 124 */ 6137 /*:ref: chkout_ 14 2 13 124 */ 6138 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6139 6140 extern int spkr17_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6141 /*:ref: return_ 12 0 */ 6142 /*:ref: chkin_ 14 2 13 124 */ 6143 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6144 /*:ref: setmsg_ 14 2 13 124 */ 6145 /*:ref: errint_ 14 3 13 4 124 */ 6146 /*:ref: sigerr_ 14 2 13 124 */ 6147 /*:ref: chkout_ 14 2 13 124 */ 6148 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6149 6150 extern int spkr18_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); 6151 /*:ref: return_ 12 0 */ 6152 /*:ref: chkin_ 14 2 13 124 */ 6153 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6154 /*:ref: setmsg_ 14 2 13 124 */ 6155 /*:ref: errint_ 14 3 13 4 124 */ 6156 /*:ref: sigerr_ 14 2 13 124 */ 6157 /*:ref: chkout_ 14 2 13 124 */ 6158 /*:ref: errdp_ 14 3 13 7 124 */ 6159 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6160 /*:ref: failed_ 12 0 */ 6161 /*:ref: odd_ 12 1 4 */ 6162 /*:ref: lstltd_ 4 3 7 4 7 */ 6163 6164 extern int spks01_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6165 /*:ref: return_ 12 0 */ 6166 /*:ref: chkin_ 14 2 13 124 */ 6167 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6168 /*:ref: dafada_ 14 2 7 4 */ 6169 /*:ref: chkout_ 14 2 13 124 */ 6170 6171 extern int spks02_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6172 /*:ref: return_ 12 0 */ 6173 /*:ref: chkin_ 14 2 13 124 */ 6174 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6175 /*:ref: dafada_ 14 2 7 4 */ 6176 /*:ref: chkout_ 14 2 13 124 */ 6177 6178 extern int spks03_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6179 /*:ref: return_ 12 0 */ 6180 /*:ref: chkin_ 14 2 13 124 */ 6181 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6182 /*:ref: dafada_ 14 2 7 4 */ 6183 /*:ref: chkout_ 14 2 13 124 */ 6184 6185 extern int spks05_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6186 /*:ref: return_ 12 0 */ 6187 /*:ref: chkin_ 14 2 13 124 */ 6188 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6189 /*:ref: dafada_ 14 2 7 4 */ 6190 /*:ref: chkout_ 14 2 13 124 */ 6191 6192 extern int spks08_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6193 /*:ref: return_ 12 0 */ 6194 /*:ref: chkin_ 14 2 13 124 */ 6195 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6196 /*:ref: chkout_ 14 2 13 124 */ 6197 /*:ref: dafada_ 14 2 7 4 */ 6198 6199 extern int spks09_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6200 /*:ref: return_ 12 0 */ 6201 /*:ref: chkin_ 14 2 13 124 */ 6202 /*:ref: chkout_ 14 2 13 124 */ 6203 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6204 /*:ref: dafada_ 14 2 7 4 */ 6205 6206 extern int spks10_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); 6207 /*:ref: return_ 12 0 */ 6208 /*:ref: chkin_ 14 2 13 124 */ 6209 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6210 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ 6211 /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ 6212 /*:ref: failed_ 12 0 */ 6213 /*:ref: chkout_ 14 2 13 124 */ 6214 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ 6215 /*:ref: etcal_ 14 3 7 13 124 */ 6216 /*:ref: setmsg_ 14 2 13 124 */ 6217 /*:ref: errch_ 14 4 13 13 124 124 */ 6218 /*:ref: sigerr_ 14 2 13 124 */ 6219 /*:ref: sgmeta_ 14 4 4 7 4 4 */ 6220 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ 6221 /*:ref: sgfref_ 14 5 4 7 4 4 7 */ 6222 /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ 6223 /*:ref: sgwes_ 14 1 4 */ 6224 6225 extern int spks12_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6226 /*:ref: return_ 12 0 */ 6227 /*:ref: chkin_ 14 2 13 124 */ 6228 /*:ref: spks08_ 14 5 4 4 4 7 7 */ 6229 /*:ref: chkout_ 14 2 13 124 */ 6230 6231 extern int spks13_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6232 /*:ref: return_ 12 0 */ 6233 /*:ref: chkin_ 14 2 13 124 */ 6234 /*:ref: spks09_ 14 5 4 4 4 7 7 */ 6235 /*:ref: chkout_ 14 2 13 124 */ 6236 6237 extern int spks14_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); 6238 /*:ref: return_ 12 0 */ 6239 /*:ref: chkin_ 14 2 13 124 */ 6240 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6241 /*:ref: irfnam_ 14 3 4 13 124 */ 6242 /*:ref: failed_ 12 0 */ 6243 /*:ref: chkout_ 14 2 13 124 */ 6244 /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ 6245 /*:ref: setmsg_ 14 2 13 124 */ 6246 /*:ref: errint_ 14 3 13 4 124 */ 6247 /*:ref: sigerr_ 14 2 13 124 */ 6248 /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ 6249 /*:ref: spk14b_ 14 10 4 13 4 4 13 7 7 4 124 124 */ 6250 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ 6251 /*:ref: sgfref_ 14 5 4 7 4 4 7 */ 6252 /*:ref: spk14a_ 14 4 4 4 7 7 */ 6253 /*:ref: spk14e_ 14 1 4 */ 6254 6255 extern int spks15_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6256 /*:ref: return_ 12 0 */ 6257 /*:ref: chkin_ 14 2 13 124 */ 6258 /*:ref: chkout_ 14 2 13 124 */ 6259 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6260 /*:ref: dafada_ 14 2 7 4 */ 6261 6262 extern int spks17_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6263 /*:ref: return_ 12 0 */ 6264 /*:ref: chkin_ 14 2 13 124 */ 6265 /*:ref: chkout_ 14 2 13 124 */ 6266 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6267 /*:ref: dafada_ 14 2 7 4 */ 6268 6269 extern int spks18_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); 6270 /*:ref: return_ 12 0 */ 6271 /*:ref: chkin_ 14 2 13 124 */ 6272 /*:ref: chkout_ 14 2 13 124 */ 6273 /*:ref: dafgda_ 14 4 4 4 4 7 */ 6274 /*:ref: setmsg_ 14 2 13 124 */ 6275 /*:ref: errint_ 14 3 13 4 124 */ 6276 /*:ref: sigerr_ 14 2 13 124 */ 6277 /*:ref: dafada_ 14 2 7 4 */ 6278 6279 extern int spkssb_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); 6280 /*:ref: return_ 12 0 */ 6281 /*:ref: chkin_ 14 2 13 124 */ 6282 /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ 6283 /*:ref: chkout_ 14 2 13 124 */ 6284 6285 extern int spksub_(integer *handle, doublereal *descr, char *ident, doublereal *begin, doublereal *end, integer *newh, ftnlen ident_len); 6286 /*:ref: return_ 12 0 */ 6287 /*:ref: chkin_ 14 2 13 124 */ 6288 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6289 /*:ref: setmsg_ 14 2 13 124 */ 6290 /*:ref: errdp_ 14 3 13 7 124 */ 6291 /*:ref: sigerr_ 14 2 13 124 */ 6292 /*:ref: chkout_ 14 2 13 124 */ 6293 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 6294 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6295 /*:ref: spks01_ 14 5 4 4 4 7 7 */ 6296 /*:ref: dafena_ 14 0 */ 6297 /*:ref: spks02_ 14 5 4 4 4 7 7 */ 6298 /*:ref: spks03_ 14 5 4 4 4 7 7 */ 6299 /*:ref: spks05_ 14 5 4 4 4 7 7 */ 6300 /*:ref: spks08_ 14 5 4 4 4 7 7 */ 6301 /*:ref: spks09_ 14 5 4 4 4 7 7 */ 6302 /*:ref: spks10_ 14 6 4 7 4 7 13 124 */ 6303 /*:ref: spks12_ 14 5 4 4 4 7 7 */ 6304 /*:ref: spks13_ 14 5 4 4 4 7 7 */ 6305 /*:ref: spks14_ 14 6 4 7 4 7 13 124 */ 6306 /*:ref: spks15_ 14 5 4 4 4 7 7 */ 6307 /*:ref: spks17_ 14 5 4 4 4 7 7 */ 6308 /*:ref: spks18_ 14 5 4 4 4 7 7 */ 6309 /*:ref: errint_ 14 3 13 4 124 */ 6310 6311 extern int spkuds_(doublereal *descr, integer *body, integer *center, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end); 6312 /*:ref: return_ 12 0 */ 6313 /*:ref: chkin_ 14 2 13 124 */ 6314 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 6315 /*:ref: failed_ 12 0 */ 6316 /*:ref: chkout_ 14 2 13 124 */ 6317 6318 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); 6319 /*:ref: return_ 12 0 */ 6320 /*:ref: chkin_ 14 2 13 124 */ 6321 /*:ref: namfrm_ 14 3 13 4 124 */ 6322 /*:ref: setmsg_ 14 2 13 124 */ 6323 /*:ref: errch_ 14 4 13 13 124 124 */ 6324 /*:ref: sigerr_ 14 2 13 124 */ 6325 /*:ref: chkout_ 14 2 13 124 */ 6326 /*:ref: lastnb_ 4 2 13 124 */ 6327 /*:ref: errint_ 14 3 13 4 124 */ 6328 /*:ref: errdp_ 14 3 13 7 124 */ 6329 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ 6330 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6331 /*:ref: failed_ 12 0 */ 6332 /*:ref: dafada_ 14 2 7 4 */ 6333 /*:ref: dafena_ 14 0 */ 6334 6335 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); 6336 /*:ref: return_ 12 0 */ 6337 /*:ref: chkin_ 14 2 13 124 */ 6338 /*:ref: setmsg_ 14 2 13 124 */ 6339 /*:ref: errint_ 14 3 13 4 124 */ 6340 /*:ref: sigerr_ 14 2 13 124 */ 6341 /*:ref: chkout_ 14 2 13 124 */ 6342 /*:ref: errdp_ 14 3 13 7 124 */ 6343 /*:ref: irfnum_ 14 3 13 4 124 */ 6344 /*:ref: errch_ 14 4 13 13 124 124 */ 6345 /*:ref: etcal_ 14 3 7 13 124 */ 6346 /*:ref: chckid_ 14 5 13 4 13 124 124 */ 6347 /*:ref: failed_ 12 0 */ 6348 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 6349 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6350 /*:ref: dafada_ 14 2 7 4 */ 6351 /*:ref: dafena_ 14 0 */ 6352 6353 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); 6354 /*:ref: return_ 12 0 */ 6355 /*:ref: chkin_ 14 2 13 124 */ 6356 /*:ref: setmsg_ 14 2 13 124 */ 6357 /*:ref: errint_ 14 3 13 4 124 */ 6358 /*:ref: sigerr_ 14 2 13 124 */ 6359 /*:ref: chkout_ 14 2 13 124 */ 6360 /*:ref: errdp_ 14 3 13 7 124 */ 6361 /*:ref: irfnum_ 14 3 13 4 124 */ 6362 /*:ref: errch_ 14 4 13 13 124 124 */ 6363 /*:ref: etcal_ 14 3 7 13 124 */ 6364 /*:ref: chckid_ 14 5 13 4 13 124 124 */ 6365 /*:ref: failed_ 12 0 */ 6366 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 6367 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6368 /*:ref: dafada_ 14 2 7 4 */ 6369 /*:ref: dafena_ 14 0 */ 6370 6371 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); 6372 /*:ref: return_ 12 0 */ 6373 /*:ref: chkin_ 14 2 13 124 */ 6374 /*:ref: setmsg_ 14 2 13 124 */ 6375 /*:ref: errdp_ 14 3 13 7 124 */ 6376 /*:ref: sigerr_ 14 2 13 124 */ 6377 /*:ref: chkout_ 14 2 13 124 */ 6378 /*:ref: irfnum_ 14 3 13 4 124 */ 6379 /*:ref: errch_ 14 4 13 13 124 124 */ 6380 /*:ref: errint_ 14 3 13 4 124 */ 6381 /*:ref: lastnb_ 4 2 13 124 */ 6382 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 6383 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6384 /*:ref: failed_ 12 0 */ 6385 /*:ref: dafada_ 14 2 7 4 */ 6386 /*:ref: dafena_ 14 0 */ 6387 6388 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); 6389 /*:ref: return_ 12 0 */ 6390 /*:ref: chkin_ 14 2 13 124 */ 6391 /*:ref: namfrm_ 14 3 13 4 124 */ 6392 /*:ref: setmsg_ 14 2 13 124 */ 6393 /*:ref: errch_ 14 4 13 13 124 124 */ 6394 /*:ref: sigerr_ 14 2 13 124 */ 6395 /*:ref: chkout_ 14 2 13 124 */ 6396 /*:ref: lastnb_ 4 2 13 124 */ 6397 /*:ref: errint_ 14 3 13 4 124 */ 6398 /*:ref: errdp_ 14 3 13 7 124 */ 6399 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 6400 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6401 /*:ref: failed_ 12 0 */ 6402 /*:ref: dafada_ 14 2 7 4 */ 6403 /*:ref: dafena_ 14 0 */ 6404 6405 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); 6406 /*:ref: return_ 12 0 */ 6407 /*:ref: chkin_ 14 2 13 124 */ 6408 /*:ref: namfrm_ 14 3 13 4 124 */ 6409 /*:ref: setmsg_ 14 2 13 124 */ 6410 /*:ref: errch_ 14 4 13 13 124 124 */ 6411 /*:ref: sigerr_ 14 2 13 124 */ 6412 /*:ref: chkout_ 14 2 13 124 */ 6413 /*:ref: errdp_ 14 3 13 7 124 */ 6414 /*:ref: lastnb_ 4 2 13 124 */ 6415 /*:ref: errint_ 14 3 13 4 124 */ 6416 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 6417 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6418 /*:ref: failed_ 12 0 */ 6419 /*:ref: dafada_ 14 2 7 4 */ 6420 /*:ref: dafena_ 14 0 */ 6421 6422 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); 6423 /*:ref: return_ 12 0 */ 6424 /*:ref: chkin_ 14 2 13 124 */ 6425 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ 6426 /*:ref: failed_ 12 0 */ 6427 /*:ref: chkout_ 14 2 13 124 */ 6428 /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ 6429 /*:ref: moved_ 14 3 7 4 7 */ 6430 /*:ref: zzwahr_ 14 2 7 7 */ 6431 /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ 6432 /*:ref: sgwes_ 14 1 4 */ 6433 6434 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); 6435 /*:ref: return_ 12 0 */ 6436 /*:ref: chkin_ 14 2 13 124 */ 6437 /*:ref: namfrm_ 14 3 13 4 124 */ 6438 /*:ref: setmsg_ 14 2 13 124 */ 6439 /*:ref: errch_ 14 4 13 13 124 124 */ 6440 /*:ref: sigerr_ 14 2 13 124 */ 6441 /*:ref: chkout_ 14 2 13 124 */ 6442 /*:ref: lastnb_ 4 2 13 124 */ 6443 /*:ref: errint_ 14 3 13 4 124 */ 6444 /*:ref: even_ 12 1 4 */ 6445 /*:ref: errdp_ 14 3 13 7 124 */ 6446 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ 6447 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6448 /*:ref: failed_ 12 0 */ 6449 /*:ref: dafada_ 14 2 7 4 */ 6450 /*:ref: dafena_ 14 0 */ 6451 6452 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); 6453 /*:ref: return_ 12 0 */ 6454 /*:ref: chkin_ 14 2 13 124 */ 6455 /*:ref: namfrm_ 14 3 13 4 124 */ 6456 /*:ref: setmsg_ 14 2 13 124 */ 6457 /*:ref: errch_ 14 4 13 13 124 124 */ 6458 /*:ref: sigerr_ 14 2 13 124 */ 6459 /*:ref: chkout_ 14 2 13 124 */ 6460 /*:ref: lastnb_ 4 2 13 124 */ 6461 /*:ref: errint_ 14 3 13 4 124 */ 6462 /*:ref: even_ 12 1 4 */ 6463 /*:ref: errdp_ 14 3 13 7 124 */ 6464 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ 6465 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6466 /*:ref: failed_ 12 0 */ 6467 /*:ref: dafada_ 14 2 7 4 */ 6468 /*:ref: dafena_ 14 0 */ 6469 6470 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); 6471 /*:ref: return_ 12 0 */ 6472 /*:ref: chkin_ 14 2 13 124 */ 6473 /*:ref: vequ_ 14 2 7 7 */ 6474 /*:ref: setmsg_ 14 2 13 124 */ 6475 /*:ref: errdp_ 14 3 13 7 124 */ 6476 /*:ref: sigerr_ 14 2 13 124 */ 6477 /*:ref: chkout_ 14 2 13 124 */ 6478 /*:ref: vzero_ 12 1 7 */ 6479 /*:ref: vhat_ 14 2 7 7 */ 6480 /*:ref: vdot_ 7 2 7 7 */ 6481 /*:ref: vsep_ 7 2 7 7 */ 6482 /*:ref: dpr_ 7 0 */ 6483 /*:ref: lastnb_ 4 2 13 124 */ 6484 /*:ref: errint_ 14 3 13 4 124 */ 6485 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ 6486 /*:ref: failed_ 12 0 */ 6487 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6488 /*:ref: dafada_ 14 2 7 4 */ 6489 /*:ref: dafena_ 14 0 */ 6490 6491 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); 6492 /*:ref: return_ 12 0 */ 6493 /*:ref: chkin_ 14 2 13 124 */ 6494 /*:ref: moved_ 14 3 7 4 7 */ 6495 /*:ref: setmsg_ 14 2 13 124 */ 6496 /*:ref: errdp_ 14 3 13 7 124 */ 6497 /*:ref: sigerr_ 14 2 13 124 */ 6498 /*:ref: chkout_ 14 2 13 124 */ 6499 /*:ref: lastnb_ 4 2 13 124 */ 6500 /*:ref: errint_ 14 3 13 4 124 */ 6501 /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ 6502 /*:ref: failed_ 12 0 */ 6503 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6504 /*:ref: dafada_ 14 2 7 4 */ 6505 /*:ref: dafena_ 14 0 */ 6506 6507 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); 6508 /*:ref: return_ 12 0 */ 6509 /*:ref: chkin_ 14 2 13 124 */ 6510 /*:ref: setmsg_ 14 2 13 124 */ 6511 /*:ref: errint_ 14 3 13 4 124 */ 6512 /*:ref: sigerr_ 14 2 13 124 */ 6513 /*:ref: chkout_ 14 2 13 124 */ 6514 /*:ref: namfrm_ 14 3 13 4 124 */ 6515 /*:ref: errch_ 14 4 13 13 124 124 */ 6516 /*:ref: lastnb_ 4 2 13 124 */ 6517 /*:ref: odd_ 12 1 4 */ 6518 /*:ref: errdp_ 14 3 13 7 124 */ 6519 /*:ref: failed_ 12 0 */ 6520 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 6521 /*:ref: dafbna_ 14 4 4 7 13 124 */ 6522 /*:ref: dafada_ 14 2 7 4 */ 6523 /*:ref: dafena_ 14 0 */ 6524 6525 extern int srfrec_(integer *body, doublereal *long__, doublereal *lat, doublereal *rectan); 6526 /*:ref: return_ 12 0 */ 6527 /*:ref: chkin_ 14 2 13 124 */ 6528 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 6529 /*:ref: latrec_ 14 4 7 7 7 7 */ 6530 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ 6531 /*:ref: chkout_ 14 2 13 124 */ 6532 6533 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); 6534 /*:ref: return_ 12 0 */ 6535 /*:ref: chkin_ 14 2 13 124 */ 6536 /*:ref: namfrm_ 14 3 13 4 124 */ 6537 /*:ref: bods2c_ 14 4 13 4 12 124 */ 6538 /*:ref: setmsg_ 14 2 13 124 */ 6539 /*:ref: errch_ 14 4 13 13 124 124 */ 6540 /*:ref: sigerr_ 14 2 13 124 */ 6541 /*:ref: chkout_ 14 2 13 124 */ 6542 /*:ref: ljust_ 14 4 13 13 124 124 */ 6543 /*:ref: ucase_ 14 4 13 13 124 124 */ 6544 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 6545 /*:ref: eqchr_ 12 4 13 13 124 124 */ 6546 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 6547 /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ 6548 /*:ref: vminus_ 14 2 7 7 */ 6549 /*:ref: failed_ 12 0 */ 6550 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 6551 /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ 6552 /*:ref: mxv_ 14 3 7 7 7 */ 6553 /*:ref: spkssb_ 14 5 4 7 13 7 124 */ 6554 /*:ref: stelab_ 14 3 7 7 7 */ 6555 /*:ref: stlabx_ 14 3 7 7 7 */ 6556 /*:ref: vsub_ 14 3 7 7 7 */ 6557 /*:ref: vadd_ 14 3 7 7 7 */ 6558 /*:ref: vequ_ 14 2 7 7 */ 6559 /*:ref: eqstr_ 12 4 13 13 124 124 */ 6560 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 6561 /*:ref: vnorm_ 7 1 7 */ 6562 /*:ref: vsep_ 7 2 7 7 */ 6563 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ 6564 /*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ 6565 /*:ref: vdist_ 7 2 7 7 */ 6566 /*:ref: clight_ 7 0 */ 6567 /*:ref: touchd_ 7 1 7 */ 6568 6569 extern int ssizec_(integer *size, char *cell, ftnlen cell_len); 6570 /*:ref: return_ 12 0 */ 6571 /*:ref: chkin_ 14 2 13 124 */ 6572 /*:ref: setmsg_ 14 2 13 124 */ 6573 /*:ref: errint_ 14 3 13 4 124 */ 6574 /*:ref: sigerr_ 14 2 13 124 */ 6575 /*:ref: chkout_ 14 2 13 124 */ 6576 /*:ref: enchar_ 14 3 4 13 124 */ 6577 6578 extern int ssized_(integer *size, doublereal *cell); 6579 /*:ref: return_ 12 0 */ 6580 /*:ref: chkin_ 14 2 13 124 */ 6581 /*:ref: setmsg_ 14 2 13 124 */ 6582 /*:ref: errint_ 14 3 13 4 124 */ 6583 /*:ref: sigerr_ 14 2 13 124 */ 6584 /*:ref: chkout_ 14 2 13 124 */ 6585 6586 extern int ssizei_(integer *size, integer *cell); 6587 /*:ref: return_ 12 0 */ 6588 /*:ref: chkin_ 14 2 13 124 */ 6589 /*:ref: setmsg_ 14 2 13 124 */ 6590 /*:ref: errint_ 14 3 13 4 124 */ 6591 /*:ref: sigerr_ 14 2 13 124 */ 6592 /*:ref: chkout_ 14 2 13 124 */ 6593 6594 extern int stcc01_(char *catfnm, char *tabnam, logical *istyp1, char *errmsg, ftnlen catfnm_len, ftnlen tabnam_len, ftnlen errmsg_len); 6595 /*:ref: return_ 12 0 */ 6596 /*:ref: chkin_ 14 2 13 124 */ 6597 /*:ref: ekopr_ 14 3 13 4 124 */ 6598 /*:ref: eknseg_ 4 1 4 */ 6599 /*:ref: chkout_ 14 2 13 124 */ 6600 /*:ref: ekssum_ 14 14 4 4 13 4 4 13 13 4 4 12 12 124 124 124 */ 6601 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 6602 /*:ref: nblen_ 4 2 13 124 */ 6603 /*:ref: ekcls_ 14 1 4 */ 6604 6605 extern int stcf01_(char *catnam, doublereal *westra, doublereal *eastra, doublereal *sthdec, doublereal *nthdec, integer *nstars, ftnlen catnam_len); 6606 /*:ref: return_ 12 0 */ 6607 /*:ref: chkin_ 14 2 13 124 */ 6608 /*:ref: dpr_ 7 0 */ 6609 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 6610 /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ 6611 /*:ref: ekfind_ 14 6 13 4 12 13 124 124 */ 6612 /*:ref: setmsg_ 14 2 13 124 */ 6613 /*:ref: errch_ 14 4 13 13 124 124 */ 6614 /*:ref: sigerr_ 14 2 13 124 */ 6615 /*:ref: chkout_ 14 2 13 124 */ 6616 6617 extern int stcg01_(integer *index, doublereal *ra, doublereal *dec, doublereal *rasig, doublereal *decsig, integer *catnum, char *sptype, doublereal *vmag, ftnlen sptype_len); 6618 /*:ref: return_ 12 0 */ 6619 /*:ref: chkin_ 14 2 13 124 */ 6620 /*:ref: ekgd_ 14 6 4 4 4 7 12 12 */ 6621 /*:ref: setmsg_ 14 2 13 124 */ 6622 /*:ref: errint_ 14 3 13 4 124 */ 6623 /*:ref: sigerr_ 14 2 13 124 */ 6624 /*:ref: chkout_ 14 2 13 124 */ 6625 /*:ref: ekgi_ 14 6 4 4 4 4 12 12 */ 6626 /*:ref: ekgc_ 14 7 4 4 4 13 12 12 124 */ 6627 /*:ref: rpd_ 7 0 */ 6628 6629 extern int stcl01_(char *catfnm, char *tabnam, integer *handle, ftnlen catfnm_len, ftnlen tabnam_len); 6630 /*:ref: return_ 12 0 */ 6631 /*:ref: chkin_ 14 2 13 124 */ 6632 /*:ref: stcc01_ 14 7 13 13 12 13 124 124 124 */ 6633 /*:ref: setmsg_ 14 2 13 124 */ 6634 /*:ref: errch_ 14 4 13 13 124 124 */ 6635 /*:ref: sigerr_ 14 2 13 124 */ 6636 /*:ref: chkout_ 14 2 13 124 */ 6637 /*:ref: eklef_ 14 3 13 4 124 */ 6638 6639 extern int stdio_(char *name__, integer *unit, ftnlen name_len); 6640 /*:ref: ljust_ 14 4 13 13 124 124 */ 6641 /*:ref: ucase_ 14 4 13 13 124 124 */ 6642 /*:ref: return_ 12 0 */ 6643 /*:ref: chkin_ 14 2 13 124 */ 6644 /*:ref: setmsg_ 14 2 13 124 */ 6645 /*:ref: errch_ 14 4 13 13 124 124 */ 6646 /*:ref: sigerr_ 14 2 13 124 */ 6647 /*:ref: chkout_ 14 2 13 124 */ 6648 6649 extern int stelab_(doublereal *pobj, doublereal *vobs, doublereal *appobj); 6650 /*:ref: return_ 12 0 */ 6651 /*:ref: chkin_ 14 2 13 124 */ 6652 /*:ref: vhat_ 14 2 7 7 */ 6653 /*:ref: clight_ 7 0 */ 6654 /*:ref: vscl_ 14 3 7 7 7 */ 6655 /*:ref: vdot_ 7 2 7 7 */ 6656 /*:ref: setmsg_ 14 2 13 124 */ 6657 /*:ref: errdp_ 14 3 13 7 124 */ 6658 /*:ref: sigerr_ 14 2 13 124 */ 6659 /*:ref: chkout_ 14 2 13 124 */ 6660 /*:ref: vcrss_ 14 3 7 7 7 */ 6661 /*:ref: vnorm_ 7 1 7 */ 6662 /*:ref: vrotv_ 14 4 7 7 7 7 */ 6663 /*:ref: moved_ 14 3 7 4 7 */ 6664 6665 extern int stlabx_(doublereal *pobj, doublereal *vobs, doublereal *corpos); 6666 /*:ref: return_ 12 0 */ 6667 /*:ref: chkin_ 14 2 13 124 */ 6668 /*:ref: vminus_ 14 2 7 7 */ 6669 /*:ref: stelab_ 14 3 7 7 7 */ 6670 /*:ref: chkout_ 14 2 13 124 */ 6671 6672 extern int stmp03_(doublereal *x, doublereal *c0, doublereal *c1, doublereal *c2, doublereal *c3); 6673 /*:ref: dpmax_ 7 0 */ 6674 /*:ref: chkin_ 14 2 13 124 */ 6675 /*:ref: setmsg_ 14 2 13 124 */ 6676 /*:ref: errdp_ 14 3 13 7 124 */ 6677 /*:ref: sigerr_ 14 2 13 124 */ 6678 /*:ref: chkout_ 14 2 13 124 */ 6679 6680 extern int stpool_(char *item, integer *nth, char *contin, char *string, integer *size, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len); 6681 /*:ref: return_ 12 0 */ 6682 /*:ref: chkin_ 14 2 13 124 */ 6683 /*:ref: rtrim_ 4 2 13 124 */ 6684 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 6685 /*:ref: chkout_ 14 2 13 124 */ 6686 6687 extern int str2et_(char *string, doublereal *et, ftnlen string_len); 6688 /*:ref: return_ 12 0 */ 6689 /*:ref: chkin_ 14 2 13 124 */ 6690 /*:ref: timdef_ 14 6 13 13 13 124 124 124 */ 6691 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 6692 /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ 6693 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ 6694 /*:ref: setmsg_ 14 2 13 124 */ 6695 /*:ref: sigerr_ 14 2 13 124 */ 6696 /*:ref: chkout_ 14 2 13 124 */ 6697 /*:ref: errch_ 14 4 13 13 124 124 */ 6698 /*:ref: ttrans_ 14 5 13 13 7 124 124 */ 6699 /*:ref: tchckd_ 14 2 13 124 */ 6700 /*:ref: tparch_ 14 2 13 124 */ 6701 /*:ref: moved_ 14 3 7 4 7 */ 6702 /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ 6703 /*:ref: texpyr_ 14 1 4 */ 6704 /*:ref: jul2gr_ 14 4 4 4 4 4 */ 6705 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 6706 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 6707 /*:ref: dpfmt_ 14 5 7 13 13 124 124 */ 6708 /*:ref: gr2jul_ 14 4 4 4 4 4 */ 6709 6710 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); 6711 /*:ref: return_ 12 0 */ 6712 /*:ref: chkin_ 14 2 13 124 */ 6713 /*:ref: bods2c_ 14 4 13 4 12 124 */ 6714 /*:ref: setmsg_ 14 2 13 124 */ 6715 /*:ref: errch_ 14 4 13 13 124 124 */ 6716 /*:ref: sigerr_ 14 2 13 124 */ 6717 /*:ref: chkout_ 14 2 13 124 */ 6718 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 6719 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 6720 /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ 6721 /*:ref: vminus_ 14 2 7 7 */ 6722 /*:ref: eqstr_ 12 4 13 13 124 124 */ 6723 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ 6724 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ 6725 /*:ref: vdist_ 7 2 7 7 */ 6726 6727 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); 6728 /*:ref: return_ 12 0 */ 6729 /*:ref: chkin_ 14 2 13 124 */ 6730 /*:ref: bods2c_ 14 4 13 4 12 124 */ 6731 /*:ref: setmsg_ 14 2 13 124 */ 6732 /*:ref: errch_ 14 4 13 13 124 124 */ 6733 /*:ref: sigerr_ 14 2 13 124 */ 6734 /*:ref: chkout_ 14 2 13 124 */ 6735 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 6736 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 6737 /*:ref: eqstr_ 12 4 13 13 124 124 */ 6738 /*:ref: ltime_ 14 7 7 4 13 4 7 7 124 */ 6739 /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ 6740 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ 6741 /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ 6742 6743 extern int suffix_(char *suff, integer *spaces, char *string, ftnlen suff_len, ftnlen string_len); 6744 /*:ref: lastnb_ 4 2 13 124 */ 6745 6746 extern doublereal sumad_(doublereal *array, integer *n); 6747 6748 extern integer sumai_(integer *array, integer *n); 6749 6750 extern int surfnm_(doublereal *a, doublereal *b, doublereal *c__, doublereal *point, doublereal *normal); 6751 /*:ref: return_ 12 0 */ 6752 /*:ref: chkin_ 14 2 13 124 */ 6753 /*:ref: setmsg_ 14 2 13 124 */ 6754 /*:ref: errch_ 14 4 13 13 124 124 */ 6755 /*:ref: errdp_ 14 3 13 7 124 */ 6756 /*:ref: sigerr_ 14 2 13 124 */ 6757 /*:ref: chkout_ 14 2 13 124 */ 6758 /*:ref: vhatip_ 14 1 7 */ 6759 6760 extern int surfpt_(doublereal *positn, doublereal *u, doublereal *a, doublereal *b, doublereal *c__, doublereal *point, logical *found); 6761 /*:ref: return_ 12 0 */ 6762 /*:ref: chkin_ 14 2 13 124 */ 6763 /*:ref: vzero_ 12 1 7 */ 6764 /*:ref: setmsg_ 14 2 13 124 */ 6765 /*:ref: sigerr_ 14 2 13 124 */ 6766 /*:ref: chkout_ 14 2 13 124 */ 6767 /*:ref: errch_ 14 4 13 13 124 124 */ 6768 /*:ref: errdp_ 14 3 13 7 124 */ 6769 /*:ref: cleard_ 14 2 4 7 */ 6770 /*:ref: vperp_ 14 3 7 7 7 */ 6771 /*:ref: vsub_ 14 3 7 7 7 */ 6772 /*:ref: vnorm_ 7 1 7 */ 6773 /*:ref: vhat_ 14 2 7 7 */ 6774 /*:ref: vdot_ 7 2 7 7 */ 6775 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 6776 6777 extern int swapac_(integer *n, integer *locn, integer *m, integer *locm, char *array, ftnlen array_len); 6778 /*:ref: return_ 12 0 */ 6779 /*:ref: chkin_ 14 2 13 124 */ 6780 /*:ref: setmsg_ 14 2 13 124 */ 6781 /*:ref: errint_ 14 3 13 4 124 */ 6782 /*:ref: sigerr_ 14 2 13 124 */ 6783 /*:ref: chkout_ 14 2 13 124 */ 6784 /*:ref: swapc_ 14 4 13 13 124 124 */ 6785 /*:ref: cyacip_ 14 6 4 13 4 13 124 124 */ 6786 6787 extern int swapad_(integer *n, integer *locn, integer *m, integer *locm, doublereal *array); 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 /*:ref: swapd_ 14 2 7 7 */ 6795 /*:ref: cyadip_ 14 5 4 13 4 7 124 */ 6796 6797 extern int swapai_(integer *n, integer *locn, integer *m, integer *locm, integer *array); 6798 /*:ref: return_ 12 0 */ 6799 /*:ref: chkin_ 14 2 13 124 */ 6800 /*:ref: setmsg_ 14 2 13 124 */ 6801 /*:ref: errint_ 14 3 13 4 124 */ 6802 /*:ref: sigerr_ 14 2 13 124 */ 6803 /*:ref: chkout_ 14 2 13 124 */ 6804 /*:ref: swapi_ 14 2 4 4 */ 6805 /*:ref: cyaiip_ 14 5 4 13 4 4 124 */ 6806 6807 extern int swapc_(char *a, char *b, ftnlen a_len, ftnlen b_len); 6808 6809 extern int swapd_(doublereal *a, doublereal *b); 6810 6811 extern int swapi_(integer *a, integer *b); 6812 6813 extern int sxform_(char *from, char *to, doublereal *et, doublereal *xform, ftnlen from_len, ftnlen to_len); 6814 /*:ref: return_ 12 0 */ 6815 /*:ref: chkin_ 14 2 13 124 */ 6816 /*:ref: namfrm_ 14 3 13 4 124 */ 6817 /*:ref: frmchg_ 14 4 4 4 7 7 */ 6818 /*:ref: setmsg_ 14 2 13 124 */ 6819 /*:ref: errch_ 14 4 13 13 124 124 */ 6820 /*:ref: sigerr_ 14 2 13 124 */ 6821 /*:ref: chkout_ 14 2 13 124 */ 6822 6823 extern int sydelc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); 6824 /*:ref: return_ 12 0 */ 6825 /*:ref: chkin_ 14 2 13 124 */ 6826 /*:ref: cardc_ 4 2 13 124 */ 6827 /*:ref: cardi_ 4 1 4 */ 6828 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 6829 /*:ref: sumai_ 4 2 4 4 */ 6830 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 6831 /*:ref: scardc_ 14 3 4 13 124 */ 6832 /*:ref: remlai_ 14 4 4 4 4 4 */ 6833 /*:ref: scardi_ 14 2 4 4 */ 6834 /*:ref: chkout_ 14 2 13 124 */ 6835 6836 extern int sydeld_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); 6837 /*:ref: return_ 12 0 */ 6838 /*:ref: chkin_ 14 2 13 124 */ 6839 /*:ref: cardc_ 4 2 13 124 */ 6840 /*:ref: cardi_ 4 1 4 */ 6841 /*:ref: cardd_ 4 1 7 */ 6842 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 6843 /*:ref: sumai_ 4 2 4 4 */ 6844 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 6845 /*:ref: scardc_ 14 3 4 13 124 */ 6846 /*:ref: remlai_ 14 4 4 4 4 4 */ 6847 /*:ref: scardi_ 14 2 4 4 */ 6848 /*:ref: remlad_ 14 4 4 4 7 4 */ 6849 /*:ref: scardd_ 14 2 4 7 */ 6850 /*:ref: chkout_ 14 2 13 124 */ 6851 6852 extern int sydeli_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); 6853 /*:ref: return_ 12 0 */ 6854 /*:ref: chkin_ 14 2 13 124 */ 6855 /*:ref: cardc_ 4 2 13 124 */ 6856 /*:ref: cardi_ 4 1 4 */ 6857 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 6858 /*:ref: sumai_ 4 2 4 4 */ 6859 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 6860 /*:ref: scardc_ 14 3 4 13 124 */ 6861 /*:ref: remlai_ 14 4 4 4 4 4 */ 6862 /*:ref: scardi_ 14 2 4 4 */ 6863 /*:ref: chkout_ 14 2 13 124 */ 6864 6865 extern integer sydimc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); 6866 /*:ref: return_ 12 0 */ 6867 /*:ref: chkin_ 14 2 13 124 */ 6868 /*:ref: cardc_ 4 2 13 124 */ 6869 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 6870 /*:ref: chkout_ 14 2 13 124 */ 6871 6872 extern integer sydimd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); 6873 /*:ref: return_ 12 0 */ 6874 /*:ref: chkin_ 14 2 13 124 */ 6875 /*:ref: cardc_ 4 2 13 124 */ 6876 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 6877 /*:ref: chkout_ 14 2 13 124 */ 6878 6879 extern integer sydimi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); 6880 /*:ref: return_ 12 0 */ 6881 /*:ref: chkin_ 14 2 13 124 */ 6882 /*:ref: cardc_ 4 2 13 124 */ 6883 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 6884 /*:ref: chkout_ 14 2 13 124 */ 6885 6886 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); 6887 /*:ref: return_ 12 0 */ 6888 /*:ref: chkin_ 14 2 13 124 */ 6889 /*:ref: cardc_ 4 2 13 124 */ 6890 /*:ref: cardi_ 4 1 4 */ 6891 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 6892 /*:ref: setmsg_ 14 2 13 124 */ 6893 /*:ref: errch_ 14 4 13 13 124 124 */ 6894 /*:ref: sigerr_ 14 2 13 124 */ 6895 /*:ref: sumai_ 4 2 4 4 */ 6896 /*:ref: sizec_ 4 2 13 124 */ 6897 /*:ref: sizei_ 4 1 4 */ 6898 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 6899 /*:ref: scardc_ 14 3 4 13 124 */ 6900 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 6901 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 6902 /*:ref: scardi_ 14 2 4 4 */ 6903 /*:ref: chkout_ 14 2 13 124 */ 6904 6905 extern int sydupd_(char *name__, char *copy, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); 6906 /*:ref: return_ 12 0 */ 6907 /*:ref: chkin_ 14 2 13 124 */ 6908 /*:ref: cardc_ 4 2 13 124 */ 6909 /*:ref: cardi_ 4 1 4 */ 6910 /*:ref: cardd_ 4 1 7 */ 6911 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 6912 /*:ref: setmsg_ 14 2 13 124 */ 6913 /*:ref: errch_ 14 4 13 13 124 124 */ 6914 /*:ref: sigerr_ 14 2 13 124 */ 6915 /*:ref: sumai_ 4 2 4 4 */ 6916 /*:ref: sizec_ 4 2 13 124 */ 6917 /*:ref: sizei_ 4 1 4 */ 6918 /*:ref: sized_ 4 1 7 */ 6919 /*:ref: remlad_ 14 4 4 4 7 4 */ 6920 /*:ref: scardd_ 14 2 4 7 */ 6921 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 6922 /*:ref: scardc_ 14 3 4 13 124 */ 6923 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 6924 /*:ref: scardi_ 14 2 4 4 */ 6925 /*:ref: chkout_ 14 2 13 124 */ 6926 6927 extern int sydupi_(char *name__, char *copy, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); 6928 /*:ref: return_ 12 0 */ 6929 /*:ref: chkin_ 14 2 13 124 */ 6930 /*:ref: cardc_ 4 2 13 124 */ 6931 /*:ref: cardi_ 4 1 4 */ 6932 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 6933 /*:ref: setmsg_ 14 2 13 124 */ 6934 /*:ref: errch_ 14 4 13 13 124 124 */ 6935 /*:ref: sigerr_ 14 2 13 124 */ 6936 /*:ref: sumai_ 4 2 4 4 */ 6937 /*:ref: sizec_ 4 2 13 124 */ 6938 /*:ref: sizei_ 4 1 4 */ 6939 /*:ref: remlai_ 14 4 4 4 4 4 */ 6940 /*:ref: scardi_ 14 2 4 4 */ 6941 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 6942 /*:ref: scardc_ 14 3 4 13 124 */ 6943 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 6944 /*:ref: chkout_ 14 2 13 124 */ 6945 6946 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); 6947 /*:ref: return_ 12 0 */ 6948 /*:ref: chkin_ 14 2 13 124 */ 6949 /*:ref: cardc_ 4 2 13 124 */ 6950 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 6951 /*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ 6952 /*:ref: sizec_ 4 2 13 124 */ 6953 /*:ref: setmsg_ 14 2 13 124 */ 6954 /*:ref: errch_ 14 4 13 13 124 124 */ 6955 /*:ref: sigerr_ 14 2 13 124 */ 6956 /*:ref: sumai_ 4 2 4 4 */ 6957 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 6958 /*:ref: scardc_ 14 3 4 13 124 */ 6959 /*:ref: chkout_ 14 2 13 124 */ 6960 6961 extern int syenqd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); 6962 /*:ref: return_ 12 0 */ 6963 /*:ref: chkin_ 14 2 13 124 */ 6964 /*:ref: cardc_ 4 2 13 124 */ 6965 /*:ref: cardd_ 4 1 7 */ 6966 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 6967 /*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ 6968 /*:ref: sized_ 4 1 7 */ 6969 /*:ref: setmsg_ 14 2 13 124 */ 6970 /*:ref: errdp_ 14 3 13 7 124 */ 6971 /*:ref: errch_ 14 4 13 13 124 124 */ 6972 /*:ref: sigerr_ 14 2 13 124 */ 6973 /*:ref: sumai_ 4 2 4 4 */ 6974 /*:ref: inslad_ 14 5 7 4 4 7 4 */ 6975 /*:ref: scardd_ 14 2 4 7 */ 6976 /*:ref: chkout_ 14 2 13 124 */ 6977 6978 extern int syenqi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); 6979 /*:ref: return_ 12 0 */ 6980 /*:ref: chkin_ 14 2 13 124 */ 6981 /*:ref: cardc_ 4 2 13 124 */ 6982 /*:ref: cardi_ 4 1 4 */ 6983 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 6984 /*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ 6985 /*:ref: sizei_ 4 1 4 */ 6986 /*:ref: setmsg_ 14 2 13 124 */ 6987 /*:ref: errint_ 14 3 13 4 124 */ 6988 /*:ref: errch_ 14 4 13 13 124 124 */ 6989 /*:ref: sigerr_ 14 2 13 124 */ 6990 /*:ref: sumai_ 4 2 4 4 */ 6991 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 6992 /*:ref: scardi_ 14 2 4 4 */ 6993 /*:ref: chkout_ 14 2 13 124 */ 6994 6995 extern int syfetc_(integer *nth, char *tabsym, integer *tabptr, char *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen tabval_len, ftnlen name_len); 6996 /*:ref: return_ 12 0 */ 6997 /*:ref: chkin_ 14 2 13 124 */ 6998 /*:ref: cardc_ 4 2 13 124 */ 6999 /*:ref: chkout_ 14 2 13 124 */ 7000 7001 extern int syfetd_(integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); 7002 /*:ref: return_ 12 0 */ 7003 /*:ref: chkin_ 14 2 13 124 */ 7004 /*:ref: cardc_ 4 2 13 124 */ 7005 /*:ref: chkout_ 14 2 13 124 */ 7006 7007 extern int syfeti_(integer *nth, char *tabsym, integer *tabptr, integer *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); 7008 /*:ref: return_ 12 0 */ 7009 /*:ref: chkin_ 14 2 13 124 */ 7010 /*:ref: cardc_ 4 2 13 124 */ 7011 /*:ref: chkout_ 14 2 13 124 */ 7012 7013 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); 7014 /*:ref: return_ 12 0 */ 7015 /*:ref: chkin_ 14 2 13 124 */ 7016 /*:ref: cardc_ 4 2 13 124 */ 7017 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7018 /*:ref: sumai_ 4 2 4 4 */ 7019 /*:ref: movec_ 14 5 13 4 13 124 124 */ 7020 /*:ref: chkout_ 14 2 13 124 */ 7021 7022 extern int sygetd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, integer *n, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); 7023 /*:ref: return_ 12 0 */ 7024 /*:ref: chkin_ 14 2 13 124 */ 7025 /*:ref: cardc_ 4 2 13 124 */ 7026 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7027 /*:ref: sumai_ 4 2 4 4 */ 7028 /*:ref: moved_ 14 3 7 4 7 */ 7029 /*:ref: chkout_ 14 2 13 124 */ 7030 7031 extern int sygeti_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *n, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); 7032 /*:ref: return_ 12 0 */ 7033 /*:ref: chkin_ 14 2 13 124 */ 7034 /*:ref: cardc_ 4 2 13 124 */ 7035 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7036 /*:ref: sumai_ 4 2 4 4 */ 7037 /*:ref: movei_ 14 3 4 4 4 */ 7038 /*:ref: chkout_ 14 2 13 124 */ 7039 7040 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); 7041 /*:ref: return_ 12 0 */ 7042 /*:ref: chkin_ 14 2 13 124 */ 7043 /*:ref: cardc_ 4 2 13 124 */ 7044 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7045 /*:ref: sumai_ 4 2 4 4 */ 7046 /*:ref: chkout_ 14 2 13 124 */ 7047 7048 extern int synthd_(char *name__, integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); 7049 /*:ref: return_ 12 0 */ 7050 /*:ref: chkin_ 14 2 13 124 */ 7051 /*:ref: cardc_ 4 2 13 124 */ 7052 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7053 /*:ref: sumai_ 4 2 4 4 */ 7054 /*:ref: chkout_ 14 2 13 124 */ 7055 7056 extern int synthi_(char *name__, integer *nth, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); 7057 /*:ref: return_ 12 0 */ 7058 /*:ref: chkin_ 14 2 13 124 */ 7059 /*:ref: cardc_ 4 2 13 124 */ 7060 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7061 /*:ref: sumai_ 4 2 4 4 */ 7062 /*:ref: chkout_ 14 2 13 124 */ 7063 7064 extern int syordc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); 7065 /*:ref: return_ 12 0 */ 7066 /*:ref: chkin_ 14 2 13 124 */ 7067 /*:ref: cardc_ 4 2 13 124 */ 7068 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7069 /*:ref: sumai_ 4 2 4 4 */ 7070 /*:ref: shellc_ 14 3 4 13 124 */ 7071 /*:ref: chkout_ 14 2 13 124 */ 7072 7073 extern int syordd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); 7074 /*:ref: return_ 12 0 */ 7075 /*:ref: chkin_ 14 2 13 124 */ 7076 /*:ref: cardc_ 4 2 13 124 */ 7077 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7078 /*:ref: sumai_ 4 2 4 4 */ 7079 /*:ref: shelld_ 14 2 4 7 */ 7080 /*:ref: chkout_ 14 2 13 124 */ 7081 7082 extern int syordi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); 7083 /*:ref: return_ 12 0 */ 7084 /*:ref: chkin_ 14 2 13 124 */ 7085 /*:ref: cardc_ 4 2 13 124 */ 7086 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7087 /*:ref: sumai_ 4 2 4 4 */ 7088 /*:ref: shelli_ 14 2 4 4 */ 7089 /*:ref: chkout_ 14 2 13 124 */ 7090 7091 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); 7092 /*:ref: return_ 12 0 */ 7093 /*:ref: chkin_ 14 2 13 124 */ 7094 /*:ref: cardc_ 4 2 13 124 */ 7095 /*:ref: cardi_ 4 1 4 */ 7096 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7097 /*:ref: sumai_ 4 2 4 4 */ 7098 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 7099 /*:ref: scardc_ 14 3 4 13 124 */ 7100 /*:ref: remlai_ 14 4 4 4 4 4 */ 7101 /*:ref: scardi_ 14 2 4 4 */ 7102 /*:ref: chkout_ 14 2 13 124 */ 7103 7104 extern int sypopd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); 7105 /*:ref: return_ 12 0 */ 7106 /*:ref: chkin_ 14 2 13 124 */ 7107 /*:ref: cardc_ 4 2 13 124 */ 7108 /*:ref: cardi_ 4 1 4 */ 7109 /*:ref: cardd_ 4 1 7 */ 7110 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7111 /*:ref: sumai_ 4 2 4 4 */ 7112 /*:ref: remlad_ 14 4 4 4 7 4 */ 7113 /*:ref: scardd_ 14 2 4 7 */ 7114 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 7115 /*:ref: scardc_ 14 3 4 13 124 */ 7116 /*:ref: remlai_ 14 4 4 4 4 4 */ 7117 /*:ref: scardi_ 14 2 4 4 */ 7118 /*:ref: chkout_ 14 2 13 124 */ 7119 7120 extern int sypopi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); 7121 /*:ref: return_ 12 0 */ 7122 /*:ref: chkin_ 14 2 13 124 */ 7123 /*:ref: cardc_ 4 2 13 124 */ 7124 /*:ref: cardi_ 4 1 4 */ 7125 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7126 /*:ref: sumai_ 4 2 4 4 */ 7127 /*:ref: remlai_ 14 4 4 4 4 4 */ 7128 /*:ref: scardi_ 14 2 4 4 */ 7129 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 7130 /*:ref: scardc_ 14 3 4 13 124 */ 7131 /*:ref: chkout_ 14 2 13 124 */ 7132 7133 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); 7134 /*:ref: return_ 12 0 */ 7135 /*:ref: chkin_ 14 2 13 124 */ 7136 /*:ref: cardc_ 4 2 13 124 */ 7137 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7138 /*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ 7139 /*:ref: sizec_ 4 2 13 124 */ 7140 /*:ref: setmsg_ 14 2 13 124 */ 7141 /*:ref: errch_ 14 4 13 13 124 124 */ 7142 /*:ref: sigerr_ 14 2 13 124 */ 7143 /*:ref: sumai_ 4 2 4 4 */ 7144 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 7145 /*:ref: scardc_ 14 3 4 13 124 */ 7146 /*:ref: chkout_ 14 2 13 124 */ 7147 7148 extern int sypshd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); 7149 /*:ref: return_ 12 0 */ 7150 /*:ref: chkin_ 14 2 13 124 */ 7151 /*:ref: cardc_ 4 2 13 124 */ 7152 /*:ref: cardd_ 4 1 7 */ 7153 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7154 /*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ 7155 /*:ref: sized_ 4 1 7 */ 7156 /*:ref: setmsg_ 14 2 13 124 */ 7157 /*:ref: errdp_ 14 3 13 7 124 */ 7158 /*:ref: errch_ 14 4 13 13 124 124 */ 7159 /*:ref: sigerr_ 14 2 13 124 */ 7160 /*:ref: sumai_ 4 2 4 4 */ 7161 /*:ref: inslad_ 14 5 7 4 4 7 4 */ 7162 /*:ref: scardd_ 14 2 4 7 */ 7163 /*:ref: chkout_ 14 2 13 124 */ 7164 7165 extern int sypshi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); 7166 /*:ref: return_ 12 0 */ 7167 /*:ref: chkin_ 14 2 13 124 */ 7168 /*:ref: cardc_ 4 2 13 124 */ 7169 /*:ref: cardi_ 4 1 4 */ 7170 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7171 /*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ 7172 /*:ref: sizei_ 4 1 4 */ 7173 /*:ref: setmsg_ 14 2 13 124 */ 7174 /*:ref: errint_ 14 3 13 4 124 */ 7175 /*:ref: errch_ 14 4 13 13 124 124 */ 7176 /*:ref: sigerr_ 14 2 13 124 */ 7177 /*:ref: sumai_ 4 2 4 4 */ 7178 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 7179 /*:ref: scardi_ 14 2 4 4 */ 7180 /*:ref: chkout_ 14 2 13 124 */ 7181 7182 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); 7183 /*:ref: return_ 12 0 */ 7184 /*:ref: chkin_ 14 2 13 124 */ 7185 /*:ref: setmsg_ 14 2 13 124 */ 7186 /*:ref: sigerr_ 14 2 13 124 */ 7187 /*:ref: chkout_ 14 2 13 124 */ 7188 /*:ref: cardc_ 4 2 13 124 */ 7189 /*:ref: cardi_ 4 1 4 */ 7190 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7191 /*:ref: sumai_ 4 2 4 4 */ 7192 /*:ref: sizec_ 4 2 13 124 */ 7193 /*:ref: errch_ 14 4 13 13 124 124 */ 7194 /*:ref: sizei_ 4 1 4 */ 7195 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 7196 /*:ref: scardc_ 14 3 4 13 124 */ 7197 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 7198 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 7199 /*:ref: scardi_ 14 2 4 4 */ 7200 7201 extern int syputd_(char *name__, doublereal *values, integer *n, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); 7202 /*:ref: return_ 12 0 */ 7203 /*:ref: chkin_ 14 2 13 124 */ 7204 /*:ref: setmsg_ 14 2 13 124 */ 7205 /*:ref: sigerr_ 14 2 13 124 */ 7206 /*:ref: chkout_ 14 2 13 124 */ 7207 /*:ref: cardc_ 4 2 13 124 */ 7208 /*:ref: cardi_ 4 1 4 */ 7209 /*:ref: cardd_ 4 1 7 */ 7210 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7211 /*:ref: sumai_ 4 2 4 4 */ 7212 /*:ref: sizec_ 4 2 13 124 */ 7213 /*:ref: errch_ 14 4 13 13 124 124 */ 7214 /*:ref: sizei_ 4 1 4 */ 7215 /*:ref: sized_ 4 1 7 */ 7216 /*:ref: remlad_ 14 4 4 4 7 4 */ 7217 /*:ref: scardd_ 14 2 4 7 */ 7218 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 7219 /*:ref: scardc_ 14 3 4 13 124 */ 7220 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 7221 /*:ref: scardi_ 14 2 4 4 */ 7222 /*:ref: inslad_ 14 5 7 4 4 7 4 */ 7223 7224 extern int syputi_(char *name__, integer *values, integer *n, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); 7225 /*:ref: return_ 12 0 */ 7226 /*:ref: chkin_ 14 2 13 124 */ 7227 /*:ref: setmsg_ 14 2 13 124 */ 7228 /*:ref: sigerr_ 14 2 13 124 */ 7229 /*:ref: chkout_ 14 2 13 124 */ 7230 /*:ref: cardc_ 4 2 13 124 */ 7231 /*:ref: cardi_ 4 1 4 */ 7232 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7233 /*:ref: sumai_ 4 2 4 4 */ 7234 /*:ref: sizec_ 4 2 13 124 */ 7235 /*:ref: errch_ 14 4 13 13 124 124 */ 7236 /*:ref: sizei_ 4 1 4 */ 7237 /*:ref: remlai_ 14 4 4 4 4 4 */ 7238 /*:ref: scardi_ 14 2 4 4 */ 7239 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 7240 /*:ref: scardc_ 14 3 4 13 124 */ 7241 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 7242 7243 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); 7244 /*:ref: return_ 12 0 */ 7245 /*:ref: chkin_ 14 2 13 124 */ 7246 /*:ref: cardc_ 4 2 13 124 */ 7247 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7248 /*:ref: setmsg_ 14 2 13 124 */ 7249 /*:ref: errch_ 14 4 13 13 124 124 */ 7250 /*:ref: sigerr_ 14 2 13 124 */ 7251 /*:ref: sydelc_ 14 7 13 13 4 13 124 124 124 */ 7252 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7253 /*:ref: sumai_ 4 2 4 4 */ 7254 /*:ref: swapac_ 14 6 4 4 4 4 13 124 */ 7255 /*:ref: swapai_ 14 5 4 4 4 4 4 */ 7256 /*:ref: chkout_ 14 2 13 124 */ 7257 7258 extern int syrend_(char *old, char *new__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); 7259 /*:ref: return_ 12 0 */ 7260 /*:ref: chkin_ 14 2 13 124 */ 7261 /*:ref: cardc_ 4 2 13 124 */ 7262 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7263 /*:ref: setmsg_ 14 2 13 124 */ 7264 /*:ref: errch_ 14 4 13 13 124 124 */ 7265 /*:ref: sigerr_ 14 2 13 124 */ 7266 /*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ 7267 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7268 /*:ref: sumai_ 4 2 4 4 */ 7269 /*:ref: swapad_ 14 5 4 4 4 4 7 */ 7270 /*:ref: swapac_ 14 6 4 4 4 4 13 124 */ 7271 /*:ref: swapai_ 14 5 4 4 4 4 4 */ 7272 /*:ref: chkout_ 14 2 13 124 */ 7273 7274 extern int syreni_(char *old, char *new__, char *tabsym, integer *tabptr, integer *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); 7275 /*:ref: return_ 12 0 */ 7276 /*:ref: chkin_ 14 2 13 124 */ 7277 /*:ref: cardc_ 4 2 13 124 */ 7278 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7279 /*:ref: setmsg_ 14 2 13 124 */ 7280 /*:ref: errch_ 14 4 13 13 124 124 */ 7281 /*:ref: sigerr_ 14 2 13 124 */ 7282 /*:ref: sydeli_ 14 6 13 13 4 4 124 124 */ 7283 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7284 /*:ref: sumai_ 4 2 4 4 */ 7285 /*:ref: swapai_ 14 5 4 4 4 4 4 */ 7286 /*:ref: swapac_ 14 6 4 4 4 4 13 124 */ 7287 /*:ref: chkout_ 14 2 13 124 */ 7288 7289 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); 7290 /*:ref: return_ 12 0 */ 7291 /*:ref: chkin_ 14 2 13 124 */ 7292 /*:ref: cardc_ 4 2 13 124 */ 7293 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7294 /*:ref: sumai_ 4 2 4 4 */ 7295 /*:ref: movec_ 14 5 13 4 13 124 124 */ 7296 /*:ref: chkout_ 14 2 13 124 */ 7297 7298 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); 7299 /*:ref: return_ 12 0 */ 7300 /*:ref: chkin_ 14 2 13 124 */ 7301 /*:ref: cardc_ 4 2 13 124 */ 7302 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7303 /*:ref: sumai_ 4 2 4 4 */ 7304 /*:ref: moved_ 14 3 7 4 7 */ 7305 /*:ref: chkout_ 14 2 13 124 */ 7306 7307 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); 7308 /*:ref: return_ 12 0 */ 7309 /*:ref: chkin_ 14 2 13 124 */ 7310 /*:ref: cardc_ 4 2 13 124 */ 7311 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7312 /*:ref: sumai_ 4 2 4 4 */ 7313 /*:ref: movei_ 14 3 4 4 4 */ 7314 /*:ref: chkout_ 14 2 13 124 */ 7315 7316 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); 7317 /*:ref: return_ 12 0 */ 7318 /*:ref: chkin_ 14 2 13 124 */ 7319 /*:ref: cardc_ 4 2 13 124 */ 7320 /*:ref: cardi_ 4 1 4 */ 7321 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7322 /*:ref: sumai_ 4 2 4 4 */ 7323 /*:ref: remlac_ 14 5 4 4 13 4 124 */ 7324 /*:ref: scardc_ 14 3 4 13 124 */ 7325 /*:ref: sizec_ 4 2 13 124 */ 7326 /*:ref: setmsg_ 14 2 13 124 */ 7327 /*:ref: errch_ 14 4 13 13 124 124 */ 7328 /*:ref: sigerr_ 14 2 13 124 */ 7329 /*:ref: sizei_ 4 1 4 */ 7330 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 7331 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 7332 /*:ref: scardi_ 14 2 4 4 */ 7333 /*:ref: chkout_ 14 2 13 124 */ 7334 7335 extern int sysetd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); 7336 /*:ref: return_ 12 0 */ 7337 /*:ref: chkin_ 14 2 13 124 */ 7338 /*:ref: cardc_ 4 2 13 124 */ 7339 /*:ref: cardi_ 4 1 4 */ 7340 /*:ref: cardd_ 4 1 7 */ 7341 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7342 /*:ref: sumai_ 4 2 4 4 */ 7343 /*:ref: remlad_ 14 4 4 4 7 4 */ 7344 /*:ref: scardd_ 14 2 4 7 */ 7345 /*:ref: sizec_ 4 2 13 124 */ 7346 /*:ref: setmsg_ 14 2 13 124 */ 7347 /*:ref: errch_ 14 4 13 13 124 124 */ 7348 /*:ref: sigerr_ 14 2 13 124 */ 7349 /*:ref: sizei_ 4 1 4 */ 7350 /*:ref: sized_ 4 1 7 */ 7351 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 7352 /*:ref: scardc_ 14 3 4 13 124 */ 7353 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 7354 /*:ref: scardi_ 14 2 4 4 */ 7355 /*:ref: inslad_ 14 5 7 4 4 7 4 */ 7356 /*:ref: chkout_ 14 2 13 124 */ 7357 7358 extern int syseti_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); 7359 /*:ref: return_ 12 0 */ 7360 /*:ref: chkin_ 14 2 13 124 */ 7361 /*:ref: cardc_ 4 2 13 124 */ 7362 /*:ref: cardi_ 4 1 4 */ 7363 /*:ref: lstlec_ 4 5 13 4 13 124 124 */ 7364 /*:ref: sumai_ 4 2 4 4 */ 7365 /*:ref: remlai_ 14 4 4 4 4 4 */ 7366 /*:ref: scardi_ 14 2 4 4 */ 7367 /*:ref: sizec_ 4 2 13 124 */ 7368 /*:ref: setmsg_ 14 2 13 124 */ 7369 /*:ref: errch_ 14 4 13 13 124 124 */ 7370 /*:ref: sigerr_ 14 2 13 124 */ 7371 /*:ref: sizei_ 4 1 4 */ 7372 /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ 7373 /*:ref: scardc_ 14 3 4 13 124 */ 7374 /*:ref: inslai_ 14 5 4 4 4 4 4 */ 7375 /*:ref: chkout_ 14 2 13 124 */ 7376 7377 extern int sytrnc_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); 7378 /*:ref: return_ 12 0 */ 7379 /*:ref: chkin_ 14 2 13 124 */ 7380 /*:ref: cardc_ 4 2 13 124 */ 7381 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7382 /*:ref: sumai_ 4 2 4 4 */ 7383 /*:ref: swapc_ 14 4 13 13 124 124 */ 7384 /*:ref: setmsg_ 14 2 13 124 */ 7385 /*:ref: errint_ 14 3 13 4 124 */ 7386 /*:ref: sigerr_ 14 2 13 124 */ 7387 /*:ref: chkout_ 14 2 13 124 */ 7388 7389 extern int sytrnd_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); 7390 /*:ref: return_ 12 0 */ 7391 /*:ref: chkin_ 14 2 13 124 */ 7392 /*:ref: cardc_ 4 2 13 124 */ 7393 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7394 /*:ref: sumai_ 4 2 4 4 */ 7395 /*:ref: swapd_ 14 2 7 7 */ 7396 /*:ref: setmsg_ 14 2 13 124 */ 7397 /*:ref: errint_ 14 3 13 4 124 */ 7398 /*:ref: sigerr_ 14 2 13 124 */ 7399 /*:ref: chkout_ 14 2 13 124 */ 7400 7401 extern int sytrni_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); 7402 /*:ref: return_ 12 0 */ 7403 /*:ref: chkin_ 14 2 13 124 */ 7404 /*:ref: cardc_ 4 2 13 124 */ 7405 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7406 /*:ref: sumai_ 4 2 4 4 */ 7407 /*:ref: swapi_ 14 2 4 4 */ 7408 /*:ref: setmsg_ 14 2 13 124 */ 7409 /*:ref: errint_ 14 3 13 4 124 */ 7410 /*:ref: sigerr_ 14 2 13 124 */ 7411 /*:ref: chkout_ 14 2 13 124 */ 7412 7413 extern int tcheck_(doublereal *tvec, char *type__, logical *mods, char *modify, logical *ok, char *error, ftnlen type_len, ftnlen modify_len, ftnlen error_len); 7414 extern int tparch_(char *type__, ftnlen type_len); 7415 extern int tchckd_(char *type__, ftnlen type_len); 7416 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 7417 /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ 7418 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 7419 /*:ref: eqstr_ 12 4 13 13 124 124 */ 7420 7421 extern int texpyr_(integer *year); 7422 extern int tsetyr_(integer *year); 7423 7424 extern int timdef_(char *action, char *item, char *value, ftnlen action_len, ftnlen item_len, ftnlen value_len); 7425 /*:ref: return_ 12 0 */ 7426 /*:ref: chkin_ 14 2 13 124 */ 7427 /*:ref: ljust_ 14 4 13 13 124 124 */ 7428 /*:ref: ucase_ 14 4 13 13 124 124 */ 7429 /*:ref: setmsg_ 14 2 13 124 */ 7430 /*:ref: errch_ 14 4 13 13 124 124 */ 7431 /*:ref: sigerr_ 14 2 13 124 */ 7432 /*:ref: chkout_ 14 2 13 124 */ 7433 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 7434 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 7435 /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ 7436 7437 extern int timout_(doublereal *et, char *pictur, char *output, ftnlen pictur_len, ftnlen output_len); 7438 /*:ref: return_ 12 0 */ 7439 /*:ref: chkin_ 14 2 13 124 */ 7440 /*:ref: scanpr_ 14 5 4 13 4 4 124 */ 7441 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7442 /*:ref: ljust_ 14 4 13 13 124 124 */ 7443 /*:ref: rtrim_ 4 2 13 124 */ 7444 /*:ref: scan_ 14 12 13 13 4 4 4 4 4 4 4 4 124 124 */ 7445 /*:ref: timdef_ 14 6 13 13 13 124 124 124 */ 7446 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 7447 /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ 7448 /*:ref: isrchi_ 4 3 4 4 4 */ 7449 /*:ref: scanrj_ 14 6 4 4 4 4 4 4 */ 7450 /*:ref: unitim_ 7 5 7 13 13 124 124 */ 7451 /*:ref: spd_ 7 0 */ 7452 /*:ref: j2000_ 7 0 */ 7453 /*:ref: j1950_ 7 0 */ 7454 /*:ref: brckti_ 4 3 4 4 4 */ 7455 /*:ref: brcktd_ 7 3 7 7 7 */ 7456 /*:ref: dpfmt_ 14 5 7 13 13 124 124 */ 7457 /*:ref: ttrans_ 14 5 13 13 7 124 124 */ 7458 /*:ref: gr2jul_ 14 4 4 4 4 4 */ 7459 /*:ref: jul2gr_ 14 4 4 4 4 4 */ 7460 /*:ref: rmaind_ 14 4 7 7 7 7 */ 7461 /*:ref: ucase_ 14 4 13 13 124 124 */ 7462 /*:ref: lcase_ 14 4 13 13 124 124 */ 7463 /*:ref: chkout_ 14 2 13 124 */ 7464 7465 extern int tipbod_(char *ref, integer *body, doublereal *et, doublereal *tipm, ftnlen ref_len); 7466 /*:ref: return_ 12 0 */ 7467 /*:ref: chkin_ 14 2 13 124 */ 7468 /*:ref: irftrn_ 14 5 13 13 7 124 124 */ 7469 /*:ref: bodmat_ 14 3 4 7 7 */ 7470 /*:ref: failed_ 12 0 */ 7471 /*:ref: chkout_ 14 2 13 124 */ 7472 /*:ref: mxm_ 14 3 7 7 7 */ 7473 /*:ref: moved_ 14 3 7 4 7 */ 7474 7475 extern int tisbod_(char *ref, integer *body, doublereal *et, doublereal *tsipm, ftnlen ref_len); 7476 /*:ref: return_ 12 0 */ 7477 /*:ref: chkin_ 14 2 13 124 */ 7478 /*:ref: irfnum_ 14 3 13 4 124 */ 7479 /*:ref: pckmat_ 14 5 4 7 4 7 12 */ 7480 /*:ref: zzbodbry_ 4 1 4 */ 7481 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 7482 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 7483 /*:ref: spd_ 7 0 */ 7484 /*:ref: j2000_ 7 0 */ 7485 /*:ref: cleard_ 14 2 4 7 */ 7486 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 7487 /*:ref: bodfnd_ 12 3 4 13 124 */ 7488 /*:ref: setmsg_ 14 2 13 124 */ 7489 /*:ref: errint_ 14 3 13 4 124 */ 7490 /*:ref: errdp_ 14 3 13 7 124 */ 7491 /*:ref: sigerr_ 14 2 13 124 */ 7492 /*:ref: chkout_ 14 2 13 124 */ 7493 /*:ref: rpd_ 7 0 */ 7494 /*:ref: vdotg_ 7 3 7 7 4 */ 7495 /*:ref: twopi_ 7 0 */ 7496 /*:ref: halfpi_ 7 0 */ 7497 /*:ref: failed_ 12 0 */ 7498 /*:ref: vpack_ 14 4 7 7 7 7 */ 7499 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ 7500 /*:ref: irfrot_ 14 3 4 4 7 */ 7501 /*:ref: mxm_ 14 3 7 7 7 */ 7502 7503 extern int tkfram_(integer *id, doublereal *rot, integer *frame, logical *found); 7504 /*:ref: lnkini_ 14 2 4 4 */ 7505 /*:ref: return_ 12 0 */ 7506 /*:ref: chkin_ 14 2 13 124 */ 7507 /*:ref: setmsg_ 14 2 13 124 */ 7508 /*:ref: sigerr_ 14 2 13 124 */ 7509 /*:ref: chkout_ 14 2 13 124 */ 7510 /*:ref: locati_ 14 6 4 4 4 4 4 12 */ 7511 /*:ref: ident_ 14 1 7 */ 7512 /*:ref: intstr_ 14 3 4 13 124 */ 7513 /*:ref: frmnam_ 14 3 4 13 124 */ 7514 /*:ref: errint_ 14 3 13 4 124 */ 7515 /*:ref: rtrim_ 4 2 13 124 */ 7516 /*:ref: cvpool_ 14 3 13 12 124 */ 7517 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 7518 /*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */ 7519 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 7520 /*:ref: namfrm_ 14 3 13 4 124 */ 7521 /*:ref: errch_ 14 4 13 13 124 124 */ 7522 /*:ref: ucase_ 14 4 13 13 124 124 */ 7523 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 7524 /*:ref: moved_ 14 3 7 4 7 */ 7525 /*:ref: sharpr_ 14 1 7 */ 7526 /*:ref: vdot_ 7 2 7 7 */ 7527 /*:ref: vsclip_ 14 2 7 7 */ 7528 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ 7529 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ 7530 /*:ref: failed_ 12 0 */ 7531 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 7532 /*:ref: vhatg_ 14 3 7 4 7 */ 7533 /*:ref: q2m_ 14 2 7 7 */ 7534 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 7535 7536 extern int tkvrsn_(char *item, char *verstr, ftnlen item_len, ftnlen verstr_len); 7537 /*:ref: eqstr_ 12 4 13 13 124 124 */ 7538 7539 extern int tostdo_(char *line, ftnlen line_len); 7540 /*:ref: stdio_ 14 3 13 4 124 */ 7541 /*:ref: writln_ 14 3 13 4 124 */ 7542 7543 extern H_f touchc_(char *ret_val, ftnlen ret_val_len, char *string, ftnlen string_len); 7544 7545 extern doublereal touchd_(doublereal *dp); 7546 7547 extern integer touchi_(integer *int__); 7548 7549 extern logical touchl_(logical *log__); 7550 7551 extern int tparse_(char *string, doublereal *sp2000, char *error, ftnlen string_len, ftnlen error_len); 7552 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ 7553 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 7554 /*:ref: j2000_ 7 0 */ 7555 /*:ref: spd_ 7 0 */ 7556 /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ 7557 /*:ref: texpyr_ 14 1 4 */ 7558 /*:ref: rmaini_ 14 4 4 4 4 4 */ 7559 7560 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); 7561 /*:ref: zztpats_ 12 6 4 4 13 13 124 124 */ 7562 /*:ref: zztokns_ 12 4 13 13 124 124 */ 7563 /*:ref: zzcmbt_ 12 5 13 13 12 124 124 */ 7564 /*:ref: zzsubt_ 12 5 13 13 12 124 124 */ 7565 /*:ref: zzrept_ 12 5 13 13 12 124 124 */ 7566 /*:ref: zzremt_ 12 2 13 124 */ 7567 /*:ref: zzist_ 12 2 13 124 */ 7568 /*:ref: zznote_ 12 4 13 4 4 124 */ 7569 /*:ref: ucase_ 14 4 13 13 124 124 */ 7570 /*:ref: zzunpck_ 12 11 13 12 7 4 13 13 13 124 124 124 124 */ 7571 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 7572 /*:ref: intmax_ 4 0 */ 7573 /*:ref: zzvalt_ 12 6 13 4 4 13 124 124 */ 7574 /*:ref: zzgrep_ 12 2 13 124 */ 7575 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7576 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 7577 /*:ref: zzispt_ 12 4 13 4 4 124 */ 7578 /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ 7579 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 7580 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 7581 /*:ref: rtrim_ 4 2 13 124 */ 7582 7583 extern int tpictr_(char *sample, char *pictur, logical *ok, char *error, ftnlen sample_len, ftnlen pictur_len, ftnlen error_len); 7584 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ 7585 7586 extern doublereal trace_(doublereal *matrix); 7587 7588 extern doublereal traceg_(doublereal *matrix, integer *ndim); 7589 7590 extern int trcpkg_(integer *depth, integer *index, char *module, char *trace, char *name__, ftnlen module_len, ftnlen trace_len, ftnlen name_len); 7591 extern int chkin_(char *module, ftnlen module_len); 7592 extern int chkout_(char *module, ftnlen module_len); 7593 extern int trcdep_(integer *depth); 7594 extern int trcmxd_(integer *depth); 7595 extern int trcnam_(integer *index, char *name__, ftnlen name_len); 7596 extern int qcktrc_(char *trace, ftnlen trace_len); 7597 extern int freeze_(void); 7598 extern int trcoff_(void); 7599 /*:ref: wrline_ 14 4 13 13 124 124 */ 7600 /*:ref: frstnb_ 4 2 13 124 */ 7601 /*:ref: getdev_ 14 2 13 124 */ 7602 /*:ref: rtrim_ 4 2 13 124 */ 7603 /*:ref: getact_ 14 1 4 */ 7604 /*:ref: failed_ 12 0 */ 7605 /*:ref: intstr_ 14 3 4 13 124 */ 7606 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 7607 7608 extern int ttrans_(char *from, char *to, doublereal *tvec, ftnlen from_len, ftnlen to_len); 7609 /*:ref: return_ 12 0 */ 7610 /*:ref: chkin_ 14 2 13 124 */ 7611 /*:ref: spd_ 7 0 */ 7612 /*:ref: j2000_ 7 0 */ 7613 /*:ref: ssizec_ 14 3 4 13 124 */ 7614 /*:ref: insrtc_ 14 4 13 13 124 124 */ 7615 /*:ref: orderc_ 14 4 13 4 4 124 */ 7616 /*:ref: reordc_ 14 4 4 4 13 124 */ 7617 /*:ref: reordi_ 14 3 4 4 4 */ 7618 /*:ref: reordl_ 14 3 4 4 12 */ 7619 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 7620 /*:ref: cvpool_ 14 3 13 12 124 */ 7621 /*:ref: rtpool_ 14 5 13 4 7 12 124 */ 7622 /*:ref: setmsg_ 14 2 13 124 */ 7623 /*:ref: sigerr_ 14 2 13 124 */ 7624 /*:ref: chkout_ 14 2 13 124 */ 7625 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ 7626 /*:ref: ucase_ 14 4 13 13 124 124 */ 7627 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 7628 /*:ref: errch_ 14 4 13 13 124 124 */ 7629 /*:ref: rmaini_ 14 4 4 4 4 4 */ 7630 /*:ref: lstlei_ 4 3 4 4 4 */ 7631 /*:ref: odd_ 12 1 4 */ 7632 /*:ref: rmaind_ 14 4 7 7 7 7 */ 7633 /*:ref: elemc_ 12 4 13 13 124 124 */ 7634 /*:ref: unitim_ 7 5 7 13 13 124 124 */ 7635 /*:ref: lstled_ 4 3 7 4 7 */ 7636 /*:ref: lstlti_ 4 3 4 4 4 */ 7637 7638 extern doublereal twopi_(void); 7639 7640 extern int twovec_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *mout); 7641 /*:ref: return_ 12 0 */ 7642 /*:ref: chkin_ 14 2 13 124 */ 7643 /*:ref: setmsg_ 14 2 13 124 */ 7644 /*:ref: errint_ 14 3 13 4 124 */ 7645 /*:ref: sigerr_ 14 2 13 124 */ 7646 /*:ref: chkout_ 14 2 13 124 */ 7647 /*:ref: vhat_ 14 2 7 7 */ 7648 /*:ref: ucrss_ 14 3 7 7 7 */ 7649 /*:ref: xpose_ 14 2 7 7 */ 7650 /*:ref: moved_ 14 3 7 4 7 */ 7651 7652 extern int twovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); 7653 /*:ref: return_ 12 0 */ 7654 /*:ref: chkin_ 14 2 13 124 */ 7655 /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ 7656 /*:ref: invstm_ 14 2 7 7 */ 7657 /*:ref: chkout_ 14 2 13 124 */ 7658 7659 extern int txtopn_(char *fname, integer *unit, ftnlen fname_len); 7660 /*:ref: return_ 12 0 */ 7661 /*:ref: chkin_ 14 2 13 124 */ 7662 /*:ref: setmsg_ 14 2 13 124 */ 7663 /*:ref: sigerr_ 14 2 13 124 */ 7664 /*:ref: chkout_ 14 2 13 124 */ 7665 /*:ref: getlun_ 14 1 4 */ 7666 /*:ref: errch_ 14 4 13 13 124 124 */ 7667 /*:ref: errint_ 14 3 13 4 124 */ 7668 7669 extern int txtopr_(char *fname, integer *unit, ftnlen fname_len); 7670 /*:ref: return_ 12 0 */ 7671 /*:ref: chkin_ 14 2 13 124 */ 7672 /*:ref: setmsg_ 14 2 13 124 */ 7673 /*:ref: sigerr_ 14 2 13 124 */ 7674 /*:ref: chkout_ 14 2 13 124 */ 7675 /*:ref: getlun_ 14 1 4 */ 7676 /*:ref: errch_ 14 4 13 13 124 124 */ 7677 /*:ref: errint_ 14 3 13 4 124 */ 7678 7679 extern doublereal tyear_(void); 7680 7681 extern int ucase_(char *in, char *out, ftnlen in_len, ftnlen out_len); 7682 7683 extern int ucrss_(doublereal *v1, doublereal *v2, doublereal *vout); 7684 /*:ref: vnorm_ 7 1 7 */ 7685 7686 extern int unionc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); 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: chkout_ 14 2 13 124 */ 7693 /*:ref: cardc_ 4 2 13 124 */ 7694 /*:ref: sizec_ 4 2 13 124 */ 7695 /*:ref: scardc_ 14 3 4 13 124 */ 7696 /*:ref: excess_ 14 3 4 13 124 */ 7697 7698 extern int uniond_(doublereal *a, doublereal *b, doublereal *c__); 7699 /*:ref: return_ 12 0 */ 7700 /*:ref: chkin_ 14 2 13 124 */ 7701 /*:ref: cardd_ 4 1 7 */ 7702 /*:ref: sized_ 4 1 7 */ 7703 /*:ref: scardd_ 14 2 4 7 */ 7704 /*:ref: excess_ 14 3 4 13 124 */ 7705 /*:ref: sigerr_ 14 2 13 124 */ 7706 /*:ref: chkout_ 14 2 13 124 */ 7707 7708 extern int unioni_(integer *a, integer *b, integer *c__); 7709 /*:ref: return_ 12 0 */ 7710 /*:ref: chkin_ 14 2 13 124 */ 7711 /*:ref: cardi_ 4 1 4 */ 7712 /*:ref: sizei_ 4 1 4 */ 7713 /*:ref: scardi_ 14 2 4 4 */ 7714 /*:ref: excess_ 14 3 4 13 124 */ 7715 /*:ref: sigerr_ 14 2 13 124 */ 7716 /*:ref: chkout_ 14 2 13 124 */ 7717 7718 extern doublereal unitim_(doublereal *epoch, char *insys, char *outsys, ftnlen insys_len, ftnlen outsys_len); 7719 /*:ref: return_ 12 0 */ 7720 /*:ref: chkin_ 14 2 13 124 */ 7721 /*:ref: spd_ 7 0 */ 7722 /*:ref: j2000_ 7 0 */ 7723 /*:ref: validc_ 14 4 4 4 13 124 */ 7724 /*:ref: ssizec_ 14 3 4 13 124 */ 7725 /*:ref: unionc_ 14 6 13 13 13 124 124 124 */ 7726 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 7727 /*:ref: cvpool_ 14 3 13 12 124 */ 7728 /*:ref: rtpool_ 14 5 13 4 7 12 124 */ 7729 /*:ref: somfls_ 12 2 12 4 */ 7730 /*:ref: setmsg_ 14 2 13 124 */ 7731 /*:ref: errch_ 14 4 13 13 124 124 */ 7732 /*:ref: sigerr_ 14 2 13 124 */ 7733 /*:ref: chkout_ 14 2 13 124 */ 7734 /*:ref: ucase_ 14 4 13 13 124 124 */ 7735 /*:ref: insrtc_ 14 4 13 13 124 124 */ 7736 /*:ref: setc_ 12 6 13 13 13 124 124 124 */ 7737 /*:ref: elemc_ 12 4 13 13 124 124 */ 7738 7739 extern int unorm_(doublereal *v1, doublereal *vout, doublereal *vmag); 7740 /*:ref: vnorm_ 7 1 7 */ 7741 7742 extern int unormg_(doublereal *v1, integer *ndim, doublereal *vout, doublereal *vmag); 7743 /*:ref: vnormg_ 7 2 7 4 */ 7744 7745 extern int utc2et_(char *utcstr, doublereal *et, ftnlen utcstr_len); 7746 /*:ref: return_ 12 0 */ 7747 /*:ref: chkin_ 14 2 13 124 */ 7748 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ 7749 /*:ref: setmsg_ 14 2 13 124 */ 7750 /*:ref: sigerr_ 14 2 13 124 */ 7751 /*:ref: chkout_ 14 2 13 124 */ 7752 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 7753 /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ 7754 /*:ref: texpyr_ 14 1 4 */ 7755 /*:ref: ttrans_ 14 5 13 13 7 124 124 */ 7756 /*:ref: errch_ 14 4 13 13 124 124 */ 7757 7758 extern int vadd_(doublereal *v1, doublereal *v2, doublereal *vout); 7759 7760 extern int vaddg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); 7761 7762 extern int validc_(integer *size, integer *n, char *a, ftnlen a_len); 7763 /*:ref: return_ 12 0 */ 7764 /*:ref: chkin_ 14 2 13 124 */ 7765 /*:ref: setmsg_ 14 2 13 124 */ 7766 /*:ref: errint_ 14 3 13 4 124 */ 7767 /*:ref: sigerr_ 14 2 13 124 */ 7768 /*:ref: chkout_ 14 2 13 124 */ 7769 /*:ref: rmdupc_ 14 3 4 13 124 */ 7770 /*:ref: ssizec_ 14 3 4 13 124 */ 7771 /*:ref: scardc_ 14 3 4 13 124 */ 7772 7773 extern int validd_(integer *size, integer *n, doublereal *a); 7774 /*:ref: return_ 12 0 */ 7775 /*:ref: chkin_ 14 2 13 124 */ 7776 /*:ref: setmsg_ 14 2 13 124 */ 7777 /*:ref: errint_ 14 3 13 4 124 */ 7778 /*:ref: sigerr_ 14 2 13 124 */ 7779 /*:ref: chkout_ 14 2 13 124 */ 7780 /*:ref: rmdupd_ 14 2 4 7 */ 7781 /*:ref: ssized_ 14 2 4 7 */ 7782 /*:ref: scardd_ 14 2 4 7 */ 7783 7784 extern int validi_(integer *size, integer *n, integer *a); 7785 /*:ref: return_ 12 0 */ 7786 /*:ref: chkin_ 14 2 13 124 */ 7787 /*:ref: setmsg_ 14 2 13 124 */ 7788 /*:ref: errint_ 14 3 13 4 124 */ 7789 /*:ref: sigerr_ 14 2 13 124 */ 7790 /*:ref: chkout_ 14 2 13 124 */ 7791 /*:ref: rmdupi_ 14 2 4 4 */ 7792 /*:ref: ssizei_ 14 2 4 4 */ 7793 /*:ref: scardi_ 14 2 4 4 */ 7794 7795 extern int vcrss_(doublereal *v1, doublereal *v2, doublereal *vout); 7796 7797 extern doublereal vdist_(doublereal *v1, doublereal *v2); 7798 /*:ref: vsub_ 14 3 7 7 7 */ 7799 /*:ref: vnorm_ 7 1 7 */ 7800 7801 extern doublereal vdistg_(doublereal *v1, doublereal *v2, integer *ndim); 7802 7803 extern doublereal vdot_(doublereal *v1, doublereal *v2); 7804 7805 extern doublereal vdotg_(doublereal *v1, doublereal *v2, integer *ndim); 7806 7807 extern int vequ_(doublereal *vin, doublereal *vout); 7808 7809 extern int vequg_(doublereal *vin, integer *ndim, doublereal *vout); 7810 7811 extern int vhat_(doublereal *v1, doublereal *vout); 7812 /*:ref: vnorm_ 7 1 7 */ 7813 7814 extern int vhatg_(doublereal *v1, integer *ndim, doublereal *vout); 7815 /*:ref: vnormg_ 7 2 7 4 */ 7816 7817 extern int vhatip_(doublereal *v); 7818 /*:ref: vnorm_ 7 1 7 */ 7819 7820 extern int vlcom_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); 7821 7822 extern int vlcom3_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *c__, doublereal *v3, doublereal *sum); 7823 7824 extern int vlcomg_(integer *n, doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); 7825 7826 extern int vminug_(doublereal *vin, integer *ndim, doublereal *vout); 7827 7828 extern int vminus_(doublereal *v1, doublereal *vout); 7829 7830 extern doublereal vnorm_(doublereal *v1); 7831 7832 extern doublereal vnormg_(doublereal *v1, integer *ndim); 7833 7834 extern int vpack_(doublereal *x, doublereal *y, doublereal *z__, doublereal *v); 7835 7836 extern int vperp_(doublereal *a, doublereal *b, doublereal *p); 7837 /*:ref: vproj_ 14 3 7 7 7 */ 7838 /*:ref: vsub_ 14 3 7 7 7 */ 7839 /*:ref: vsclip_ 14 2 7 7 */ 7840 7841 extern int vprjp_(doublereal *vin, doublereal *plane, doublereal *vout); 7842 /*:ref: return_ 12 0 */ 7843 /*:ref: chkin_ 14 2 13 124 */ 7844 /*:ref: pl2nvc_ 14 3 7 7 7 */ 7845 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 7846 /*:ref: vdot_ 7 2 7 7 */ 7847 /*:ref: chkout_ 14 2 13 124 */ 7848 7849 extern int vprjpi_(doublereal *vin, doublereal *projpl, doublereal *invpl, doublereal *vout, logical *found); 7850 /*:ref: return_ 12 0 */ 7851 /*:ref: chkin_ 14 2 13 124 */ 7852 /*:ref: pl2nvc_ 14 3 7 7 7 */ 7853 /*:ref: vdot_ 7 2 7 7 */ 7854 /*:ref: dpmax_ 7 0 */ 7855 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 7856 /*:ref: chkout_ 14 2 13 124 */ 7857 7858 extern int vproj_(doublereal *a, doublereal *b, doublereal *p); 7859 /*:ref: vdot_ 7 2 7 7 */ 7860 /*:ref: vscl_ 14 3 7 7 7 */ 7861 7862 extern int vprojg_(doublereal *a, doublereal *b, integer *ndim, doublereal *p); 7863 /*:ref: vdotg_ 7 3 7 7 4 */ 7864 /*:ref: vsclg_ 14 4 7 7 4 7 */ 7865 7866 extern doublereal vrel_(doublereal *v1, doublereal *v2); 7867 /*:ref: vdist_ 7 2 7 7 */ 7868 /*:ref: vnorm_ 7 1 7 */ 7869 7870 extern doublereal vrelg_(doublereal *v1, doublereal *v2, integer *ndim); 7871 /*:ref: vdistg_ 7 3 7 7 4 */ 7872 /*:ref: vnormg_ 7 2 7 4 */ 7873 7874 extern int vrotv_(doublereal *v, doublereal *axis, doublereal *theta, doublereal *r__); 7875 /*:ref: vnorm_ 7 1 7 */ 7876 /*:ref: moved_ 14 3 7 4 7 */ 7877 /*:ref: vhat_ 14 2 7 7 */ 7878 /*:ref: vproj_ 14 3 7 7 7 */ 7879 /*:ref: vsub_ 14 3 7 7 7 */ 7880 /*:ref: vcrss_ 14 3 7 7 7 */ 7881 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 7882 /*:ref: vadd_ 14 3 7 7 7 */ 7883 7884 extern int vscl_(doublereal *s, doublereal *v1, doublereal *vout); 7885 7886 extern int vsclg_(doublereal *s, doublereal *v1, integer *ndim, doublereal *vout); 7887 7888 extern int vsclip_(doublereal *s, doublereal *v); 7889 7890 extern doublereal vsep_(doublereal *v1, doublereal *v2); 7891 /*:ref: unorm_ 14 3 7 7 7 */ 7892 /*:ref: vdot_ 7 2 7 7 */ 7893 /*:ref: vnorm_ 7 1 7 */ 7894 /*:ref: pi_ 7 0 */ 7895 7896 extern doublereal vsepg_(doublereal *v1, doublereal *v2, integer *ndim); 7897 /*:ref: vnormg_ 7 2 7 4 */ 7898 /*:ref: vdotg_ 7 3 7 7 4 */ 7899 /*:ref: pi_ 7 0 */ 7900 7901 extern int vsub_(doublereal *v1, doublereal *v2, doublereal *vout); 7902 7903 extern int vsubg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); 7904 7905 extern doublereal vtmv_(doublereal *v1, doublereal *matrix, doublereal *v2); 7906 7907 extern doublereal vtmvg_(doublereal *v1, doublereal *matrix, doublereal *v2, integer *nrow, integer *ncol); 7908 7909 extern int vupack_(doublereal *v, doublereal *x, doublereal *y, doublereal *z__); 7910 7911 extern logical vzero_(doublereal *v); 7912 7913 extern logical vzerog_(doublereal *v, integer *ndim); 7914 7915 extern integer wdcnt_(char *string, ftnlen string_len); 7916 7917 extern integer wdindx_(char *string, char *word, ftnlen string_len, ftnlen word_len); 7918 /*:ref: lastnb_ 4 2 13 124 */ 7919 /*:ref: frstnb_ 4 2 13 124 */ 7920 7921 extern int wncomd_(doublereal *left, doublereal *right, doublereal *window, doublereal *result); 7922 /*:ref: return_ 12 0 */ 7923 /*:ref: chkin_ 14 2 13 124 */ 7924 /*:ref: cardd_ 4 1 7 */ 7925 /*:ref: scardd_ 14 2 4 7 */ 7926 /*:ref: setmsg_ 14 2 13 124 */ 7927 /*:ref: sigerr_ 14 2 13 124 */ 7928 /*:ref: chkout_ 14 2 13 124 */ 7929 /*:ref: wninsd_ 14 3 7 7 7 */ 7930 /*:ref: failed_ 12 0 */ 7931 7932 extern int wncond_(doublereal *left, doublereal *right, doublereal *window); 7933 /*:ref: return_ 12 0 */ 7934 /*:ref: chkin_ 14 2 13 124 */ 7935 /*:ref: wnexpd_ 14 3 7 7 7 */ 7936 /*:ref: chkout_ 14 2 13 124 */ 7937 7938 extern int wndifd_(doublereal *a, doublereal *b, doublereal *c__); 7939 /*:ref: return_ 12 0 */ 7940 /*:ref: chkin_ 14 2 13 124 */ 7941 /*:ref: cardd_ 4 1 7 */ 7942 /*:ref: sized_ 4 1 7 */ 7943 /*:ref: ssized_ 14 2 4 7 */ 7944 /*:ref: copyd_ 14 2 7 7 */ 7945 /*:ref: chkout_ 14 2 13 124 */ 7946 /*:ref: scardd_ 14 2 4 7 */ 7947 /*:ref: setmsg_ 14 2 13 124 */ 7948 /*:ref: errint_ 14 3 13 4 124 */ 7949 /*:ref: sigerr_ 14 2 13 124 */ 7950 7951 extern logical wnelmd_(doublereal *point, doublereal *window); 7952 /*:ref: return_ 12 0 */ 7953 /*:ref: chkin_ 14 2 13 124 */ 7954 /*:ref: cardd_ 4 1 7 */ 7955 /*:ref: chkout_ 14 2 13 124 */ 7956 7957 extern int wnexpd_(doublereal *left, doublereal *right, doublereal *window); 7958 /*:ref: return_ 12 0 */ 7959 /*:ref: chkin_ 14 2 13 124 */ 7960 /*:ref: cardd_ 4 1 7 */ 7961 /*:ref: scardd_ 14 2 4 7 */ 7962 /*:ref: chkout_ 14 2 13 124 */ 7963 7964 extern int wnextd_(char *side, doublereal *window, ftnlen side_len); 7965 /*:ref: return_ 12 0 */ 7966 /*:ref: chkin_ 14 2 13 124 */ 7967 /*:ref: cardd_ 4 1 7 */ 7968 /*:ref: setmsg_ 14 2 13 124 */ 7969 /*:ref: errch_ 14 4 13 13 124 124 */ 7970 /*:ref: sigerr_ 14 2 13 124 */ 7971 /*:ref: chkout_ 14 2 13 124 */ 7972 7973 extern int wnfetd_(doublereal *window, integer *n, doublereal *left, doublereal *right); 7974 /*:ref: return_ 12 0 */ 7975 /*:ref: chkin_ 14 2 13 124 */ 7976 /*:ref: cardd_ 4 1 7 */ 7977 /*:ref: setmsg_ 14 2 13 124 */ 7978 /*:ref: sigerr_ 14 2 13 124 */ 7979 /*:ref: chkout_ 14 2 13 124 */ 7980 7981 extern int wnfild_(doublereal *small, doublereal *window); 7982 /*:ref: return_ 12 0 */ 7983 /*:ref: chkin_ 14 2 13 124 */ 7984 /*:ref: cardd_ 4 1 7 */ 7985 /*:ref: scardd_ 14 2 4 7 */ 7986 /*:ref: chkout_ 14 2 13 124 */ 7987 7988 extern int wnfltd_(doublereal *small, doublereal *window); 7989 /*:ref: return_ 12 0 */ 7990 /*:ref: chkin_ 14 2 13 124 */ 7991 /*:ref: cardd_ 4 1 7 */ 7992 /*:ref: scardd_ 14 2 4 7 */ 7993 /*:ref: chkout_ 14 2 13 124 */ 7994 7995 extern logical wnincd_(doublereal *left, doublereal *right, doublereal *window); 7996 /*:ref: return_ 12 0 */ 7997 /*:ref: chkin_ 14 2 13 124 */ 7998 /*:ref: cardd_ 4 1 7 */ 7999 /*:ref: chkout_ 14 2 13 124 */ 8000 8001 extern int wninsd_(doublereal *left, doublereal *right, doublereal *window); 8002 /*:ref: return_ 12 0 */ 8003 /*:ref: chkin_ 14 2 13 124 */ 8004 /*:ref: sized_ 4 1 7 */ 8005 /*:ref: cardd_ 4 1 7 */ 8006 /*:ref: setmsg_ 14 2 13 124 */ 8007 /*:ref: errdp_ 14 3 13 7 124 */ 8008 /*:ref: sigerr_ 14 2 13 124 */ 8009 /*:ref: chkout_ 14 2 13 124 */ 8010 /*:ref: scardd_ 14 2 4 7 */ 8011 /*:ref: excess_ 14 3 4 13 124 */ 8012 8013 extern int wnintd_(doublereal *a, doublereal *b, doublereal *c__); 8014 /*:ref: return_ 12 0 */ 8015 /*:ref: chkin_ 14 2 13 124 */ 8016 /*:ref: cardd_ 4 1 7 */ 8017 /*:ref: sized_ 4 1 7 */ 8018 /*:ref: scardd_ 14 2 4 7 */ 8019 /*:ref: excess_ 14 3 4 13 124 */ 8020 /*:ref: sigerr_ 14 2 13 124 */ 8021 /*:ref: chkout_ 14 2 13 124 */ 8022 8023 extern logical wnreld_(doublereal *a, char *op, doublereal *b, ftnlen op_len); 8024 /*:ref: return_ 12 0 */ 8025 /*:ref: chkin_ 14 2 13 124 */ 8026 /*:ref: cardd_ 4 1 7 */ 8027 /*:ref: wnincd_ 12 3 7 7 7 */ 8028 /*:ref: setmsg_ 14 2 13 124 */ 8029 /*:ref: errch_ 14 4 13 13 124 124 */ 8030 /*:ref: sigerr_ 14 2 13 124 */ 8031 /*:ref: chkout_ 14 2 13 124 */ 8032 8033 extern int wnsumd_(doublereal *window, doublereal *meas, doublereal *avg, doublereal *stddev, integer *short__, integer *long__); 8034 /*:ref: return_ 12 0 */ 8035 /*:ref: chkin_ 14 2 13 124 */ 8036 /*:ref: cardd_ 4 1 7 */ 8037 /*:ref: chkout_ 14 2 13 124 */ 8038 8039 extern int wnunid_(doublereal *a, doublereal *b, doublereal *c__); 8040 /*:ref: return_ 12 0 */ 8041 /*:ref: chkin_ 14 2 13 124 */ 8042 /*:ref: cardd_ 4 1 7 */ 8043 /*:ref: sized_ 4 1 7 */ 8044 /*:ref: scardd_ 14 2 4 7 */ 8045 /*:ref: excess_ 14 3 4 13 124 */ 8046 /*:ref: sigerr_ 14 2 13 124 */ 8047 /*:ref: chkout_ 14 2 13 124 */ 8048 8049 extern int wnvald_(integer *size, integer *n, doublereal *a); 8050 /*:ref: return_ 12 0 */ 8051 /*:ref: chkin_ 14 2 13 124 */ 8052 /*:ref: odd_ 12 1 4 */ 8053 /*:ref: setmsg_ 14 2 13 124 */ 8054 /*:ref: sigerr_ 14 2 13 124 */ 8055 /*:ref: chkout_ 14 2 13 124 */ 8056 /*:ref: ssized_ 14 2 4 7 */ 8057 /*:ref: scardd_ 14 2 4 7 */ 8058 /*:ref: wninsd_ 14 3 7 7 7 */ 8059 8060 extern int wrencc_(integer *unit, integer *n, char *data, ftnlen data_len); 8061 /*:ref: return_ 12 0 */ 8062 /*:ref: chkin_ 14 2 13 124 */ 8063 /*:ref: setmsg_ 14 2 13 124 */ 8064 /*:ref: errint_ 14 3 13 4 124 */ 8065 /*:ref: sigerr_ 14 2 13 124 */ 8066 /*:ref: chkout_ 14 2 13 124 */ 8067 8068 extern int wrencd_(integer *unit, integer *n, doublereal *data); 8069 /*:ref: return_ 12 0 */ 8070 /*:ref: chkin_ 14 2 13 124 */ 8071 /*:ref: setmsg_ 14 2 13 124 */ 8072 /*:ref: errint_ 14 3 13 4 124 */ 8073 /*:ref: sigerr_ 14 2 13 124 */ 8074 /*:ref: chkout_ 14 2 13 124 */ 8075 /*:ref: dp2hx_ 14 4 7 13 4 124 */ 8076 8077 extern int wrenci_(integer *unit, integer *n, integer *data); 8078 /*:ref: return_ 12 0 */ 8079 /*:ref: chkin_ 14 2 13 124 */ 8080 /*:ref: setmsg_ 14 2 13 124 */ 8081 /*:ref: errint_ 14 3 13 4 124 */ 8082 /*:ref: sigerr_ 14 2 13 124 */ 8083 /*:ref: chkout_ 14 2 13 124 */ 8084 /*:ref: int2hx_ 14 4 4 13 4 124 */ 8085 8086 extern int writla_(integer *numlin, char *array, integer *unit, ftnlen array_len); 8087 /*:ref: return_ 12 0 */ 8088 /*:ref: chkin_ 14 2 13 124 */ 8089 /*:ref: setmsg_ 14 2 13 124 */ 8090 /*:ref: errint_ 14 3 13 4 124 */ 8091 /*:ref: sigerr_ 14 2 13 124 */ 8092 /*:ref: chkout_ 14 2 13 124 */ 8093 /*:ref: writln_ 14 3 13 4 124 */ 8094 /*:ref: failed_ 12 0 */ 8095 8096 extern int writln_(char *line, integer *unit, ftnlen line_len); 8097 /*:ref: rtrim_ 4 2 13 124 */ 8098 /*:ref: chkin_ 14 2 13 124 */ 8099 /*:ref: setmsg_ 14 2 13 124 */ 8100 /*:ref: errfnm_ 14 3 13 4 124 */ 8101 /*:ref: errint_ 14 3 13 4 124 */ 8102 /*:ref: sigerr_ 14 2 13 124 */ 8103 /*:ref: chkout_ 14 2 13 124 */ 8104 8105 extern int wrkvar_(integer *unit, char *name__, char *dirctv, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen dirctv_len, ftnlen tabsym_len); 8106 /*:ref: return_ 12 0 */ 8107 /*:ref: chkin_ 14 2 13 124 */ 8108 /*:ref: sydimd_ 4 6 13 13 4 7 124 124 */ 8109 /*:ref: synthd_ 14 9 13 4 13 4 7 7 12 124 124 */ 8110 /*:ref: ljust_ 14 4 13 13 124 124 */ 8111 /*:ref: rjust_ 14 4 13 13 124 124 */ 8112 /*:ref: ioerr_ 14 5 13 13 4 124 124 */ 8113 /*:ref: sigerr_ 14 2 13 124 */ 8114 /*:ref: chkout_ 14 2 13 124 */ 8115 8116 extern int wrline_(char *device, char *line, ftnlen device_len, ftnlen line_len); 8117 extern int clline_(char *device, ftnlen device_len); 8118 /*:ref: ljust_ 14 4 13 13 124 124 */ 8119 /*:ref: ucase_ 14 4 13 13 124 124 */ 8120 /*:ref: rtrim_ 4 2 13 124 */ 8121 /*:ref: ltrim_ 4 2 13 124 */ 8122 /*:ref: fndlun_ 14 1 4 */ 8123 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 8124 /*:ref: intstr_ 14 3 4 13 124 */ 8125 8126 extern int xf2eul_(doublereal *xform, integer *axisa, integer *axisb, integer *axisc, doublereal *eulang, logical *unique); 8127 extern int eul2xf_(doublereal *eulang, integer *axisa, integer *axisb, integer *axisc, doublereal *xform); 8128 /*:ref: return_ 12 0 */ 8129 /*:ref: chkin_ 14 2 13 124 */ 8130 /*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ 8131 /*:ref: failed_ 12 0 */ 8132 /*:ref: chkout_ 14 2 13 124 */ 8133 /*:ref: mxmt_ 14 3 7 7 7 */ 8134 /*:ref: mxv_ 14 3 7 7 7 */ 8135 /*:ref: moved_ 14 3 7 4 7 */ 8136 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 8137 /*:ref: mxm_ 14 3 7 7 7 */ 8138 8139 extern int xf2rav_(doublereal *xform, doublereal *rot, doublereal *av); 8140 /*:ref: mtxm_ 14 3 7 7 7 */ 8141 8142 extern int xposbl_(doublereal *bmat, integer *nrow, integer *ncol, integer *bsize, doublereal *btmat); 8143 /*:ref: chkin_ 14 2 13 124 */ 8144 /*:ref: setmsg_ 14 2 13 124 */ 8145 /*:ref: errint_ 14 3 13 4 124 */ 8146 /*:ref: sigerr_ 14 2 13 124 */ 8147 /*:ref: chkout_ 14 2 13 124 */ 8148 8149 extern int xpose_(doublereal *m1, doublereal *mout); 8150 8151 extern int xposeg_(doublereal *matrix, integer *nrow, integer *ncol, doublereal *xposem); 8152 8153 extern int xpsgip_(integer *nrow, integer *ncol, doublereal *matrix); 8154 8155 extern int zzascii_(char *file, char *line, logical *check, char *termin, ftnlen file_len, ftnlen line_len, ftnlen termin_len); 8156 /*:ref: return_ 12 0 */ 8157 /*:ref: chkin_ 14 2 13 124 */ 8158 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 8159 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8160 /*:ref: chkout_ 14 2 13 124 */ 8161 /*:ref: setmsg_ 14 2 13 124 */ 8162 /*:ref: sigerr_ 14 2 13 124 */ 8163 /*:ref: getlun_ 14 1 4 */ 8164 /*:ref: rtrim_ 4 2 13 124 */ 8165 /*:ref: errch_ 14 4 13 13 124 124 */ 8166 /*:ref: errint_ 14 3 13 4 124 */ 8167 8168 extern int zzasryel_(char *extrem, doublereal *ellips, doublereal *vertex, doublereal *dir, doublereal *angle, doublereal *extpt, ftnlen extrem_len); 8169 /*:ref: return_ 12 0 */ 8170 /*:ref: chkin_ 14 2 13 124 */ 8171 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 8172 /*:ref: ljust_ 14 4 13 13 124 124 */ 8173 /*:ref: setmsg_ 14 2 13 124 */ 8174 /*:ref: errch_ 14 4 13 13 124 124 */ 8175 /*:ref: sigerr_ 14 2 13 124 */ 8176 /*:ref: chkout_ 14 2 13 124 */ 8177 /*:ref: el2cgv_ 14 4 7 7 7 7 */ 8178 /*:ref: vnorm_ 7 1 7 */ 8179 /*:ref: vzero_ 12 1 7 */ 8180 /*:ref: errdp_ 14 3 13 7 124 */ 8181 /*:ref: psv2pl_ 14 4 7 7 7 7 */ 8182 /*:ref: failed_ 12 0 */ 8183 /*:ref: vprjp_ 14 3 7 7 7 */ 8184 /*:ref: vdist_ 7 2 7 7 */ 8185 /*:ref: inrypl_ 14 5 7 7 7 4 7 */ 8186 /*:ref: vsub_ 14 3 7 7 7 */ 8187 /*:ref: vdot_ 7 2 7 7 */ 8188 /*:ref: twopi_ 7 0 */ 8189 /*:ref: vhat_ 14 2 7 7 */ 8190 /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ 8191 /*:ref: touchd_ 7 1 7 */ 8192 /*:ref: swapd_ 14 2 7 7 */ 8193 /*:ref: vadd_ 14 3 7 7 7 */ 8194 /*:ref: vsep_ 7 2 7 7 */ 8195 8196 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); 8197 extern int zzbodget_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, ftnlen names_len, ftnlen nornam_len); 8198 extern int zzbodlst_(char *device, char *reqst, ftnlen device_len, ftnlen reqst_len); 8199 /*:ref: return_ 12 0 */ 8200 /*:ref: chkin_ 14 2 13 124 */ 8201 /*:ref: sigerr_ 14 2 13 124 */ 8202 /*:ref: chkout_ 14 2 13 124 */ 8203 /*:ref: zzidmap_ 14 3 4 13 124 */ 8204 /*:ref: ljust_ 14 4 13 13 124 124 */ 8205 /*:ref: ucase_ 14 4 13 13 124 124 */ 8206 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 8207 /*:ref: setmsg_ 14 2 13 124 */ 8208 /*:ref: errint_ 14 3 13 4 124 */ 8209 /*:ref: movec_ 14 5 13 4 13 124 124 */ 8210 /*:ref: movei_ 14 3 4 4 4 */ 8211 /*:ref: intstr_ 14 3 4 13 124 */ 8212 /*:ref: wrline_ 14 4 13 13 124 124 */ 8213 /*:ref: lastnb_ 4 2 13 124 */ 8214 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8215 /*:ref: orderi_ 14 3 4 4 4 */ 8216 /*:ref: orderc_ 14 4 13 4 4 124 */ 8217 8218 extern integer zzbodbry_(integer *body); 8219 8220 extern int zzbodini_(char *names, char *nornam, integer *codes, integer *nvals, integer *ordnom, integer *ordcod, integer *nocds, ftnlen names_len, ftnlen nornam_len); 8221 /*:ref: orderc_ 14 4 13 4 4 124 */ 8222 /*:ref: orderi_ 14 3 4 4 4 */ 8223 8224 extern int zzbodker_(char *names, char *nornam, integer *codes, integer *nvals, integer *ordnom, integer *ordcod, integer *nocds, logical *extker, ftnlen names_len, ftnlen nornam_len); 8225 /*:ref: return_ 12 0 */ 8226 /*:ref: chkin_ 14 2 13 124 */ 8227 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 8228 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ 8229 /*:ref: setmsg_ 14 2 13 124 */ 8230 /*:ref: errch_ 14 4 13 13 124 124 */ 8231 /*:ref: sigerr_ 14 2 13 124 */ 8232 /*:ref: chkout_ 14 2 13 124 */ 8233 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8234 /*:ref: errint_ 14 3 13 4 124 */ 8235 /*:ref: ljust_ 14 4 13 13 124 124 */ 8236 /*:ref: ucase_ 14 4 13 13 124 124 */ 8237 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 8238 /*:ref: orderc_ 14 4 13 4 4 124 */ 8239 /*:ref: zzbodini_ 14 9 13 13 4 4 4 4 4 124 124 */ 8240 8241 extern int zzbodtrn_(char *name__, integer *code, logical *found, ftnlen name_len); 8242 extern int zzbodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); 8243 extern int zzbodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); 8244 extern int zzboddef_(char *name__, integer *code, ftnlen name_len); 8245 extern int zzbodkik_(void); 8246 extern int zzbodrst_(void); 8247 /*:ref: return_ 12 0 */ 8248 /*:ref: chkin_ 14 2 13 124 */ 8249 /*:ref: sigerr_ 14 2 13 124 */ 8250 /*:ref: chkout_ 14 2 13 124 */ 8251 /*:ref: zzbodget_ 14 7 4 13 13 4 4 124 124 */ 8252 /*:ref: failed_ 12 0 */ 8253 /*:ref: zzbodini_ 14 9 13 13 4 4 4 4 4 124 124 */ 8254 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 8255 /*:ref: cvpool_ 14 3 13 12 124 */ 8256 /*:ref: zzbodker_ 14 10 13 13 4 4 4 4 4 12 124 124 */ 8257 /*:ref: ljust_ 14 4 13 13 124 124 */ 8258 /*:ref: ucase_ 14 4 13 13 124 124 */ 8259 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 8260 /*:ref: bschoc_ 4 6 13 4 13 4 124 124 */ 8261 /*:ref: bschoi_ 4 4 4 4 4 4 */ 8262 /*:ref: setmsg_ 14 2 13 124 */ 8263 /*:ref: errint_ 14 3 13 4 124 */ 8264 /*:ref: errch_ 14 4 13 13 124 124 */ 8265 8266 extern int zzbodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len); 8267 /*:ref: return_ 12 0 */ 8268 /*:ref: chkin_ 14 2 13 124 */ 8269 /*:ref: intstr_ 14 3 4 13 124 */ 8270 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 8271 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8272 /*:ref: setmsg_ 14 2 13 124 */ 8273 /*:ref: errch_ 14 4 13 13 124 124 */ 8274 /*:ref: sigerr_ 14 2 13 124 */ 8275 /*:ref: chkout_ 14 2 13 124 */ 8276 /*:ref: errint_ 14 3 13 4 124 */ 8277 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 8278 8279 extern int zzck4d2i_(doublereal *dpcoef, integer *nsets, doublereal *parcod, integer *i__); 8280 8281 extern int zzck4i2d_(integer *i__, integer *nsets, doublereal *parcod, doublereal *dpcoef); 8282 8283 extern int zzckcv01_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); 8284 /*:ref: return_ 12 0 */ 8285 /*:ref: chkin_ 14 2 13 124 */ 8286 /*:ref: setmsg_ 14 2 13 124 */ 8287 /*:ref: errdp_ 14 3 13 7 124 */ 8288 /*:ref: sigerr_ 14 2 13 124 */ 8289 /*:ref: chkout_ 14 2 13 124 */ 8290 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8291 /*:ref: errch_ 14 4 13 13 124 124 */ 8292 /*:ref: dafgda_ 14 4 4 4 4 7 */ 8293 /*:ref: errhan_ 14 3 13 4 124 */ 8294 /*:ref: errint_ 14 3 13 4 124 */ 8295 /*:ref: sct2e_ 14 3 4 7 7 */ 8296 /*:ref: wninsd_ 14 3 7 7 7 */ 8297 8298 extern int zzckcv02_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); 8299 /*:ref: return_ 12 0 */ 8300 /*:ref: chkin_ 14 2 13 124 */ 8301 /*:ref: setmsg_ 14 2 13 124 */ 8302 /*:ref: errdp_ 14 3 13 7 124 */ 8303 /*:ref: sigerr_ 14 2 13 124 */ 8304 /*:ref: chkout_ 14 2 13 124 */ 8305 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8306 /*:ref: errch_ 14 4 13 13 124 124 */ 8307 /*:ref: dafgda_ 14 4 4 4 4 7 */ 8308 /*:ref: sct2e_ 14 3 4 7 7 */ 8309 /*:ref: wninsd_ 14 3 7 7 7 */ 8310 8311 extern int zzckcv03_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); 8312 /*:ref: return_ 12 0 */ 8313 /*:ref: chkin_ 14 2 13 124 */ 8314 /*:ref: setmsg_ 14 2 13 124 */ 8315 /*:ref: errdp_ 14 3 13 7 124 */ 8316 /*:ref: sigerr_ 14 2 13 124 */ 8317 /*:ref: chkout_ 14 2 13 124 */ 8318 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8319 /*:ref: errch_ 14 4 13 13 124 124 */ 8320 /*:ref: dafgda_ 14 4 4 4 4 7 */ 8321 /*:ref: errhan_ 14 3 13 4 124 */ 8322 /*:ref: errint_ 14 3 13 4 124 */ 8323 /*:ref: sct2e_ 14 3 4 7 7 */ 8324 /*:ref: wninsd_ 14 3 7 7 7 */ 8325 8326 extern int zzckcv04_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); 8327 /*:ref: return_ 12 0 */ 8328 /*:ref: chkin_ 14 2 13 124 */ 8329 /*:ref: setmsg_ 14 2 13 124 */ 8330 /*:ref: errdp_ 14 3 13 7 124 */ 8331 /*:ref: sigerr_ 14 2 13 124 */ 8332 /*:ref: chkout_ 14 2 13 124 */ 8333 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8334 /*:ref: errch_ 14 4 13 13 124 124 */ 8335 /*:ref: intmax_ 4 0 */ 8336 /*:ref: dafps_ 14 5 4 4 7 4 7 */ 8337 /*:ref: cknr04_ 14 3 4 7 4 */ 8338 /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ 8339 /*:ref: sct2e_ 14 3 4 7 7 */ 8340 /*:ref: wninsd_ 14 3 7 7 7 */ 8341 8342 extern int zzckcv05_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); 8343 /*:ref: return_ 12 0 */ 8344 /*:ref: chkin_ 14 2 13 124 */ 8345 /*:ref: setmsg_ 14 2 13 124 */ 8346 /*:ref: errdp_ 14 3 13 7 124 */ 8347 /*:ref: sigerr_ 14 2 13 124 */ 8348 /*:ref: chkout_ 14 2 13 124 */ 8349 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8350 /*:ref: errch_ 14 4 13 13 124 124 */ 8351 /*:ref: dafgda_ 14 4 4 4 4 7 */ 8352 /*:ref: errint_ 14 3 13 7 124 */ 8353 /*:ref: sct2e_ 14 3 4 7 7 */ 8354 /*:ref: wninsd_ 14 3 7 7 7 */ 8355 8356 extern int zzckspk_(integer *handle, char *ckspk, ftnlen ckspk_len); 8357 /*:ref: return_ 12 0 */ 8358 /*:ref: chkin_ 14 2 13 124 */ 8359 /*:ref: dafhsf_ 14 3 4 4 4 */ 8360 /*:ref: chkout_ 14 2 13 124 */ 8361 /*:ref: dafbfs_ 14 1 4 */ 8362 /*:ref: daffna_ 14 1 12 */ 8363 /*:ref: failed_ 12 0 */ 8364 /*:ref: dafgs_ 14 1 7 */ 8365 /*:ref: dafus_ 14 5 7 4 4 7 4 */ 8366 /*:ref: zzsizeok_ 14 6 4 4 4 4 12 4 */ 8367 /*:ref: dafgda_ 14 4 4 4 4 7 */ 8368 8369 extern int zzcln_(integer *lookat, integer *nameat, integer *namlst, integer *datlst, integer *nmpool, integer *chpool, integer *dppool); 8370 /*:ref: chkin_ 14 2 13 124 */ 8371 /*:ref: lnkfsl_ 14 3 4 4 4 */ 8372 /*:ref: chkout_ 14 2 13 124 */ 8373 8374 extern int zzcorepc_(char *abcorr, doublereal *et, doublereal *lt, doublereal *etcorr, ftnlen abcorr_len); 8375 /*:ref: return_ 12 0 */ 8376 /*:ref: chkin_ 14 2 13 124 */ 8377 /*:ref: zzprscor_ 14 3 13 12 124 */ 8378 /*:ref: chkout_ 14 2 13 124 */ 8379 8380 extern int zzdafgdr_(integer *handle, integer *recno, doublereal *dprec, logical *found); 8381 /*:ref: return_ 12 0 */ 8382 /*:ref: chkin_ 14 2 13 124 */ 8383 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 8384 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 8385 /*:ref: ucase_ 14 4 13 13 124 124 */ 8386 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8387 /*:ref: setmsg_ 14 2 13 124 */ 8388 /*:ref: errch_ 14 4 13 13 124 124 */ 8389 /*:ref: sigerr_ 14 2 13 124 */ 8390 /*:ref: chkout_ 14 2 13 124 */ 8391 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ 8392 /*:ref: errint_ 14 3 13 4 124 */ 8393 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 8394 /*:ref: failed_ 12 0 */ 8395 /*:ref: zzxlated_ 14 5 4 13 4 7 124 */ 8396 /*:ref: moved_ 14 3 7 4 7 */ 8397 8398 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); 8399 /*:ref: return_ 12 0 */ 8400 /*:ref: chkin_ 14 2 13 124 */ 8401 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 8402 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 8403 /*:ref: ucase_ 14 4 13 13 124 124 */ 8404 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8405 /*:ref: setmsg_ 14 2 13 124 */ 8406 /*:ref: errch_ 14 4 13 13 124 124 */ 8407 /*:ref: sigerr_ 14 2 13 124 */ 8408 /*:ref: chkout_ 14 2 13 124 */ 8409 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ 8410 /*:ref: errint_ 14 3 13 4 124 */ 8411 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 8412 /*:ref: failed_ 12 0 */ 8413 /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ 8414 8415 extern int zzdafgsr_(integer *handle, integer *recno, integer *nd, integer *ni, doublereal *dprec, logical *found); 8416 /*:ref: return_ 12 0 */ 8417 /*:ref: chkin_ 14 2 13 124 */ 8418 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 8419 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 8420 /*:ref: ucase_ 14 4 13 13 124 124 */ 8421 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8422 /*:ref: setmsg_ 14 2 13 124 */ 8423 /*:ref: errch_ 14 4 13 13 124 124 */ 8424 /*:ref: sigerr_ 14 2 13 124 */ 8425 /*:ref: chkout_ 14 2 13 124 */ 8426 /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ 8427 /*:ref: errint_ 14 3 13 4 124 */ 8428 /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ 8429 /*:ref: failed_ 12 0 */ 8430 /*:ref: zzxlated_ 14 5 4 13 4 7 124 */ 8431 /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ 8432 /*:ref: moved_ 14 3 7 4 7 */ 8433 8434 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); 8435 /*:ref: return_ 12 0 */ 8436 /*:ref: chkin_ 14 2 13 124 */ 8437 /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ 8438 /*:ref: rtrim_ 4 2 13 124 */ 8439 /*:ref: setmsg_ 14 2 13 124 */ 8440 /*:ref: errfnm_ 14 3 13 4 124 */ 8441 /*:ref: errint_ 14 3 13 4 124 */ 8442 /*:ref: sigerr_ 14 2 13 124 */ 8443 /*:ref: chkout_ 14 2 13 124 */ 8444 8445 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); 8446 /*:ref: return_ 12 0 */ 8447 /*:ref: chkin_ 14 2 13 124 */ 8448 /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ 8449 /*:ref: rtrim_ 4 2 13 124 */ 8450 /*:ref: setmsg_ 14 2 13 124 */ 8451 /*:ref: errfnm_ 14 3 13 4 124 */ 8452 /*:ref: errint_ 14 3 13 4 124 */ 8453 /*:ref: sigerr_ 14 2 13 124 */ 8454 /*:ref: chkout_ 14 2 13 124 */ 8455 8456 extern integer zzddhclu_(logical *utlck, integer *nut); 8457 8458 extern int zzddhf2h_(char *fname, integer *ftabs, integer *ftamh, integer *ftarc, integer *ftbff, integer *fthan, char *ftnam, integer *ftrtm, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, logical *exists, logical *opened, integer *handle, logical *found, ftnlen fname_len, ftnlen ftnam_len); 8459 /*:ref: return_ 12 0 */ 8460 /*:ref: chkin_ 14 2 13 124 */ 8461 /*:ref: chkout_ 14 2 13 124 */ 8462 /*:ref: rtrim_ 4 2 13 124 */ 8463 /*:ref: setmsg_ 14 2 13 124 */ 8464 /*:ref: errint_ 14 3 13 4 124 */ 8465 /*:ref: sigerr_ 14 2 13 124 */ 8466 /*:ref: isrchi_ 4 3 4 4 4 */ 8467 /*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ 8468 /*:ref: failed_ 12 0 */ 8469 /*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ 8470 /*:ref: errch_ 14 4 13 13 124 124 */ 8471 8472 extern int zzddhgsd_(char *class__, integer *id, char *label, ftnlen class_len, ftnlen label_len); 8473 /*:ref: ljust_ 14 4 13 13 124 124 */ 8474 /*:ref: ucase_ 14 4 13 13 124 124 */ 8475 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8476 8477 extern int zzddhgtu_(integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, integer *uindex); 8478 /*:ref: return_ 12 0 */ 8479 /*:ref: getlun_ 14 1 4 */ 8480 /*:ref: failed_ 12 0 */ 8481 /*:ref: orderi_ 14 3 4 4 4 */ 8482 /*:ref: frelun_ 14 1 4 */ 8483 /*:ref: chkin_ 14 2 13 124 */ 8484 /*:ref: setmsg_ 14 2 13 124 */ 8485 /*:ref: sigerr_ 14 2 13 124 */ 8486 /*:ref: chkout_ 14 2 13 124 */ 8487 8488 extern int zzddhini_(integer *natbff, integer *supbff, integer *numsup, char *stramh, char *strarc, char *strbff, ftnlen stramh_len, ftnlen strarc_len, ftnlen strbff_len); 8489 /*:ref: return_ 12 0 */ 8490 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 8491 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 8492 /*:ref: ucase_ 14 4 13 13 124 124 */ 8493 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8494 /*:ref: chkin_ 14 2 13 124 */ 8495 /*:ref: setmsg_ 14 2 13 124 */ 8496 /*:ref: errch_ 14 4 13 13 124 124 */ 8497 /*:ref: sigerr_ 14 2 13 124 */ 8498 /*:ref: chkout_ 14 2 13 124 */ 8499 /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ 8500 8501 extern int zzddhivf_(char *nsum, integer *bff, logical *found, ftnlen nsum_len); 8502 8503 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); 8504 extern int zzddhopn_(char *fname, char *method, char *arch, integer *handle, ftnlen fname_len, ftnlen method_len, ftnlen arch_len); 8505 extern int zzddhcls_(integer *handle, char *arch, logical *kill, ftnlen arch_len); 8506 extern int zzddhhlu_(integer *handle, char *arch, logical *lock, integer *unit, ftnlen arch_len); 8507 extern int zzddhunl_(integer *handle, char *arch, ftnlen arch_len); 8508 extern int zzddhnfo_(integer *handle, char *fname, integer *intarc, integer *intbff, integer *intamh, logical *found, ftnlen fname_len); 8509 extern int zzddhisn_(integer *handle, logical *native, logical *found); 8510 extern int zzddhfnh_(char *fname, integer *handle, logical *found, ftnlen fname_len); 8511 extern int zzddhluh_(integer *unit, integer *handle, logical *found); 8512 /*:ref: return_ 12 0 */ 8513 /*:ref: chkin_ 14 2 13 124 */ 8514 /*:ref: sigerr_ 14 2 13 124 */ 8515 /*:ref: chkout_ 14 2 13 124 */ 8516 /*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ 8517 /*:ref: failed_ 12 0 */ 8518 /*:ref: zzpltchk_ 14 1 12 */ 8519 /*:ref: ljust_ 14 4 13 13 124 124 */ 8520 /*:ref: ucase_ 14 4 13 13 124 124 */ 8521 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8522 /*:ref: setmsg_ 14 2 13 124 */ 8523 /*:ref: errch_ 14 4 13 13 124 124 */ 8524 /*:ref: zzddhclu_ 4 2 12 4 */ 8525 /*:ref: zzddhf2h_ 14 20 13 4 4 4 4 4 13 4 4 4 4 12 4 4 12 12 4 12 124 124 */ 8526 /*:ref: errint_ 14 3 13 4 124 */ 8527 /*:ref: bsrchi_ 4 3 4 4 4 */ 8528 /*:ref: zzddhrcm_ 14 3 4 4 4 */ 8529 /*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ 8530 /*:ref: rtrim_ 4 2 13 124 */ 8531 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 8532 /*:ref: zzddhppf_ 14 3 4 4 4 */ 8533 /*:ref: isrchi_ 4 3 4 4 4 */ 8534 /*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ 8535 /*:ref: frelun_ 14 1 4 */ 8536 8537 extern int zzddhppf_(integer *unit, integer *arch, integer *bff); 8538 /*:ref: return_ 12 0 */ 8539 /*:ref: chkin_ 14 2 13 124 */ 8540 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 8541 /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ 8542 /*:ref: setmsg_ 14 2 13 124 */ 8543 /*:ref: errint_ 14 3 13 4 124 */ 8544 /*:ref: sigerr_ 14 2 13 124 */ 8545 /*:ref: chkout_ 14 2 13 124 */ 8546 /*:ref: errfnm_ 14 3 13 4 124 */ 8547 /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ 8548 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8549 /*:ref: errch_ 14 4 13 13 124 124 */ 8550 /*:ref: zzftpchk_ 14 3 13 12 124 */ 8551 /*:ref: pos_ 4 5 13 13 4 124 124 */ 8552 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 8553 /*:ref: ucase_ 14 4 13 13 124 124 */ 8554 /*:ref: zzddhivf_ 14 4 13 4 12 124 */ 8555 8556 extern int zzddhrcm_(integer *nut, integer *utcst, integer *reqcnt); 8557 /*:ref: intmax_ 4 0 */ 8558 8559 extern int zzddhrmu_(integer *uindex, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut); 8560 /*:ref: chkin_ 14 2 13 124 */ 8561 /*:ref: setmsg_ 14 2 13 124 */ 8562 /*:ref: errint_ 14 3 13 4 124 */ 8563 /*:ref: sigerr_ 14 2 13 124 */ 8564 /*:ref: chkout_ 14 2 13 124 */ 8565 /*:ref: reslun_ 14 1 4 */ 8566 8567 extern int zzdynbid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); 8568 /*:ref: return_ 12 0 */ 8569 /*:ref: chkin_ 14 2 13 124 */ 8570 /*:ref: intstr_ 14 3 4 13 124 */ 8571 /*:ref: failed_ 12 0 */ 8572 /*:ref: chkout_ 14 2 13 124 */ 8573 /*:ref: rtrim_ 4 2 13 124 */ 8574 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 8575 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 8576 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8577 /*:ref: setmsg_ 14 2 13 124 */ 8578 /*:ref: errint_ 14 3 13 4 124 */ 8579 /*:ref: errch_ 14 4 13 13 124 124 */ 8580 /*:ref: sigerr_ 14 2 13 124 */ 8581 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 8582 /*:ref: bods2c_ 14 4 13 4 12 124 */ 8583 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ 8584 8585 extern int zzdynfid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); 8586 /*:ref: return_ 12 0 */ 8587 /*:ref: chkin_ 14 2 13 124 */ 8588 /*:ref: intstr_ 14 3 4 13 124 */ 8589 /*:ref: failed_ 12 0 */ 8590 /*:ref: chkout_ 14 2 13 124 */ 8591 /*:ref: rtrim_ 4 2 13 124 */ 8592 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 8593 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 8594 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8595 /*:ref: setmsg_ 14 2 13 124 */ 8596 /*:ref: errint_ 14 3 13 4 124 */ 8597 /*:ref: errch_ 14 4 13 13 124 124 */ 8598 /*:ref: sigerr_ 14 2 13 124 */ 8599 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 8600 /*:ref: namfrm_ 14 3 13 4 124 */ 8601 /*:ref: beint_ 12 2 13 124 */ 8602 /*:ref: prsint_ 14 3 13 4 124 */ 8603 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ 8604 8605 extern int zzdynfr0_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); 8606 /*:ref: return_ 12 0 */ 8607 /*:ref: chkin_ 14 2 13 124 */ 8608 /*:ref: irfnum_ 14 3 13 4 124 */ 8609 /*:ref: bodn2c_ 14 4 13 4 12 124 */ 8610 /*:ref: cleard_ 14 2 4 7 */ 8611 /*:ref: frmnam_ 14 3 4 13 124 */ 8612 /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ 8613 /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ 8614 /*:ref: failed_ 12 0 */ 8615 /*:ref: chkout_ 14 2 13 124 */ 8616 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8617 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 8618 /*:ref: ucase_ 14 4 13 13 124 124 */ 8619 /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ 8620 /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ 8621 /*:ref: setmsg_ 14 2 13 124 */ 8622 /*:ref: errch_ 14 4 13 13 124 124 */ 8623 /*:ref: sigerr_ 14 2 13 124 */ 8624 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 8625 /*:ref: intstr_ 14 3 4 13 124 */ 8626 /*:ref: zzeprc76_ 14 2 7 7 */ 8627 /*:ref: invstm_ 14 2 7 7 */ 8628 /*:ref: zzenut80_ 14 2 7 7 */ 8629 /*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ 8630 /*:ref: zzmobliq_ 14 3 7 7 7 */ 8631 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ 8632 /*:ref: zzfrmch1_ 14 4 4 4 7 7 */ 8633 /*:ref: moved_ 14 3 7 4 7 */ 8634 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8635 /*:ref: errint_ 14 3 13 4 124 */ 8636 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ 8637 /*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */ 8638 /*:ref: vpack_ 14 4 7 7 7 7 */ 8639 /*:ref: vhat_ 14 2 7 7 */ 8640 /*:ref: qderiv_ 14 5 4 7 7 7 7 */ 8641 /*:ref: vequ_ 14 2 7 7 */ 8642 /*:ref: zzprscor_ 14 3 13 12 124 */ 8643 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 8644 /*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ 8645 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ 8646 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 8647 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 8648 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 8649 /*:ref: vminug_ 14 3 7 4 7 */ 8650 /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ 8651 /*:ref: vsubg_ 14 4 7 7 4 7 */ 8652 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ 8653 /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ 8654 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ 8655 /*:ref: latrec_ 14 4 7 7 7 7 */ 8656 /*:ref: stlabx_ 14 3 7 7 7 */ 8657 /*:ref: stelab_ 14 3 7 7 7 */ 8658 /*:ref: vsep_ 7 2 7 7 */ 8659 /*:ref: etcal_ 14 3 7 13 124 */ 8660 /*:ref: errdp_ 14 3 13 7 124 */ 8661 /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ 8662 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ 8663 /*:ref: polyds_ 14 5 7 4 4 7 7 */ 8664 8665 extern int zzdynfrm_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); 8666 /*:ref: return_ 12 0 */ 8667 /*:ref: chkin_ 14 2 13 124 */ 8668 /*:ref: irfnum_ 14 3 13 4 124 */ 8669 /*:ref: bodn2c_ 14 4 13 4 12 124 */ 8670 /*:ref: cleard_ 14 2 4 7 */ 8671 /*:ref: frmnam_ 14 3 4 13 124 */ 8672 /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ 8673 /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ 8674 /*:ref: failed_ 12 0 */ 8675 /*:ref: chkout_ 14 2 13 124 */ 8676 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8677 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 8678 /*:ref: ucase_ 14 4 13 13 124 124 */ 8679 /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ 8680 /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ 8681 /*:ref: setmsg_ 14 2 13 124 */ 8682 /*:ref: errch_ 14 4 13 13 124 124 */ 8683 /*:ref: sigerr_ 14 2 13 124 */ 8684 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 8685 /*:ref: intstr_ 14 3 4 13 124 */ 8686 /*:ref: zzeprc76_ 14 2 7 7 */ 8687 /*:ref: invstm_ 14 2 7 7 */ 8688 /*:ref: zzenut80_ 14 2 7 7 */ 8689 /*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ 8690 /*:ref: zzmobliq_ 14 3 7 7 7 */ 8691 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ 8692 /*:ref: zzfrmch0_ 14 4 4 4 7 7 */ 8693 /*:ref: moved_ 14 3 7 4 7 */ 8694 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8695 /*:ref: errint_ 14 3 13 4 124 */ 8696 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ 8697 /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ 8698 /*:ref: vpack_ 14 4 7 7 7 7 */ 8699 /*:ref: vhat_ 14 2 7 7 */ 8700 /*:ref: qderiv_ 14 5 4 7 7 7 7 */ 8701 /*:ref: vequ_ 14 2 7 7 */ 8702 /*:ref: zzprscor_ 14 3 13 12 124 */ 8703 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 8704 /*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ 8705 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ 8706 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 8707 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 8708 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 8709 /*:ref: vminug_ 14 3 7 4 7 */ 8710 /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ 8711 /*:ref: vsubg_ 14 4 7 7 4 7 */ 8712 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ 8713 /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ 8714 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ 8715 /*:ref: latrec_ 14 4 7 7 7 7 */ 8716 /*:ref: stlabx_ 14 3 7 7 7 */ 8717 /*:ref: stelab_ 14 3 7 7 7 */ 8718 /*:ref: vsep_ 7 2 7 7 */ 8719 /*:ref: etcal_ 14 3 7 13 124 */ 8720 /*:ref: errdp_ 14 3 13 7 124 */ 8721 /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ 8722 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ 8723 /*:ref: polyds_ 14 5 7 4 4 7 7 */ 8724 8725 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); 8726 /*:ref: return_ 12 0 */ 8727 /*:ref: chkin_ 14 2 13 124 */ 8728 /*:ref: intstr_ 14 3 4 13 124 */ 8729 /*:ref: failed_ 12 0 */ 8730 /*:ref: chkout_ 14 2 13 124 */ 8731 /*:ref: rtrim_ 4 2 13 124 */ 8732 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 8733 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 8734 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8735 /*:ref: setmsg_ 14 2 13 124 */ 8736 /*:ref: errint_ 14 3 13 4 124 */ 8737 /*:ref: errch_ 14 4 13 13 124 124 */ 8738 /*:ref: sigerr_ 14 2 13 124 */ 8739 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 8740 8741 extern int zzdynoad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, logical *found, ftnlen frname_len, ftnlen item_len); 8742 /*:ref: return_ 12 0 */ 8743 /*:ref: chkin_ 14 2 13 124 */ 8744 /*:ref: intstr_ 14 3 4 13 124 */ 8745 /*:ref: failed_ 12 0 */ 8746 /*:ref: chkout_ 14 2 13 124 */ 8747 /*:ref: rtrim_ 4 2 13 124 */ 8748 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 8749 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 8750 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8751 /*:ref: setmsg_ 14 2 13 124 */ 8752 /*:ref: errint_ 14 3 13 4 124 */ 8753 /*:ref: errch_ 14 4 13 13 124 124 */ 8754 /*:ref: sigerr_ 14 2 13 124 */ 8755 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 8756 8757 extern int zzdynrot_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); 8758 /*:ref: return_ 12 0 */ 8759 /*:ref: chkin_ 14 2 13 124 */ 8760 /*:ref: irfnum_ 14 3 13 4 124 */ 8761 /*:ref: bodn2c_ 14 4 13 4 12 124 */ 8762 /*:ref: cleard_ 14 2 4 7 */ 8763 /*:ref: frmnam_ 14 3 4 13 124 */ 8764 /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ 8765 /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ 8766 /*:ref: failed_ 12 0 */ 8767 /*:ref: chkout_ 14 2 13 124 */ 8768 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8769 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 8770 /*:ref: ucase_ 14 4 13 13 124 124 */ 8771 /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ 8772 /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ 8773 /*:ref: setmsg_ 14 2 13 124 */ 8774 /*:ref: errch_ 14 4 13 13 124 124 */ 8775 /*:ref: sigerr_ 14 2 13 124 */ 8776 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 8777 /*:ref: intstr_ 14 3 4 13 124 */ 8778 /*:ref: zzeprc76_ 14 2 7 7 */ 8779 /*:ref: moved_ 14 3 7 4 7 */ 8780 /*:ref: xpose_ 14 2 7 7 */ 8781 /*:ref: zzenut80_ 14 2 7 7 */ 8782 /*:ref: mxm_ 14 3 7 7 7 */ 8783 /*:ref: zzmobliq_ 14 3 7 7 7 */ 8784 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 8785 /*:ref: zzrefch0_ 14 4 4 4 7 7 */ 8786 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8787 /*:ref: errint_ 14 3 13 4 124 */ 8788 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ 8789 /*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ 8790 /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ 8791 /*:ref: vhat_ 14 2 7 7 */ 8792 /*:ref: zzprscor_ 14 3 13 12 124 */ 8793 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 8794 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ 8795 /*:ref: mxv_ 14 3 7 7 7 */ 8796 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 8797 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 8798 /*:ref: vminus_ 14 2 7 7 */ 8799 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ 8800 /*:ref: vsub_ 14 3 7 7 7 */ 8801 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ 8802 /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ 8803 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ 8804 /*:ref: latrec_ 14 4 7 7 7 7 */ 8805 /*:ref: vequ_ 14 2 7 7 */ 8806 /*:ref: stlabx_ 14 3 7 7 7 */ 8807 /*:ref: stelab_ 14 3 7 7 7 */ 8808 /*:ref: vsep_ 7 2 7 7 */ 8809 /*:ref: etcal_ 14 3 7 13 124 */ 8810 /*:ref: errdp_ 14 3 13 7 124 */ 8811 /*:ref: twovec_ 14 5 7 4 7 4 7 */ 8812 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ 8813 /*:ref: polyds_ 14 5 7 4 4 7 7 */ 8814 8815 extern int zzdynrt0_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); 8816 /*:ref: return_ 12 0 */ 8817 /*:ref: chkin_ 14 2 13 124 */ 8818 /*:ref: irfnum_ 14 3 13 4 124 */ 8819 /*:ref: bodn2c_ 14 4 13 4 12 124 */ 8820 /*:ref: cleard_ 14 2 4 7 */ 8821 /*:ref: frmnam_ 14 3 4 13 124 */ 8822 /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ 8823 /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ 8824 /*:ref: failed_ 12 0 */ 8825 /*:ref: chkout_ 14 2 13 124 */ 8826 /*:ref: eqstr_ 12 4 13 13 124 124 */ 8827 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 8828 /*:ref: ucase_ 14 4 13 13 124 124 */ 8829 /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ 8830 /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ 8831 /*:ref: setmsg_ 14 2 13 124 */ 8832 /*:ref: errch_ 14 4 13 13 124 124 */ 8833 /*:ref: sigerr_ 14 2 13 124 */ 8834 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 8835 /*:ref: intstr_ 14 3 4 13 124 */ 8836 /*:ref: zzeprc76_ 14 2 7 7 */ 8837 /*:ref: moved_ 14 3 7 4 7 */ 8838 /*:ref: xpose_ 14 2 7 7 */ 8839 /*:ref: zzenut80_ 14 2 7 7 */ 8840 /*:ref: mxm_ 14 3 7 7 7 */ 8841 /*:ref: zzmobliq_ 14 3 7 7 7 */ 8842 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 8843 /*:ref: zzrefch1_ 14 4 4 4 7 7 */ 8844 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 8845 /*:ref: errint_ 14 3 13 4 124 */ 8846 /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ 8847 /*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ 8848 /*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */ 8849 /*:ref: vhat_ 14 2 7 7 */ 8850 /*:ref: zzprscor_ 14 3 13 12 124 */ 8851 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 8852 /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ 8853 /*:ref: mxv_ 14 3 7 7 7 */ 8854 /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ 8855 /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ 8856 /*:ref: vminus_ 14 2 7 7 */ 8857 /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ 8858 /*:ref: vsub_ 14 3 7 7 7 */ 8859 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ 8860 /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ 8861 /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ 8862 /*:ref: latrec_ 14 4 7 7 7 7 */ 8863 /*:ref: stlabx_ 14 3 7 7 7 */ 8864 /*:ref: stelab_ 14 3 7 7 7 */ 8865 /*:ref: vequ_ 14 2 7 7 */ 8866 /*:ref: vsep_ 7 2 7 7 */ 8867 /*:ref: etcal_ 14 3 7 13 124 */ 8868 /*:ref: errdp_ 14 3 13 7 124 */ 8869 /*:ref: twovec_ 14 5 7 4 7 4 7 */ 8870 /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ 8871 /*:ref: polyds_ 14 5 7 4 4 7 7 */ 8872 8873 extern int zzdynvac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, ftnlen frname_len, ftnlen item_len, ftnlen values_len); 8874 /*:ref: return_ 12 0 */ 8875 /*:ref: chkin_ 14 2 13 124 */ 8876 /*:ref: intstr_ 14 3 4 13 124 */ 8877 /*:ref: failed_ 12 0 */ 8878 /*:ref: chkout_ 14 2 13 124 */ 8879 /*:ref: rtrim_ 4 2 13 124 */ 8880 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 8881 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 8882 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8883 /*:ref: setmsg_ 14 2 13 124 */ 8884 /*:ref: errint_ 14 3 13 4 124 */ 8885 /*:ref: errch_ 14 4 13 13 124 124 */ 8886 /*:ref: sigerr_ 14 2 13 124 */ 8887 /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ 8888 8889 extern int zzdynvad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, ftnlen frname_len, ftnlen item_len); 8890 /*:ref: return_ 12 0 */ 8891 /*:ref: chkin_ 14 2 13 124 */ 8892 /*:ref: intstr_ 14 3 4 13 124 */ 8893 /*:ref: failed_ 12 0 */ 8894 /*:ref: chkout_ 14 2 13 124 */ 8895 /*:ref: rtrim_ 4 2 13 124 */ 8896 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 8897 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 8898 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8899 /*:ref: setmsg_ 14 2 13 124 */ 8900 /*:ref: errint_ 14 3 13 4 124 */ 8901 /*:ref: errch_ 14 4 13 13 124 124 */ 8902 /*:ref: sigerr_ 14 2 13 124 */ 8903 /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ 8904 8905 extern int zzdynvai_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, integer *values, ftnlen frname_len, ftnlen item_len); 8906 /*:ref: return_ 12 0 */ 8907 /*:ref: chkin_ 14 2 13 124 */ 8908 /*:ref: intstr_ 14 3 4 13 124 */ 8909 /*:ref: failed_ 12 0 */ 8910 /*:ref: chkout_ 14 2 13 124 */ 8911 /*:ref: rtrim_ 4 2 13 124 */ 8912 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 8913 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 8914 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 8915 /*:ref: setmsg_ 14 2 13 124 */ 8916 /*:ref: errint_ 14 3 13 4 124 */ 8917 /*:ref: errch_ 14 4 13 13 124 124 */ 8918 /*:ref: sigerr_ 14 2 13 124 */ 8919 /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ 8920 8921 extern int zzekac01_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *rcptrs, integer *wkindx); 8922 /*:ref: return_ 12 0 */ 8923 /*:ref: chkin_ 14 2 13 124 */ 8924 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 8925 /*:ref: setmsg_ 14 2 13 124 */ 8926 /*:ref: errint_ 14 3 13 4 124 */ 8927 /*:ref: errch_ 14 4 13 13 124 124 */ 8928 /*:ref: sigerr_ 14 2 13 124 */ 8929 /*:ref: chkout_ 14 2 13 124 */ 8930 /*:ref: zzekspsh_ 14 2 4 4 */ 8931 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 8932 /*:ref: cleari_ 14 2 4 4 */ 8933 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 8934 /*:ref: zzekordi_ 14 5 4 12 12 4 4 */ 8935 /*:ref: zzektrit_ 14 2 4 4 */ 8936 /*:ref: zzektr1s_ 14 4 4 4 4 4 */ 8937 /*:ref: dasudi_ 14 4 4 4 4 4 */ 8938 8939 extern int zzekac02_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *rcptrs, integer *wkindx); 8940 /*:ref: return_ 12 0 */ 8941 /*:ref: chkin_ 14 2 13 124 */ 8942 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 8943 /*:ref: setmsg_ 14 2 13 124 */ 8944 /*:ref: errint_ 14 3 13 4 124 */ 8945 /*:ref: errch_ 14 4 13 13 124 124 */ 8946 /*:ref: sigerr_ 14 2 13 124 */ 8947 /*:ref: chkout_ 14 2 13 124 */ 8948 /*:ref: zzekspsh_ 14 2 4 4 */ 8949 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 8950 /*:ref: cleard_ 14 2 4 7 */ 8951 /*:ref: zzekpgwd_ 14 3 4 4 7 */ 8952 /*:ref: zzekordd_ 14 5 7 12 12 4 4 */ 8953 /*:ref: zzektrit_ 14 2 4 4 */ 8954 /*:ref: zzektr1s_ 14 4 4 4 4 4 */ 8955 /*:ref: dasudi_ 14 4 4 4 4 4 */ 8956 8957 extern int zzekac03_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen cvals_len); 8958 /*:ref: return_ 12 0 */ 8959 /*:ref: chkin_ 14 2 13 124 */ 8960 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 8961 /*:ref: setmsg_ 14 2 13 124 */ 8962 /*:ref: errint_ 14 3 13 4 124 */ 8963 /*:ref: errch_ 14 4 13 13 124 124 */ 8964 /*:ref: sigerr_ 14 2 13 124 */ 8965 /*:ref: chkout_ 14 2 13 124 */ 8966 /*:ref: zzekspsh_ 14 2 4 4 */ 8967 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 8968 /*:ref: prtenc_ 14 3 4 13 124 */ 8969 /*:ref: rtrim_ 4 2 13 124 */ 8970 /*:ref: prtdec_ 14 3 13 4 124 */ 8971 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ 8972 /*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ 8973 /*:ref: zzektrit_ 14 2 4 4 */ 8974 /*:ref: zzektr1s_ 14 4 4 4 4 4 */ 8975 /*:ref: dasudi_ 14 4 4 4 4 4 */ 8976 8977 extern int zzekac04_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, integer *entszs, logical *nlflgs); 8978 /*:ref: return_ 12 0 */ 8979 /*:ref: chkin_ 14 2 13 124 */ 8980 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 8981 /*:ref: setmsg_ 14 2 13 124 */ 8982 /*:ref: errint_ 14 3 13 4 124 */ 8983 /*:ref: errch_ 14 4 13 13 124 124 */ 8984 /*:ref: sigerr_ 14 2 13 124 */ 8985 /*:ref: chkout_ 14 2 13 124 */ 8986 /*:ref: zzekspsh_ 14 2 4 4 */ 8987 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 8988 /*:ref: cleari_ 14 2 4 4 */ 8989 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 8990 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 8991 8992 extern int zzekac05_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, integer *entszs, logical *nlflgs); 8993 /*:ref: return_ 12 0 */ 8994 /*:ref: chkin_ 14 2 13 124 */ 8995 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 8996 /*:ref: setmsg_ 14 2 13 124 */ 8997 /*:ref: errint_ 14 3 13 4 124 */ 8998 /*:ref: errch_ 14 4 13 13 124 124 */ 8999 /*:ref: sigerr_ 14 2 13 124 */ 9000 /*:ref: chkout_ 14 2 13 124 */ 9001 /*:ref: zzekspsh_ 14 2 4 4 */ 9002 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9003 /*:ref: cleard_ 14 2 4 7 */ 9004 /*:ref: zzekpgwd_ 14 3 4 4 7 */ 9005 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 9006 9007 extern int zzekac06_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, integer *entszs, logical *nlflgs, ftnlen cvals_len); 9008 /*:ref: return_ 12 0 */ 9009 /*:ref: chkin_ 14 2 13 124 */ 9010 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9011 /*:ref: setmsg_ 14 2 13 124 */ 9012 /*:ref: errint_ 14 3 13 4 124 */ 9013 /*:ref: errch_ 14 4 13 13 124 124 */ 9014 /*:ref: sigerr_ 14 2 13 124 */ 9015 /*:ref: chkout_ 14 2 13 124 */ 9016 /*:ref: zzekspsh_ 14 2 4 4 */ 9017 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9018 /*:ref: prtenc_ 14 3 4 13 124 */ 9019 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ 9020 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 9021 9022 extern int zzekac07_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *wkindx); 9023 /*:ref: return_ 12 0 */ 9024 /*:ref: chkin_ 14 2 13 124 */ 9025 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9026 /*:ref: setmsg_ 14 2 13 124 */ 9027 /*:ref: errint_ 14 3 13 4 124 */ 9028 /*:ref: errch_ 14 4 13 13 124 124 */ 9029 /*:ref: sigerr_ 14 2 13 124 */ 9030 /*:ref: chkout_ 14 2 13 124 */ 9031 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ 9032 /*:ref: cleari_ 14 2 4 4 */ 9033 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 9034 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9035 /*:ref: zzekordi_ 14 5 4 12 12 4 4 */ 9036 /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ 9037 /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ 9038 9039 extern int zzekac08_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *wkindx); 9040 /*:ref: return_ 12 0 */ 9041 /*:ref: chkin_ 14 2 13 124 */ 9042 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9043 /*:ref: setmsg_ 14 2 13 124 */ 9044 /*:ref: errint_ 14 3 13 4 124 */ 9045 /*:ref: errch_ 14 4 13 13 124 124 */ 9046 /*:ref: sigerr_ 14 2 13 124 */ 9047 /*:ref: chkout_ 14 2 13 124 */ 9048 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ 9049 /*:ref: cleard_ 14 2 4 7 */ 9050 /*:ref: zzekpgwd_ 14 3 4 4 7 */ 9051 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9052 /*:ref: zzekordd_ 14 5 7 12 12 4 4 */ 9053 /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ 9054 /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ 9055 9056 extern int zzekac09_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *wkindx, ftnlen cvals_len); 9057 /*:ref: return_ 12 0 */ 9058 /*:ref: chkin_ 14 2 13 124 */ 9059 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9060 /*:ref: setmsg_ 14 2 13 124 */ 9061 /*:ref: errint_ 14 3 13 4 124 */ 9062 /*:ref: errch_ 14 4 13 13 124 124 */ 9063 /*:ref: sigerr_ 14 2 13 124 */ 9064 /*:ref: chkout_ 14 2 13 124 */ 9065 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ 9066 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ 9067 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9068 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9069 /*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ 9070 /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ 9071 /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ 9072 9073 extern int zzekacps_(integer *handle, integer *segdsc, integer *type__, integer *n, integer *p, integer *base); 9074 /*:ref: zzekpgan_ 14 4 4 4 4 4 */ 9075 /*:ref: failed_ 12 0 */ 9076 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9077 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 9078 /*:ref: zzektrap_ 14 4 4 4 4 4 */ 9079 9080 extern int zzekad01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); 9081 /*:ref: chkin_ 14 2 13 124 */ 9082 /*:ref: setmsg_ 14 2 13 124 */ 9083 /*:ref: errint_ 14 3 13 4 124 */ 9084 /*:ref: sigerr_ 14 2 13 124 */ 9085 /*:ref: chkout_ 14 2 13 124 */ 9086 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9087 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9088 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9089 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9090 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9091 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9092 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9093 /*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ 9094 9095 extern int zzekad02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); 9096 /*:ref: chkin_ 14 2 13 124 */ 9097 /*:ref: setmsg_ 14 2 13 124 */ 9098 /*:ref: errint_ 14 3 13 4 124 */ 9099 /*:ref: sigerr_ 14 2 13 124 */ 9100 /*:ref: chkout_ 14 2 13 124 */ 9101 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9102 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9103 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9104 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9105 /*:ref: dasudd_ 14 4 4 4 4 7 */ 9106 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9107 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9108 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9109 /*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ 9110 9111 extern int zzekad03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); 9112 /*:ref: chkin_ 14 2 13 124 */ 9113 /*:ref: setmsg_ 14 2 13 124 */ 9114 /*:ref: errint_ 14 3 13 4 124 */ 9115 /*:ref: sigerr_ 14 2 13 124 */ 9116 /*:ref: chkout_ 14 2 13 124 */ 9117 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9118 /*:ref: rtrim_ 4 2 13 124 */ 9119 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9120 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9121 /*:ref: zzeksei_ 14 3 4 4 4 */ 9122 /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ 9123 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9124 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9125 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9126 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 9127 /*:ref: zzekiic1_ 14 7 4 4 4 13 4 12 124 */ 9128 9129 extern int zzekad04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); 9130 /*:ref: chkin_ 14 2 13 124 */ 9131 /*:ref: setmsg_ 14 2 13 124 */ 9132 /*:ref: errint_ 14 3 13 4 124 */ 9133 /*:ref: sigerr_ 14 2 13 124 */ 9134 /*:ref: chkout_ 14 2 13 124 */ 9135 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9136 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9137 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9138 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9139 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9140 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9141 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 9142 9143 extern int zzekad05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); 9144 /*:ref: chkin_ 14 2 13 124 */ 9145 /*:ref: setmsg_ 14 2 13 124 */ 9146 /*:ref: errint_ 14 3 13 4 124 */ 9147 /*:ref: sigerr_ 14 2 13 124 */ 9148 /*:ref: chkout_ 14 2 13 124 */ 9149 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9150 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9151 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9152 /*:ref: dasudd_ 14 4 4 4 4 7 */ 9153 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9154 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9155 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9156 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 9157 9158 extern int zzekad06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); 9159 /*:ref: chkin_ 14 2 13 124 */ 9160 /*:ref: setmsg_ 14 2 13 124 */ 9161 /*:ref: errint_ 14 3 13 4 124 */ 9162 /*:ref: sigerr_ 14 2 13 124 */ 9163 /*:ref: chkout_ 14 2 13 124 */ 9164 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9165 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9166 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9167 /*:ref: failed_ 12 0 */ 9168 /*:ref: zzeksei_ 14 3 4 4 4 */ 9169 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9170 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9171 /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ 9172 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9173 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 9174 9175 extern int zzekaps_(integer *handle, integer *segdsc, integer *type__, logical *new__, integer *p, integer *base); 9176 /*:ref: zzekpgan_ 14 4 4 4 4 4 */ 9177 /*:ref: zzekpgal_ 14 4 4 4 4 4 */ 9178 /*:ref: failed_ 12 0 */ 9179 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9180 /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ 9181 /*:ref: zzektrap_ 14 4 4 4 4 4 */ 9182 9183 extern int zzekbs01_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); 9184 /*:ref: return_ 12 0 */ 9185 /*:ref: chkin_ 14 2 13 124 */ 9186 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9187 /*:ref: failed_ 12 0 */ 9188 /*:ref: chkout_ 14 2 13 124 */ 9189 /*:ref: zzekpgan_ 14 4 4 4 4 4 */ 9190 /*:ref: zzektrit_ 14 2 4 4 */ 9191 /*:ref: cleari_ 14 2 4 4 */ 9192 /*:ref: eknseg_ 4 1 4 */ 9193 /*:ref: ljust_ 14 4 13 13 124 124 */ 9194 /*:ref: ucase_ 14 4 13 13 124 124 */ 9195 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ 9196 /*:ref: zzekcix1_ 14 2 4 4 */ 9197 /*:ref: movei_ 14 3 4 4 4 */ 9198 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 9199 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9200 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9201 /*:ref: zzektrap_ 14 4 4 4 4 4 */ 9202 9203 extern int zzekbs02_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); 9204 /*:ref: return_ 12 0 */ 9205 /*:ref: chkin_ 14 2 13 124 */ 9206 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9207 /*:ref: failed_ 12 0 */ 9208 /*:ref: chkout_ 14 2 13 124 */ 9209 /*:ref: zzekpgan_ 14 4 4 4 4 4 */ 9210 /*:ref: zzektrit_ 14 2 4 4 */ 9211 /*:ref: cleari_ 14 2 4 4 */ 9212 /*:ref: eknseg_ 4 1 4 */ 9213 /*:ref: ljust_ 14 4 13 13 124 124 */ 9214 /*:ref: ucase_ 14 4 13 13 124 124 */ 9215 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ 9216 /*:ref: movei_ 14 3 4 4 4 */ 9217 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 9218 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9219 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9220 /*:ref: zzektrap_ 14 4 4 4 4 4 */ 9221 9222 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); 9223 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 9224 /*:ref: failed_ 12 0 */ 9225 /*:ref: chkin_ 14 2 13 124 */ 9226 /*:ref: setmsg_ 14 2 13 124 */ 9227 /*:ref: sigerr_ 14 2 13 124 */ 9228 /*:ref: chkout_ 14 2 13 124 */ 9229 /*:ref: errint_ 14 3 13 4 124 */ 9230 /*:ref: ekccnt_ 14 3 13 4 124 */ 9231 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ 9232 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 9233 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 9234 9235 extern int zzekcdsc_(integer *handle, integer *segdsc, char *column, integer *coldsc, ftnlen column_len); 9236 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9237 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 9238 /*:ref: eqstr_ 12 4 13 13 124 124 */ 9239 /*:ref: dashlu_ 14 2 4 4 */ 9240 /*:ref: chkin_ 14 2 13 124 */ 9241 /*:ref: setmsg_ 14 2 13 124 */ 9242 /*:ref: errch_ 14 4 13 13 124 124 */ 9243 /*:ref: errint_ 14 3 13 4 124 */ 9244 /*:ref: errfnm_ 14 3 13 4 124 */ 9245 /*:ref: sigerr_ 14 2 13 124 */ 9246 /*:ref: chkout_ 14 2 13 124 */ 9247 9248 extern int zzekcix1_(integer *handle, integer *coldsc); 9249 /*:ref: return_ 12 0 */ 9250 /*:ref: chkin_ 14 2 13 124 */ 9251 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9252 /*:ref: failed_ 12 0 */ 9253 /*:ref: chkout_ 14 2 13 124 */ 9254 /*:ref: zzektrit_ 14 2 4 4 */ 9255 9256 extern int zzekcnam_(integer *handle, integer *coldsc, char *column, ftnlen column_len); 9257 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 9258 9259 extern int zzekde01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 9260 /*:ref: return_ 12 0 */ 9261 /*:ref: chkin_ 14 2 13 124 */ 9262 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9263 /*:ref: failed_ 12 0 */ 9264 /*:ref: chkout_ 14 2 13 124 */ 9265 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9266 /*:ref: zzekixdl_ 14 4 4 4 4 4 */ 9267 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 9268 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9269 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9270 /*:ref: zzekdps_ 14 4 4 4 4 4 */ 9271 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9272 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9273 /*:ref: dashlu_ 14 2 4 4 */ 9274 /*:ref: setmsg_ 14 2 13 124 */ 9275 /*:ref: errint_ 14 3 13 4 124 */ 9276 /*:ref: errfnm_ 14 3 13 4 124 */ 9277 /*:ref: sigerr_ 14 2 13 124 */ 9278 9279 extern int zzekde02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 9280 /*:ref: return_ 12 0 */ 9281 /*:ref: chkin_ 14 2 13 124 */ 9282 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9283 /*:ref: failed_ 12 0 */ 9284 /*:ref: chkout_ 14 2 13 124 */ 9285 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9286 /*:ref: zzekixdl_ 14 4 4 4 4 4 */ 9287 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 9288 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9289 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9290 /*:ref: zzekdps_ 14 4 4 4 4 4 */ 9291 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9292 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9293 /*:ref: dashlu_ 14 2 4 4 */ 9294 /*:ref: setmsg_ 14 2 13 124 */ 9295 /*:ref: errint_ 14 3 13 4 124 */ 9296 /*:ref: errfnm_ 14 3 13 4 124 */ 9297 /*:ref: sigerr_ 14 2 13 124 */ 9298 9299 extern int zzekde03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 9300 /*:ref: return_ 12 0 */ 9301 /*:ref: chkin_ 14 2 13 124 */ 9302 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9303 /*:ref: failed_ 12 0 */ 9304 /*:ref: chkout_ 14 2 13 124 */ 9305 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9306 /*:ref: zzekixdl_ 14 4 4 4 4 4 */ 9307 /*:ref: zzekgei_ 14 3 4 4 4 */ 9308 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9309 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 9310 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ 9311 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9312 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9313 /*:ref: zzekdps_ 14 4 4 4 4 4 */ 9314 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9315 /*:ref: dashlu_ 14 2 4 4 */ 9316 /*:ref: setmsg_ 14 2 13 124 */ 9317 /*:ref: errint_ 14 3 13 4 124 */ 9318 /*:ref: errfnm_ 14 3 13 4 124 */ 9319 /*:ref: sigerr_ 14 2 13 124 */ 9320 9321 extern int zzekde04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 9322 /*:ref: return_ 12 0 */ 9323 /*:ref: chkin_ 14 2 13 124 */ 9324 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9325 /*:ref: failed_ 12 0 */ 9326 /*:ref: chkout_ 14 2 13 124 */ 9327 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9328 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9329 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 9330 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ 9331 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9332 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9333 /*:ref: zzekdps_ 14 4 4 4 4 4 */ 9334 /*:ref: dashlu_ 14 2 4 4 */ 9335 /*:ref: setmsg_ 14 2 13 124 */ 9336 /*:ref: errint_ 14 3 13 4 124 */ 9337 /*:ref: errfnm_ 14 3 13 4 124 */ 9338 /*:ref: sigerr_ 14 2 13 124 */ 9339 9340 extern int zzekde05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 9341 /*:ref: return_ 12 0 */ 9342 /*:ref: chkin_ 14 2 13 124 */ 9343 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9344 /*:ref: failed_ 12 0 */ 9345 /*:ref: chkout_ 14 2 13 124 */ 9346 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9347 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 9348 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9349 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 9350 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ 9351 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9352 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9353 /*:ref: zzekdps_ 14 4 4 4 4 4 */ 9354 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9355 /*:ref: dashlu_ 14 2 4 4 */ 9356 /*:ref: setmsg_ 14 2 13 124 */ 9357 /*:ref: errint_ 14 3 13 4 124 */ 9358 /*:ref: errfnm_ 14 3 13 4 124 */ 9359 /*:ref: sigerr_ 14 2 13 124 */ 9360 9361 extern int zzekde06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 9362 /*:ref: return_ 12 0 */ 9363 /*:ref: chkin_ 14 2 13 124 */ 9364 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9365 /*:ref: failed_ 12 0 */ 9366 /*:ref: chkout_ 14 2 13 124 */ 9367 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9368 /*:ref: zzekgei_ 14 3 4 4 4 */ 9369 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9370 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 9371 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ 9372 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 9373 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 9374 /*:ref: zzekdps_ 14 4 4 4 4 4 */ 9375 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9376 /*:ref: dashlu_ 14 2 4 4 */ 9377 /*:ref: setmsg_ 14 2 13 124 */ 9378 /*:ref: errint_ 14 3 13 4 124 */ 9379 /*:ref: errfnm_ 14 3 13 4 124 */ 9380 /*:ref: sigerr_ 14 2 13 124 */ 9381 9382 extern int zzekdps_(integer *handle, integer *segdsc, integer *type__, integer *p); 9383 /*:ref: zzekpgfr_ 14 3 4 4 4 */ 9384 /*:ref: failed_ 12 0 */ 9385 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9386 /*:ref: zzektrls_ 4 3 4 4 4 */ 9387 /*:ref: zzektrdl_ 14 3 4 4 4 */ 9388 9389 extern integer zzekecmp_(integer *hans, integer *sgdscs, integer *cldscs, integer *rows, integer *elts); 9390 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ 9391 /*:ref: dashlu_ 14 2 4 4 */ 9392 /*:ref: chkin_ 14 2 13 124 */ 9393 /*:ref: setmsg_ 14 2 13 124 */ 9394 /*:ref: errfnm_ 14 3 13 4 124 */ 9395 /*:ref: errint_ 14 3 13 4 124 */ 9396 /*:ref: sigerr_ 14 2 13 124 */ 9397 /*:ref: chkout_ 14 2 13 124 */ 9398 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ 9399 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 9400 9401 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); 9402 /*:ref: return_ 12 0 */ 9403 /*:ref: chkin_ 14 2 13 124 */ 9404 /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ 9405 /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ 9406 /*:ref: chkout_ 14 2 13 124 */ 9407 /*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ 9408 /*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ 9409 /*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ 9410 /*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ 9411 9412 extern int zzekerc1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); 9413 /*:ref: failed_ 12 0 */ 9414 /*:ref: zzektrsz_ 4 2 4 4 */ 9415 /*:ref: chkin_ 14 2 13 124 */ 9416 /*:ref: setmsg_ 14 2 13 124 */ 9417 /*:ref: errint_ 14 3 13 4 124 */ 9418 /*:ref: sigerr_ 14 2 13 124 */ 9419 /*:ref: chkout_ 14 2 13 124 */ 9420 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 9421 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9422 9423 extern int zzekerd1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); 9424 /*:ref: failed_ 12 0 */ 9425 /*:ref: zzektrsz_ 4 2 4 4 */ 9426 /*:ref: chkin_ 14 2 13 124 */ 9427 /*:ref: setmsg_ 14 2 13 124 */ 9428 /*:ref: errint_ 14 3 13 4 124 */ 9429 /*:ref: sigerr_ 14 2 13 124 */ 9430 /*:ref: chkout_ 14 2 13 124 */ 9431 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 9432 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9433 9434 extern int zzekeri1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); 9435 /*:ref: failed_ 12 0 */ 9436 /*:ref: zzektrsz_ 4 2 4 4 */ 9437 /*:ref: chkin_ 14 2 13 124 */ 9438 /*:ref: setmsg_ 14 2 13 124 */ 9439 /*:ref: errint_ 14 3 13 4 124 */ 9440 /*:ref: sigerr_ 14 2 13 124 */ 9441 /*:ref: chkout_ 14 2 13 124 */ 9442 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 9443 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9444 9445 extern integer zzekesiz_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 9446 /*:ref: zzeksz04_ 4 4 4 4 4 4 */ 9447 /*:ref: zzeksz05_ 4 4 4 4 4 4 */ 9448 /*:ref: zzeksz06_ 4 4 4 4 4 4 */ 9449 /*:ref: dashlu_ 14 2 4 4 */ 9450 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9451 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9452 /*:ref: chkin_ 14 2 13 124 */ 9453 /*:ref: setmsg_ 14 2 13 124 */ 9454 /*:ref: errint_ 14 3 13 4 124 */ 9455 /*:ref: errch_ 14 4 13 13 124 124 */ 9456 /*:ref: errfnm_ 14 3 13 4 124 */ 9457 /*:ref: sigerr_ 14 2 13 124 */ 9458 /*:ref: chkout_ 14 2 13 124 */ 9459 9460 extern int zzekff01_(integer *handle, integer *segno, integer *rcptrs); 9461 /*:ref: return_ 12 0 */ 9462 /*:ref: chkin_ 14 2 13 124 */ 9463 /*:ref: zzeksrd_ 14 3 4 4 4 */ 9464 /*:ref: setmsg_ 14 2 13 124 */ 9465 /*:ref: errint_ 14 3 13 4 124 */ 9466 /*:ref: sigerr_ 14 2 13 124 */ 9467 /*:ref: chkout_ 14 2 13 124 */ 9468 /*:ref: zzekmloc_ 14 4 4 4 4 4 */ 9469 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9470 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 9471 /*:ref: cleari_ 14 2 4 4 */ 9472 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 9473 /*:ref: zzektrit_ 14 2 4 4 */ 9474 /*:ref: zzektr1s_ 14 4 4 4 4 4 */ 9475 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9476 9477 extern int zzekfrx_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *pos); 9478 /*:ref: return_ 12 0 */ 9479 /*:ref: chkin_ 14 2 13 124 */ 9480 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 9481 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ 9482 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ 9483 /*:ref: dashlu_ 14 2 4 4 */ 9484 /*:ref: setmsg_ 14 2 13 124 */ 9485 /*:ref: errfnm_ 14 3 13 4 124 */ 9486 /*:ref: errint_ 14 3 13 4 124 */ 9487 /*:ref: sigerr_ 14 2 13 124 */ 9488 /*:ref: chkout_ 14 2 13 124 */ 9489 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9490 /*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ 9491 /*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ 9492 /*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ 9493 9494 extern int zzekgcdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); 9495 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9496 /*:ref: dashlu_ 14 2 4 4 */ 9497 /*:ref: chkin_ 14 2 13 124 */ 9498 /*:ref: setmsg_ 14 2 13 124 */ 9499 /*:ref: errint_ 14 3 13 4 124 */ 9500 /*:ref: errfnm_ 14 3 13 4 124 */ 9501 /*:ref: sigerr_ 14 2 13 124 */ 9502 /*:ref: chkout_ 14 2 13 124 */ 9503 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9504 9505 extern int zzekgei_(integer *handle, integer *addrss, integer *ival); 9506 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 9507 /*:ref: prtdec_ 14 3 13 4 124 */ 9508 9509 extern int zzekgfwd_(integer *handle, integer *type__, integer *p, integer *fward); 9510 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9511 /*:ref: failed_ 12 0 */ 9512 /*:ref: zzekgei_ 14 3 4 4 4 */ 9513 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 9514 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9515 9516 extern int zzekglnk_(integer *handle, integer *type__, integer *p, integer *nlinks); 9517 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 9518 /*:ref: failed_ 12 0 */ 9519 /*:ref: zzekgei_ 14 3 4 4 4 */ 9520 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 9521 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9522 9523 extern int zzekgrcp_(integer *handle, integer *recptr, integer *ptr); 9524 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9525 /*:ref: failed_ 12 0 */ 9526 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9527 9528 extern int zzekgrs_(integer *handle, integer *recptr, integer *status); 9529 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9530 9531 extern int zzekif01_(integer *handle, integer *segno, integer *rcptrs); 9532 /*:ref: return_ 12 0 */ 9533 /*:ref: chkin_ 14 2 13 124 */ 9534 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 9535 /*:ref: zzekstop_ 14 1 4 */ 9536 /*:ref: zzeksdec_ 14 1 4 */ 9537 /*:ref: zzekspsh_ 14 2 4 4 */ 9538 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9539 /*:ref: chkout_ 14 2 13 124 */ 9540 9541 extern int zzekif02_(integer *handle, integer *segno); 9542 /*:ref: return_ 12 0 */ 9543 /*:ref: chkin_ 14 2 13 124 */ 9544 /*:ref: zzekmloc_ 14 4 4 4 4 4 */ 9545 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9546 /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ 9547 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9548 /*:ref: setmsg_ 14 2 13 124 */ 9549 /*:ref: errint_ 14 3 13 4 124 */ 9550 /*:ref: sigerr_ 14 2 13 124 */ 9551 /*:ref: chkout_ 14 2 13 124 */ 9552 9553 extern int zzekiic1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, ftnlen ckey_len); 9554 /*:ref: failed_ 12 0 */ 9555 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9556 /*:ref: chkin_ 14 2 13 124 */ 9557 /*:ref: setmsg_ 14 2 13 124 */ 9558 /*:ref: errch_ 14 4 13 13 124 124 */ 9559 /*:ref: sigerr_ 14 2 13 124 */ 9560 /*:ref: chkout_ 14 2 13 124 */ 9561 /*:ref: errint_ 14 3 13 4 124 */ 9562 /*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ 9563 /*:ref: zzektrin_ 14 4 4 4 4 4 */ 9564 9565 extern int zzekiid1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null); 9566 /*:ref: failed_ 12 0 */ 9567 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9568 /*:ref: chkin_ 14 2 13 124 */ 9569 /*:ref: setmsg_ 14 2 13 124 */ 9570 /*:ref: errch_ 14 4 13 13 124 124 */ 9571 /*:ref: sigerr_ 14 2 13 124 */ 9572 /*:ref: chkout_ 14 2 13 124 */ 9573 /*:ref: errint_ 14 3 13 4 124 */ 9574 /*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ 9575 /*:ref: zzektrin_ 14 4 4 4 4 4 */ 9576 9577 extern int zzekiii1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null); 9578 /*:ref: failed_ 12 0 */ 9579 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9580 /*:ref: chkin_ 14 2 13 124 */ 9581 /*:ref: setmsg_ 14 2 13 124 */ 9582 /*:ref: errch_ 14 4 13 13 124 124 */ 9583 /*:ref: sigerr_ 14 2 13 124 */ 9584 /*:ref: chkout_ 14 2 13 124 */ 9585 /*:ref: errint_ 14 3 13 4 124 */ 9586 /*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ 9587 /*:ref: zzektrin_ 14 4 4 4 4 4 */ 9588 9589 extern integer zzekille_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); 9590 /*:ref: return_ 12 0 */ 9591 /*:ref: chkin_ 14 2 13 124 */ 9592 /*:ref: setmsg_ 14 2 13 124 */ 9593 /*:ref: errint_ 14 3 13 4 124 */ 9594 /*:ref: sigerr_ 14 2 13 124 */ 9595 /*:ref: chkout_ 14 2 13 124 */ 9596 /*:ref: zzekllec_ 14 7 4 4 4 13 4 4 124 */ 9597 /*:ref: zzeklled_ 14 6 4 4 4 7 4 4 */ 9598 /*:ref: zzekllei_ 14 6 4 4 4 4 4 4 */ 9599 9600 extern integer zzekillt_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); 9601 /*:ref: return_ 12 0 */ 9602 /*:ref: chkin_ 14 2 13 124 */ 9603 /*:ref: setmsg_ 14 2 13 124 */ 9604 /*:ref: errint_ 14 3 13 4 124 */ 9605 /*:ref: sigerr_ 14 2 13 124 */ 9606 /*:ref: chkout_ 14 2 13 124 */ 9607 /*:ref: zzeklltc_ 14 7 4 4 4 13 4 4 124 */ 9608 /*:ref: zzeklltd_ 14 6 4 4 4 7 4 4 */ 9609 /*:ref: zzekllti_ 14 6 4 4 4 4 4 4 */ 9610 9611 extern int zzekinqc_(char *value, integer *length, integer *lexbeg, integer *lexend, integer *eqryi, char *eqryc, integer *descr, ftnlen value_len, ftnlen eqryc_len); 9612 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 9613 /*:ref: chkin_ 14 2 13 124 */ 9614 /*:ref: setmsg_ 14 2 13 124 */ 9615 /*:ref: sigerr_ 14 2 13 124 */ 9616 /*:ref: chkout_ 14 2 13 124 */ 9617 /*:ref: errint_ 14 3 13 4 124 */ 9618 /*:ref: cleari_ 14 2 4 4 */ 9619 /*:ref: zzekweqi_ 14 4 13 4 4 124 */ 9620 9621 extern int zzekinqn_(doublereal *value, integer *type__, integer *lexbeg, integer *lexend, integer *eqryi, doublereal *eqryd, integer *descr); 9622 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 9623 /*:ref: chkin_ 14 2 13 124 */ 9624 /*:ref: setmsg_ 14 2 13 124 */ 9625 /*:ref: sigerr_ 14 2 13 124 */ 9626 /*:ref: chkout_ 14 2 13 124 */ 9627 /*:ref: errint_ 14 3 13 4 124 */ 9628 /*:ref: cleari_ 14 2 4 4 */ 9629 /*:ref: zzekweqi_ 14 4 13 4 4 124 */ 9630 9631 extern int zzekixdl_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 9632 /*:ref: return_ 12 0 */ 9633 /*:ref: chkin_ 14 2 13 124 */ 9634 /*:ref: zzekfrx_ 14 5 4 4 4 4 4 */ 9635 /*:ref: zzektrdl_ 14 3 4 4 4 */ 9636 /*:ref: setmsg_ 14 2 13 124 */ 9637 /*:ref: errint_ 14 3 13 4 124 */ 9638 /*:ref: sigerr_ 14 2 13 124 */ 9639 /*:ref: chkout_ 14 2 13 124 */ 9640 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 9641 /*:ref: dashlu_ 14 2 4 4 */ 9642 /*:ref: errfnm_ 14 3 13 4 124 */ 9643 9644 extern int zzekixlk_(integer *handle, integer *coldsc, integer *key, integer *recptr); 9645 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 9646 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9647 /*:ref: chkin_ 14 2 13 124 */ 9648 /*:ref: setmsg_ 14 2 13 124 */ 9649 /*:ref: errint_ 14 3 13 4 124 */ 9650 /*:ref: sigerr_ 14 2 13 124 */ 9651 /*:ref: chkout_ 14 2 13 124 */ 9652 9653 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); 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: zzeksrd_ 14 3 4 4 4 */ 9660 /*:ref: zzekstop_ 14 1 4 */ 9661 /*:ref: zzekspsh_ 14 2 4 4 */ 9662 /*:ref: zzeksupd_ 14 3 4 4 4 */ 9663 /*: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 */ 9664 /*:ref: zzekjnxt_ 14 2 12 4 */ 9665 9666 extern int zzekjsqz_(integer *jrsbas); 9667 /*:ref: zzeksrd_ 14 3 4 4 4 */ 9668 /*:ref: failed_ 12 0 */ 9669 /*:ref: zzeksupd_ 14 3 4 4 4 */ 9670 9671 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); 9672 /*:ref: return_ 12 0 */ 9673 /*:ref: chkin_ 14 2 13 124 */ 9674 /*:ref: setmsg_ 14 2 13 124 */ 9675 /*:ref: errint_ 14 3 13 4 124 */ 9676 /*:ref: sigerr_ 14 2 13 124 */ 9677 /*:ref: chkout_ 14 2 13 124 */ 9678 /*:ref: zzeksrd_ 14 3 4 4 4 */ 9679 /*:ref: zzekvset_ 14 2 4 4 */ 9680 /*:ref: zzekvcal_ 14 3 4 4 4 */ 9681 /*:ref: lnknxt_ 4 2 4 4 */ 9682 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 9683 /*:ref: dashlu_ 14 2 4 4 */ 9684 /*:ref: errfnm_ 14 3 13 4 124 */ 9685 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ 9686 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ 9687 /*:ref: zzekvcmp_ 12 15 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ 9688 /*:ref: swapi_ 14 2 4 4 */ 9689 /*:ref: zzekstop_ 14 1 4 */ 9690 /*:ref: zzekspsh_ 14 2 4 4 */ 9691 /*:ref: zzeksupd_ 14 3 4 4 4 */ 9692 9693 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); 9694 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); 9695 extern int zzekjnxt_(logical *found, integer *rowvec); 9696 /*:ref: chkin_ 14 2 13 124 */ 9697 /*:ref: sigerr_ 14 2 13 124 */ 9698 /*:ref: chkout_ 14 2 13 124 */ 9699 /*:ref: return_ 12 0 */ 9700 /*:ref: movei_ 14 3 4 4 4 */ 9701 /*:ref: lnknxt_ 4 2 4 4 */ 9702 /*:ref: zzekstop_ 14 1 4 */ 9703 /*:ref: zzekspsh_ 14 2 4 4 */ 9704 /*:ref: zzeksrd_ 14 3 4 4 4 */ 9705 /*:ref: zzeksupd_ 14 3 4 4 4 */ 9706 /*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ 9707 /*:ref: zzekrcmp_ 12 12 4 4 4 4 4 4 4 4 4 4 4 4 */ 9708 /*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ 9709 9710 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); 9711 /*:ref: return_ 12 0 */ 9712 /*:ref: chkin_ 14 2 13 124 */ 9713 /*:ref: setmsg_ 14 2 13 124 */ 9714 /*:ref: errint_ 14 3 13 4 124 */ 9715 /*:ref: sigerr_ 14 2 13 124 */ 9716 /*:ref: chkout_ 14 2 13 124 */ 9717 /*:ref: ssizei_ 14 2 4 4 */ 9718 /*:ref: insrti_ 14 2 4 4 */ 9719 /*:ref: cardi_ 4 1 4 */ 9720 /*:ref: zzekillt_ 4 9 4 4 4 4 4 13 7 4 124 */ 9721 /*:ref: zzekille_ 4 9 4 4 4 4 4 13 7 4 124 */ 9722 /*:ref: failed_ 12 0 */ 9723 /*:ref: ordi_ 4 2 4 4 */ 9724 /*:ref: movei_ 14 3 4 4 4 */ 9725 9726 extern int zzeklerc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); 9727 /*:ref: failed_ 12 0 */ 9728 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9729 /*:ref: chkin_ 14 2 13 124 */ 9730 /*:ref: setmsg_ 14 2 13 124 */ 9731 /*:ref: errch_ 14 4 13 13 124 124 */ 9732 /*:ref: sigerr_ 14 2 13 124 */ 9733 /*:ref: chkout_ 14 2 13 124 */ 9734 /*:ref: errint_ 14 3 13 4 124 */ 9735 /*:ref: zzekerc1_ 14 9 4 4 4 13 4 12 4 4 124 */ 9736 9737 extern int zzeklerd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); 9738 /*:ref: failed_ 12 0 */ 9739 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9740 /*:ref: chkin_ 14 2 13 124 */ 9741 /*:ref: setmsg_ 14 2 13 124 */ 9742 /*:ref: errch_ 14 4 13 13 124 124 */ 9743 /*:ref: sigerr_ 14 2 13 124 */ 9744 /*:ref: chkout_ 14 2 13 124 */ 9745 /*:ref: errint_ 14 3 13 4 124 */ 9746 /*:ref: zzekerd1_ 14 8 4 4 4 7 4 12 4 4 */ 9747 9748 extern int zzekleri_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); 9749 /*:ref: failed_ 12 0 */ 9750 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9751 /*:ref: chkin_ 14 2 13 124 */ 9752 /*:ref: setmsg_ 14 2 13 124 */ 9753 /*:ref: errch_ 14 4 13 13 124 124 */ 9754 /*:ref: sigerr_ 14 2 13 124 */ 9755 /*:ref: chkout_ 14 2 13 124 */ 9756 /*:ref: errint_ 14 3 13 4 124 */ 9757 /*:ref: zzekeri1_ 14 8 4 4 4 4 4 12 4 4 */ 9758 9759 extern int zzekllec_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); 9760 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9761 /*:ref: chkin_ 14 2 13 124 */ 9762 /*:ref: setmsg_ 14 2 13 124 */ 9763 /*:ref: errch_ 14 4 13 13 124 124 */ 9764 /*:ref: sigerr_ 14 2 13 124 */ 9765 /*:ref: chkout_ 14 2 13 124 */ 9766 /*:ref: errint_ 14 3 13 4 124 */ 9767 /*:ref: zzekixlk_ 14 4 4 4 4 4 */ 9768 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9769 9770 extern int zzeklled_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); 9771 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9772 /*:ref: chkin_ 14 2 13 124 */ 9773 /*:ref: setmsg_ 14 2 13 124 */ 9774 /*:ref: errch_ 14 4 13 13 124 124 */ 9775 /*:ref: sigerr_ 14 2 13 124 */ 9776 /*:ref: chkout_ 14 2 13 124 */ 9777 /*:ref: errint_ 14 3 13 4 124 */ 9778 /*:ref: zzekixlk_ 14 4 4 4 4 4 */ 9779 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9780 9781 extern int zzekllei_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); 9782 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9783 /*:ref: chkin_ 14 2 13 124 */ 9784 /*:ref: setmsg_ 14 2 13 124 */ 9785 /*:ref: errch_ 14 4 13 13 124 124 */ 9786 /*:ref: sigerr_ 14 2 13 124 */ 9787 /*:ref: chkout_ 14 2 13 124 */ 9788 /*:ref: errint_ 14 3 13 4 124 */ 9789 /*:ref: zzekixlk_ 14 4 4 4 4 4 */ 9790 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9791 9792 extern int zzeklltc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); 9793 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9794 /*:ref: chkin_ 14 2 13 124 */ 9795 /*:ref: setmsg_ 14 2 13 124 */ 9796 /*:ref: errch_ 14 4 13 13 124 124 */ 9797 /*:ref: sigerr_ 14 2 13 124 */ 9798 /*:ref: chkout_ 14 2 13 124 */ 9799 /*:ref: errint_ 14 3 13 4 124 */ 9800 /*:ref: zzekixlk_ 14 4 4 4 4 4 */ 9801 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9802 9803 extern int zzeklltd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); 9804 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9805 /*:ref: chkin_ 14 2 13 124 */ 9806 /*:ref: setmsg_ 14 2 13 124 */ 9807 /*:ref: errch_ 14 4 13 13 124 124 */ 9808 /*:ref: sigerr_ 14 2 13 124 */ 9809 /*:ref: chkout_ 14 2 13 124 */ 9810 /*:ref: errint_ 14 3 13 4 124 */ 9811 /*:ref: zzekixlk_ 14 4 4 4 4 4 */ 9812 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9813 9814 extern int zzekllti_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); 9815 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 9816 /*:ref: chkin_ 14 2 13 124 */ 9817 /*:ref: setmsg_ 14 2 13 124 */ 9818 /*:ref: errch_ 14 4 13 13 124 124 */ 9819 /*:ref: sigerr_ 14 2 13 124 */ 9820 /*:ref: chkout_ 14 2 13 124 */ 9821 /*:ref: errint_ 14 3 13 4 124 */ 9822 /*:ref: zzekixlk_ 14 4 4 4 4 4 */ 9823 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 9824 9825 extern int zzekmloc_(integer *handle, integer *segno, integer *page, integer *base); 9826 /*:ref: eknseg_ 4 1 4 */ 9827 /*:ref: chkin_ 14 2 13 124 */ 9828 /*:ref: setmsg_ 14 2 13 124 */ 9829 /*:ref: errint_ 14 3 13 4 124 */ 9830 /*:ref: sigerr_ 14 2 13 124 */ 9831 /*:ref: chkout_ 14 2 13 124 */ 9832 /*:ref: zzektrbs_ 4 1 4 */ 9833 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9834 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 9835 9836 extern int zzeknres_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); 9837 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 9838 /*:ref: failed_ 12 0 */ 9839 /*:ref: chkin_ 14 2 13 124 */ 9840 /*:ref: setmsg_ 14 2 13 124 */ 9841 /*:ref: sigerr_ 14 2 13 124 */ 9842 /*:ref: chkout_ 14 2 13 124 */ 9843 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ 9844 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 9845 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 9846 /*:ref: ekntab_ 14 1 4 */ 9847 /*:ref: ektnam_ 14 3 4 13 124 */ 9848 /*:ref: ekccnt_ 14 3 13 4 124 */ 9849 /*:ref: zzekcchk_ 14 15 13 4 13 4 13 13 4 12 13 4 124 124 124 124 124 */ 9850 /*:ref: zzekweqi_ 14 4 13 4 4 124 */ 9851 9852 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); 9853 /*:ref: return_ 12 0 */ 9854 /*:ref: chkin_ 14 2 13 124 */ 9855 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 9856 /*:ref: chkout_ 14 2 13 124 */ 9857 /*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ 9858 /*:ref: lnkini_ 14 2 4 4 */ 9859 /*:ref: lnkan_ 14 2 4 4 */ 9860 /*:ref: lnkila_ 14 3 4 4 4 */ 9861 /*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ 9862 /*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ 9863 /*:ref: isrchi_ 4 3 4 4 4 */ 9864 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 9865 /*:ref: lnkhl_ 4 2 4 4 */ 9866 /*:ref: lnkprv_ 4 2 4 4 */ 9867 /*:ref: lnknxt_ 4 2 4 4 */ 9868 /*:ref: lnkfsl_ 14 3 4 4 4 */ 9869 /*:ref: cleari_ 14 2 4 4 */ 9870 /*:ref: lnkilb_ 14 3 4 4 4 */ 9871 /*:ref: lnknfn_ 4 1 4 */ 9872 /*:ref: lnktl_ 4 2 4 4 */ 9873 /*:ref: ssizei_ 14 2 4 4 */ 9874 /*:ref: insrti_ 14 2 4 4 */ 9875 /*:ref: cardi_ 4 1 4 */ 9876 /*:ref: appndi_ 14 2 4 4 */ 9877 /*:ref: zzekweqi_ 14 4 13 4 4 124 */ 9878 9879 extern int zzekordc_(char *cvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder, ftnlen cvals_len); 9880 /*:ref: swapi_ 14 2 4 4 */ 9881 9882 extern int zzekordd_(doublereal *dvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); 9883 /*:ref: swapi_ 14 2 4 4 */ 9884 9885 extern int zzekordi_(integer *ivals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); 9886 /*:ref: swapi_ 14 2 4 4 */ 9887 9888 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); 9889 extern int zzekpgin_(integer *handle); 9890 extern int zzekpgan_(integer *handle, integer *type__, integer *p, integer *base); 9891 extern int zzekpgal_(integer *handle, integer *type__, integer *p, integer *base); 9892 extern int zzekpgfr_(integer *handle, integer *type__, integer *p); 9893 extern int zzekpgrc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); 9894 extern int zzekpgrd_(integer *handle, integer *p, doublereal *paged); 9895 extern int zzekpgri_(integer *handle, integer *p, integer *pagei); 9896 extern int zzekpgwc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); 9897 extern int zzekpgwd_(integer *handle, integer *p, doublereal *paged); 9898 extern int zzekpgwi_(integer *handle, integer *p, integer *pagei); 9899 extern int zzekpgbs_(integer *type__, integer *p, integer *base); 9900 extern int zzekpgpg_(integer *type__, integer *addrss, integer *p, integer *base); 9901 extern int zzekpgst_(integer *handle, char *stat, integer *value, ftnlen stat_len); 9902 /*:ref: sigerr_ 14 2 13 124 */ 9903 /*:ref: chkin_ 14 2 13 124 */ 9904 /*:ref: dassih_ 14 3 4 13 124 */ 9905 /*:ref: failed_ 12 0 */ 9906 /*:ref: chkout_ 14 2 13 124 */ 9907 /*:ref: daslla_ 14 4 4 4 4 4 */ 9908 /*:ref: dashlu_ 14 2 4 4 */ 9909 /*:ref: setmsg_ 14 2 13 124 */ 9910 /*:ref: errfnm_ 14 3 13 4 124 */ 9911 /*:ref: errint_ 14 3 13 4 124 */ 9912 /*:ref: fillc_ 14 5 13 4 13 124 124 */ 9913 /*:ref: filld_ 14 3 7 4 7 */ 9914 /*:ref: filli_ 14 3 4 4 4 */ 9915 /*:ref: dasadi_ 14 3 4 4 4 */ 9916 /*:ref: dasudi_ 14 4 4 4 4 4 */ 9917 /*:ref: zzekpgch_ 14 3 4 13 124 */ 9918 /*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ 9919 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9920 /*:ref: dasadd_ 14 3 4 4 7 */ 9921 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 9922 /*:ref: prtdec_ 14 3 13 4 124 */ 9923 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 9924 /*:ref: prtenc_ 14 3 4 13 124 */ 9925 /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ 9926 /*:ref: dasudd_ 14 4 4 4 4 7 */ 9927 /*:ref: eqstr_ 12 4 13 13 124 124 */ 9928 /*:ref: errch_ 14 4 13 13 124 124 */ 9929 9930 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); 9931 /*:ref: return_ 12 0 */ 9932 /*:ref: chkin_ 14 2 13 124 */ 9933 /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ 9934 /*:ref: failed_ 12 0 */ 9935 /*:ref: chkout_ 14 2 13 124 */ 9936 /*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ 9937 /*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ 9938 /*:ref: appndi_ 14 2 4 4 */ 9939 /*:ref: cleari_ 14 2 4 4 */ 9940 /*:ref: zzekweqi_ 14 4 13 4 4 124 */ 9941 /*:ref: movei_ 14 3 4 4 4 */ 9942 /*:ref: cardi_ 4 1 4 */ 9943 /*:ref: zzeknrml_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ 9944 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 9945 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 9946 9947 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); 9948 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 9949 /*:ref: failed_ 12 0 */ 9950 /*:ref: chkin_ 14 2 13 124 */ 9951 /*:ref: setmsg_ 14 2 13 124 */ 9952 /*:ref: sigerr_ 14 2 13 124 */ 9953 /*:ref: chkout_ 14 2 13 124 */ 9954 /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ 9955 /*:ref: ucase_ 14 4 13 13 124 124 */ 9956 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ 9957 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 9958 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 9959 /*:ref: ekccnt_ 14 3 13 4 124 */ 9960 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ 9961 9962 extern int zzekpdec_(char *decl, integer *pardsc, ftnlen decl_len); 9963 /*:ref: return_ 12 0 */ 9964 /*:ref: chkin_ 14 2 13 124 */ 9965 /*:ref: cleari_ 14 2 4 4 */ 9966 /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ 9967 /*:ref: ucase_ 14 4 13 13 124 124 */ 9968 /*:ref: setmsg_ 14 2 13 124 */ 9969 /*:ref: errch_ 14 4 13 13 124 124 */ 9970 /*:ref: sigerr_ 14 2 13 124 */ 9971 /*:ref: chkout_ 14 2 13 124 */ 9972 /*:ref: eqstr_ 12 4 13 13 124 124 */ 9973 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 9974 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 9975 9976 extern int zzekpgch_(integer *handle, char *access, ftnlen access_len); 9977 /*:ref: chkin_ 14 2 13 124 */ 9978 /*:ref: dassih_ 14 3 4 13 124 */ 9979 /*:ref: failed_ 12 0 */ 9980 /*:ref: chkout_ 14 2 13 124 */ 9981 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 9982 /*:ref: dashlu_ 14 2 4 4 */ 9983 /*:ref: setmsg_ 14 2 13 124 */ 9984 /*:ref: errfnm_ 14 3 13 4 124 */ 9985 /*:ref: errint_ 14 3 13 4 124 */ 9986 /*:ref: sigerr_ 14 2 13 124 */ 9987 /*:ref: daslla_ 14 4 4 4 4 4 */ 9988 9989 extern int zzekqcnj_(integer *eqryi, integer *n, integer *size); 9990 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 9991 /*:ref: failed_ 12 0 */ 9992 /*:ref: chkin_ 14 2 13 124 */ 9993 /*:ref: setmsg_ 14 2 13 124 */ 9994 /*:ref: sigerr_ 14 2 13 124 */ 9995 /*:ref: chkout_ 14 2 13 124 */ 9996 /*:ref: errint_ 14 3 13 4 124 */ 9997 9998 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); 9999 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 10000 /*:ref: failed_ 12 0 */ 10001 /*:ref: chkin_ 14 2 13 124 */ 10002 /*:ref: setmsg_ 14 2 13 124 */ 10003 /*:ref: sigerr_ 14 2 13 124 */ 10004 /*:ref: chkout_ 14 2 13 124 */ 10005 /*:ref: errint_ 14 3 13 4 124 */ 10006 10007 extern int zzekqini_(integer *isize, integer *dsize, integer *eqryi, char *eqryc, doublereal *eqryd, ftnlen eqryc_len); 10008 /*:ref: return_ 12 0 */ 10009 /*:ref: chkin_ 14 2 13 124 */ 10010 /*:ref: setmsg_ 14 2 13 124 */ 10011 /*:ref: errint_ 14 3 13 4 124 */ 10012 /*:ref: sigerr_ 14 2 13 124 */ 10013 /*:ref: chkout_ 14 2 13 124 */ 10014 /*:ref: ssizei_ 14 2 4 4 */ 10015 /*:ref: cleard_ 14 2 4 7 */ 10016 /*:ref: appndi_ 14 2 4 4 */ 10017 /*:ref: cleari_ 14 2 4 4 */ 10018 10019 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); 10020 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 10021 /*:ref: failed_ 12 0 */ 10022 /*:ref: chkin_ 14 2 13 124 */ 10023 /*:ref: setmsg_ 14 2 13 124 */ 10024 /*:ref: sigerr_ 14 2 13 124 */ 10025 /*:ref: chkout_ 14 2 13 124 */ 10026 /*:ref: errint_ 14 3 13 4 124 */ 10027 10028 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); 10029 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 10030 /*:ref: failed_ 12 0 */ 10031 /*:ref: chkin_ 14 2 13 124 */ 10032 /*:ref: setmsg_ 14 2 13 124 */ 10033 /*:ref: sigerr_ 14 2 13 124 */ 10034 /*:ref: chkout_ 14 2 13 124 */ 10035 /*:ref: errint_ 14 3 13 4 124 */ 10036 10037 extern int zzekqtab_(integer *eqryi, char *eqryc, integer *n, char *table, char *alias, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len); 10038 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 10039 /*:ref: failed_ 12 0 */ 10040 /*:ref: chkin_ 14 2 13 124 */ 10041 /*:ref: setmsg_ 14 2 13 124 */ 10042 /*:ref: sigerr_ 14 2 13 124 */ 10043 /*:ref: chkout_ 14 2 13 124 */ 10044 /*:ref: errint_ 14 3 13 4 124 */ 10045 10046 extern int zzekrbck_(char *action, integer *handle, integer *segdsc, integer *coldsc, integer *recno, ftnlen action_len); 10047 10048 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); 10049 /*:ref: movei_ 14 3 4 4 4 */ 10050 /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ 10051 /*:ref: chkin_ 14 2 13 124 */ 10052 /*:ref: setmsg_ 14 2 13 124 */ 10053 /*:ref: errint_ 14 3 13 4 124 */ 10054 /*:ref: sigerr_ 14 2 13 124 */ 10055 /*:ref: chkout_ 14 2 13 124 */ 10056 10057 extern int zzekrd01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); 10058 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10059 /*:ref: dashlu_ 14 2 4 4 */ 10060 /*:ref: chkin_ 14 2 13 124 */ 10061 /*:ref: setmsg_ 14 2 13 124 */ 10062 /*:ref: errint_ 14 3 13 4 124 */ 10063 /*:ref: errfnm_ 14 3 13 4 124 */ 10064 /*:ref: sigerr_ 14 2 13 124 */ 10065 /*:ref: chkout_ 14 2 13 124 */ 10066 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10067 10068 extern int zzekrd02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); 10069 /*:ref: dashlu_ 14 2 4 4 */ 10070 /*:ref: chkin_ 14 2 13 124 */ 10071 /*:ref: setmsg_ 14 2 13 124 */ 10072 /*:ref: errint_ 14 3 13 4 124 */ 10073 /*:ref: sigerr_ 14 2 13 124 */ 10074 /*:ref: chkout_ 14 2 13 124 */ 10075 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10076 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 10077 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10078 /*:ref: errfnm_ 14 3 13 4 124 */ 10079 10080 extern int zzekrd03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); 10081 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10082 /*:ref: dashlu_ 14 2 4 4 */ 10083 /*:ref: chkin_ 14 2 13 124 */ 10084 /*:ref: setmsg_ 14 2 13 124 */ 10085 /*:ref: errint_ 14 3 13 4 124 */ 10086 /*:ref: errfnm_ 14 3 13 4 124 */ 10087 /*:ref: sigerr_ 14 2 13 124 */ 10088 /*:ref: chkout_ 14 2 13 124 */ 10089 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10090 /*:ref: zzekgei_ 14 3 4 4 4 */ 10091 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 10092 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 10093 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 10094 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 10095 /*:ref: errch_ 14 4 13 13 124 124 */ 10096 10097 extern int zzekrd04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, integer *ivals, logical *isnull, logical *found); 10098 /*:ref: chkin_ 14 2 13 124 */ 10099 /*:ref: setmsg_ 14 2 13 124 */ 10100 /*:ref: errint_ 14 3 13 4 124 */ 10101 /*:ref: sigerr_ 14 2 13 124 */ 10102 /*:ref: chkout_ 14 2 13 124 */ 10103 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10104 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 10105 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 10106 /*:ref: failed_ 12 0 */ 10107 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ 10108 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10109 /*:ref: dashlu_ 14 2 4 4 */ 10110 /*:ref: errfnm_ 14 3 13 4 124 */ 10111 10112 extern int zzekrd05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, doublereal *dvals, logical *isnull, logical *found); 10113 /*:ref: chkin_ 14 2 13 124 */ 10114 /*:ref: setmsg_ 14 2 13 124 */ 10115 /*:ref: errint_ 14 3 13 4 124 */ 10116 /*:ref: sigerr_ 14 2 13 124 */ 10117 /*:ref: chkout_ 14 2 13 124 */ 10118 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10119 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 10120 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 10121 /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ 10122 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 10123 /*:ref: failed_ 12 0 */ 10124 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10125 /*:ref: dashlu_ 14 2 4 4 */ 10126 /*:ref: errfnm_ 14 3 13 4 124 */ 10127 10128 extern int zzekrd06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, char *cvals, logical *isnull, logical *found, ftnlen cvals_len); 10129 /*:ref: chkin_ 14 2 13 124 */ 10130 /*:ref: setmsg_ 14 2 13 124 */ 10131 /*:ref: errint_ 14 3 13 4 124 */ 10132 /*:ref: sigerr_ 14 2 13 124 */ 10133 /*:ref: chkout_ 14 2 13 124 */ 10134 /*:ref: dashlu_ 14 2 4 4 */ 10135 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 10136 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10137 /*:ref: errch_ 14 4 13 13 124 124 */ 10138 /*:ref: errfnm_ 14 3 13 4 124 */ 10139 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10140 /*:ref: zzekgei_ 14 3 4 4 4 */ 10141 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 10142 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 10143 /*:ref: failed_ 12 0 */ 10144 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 10145 10146 extern int zzekrd07_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); 10147 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10148 /*:ref: dashlu_ 14 2 4 4 */ 10149 /*:ref: chkin_ 14 2 13 124 */ 10150 /*:ref: setmsg_ 14 2 13 124 */ 10151 /*:ref: errint_ 14 3 13 4 124 */ 10152 /*:ref: errfnm_ 14 3 13 4 124 */ 10153 /*:ref: sigerr_ 14 2 13 124 */ 10154 /*:ref: chkout_ 14 2 13 124 */ 10155 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10156 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 10157 10158 extern int zzekrd08_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); 10159 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10160 /*:ref: dashlu_ 14 2 4 4 */ 10161 /*:ref: chkin_ 14 2 13 124 */ 10162 /*:ref: setmsg_ 14 2 13 124 */ 10163 /*:ref: errint_ 14 3 13 4 124 */ 10164 /*:ref: sigerr_ 14 2 13 124 */ 10165 /*:ref: chkout_ 14 2 13 124 */ 10166 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10167 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 10168 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 10169 10170 extern int zzekrd09_(integer *handle, integer *segdsc, integer *coldsc, integer *recno, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); 10171 /*:ref: dashlu_ 14 2 4 4 */ 10172 /*:ref: chkin_ 14 2 13 124 */ 10173 /*:ref: setmsg_ 14 2 13 124 */ 10174 /*:ref: errint_ 14 3 13 4 124 */ 10175 /*:ref: errfnm_ 14 3 13 4 124 */ 10176 /*:ref: sigerr_ 14 2 13 124 */ 10177 /*:ref: chkout_ 14 2 13 124 */ 10178 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 10179 /*:ref: errch_ 14 4 13 13 124 124 */ 10180 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10181 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 10182 10183 extern int zzekreqi_(integer *eqryi, char *name__, integer *value, ftnlen name_len); 10184 /*:ref: ljust_ 14 4 13 13 124 124 */ 10185 /*:ref: ucase_ 14 4 13 13 124 124 */ 10186 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 10187 /*:ref: chkin_ 14 2 13 124 */ 10188 /*:ref: setmsg_ 14 2 13 124 */ 10189 /*:ref: errch_ 14 4 13 13 124 124 */ 10190 /*:ref: sigerr_ 14 2 13 124 */ 10191 /*:ref: chkout_ 14 2 13 124 */ 10192 10193 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); 10194 /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ 10195 10196 extern integer zzekrp2n_(integer *handle, integer *segno, integer *recptr); 10197 /*:ref: zzeksdsc_ 14 3 4 4 4 */ 10198 /*:ref: failed_ 12 0 */ 10199 /*:ref: zzektrls_ 4 3 4 4 4 */ 10200 /*:ref: dashlu_ 14 2 4 4 */ 10201 /*:ref: chkin_ 14 2 13 124 */ 10202 /*:ref: setmsg_ 14 2 13 124 */ 10203 /*:ref: errint_ 14 3 13 4 124 */ 10204 /*:ref: errfnm_ 14 3 13 4 124 */ 10205 /*:ref: sigerr_ 14 2 13 124 */ 10206 /*:ref: chkout_ 14 2 13 124 */ 10207 10208 extern int zzekrplk_(integer *handle, integer *segdsc, integer *n, integer *recptr); 10209 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 10210 /*:ref: chkin_ 14 2 13 124 */ 10211 /*:ref: setmsg_ 14 2 13 124 */ 10212 /*:ref: errint_ 14 3 13 4 124 */ 10213 /*:ref: sigerr_ 14 2 13 124 */ 10214 /*:ref: chkout_ 14 2 13 124 */ 10215 10216 extern int zzekrsc_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *cvlen, char *cval, logical *isnull, logical *found, ftnlen cval_len); 10217 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 10218 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10219 /*:ref: chkin_ 14 2 13 124 */ 10220 /*:ref: dashlu_ 14 2 4 4 */ 10221 /*:ref: setmsg_ 14 2 13 124 */ 10222 /*:ref: errch_ 14 4 13 13 124 124 */ 10223 /*:ref: errint_ 14 3 13 4 124 */ 10224 /*:ref: errfnm_ 14 3 13 4 124 */ 10225 /*:ref: sigerr_ 14 2 13 124 */ 10226 /*:ref: chkout_ 14 2 13 124 */ 10227 /*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ 10228 /*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 10229 /*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ 10230 10231 extern int zzekrsd_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, doublereal *dval, logical *isnull, logical *found); 10232 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 10233 /*:ref: dashlu_ 14 2 4 4 */ 10234 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10235 /*:ref: chkin_ 14 2 13 124 */ 10236 /*:ref: setmsg_ 14 2 13 124 */ 10237 /*:ref: errch_ 14 4 13 13 124 124 */ 10238 /*:ref: errint_ 14 3 13 4 124 */ 10239 /*:ref: errfnm_ 14 3 13 4 124 */ 10240 /*:ref: sigerr_ 14 2 13 124 */ 10241 /*:ref: chkout_ 14 2 13 124 */ 10242 /*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ 10243 /*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ 10244 /*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ 10245 10246 extern int zzekrsi_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *ival, logical *isnull, logical *found); 10247 /*:ref: zzekcnam_ 14 4 4 4 13 124 */ 10248 /*:ref: dashlu_ 14 2 4 4 */ 10249 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10250 /*:ref: chkin_ 14 2 13 124 */ 10251 /*:ref: setmsg_ 14 2 13 124 */ 10252 /*:ref: errch_ 14 4 13 13 124 124 */ 10253 /*:ref: errint_ 14 3 13 4 124 */ 10254 /*:ref: errfnm_ 14 3 13 4 124 */ 10255 /*:ref: sigerr_ 14 2 13 124 */ 10256 /*:ref: chkout_ 14 2 13 124 */ 10257 /*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ 10258 /*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ 10259 /*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ 10260 10261 extern int zzeksca_(integer *n, integer *beg, integer *end, integer *idata, integer *top); 10262 extern int zzekstop_(integer *top); 10263 extern int zzekspsh_(integer *n, integer *idata); 10264 extern int zzekspop_(integer *n, integer *idata); 10265 extern int zzeksdec_(integer *n); 10266 extern int zzeksupd_(integer *beg, integer *end, integer *idata); 10267 extern int zzeksrd_(integer *beg, integer *end, integer *idata); 10268 extern int zzekscln_(void); 10269 /*:ref: return_ 12 0 */ 10270 /*:ref: chkin_ 14 2 13 124 */ 10271 /*:ref: sigerr_ 14 2 13 124 */ 10272 /*:ref: chkout_ 14 2 13 124 */ 10273 /*:ref: dasops_ 14 1 4 */ 10274 /*:ref: failed_ 12 0 */ 10275 /*:ref: daslla_ 14 4 4 4 4 4 */ 10276 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10277 /*:ref: dasadi_ 14 3 4 4 4 */ 10278 /*:ref: setmsg_ 14 2 13 124 */ 10279 /*:ref: errint_ 14 3 13 4 124 */ 10280 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10281 /*:ref: cleari_ 14 2 4 4 */ 10282 /*:ref: daswbr_ 14 1 4 */ 10283 /*:ref: dasllc_ 14 1 4 */ 10284 10285 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); 10286 /*:ref: return_ 12 0 */ 10287 /*:ref: chkin_ 14 2 13 124 */ 10288 /*:ref: ssizei_ 14 2 4 4 */ 10289 /*:ref: lxcsid_ 14 5 13 13 4 124 124 */ 10290 /*:ref: rtrim_ 4 2 13 124 */ 10291 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 10292 /*:ref: chkout_ 14 2 13 124 */ 10293 /*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ 10294 /*:ref: parsqs_ 14 11 13 13 13 4 12 13 4 124 124 124 124 */ 10295 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 10296 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 10297 /*:ref: lx4num_ 14 5 13 4 4 4 124 */ 10298 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 10299 /*:ref: beint_ 12 2 13 124 */ 10300 /*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ 10301 /*:ref: ucase_ 14 4 13 13 124 124 */ 10302 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 10303 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 10304 /*:ref: frstpc_ 4 2 13 124 */ 10305 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 10306 10307 extern int zzekscdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); 10308 /*:ref: zzekpgch_ 14 3 4 13 124 */ 10309 /*:ref: failed_ 12 0 */ 10310 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10311 /*:ref: dashlu_ 14 2 4 4 */ 10312 /*:ref: chkin_ 14 2 13 124 */ 10313 /*:ref: setmsg_ 14 2 13 124 */ 10314 /*:ref: errint_ 14 3 13 4 124 */ 10315 /*:ref: errfnm_ 14 3 13 4 124 */ 10316 /*:ref: sigerr_ 14 2 13 124 */ 10317 /*:ref: chkout_ 14 2 13 124 */ 10318 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10319 10320 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); 10321 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 10322 /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ 10323 /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ 10324 /*:ref: chkin_ 14 2 13 124 */ 10325 /*:ref: setmsg_ 14 2 13 124 */ 10326 /*:ref: errint_ 14 3 13 4 124 */ 10327 /*:ref: sigerr_ 14 2 13 124 */ 10328 /*:ref: chkout_ 14 2 13 124 */ 10329 /*:ref: dashlu_ 14 2 4 4 */ 10330 /*:ref: errfnm_ 14 3 13 4 124 */ 10331 /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ 10332 10333 extern int zzeksdsc_(integer *handle, integer *segno, integer *segdsc); 10334 /*:ref: zzekmloc_ 14 4 4 4 4 4 */ 10335 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10336 10337 extern int zzeksei_(integer *handle, integer *addrss, integer *ival); 10338 /*:ref: prtenc_ 14 3 4 13 124 */ 10339 /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ 10340 10341 extern int zzeksemc_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); 10342 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 10343 /*:ref: failed_ 12 0 */ 10344 /*:ref: chkin_ 14 2 13 124 */ 10345 /*:ref: setmsg_ 14 2 13 124 */ 10346 /*:ref: sigerr_ 14 2 13 124 */ 10347 /*:ref: chkout_ 14 2 13 124 */ 10348 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ 10349 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ 10350 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 10351 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 10352 /*:ref: zzekweqi_ 14 4 13 4 4 124 */ 10353 10354 extern int zzeksfwd_(integer *handle, integer *type__, integer *p, integer *fward); 10355 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 10356 /*:ref: failed_ 12 0 */ 10357 /*:ref: zzeksei_ 14 3 4 4 4 */ 10358 /*:ref: dasudd_ 14 4 4 4 4 7 */ 10359 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10360 10361 extern int zzeksinf_(integer *handle, integer *segno, char *tabnam, integer *segdsc, char *cnames, integer *cdscrs, ftnlen tabnam_len, ftnlen cnames_len); 10362 /*:ref: return_ 12 0 */ 10363 /*:ref: chkin_ 14 2 13 124 */ 10364 /*:ref: zzekpgch_ 14 3 4 13 124 */ 10365 /*:ref: failed_ 12 0 */ 10366 /*:ref: chkout_ 14 2 13 124 */ 10367 /*:ref: eknseg_ 4 1 4 */ 10368 /*:ref: setmsg_ 14 2 13 124 */ 10369 /*:ref: errint_ 14 3 13 4 124 */ 10370 /*:ref: sigerr_ 14 2 13 124 */ 10371 /*:ref: zzekmloc_ 14 4 4 4 4 4 */ 10372 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10373 /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ 10374 10375 extern int zzekslnk_(integer *handle, integer *type__, integer *p, integer *nlinks); 10376 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 10377 /*:ref: failed_ 12 0 */ 10378 /*:ref: zzeksei_ 14 3 4 4 4 */ 10379 /*:ref: dasudd_ 14 4 4 4 4 7 */ 10380 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10381 10382 extern int zzeksrcp_(integer *handle, integer *recptr, integer *recno); 10383 /*:ref: zzekpgch_ 14 3 4 13 124 */ 10384 /*:ref: failed_ 12 0 */ 10385 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10386 10387 extern int zzeksrs_(integer *handle, integer *recptr, integer *status); 10388 /*:ref: zzekpgch_ 14 3 4 13 124 */ 10389 /*:ref: failed_ 12 0 */ 10390 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10391 10392 extern integer zzekstyp_(integer *ncols, integer *cdscrs); 10393 /*:ref: return_ 12 0 */ 10394 /*:ref: chkin_ 14 2 13 124 */ 10395 /*:ref: setmsg_ 14 2 13 124 */ 10396 /*:ref: sigerr_ 14 2 13 124 */ 10397 /*:ref: chkout_ 14 2 13 124 */ 10398 10399 extern integer zzeksz04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 10400 /*:ref: chkin_ 14 2 13 124 */ 10401 /*:ref: setmsg_ 14 2 13 124 */ 10402 /*:ref: errint_ 14 3 13 4 124 */ 10403 /*:ref: sigerr_ 14 2 13 124 */ 10404 /*:ref: chkout_ 14 2 13 124 */ 10405 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10406 10407 extern integer zzeksz05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 10408 /*:ref: chkin_ 14 2 13 124 */ 10409 /*:ref: setmsg_ 14 2 13 124 */ 10410 /*:ref: errint_ 14 3 13 4 124 */ 10411 /*:ref: sigerr_ 14 2 13 124 */ 10412 /*:ref: chkout_ 14 2 13 124 */ 10413 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10414 /*:ref: dasrdd_ 14 4 4 4 4 7 */ 10415 10416 extern integer zzeksz06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); 10417 /*:ref: chkin_ 14 2 13 124 */ 10418 /*:ref: setmsg_ 14 2 13 124 */ 10419 /*:ref: errint_ 14 3 13 4 124 */ 10420 /*:ref: sigerr_ 14 2 13 124 */ 10421 /*:ref: chkout_ 14 2 13 124 */ 10422 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10423 /*:ref: zzekgei_ 14 3 4 4 4 */ 10424 10425 extern int zzektcnv_(char *timstr, doublereal *et, logical *error, char *errmsg, ftnlen timstr_len, ftnlen errmsg_len); 10426 /*:ref: return_ 12 0 */ 10427 /*:ref: chkin_ 14 2 13 124 */ 10428 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 10429 /*:ref: ljust_ 14 4 13 13 124 124 */ 10430 /*:ref: ucase_ 14 4 13 13 124 124 */ 10431 /*:ref: posr_ 4 5 13 13 4 124 124 */ 10432 /*:ref: rtrim_ 4 2 13 124 */ 10433 /*:ref: scn2id_ 14 4 13 4 12 124 */ 10434 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 10435 /*:ref: chkout_ 14 2 13 124 */ 10436 /*:ref: scpars_ 14 7 4 13 12 13 7 124 124 */ 10437 /*:ref: failed_ 12 0 */ 10438 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 10439 /*:ref: sct2e_ 14 3 4 7 7 */ 10440 /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ 10441 /*:ref: str2et_ 14 3 13 7 124 */ 10442 10443 extern int zzektloc_(integer *tokid, integer *kwcode, integer *ntoken, integer *tokens, integer *values, integer *loc, logical *found); 10444 10445 extern int zzektr13_(integer *handle, integer *tree); 10446 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10447 /*:ref: chkin_ 14 2 13 124 */ 10448 /*:ref: setmsg_ 14 2 13 124 */ 10449 /*:ref: errint_ 14 3 13 4 124 */ 10450 /*:ref: sigerr_ 14 2 13 124 */ 10451 /*:ref: chkout_ 14 2 13 124 */ 10452 /*:ref: zzekpgal_ 14 4 4 4 4 4 */ 10453 /*:ref: cleari_ 14 2 4 4 */ 10454 /*:ref: movei_ 14 3 4 4 4 */ 10455 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10456 10457 extern int zzektr1s_(integer *handle, integer *tree, integer *size, integer *values); 10458 /*:ref: return_ 12 0 */ 10459 /*:ref: chkin_ 14 2 13 124 */ 10460 /*:ref: zzektrsz_ 4 2 4 4 */ 10461 /*:ref: dashlu_ 14 2 4 4 */ 10462 /*:ref: setmsg_ 14 2 13 124 */ 10463 /*:ref: errint_ 14 3 13 4 124 */ 10464 /*:ref: errfnm_ 14 3 13 4 124 */ 10465 /*:ref: sigerr_ 14 2 13 124 */ 10466 /*:ref: chkout_ 14 2 13 124 */ 10467 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10468 /*:ref: zzekpgal_ 14 4 4 4 4 4 */ 10469 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10470 /*:ref: cleari_ 14 2 4 4 */ 10471 /*:ref: zzektrbs_ 4 1 4 */ 10472 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10473 10474 extern int zzektr23_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, logical *overfl); 10475 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10476 /*:ref: chkin_ 14 2 13 124 */ 10477 /*:ref: setmsg_ 14 2 13 124 */ 10478 /*:ref: errint_ 14 3 13 4 124 */ 10479 /*:ref: sigerr_ 14 2 13 124 */ 10480 /*:ref: chkout_ 14 2 13 124 */ 10481 /*:ref: zzekpgal_ 14 4 4 4 4 4 */ 10482 /*:ref: cleari_ 14 2 4 4 */ 10483 /*:ref: movei_ 14 3 4 4 4 */ 10484 /*:ref: zzektrbs_ 4 1 4 */ 10485 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10486 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10487 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10488 10489 extern int zzektr31_(integer *handle, integer *tree); 10490 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10491 /*:ref: chkin_ 14 2 13 124 */ 10492 /*:ref: setmsg_ 14 2 13 124 */ 10493 /*:ref: errint_ 14 3 13 4 124 */ 10494 /*:ref: sigerr_ 14 2 13 124 */ 10495 /*:ref: chkout_ 14 2 13 124 */ 10496 /*:ref: movei_ 14 3 4 4 4 */ 10497 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10498 /*:ref: zzekpgfr_ 14 3 4 4 4 */ 10499 10500 extern int zzektr32_(integer *handle, integer *tree, integer *left, integer *middle, integer *right, integer *parent, integer *lpkidx, logical *undrfl); 10501 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10502 /*:ref: chkin_ 14 2 13 124 */ 10503 /*:ref: setmsg_ 14 2 13 124 */ 10504 /*:ref: errint_ 14 3 13 4 124 */ 10505 /*:ref: sigerr_ 14 2 13 124 */ 10506 /*:ref: chkout_ 14 2 13 124 */ 10507 /*:ref: movei_ 14 3 4 4 4 */ 10508 /*:ref: zzektrbs_ 4 1 4 */ 10509 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10510 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10511 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10512 /*:ref: zzekpgfr_ 14 3 4 4 4 */ 10513 10514 extern int zzektrap_(integer *handle, integer *tree, integer *value, integer *key); 10515 /*:ref: zzektrsz_ 4 2 4 4 */ 10516 /*:ref: zzektrin_ 14 4 4 4 4 4 */ 10517 10518 extern int zzektrbn_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx); 10519 /*:ref: chkin_ 14 2 13 124 */ 10520 /*:ref: setmsg_ 14 2 13 124 */ 10521 /*:ref: sigerr_ 14 2 13 124 */ 10522 /*:ref: chkout_ 14 2 13 124 */ 10523 /*:ref: zzektrnk_ 4 3 4 4 4 */ 10524 /*:ref: errint_ 14 3 13 4 124 */ 10525 /*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ 10526 10527 extern integer zzektrbs_(integer *node); 10528 /*:ref: zzekpgbs_ 14 3 4 4 4 */ 10529 10530 extern int zzektrdl_(integer *handle, integer *tree, integer *key); 10531 /*:ref: zzektrud_ 14 5 4 4 4 4 12 */ 10532 /*:ref: failed_ 12 0 */ 10533 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ 10534 /*:ref: zzektrsb_ 14 7 4 4 4 4 4 4 4 */ 10535 /*:ref: zzektrnk_ 4 3 4 4 4 */ 10536 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ 10537 /*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ 10538 /*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ 10539 /*:ref: zzektrki_ 14 5 4 4 4 4 4 */ 10540 /*:ref: zzektr32_ 14 8 4 4 4 4 4 4 4 12 */ 10541 /*:ref: zzektr31_ 14 2 4 4 */ 10542 10543 extern int zzektrdp_(integer *handle, integer *tree, integer *key, integer *ptr); 10544 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ 10545 10546 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); 10547 /*:ref: zzekreqi_ 14 4 4 13 4 124 */ 10548 /*:ref: failed_ 12 0 */ 10549 /*:ref: chkin_ 14 2 13 124 */ 10550 /*:ref: setmsg_ 14 2 13 124 */ 10551 /*:ref: sigerr_ 14 2 13 124 */ 10552 /*:ref: chkout_ 14 2 13 124 */ 10553 /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ 10554 /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ 10555 /*:ref: zzektcnv_ 14 6 13 7 12 13 124 124 */ 10556 /*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ 10557 /*:ref: movei_ 14 3 4 4 4 */ 10558 /*:ref: zzekweqi_ 14 4 13 4 4 124 */ 10559 10560 extern int zzektrfr_(integer *handle, integer *tree); 10561 /*:ref: return_ 12 0 */ 10562 /*:ref: chkin_ 14 2 13 124 */ 10563 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10564 /*:ref: dashlu_ 14 2 4 4 */ 10565 /*:ref: setmsg_ 14 2 13 124 */ 10566 /*:ref: errint_ 14 3 13 4 124 */ 10567 /*:ref: errfnm_ 14 3 13 4 124 */ 10568 /*:ref: sigerr_ 14 2 13 124 */ 10569 /*:ref: chkout_ 14 2 13 124 */ 10570 /*:ref: zzekpgfr_ 14 3 4 4 4 */ 10571 10572 extern int zzektrin_(integer *handle, integer *tree, integer *key, integer *value); 10573 /*:ref: zzektrui_ 14 5 4 4 4 4 12 */ 10574 /*:ref: failed_ 12 0 */ 10575 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ 10576 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ 10577 /*:ref: zzektrnk_ 4 3 4 4 4 */ 10578 /*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ 10579 /*:ref: zzektrki_ 14 5 4 4 4 4 4 */ 10580 /*:ref: zzektr23_ 14 7 4 4 4 4 4 4 12 */ 10581 /*:ref: zzektr13_ 14 2 4 4 */ 10582 10583 extern int zzektrit_(integer *handle, integer *tree); 10584 /*:ref: return_ 12 0 */ 10585 /*:ref: chkin_ 14 2 13 124 */ 10586 /*:ref: zzekpgal_ 14 4 4 4 4 4 */ 10587 /*:ref: cleari_ 14 2 4 4 */ 10588 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10589 /*:ref: chkout_ 14 2 13 124 */ 10590 10591 extern int zzektrki_(integer *handle, integer *tree, integer *nodkey, integer *n, integer *key); 10592 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ 10593 /*:ref: zzektrnk_ 4 3 4 4 4 */ 10594 /*:ref: chkin_ 14 2 13 124 */ 10595 /*:ref: setmsg_ 14 2 13 124 */ 10596 /*:ref: errint_ 14 3 13 4 124 */ 10597 /*:ref: sigerr_ 14 2 13 124 */ 10598 /*:ref: chkout_ 14 2 13 124 */ 10599 /*:ref: zzektrbs_ 4 1 4 */ 10600 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10601 10602 extern int zzektrlk_(integer *handle, integer *tree, integer *key, integer *idx, integer *node, integer *noffst, integer *level, integer *value); 10603 /*:ref: dasham_ 14 3 4 13 124 */ 10604 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10605 /*:ref: chkin_ 14 2 13 124 */ 10606 /*:ref: dashlu_ 14 2 4 4 */ 10607 /*:ref: setmsg_ 14 2 13 124 */ 10608 /*:ref: errint_ 14 3 13 4 124 */ 10609 /*:ref: errfnm_ 14 3 13 4 124 */ 10610 /*:ref: sigerr_ 14 2 13 124 */ 10611 /*:ref: chkout_ 14 2 13 124 */ 10612 /*:ref: lstlei_ 4 3 4 4 4 */ 10613 10614 extern integer zzektrls_(integer *handle, integer *tree, integer *ival); 10615 /*:ref: zzektrsz_ 4 2 4 4 */ 10616 /*:ref: zzektrdp_ 14 4 4 4 4 4 */ 10617 10618 extern integer zzektrnk_(integer *handle, integer *tree, integer *node); 10619 /*:ref: zzektrbs_ 4 1 4 */ 10620 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10621 10622 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); 10623 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10624 /*:ref: chkin_ 14 2 13 124 */ 10625 /*:ref: dashlu_ 14 2 4 4 */ 10626 /*:ref: setmsg_ 14 2 13 124 */ 10627 /*:ref: errint_ 14 3 13 4 124 */ 10628 /*:ref: errfnm_ 14 3 13 4 124 */ 10629 /*:ref: sigerr_ 14 2 13 124 */ 10630 /*:ref: chkout_ 14 2 13 124 */ 10631 /*:ref: lstlei_ 4 3 4 4 4 */ 10632 10633 extern int zzektrrk_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, integer *nrot); 10634 /*:ref: chkin_ 14 2 13 124 */ 10635 /*:ref: setmsg_ 14 2 13 124 */ 10636 /*:ref: sigerr_ 14 2 13 124 */ 10637 /*:ref: chkout_ 14 2 13 124 */ 10638 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10639 /*:ref: failed_ 12 0 */ 10640 /*:ref: errint_ 14 3 13 4 124 */ 10641 /*:ref: movei_ 14 3 4 4 4 */ 10642 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10643 10644 extern int zzektrsb_(integer *handle, integer *tree, integer *key, integer *lsib, integer *lkey, integer *rsib, integer *rkey); 10645 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ 10646 /*:ref: failed_ 12 0 */ 10647 /*:ref: zzektrbs_ 4 1 4 */ 10648 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10649 10650 extern integer zzektrsz_(integer *handle, integer *tree); 10651 /*:ref: zzektrbs_ 4 1 4 */ 10652 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10653 10654 extern int zzektrud_(integer *handle, integer *tree, integer *key, integer *trgkey, logical *undrfl); 10655 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10656 /*:ref: chkin_ 14 2 13 124 */ 10657 /*:ref: dashlu_ 14 2 4 4 */ 10658 /*:ref: setmsg_ 14 2 13 124 */ 10659 /*:ref: errint_ 14 3 13 4 124 */ 10660 /*:ref: errfnm_ 14 3 13 4 124 */ 10661 /*:ref: chkout_ 14 2 13 124 */ 10662 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10663 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ 10664 /*:ref: failed_ 12 0 */ 10665 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ 10666 /*:ref: sigerr_ 14 2 13 124 */ 10667 10668 extern int zzektrui_(integer *handle, integer *tree, integer *key, integer *value, logical *overfl); 10669 /*:ref: zzekpgri_ 14 3 4 4 4 */ 10670 /*:ref: chkin_ 14 2 13 124 */ 10671 /*:ref: dashlu_ 14 2 4 4 */ 10672 /*:ref: setmsg_ 14 2 13 124 */ 10673 /*:ref: errint_ 14 3 13 4 124 */ 10674 /*:ref: errfnm_ 14 3 13 4 124 */ 10675 /*:ref: sigerr_ 14 2 13 124 */ 10676 /*:ref: chkout_ 14 2 13 124 */ 10677 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10678 /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ 10679 /*:ref: failed_ 12 0 */ 10680 /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ 10681 10682 extern int zzekue01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); 10683 /*:ref: return_ 12 0 */ 10684 /*:ref: chkin_ 14 2 13 124 */ 10685 /*:ref: zzekpgch_ 14 3 4 13 124 */ 10686 /*:ref: failed_ 12 0 */ 10687 /*:ref: chkout_ 14 2 13 124 */ 10688 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10689 /*:ref: zzekixdl_ 14 4 4 4 4 4 */ 10690 /*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ 10691 /*:ref: setmsg_ 14 2 13 124 */ 10692 /*:ref: errint_ 14 3 13 4 124 */ 10693 /*:ref: sigerr_ 14 2 13 124 */ 10694 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 10695 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 10696 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 10697 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10698 /*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ 10699 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10700 /*:ref: dashlu_ 14 2 4 4 */ 10701 /*:ref: errfnm_ 14 3 13 4 124 */ 10702 10703 extern int zzekue02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); 10704 /*:ref: return_ 12 0 */ 10705 /*:ref: chkin_ 14 2 13 124 */ 10706 /*:ref: zzekpgch_ 14 3 4 13 124 */ 10707 /*:ref: failed_ 12 0 */ 10708 /*:ref: chkout_ 14 2 13 124 */ 10709 /*:ref: dasrdi_ 14 4 4 4 4 4 */ 10710 /*:ref: zzekixdl_ 14 4 4 4 4 4 */ 10711 /*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ 10712 /*:ref: setmsg_ 14 2 13 124 */ 10713 /*:ref: errint_ 14 3 13 4 124 */ 10714 /*:ref: sigerr_ 14 2 13 124 */ 10715 /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ 10716 /*:ref: zzekglnk_ 14 4 4 4 4 4 */ 10717 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 10718 /*:ref: dasudi_ 14 4 4 4 4 4 */ 10719 /*:ref: dasudd_ 14 4 4 4 4 7 */ 10720 /*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ 10721 /*:ref: zzekrp2n_ 4 3 4 4 4 */ 10722 /*:ref: dashlu_ 14 2 4 4 */ 10723 /*:ref: errfnm_ 14 3 13 4 124 */ 10724 10725 extern int zzekue03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); 10726 /*:ref: return_ 12 0 */ 10727 /*:ref: chkin_ 14 2 13 124 */ 10728 /*:ref: zzekde03_ 14 4 4 4 4 4 */ 10729 /*:ref: failed_ 12 0 */ 10730 /*:ref: chkout_ 14 2 13 124 */ 10731 /*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ 10732 10733 extern int zzekue04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); 10734 /*:ref: return_ 12 0 */ 10735 /*:ref: chkin_ 14 2 13 124 */ 10736 /*:ref: zzekde04_ 14 4 4 4 4 4 */ 10737 /*:ref: failed_ 12 0 */ 10738 /*:ref: chkout_ 14 2 13 124 */ 10739 /*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ 10740 10741 extern int zzekue05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); 10742 /*:ref: return_ 12 0 */ 10743 /*:ref: chkin_ 14 2 13 124 */ 10744 /*:ref: zzekde05_ 14 4 4 4 4 4 */ 10745 /*:ref: failed_ 12 0 */ 10746 /*:ref: chkout_ 14 2 13 124 */ 10747 /*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ 10748 10749 extern int zzekue06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); 10750 /*:ref: return_ 12 0 */ 10751 /*:ref: chkin_ 14 2 13 124 */ 10752 /*:ref: zzekde06_ 14 4 4 4 4 4 */ 10753 /*:ref: failed_ 12 0 */ 10754 /*:ref: chkout_ 14 2 13 124 */ 10755 /*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ 10756 10757 extern int zzekvadr_(integer *njrs, integer *bases, integer *rwvidx, integer *rwvbas, integer *sgvbas); 10758 extern int zzekvset_(integer *njrs, integer *bases); 10759 extern int zzekvcal_(integer *rwvidx, integer *rwvbas, integer *sgvbas); 10760 /*:ref: return_ 12 0 */ 10761 /*:ref: chkin_ 14 2 13 124 */ 10762 /*:ref: sigerr_ 14 2 13 124 */ 10763 /*:ref: chkout_ 14 2 13 124 */ 10764 /*:ref: setmsg_ 14 2 13 124 */ 10765 /*:ref: errint_ 14 3 13 4 124 */ 10766 /*:ref: zzekstop_ 14 1 4 */ 10767 /*:ref: zzeksrd_ 14 3 4 4 4 */ 10768 /*:ref: cleari_ 14 2 4 4 */ 10769 /*:ref: lstlei_ 4 3 4 4 4 */ 10770 10771 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); 10772 /*:ref: lnknxt_ 4 2 4 4 */ 10773 /*:ref: movei_ 14 3 4 4 4 */ 10774 /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ 10775 /*:ref: chkin_ 14 2 13 124 */ 10776 /*:ref: setmsg_ 14 2 13 124 */ 10777 /*:ref: errint_ 14 3 13 4 124 */ 10778 /*:ref: sigerr_ 14 2 13 124 */ 10779 /*:ref: chkout_ 14 2 13 124 */ 10780 10781 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); 10782 /*:ref: movei_ 14 3 4 4 4 */ 10783 /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ 10784 /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 10785 /*:ref: dashlu_ 14 2 4 4 */ 10786 /*:ref: chkin_ 14 2 13 124 */ 10787 /*:ref: setmsg_ 14 2 13 124 */ 10788 /*:ref: errfnm_ 14 3 13 4 124 */ 10789 /*:ref: errint_ 14 3 13 4 124 */ 10790 /*:ref: sigerr_ 14 2 13 124 */ 10791 /*:ref: chkout_ 14 2 13 124 */ 10792 /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ 10793 10794 extern int zzekweed_(integer *njrs, integer *bases, integer *nrows); 10795 /*:ref: chkin_ 14 2 13 124 */ 10796 /*:ref: setmsg_ 14 2 13 124 */ 10797 /*:ref: errint_ 14 3 13 4 124 */ 10798 /*:ref: sigerr_ 14 2 13 124 */ 10799 /*:ref: chkout_ 14 2 13 124 */ 10800 /*:ref: zzekvset_ 14 2 4 4 */ 10801 /*:ref: zzeksrd_ 14 3 4 4 4 */ 10802 /*:ref: sameai_ 12 3 4 4 4 */ 10803 /*:ref: zzeksupd_ 14 3 4 4 4 */ 10804 /*:ref: zzekjsqz_ 14 1 4 */ 10805 10806 extern int zzekweqi_(char *name__, integer *value, integer *eqryi, ftnlen name_len); 10807 /*:ref: ljust_ 14 4 13 13 124 124 */ 10808 /*:ref: ucase_ 14 4 13 13 124 124 */ 10809 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 10810 /*:ref: chkin_ 14 2 13 124 */ 10811 /*:ref: setmsg_ 14 2 13 124 */ 10812 /*:ref: errch_ 14 4 13 13 124 124 */ 10813 /*:ref: sigerr_ 14 2 13 124 */ 10814 /*:ref: chkout_ 14 2 13 124 */ 10815 10816 extern int zzekwpac_(integer *handle, integer *segdsc, integer *nvals, integer *l, char *cvals, integer *p, integer *base, ftnlen cvals_len); 10817 /*:ref: return_ 12 0 */ 10818 /*:ref: chkin_ 14 2 13 124 */ 10819 /*:ref: setmsg_ 14 2 13 124 */ 10820 /*:ref: errint_ 14 3 13 4 124 */ 10821 /*:ref: sigerr_ 14 2 13 124 */ 10822 /*:ref: chkout_ 14 2 13 124 */ 10823 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ 10824 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ 10825 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 10826 10827 extern int zzekwpai_(integer *handle, integer *segdsc, integer *nvals, integer *ivals, integer *p, integer *base); 10828 /*:ref: return_ 12 0 */ 10829 /*:ref: chkin_ 14 2 13 124 */ 10830 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ 10831 /*:ref: cleari_ 14 2 4 4 */ 10832 /*:ref: zzekpgwi_ 14 3 4 4 4 */ 10833 /*:ref: chkout_ 14 2 13 124 */ 10834 10835 extern int zzekwpal_(integer *handle, integer *segdsc, integer *nvals, logical *lvals, integer *p, integer *base); 10836 /*:ref: return_ 12 0 */ 10837 /*:ref: chkin_ 14 2 13 124 */ 10838 /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ 10839 /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ 10840 /*:ref: zzekslnk_ 14 4 4 4 4 4 */ 10841 /*:ref: chkout_ 14 2 13 124 */ 10842 10843 extern int zzelvupy_(doublereal *ellips, doublereal *vertex, doublereal *axis, integer *n, doublereal *bounds, logical *found); 10844 /*:ref: return_ 12 0 */ 10845 /*:ref: chkin_ 14 2 13 124 */ 10846 /*:ref: el2cgv_ 14 4 7 7 7 7 */ 10847 /*:ref: saelgv_ 14 4 7 7 7 7 */ 10848 /*:ref: vzero_ 12 1 7 */ 10849 /*:ref: setmsg_ 14 2 13 124 */ 10850 /*:ref: errdp_ 14 3 13 7 124 */ 10851 /*:ref: vnorm_ 7 1 7 */ 10852 /*:ref: sigerr_ 14 2 13 124 */ 10853 /*:ref: chkout_ 14 2 13 124 */ 10854 /*:ref: cgv2el_ 14 4 7 7 7 7 */ 10855 /*:ref: errint_ 14 3 13 4 124 */ 10856 /*:ref: vsub_ 14 3 7 7 7 */ 10857 /*:ref: vsep_ 7 2 7 7 */ 10858 /*:ref: pi_ 7 0 */ 10859 /*:ref: ucrss_ 14 3 7 7 7 */ 10860 /*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ 10861 /*:ref: vdist_ 7 2 7 7 */ 10862 /*:ref: vdot_ 7 2 7 7 */ 10863 /*:ref: nvp2pl_ 14 3 7 7 7 */ 10864 /*:ref: inrypl_ 14 5 7 7 7 4 7 */ 10865 /*:ref: zzwind_ 4 4 7 4 7 7 */ 10866 /*:ref: psv2pl_ 14 4 7 7 7 7 */ 10867 /*:ref: inelpl_ 14 5 7 7 4 7 7 */ 10868 /*:ref: vhat_ 14 2 7 7 */ 10869 /*:ref: vlcom_ 14 5 7 7 7 7 7 */ 10870 10871 extern int zzenut80_(doublereal *et, doublereal *nutxf); 10872 /*:ref: return_ 12 0 */ 10873 /*:ref: chkin_ 14 2 13 124 */ 10874 /*:ref: zzwahr_ 14 2 7 7 */ 10875 /*:ref: zzmobliq_ 14 3 7 7 7 */ 10876 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ 10877 /*:ref: chkout_ 14 2 13 124 */ 10878 10879 extern int zzeprc76_(doublereal *et, doublereal *precxf); 10880 /*:ref: jyear_ 7 0 */ 10881 /*:ref: rpd_ 7 0 */ 10882 /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ 10883 10884 extern int zzeprcss_(doublereal *et, doublereal *precm); 10885 /*:ref: jyear_ 7 0 */ 10886 /*:ref: rpd_ 7 0 */ 10887 /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ 10888 10889 extern int zzfdat_(integer *ncount, char *name__, integer *idcode, integer *center, integer *type__, integer *typid, integer *norder, integer *corder, integer *centrd, ftnlen name_len); 10890 /*:ref: chkin_ 14 2 13 124 */ 10891 /*:ref: setmsg_ 14 2 13 124 */ 10892 /*:ref: sigerr_ 14 2 13 124 */ 10893 /*:ref: chkout_ 14 2 13 124 */ 10894 /*:ref: irfnam_ 14 3 4 13 124 */ 10895 /*:ref: orderc_ 14 4 13 4 4 124 */ 10896 /*:ref: orderi_ 14 3 4 4 4 */ 10897 10898 extern int zzfrmch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); 10899 /*:ref: return_ 12 0 */ 10900 /*:ref: chkin_ 14 2 13 124 */ 10901 /*:ref: chkout_ 14 2 13 124 */ 10902 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 10903 /*:ref: setmsg_ 14 2 13 124 */ 10904 /*:ref: errint_ 14 3 13 4 124 */ 10905 /*:ref: sigerr_ 14 2 13 124 */ 10906 /*:ref: zzfrmgt0_ 14 5 4 7 7 4 12 */ 10907 /*:ref: zzmsxf_ 14 3 7 4 7 */ 10908 /*:ref: isrchi_ 4 3 4 4 4 */ 10909 /*:ref: frmnam_ 14 3 4 13 124 */ 10910 /*:ref: rtrim_ 4 2 13 124 */ 10911 /*:ref: errch_ 14 4 13 13 124 124 */ 10912 /*:ref: invstm_ 14 2 7 7 */ 10913 10914 extern int zzfrmch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); 10915 /*:ref: return_ 12 0 */ 10916 /*:ref: chkin_ 14 2 13 124 */ 10917 /*:ref: chkout_ 14 2 13 124 */ 10918 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 10919 /*:ref: setmsg_ 14 2 13 124 */ 10920 /*:ref: errint_ 14 3 13 4 124 */ 10921 /*:ref: sigerr_ 14 2 13 124 */ 10922 /*:ref: zzfrmgt1_ 14 5 4 7 7 4 12 */ 10923 /*:ref: zzmsxf_ 14 3 7 4 7 */ 10924 /*:ref: isrchi_ 4 3 4 4 4 */ 10925 /*:ref: frmnam_ 14 3 4 13 124 */ 10926 /*:ref: rtrim_ 4 2 13 124 */ 10927 /*:ref: errch_ 14 4 13 13 124 124 */ 10928 /*:ref: invstm_ 14 2 7 7 */ 10929 10930 extern int zzfrmgt0_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); 10931 /*:ref: return_ 12 0 */ 10932 /*:ref: chkin_ 14 2 13 124 */ 10933 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 10934 /*:ref: chkout_ 14 2 13 124 */ 10935 /*:ref: tisbod_ 14 5 13 4 7 7 124 */ 10936 /*:ref: invstm_ 14 2 7 7 */ 10937 /*:ref: namfrm_ 14 3 13 4 124 */ 10938 /*:ref: irfrot_ 14 3 4 4 7 */ 10939 /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ 10940 /*:ref: tkfram_ 14 4 4 7 4 12 */ 10941 /*:ref: zzdynfr0_ 14 5 4 4 7 7 4 */ 10942 /*:ref: setmsg_ 14 2 13 124 */ 10943 /*:ref: errint_ 14 3 13 4 124 */ 10944 /*:ref: errch_ 14 4 13 13 124 124 */ 10945 /*:ref: sigerr_ 14 2 13 124 */ 10946 /*:ref: failed_ 12 0 */ 10947 10948 extern int zzfrmgt1_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); 10949 /*:ref: return_ 12 0 */ 10950 /*:ref: chkin_ 14 2 13 124 */ 10951 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 10952 /*:ref: chkout_ 14 2 13 124 */ 10953 /*:ref: tisbod_ 14 5 13 4 7 7 124 */ 10954 /*:ref: invstm_ 14 2 7 7 */ 10955 /*:ref: namfrm_ 14 3 13 4 124 */ 10956 /*:ref: irfrot_ 14 3 4 4 7 */ 10957 /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ 10958 /*:ref: tkfram_ 14 4 4 7 4 12 */ 10959 /*:ref: setmsg_ 14 2 13 124 */ 10960 /*:ref: errint_ 14 3 13 4 124 */ 10961 /*:ref: sigerr_ 14 2 13 124 */ 10962 /*:ref: errch_ 14 4 13 13 124 124 */ 10963 /*:ref: failed_ 12 0 */ 10964 10965 extern int zzftpchk_(char *string, logical *ftperr, ftnlen string_len); 10966 /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ 10967 /*:ref: zzrbrkst_ 14 10 13 13 13 13 4 12 124 124 124 124 */ 10968 /*:ref: rtrim_ 4 2 13 124 */ 10969 /*:ref: pos_ 4 5 13 13 4 124 124 */ 10970 10971 extern int zzftpstr_(char *tstcom, char *lend, char *rend, char *delim, ftnlen tstcom_len, ftnlen lend_len, ftnlen rend_len, ftnlen delim_len); 10972 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 10973 10974 extern int zzgetbff_(integer *bffid); 10975 10976 extern int zzgetelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, logical *ok, char *error, ftnlen lines_len, ftnlen error_len); 10977 /*:ref: return_ 12 0 */ 10978 /*:ref: chkin_ 14 2 13 124 */ 10979 /*:ref: rpd_ 7 0 */ 10980 /*:ref: twopi_ 7 0 */ 10981 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 10982 /*:ref: chkout_ 14 2 13 124 */ 10983 /*:ref: lastnb_ 4 2 13 124 */ 10984 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 10985 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 10986 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 10987 /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ 10988 /*:ref: ttrans_ 14 5 13 13 7 124 124 */ 10989 10990 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); 10991 /*:ref: return_ 12 0 */ 10992 /*:ref: chkin_ 14 2 13 124 */ 10993 /*:ref: zzhash_ 4 2 13 124 */ 10994 /*:ref: lnknfn_ 4 1 4 */ 10995 /*:ref: lnkan_ 14 2 4 4 */ 10996 /*:ref: lnkila_ 14 3 4 4 4 */ 10997 /*:ref: setmsg_ 14 2 13 124 */ 10998 /*:ref: sigerr_ 14 2 13 124 */ 10999 /*:ref: chkout_ 14 2 13 124 */ 11000 11001 extern int zzidmap_(integer *bltcod, char *bltnam, ftnlen bltnam_len); 11002 11003 extern int zzinssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); 11004 11005 extern int zzldker_(char *file, char *nofile, char *filtyp, integer *handle, ftnlen file_len, ftnlen nofile_len, ftnlen filtyp_len); 11006 /*:ref: return_ 12 0 */ 11007 /*:ref: chkin_ 14 2 13 124 */ 11008 /*:ref: exists_ 12 2 13 124 */ 11009 /*:ref: setmsg_ 14 2 13 124 */ 11010 /*:ref: errch_ 14 4 13 13 124 124 */ 11011 /*:ref: sigerr_ 14 2 13 124 */ 11012 /*:ref: chkout_ 14 2 13 124 */ 11013 /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ 11014 /*:ref: spklef_ 14 3 13 4 124 */ 11015 /*:ref: cklpf_ 14 3 13 4 124 */ 11016 /*:ref: pcklof_ 14 3 13 4 124 */ 11017 /*:ref: tkvrsn_ 14 4 13 13 124 124 */ 11018 /*:ref: eklef_ 14 3 13 4 124 */ 11019 /*:ref: ldpool_ 14 2 13 124 */ 11020 /*:ref: failed_ 12 0 */ 11021 /*:ref: zzbodkik_ 14 0 */ 11022 11023 extern int zzmkpc_(char *pictur, integer *b, integer *e, char *mark, char *pattrn, ftnlen pictur_len, ftnlen mark_len, ftnlen pattrn_len); 11024 /*:ref: lastnb_ 4 2 13 124 */ 11025 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ 11026 11027 extern int zzmobliq_(doublereal *et, doublereal *mob, doublereal *dmob); 11028 /*:ref: jyear_ 7 0 */ 11029 /*:ref: rpd_ 7 0 */ 11030 11031 extern int zzmsxf_(doublereal *matrix, integer *n, doublereal *output); 11032 11033 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); 11034 extern int zzdpinit_(doublereal *ao, doublereal *xlldot, doublereal *omgdot, doublereal *xnodot, doublereal *xnodp, doublereal *elems); 11035 extern int zzdpsec_(doublereal *xll, doublereal *omgasm, doublereal *xnodes, doublereal *em, doublereal *xinc, doublereal *xn, doublereal *t, doublereal *elems, doublereal *omgdot); 11036 extern int zzdpper_(doublereal *t, doublereal *em, doublereal *xinc, doublereal *omgasm, doublereal *xnodes, doublereal *xll); 11037 /*:ref: return_ 12 0 */ 11038 /*:ref: chkin_ 14 2 13 124 */ 11039 /*:ref: setmsg_ 14 2 13 124 */ 11040 /*:ref: sigerr_ 14 2 13 124 */ 11041 /*:ref: chkout_ 14 2 13 124 */ 11042 /*:ref: pi_ 7 0 */ 11043 /*:ref: twopi_ 7 0 */ 11044 /*:ref: j2000_ 7 0 */ 11045 /*:ref: spd_ 7 0 */ 11046 /*:ref: j1950_ 7 0 */ 11047 /*:ref: zzsecprt_ 14 12 4 7 7 7 7 7 7 7 7 7 7 7 */ 11048 11049 extern integer zzocced_(doublereal *viewpt, doublereal *centr1, doublereal *semax1, doublereal *centr2, doublereal *semax2); 11050 /*:ref: return_ 12 0 */ 11051 /*:ref: chkin_ 14 2 13 124 */ 11052 /*:ref: unorm_ 14 3 7 7 7 */ 11053 /*:ref: setmsg_ 14 2 13 124 */ 11054 /*:ref: errdp_ 14 3 13 7 124 */ 11055 /*:ref: sigerr_ 14 2 13 124 */ 11056 /*:ref: chkout_ 14 2 13 124 */ 11057 /*:ref: vequ_ 14 2 7 7 */ 11058 /*:ref: vsub_ 14 3 7 7 7 */ 11059 /*:ref: vnorm_ 7 1 7 */ 11060 /*:ref: errint_ 14 3 13 4 124 */ 11061 /*:ref: isrot_ 12 3 7 7 7 */ 11062 /*:ref: det_ 7 1 7 */ 11063 /*:ref: vsep_ 7 2 7 7 */ 11064 /*:ref: vminus_ 14 2 7 7 */ 11065 /*:ref: halfpi_ 7 0 */ 11066 /*:ref: xpose_ 14 2 7 7 */ 11067 /*:ref: mxv_ 14 3 7 7 7 */ 11068 /*:ref: edlimb_ 14 5 7 7 7 7 7 */ 11069 /*:ref: el2cgv_ 14 4 7 7 7 7 */ 11070 /*:ref: mtxv_ 14 3 7 7 7 */ 11071 /*:ref: vadd_ 14 3 7 7 7 */ 11072 /*:ref: cleard_ 14 2 4 7 */ 11073 /*:ref: mxm_ 14 3 7 7 7 */ 11074 /*:ref: saelgv_ 14 4 7 7 7 7 */ 11075 /*:ref: cgv2el_ 14 4 7 7 7 7 */ 11076 /*:ref: zzasryel_ 14 7 13 7 7 7 7 7 124 */ 11077 /*:ref: failed_ 12 0 */ 11078 /*:ref: vdist_ 7 2 7 7 */ 11079 11080 extern integer zzphsh_(char *word, integer *m, integer *m2, ftnlen word_len); 11081 extern integer zzshsh_(integer *m); 11082 extern integer zzhash_(char *word, ftnlen word_len); 11083 extern integer zzhash2_(char *word, integer *m2, ftnlen word_len); 11084 /*:ref: setmsg_ 14 2 13 124 */ 11085 /*:ref: errch_ 14 4 13 13 124 124 */ 11086 /*:ref: sigerr_ 14 2 13 124 */ 11087 11088 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 *watsym, integer *watptr, char *watval, char *agents, char *active, char *notify, ftnlen begdat_len, ftnlen begtxt_len, ftnlen watsym_len, ftnlen watval_len, ftnlen agents_len, ftnlen active_len, ftnlen notify_len); 11089 /*:ref: chkin_ 14 2 13 124 */ 11090 /*:ref: zzshsh_ 4 1 4 */ 11091 /*:ref: lnkini_ 14 2 4 4 */ 11092 /*:ref: ssizec_ 14 3 4 13 124 */ 11093 /*:ref: ssizei_ 14 2 4 4 */ 11094 /*:ref: failed_ 12 0 */ 11095 /*:ref: chkout_ 14 2 13 124 */ 11096 11097 extern int zzplatfm_(char *key, char *value, ftnlen key_len, ftnlen value_len); 11098 /*:ref: ucase_ 14 4 13 13 124 124 */ 11099 /*:ref: ljust_ 14 4 13 13 124 124 */ 11100 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 11101 11102 extern int zzpltchk_(logical *ok); 11103 /*:ref: return_ 12 0 */ 11104 /*:ref: chkin_ 14 2 13 124 */ 11105 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 11106 /*:ref: zzgetbff_ 14 1 4 */ 11107 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 11108 /*:ref: setmsg_ 14 2 13 124 */ 11109 /*:ref: errch_ 14 4 13 13 124 124 */ 11110 /*:ref: sigerr_ 14 2 13 124 */ 11111 /*:ref: chkout_ 14 2 13 124 */ 11112 11113 extern int zzprscor_(char *abcorr, logical *attblk, ftnlen abcorr_len); 11114 /*:ref: return_ 12 0 */ 11115 /*:ref: chkin_ 14 2 13 124 */ 11116 /*:ref: orderc_ 14 4 13 4 4 124 */ 11117 /*:ref: reordc_ 14 4 4 4 13 124 */ 11118 /*:ref: reordl_ 14 3 4 4 12 */ 11119 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 11120 /*:ref: ucase_ 14 4 13 13 124 124 */ 11121 /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ 11122 /*:ref: setmsg_ 14 2 13 124 */ 11123 /*:ref: errch_ 14 4 13 13 124 124 */ 11124 /*:ref: sigerr_ 14 2 13 124 */ 11125 /*:ref: chkout_ 14 2 13 124 */ 11126 11127 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); 11128 /*:ref: posr_ 4 5 13 13 4 124 124 */ 11129 11130 extern int zzrefch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); 11131 /*:ref: return_ 12 0 */ 11132 /*:ref: chkin_ 14 2 13 124 */ 11133 /*:ref: ident_ 14 1 7 */ 11134 /*:ref: chkout_ 14 2 13 124 */ 11135 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 11136 /*:ref: setmsg_ 14 2 13 124 */ 11137 /*:ref: errint_ 14 3 13 4 124 */ 11138 /*:ref: sigerr_ 14 2 13 124 */ 11139 /*:ref: zzrotgt0_ 14 5 4 7 7 4 12 */ 11140 /*:ref: zzrxr_ 14 3 7 4 7 */ 11141 /*:ref: isrchi_ 4 3 4 4 4 */ 11142 /*:ref: frmnam_ 14 3 4 13 124 */ 11143 /*:ref: rtrim_ 4 2 13 124 */ 11144 /*:ref: errch_ 14 4 13 13 124 124 */ 11145 /*:ref: xpose_ 14 2 7 7 */ 11146 11147 extern int zzrefch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); 11148 /*:ref: return_ 12 0 */ 11149 /*:ref: chkin_ 14 2 13 124 */ 11150 /*:ref: ident_ 14 1 7 */ 11151 /*:ref: chkout_ 14 2 13 124 */ 11152 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 11153 /*:ref: setmsg_ 14 2 13 124 */ 11154 /*:ref: errint_ 14 3 13 4 124 */ 11155 /*:ref: sigerr_ 14 2 13 124 */ 11156 /*:ref: zzrotgt1_ 14 5 4 7 7 4 12 */ 11157 /*:ref: zzrxr_ 14 3 7 4 7 */ 11158 /*:ref: isrchi_ 4 3 4 4 4 */ 11159 /*:ref: frmnam_ 14 3 4 13 124 */ 11160 /*:ref: rtrim_ 4 2 13 124 */ 11161 /*:ref: errch_ 14 4 13 13 124 124 */ 11162 /*:ref: xpose_ 14 2 7 7 */ 11163 11164 extern int zzrepsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); 11165 /*:ref: sumai_ 4 2 4 4 */ 11166 11167 extern logical zzrept_(char *sub, char *replac, logical *l2r, ftnlen sub_len, ftnlen replac_len); 11168 /*:ref: zzsubt_ 12 5 13 13 12 124 124 */ 11169 /*:ref: zzremt_ 12 2 13 124 */ 11170 11171 extern int zzrotgt0_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); 11172 /*:ref: return_ 12 0 */ 11173 /*:ref: chkin_ 14 2 13 124 */ 11174 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 11175 /*:ref: chkout_ 14 2 13 124 */ 11176 /*:ref: irfrot_ 14 3 4 4 7 */ 11177 /*:ref: tipbod_ 14 5 13 4 7 7 124 */ 11178 /*:ref: xpose_ 14 2 7 7 */ 11179 /*:ref: namfrm_ 14 3 13 4 124 */ 11180 /*:ref: failed_ 12 0 */ 11181 /*:ref: ckfrot_ 14 5 4 7 7 4 12 */ 11182 /*:ref: tkfram_ 14 4 4 7 4 12 */ 11183 /*:ref: zzdynrt0_ 14 5 4 4 7 7 4 */ 11184 /*:ref: setmsg_ 14 2 13 124 */ 11185 /*:ref: errint_ 14 3 13 4 124 */ 11186 /*:ref: errch_ 14 4 13 13 124 124 */ 11187 /*:ref: sigerr_ 14 2 13 124 */ 11188 11189 extern int zzrotgt1_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); 11190 /*:ref: return_ 12 0 */ 11191 /*:ref: chkin_ 14 2 13 124 */ 11192 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 11193 /*:ref: chkout_ 14 2 13 124 */ 11194 /*:ref: irfrot_ 14 3 4 4 7 */ 11195 /*:ref: tipbod_ 14 5 13 4 7 7 124 */ 11196 /*:ref: xpose_ 14 2 7 7 */ 11197 /*:ref: namfrm_ 14 3 13 4 124 */ 11198 /*:ref: failed_ 12 0 */ 11199 /*:ref: ckfrot_ 14 5 4 7 7 4 12 */ 11200 /*:ref: tkfram_ 14 4 4 7 4 12 */ 11201 /*:ref: setmsg_ 14 2 13 124 */ 11202 /*:ref: errint_ 14 3 13 4 124 */ 11203 /*:ref: sigerr_ 14 2 13 124 */ 11204 /*:ref: errch_ 14 4 13 13 124 124 */ 11205 11206 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); 11207 /*:ref: return_ 12 0 */ 11208 /*:ref: chkin_ 14 2 13 124 */ 11209 /*:ref: failed_ 12 0 */ 11210 /*:ref: rdkdat_ 14 3 13 12 124 */ 11211 /*:ref: chkout_ 14 2 13 124 */ 11212 /*:ref: rdklin_ 14 3 13 4 124 */ 11213 /*:ref: setmsg_ 14 2 13 124 */ 11214 /*:ref: rtrim_ 4 2 13 124 */ 11215 /*:ref: errint_ 14 3 13 4 124 */ 11216 /*:ref: errch_ 14 4 13 13 124 124 */ 11217 /*:ref: sigerr_ 14 2 13 124 */ 11218 /*:ref: lastpc_ 4 2 13 124 */ 11219 /*:ref: zzhash_ 4 2 13 124 */ 11220 /*:ref: lnknfn_ 4 1 4 */ 11221 /*:ref: lnkan_ 14 2 4 4 */ 11222 /*:ref: lnkila_ 14 3 4 4 4 */ 11223 /*:ref: lnkfsl_ 14 3 4 4 4 */ 11224 /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ 11225 /*:ref: tparse_ 14 5 13 7 13 124 124 */ 11226 /*:ref: lastnb_ 4 2 13 124 */ 11227 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 11228 11229 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); 11230 /*:ref: return_ 12 0 */ 11231 /*:ref: chkin_ 14 2 13 124 */ 11232 /*:ref: failed_ 12 0 */ 11233 /*:ref: chkout_ 14 2 13 124 */ 11234 /*:ref: setmsg_ 14 2 13 124 */ 11235 /*:ref: rtrim_ 4 2 13 124 */ 11236 /*:ref: errint_ 14 3 13 4 124 */ 11237 /*:ref: errch_ 14 4 13 13 124 124 */ 11238 /*:ref: sigerr_ 14 2 13 124 */ 11239 /*:ref: lastpc_ 4 2 13 124 */ 11240 /*:ref: zzhash_ 4 2 13 124 */ 11241 /*:ref: lnknfn_ 4 1 4 */ 11242 /*:ref: lnkan_ 14 2 4 4 */ 11243 /*:ref: lnkila_ 14 3 4 4 4 */ 11244 /*:ref: lnkfsl_ 14 3 4 4 4 */ 11245 /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ 11246 /*:ref: tparse_ 14 5 13 7 13 124 124 */ 11247 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 11248 11249 extern int zzrxr_(doublereal *matrix, integer *n, doublereal *output); 11250 /*:ref: ident_ 14 1 7 */ 11251 11252 extern logical zzsclk_(integer *ckid, integer *sclkid); 11253 /*:ref: return_ 12 0 */ 11254 /*:ref: chkin_ 14 2 13 124 */ 11255 /*:ref: ssizei_ 14 2 4 4 */ 11256 /*:ref: intstr_ 14 3 4 13 124 */ 11257 /*:ref: elemi_ 12 2 4 4 */ 11258 /*:ref: cvpool_ 14 3 13 12 124 */ 11259 /*:ref: cardi_ 4 1 4 */ 11260 /*:ref: sizei_ 4 1 4 */ 11261 /*:ref: insrti_ 14 2 4 4 */ 11262 /*:ref: chkout_ 14 2 13 124 */ 11263 /*:ref: swpool_ 14 5 13 4 13 124 124 */ 11264 /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ 11265 /*:ref: removi_ 14 2 4 4 */ 11266 11267 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); 11268 11269 extern int zzsizeok_(integer *size, integer *psize, integer *dsize, integer *offset, logical *ok, integer *n); 11270 /*:ref: rmaini_ 14 4 4 4 4 4 */ 11271 11272 extern int zzspkap0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 11273 /*:ref: return_ 12 0 */ 11274 /*:ref: chkin_ 14 2 13 124 */ 11275 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 11276 /*:ref: ucase_ 14 4 13 13 124 124 */ 11277 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 11278 /*:ref: setmsg_ 14 2 13 124 */ 11279 /*:ref: errch_ 14 4 13 13 124 124 */ 11280 /*:ref: sigerr_ 14 2 13 124 */ 11281 /*:ref: chkout_ 14 2 13 124 */ 11282 /*:ref: odd_ 12 1 4 */ 11283 /*:ref: irfnum_ 14 3 13 4 124 */ 11284 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ 11285 /*:ref: vsubg_ 14 4 7 7 4 7 */ 11286 /*:ref: moved_ 14 3 7 4 7 */ 11287 /*:ref: vnorm_ 7 1 7 */ 11288 /*:ref: clight_ 7 0 */ 11289 /*:ref: stlabx_ 14 3 7 7 7 */ 11290 /*:ref: vequ_ 14 2 7 7 */ 11291 /*:ref: stelab_ 14 3 7 7 7 */ 11292 11293 extern int zzspkap1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 11294 /*:ref: return_ 12 0 */ 11295 /*:ref: chkin_ 14 2 13 124 */ 11296 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 11297 /*:ref: ucase_ 14 4 13 13 124 124 */ 11298 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 11299 /*:ref: setmsg_ 14 2 13 124 */ 11300 /*:ref: errch_ 14 4 13 13 124 124 */ 11301 /*:ref: sigerr_ 14 2 13 124 */ 11302 /*:ref: chkout_ 14 2 13 124 */ 11303 /*:ref: odd_ 12 1 4 */ 11304 /*:ref: irfnum_ 14 3 13 4 124 */ 11305 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ 11306 /*:ref: vsubg_ 14 4 7 7 4 7 */ 11307 /*:ref: moved_ 14 3 7 4 7 */ 11308 /*:ref: vnorm_ 7 1 7 */ 11309 /*:ref: clight_ 7 0 */ 11310 /*:ref: stlabx_ 14 3 7 7 7 */ 11311 /*:ref: vequ_ 14 2 7 7 */ 11312 /*:ref: stelab_ 14 3 7 7 7 */ 11313 11314 extern int zzspkez0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 11315 /*:ref: return_ 12 0 */ 11316 /*:ref: chkin_ 14 2 13 124 */ 11317 /*:ref: namfrm_ 14 3 13 4 124 */ 11318 /*:ref: ltrim_ 4 2 13 124 */ 11319 /*:ref: eqchr_ 12 4 13 13 124 124 */ 11320 /*:ref: eqstr_ 12 4 13 13 124 124 */ 11321 /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ 11322 /*:ref: setmsg_ 14 2 13 124 */ 11323 /*:ref: errch_ 14 4 13 13 124 124 */ 11324 /*:ref: sigerr_ 14 2 13 124 */ 11325 /*:ref: chkout_ 14 2 13 124 */ 11326 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 11327 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ 11328 /*:ref: zzspkap0_ 14 9 4 7 13 7 13 7 7 124 124 */ 11329 /*:ref: failed_ 12 0 */ 11330 /*:ref: zzfrmch0_ 14 4 4 4 7 7 */ 11331 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 11332 11333 extern int zzspkez1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 11334 /*:ref: return_ 12 0 */ 11335 /*:ref: chkin_ 14 2 13 124 */ 11336 /*:ref: namfrm_ 14 3 13 4 124 */ 11337 /*:ref: setmsg_ 14 2 13 124 */ 11338 /*:ref: errch_ 14 4 13 13 124 124 */ 11339 /*:ref: sigerr_ 14 2 13 124 */ 11340 /*:ref: chkout_ 14 2 13 124 */ 11341 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 11342 /*:ref: ltrim_ 4 2 13 124 */ 11343 /*:ref: eqchr_ 12 4 13 13 124 124 */ 11344 /*:ref: eqstr_ 12 4 13 13 124 124 */ 11345 /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ 11346 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ 11347 /*:ref: zzspkap1_ 14 9 4 7 13 7 13 7 7 124 124 */ 11348 /*:ref: failed_ 12 0 */ 11349 /*:ref: zzfrmch1_ 14 4 4 4 7 7 */ 11350 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 11351 11352 extern int zzspkgo0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); 11353 /*:ref: return_ 12 0 */ 11354 /*:ref: chkin_ 14 2 13 124 */ 11355 /*:ref: cleard_ 14 2 4 7 */ 11356 /*:ref: chkout_ 14 2 13 124 */ 11357 /*:ref: irfnum_ 14 3 13 4 124 */ 11358 /*:ref: namfrm_ 14 3 13 4 124 */ 11359 /*:ref: frstnp_ 4 2 13 124 */ 11360 /*:ref: setmsg_ 14 2 13 124 */ 11361 /*:ref: errch_ 14 4 13 13 124 124 */ 11362 /*:ref: sigerr_ 14 2 13 124 */ 11363 /*:ref: failed_ 12 0 */ 11364 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ 11365 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ 11366 /*:ref: moved_ 14 3 7 4 7 */ 11367 /*:ref: irfrot_ 14 3 4 4 7 */ 11368 /*:ref: mxv_ 14 3 7 7 7 */ 11369 /*:ref: zzfrmch0_ 14 4 4 4 7 7 */ 11370 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 11371 /*:ref: vaddg_ 14 4 7 7 4 7 */ 11372 /*:ref: isrchi_ 4 3 4 4 4 */ 11373 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 11374 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 11375 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 11376 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 11377 /*:ref: intstr_ 14 3 4 13 124 */ 11378 /*:ref: etcal_ 14 3 7 13 124 */ 11379 /*:ref: vsubg_ 14 4 7 7 4 7 */ 11380 /*:ref: vnorm_ 7 1 7 */ 11381 /*:ref: clight_ 7 0 */ 11382 11383 extern int zzspkgo1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); 11384 /*:ref: return_ 12 0 */ 11385 /*:ref: chkin_ 14 2 13 124 */ 11386 /*:ref: cleard_ 14 2 4 7 */ 11387 /*:ref: chkout_ 14 2 13 124 */ 11388 /*:ref: irfnum_ 14 3 13 4 124 */ 11389 /*:ref: namfrm_ 14 3 13 4 124 */ 11390 /*:ref: frstnp_ 4 2 13 124 */ 11391 /*:ref: setmsg_ 14 2 13 124 */ 11392 /*:ref: errch_ 14 4 13 13 124 124 */ 11393 /*:ref: sigerr_ 14 2 13 124 */ 11394 /*:ref: failed_ 12 0 */ 11395 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ 11396 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ 11397 /*:ref: moved_ 14 3 7 4 7 */ 11398 /*:ref: irfrot_ 14 3 4 4 7 */ 11399 /*:ref: mxv_ 14 3 7 7 7 */ 11400 /*:ref: zzfrmch1_ 14 4 4 4 7 7 */ 11401 /*:ref: mxvg_ 14 5 7 7 4 4 7 */ 11402 /*:ref: vaddg_ 14 4 7 7 4 7 */ 11403 /*:ref: isrchi_ 4 3 4 4 4 */ 11404 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 11405 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 11406 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 11407 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 11408 /*:ref: intstr_ 14 3 4 13 124 */ 11409 /*:ref: etcal_ 14 3 7 13 124 */ 11410 /*:ref: vsubg_ 14 4 7 7 4 7 */ 11411 /*:ref: vnorm_ 7 1 7 */ 11412 /*:ref: clight_ 7 0 */ 11413 11414 extern int zzspkgp0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); 11415 /*:ref: return_ 12 0 */ 11416 /*:ref: chkin_ 14 2 13 124 */ 11417 /*:ref: cleard_ 14 2 4 7 */ 11418 /*:ref: chkout_ 14 2 13 124 */ 11419 /*:ref: irfnum_ 14 3 13 4 124 */ 11420 /*:ref: namfrm_ 14 3 13 4 124 */ 11421 /*:ref: frstnp_ 4 2 13 124 */ 11422 /*:ref: setmsg_ 14 2 13 124 */ 11423 /*:ref: errch_ 14 4 13 13 124 124 */ 11424 /*:ref: sigerr_ 14 2 13 124 */ 11425 /*:ref: failed_ 12 0 */ 11426 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ 11427 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ 11428 /*:ref: moved_ 14 3 7 4 7 */ 11429 /*:ref: irfrot_ 14 3 4 4 7 */ 11430 /*:ref: mxv_ 14 3 7 7 7 */ 11431 /*:ref: zzrefch0_ 14 4 4 4 7 7 */ 11432 /*:ref: vadd_ 14 3 7 7 7 */ 11433 /*:ref: vequ_ 14 2 7 7 */ 11434 /*:ref: isrchi_ 4 3 4 4 4 */ 11435 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 11436 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 11437 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 11438 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 11439 /*:ref: intstr_ 14 3 4 13 124 */ 11440 /*:ref: etcal_ 14 3 7 13 124 */ 11441 /*:ref: vsub_ 14 3 7 7 7 */ 11442 /*:ref: vnorm_ 7 1 7 */ 11443 /*:ref: clight_ 7 0 */ 11444 11445 extern int zzspkgp1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); 11446 /*:ref: return_ 12 0 */ 11447 /*:ref: chkin_ 14 2 13 124 */ 11448 /*:ref: cleard_ 14 2 4 7 */ 11449 /*:ref: chkout_ 14 2 13 124 */ 11450 /*:ref: irfnum_ 14 3 13 4 124 */ 11451 /*:ref: namfrm_ 14 3 13 4 124 */ 11452 /*:ref: frstnp_ 4 2 13 124 */ 11453 /*:ref: setmsg_ 14 2 13 124 */ 11454 /*:ref: errch_ 14 4 13 13 124 124 */ 11455 /*:ref: sigerr_ 14 2 13 124 */ 11456 /*:ref: failed_ 12 0 */ 11457 /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ 11458 /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ 11459 /*:ref: moved_ 14 3 7 4 7 */ 11460 /*:ref: irfrot_ 14 3 4 4 7 */ 11461 /*:ref: mxv_ 14 3 7 7 7 */ 11462 /*:ref: zzrefch1_ 14 4 4 4 7 7 */ 11463 /*:ref: vadd_ 14 3 7 7 7 */ 11464 /*:ref: vequ_ 14 2 7 7 */ 11465 /*:ref: isrchi_ 4 3 4 4 4 */ 11466 /*:ref: bodc2n_ 14 4 4 13 12 124 */ 11467 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 11468 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 11469 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 11470 /*:ref: intstr_ 14 3 4 13 124 */ 11471 /*:ref: etcal_ 14 3 7 13 124 */ 11472 /*:ref: vsub_ 14 3 7 7 7 */ 11473 /*:ref: vnorm_ 7 1 7 */ 11474 /*:ref: clight_ 7 0 */ 11475 11476 extern int zzspkpa0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 11477 /*:ref: return_ 12 0 */ 11478 /*:ref: chkin_ 14 2 13 124 */ 11479 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 11480 /*:ref: ucase_ 14 4 13 13 124 124 */ 11481 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 11482 /*:ref: setmsg_ 14 2 13 124 */ 11483 /*:ref: errch_ 14 4 13 13 124 124 */ 11484 /*:ref: sigerr_ 14 2 13 124 */ 11485 /*:ref: chkout_ 14 2 13 124 */ 11486 /*:ref: odd_ 12 1 4 */ 11487 /*:ref: irfnum_ 14 3 13 4 124 */ 11488 /*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ 11489 /*:ref: vsub_ 14 3 7 7 7 */ 11490 /*:ref: vequ_ 14 2 7 7 */ 11491 /*:ref: vnorm_ 7 1 7 */ 11492 /*:ref: clight_ 7 0 */ 11493 /*:ref: stlabx_ 14 3 7 7 7 */ 11494 /*:ref: stelab_ 14 3 7 7 7 */ 11495 11496 extern int zzspkpa1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 11497 /*:ref: return_ 12 0 */ 11498 /*:ref: chkin_ 14 2 13 124 */ 11499 /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ 11500 /*:ref: ucase_ 14 4 13 13 124 124 */ 11501 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 11502 /*:ref: setmsg_ 14 2 13 124 */ 11503 /*:ref: errch_ 14 4 13 13 124 124 */ 11504 /*:ref: sigerr_ 14 2 13 124 */ 11505 /*:ref: chkout_ 14 2 13 124 */ 11506 /*:ref: odd_ 12 1 4 */ 11507 /*:ref: irfnum_ 14 3 13 4 124 */ 11508 /*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ 11509 /*:ref: vsub_ 14 3 7 7 7 */ 11510 /*:ref: vequ_ 14 2 7 7 */ 11511 /*:ref: vnorm_ 7 1 7 */ 11512 /*:ref: clight_ 7 0 */ 11513 /*:ref: stlabx_ 14 3 7 7 7 */ 11514 /*:ref: stelab_ 14 3 7 7 7 */ 11515 11516 extern int zzspksb0_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); 11517 /*:ref: return_ 12 0 */ 11518 /*:ref: chkin_ 14 2 13 124 */ 11519 /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ 11520 /*:ref: chkout_ 14 2 13 124 */ 11521 11522 extern int zzspksb1_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); 11523 /*:ref: return_ 12 0 */ 11524 /*:ref: chkin_ 14 2 13 124 */ 11525 /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ 11526 /*:ref: chkout_ 14 2 13 124 */ 11527 11528 extern int zzspkzp0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 11529 /*:ref: return_ 12 0 */ 11530 /*:ref: chkin_ 14 2 13 124 */ 11531 /*:ref: namfrm_ 14 3 13 4 124 */ 11532 /*:ref: ltrim_ 4 2 13 124 */ 11533 /*:ref: eqchr_ 12 4 13 13 124 124 */ 11534 /*:ref: eqstr_ 12 4 13 13 124 124 */ 11535 /*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ 11536 /*:ref: setmsg_ 14 2 13 124 */ 11537 /*:ref: errch_ 14 4 13 13 124 124 */ 11538 /*:ref: sigerr_ 14 2 13 124 */ 11539 /*:ref: chkout_ 14 2 13 124 */ 11540 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 11541 /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ 11542 /*:ref: zzspkpa0_ 14 9 4 7 13 7 13 7 7 124 124 */ 11543 /*:ref: failed_ 12 0 */ 11544 /*:ref: zzrefch0_ 14 4 4 4 7 7 */ 11545 /*:ref: mxv_ 14 3 7 7 7 */ 11546 11547 extern int zzspkzp1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); 11548 /*:ref: return_ 12 0 */ 11549 /*:ref: chkin_ 14 2 13 124 */ 11550 /*:ref: namfrm_ 14 3 13 4 124 */ 11551 /*:ref: setmsg_ 14 2 13 124 */ 11552 /*:ref: errch_ 14 4 13 13 124 124 */ 11553 /*:ref: sigerr_ 14 2 13 124 */ 11554 /*:ref: chkout_ 14 2 13 124 */ 11555 /*:ref: frinfo_ 14 5 4 4 4 4 12 */ 11556 /*:ref: ltrim_ 4 2 13 124 */ 11557 /*:ref: eqchr_ 12 4 13 13 124 124 */ 11558 /*:ref: eqstr_ 12 4 13 13 124 124 */ 11559 /*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ 11560 /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ 11561 /*:ref: zzspkpa1_ 14 9 4 7 13 7 13 7 7 124 124 */ 11562 /*:ref: failed_ 12 0 */ 11563 /*:ref: zzrefch1_ 14 4 4 4 7 7 */ 11564 /*:ref: mxv_ 14 3 7 7 7 */ 11565 11566 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); 11567 extern logical zzcmbt_(char *string, char *letter, logical *l2r, ftnlen string_len, ftnlen letter_len); 11568 extern logical zzgrep_(char *string, ftnlen string_len); 11569 extern logical zzispt_(char *string, integer *b, integer *e, ftnlen string_len); 11570 extern logical zzist_(char *letter, ftnlen letter_len); 11571 extern logical zznote_(char *letter, integer *b, integer *e, ftnlen letter_len); 11572 extern logical zzremt_(char *letter, ftnlen letter_len); 11573 extern logical zzsubt_(char *string, char *transl, logical *l2r, ftnlen string_len, ftnlen transl_len); 11574 extern logical zztokns_(char *string, char *error, ftnlen string_len, ftnlen error_len); 11575 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); 11576 extern logical zzvalt_(char *string, integer *b, integer *e, char *letter, ftnlen string_len, ftnlen letter_len); 11577 /*:ref: pos_ 4 5 13 13 4 124 124 */ 11578 /*:ref: posr_ 4 5 13 13 4 124 124 */ 11579 /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ 11580 /*:ref: cpos_ 4 5 13 13 4 124 124 */ 11581 /*:ref: rtrim_ 4 2 13 124 */ 11582 /*:ref: lx4uns_ 14 5 13 4 4 4 124 */ 11583 /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ 11584 /*:ref: prefix_ 14 5 13 4 13 124 124 */ 11585 /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ 11586 /*:ref: ucase_ 14 4 13 13 124 124 */ 11587 /*:ref: samsbi_ 12 8 13 4 4 13 4 4 124 124 */ 11588 /*:ref: samchi_ 12 6 13 4 13 4 124 124 */ 11589 /*:ref: suffix_ 14 5 13 4 13 124 124 */ 11590 /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 11591 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 11592 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 11593 /*:ref: zzmkpc_ 14 8 13 4 4 13 13 124 124 124 */ 11594 /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 11595 11596 extern logical zztpats_(integer *room, integer *nknown, char *known, char *meanng, ftnlen known_len, ftnlen meanng_len); 11597 /*:ref: orderc_ 14 4 13 4 4 124 */ 11598 /*:ref: reordc_ 14 4 4 4 13 124 */ 11599 11600 extern int zztwovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); 11601 /*:ref: return_ 12 0 */ 11602 /*:ref: chkin_ 14 2 13 124 */ 11603 /*:ref: setmsg_ 14 2 13 124 */ 11604 /*:ref: errint_ 14 3 13 4 124 */ 11605 /*:ref: sigerr_ 14 2 13 124 */ 11606 /*:ref: chkout_ 14 2 13 124 */ 11607 /*:ref: dvhat_ 14 2 7 7 */ 11608 /*:ref: ducrss_ 14 3 7 7 7 */ 11609 /*:ref: moved_ 14 3 7 4 7 */ 11610 /*:ref: cleard_ 14 2 4 7 */ 11611 /*:ref: vzero_ 12 1 7 */ 11612 11613 extern int zzutcpm_(char *string, integer *start, doublereal *hoff, doublereal *moff, integer *last, logical *succes, ftnlen string_len); 11614 /*:ref: lx4uns_ 14 5 13 4 4 4 124 */ 11615 /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 11616 /*:ref: samch_ 12 6 13 4 13 4 124 124 */ 11617 11618 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); 11619 extern int zzvststr_(doublereal *x, char *fill, integer *expont, ftnlen fill_len); 11620 extern int zzvsbstr_(integer *from, integer *to, logical *rnd, char *substr, logical *did, ftnlen substr_len); 11621 /*:ref: dpstr_ 14 4 7 4 13 124 */ 11622 11623 extern int zzwahr_(doublereal *et, doublereal *dvnut); 11624 /*:ref: pi_ 7 0 */ 11625 /*:ref: twopi_ 7 0 */ 11626 /*:ref: spd_ 7 0 */ 11627 11628 extern integer zzwind_(doublereal *plane, integer *n, doublereal *vertcs, doublereal *point); 11629 /*:ref: return_ 12 0 */ 11630 /*:ref: chkin_ 14 2 13 124 */ 11631 /*:ref: setmsg_ 14 2 13 124 */ 11632 /*:ref: errint_ 14 3 13 4 124 */ 11633 /*:ref: sigerr_ 14 2 13 124 */ 11634 /*:ref: chkout_ 14 2 13 124 */ 11635 /*:ref: pl2nvc_ 14 3 7 7 7 */ 11636 /*:ref: vzero_ 12 1 7 */ 11637 /*:ref: vdot_ 7 2 7 7 */ 11638 /*:ref: vminus_ 14 2 7 7 */ 11639 /*:ref: vequ_ 14 2 7 7 */ 11640 /*:ref: vsub_ 14 3 7 7 7 */ 11641 /*:ref: vperp_ 14 3 7 7 7 */ 11642 /*:ref: vsep_ 7 2 7 7 */ 11643 /*:ref: ucrss_ 14 3 7 7 7 */ 11644 /*:ref: twopi_ 7 0 */ 11645 11646 extern int zzxlated_(integer *inbff, char *input, integer *space, doublereal *output, ftnlen input_len); 11647 /*:ref: return_ 12 0 */ 11648 /*:ref: chkin_ 14 2 13 124 */ 11649 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 11650 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 11651 /*:ref: ucase_ 14 4 13 13 124 124 */ 11652 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 11653 /*:ref: setmsg_ 14 2 13 124 */ 11654 /*:ref: errch_ 14 4 13 13 124 124 */ 11655 /*:ref: sigerr_ 14 2 13 124 */ 11656 /*:ref: chkout_ 14 2 13 124 */ 11657 /*:ref: intmin_ 4 0 */ 11658 /*:ref: errint_ 14 3 13 4 124 */ 11659 /*:ref: moved_ 14 3 7 4 7 */ 11660 11661 extern int zzxlatei_(integer *inbff, char *input, integer *space, integer *output, ftnlen input_len); 11662 /*:ref: return_ 12 0 */ 11663 /*:ref: chkin_ 14 2 13 124 */ 11664 /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ 11665 /*:ref: zzplatfm_ 14 4 13 13 124 124 */ 11666 /*:ref: ucase_ 14 4 13 13 124 124 */ 11667 /*:ref: isrchc_ 4 5 13 4 13 124 124 */ 11668 /*:ref: setmsg_ 14 2 13 124 */ 11669 /*:ref: errch_ 14 4 13 13 124 124 */ 11670 /*:ref: sigerr_ 14 2 13 124 */ 11671 /*:ref: chkout_ 14 2 13 124 */ 11672 /*:ref: intmin_ 4 0 */ 11673 /*:ref: errint_ 14 3 13 4 124 */ 11674 11675 11676 #ifdef __cplusplus 11677 } 11678 #endif 11679 11680 #endif 11681 11682