include/0040777000000000000000000000000014164213066007442 5ustar00include/f2c.h0100777000000000000000000004062214164213066010271 0ustar00/* -Header_File f2c.h ( CSPICE version of the f2c standard header file ) -Abstract Perform standard f2c declarations, customized for the host environment. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars The standard f2c header file f2c.h must be included by every function generated by running f2c on Fortran source code. The header f2c.h includes typedefs used to provide a level of indirection in mapping Fortran data types to native C data types. For example, Fortran INTEGER variables are mapped to variables of type integer, where integer is a C typedef. In the standard f2c.h header, the typedef integer translates to the C type long. Because the standard version of f2c.h does not work on all platforms, this header file contains two platform-dependent versions of it, meant to be selected at build time via precompiler switches. The precompiler switches reference macros defined in SpiceZpl.h to determine for which host platform the code is targeted. The first version of f2c.h, which works on most platforms, is copied directly from the standard version of f2c.h. The second version is intended for use on the DEC Alpha running Digital Unix and the Sun/Solaris platform using 64 bit mode and running gcc. On those systems, longs occupy 8 bytes, as do doubles. Because the Fortran standard requires that INTEGERS occupy half the storage of DOUBLE PRECISION numbers, INTEGERS should be mapped to 4-byte ints rather than 8-byte longs on the platforms having 8-byte longs. In order to achieve this, the header f2c.h was transformed using the sed command sed 's/long //' f2c.h The high-level structure of this file is then: # if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) ) [ Alpha/Digital Unix and Sun Solaris 64 bit mode/gcc version of f2c.h source code ] # else [ Standard version of f2c.h source code ] # endif -Restrictions 1) This header file must be updated whenever the f2c processor or the f2c libraries libI77 and libF77 are updated. 2) This header may need to be updated to support new platforms. The supported platforms at the time of the 31-JAN-1999 release are: ALPHA-DIGITAL-UNIX HP NEXT PC-LINUX PC-MS SGI-IRIX-N32 SGI-IRIX-NO2 SUN-SOLARIS -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) B.V. Semenov (JPL) E.D. Wright (JPL) -Version -CSPICE Version 4.3.0, 09-NOV-2021 (BVS) Updated for: MAC-OSX-M1-64BIT-CLANG_C environment. Added the corresponding tag: CSPICE_MAC_OSX_M1_64BIT_CLANG tag to the #ifdefs set. -CSPICE Version 4.2.0, 09-APR-2014 (EDW) (BVS) Added include for SpiceZrnm.h to eliminate symbol conflict encountered from Icy and JNISpice under OS X 10.7. Minor text format correction to eliminate error signal from OS X cpp. The edit removes leading whitespace from the final "#endif". Updated for: PC-CYGWIN-64BIT-GCC_C environment. Added the corresponding tag: CSPICE_PC_CYGWIN_64BIT_GCC tag to the #ifdefs set. -CSPICE Version 4.1.0, 14-MAY-2010 (EDW)(BVS) Updated for: MAC-OSX-64BIT-INTEL_C SUN-SOLARIS-64BIT-NATIVE_C SUN-SOLARIS-INTEL-64BIT-CC_C environments. Added the corresponding tags: CSPICE_MAC_OSX_INTEL_64BIT_GCC CSPICE_SUN_SOLARIS_64BIT_NATIVE CSPICE_SUN_SOLARIS_INTEL_64BIT_CC tag to the #ifdefs set. -CSPICE Version 4.0.0, 21-FEB-2006 (NJB) Updated to support the PC Linux 64 bit mode/gcc platform. -CSPICE Version 3.0.0, 27-JAN-2003 (NJB) Updated to support the Sun Solaris 64 bit mode/gcc platform. -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) Updated to support linking CSPICE into executables that also link in objects compiled from Fortran, in particular ones that perform Fortran I/O. To enable this odd mix, one defines the preprocessor flag MIX_C_AND_FORTRAN This macro is undefined by default, since the action it invokes is usually not desirable. See the header f2cMang.h for further information. -CSPICE Version 1.0.0, 07-FEB-1999 (NJB) */ /* Include those rename assignments for routines whose symbols will collide with other libraries. */ #ifndef HAVE_SPICERENAME_H #include "SpiceZrnm.h" #endif /* Optionally include name-mangling macros for f2c external symbols. */ #ifdef MIX_C_AND_FORTRAN #include "f2cMang.h" #endif /* Include CSPICE platform macro definitions. */ #include "SpiceZpl.h" #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE ) \ || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) /* MODIFICATION The following code is intended to be used on the platforms where a long is the size of a double and an int is half the size of a double. Note that the comment line below indicating that the header is "Standard" has been retained from the original, but is no longer true. */ /* f2c.h -- Standard Fortran to C header file */ #ifndef F2C_INCLUDE #define F2C_INCLUDE typedef int integer; typedef unsigned uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; typedef int logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; #if 0 /* Adjust for integer*8. */ typedef long longint; /* system-dependent */ typedef unsigned long ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) #endif #define TRUE_ (1) #define FALSE_ (0) /* Extern is for use with -E */ #ifndef Extern #define Extern extern #endif /* I/O stuff */ #ifdef f2c_i2 /* for -i2 */ typedef short flag; typedef short ftnlen; typedef short ftnint; #else typedef int flag; typedef int ftnlen; typedef int ftnint; #endif /*external read, write*/ typedef struct { flag cierr; ftnint ciunit; flag ciend; char *cifmt; ftnint cirec; } cilist; /*internal read, write*/ typedef struct { flag icierr; char *iciunit; flag iciend; char *icifmt; ftnint icirlen; ftnint icirnum; } icilist; /*open*/ typedef struct { flag oerr; ftnint ounit; char *ofnm; ftnlen ofnmlen; char *osta; char *oacc; char *ofm; ftnint orl; char *oblnk; } olist; /*close*/ typedef struct { flag cerr; ftnint cunit; char *csta; } cllist; /*rewind, backspace, endfile*/ typedef struct { flag aerr; ftnint aunit; } alist; /* inquire */ typedef struct { flag inerr; ftnint inunit; char *infile; ftnlen infilen; ftnint *inex; /*parameters in standard's order*/ ftnint *inopen; ftnint *innum; ftnint *innamed; char *inname; ftnlen innamlen; char *inacc; ftnlen inacclen; char *inseq; ftnlen inseqlen; char *indir; ftnlen indirlen; char *infmt; ftnlen infmtlen; char *inform; ftnint informlen; char *inunf; ftnlen inunflen; ftnint *inrecl; ftnint *innrec; char *inblank; ftnlen inblanklen; } inlist; #define VOID void union Multitype { /* for multiple entry points */ integer1 g; shortint h; integer i; /* longint j; */ real r; doublereal d; complex c; doublecomplex z; }; typedef union Multitype Multitype; /*typedef int Long;*/ /* No longer used; formerly in Namelist */ struct Vardesc { /* for Namelist */ char *name; char *addr; ftnlen *dims; int type; }; typedef struct Vardesc Vardesc; struct Namelist { char *name; Vardesc **vars; int nvars; }; typedef struct Namelist Namelist; #define abs(x) ((x) >= 0 ? (x) : -(x)) #define dabs(x) (doublereal)abs(x) #define min(a,b) ((a) <= (b) ? (a) : (b)) #define max(a,b) ((a) >= (b) ? (a) : (b)) #define dmin(a,b) (doublereal)min(a,b) #define dmax(a,b) (doublereal)max(a,b) #define bit_test(a,b) ((a) >> (b) & 1) #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) #define bit_set(a,b) ((a) | ((uinteger)1 << (b))) /* procedure parameter types for -A and -C++ */ #define F2C_proc_par_types 1 #ifdef __cplusplus typedef int /* Unknown procedure type */ (*U_fp)(...); typedef shortint (*J_fp)(...); typedef integer (*I_fp)(...); typedef real (*R_fp)(...); typedef doublereal (*D_fp)(...), (*E_fp)(...); typedef /* Complex */ VOID (*C_fp)(...); typedef /* Double Complex */ VOID (*Z_fp)(...); typedef logical (*L_fp)(...); typedef shortlogical (*K_fp)(...); typedef /* Character */ VOID (*H_fp)(...); typedef /* Subroutine */ int (*S_fp)(...); #else typedef int /* Unknown procedure type */ (*U_fp)(); typedef shortint (*J_fp)(); typedef integer (*I_fp)(); typedef real (*R_fp)(); typedef doublereal (*D_fp)(), (*E_fp)(); typedef /* Complex */ VOID (*C_fp)(); typedef /* Double Complex */ VOID (*Z_fp)(); typedef logical (*L_fp)(); typedef shortlogical (*K_fp)(); typedef /* Character */ VOID (*H_fp)(); typedef /* Subroutine */ int (*S_fp)(); #endif /* E_fp is for real functions when -R is not specified */ typedef VOID C_f; /* complex function */ typedef VOID H_f; /* character function */ typedef VOID Z_f; /* double complex function */ typedef doublereal E_f; /* real function with -R not specified */ /* undef any lower-case symbols that your C compiler predefines, e.g.: */ #ifndef Skip_f2c_Undefs #undef cray #undef gcos #undef mc68010 #undef mc68020 #undef mips #undef pdp11 #undef sgi #undef sparc #undef sun #undef sun2 #undef sun3 #undef sun4 #undef u370 #undef u3b #undef u3b2 #undef u3b5 #undef unix #undef vax #endif #endif /* This marks the end of the MODIFICATION section version of f2c.h. */ #else /* The following code is the standard f2c.h header. In this header, an "integer" is defined to be of type long. Because the code is copied verbatim, it does not follow the usual CSPICE indentation pattern. */ /* f2c.h -- Standard Fortran to C header file */ #ifndef F2C_INCLUDE #define F2C_INCLUDE typedef long int integer; typedef unsigned long uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; typedef long int logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; #if 0 /* Adjust for integer*8. */ typedef long long longint; /* system-dependent */ typedef unsigned long long ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) #endif #define TRUE_ (1) #define FALSE_ (0) /* Extern is for use with -E */ #ifndef Extern #define Extern extern #endif /* I/O stuff */ #ifdef f2c_i2 /* for -i2 */ typedef short flag; typedef short ftnlen; typedef short ftnint; #else typedef long int flag; typedef long int ftnlen; typedef long int ftnint; #endif /*external read, write*/ typedef struct { flag cierr; ftnint ciunit; flag ciend; char *cifmt; ftnint cirec; } cilist; /*internal read, write*/ typedef struct { flag icierr; char *iciunit; flag iciend; char *icifmt; ftnint icirlen; ftnint icirnum; } icilist; /*open*/ typedef struct { flag oerr; ftnint ounit; char *ofnm; ftnlen ofnmlen; char *osta; char *oacc; char *ofm; ftnint orl; char *oblnk; } olist; /*close*/ typedef struct { flag cerr; ftnint cunit; char *csta; } cllist; /*rewind, backspace, endfile*/ typedef struct { flag aerr; ftnint aunit; } alist; /* inquire */ typedef struct { flag inerr; ftnint inunit; char *infile; ftnlen infilen; ftnint *inex; /*parameters in standard's order*/ ftnint *inopen; ftnint *innum; ftnint *innamed; char *inname; ftnlen innamlen; char *inacc; ftnlen inacclen; char *inseq; ftnlen inseqlen; char *indir; ftnlen indirlen; char *infmt; ftnlen infmtlen; char *inform; ftnint informlen; char *inunf; ftnlen inunflen; ftnint *inrecl; ftnint *innrec; char *inblank; ftnlen inblanklen; } inlist; #define VOID void union Multitype { /* for multiple entry points */ integer1 g; shortint h; integer i; /* longint j; */ real r; doublereal d; complex c; doublecomplex z; }; typedef union Multitype Multitype; /*typedef long int Long;*/ /* No longer used; formerly in Namelist */ struct Vardesc { /* for Namelist */ char *name; char *addr; ftnlen *dims; int type; }; typedef struct Vardesc Vardesc; struct Namelist { char *name; Vardesc **vars; int nvars; }; typedef struct Namelist Namelist; #define abs(x) ((x) >= 0 ? (x) : -(x)) #define dabs(x) (doublereal)abs(x) #define min(a,b) ((a) <= (b) ? (a) : (b)) #define max(a,b) ((a) >= (b) ? (a) : (b)) #define dmin(a,b) (doublereal)min(a,b) #define dmax(a,b) (doublereal)max(a,b) #define bit_test(a,b) ((a) >> (b) & 1) #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) #define bit_set(a,b) ((a) | ((uinteger)1 << (b))) /* procedure parameter types for -A and -C++ */ #define F2C_proc_par_types 1 #ifdef __cplusplus typedef int /* Unknown procedure type */ (*U_fp)(...); typedef shortint (*J_fp)(...); typedef integer (*I_fp)(...); typedef real (*R_fp)(...); typedef doublereal (*D_fp)(...), (*E_fp)(...); typedef /* Complex */ VOID (*C_fp)(...); typedef /* Double Complex */ VOID (*Z_fp)(...); typedef logical (*L_fp)(...); typedef shortlogical (*K_fp)(...); typedef /* Character */ VOID (*H_fp)(...); typedef /* Subroutine */ int (*S_fp)(...); #else typedef int /* Unknown procedure type */ (*U_fp)(); typedef shortint (*J_fp)(); typedef integer (*I_fp)(); typedef real (*R_fp)(); typedef doublereal (*D_fp)(), (*E_fp)(); typedef /* Complex */ VOID (*C_fp)(); typedef /* Double Complex */ VOID (*Z_fp)(); typedef logical (*L_fp)(); typedef shortlogical (*K_fp)(); typedef /* Character */ VOID (*H_fp)(); typedef /* Subroutine */ int (*S_fp)(); #endif /* E_fp is for real functions when -R is not specified */ typedef VOID C_f; /* complex function */ typedef VOID H_f; /* character function */ typedef VOID Z_f; /* double complex function */ typedef doublereal E_f; /* real function with -R not specified */ /* undef any lower-case symbols that your C compiler predefines, e.g.: */ #ifndef Skip_f2c_Undefs #undef cray #undef gcos #undef mc68010 #undef mc68020 #undef mips #undef pdp11 #undef sgi #undef sparc #undef sun #undef sun2 #undef sun3 #undef sun4 #undef u370 #undef u3b #undef u3b2 #undef u3b5 #undef unix #undef vax #endif #endif #endif include/f2cMang.h0100777000000000000000000003302714164213066011075 0ustar00/* -Header_File f2cMang.h ( f2c external symbol mangling ) -Abstract Define macros that mangle the external symbols in the f2c F77 and I77 libraries. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header supports linking CSPICE into executables that also link in objects compiled from Fortran, in particular ones that perform Fortran I/O. To enable this odd mix, one defines the preprocessor flag MIX_C_AND_FORTRAN This macro is undefined by default, since the action it invokes is usually not desirable. When the flag is defined, this header defines macros that mangle the f2c library external symbols: the symbol xxx gets mapped to xxx_f2c This mangling prevents name collisions between the f2c implementations of the F77 and I77 library routines and those in the corresponding Fortran libraries on a host system. The set of external symbols defined in the f2c libraries can be determined by combining objects from both F77 and I77 into a single Unix archive libarary, then running the Unix utility nm on the that archive. If available, an nm option that selects only external symbols should be invoked. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions 1) It is recommended that use of the features implemented by this header be avoided if at all possible. There are robustness and portability problems associated with linking Fortran and C objects together in one executable. 2) When f2c external symbol name mangling is invoked, objects derived from C code translated from Fortran by f2c won't link against CSPICE any longer, if these objects reference the standard f2c external symbols. 3) The features implemented by this header have been tested only under the Sun Solaris GCC, Sun Solaris native ANSI C, and PC/Linux/gcc environments. -Version -CSPICE Version 2.0.1, 07-MAR-2009 (NJB) Restrictions header section was updated to note successful testing on the PC/Linux/gcc platform. -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) */ /* Define masking macros for f2c external symbols. */ #ifdef MIX_C_AND_FORTRAN /* Define the macros only once, if they need to be defined. */ #ifndef F2C_MANGLING_DONE #define F77_aloc F77_aloc_f2c #define F_err F_err_f2c #define L_len L_len_f2c #define abort_ abort__f2c #define b_char b_char_f2c #define c_abs c_abs_f2c #define c_cos c_cos_f2c #define c_dfe c_dfe_f2c #define c_div c_div_f2c #define c_due c_due_f2c #define c_exp c_exp_f2c #define c_le c_le_f2c #define c_log c_log_f2c #define c_sfe c_sfe_f2c #define c_si c_si_f2c #define c_sin c_sin_f2c #define c_sqrt c_sqrt_f2c #define c_sue c_sue_f2c #define d_abs d_abs_f2c #define d_acos d_acos_f2c #define d_asin d_asin_f2c #define d_atan d_atan_f2c #define d_atn2 d_atn2_f2c #define d_cnjg d_cnjg_f2c #define d_cos d_cos_f2c #define d_cosh d_cosh_f2c #define d_dim d_dim_f2c #define d_exp d_exp_f2c #define d_imag d_imag_f2c #define d_int d_int_f2c #define d_lg10 d_lg10_f2c #define d_log d_log_f2c #define d_mod d_mod_f2c #define d_nint d_nint_f2c #define d_prod d_prod_f2c #define d_sign d_sign_f2c #define d_sin d_sin_f2c #define d_sinh d_sinh_f2c #define d_sqrt d_sqrt_f2c #define d_tan d_tan_f2c #define d_tanh d_tanh_f2c #define derf_ derf__f2c #define derfc_ derfc__f2c #define do_fio do_fio_f2c #define do_lio do_lio_f2c #define do_ud do_ud_f2c #define do_uio do_uio_f2c #define do_us do_us_f2c #define dtime_ dtime__f2c #define e_rdfe e_rdfe_f2c #define e_rdue e_rdue_f2c #define e_rsfe e_rsfe_f2c #define e_rsfi e_rsfi_f2c #define e_rsle e_rsle_f2c #define e_rsli e_rsli_f2c #define e_rsue e_rsue_f2c #define e_wdfe e_wdfe_f2c #define e_wdue e_wdue_f2c #define e_wsfe e_wsfe_f2c #define e_wsfi e_wsfi_f2c #define e_wsle e_wsle_f2c #define e_wsli e_wsli_f2c #define e_wsue e_wsue_f2c #define ef1asc_ ef1asc__f2c #define ef1cmc_ ef1cmc__f2c #define en_fio en_fio_f2c #define erf_ erf__f2c #define erfc_ erfc__f2c #define err__fl err__fl_f2c #define etime_ etime__f2c #define exit_ exit__f2c #define f__Aquote f__Aquote_f2c #define f__buflen f__buflen_f2c #define f__cabs f__cabs_f2c #define f__canseek f__canseek_f2c #define f__cblank f__cblank_f2c #define f__cf f__cf_f2c #define f__cnt f__cnt_f2c #define f__cp f__cp_f2c #define f__cplus f__cplus_f2c #define f__cursor f__cursor_f2c #define f__curunit f__curunit_f2c #define f__doed f__doed_f2c #define f__doend f__doend_f2c #define f__doned f__doned_f2c #define f__donewrec f__donewrec_f2c #define f__dorevert f__dorevert_f2c #define f__elist f__elist_f2c #define f__external f__external_f2c #define f__fatal f__fatal_f2c #define f__fmtbuf f__fmtbuf_f2c #define f__formatted f__formatted_f2c #define f__getn f__getn_f2c #define f__hiwater f__hiwater_f2c #define f__icend f__icend_f2c #define f__icnum f__icnum_f2c #define f__icptr f__icptr_f2c #define f__icvt f__icvt_f2c #define f__init f__init_f2c #define f__inode f__inode_f2c #define f__lchar f__lchar_f2c #define f__lcount f__lcount_f2c #define f__lioproc f__lioproc_f2c #define f__lquit f__lquit_f2c #define f__ltab f__ltab_f2c #define f__ltype f__ltype_f2c #define f__lx f__lx_f2c #define f__ly f__ly_f2c #define f__nonl f__nonl_f2c #define f__nowreading f__nowreading_f2c #define f__nowwriting f__nowwriting_f2c #define f__parenlvl f__parenlvl_f2c #define f__pc f__pc_f2c #define f__putbuf f__putbuf_f2c #define f__putn f__putn_f2c #define f__r_mode f__r_mode_f2c #define f__reading f__reading_f2c #define f__reclen f__reclen_f2c #define f__recloc f__recloc_f2c #define f__recpos f__recpos_f2c #define f__ret f__ret_f2c #define f__revloc f__revloc_f2c #define f__rp f__rp_f2c #define f__scale f__scale_f2c #define f__sequential f__sequential_f2c #define f__svic f__svic_f2c #define f__typesize f__typesize_f2c #define f__units f__units_f2c #define f__w_mode f__w_mode_f2c #define f__workdone f__workdone_f2c #define f_back f_back_f2c #define f_clos f_clos_f2c #define f_end f_end_f2c #define f_exit f_exit_f2c #define f_init f_init_f2c #define f_inqu f_inqu_f2c #define f_open f_open_f2c #define f_rew f_rew_f2c #define fk_open fk_open_f2c #define flush_ flush__f2c #define fmt_bg fmt_bg_f2c #define fseek_ fseek__f2c #define ftell_ ftell__f2c #define g_char g_char_f2c #define getenv_ getenv__f2c #define h_abs h_abs_f2c #define h_dim h_dim_f2c #define h_dnnt h_dnnt_f2c #define h_indx h_indx_f2c #define h_len h_len_f2c #define h_mod h_mod_f2c #define h_nint h_nint_f2c #define h_sign h_sign_f2c #define hl_ge hl_ge_f2c #define hl_gt hl_gt_f2c #define hl_le hl_le_f2c #define hl_lt hl_lt_f2c #define i_abs i_abs_f2c #define i_dim i_dim_f2c #define i_dnnt i_dnnt_f2c #define i_indx i_indx_f2c #define i_len i_len_f2c #define i_mod i_mod_f2c #define i_nint i_nint_f2c #define i_sign i_sign_f2c #define iw_rev iw_rev_f2c #define l_eof l_eof_f2c #define l_ge l_ge_f2c #define l_getc l_getc_f2c #define l_gt l_gt_f2c #define l_le l_le_f2c #define l_lt l_lt_f2c #define l_read l_read_f2c #define l_ungetc l_ungetc_f2c #define l_write l_write_f2c #define lbit_bits lbit_bits_f2c #define lbit_cshift lbit_cshift_f2c #define lbit_shift lbit_shift_f2c #define mk_hashtab mk_hashtab_f2c #define nml_read nml_read_f2c #define pars_f pars_f_f2c #define pow_ci pow_ci_f2c #define pow_dd pow_dd_f2c #define pow_di pow_di_f2c #define pow_hh pow_hh_f2c #define pow_ii pow_ii_f2c #define pow_ri pow_ri_f2c #define pow_zi pow_zi_f2c #define pow_zz pow_zz_f2c #define r_abs r_abs_f2c #define r_acos r_acos_f2c #define r_asin r_asin_f2c #define r_atan r_atan_f2c #define r_atn2 r_atn2_f2c #define r_cnjg r_cnjg_f2c #define r_cos r_cos_f2c #define r_cosh r_cosh_f2c #define r_dim r_dim_f2c #define r_exp r_exp_f2c #define r_imag r_imag_f2c #define r_int r_int_f2c #define r_lg10 r_lg10_f2c #define r_log r_log_f2c #define r_mod r_mod_f2c #define r_nint r_nint_f2c #define r_sign r_sign_f2c #define r_sin r_sin_f2c #define r_sinh r_sinh_f2c #define r_sqrt r_sqrt_f2c #define r_tan r_tan_f2c #define r_tanh r_tanh_f2c #define rd_ed rd_ed_f2c #define rd_ned rd_ned_f2c #define s_cat s_cat_f2c #define s_cmp s_cmp_f2c #define s_copy s_copy_f2c #define s_paus s_paus_f2c #define s_rdfe s_rdfe_f2c #define s_rdue s_rdue_f2c #define s_rnge s_rnge_f2c #define s_rsfe s_rsfe_f2c #define s_rsfi s_rsfi_f2c #define s_rsle s_rsle_f2c #define s_rsli s_rsli_f2c #define s_rsne s_rsne_f2c #define s_rsni s_rsni_f2c #define s_rsue s_rsue_f2c #define s_stop s_stop_f2c #define s_wdfe s_wdfe_f2c #define s_wdue s_wdue_f2c #define s_wsfe s_wsfe_f2c #define s_wsfi s_wsfi_f2c #define s_wsle s_wsle_f2c #define s_wsli s_wsli_f2c #define s_wsne s_wsne_f2c #define s_wsni s_wsni_f2c #define s_wsue s_wsue_f2c #define sig_die sig_die_f2c #define signal_ signal__f2c #define system_ system__f2c #define t_getc t_getc_f2c #define t_runc t_runc_f2c #define w_ed w_ed_f2c #define w_ned w_ned_f2c #define wrt_E wrt_E_f2c #define wrt_F wrt_F_f2c #define wrt_L wrt_L_f2c #define x_endp x_endp_f2c #define x_getc x_getc_f2c #define x_putc x_putc_f2c #define x_rev x_rev_f2c #define x_rsne x_rsne_f2c #define x_wSL x_wSL_f2c #define x_wsne x_wsne_f2c #define xrd_SL xrd_SL_f2c #define y_getc y_getc_f2c #define y_rsk y_rsk_f2c #define z_abs z_abs_f2c #define z_cos z_cos_f2c #define z_div z_div_f2c #define z_exp z_exp_f2c #define z_getc z_getc_f2c #define z_log z_log_f2c #define z_putc z_putc_f2c #define z_rnew z_rnew_f2c #define z_sin z_sin_f2c #define z_sqrt z_sqrt_f2c #define z_wnew z_wnew_f2c #define F2C_MANGLING_DONE #endif #endif include/fio.h0100777000000000000000000000474514164213066010402 0ustar00#include "stdio.h" #include "errno.h" #ifndef NULL /* ANSI C */ #include "stddef.h" #endif #ifndef SEEK_SET #define SEEK_SET 0 #define SEEK_CUR 1 #define SEEK_END 2 #endif #ifdef MSDOS #ifndef NON_UNIX_STDIO #define NON_UNIX_STDIO #endif #endif #ifdef UIOLEN_int typedef int uiolen; #else typedef long uiolen; #endif /*units*/ typedef struct { FILE *ufd; /*0=unconnected*/ char *ufnm; #ifndef MSDOS long uinode; int udev; #endif int url; /*0=sequential*/ flag useek; /*true=can backspace, use dir, ...*/ flag ufmt; flag urw; /* (1 for can read) | (2 for can write) */ flag ublnk; flag uend; flag uwrt; /*last io was write*/ flag uscrtch; } unit; extern flag f__init; extern cilist *f__elist; /*active external io list*/ extern flag f__reading,f__external,f__sequential,f__formatted; #undef Void #ifdef KR_headers #define Void /*void*/ extern int (*f__getn)(); /* for formatted input */ extern void (*f__putn)(); /* for formatted output */ extern void x_putc(); extern long f__inode(); extern VOID sig_die(); extern int (*f__donewrec)(), t_putc(), x_wSL(); extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf(); #else #define Void void #ifdef __cplusplus extern "C" { #endif extern int (*f__getn)(void); /* for formatted input */ extern void (*f__putn)(int); /* for formatted output */ extern void x_putc(int); extern long f__inode(char*,int*); extern void sig_die(char*,int); extern void f__fatal(int,char*); extern int t_runc(alist*); extern int f__nowreading(unit*), f__nowwriting(unit*); extern int fk_open(int,int,ftnint); extern int en_fio(void); extern void f_init(void); extern int (*f__donewrec)(void), t_putc(int), x_wSL(void); extern void b_char(char*,char*,ftnlen), g_char(char*,ftnlen,char*); extern int c_sfe(cilist*), z_rnew(void); extern int isatty(int); extern int err__fl(int,int,char*); extern int xrd_SL(void); extern int f__putbuf(int); #ifdef __cplusplus } #endif #endif extern int (*f__doend)(Void); extern FILE *f__cf; /*current file*/ extern unit *f__curunit; /*current unit*/ extern unit f__units[]; #define err(f,m,s) {if(f) errno= m; else f__fatal(m,s); return(m);} #define errfl(f,m,s) return err__fl((int)f,m,s) /*Table sizes*/ #define MXUNIT 100 extern int f__recpos; /*position in current record*/ extern int f__cursor; /* offset to move to */ extern int f__hiwater; /* so TL doesn't confuse us */ #define WRITE 1 #define READ 2 #define SEQ 3 #define DIR 4 #define FMT 5 #define UNF 6 #define EXT 7 #define INT 8 #define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ) include/fmt.h0100777000000000000000000000352414164213066010405 0ustar00struct syl { int op; int p1; union { int i[2]; char *s;} p2; }; #define RET1 1 #define REVERT 2 #define GOTO 3 #define X 4 #define SLASH 5 #define STACK 6 #define I 7 #define ED 8 #define NED 9 #define IM 10 #define APOS 11 #define H 12 #define TL 13 #define TR 14 #define T 15 #define COLON 16 #define S 17 #define SP 18 #define SS 19 #define P 20 #define BN 21 #define BZ 22 #define F 23 #define E 24 #define EE 25 #define D 26 #define G 27 #define GE 28 #define L 29 #define A 30 #define AW 31 #define O 32 #define NONL 33 #define OM 34 #define Z 35 #define ZM 36 extern int f__pc,f__parenlvl,f__revloc; typedef union { real pf; doublereal pd; } ufloat; typedef union { short is; #ifndef KR_headers signed #endif char ic; integer il; #ifdef Allow_TYQUAD longint ili; #endif } Uint; #ifdef KR_headers extern int (*f__doed)(),(*f__doned)(); extern int (*f__dorevert)(); extern int rd_ed(),rd_ned(); extern int w_ed(),w_ned(); #else #ifdef __cplusplus extern "C" { #endif extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); extern int (*f__dorevert)(void); extern void fmt_bg(void); extern int pars_f(char*); extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); extern int wrt_E(ufloat*, int, int, int, ftnlen); extern int wrt_F(ufloat*, int, int, ftnlen); extern int wrt_L(Uint*, int, ftnlen); #ifdef __cplusplus } #endif #endif extern flag f__cblank,f__cplus,f__workdone, f__nonl; extern char *f__fmtbuf; extern int f__scale; #define GET(x) if((x=(*f__getn)())<0) return(x) #define VAL(x) (x!='\n'?x:' ') #define PUT(x) (*f__putn)(x) extern int f__cursor; #undef TYQUAD #ifndef Allow_TYQUAD #undef longint #define longint long #else #define TYQUAD 14 #endif #ifdef KR_headers extern char *f__icvt(); #else extern char *f__icvt(longint, int*, int*, int); #endif include/fp.h0100777000000000000000000000123114164213066010215 0ustar00#define FMAX 40 #define EXPMAXDIGS 8 #define EXPMAX 99999999 /* FMAX = max number of nonzero digits passed to atof() */ /* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */ #ifdef V10 /* Research Tenth-Edition Unix */ #include "local.h" #endif /* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily tight) on the maximum number of digits to the right and left of * the decimal point. */ #ifdef VAX #define MAXFRACDIGS 56 #define MAXINTDIGS 38 #else #ifdef CRAY #define MAXFRACDIGS 9880 #define MAXINTDIGS 9864 #else /* values that suffice for IEEE double */ #define MAXFRACDIGS 344 #define MAXINTDIGS 308 #endif #endif include/lio.h0100777000000000000000000000303414164213066010376 0ustar00/* copy of ftypes from the compiler */ /* variable types * numeric assumptions: * int < reals < complexes * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX */ /* 0-10 retain their old (pre LOGICAL*1, etc.) */ /* values to allow mixing old and new objects. */ #define TYUNKNOWN 0 #define TYADDR 1 #define TYSHORT 2 #define TYLONG 3 #define TYREAL 4 #define TYDREAL 5 #define TYCOMPLEX 6 #define TYDCOMPLEX 7 #define TYLOGICAL 8 #define TYCHAR 9 #define TYSUBR 10 #define TYINT1 11 #define TYLOGICAL1 12 #define TYLOGICAL2 13 #ifdef Allow_TYQUAD #undef TYQUAD #define TYQUAD 14 #endif #define LINTW 24 #define LINE 80 #define LLOGW 2 #ifdef Old_list_output #define LLOW 1.0 #define LHIGH 1.e9 #define LEFMT " %# .8E" #define LFFMT " %# .9g" #else #define LGFMT "%.9G" #endif /* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */ #define LEFBL 24 typedef union { char flchar; short flshort; ftnint flint; #ifdef Allow_TYQUAD longint fllongint; #endif real flreal; doublereal fldouble; } flex; extern int f__scale; #ifdef KR_headers extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)(); extern int l_read(), l_write(); #else #ifdef __cplusplus extern "C" { #endif extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); extern int l_write(ftnint*, char*, ftnlen, ftnint); extern void x_wsne(cilist*); extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*); extern int l_read(ftnint*,char*,ftnlen,ftnint); extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*); extern int z_rnew(void); #ifdef __cplusplus } #endif #endif extern ftnint L_len; include/rawio.h0100777000000000000000000000131614164213066010735 0ustar00#ifndef KR_headers #ifdef MSDOS #include "io.h" #ifndef WATCOM #define close _close #define creat _creat #define open _open #define read _read #define write _write #endif /*WATCOM*/ #endif /*MSDOS*/ #ifdef __cplusplus extern "C" { #endif #ifndef MSDOS #ifdef OPEN_DECL extern int creat(const char*,int), open(const char*,int); #endif extern int close(int); extern int read(int,void*,size_t), write(int,void*,size_t); extern int unlink(const char*); #ifndef _POSIX_SOURCE #ifndef NON_UNIX_STDIO extern FILE *fdopen(int, const char*); #endif #endif #endif /*KR_HEADERS*/ extern char *mktemp(char*); #ifdef __cplusplus } #endif #endif #include "fcntl.h" #ifndef O_WRONLY #define O_RDONLY 0 #define O_WRONLY 1 #endif include/signal1.h0100777000000000000000000000612314164213066011153 0ustar00/* -Header_File signal1.h (CSPICE version of the f2c signal1.h header file) -Abstract Define macros associated with signal handling, customized for the host environment. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines the macro signal1 referenced in main.c, which is a generic main routine used in CSPICE executables that link to code generated by f2c. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions 1) This header file must be updated whenever the f2c processor or the f2c libraries libI77 and libF77 are updated. 2) This header may need to be updated to support new platforms. The supported platforms at the time of the 03-FEB-2000 release are: ALPHA-DIGITAL-UNIX_C HP_C NEXT_C PC-LINUX_C PC-MS_C SGI-IRIX-N32_C SGI-IRIX-NO2_C SUN-SOLARIS-GCC_C SUN-SOLARIS-NATIVE_C -Version -CSPICE Version 1.0.0, 03-FEB-2000 (NJB) */ /* You may need to adjust the definition of signal1 to supply a */ /* cast to the correct argument type. This detail is system- and */ /* compiler-dependent. The #define below assumes signal.h declares */ /* type SIG_PF for the signal function's second argument. */ #include #ifndef Sigret_t #define Sigret_t void #endif #ifndef Sigarg_t #ifdef KR_headers #define Sigarg_t #else #ifdef __cplusplus #define Sigarg_t ... #else #define Sigarg_t int #endif #endif #endif /*Sigarg_t*/ #ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */ #define sig_pf SIG_PF #else typedef Sigret_t (*sig_pf)(Sigarg_t); #endif #define signal1(a,b) signal(a,(sig_pf)b) #ifdef __cplusplus #define Sigarg ... #define Use_Sigarg #else #define Sigarg Int n #define Use_Sigarg n = n /* shut up compiler warning */ #endif include/SpiceCel.h0100777000000000000000000004735414164213066011317 0ustar00/* -Header_File SpiceCel.h ( CSPICE Cell definitions ) -Abstract Perform CSPICE definitions for the SpiceCell data type. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading CELLS -Particulars This header defines structures, macros, and enumerated types that may be referenced in application code that calls CSPICE cell functions. CSPICE cells are data structures that implement functionality parallel to that of the cell abstract data type in SPICELIB. In CSPICE, a cell is a C structure containing bookkeeping information, including a pointer to an associated data array. For numeric data types, the data array is simply a SPICELIB-style cell, including a valid control area. For character cells, the data array has the same number of elements as the corresponding SPICELIB-style cell, but the contents of the control area are not maintained, and the data elements are null-terminated C-style strings. CSPICE cells should be declared using the declaration macros provided in this header file. See the table of macros below. Structures ========== Name Description ---- ---------- SpiceCell Structure containing CSPICE cell metadata. The members are: dtype: Data type of cell: character, integer, or double precision. dtype has type SpiceCellDataType. length: For character cells, the declared length of the cell's string array. size: The maximum number of data items that can be stored in the cell's data array. card: The cell's "cardinality": the number of data items currently present in the cell. isSet: Boolean flag indicating whether the cell is a CSPICE set. Sets have no duplicate data items, and their data items are stored in increasing order. adjust: Boolean flag indicating whether the cell's data area has adjustable size. Adjustable size cell data areas are not currently implemented. init: Boolean flag indicating whether the cell has been initialized. base: is a void pointer to the associated data array. base points to the start of the control area of this array. data: is a void pointer to the first data slot in the associated data array. This slot is the element following the control area. ConstSpiceCell A const SpiceCell. Declaration Macros ================== Name Description ---- ---------- SPICECHAR_CELL ( name, size, length ) Declare a character CSPICE cell having cell name name, maximum cell cardinality size, and string length length. The macro declares both the cell and the associated data array. The name of the data array begins with "SPICE_". SPICEDOUBLE_CELL ( name, size ) Like SPICECHAR_CELL, but declares a double precision cell. SPICEINT_CELL ( name, size ) Like SPICECHAR_CELL, but declares an integer cell. Assignment Macros ================= Name Description ---- ---------- SPICE_CELL_SET_C( item, i, cell ) Assign the ith element of a character cell. Arguments cell and item are pointers. SPICE_CELL_SET_D( item, i, cell ) Assign the ith element of a double precision cell. Argument cell is a pointer. SPICE_CELL_SET_I( item, i, cell ) Assign the ith element of an integer cell. Argument cell is a pointer. Fetch Macros ============== Name Description ---- ---------- SPICE_CELL_GET_C( cell, i, lenout, item ) Fetch the ith element from a character cell. Arguments cell and item are pointers. Argument lenout is the available space in item. SPICE_CELL_GET_D( cell, i, item ) Fetch the ith element from a double precision cell. Arguments cell and item are pointers. SPICE_CELL_GET_I( cell, i, item ) Fetch the ith element from an integer cell. Arguments cell and item are pointers. Element Pointer Macros ====================== Name Description ---- ---------- SPICE_CELL_ELEM_C( cell, i ) Macro evaluates to a SpiceChar pointer to the ith data element of a character cell. Argument cell is a pointer. SPICE_CELL_ELEM_D( cell, i ) Macro evaluates to a SpiceDouble pointer to the ith data element of a double precision cell. Argument cell is a pointer. SPICE_CELL_ELEM_I( cell, i ) Macro evaluates to a SpiceInt pointer to the ith data element of an integer cell. Argument cell is a pointer. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 22-AUG-2002 (NJB) */ #ifndef HAVE_SPICE_CELLS_H #define HAVE_SPICE_CELLS_H /* Data type codes: */ typedef enum _SpiceDataType SpiceCellDataType; /* Cell structure: */ struct _SpiceCell { SpiceCellDataType dtype; SpiceInt length; SpiceInt size; SpiceInt card; SpiceBoolean isSet; SpiceBoolean adjust; SpiceBoolean init; void * base; void * data; }; typedef struct _SpiceCell SpiceCell; typedef const SpiceCell ConstSpiceCell; /* SpiceCell control area size: */ #define SPICE_CELL_CTRLSZ 6 /* Declaration macros: */ #define SPICECHAR_CELL( name, size, length ) \ \ static SpiceChar SPICE_CELL_##name[SPICE_CELL_CTRLSZ + size][length]; \ \ static SpiceCell name = \ \ { SPICE_CHR, \ length, \ size, \ 0, \ SPICETRUE, \ SPICEFALSE, \ SPICEFALSE, \ (void *) &(SPICE_CELL_##name), \ (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } #define SPICEDOUBLE_CELL( name, size ) \ \ static SpiceDouble SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ \ static SpiceCell name = \ \ { SPICE_DP, \ 0, \ size, \ 0, \ SPICETRUE, \ SPICEFALSE, \ SPICEFALSE, \ (void *) &(SPICE_CELL_##name), \ (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } #define SPICEINT_CELL( name, size ) \ \ static SpiceInt SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ \ static SpiceCell name = \ \ { SPICE_INT, \ 0, \ size, \ 0, \ SPICETRUE, \ SPICEFALSE, \ SPICEFALSE, \ (void *) &(SPICE_CELL_##name), \ (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } /* Access macros for individual elements: */ /* Data element pointer macros: */ #define SPICE_CELL_ELEM_C( cell, i ) \ \ ( ( (SpiceChar *) (cell)->data ) + (i)*( (cell)->length ) ) #define SPICE_CELL_ELEM_D( cell, i ) \ \ ( ( (SpiceDouble *) (cell)->data )[(i)] ) #define SPICE_CELL_ELEM_I( cell, i ) \ \ ( ( (SpiceInt *) (cell)->data )[(i)] ) /* "Fetch" macros: */ #define SPICE_CELL_GET_C( cell, i, lenout, item ) \ \ { \ SpiceInt nBytes; \ \ nBytes = brckti_c ( (cell)->length, 0, (lenout-1) ) \ * sizeof ( SpiceChar ); \ \ memmove ( (item), SPICE_CELL_ELEM_C((cell), (i)), nBytes ); \ \ item[nBytes] = NULLCHAR; \ } #define SPICE_CELL_GET_D( cell, i, item ) \ \ ( (*item) = ( (SpiceDouble *) (cell)->data)[i] ) #define SPICE_CELL_GET_I( cell, i, item ) \ \ ( (*item) = ( (SpiceInt *) (cell)->data)[i] ) /* Assignment macros: */ #define SPICE_CELL_SET_C( item, i, cell ) \ \ { \ SpiceChar * sPtr; \ SpiceInt nBytes; \ \ nBytes = brckti_c ( strlen(item), 0, (cell)->length - 1 ) \ * sizeof ( SpiceChar ); \ \ sPtr = SPICE_CELL_ELEM_C((cell), (i)); \ \ memmove ( sPtr, (item), nBytes ); \ \ sPtr[nBytes] = NULLCHAR; \ } #define SPICE_CELL_SET_D( item, i, cell ) \ \ ( ( (SpiceDouble *) (cell)->data)[i] = (item) ) #define SPICE_CELL_SET_I( item, i, cell ) \ \ ( ( (SpiceInt *) (cell)->data)[i] = (item) ) /* The enum SpiceTransDir is used to indicate language translation direction: C to Fortran or vice versa. */ enum _SpiceTransDir { C2F = 0, F2C = 1 }; typedef enum _SpiceTransDir SpiceTransDir; #endif include/SpiceCK.h0100777000000000000000000001224214164213066011075 0ustar00/* -Header_File SpiceCK.h ( CSPICE CK definitions ) -Abstract Perform CSPICE definitions to support CK wrapper interfaces. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines types that may be referenced in application code that calls CSPICE CK functions. Typedef ======= Name Description ---- ---------- SpiceCK05Subtype Typedef for enum indicating the mathematical representation used in an CK type 05 segment. Possible values and meanings are: C05TP0: Hermite interpolation, 8- element packets containing q0, q1, q2, q3, dq0/dt, dq1/dt, dq2/dt dq3/dt where q0, q1, q2, q3 represent quaternion components and dq0/dt, dq1/dt, dq2/dt, dq3/dt represent quaternion time derivative components. Quaternions are unitless. Quaternion time derivatives have units of 1/second. C05TP1: Lagrange interpolation, 4- element packets containing q0, q1, q2, q3, where q0, q1, q2, q3 represent quaternion components. Quaternion derivatives are obtained by differentiating interpolating polynomials. C05TP2: Hermite interpolation, 14- element packets containing q0, q1, q2, q3, dq0/dt, dq1/dt, dq2/dt dq3/dt, av0, av1, av2, dav0/dt, dav1/dt, dav2/dt where q0, q1, q2, q3 represent quaternion components and dq0/dt, dq1/dt, dq2/dt, dq3/dt represent quaternion time derivative components, av0, av1, av2 represent angular velocity components, and dav0/dt, dav1/dt, dav2/dt represent angular acceleration components. C05TP3: Lagrange interpolation, 7- element packets containing q0, q1, q2, q3, av0, av1, av2 where q0, q1, q2, q3 represent quaternion components and av0, av1, av2 represent angular velocity components. Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 20-AUG-2002 (NJB) */ #ifndef HAVE_SPICE_CK_H #define HAVE_SPICE_CK_H /* CK type 05 subtype codes: */ enum _SpiceCK05Subtype { C05TP0, C05TP1, C05TP2, C05TP3 }; typedef enum _SpiceCK05Subtype SpiceCK05Subtype; #endif include/SpiceDAS.h0100777000000000000000000000634714164213066011220 0ustar00 /* -Header_File SpiceDAS.h ( CSPICE DAS-specific definitions ) -Abstract Perform CSPICE DAS-specific definitions, including macros. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading DAS -Particulars This header defines macros that may be referenced in application code that calls CSPICE DAS functions. Macros ====== Name Description ---- ----------- SPICE_DAS_FTSIZE is the maximum number of DAS files that can be open at any one time. SPICE_DAS_CHARDT, SPICE_DAS_DPDT, SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, SpiceDouble, and SpiceInt respectively. These parameters are used in all DAS routines that require a data type specifier. -Literature_References None. -Author_and_Institution J. Diaz del Rio (ODC Space) -Restrictions It is recommended that the default values defined in this file be changed only by expert SPICE users. -Version -CSPICE Version 1.0.0, 07-APR-2020 (JDR) */ #ifndef HAVE_SPICE_DAS_H #define HAVE_SPICE_DAS_H /* Constants */ /* Fortran maximum number of DAS files that can be open at any one time: */ #define SPICE_DAS_FTSIZE 5000 /* DAS data type specifiers used in all DAS routines that require a data type either as input or to extract data from an output array. SPICE_DAS_CHARDT, SPICE_DAS_DPDT, SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, SpiceDouble, and SpiceInt respectively. These parameters are used in all DAS routines that require a data type specifier. */ #define SPICE_DAS_CHARDT 0 #define SPICE_DAS_DPDT 1 #define SPICE_DAS_INTDT 2 #endif /* End of header file SpiceDAS.h */ include/SpiceDLA.h0100777000000000000000000002457214164213066011211 0ustar00/* -Header_File SpiceDLA.h ( CSPICE DLA-specific definitions ) -Abstract Perform CSPICE DLA-specific definitions, including macros and user- defined types. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines macros, enumerated types, structures, and typedefs that may be referenced in application code that calls CSPICE DLA functions. Macros ====== Dimensions ---------- Name Description ---- ----------- SPICE_DLA_DSCSIZ Size of a SPICELIB DLA descriptor, measured in multiples of the size of a SpiceInt. A DLA descriptor `DLADescr' can be declared SpiceInt DLADescr [SPICE_DLA_DSCSIZ]; This parameter is provided for compatibility with f2c'd SPICELIB interfaces; CSPICE wrappers should pass DLA descriptors via pointers to the SpiceDLADescr structure defined below. DLA File Offsets ---------------- These parameters are provided to support CSPICE wrapper testing. Name Description ---- ----------- SPICE_DLA_VERIDX DAS integer address of DLA version code. SPICE_DLA_LLBIDX DAS integer addresses of first segment linked list pointer. SPICE_DLA_LLEIDX DAS integer addresses of last segment linked list pointer. Structure Offsets ------------------------- These parameters are provided to support CSPICE wrapper implementation. Name Description ---- ----------- SPICE_DLA_BWDIDX Backward pointer index in a DLA descriptor. SPICE_DLA_FWDIDX Forward pointer index in a DLA descriptor. SPICE_DLA_IBSIDX Integer base address index in a DLA descriptor. SPICE_DLA_ISZIDX Integer component size index in a DLA descriptor. SPICE_DLA_DBSIDX D.p. base address index in a DLA descriptor. SPICE_DLA_DSZIDX D.p. component size index in a DLA descriptor. SPICE_DLA_CBSIDX Character base address index in a DLA descriptor. SPICE_DLA_CSZIDX Character component size index in a DLA descriptor. Other DLA parameters -------------------- Name Description ---- ----------- SPICE_DLA_NULPTR Null pointer parameter. SPICE_DLA_FMTVER DLA format version. Structures ========== DLA API structures ------------------ Name Description ---- ----------- SpiceDLADescr DLA descriptor. Note: the "base addresses" described below are the *predecessors* of the first addresses occupied by the respective components of each data type. The structure members are: bwdptr: backward pointer. Data type is SpiceInt. fwdptr: forward pointer. Data type is SpiceInt. ibase: base DAS address of the integer component of a DLA segment. isize: number of elements in the integer component of a DLA segment. dbase: base DAS address of double precision component of a DLA segment. dsize: number of elements in the double precision component of a DLA segment. cbase: base DAS address of character component of a DLA segment. csize: number of elements in the character component of a DLA segment. ConstSpiceDLADescr A constant DLA descriptor. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) J. Diaz del Rio (ODC Space) -Restrictions None. -Version -CSPICE Version 1.2.0, 24-SEP-2021 (JDR) Added DLA File Offsets and Other DLA parameters, required for CSPICE wrappers' testing. -CSPICE Version 1.1.0, 21-JAN-2016 (NJB) Updated to remove f2c_proto.h dla_proto.h The prototypes declared in these headers have been moved to the files SpiceZfc.h SpiceZpr.h -DSKLIB_C Version 1.0.1, 12-FEB-2010 (NJB) Updated to include f2c_proto.h dla_proto.h -DSKLIB_C Version 1.0.1, 09-FEB-2007 (NJB) Comments were corrected: names of structure members bwdptr and fwdptr in the comments now match the names used in the structure definition. -DSKLIB_C Version 1.0.0, 26-OCT-2006 (NJB) */ #ifndef HAVE_SPICE_DLA_H #define HAVE_SPICE_DLA_H /* DAS integer address of DLA version code. */ #define SPICE_DLA_VERIDX 1 /* Linked list parameters Logical arrays (aka "segments") in a DAS linked array (DLA) file are organized as a doubly linked list. Each logical array may actually consist of character, double precision, and integer components. A component of a given data type occupies a contiguous range of DAS addresses of that type. Any or all array components may be empty. The segment descriptors in a SPICE DLA (DAS linked array) file are connected by a doubly linked list. Each node of the list is represented by a pair of integers acting as forward and backward pointers. Each pointer pair occupies the first two integers of a segment descriptor in DAS integer address space. The DLA file contains pointers to the first integers of both the first and last segment descriptors. At the DLA level of a file format implementation, there is no knowledge of the data contents. Hence segment descriptors provide information only about file layout (in contrast with the DAF system). Metadata giving specifics of segment contents are stored within the segments themselves in DLA-based file formats. Parameter declarations follow. DAS integer addresses of first and last segment linked list pointer pairs. The contents of these pointers are the DAS addresses of the first integers belonging to the first and last link pairs, respectively. The acronyms "LLB" and "LLE" denote "linked list begin" and "linked list end" respectively. */ #define SPICE_DLA_LLBIDX SPICE_DLA_VERIDX + 1 #define SPICE_DLA_LLEIDX SPICE_DLA_LLBIDX + 1 /* Null pointer parameter. */ #define SPICE_DLA_NULPTR -1 /* DLA descriptor dimension: */ #define SPICE_DLA_DSCSIZ 8 /* DLA descriptor index parameters: */ #define SPICE_DLA_BWDIDX 0 #define SPICE_DLA_FWDIDX 1 #define SPICE_DLA_IBSIDX 2 #define SPICE_DLA_ISZIDX 3 #define SPICE_DLA_DBSIDX 4 #define SPICE_DLA_DSZIDX 5 #define SPICE_DLA_CBSIDX 6 #define SPICE_DLA_CSZIDX 7 /* Structures */ /* DLA segment descriptor: */ struct _SpiceDLADescr { SpiceInt bwdptr; SpiceInt fwdptr; SpiceInt ibase; SpiceInt isize; SpiceInt dbase; SpiceInt dsize; SpiceInt cbase; SpiceInt csize; }; typedef struct _SpiceDLADescr SpiceDLADescr; /* Constant DLA segment descriptor: */ typedef const SpiceDLADescr ConstSpiceDLADescr; /* Other DLA parameters: DLA format version. (This number is expected to occur very rarely at integer address SPICE_DLA_VERIDX in uninitialized DLA files.) */ #define SPICE_DLA_FMTVER 1000000 #endif include/SpiceDSK.h0100777000000000000000000006757714164213066011246 0ustar00/* -Header_File SpiceDSK.h ( CSPICE DSK-specific definitions ) -Abstract Perform CSPICE DSK-specific definitions, including macros and user- defined types. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines macros, enumerated types, structures, and typedefs that may be referenced in application code that calls CSPICE DSK functions. General definitions =================== Macros ====== Dimensions ---------- Name Description ---- ----------- SPICE_DSK_DSCSIZ Size of a Fortran DSK descriptor, measured in multiples of the size of a SpiceDouble. A array `descr' containing such a descriptor can be declared SpiceDouble descr[SPICE_DSK_DSCSIZ]; Such arrays normally should be used only in the implementations of CSPICE wrappers. Data class values ----------------- Name Description ---- ----------- SPICE_DSK_SVFCLS (Class 1) indicates a surface that can be represented as a single-valued function of its domain coordinates. An example is a surface defined by a function that maps each planetodetic longitude and latitude pair to a unique altitude. SPICE_DSK_GENCLS (Class 2) indicates a general surface. Surfaces that have multiple points for a given pair of domain coordinates---for example, multiple radii for a given latitude and longitude---belong to class 2. Coordinate system values ------------------------ Name Description ---- ----------- SPICE_DSK_LATSYS Code 1 refers to the planetocentric latitudinal system. In this system, the first tangential coordinate is longitude and the second tangential coordinate is latitude. The third coordinate is radius. SPICE_DSK_CYLSYS Code 2 refers to the cylindrical system. In this system, the first tangential coordinate is radius and the second tangential coordinate is longitude. The third, orthogonal coordinate is Z. SPICE_DSK_RECSYS Code 3 refers to the rectangular system. In this system, the first tangential coordinate is X and the second tangential coordinate is Y. The third, orthogonal coordinate is Z. SPICE_DSK_PDTSYS Code 4 refers to the planetodetic/geodetic system. In this system, the first tangential coordinate is longitude and the second tangential coordinate is planetodectic latitude. The third, orthogonal coordinate is altitude. Structures ========== DSK API structures ------------------ Name Description ---- ----------- SpiceDSKDescr DSK descriptor. The structure members are: surfce: Surface ID code. Data type is SpiceInt. center: Center ID code. Data type is SpiceInt. dclass: Data class ID code. Data type is SpiceInt. dtype: DSK Data type. Data type is SpiceInt. frmcde: Reference frame ID code. Data type is SpiceInt. corsys: Coordinate system ID code. Data type is SpiceInt. corpar: Coordinate system parameters. Data type is SpiceDouble. This is an array of length 10. co1min: Minimum value of first coordinate. Data type is SpiceDouble. co1max: Maximum value of first coordinate. Data type is SpiceDouble. co2min: Minimum value of second coordinate. Data type is SpiceDouble. co2max: Maximum value of second coordinate. Data type is SpiceDouble. co3min: Minimum value of third coordinate. Data type is SpiceDouble. co3max: Maximum value of third coordinate. Data type is SpiceDouble. start: Coverage start time, expressed as seconds past J2000 TDB. stop: Coverage stop time, expressed as seconds past J2000 TDB. ConstSpiceDSKDescr A constant DSK descriptor. Type 2 definitions ================== Type 2 Macros ============= Limits on plate model capacity ------------------------------ This section contains parameter descriptions. See declarations located near the end of the file for parameter values. The maximum number of vertices and plates in a single-segment type 2 plate model are provided here. Larger models must be distributed across multiple segments, which typically are in separate files. These values can be used to dimension arrays, or to use as limit checks. The value of SPICE_DSK02_MAXPLT is determined from SPICE_DSK02_MAXVRT via Euler's Formula for simple polyhedra having triangular faces. Name Description ---- ----------- SPICE_DSK02_MAXVRT Maximum number of vertices the DSK type 2 software will support in a single segment. SPICE_DSK02_MAXPLT Maximum number of plates the DSK type 2 software will support in a single segment. SPICE_DSK02_MAXCGR Maximum number of elements permitted in the coarse voxel grid. This parameter is not used directly in CSPICE; rather it is a convenience parameter that mirrors the parameter MAXCGR declared in the SPICELIB INCLUDE file dsk02.inc SPICE_DSK02_MAXVXP Maximum size of voxel-plate pointer array. SPICE_DSK02_MXNVLS Maximum size of voxel-plate association list. SPICE_DSK02_MAXCEL Maximum size of spatial index cell workspace. SPICE_DSK02_SPAISZ Maximum size of array containing integer component of spatial index. This size is used by MKDSK. Many applications may be able to use smaller dimensions than the value specified by this parameter. SPICE_DSK02_SPADSZ Size of double precision component of spatial index. Integer keyword parameters -------------------------- The following parameters may be passed to dski02_c to identify type 2 DSK shape model SpiceInt type data or model parameters to be returned. Name Description ---- ---------- SPICE_DSK02_KWNV Number of vertices in model. SPICE_DSK02_KWNP Number of plates in model. SPICE_DSK02_KWNVXT Total number of voxels in fine grid. SPICE_DSK02_KWVGRX Voxel grid extent. This extent is an array of three integers indicating the number of voxels in the X, Y, and Z directions in the fine voxel grid. SPICE_DSK02_KWCGSC Coarse voxel grid scale. The extent of the fine voxel grid is related to the extent of the coarse voxel grid by this scale factor. SPICE_DSK02_KWVXPS Size of the voxel-to-plate pointer list. SPICE_DSK02_KWVXLS Voxel-plate correspondence list size. SPICE_DSK02_KWVTLS Vertex-plate correspondence list size. SPICE_DSK02_KWPLAT Plate array. For each plate, this array contains the indices of the plate's three vertices. The ordering of the array members is: Plate 1 vertex index 1 Plate 1 vertex index 2 Plate 1 vertex index 3 Plate 2 vertex index 1 ... The vertex indices in this array start at 1 and end at NV, the number of vertices in the model. SPICE_DSK02_KWVXPT Voxel-plate pointer list. This list contains pointers that map fine voxels to lists of plates that intersect those voxels. Note that only fine voxels belonging to non-empty coarse voxels are in the domain of this mapping. SPICE_DSK02_KWVXPL Voxel-plate correspondence list. This list contains lists of plates that intersect fine voxels. (This list is the data structure into which the voxel-to-plate pointers point.) This list can contain empty lists. Plate IDs in this list start at 1 and end at NP, the number of plates in the model. SPICE_DSK02_KWVTPT Vertex-plate pointer list. This list contains pointers that map vertices to lists of plates to which those vertices belong. Note that the size of this list is always NV, the number of vertices. Hence there's no need for a separate keyword for the size of this list. SPICE_DSK02_KWVTPL Vertex-plate correspondence list. This list contains, for each vertex, the indices of the plates to which that vertex belongs. Plate IDs in this list start at 1 and end at NP, the number of plates in the model. SPICE_DSK02_KWCGPT Coarse voxel grid pointers. This is an array of pointers mapping coarse voxels to lists of pointers in the voxel-plate pointer list. Each non-empty coarse voxel maps to a list of pointers; every fine voxel contained in a non-empty coarse voxel has its own pointers. Grid elements corresponding to empty coarse voxels contain non-positive values. Double precision keyword parameters ----------------------------------- The following parameters may be passed to dskd02_c to identify type 2 DSK shape model SpiceDouble type data or model parameters to be returned. SPICE_DSK02_KWDSC Array containing contents of Fortran DSK descriptor of segment. Note that DSK descriptors are not to be confused with DLA descriptors, which contain segment component base address and size information. The dimension of this array is SPICE_DSK_DSCSIZ. SPICE_DSK02_KWVTBD Vertex bounds. This is an array of six values giving the minimum and maximum values of each component of the vertex set. SPICE_DSK02_KWVXOR Voxel grid origin. This is the location of the voxel grid origin in the body-fixed frame associated with the target body. SPICE_DSK02_KWVXSZ Voxel size. DSK voxels are cubes; the edge length of each cube is given by the voxel size. This size applies to the fine voxel grid. Units are km. SPICE_DSK02_KWVERT Vertex coordinates. Type 4 definitions ================== To be added post-N0066. API-specific definitions ======================== Parameters for dskxsi_c: SPICE_DSKXSI_DCSIZE Size of `dc' output array. SPICE_DSKXSI_ICSIZE Size of `ic' output array. These sizes may be increased in a future version of the CSPICE Toolkit. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 02-NOV-2016 (NJB) Removed type 4 macros. 21-MAR-2016 (NJB) Changed type 2 keyword parameter names to use the substring DSK02 rather than DSK. 26-FEB-2016 (NJB) Added parameter declarations for type 2 spatial index. Added parameter declaration for data class 2. Renamed parameter SPICE_DSK_MAXCGR to SPICE_DSK02_MAXCGR. Added parameter declarations for the API dskxsi_c. Removed include statement for SpiceDLA.h. Made miscellaneous updates to comments. DSKLIB_C 02-MAY-2014 (NJB) Added include guards for SpiceZdf.h SpiceDLA.h Removed reference to dsk_proto.h Last update was 13-NOV-2012 (NJB) Updated to support DSK type 4. The SpiceDSKDescr type and supporting definitions have been added. The file has been reorganized so as to group together data type-specific definitions. DSKLIB_C Version 3.0.0, 13-MAY-2010 (NJB) Updated for compatibility with new DSK type 2 segment design. DSKLIB_C Version 2.0.0, 12-FEB-2010 (NJB) Updated to include SpiceDLA.h f2c_proto.h dsk_proto.h DSKLIB_C Version 1.0.0, 30-OCT-2006 (NJB) */ #ifndef HAVE_SPICE_DSK_H #define HAVE_SPICE_DSK_H /* Prototypes */ #ifndef HAVE_SPICEDEFS_H #include "SpiceZdf.h" #endif /* General Constants */ /* Dimension parameters */ /* Size of a SPICELIB DSK descriptor (in units of d.p. numbers): */ #define SPICE_DSK_DSCSIZ 24 /* Number of coordinate system parameters in DSK descriptor: */ #define SPICE_DSK_NSYPAR 10 /* Index parameters */ /* Fortran DSK descriptor index parameters: */ #define SPICE_DSK_SRFIDX 0 #define SPICE_DSK_CTRIDX 1 #define SPICE_DSK_CLSIDX 2 #define SPICE_DSK_TYPIDX 3 #define SPICE_DSK_FRMIDX 4 #define SPICE_DSK_SYSIDX 5 #define SPICE_DSK_PARIDX 6 /* The offset between the indices immediately above and below is given by the parameter SPICE_DSK_NSYPAR. Literal values are used below for convenience of the reader. */ #define SPICE_DSK_MN1IDX 16 #define SPICE_DSK_MX1IDX 17 #define SPICE_DSK_MN2IDX 18 #define SPICE_DSK_MX2IDX 19 #define SPICE_DSK_MN3IDX 20 #define SPICE_DSK_MX3IDX 21 #define SPICE_DSK_BTMIDX 22 #define SPICE_DSK_ETMIDX 23 /* Data class parameters */ /* Single-valued surface data class */ #define SPICE_DSK_SVFCLS 1 /* General surface data class */ #define SPICE_DSK_GENCLS 2 /* Coordinate system parameters */ /* Latitudinal coordinate system */ #define SPICE_DSK_LATSYS 1 /* Cylindrical coordinate system */ #define SPICE_DSK_CYLSYS 2 /* Rectangular coordinate system */ #define SPICE_DSK_RECSYS 3 /* Planetodetic coordinate system */ #define SPICE_DSK_PDTSYS 4 /* Structures */ /* DSK segment descriptor: */ struct _SpiceDSKDescr { SpiceInt surfce; SpiceInt center; SpiceInt dclass; SpiceInt dtype; SpiceInt frmcde; SpiceInt corsys; SpiceDouble corpar [SPICE_DSK_NSYPAR]; SpiceDouble co1min; SpiceDouble co1max; SpiceDouble co2min; SpiceDouble co2max; SpiceDouble co3min; SpiceDouble co3max; SpiceDouble start; SpiceDouble stop; }; typedef struct _SpiceDSKDescr SpiceDSKDescr; /* Constant DSK segment descriptor: */ typedef const SpiceDSKDescr ConstSpiceDSKDescr; /* Type 2 definitions ================== */ /* Dimension parameters */ /* Maximum vertex count for single segment: */ #define SPICE_DSK02_MAXVRT 16000002 /* Maximum plate count for single segment: */ #define SPICE_DSK02_MAXPLT ( 2 * (SPICE_DSK02_MAXVRT - 2 ) ) /* The maximum allowed number of vertices, not taking into account shared vertices. Note that this value is not sufficient to create a vertex-plate mapping for a model of maximum plate count. */ #define SPICE_DSK02_MAXNPV ( 3 * (SPICE_DSK02_MAXPLT/2) + 1 ) /* Maximum number of fine voxels. */ #define SPICE_DSK02_MAXVOX 100000000 /* Maximum size of the coarse voxel grid array (in units of integers): */ #define SPICE_DSK02_MAXCGR 100000 /* Maximum allowed number of vertex or plate neighbors a vertex may have. */ #define SPICE_DSK02_MAXEDG 120 /* DSK type 2 spatial index parameters =================================== DSK type 2 spatial index integer component ------------------------------------------ +-----------------+ | VGREXT | (voxel grid extents, 3 integers) +-----------------+ | CGRSCL | (coarse voxel grid scale, 1 integer) +-----------------+ | VOXNPT | (size of voxel-plate pointer list) +-----------------+ | VOXNPL | (size of voxel-plate list) +-----------------+ | VTXNPL | (size of vertex-plate list) +-----------------+ | CGRPTR | (coarse grid occupancy pointers) +-----------------+ | VOXPTR | (voxel-plate pointer array) +-----------------+ | VOXPLT | (voxel-plate list) +-----------------+ | VTXPTR | (vertex-plate pointer array) +-----------------+ | VTXPLT | (vertex-plate list) +-----------------+ */ /* Index parameters */ /* Grid extent index: */ #define SPICE_DSK02_SIVGRX 0 /* Coarse grid scale index: */ #define SPICE_DSK02_SICGSC ( SPICE_DSK02_SIVGRX + 3 ) /* Voxel pointer count index: */ #define SPICE_DSK02_SIVXNP ( SPICE_DSK02_SICGSC + 1 ) /* Voxel-plate list count index: */ #define SPICE_DSK02_SIVXNL ( SPICE_DSK02_SIVXNP + 1 ) /* Vertex-plate list count index: */ #define SPICE_DSK02_SIVTNL ( SPICE_DSK02_SIVXNL + 1 ) /* Coarse grid pointer array index: */ #define SPICE_DSK02_SICGRD ( SPICE_DSK02_SIVTNL + 1 ) /* Spatial index integer component dimensions */ /* Size of fixed-size portion of integer component: */ #define SPICE_DSK02_IXIFIX ( SPICE_DSK02_MAXCGR + 7 ) /* DSK type 2 spatial index double precision component --------------------------------------------------- +-----------------+ | Vertex bounds | 6 values (min/max for each component) +-----------------+ | Voxel origin | 3 elements +-----------------+ | Voxel size | 1 element +-----------------+ */ /* Spatial index double precision indices */ /* Vertex bounds index: */ #define SPICE_DSK02_SIVTBD 0 /* Voxel grid origin index: */ #define SPICE_DSK02_SIVXOR ( SPICE_DSK02_SIVTBD + 6 ) /* Voxel size index: */ #define SPICE_DSK02_SIVXSZ ( SPICE_DSK02_SIVXOR + 3 ) /* Spatial index double precision component dimensions */ /* Size of fixed-size portion of double precision component: */ #define SPICE_DSK02_IXDFIX 10 /* Size of double precision component. This is a convenience parameter chosen to have a name consisent with the integer spatial index size. */ #define SPICE_DSK02_SPADSZ SPICE_DSK02_IXDFIX /* The limits below are used to define a suggested maximum size for the integer component of the spatial index. */ /* Maximum number of entries in voxel-plate pointer array: */ #define SPICE_DSK02_MAXVXP ( SPICE_DSK02_MAXPLT /2 ) /* Maximum cell size: */ #define SPICE_DSK02_MAXCEL 60000000 /* Maximum number of entries in voxel-plate list: */ #define SPICE_DSK02_MXNVLS SPICE_DSK02_MAXCEL + \ ( SPICE_DSK02_MAXVXP / 2 ) /* Spatial index integer component size: */ #define SPICE_DSK02_SPAISZ ( SPICE_DSK02_IXIFIX + \ SPICE_DSK02_MAXVXP + \ SPICE_DSK02_MXNVLS + \ SPICE_DSK02_MAXVRT + \ SPICE_DSK02_MAXNPV ) /* Keyword parameters for SpiceInt data items: */ /* Index parameters */ #define SPICE_DSK02_KWNV 1 #define SPICE_DSK02_KWNP (SPICE_DSK02_KWNV + 1) #define SPICE_DSK02_KWNVXT (SPICE_DSK02_KWNP + 1) #define SPICE_DSK02_KWVGRX (SPICE_DSK02_KWNVXT + 1) #define SPICE_DSK02_KWCGSC (SPICE_DSK02_KWVGRX + 1) #define SPICE_DSK02_KWVXPS (SPICE_DSK02_KWCGSC + 1) #define SPICE_DSK02_KWVXLS (SPICE_DSK02_KWVXPS + 1) #define SPICE_DSK02_KWVTLS (SPICE_DSK02_KWVXLS + 1) #define SPICE_DSK02_KWPLAT (SPICE_DSK02_KWVTLS + 1) #define SPICE_DSK02_KWVXPT (SPICE_DSK02_KWPLAT + 1) #define SPICE_DSK02_KWVXPL (SPICE_DSK02_KWVXPT + 1) #define SPICE_DSK02_KWVTPT (SPICE_DSK02_KWVXPL + 1) #define SPICE_DSK02_KWVTPL (SPICE_DSK02_KWVTPT + 1) #define SPICE_DSK02_KWCGPT (SPICE_DSK02_KWVTPL + 1) /* Keyword parameters for SpiceDouble data items: */ #define SPICE_DSK02_KWDSC (SPICE_DSK02_KWCGPT + 1) #define SPICE_DSK02_KWVTBD (SPICE_DSK02_KWDSC + 1) #define SPICE_DSK02_KWVXOR (SPICE_DSK02_KWVTBD + 1) #define SPICE_DSK02_KWVXSZ (SPICE_DSK02_KWVXOR + 1) #define SPICE_DSK02_KWVERT (SPICE_DSK02_KWVXSZ + 1) /* Type 4 definitions ================== These definitions should be treated as "SPICE private." They may change in a future version of the SPICE Toolkit. They should not be referenced by user applications. To be added post-N0066. */ /* API-specific definitions ======================== Parameters for dskxsi_c: */ #define SPICE_DSKXSI_DCSIZE 1 #define SPICE_DSKXSI_ICSIZE 1 #endif include/SpiceDtl.h0100777000000000000000000001662614164213066011335 0ustar00 /* -Header_File SpiceDtl.h ( CSPICE DSK tolerance definitions ) -Abstract Define CSPICE DSK tolerance and margin macros. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading DSK -Particulars This file contains declarations of tolerance and margin values used by the DSK subsystem. The values declared in this file are accessible at run time through the routines dskgtl_c {DSK, get tolerance value} dskstl_c {DSK, set tolerance value} -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions It is recommended that the default values defined in this file be changed only by expert SPICE users. -Version -CSPICE Version 1.0.0, 27-FEB-2016 (NJB) */ #ifndef HAVE_SPICE_DSKTOL_H #define HAVE_SPICE_DSKTOL_H /* Parameter declarations ====================== DSK type 2 plate expansion factor --------------------------------- The factor SPICE_DSK_XFRACT is used to slightly expand plates read from DSK type 2 segments in order to perform ray-plate intercept computations. This expansion is performed to prevent rays from passing through a target object without any intersection being detected. Such "false miss" conditions can occur due to round-off errors. Plate expansion is done by computing the difference vectors between a plate's vertices and the plate's centroid, scaling those differences by (1 + SPICE_DSK_XFRACT), then producing new vertices by adding the scaled differences to the centroid. This process doesn't affect the stored DSK data. Plate expansion is also performed when surface points are mapped to plates on which they lie, as is done for illumination angle computations. This parameter is user-adjustable. */ #define SPICE_DSK_XFRACT ( 1.0e-10 ) /* The keyword for setting or retrieving this factor is */ #define SPICE_DSK_KEYXFR 1 /* Greedy segment selection factor ------------------------------- The factor SGREED is used to slightly expand DSK segment boundaries in order to select segments to consider for ray-surface intercept computations. The effect of this factor is to make the multi-segment intercept algorithm consider all segments that are sufficiently close to the ray of interest, even if the ray misses those segments. This expansion is performed to prevent rays from passing through a target object without any intersection being detected. Such "false miss" conditions can occur due to round-off errors. The exact way this parameter is used is dependent on the coordinate system of the segment to which it applies, and the DSK software implementation. This parameter may be changed in a future version of SPICE. */ #define SPICE_DSK_SGREED ( 1.0e-8 ) /* The keyword for setting or retrieving this factor is */ #define SPICE_DSK_KEYSGR ( SPICE_DSK_KEYXFR + 1 ) /* Segment pad margin ------------------ The segment pad margin is a scale factor used to determine when a point resulting from a ray-surface intercept computation, if outside the segment's boundaries, is close enough to the segment to be considered a valid result. This margin is required in order to make DSK segment padding (surface data extending slightly beyond the segment's coordinate boundaries) usable: if a ray intersects the pad surface outside the segment boundaries; the pad is useless if the intercept is automatically rejected. However, an excessively large value for this parameter is detrimental, since a ray-surface intercept solution found "in" a segment will supersede solutions in segments farther from the ray's vertex. Solutions found outside of a segment thus can mask solutions that are closer to the ray's vertex by as much as the value of this margin, when applied to a segment's boundary dimensions. */ #define SPICE_DSK_SGPADM ( 1.0e-10 ) /* The keyword for setting or retrieving this factor is */ #define SPICE_DSK_KEYSPM ( SPICE_DSK_KEYSGR + 1 ) /* Surface-point membership margin ------------------------------- The surface-point membership margin limits the distance between a point and a surface to which the point is considered to belong. The margin is a scale factor applied to the size of the segment containing the surface. This margin is used to map surface points to outward normal vectors at those points. If this margin is set to an excessively small value, routines that make use of the surface-point mapping won't work properly. */ #define SPICE_DSK_PTMEMM ( 1.0e-7 ) /* The keyword for setting or retrieving this factor is */ #define SPICE_DSK_KEYPTM ( SPICE_DSK_KEYSPM + 1 ) /* Angular rounding margin ----------------------- This margin specifies an amount by which angular values may deviate from their proper ranges without a SPICE error condition being signaled. For example, if an input latitude exceeds pi/2 radians by a positive amount less than this margin, the value is treated as though it were pi/2 radians. Units are radians. */ #define SPICE_DSK_ANGMRG ( 1.0e-12 ) /* This parameter is not user-adjustable. The keyword for retrieving this parameter is */ #define SPICE_DSK_KEYAMG ( SPICE_DSK_KEYPTM + 1 ) /* Longitude alias margin ---------------------- This margin specifies an amount by which a longitude value can be outside a given longitude range without being considered eligible for transformation by addition or subtraction of 2*pi radians. A longitude value, when compared to the endpoints of a longitude interval, will be considered to be equal to an endpoint if the value is outside the interval differs from that endpoint by a magnitude less than the alias margin. Units are radians. */ #define SPICE_DSK_LONALI ( 1.0e-12 ) /* This parameter is not user-adjustable. The keyword for retrieving this parameter is */ #define SPICE_DSK_KEYLAL ( SPICE_DSK_KEYAMG + 1 ) #endif /* End of header file SpiceDtl.h */ include/SpiceEK.h0100777000000000000000000004004614164213066011102 0ustar00/* -Header_File SpiceEK.h ( CSPICE EK-specific definitions ) -Abstract Perform CSPICE EK-specific definitions, including macros and user- defined types. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines macros, enumerated types, structures, and typedefs that may be referenced in application code that calls CSPICE EK functions. Macros ====== General limits -------------- Name Description ---- ---------- SPICE_EK_MXCLSG Maximum number of columns per segment. SPICE_EK_TYPLEN Maximum length of a short string indicating a data type (one of {"CHR", "DP", "INT", "TIME"}). Such strings are returned by some of the Fortran SPICELIB EK routines, hence also by their f2c'd counterparts. Sizes of EK objects ------------------- Name Description ---- ---------- SPICE_EK_CNAMSZ Maximum length of column name. SPICE_EK_CSTRLN Length of string required to hold column name. SPICE_EK_TNAMSZ Maximum length of table name. SPICE_EK_TSTRLN Length of string required to hold table name. Query-related limits -------------------- Name Description ---- ---------- SPICE_EK_MAXQRY Maximum length of an input query. This value is currently equivalent to twenty-five 80-character lines. SPICE_EK_MAXQSEL Maximum number of columns that may be listed in the `SELECT clause' of a query. SPICE_EK_MAXQTAB Maximum number of tables that may be listed in the `FROM clause' of a query. SPICE_EK_MAXQCON Maximum number of relational expressions that may be listed in the `constraint clause' of a query. This limit applies to a query when it is represented in `normalized form': that is, the constraints have been expressed as a disjunction of conjunctions of relational expressions. The number of relational expressions in a query that has been expanded in this fashion may be greater than the number of relations in the query as orginally written. For example, the expression ( ( A LT 1 ) OR ( B GT 2 ) ) AND ( ( C NE 3 ) OR ( D EQ 4 ) ) which contains 4 relational expressions, expands to the equivalent normalized constraint ( ( A LT 1 ) AND ( C NE 3 ) ) OR ( ( A LT 1 ) AND ( D EQ 4 ) ) OR ( ( B GT 2 ) AND ( C NE 3 ) ) OR ( ( B GT 2 ) AND ( D EQ 4 ) ) which contains eight relational expressions. SPICE_EK_MAXQJOIN Maximum number of tables that can be joined. SPICE_EK_MAXQJCON Maximum number of join constraints allowed. SPICE_EK_MAXQORD Maximum number of columns that may be used in the `order-by clause' of a query. SPICE_EK_MAXQTOK Maximum number of tokens in a query. Tokens are reserved words, column names, parentheses, and values. Literal strings and time values count as single tokens. SPICE_EK_MAXQNUM Maximum number of numeric tokens in a query. SPICE_EK_MAXQCLN Maximum total length of character tokens in a query. SPICE_EK_MAXQSTR Maximum length of literal string values allowed in queries. Codes ----- Name Description ---- ---------- SPICE_EK_VARSIZ Code used to indicate variable-size objects. Usually this is used in a context where a non-negative integer indicates the size of a fixed-size object and the presence of this code indicates a variable-size object. The value of this constant must match the parameter IFALSE used in the Fortran library SPICELIB. Enumerated Types ================ Enumerated code values ---------------------- Name Description ---- ---------- SpiceEKDataType Codes for data types used in the EK interface: character, double precision, integer, and "time." The values are: { SPICE_CHR = 0, SPICE_DP = 1, SPICE_INT = 2, SPICE_TIME = 3 } SpiceEKExprClass Codes for types of expressions that may appear in the SELECT clause of EK queries. Values and meanings are: SPICE_EK_EXP_COL Selected item was a column. The column may qualified by a table name. SPICE_EK_EXP_FUNC Selected item was a simple function invocation of the form F ( ) or else was COUNT(*) SPICE_EK_EXP_EXPR Selected item was a more general expression than those shown above. Numeric values are: { SPICE_EK_EXP_COL = 0, SPICE_EK_EXP_FUNC = 1, SPICE_EK_EXP_EXPR = 2 } Structures ========== EK API structures ----------------- Name Description ---- ---------- SpiceEKAttDsc EK column attribute descriptor. Note that this object is distinct from the EK column descriptors used internally in the EK routines; those descriptors contain pointers as well as attribute information. The members are: cclass: Column class code. dtype: Data type code: has type SpiceEKDataType. strlen: String length. Applies to SPICE_CHR type. Value is SPICE_EK_VARSIZ for variable-length strings. size: Column entry size; this is the number of array elements in a column entry. The value is SPICE_EK_VARSIZ for variable-size columns. indexd: Index flag; value is SPICETRUE if the column is indexed, SPICEFALSE otherwise. nullok: Null flag; value is SPICETRUE if the column may contain null values, SPICEFALSE otherwise. SpiceEKSegSum EK segment summary. This structure contains user interface level descriptive information. The structure contains the following members: tabnam The name of the table to which the segment belongs. nrows The number of rows in the segment. ncols The number of columns in the segment. cnames An array of names of columns in the segment. Column names may contain as many as SPICE_EK_CNAMSZ characters. The array contains room for SPICE_EK_MXCLSG column names. cdescrs An array of column attribute descriptors of type SpiceEKAttDsc. The array contains room for SPICE_EK_MXCLSG descriptors. The Ith descriptor corresponds to the column whose name is the Ith element of the array cnames. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 2.0.0 27-JUL-2002 (NJB) Defined SpiceEKDataType using SpiceDataType. Removed declaration of enum _SpiceEKDataType. -CSPICE Version 1.0.0, 05-JUL-1999 (NJB) Renamed _SpiceEKAttDsc member "class" to "cclass." The former name is a reserved word in C++. -CSPICE Version 1.0.0, 24-FEB-1999 (NJB) */ #ifndef HAVE_SPICE_EK_H #define HAVE_SPICE_EK_H /* Constants */ /* Sizes of EK objects: */ #define SPICE_EK_CNAMSZ 32 #define SPICE_EK_CSTRLN ( SPICE_EK_CNAMSZ + 1 ) #define SPICE_EK_TNAMSZ 64 #define SPICE_EK_TSTRLN ( SPICE_EK_TNAMSZ + 1 ) /* Maximum number of columns per segment: */ #define SPICE_EK_MXCLSG 100 /* Maximum length of string indicating data type: */ #define SPICE_EK_TYPLEN 4 /* Query-related limits (see header for details): */ #define SPICE_EK_MAXQRY 2000 #define SPICE_EK_MAXQSEL 50 #define SPICE_EK_MAXQTAB 10 #define SPICE_EK_MAXQCON 1000 #define SPICE_EK_MAXQJOIN 10 #define SPICE_EK_MAXQJCON 100 #define SPICE_EK_MAXQORD 10 #define SPICE_EK_MAXQTOK 500 #define SPICE_EK_MAXQNUM 100 #define SPICE_EK_MAXQCLN SPICE_EK_MAXQRY #define SPICE_EK_MAXQSTR 1024 /* Code indicating "variable size": */ #define SPICE_EK_VARSIZ (-1) /* Data type codes: */ typedef SpiceDataType SpiceEKDataType; /* SELECT clause expression type codes: */ enum _SpiceEKExprClass{ SPICE_EK_EXP_COL = 0, SPICE_EK_EXP_FUNC = 1, SPICE_EK_EXP_EXPR = 2 }; typedef enum _SpiceEKExprClass SpiceEKExprClass; /* EK column attribute descriptor: */ struct _SpiceEKAttDsc { SpiceInt cclass; SpiceEKDataType dtype; SpiceInt strlen; SpiceInt size; SpiceBoolean indexd; SpiceBoolean nullok; }; typedef struct _SpiceEKAttDsc SpiceEKAttDsc; /* EK segment summary: */ struct _SpiceEKSegSum { SpiceChar tabnam [SPICE_EK_TSTRLN]; SpiceInt nrows; SpiceInt ncols; SpiceChar cnames [SPICE_EK_MXCLSG][SPICE_EK_CSTRLN]; SpiceEKAttDsc cdescrs[SPICE_EK_MXCLSG]; }; typedef struct _SpiceEKSegSum SpiceEKSegSum; #endif include/SpiceEll.h0100777000000000000000000000656714164213066011331 0ustar00/* -Header_File SpiceEll.h ( CSPICE Ellipse definitions ) -Abstract Perform CSPICE definitions for the SpiceEllipse data type. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines structures and typedefs that may be referenced in application code that calls CSPICE Ellipse functions. Structures ========== Name Description ---- ---------- SpiceEllipse Structure representing an ellipse in 3- dimensional space. The members are: center: Vector defining ellipse's center. semiMajor: Vector defining ellipse's semi-major axis. semiMinor: Vector defining ellipse's semi-minor axis. The ellipse is the set of points {X: X = center + cos(theta) * semiMajor + sin(theta) * semiMinor, theta in [0, 2*Pi) } ConstSpiceEllipse A const SpiceEllipse. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) */ #ifndef HAVE_SPICE_ELLIPSES #define HAVE_SPICE_ELLIPSES /* Ellipse structure: */ struct _SpiceEllipse { SpiceDouble center [3]; SpiceDouble semiMajor [3]; SpiceDouble semiMinor [3]; }; typedef struct _SpiceEllipse SpiceEllipse; typedef const SpiceEllipse ConstSpiceEllipse; #endif include/SpiceErr.h0100777000000000000000000000760614164213066011340 0ustar00/* -Header_File SpiceErr.h ( CSPICE error handling definitions ) -Abstract Perform CSPICE definitions for error handling APIs. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines constants that may be referenced in application code that calls CSPICE error handling functions. CONSTANTS ========== Name Description ---- ---------- SPICE_ERROR_LMSGLN Maximum length of a long error message, including the null terminator. SPICE_ERROR_SMSGLN Maximum length of a short error message, including the null terminator. SPICE_ERROR_XMSGLN Maximum length of a short error explanation message, including the null terminator. SPICE_ERROR_MODLEN Maximum length of a module name appearing in the traceback message, including the null terminator. SPICE_ERROR_MAXMOD Maximum count of module names appearing in the traceback message. SPICE_ERROR_TRCLEN Maximum length of a traceback message, including the null terminator. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 05-NOV-2013 (NJB) */ #ifndef HAVE_SPICE_ERROR_HANDLING #define HAVE_SPICE_ERROR_HANDLING /* Local constants */ #define ARROWLEN 5 /* Public constants */ /* Long error message length, which is equal to ( 23 * 80 ) + 1 */ #define SPICE_ERROR_LMSGLN 1841 /* Short error message length: */ #define SPICE_ERROR_SMSGLN 26 /* Short error message explanation length: */ #define SPICE_ERROR_XMSGLN 81 /* Module name length for traceback entries: */ #define SPICE_ERROR_MODLEN 33 /* Maximum module count for traceback string: */ #define SPICE_ERROR_MAXMOD 100 /* Maximum length of traceback string returned by qcktrc_c. */ #define SPICE_ERROR_TRCLEN ( ( SPICE_ERROR_MAXMOD \ * ( SPICE_ERROR_MODLEN-1 ) ) \ + ( ARROWLEN \ * ( SPICE_ERROR_MAXMOD-1 ) ) \ + 1 ) #endif include/SpiceFrm.h0100777000000000000000000001536214164213066011332 0ustar00/* -Header_File SpiceFrm.h ( CSPICE frame subsystem definitions ) -Abstract Perform CSPICE definitions for frame subsystem APIs. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading CK FRAMES PCK -Particulars This header defines constants that may be referenced in application code that calls CSPICE frame subsystem APIs. CONSTANTS ========== Frame counts ------------ The following parameter are counts of built-in frames. These parameters correspond to those defined in the SPICELIB Fortran INCLUDE files ninert.inc nninrt.inc Name Description ---- ---------- SPICE_NFRAME_NINERT Number of built-in inertial frames. SPICE_NFRAME_NNINRT Number of built-in non-inertial frames. Frame classes ------------- The following parameters identify SPICE frame classes. These parameters correspond to those defined in the SPICELIB Fortran INCLUDE file frmtyp.inc. See the Frames Required Reading for a detailed discussion of frame classes. Name Description ---- ---------- SPICE_FRMTYP_INERTL an inertial frame that is listed in the f2c'd routine chgirf_ and that requires no external file to compute the transformation from or to any other inertial frame. SPICE_FRMTYP_PCK is a frame that is specified relative to some built-in, inertial frame (of class SPICE_FRMTYP_INERTL) and that has an IAU model that may be retrieved from the PCK system via a call to the routine tisbod_c. SPICE_FRMTYP_CK is a frame defined by a C-kernel. SPICE_FRMTYP_TK is a "text kernel" frame. These frames are offset from their associated "relative" frames by a constant rotation. SPICE_FRMTYP_DYN is a "dynamic" frame. These currently are limited to parameterized frames where the full frame definition depends on parameters supplied via a frame kernel. SPICE_FRMTYP_SWTCH is a "switch" frame. These frames have orientation defined by their alignment with base frames selected from a prioritized list. The base frames optionally have associated time intervals of applicability. SPICE_FRMTYP_ALL indicates any of the above classes. This parameter is used in APIs that fetch information about frames of a specified class. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) J. Diaz del Rio (ODC Space) B.V. Semenov (JPL) E.D. Wright (JPL) -Restrictions None. -Version -CSPICE Version 1.2.0, 26-AUG-2021 (JDR) (NJB) (BVS) Added parameter SWTCH to support the switch frame class. Increased the number of non-inertial frames from 106 to 124 in order to accommodate the following PCK based frames: IAU_52_EUROPA IAU_NIX IAU_HYDRA IAU_RYUGU IAU_ARROKOTH IAU_DIDYMOS_BARYCENTER IAU_DIDYMOS IAU_DIMORPHOS IAU_DONALDJOHANSON IAU_EURYBATES IAU_EURYBATES_BARYCENTER IAU_QUETA IAU_POLYMELE IAU_LEUCUS IAU_ORUS IAU_PATROCLUS_BARYCENTER IAU_PATROCLUS IAU_MENOETIUS This value matches that listed in nninrt.inc. -CSPICE Version 1.1.0, 25-JAN-2016 (EDW) Increased the number of non-inertial frames from 105 to 106 in order to accommodate the following PCK based frame: IAU_BENNU This value matches that listed in nninrt.inc. -CSPICE Version 1.0.0, 23-MAY-2012 (NJB) */ #ifndef HAVE_SPICE_FRAME_DEFS #define HAVE_SPICE_FRAME_DEFS /* Frame counts: */ /* Number of built-in inertial frames. This number must be kept in sync with that defined in the SPICELIB include file ninert.inc. */ #define SPICE_NFRAME_NINERT 21 /* Number of built-in non-inertial frames. This number must be kept in sync with that defined in the SPICELIB include file nninrt.inc. */ #define SPICE_NFRAME_NNINRT 124 /* The frame class codes defined here are identical to those used in SPICELIB. */ /* Inertial, built-in frames: */ #define SPICE_FRMTYP_INERTL 1 /* PCK frames: */ #define SPICE_FRMTYP_PCK 2 /* CK frames: */ #define SPICE_FRMTYP_CK 3 /* TK frames: */ #define SPICE_FRMTYP_TK 4 /* Dynamic frames: */ #define SPICE_FRMTYP_DYN 5 /* Switch frames: */ #define SPICE_FRMTYP_SWTCH 6 /* All frame classes: */ #define SPICE_FRMTYP_ALL ( -1 ) #endif include/SpiceGF.h0100777000000000000000000002763114164213066011104 0ustar00/* -Header_File SpiceGF.h ( CSPICE GF-specific definitions ) -Abstract Perform CSPICE GF-specific definitions. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading GF -Keywords GEOMETRY SEARCH -Exceptions None -Files None -Particulars This header defines macros that may be referenced in application code that calls CSPICE GF functions. Macros ====== Workspace parameters -------------------- CSPICE applications normally don't declare workspace arguments and therefore don't directly reference workspace size parameters. However, CSPICE GF APIs dealing with numeric constraints dynamically allocate workspace memory; the amount allocated depends on the number of intervals the workspace windows can hold. This amount is an input argument to the GF numeric quantity APIs. The parameters below are used to calculate the amount of memory required. Each workspace window contains 6 double precision numbers in its control area and 2 double precision numbers for each interval it can hold. Name Description ---- ---------- SPICE_GF_NWMAX Maximum number of windows required for a user-defined workspace array. SPICE_GF_NWDIST Number of workspace windows used by gfdist_c and the underlying SPICELIB routine GFDIST. SPICE_GF_NWILUM Number of workspace windows used by gfilum_c and the underlying SPICELIB routine GFILUM. SPICE_GF_NWSEP Number of workspace windows used by gfsep_c and the underlying SPICELIB routine GFSEP. SPICE_GF_NWRR Number of workspace windows used by gfrr_c and the underlying SPICELIB routine GFRR. SPICE_GF_NWPA Number of workspace windows used by gfpa_c and the underlying SPICELIB routine GFPA. Field of view (FOV) parameters ------------------------------ Name Description ---- ---------- SPICE_GF_MAXVRT Maximum allowed number of boundary vectors for a polygonal FOV. SPICE_GF_CIRFOV Parameter identifying a circular FOV. SPICE_GF_ELLFOV Parameter identifying a elliptical FOV. SPICE_GF_POLFOV Parameter identifying a polygonal FOV. SPICE_GF_RECFOV Parameter identifying a rectangular FOV. SPICE_GF_SHPLEN Parameter specifying maximum length of a FOV shape name. SPICE_GF_MARGIN is a small positive number used to constrain the orientation of the boundary vectors of polygonal FOVs. Such FOVs must satisfy the following constraints: 1) The boundary vectors must be contained within a right circular cone of angular radius less than than (pi/2) - SPICE_GF_MARGIN radians; in other words, there must be a vector A such that all boundary vectors have angular separation from A of less than (pi/2)-SPICE_GF_MARGIN radians. 2) There must be a pair of boundary vectors U, V such that all other boundary vectors lie in the same half space bounded by the plane containing U and V. Furthermore, all other boundary vectors must have orthogonal projections onto a plane normal to this plane such that the projections have angular separation of at least 2*SPICE_GF_MARGIN radians from the plane spanned by U and V. SPICE_GF_MARGIN is currently set to 1.e-12. Occultation parameters ---------------------- SPICE_GF_ANNULR Parameter identifying an "annular occultation." This geometric condition is more commonly known as a "transit." The limb of the background object must not be blocked by the foreground object in order for an occultation to be "annular." SPICE_GF_ANY Parameter identifying any type of occultation or transit. SPICE_GF_FULL Parameter identifying a full occultation: the foreground body entirely blocks the background body. SPICE_GF_PARTL Parameter identifying an "partial occultation." This is an occultation in which the foreground body blocks part, but not all, of the limb of the background body. Target shape parameters ----------------------- SPICE_GF_EDSHAP Parameter indicating a target object's shape is modeled as an ellipsoid. SPICE_GF_PTSHAP Parameter indicating a target object's shape is modeled as a point. SPICE_GF_RYSHAP Parameter indicating a target object's "shape" is modeled as a ray emanating from an observer's location. This model may be used in visibility computations for targets whose direction, but not position, relative to an observer is known. SPICE_GF_SPSHAP Parameter indicating a target object's shape is modeled as a sphere. Search parameters ----------------- These parameters affect the manner in which GF searches are performed. SPICE_GF_ADDWIN is a parameter used in numeric quantity searches that use an equality constraint. This parameter is used to expand the confinement window (the window over which the search is performed) by a small amount at both ends. This expansion accommodates the case where a geometric quantity is equal to a reference value at a boundary point of the original confinement window. SPICE_GF_CNVTOL is the default convergence tolerance used by GF routines that don't support a user-supplied tolerance value. GF searches for roots will terminate when a root is bracketed by times separated by no more than this tolerance. Units are seconds. Configuration parameter ----------------------- SPICE_GFEVNT_MAXPAR Parameter indicating the maximum number of elements needed for the 'qnames' and 'q*pars' arrays used in gfevnt_c. SpiceChar qcpars[SPICE_GFEVNT_MAXPAR][LNSIZE]; SpiceDouble qdpars[SPICE_GFEVNT_MAXPAR]; SpiceInt qipars[SPICE_GFEVNT_MAXPAR]; SpiceBoolean qlpars[SPICE_GFEVNT_MAXPAR]; -Examples None -Restrictions None. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) J. Diaz del Rio (ODC Space) L.S. Elson (JPL) -Version -CSPICE Version 2.1.2, 05-FEB-2020 (JDR) Corrected description of parameter SPICE_GF_MARGIN. -CSPICE Version 2.1.1, 29-NOV-2016 (NJB) Corrected description of parameter SPICE_GF_SPSHAP. -CSPICE Version 2.1.0, 23-FEB-2012 (NJB) Added parameters: SPICE_GF_NWILUM SPICE_GF_NWRR SPICE_GF_NWPA -CSPICE Version 2.0.0, 23-JUN-2009 (NJB) Added parameter for maximum length of FOV shape string. -CSPICE Version 1.0.0, 11-MAR-2009 (NJB) */ #ifndef HAVE_SPICE_GF_H #define HAVE_SPICE_GF_H /* See the Particulars section above for parameter descriptions. */ /* Workspace parameters */ #define SPICE_GF_NWMAX 15 #define SPICE_GF_NWDIST 5 #define SPICE_GF_NWILUM 5 #define SPICE_GF_NWSEP 5 #define SPICE_GF_NWRR 5 #define SPICE_GF_NWPA 5 /* Field of view (FOV) parameters */ #define SPICE_GF_MAXVRT 10000 #define SPICE_GF_CIRFOV "CIRCLE" #define SPICE_GF_ELLFOV "ELLIPSE" #define SPICE_GF_POLFOV "POLYGON" #define SPICE_GF_RECFOV "RECTANGLE" #define SPICE_GF_SHPLEN 10 #define SPICE_GF_MARGIN ( 1.e-12 ) /* Occultation parameters */ #define SPICE_GF_ANNULR "ANNULAR" #define SPICE_GF_ANY "ANY" #define SPICE_GF_FULL "FULL" #define SPICE_GF_PARTL "PARTIAL" /* Target shape parameters */ #define SPICE_GF_EDSHAP "ELLIPSOID" #define SPICE_GF_PTSHAP "POINT" #define SPICE_GF_RYSHAP "RAY" #define SPICE_GF_SPSHAP "SPHERE" /* Search parameters */ #define SPICE_GF_ADDWIN 1.0 #define SPICE_GF_CNVTOL 1.e-6 /* Configuration parameters. */ #define SPICE_GFEVNT_MAXPAR 10 #endif /* End of header file SpiceGF.h */ include/SpiceOccult.h0100777000000000000000000001042014164213066012025 0ustar00/* -Header_File SpiceOccult.h ( CSPICE Occultation specific definitions ) -Abstract Perform CSPICE occultation specific definitions. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Keywords OCCULTATION GEOMETRY ELLIPSOID -Exceptions None -Files None -Particulars The following integer codes indicate the geometric relationship of the three bodies. The meaning of the sign of each code is given below. Code sign Meaning --------- ------------------------------ > 0 The second ellipsoid is partially or fully occulted by the first. < 0 The first ellipsoid is partially of fully occulted by the second. = 0 No occultation. The meanings of the codes are given below. The variable names indicate the type of occultation and which target is in the back. For example, SPICE_OCCULT_TOTAL1 represents a total occultation in which the first target is in the back (or occulted by) the second target. Name Code Meaning ------ ----- ------------------------------ SPICE_OCCULT_TOTAL1 -3 Total occultation of first target by second. SPICE_OCCULT_ANNLR1 -2 Annular occultation of first target by second. The second target does not block the limb of the first. SPICE_OCCULT_PARTL1 -1 Partial occultation of first target by second target. SPICE_OCCULT_NOOCC 0 No occultation or transit: both objects are completely visible to the observer. SPICE_OCCULT_PARTL2 1 Partial occultation of second target by first target. SPICE_OCCULT_ANNLR2 2 Annular occultation of second target by first. SPICE_OCCULT_TOTAL2 3 Total occultation of second target by first. -Examples None -Restrictions None. -Literature_References None. -Author_and_Institution S.C. Krening (JPL) N.J. Bachman (JPL) -Version -CSPICE Version 1.0.0, 23-FEB-2012 (SCK) */ #ifndef HAVE_SPICE_OCCULT_H #define HAVE_SPICE_OCCULT_H /* See the Particulars section above for parameter descriptions. */ /* Occultation parameters */ #define SPICE_OCCULT_TOTAL1 -3 #define SPICE_OCCULT_ANNLR1 -2 #define SPICE_OCCULT_PARTL1 -1 #define SPICE_OCCULT_NOOCC 0 #define SPICE_OCCULT_PARTL2 1 #define SPICE_OCCULT_ANNLR2 2 #define SPICE_OCCULT_TOTAL2 3 #endif include/SpiceOsc.h0100777000000000000000000000425314164213066011327 0ustar00/* -Header_File SpiceOsc.h ( CSPICE osculating element definitions ) -Abstract Perform CSPICE definitions for osculating element routines. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines constants that may be referenced in application code that calls CSPICE osculating element functions. Constants ========== Name Description ---- ---------- SPICE_OSCLTX_NELTS Length of output element array returned by oscltx_c. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 25-JAN-2017 (NJB) */ #ifndef HAVE_SPICE_OSC #define HAVE_SPICE_OSC /* Constants */ #define SPICE_OSCLTX_NELTS 20 #endif /* End of header file SpiceOsc.h */ include/SpicePln.h0100777000000000000000000000544614164213066011341 0ustar00/* -Header_File SpicePln.h ( CSPICE Plane definitions ) -Abstract Perform CSPICE definitions for the SpicePlane data type. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines structures and typedefs that may be referenced in application code that calls CSPICE Plane functions. Structures ========== Name Description ---- ---------- SpicePlane Structure representing a plane in 3- dimensional space. The members are: normal: Vector normal to plane. constant: Constant of plane equation Plane = {X: = constant} ConstSpicePlane A const SpicePlane. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) */ #ifndef HAVE_SPICE_PLANES #define HAVE_SPICE_PLANES /* Plane structure: */ struct _SpicePlane { SpiceDouble normal [3]; SpiceDouble constant; }; typedef struct _SpicePlane SpicePlane; typedef const SpicePlane ConstSpicePlane; #endif include/SpiceSCLK.h0100777000000000000000000000452314164213066011337 0ustar00 /* -Header_File SpiceSCLK.h ( CSPICE SCLK-specific definitions ) -Abstract Perform CSPICE definitions to support SCLK wrapper interfaces, including macros. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading SCLK -Particulars This header defines macros that may be referenced in application code that calls CSPICE SCLK interfaces. The parameters below define sizes and limits used by the SCLK system. Macros ====== Name Description ---- ----------- SPICE_SCLK_MXPART is the maximum number of partitions in a given SCLK file. -Literature_References None. -Author_and_Institution J. Diaz del Rio (ODC Space) -Restrictions It is recommended that the default values defined in this file be changed only by expert SPICE users. -Version -CSPICE Version 1.0.0, 16-SEP-2020 (JDR) */ #ifndef HAVE_SPICE_SCLK_H #define HAVE_SPICE_SCLK_H /* Maximum number of partitions in a SCLK file: */ #define SPICE_SCLK_MXPART 9999 #endif /* End of header file SpiceSCLK.h */ include/SpiceSPK.h0100777000000000000000000001027514164213066011241 0ustar00/* -Header_File SpiceSPK.h ( CSPICE SPK definitions ) -Abstract Perform CSPICE definitions to support SPK wrapper interfaces. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines types that may be referenced in application code that calls CSPICE SPK functions. Typedef ======= Name Description ---- ---------- SpiceSPK18Subtype Typedef for enum indicating the mathematical representation used in an SPK type 18 segment. Possible values and meanings are: S18TP0: Hermite interpolation, 12- element packets containing x, y, z, dx/dt, dy/dt, dz/dt, vx, vy, vz, dvx/dt, dvy/dt, dvz/dt where x, y, z represent Cartesian position components and vx, vy, vz represent Cartesian velocity components. Note well: vx, vy, and vz *are not necessarily equal* to the time derivatives of x, y, and z. This packet structure mimics that of the Rosetta/MEX orbit file from which the data are taken. Position units are kilometers, velocity units are kilometers per second, and acceleration units are kilometers per second per second. S18TP1: Lagrange interpolation, 6- element packets containing x, y, z, dx/dt, dy/dt, dz/dt where x, y, z represent Cartesian position components and vx, vy, vz represent Cartesian velocity components. Position units are kilometers; velocity units are kilometers per second. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 16-AUG-2002 (NJB) */ #ifndef HAVE_SPICE_SPK_H #define HAVE_SPICE_SPK_H /* SPK type 18 subtype codes: */ enum _SpiceSPK18Subtype { S18TP0, S18TP1 }; typedef enum _SpiceSPK18Subtype SpiceSPK18Subtype; #endif include/SpiceSrf.h0100777000000000000000000000472714164213066011343 0ustar00/* -Header_File SpiceSrf.h ( CSPICE surface definitions ) -Abstract Perform CSPICE definitions for surface name-ID mapping. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header defines constants that may be referenced in application code that calls CSPICE surface name-ID mapping functions. Constants ========== Name Description ---- ---------- SPICE_SRF_SFNMLN Maximum length of a surface name, including the terminating null character. SPICE_SRF_MAXSRF Maximum number of surfaces that can be accommodated in a surface list. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) -Restrictions None. -Version -CSPICE Version 1.0.0, 30-AUG-2016 (NJB) Added macro SPICE_SRF_MAXSRF 22-JAN-2016 (NJB) Original version. */ #ifndef HAVE_SRF #define HAVE_SRF /* Constants */ #define SPICE_SRF_SFNMLN 37 #define SPICE_SRF_MAXSRF 100 #endif include/SpiceUsr.h0100777000000000000000000001575614164213066011366 0ustar00/* -Header_File SpiceUsr.h ( CSPICE user interface definitions ) -Abstract Perform CSPICE user interface declarations, including type definitions and function prototype declarations. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This file is an umbrella header that includes all header files required to support the CSPICE application programming interface (API). Users' application code that calls CSPICE need include only this single header file. This file includes function prototypes for the entire set of CSPICE routines. Typedef statements used to create SPICE data types are also included. About SPICE data types ====================== To assist with long-term maintainability of CSPICE, NAIF has elected to use typedefs to represent data types occurring in argument lists and as return values of CSPICE functions. These are: SpiceBoolean SpiceChar SpiceDouble SpiceInt ConstSpiceBoolean ConstSpiceChar ConstSpiceDouble ConstSpiceInt The SPICE typedefs map in an arguably natural way to ANSI C types: SpiceBoolean -> enum { SPICEFALSE = 0, SPICETRUE = 1 } SpiceChar -> char SpiceDouble -> double SpiceInt -> int or long ConstX -> const X (X = any of the above types) The type SpiceInt is a special case: the corresponding type is picked so as to be half the size of a double. On all currently supported platforms, type double occupies 8 bytes and type int occupies 4 bytes. Other platforms may require a SpiceInt to map to type long. While other data types may be used internally in CSPICE, no other types appear in the API. About CSPICE function prototypes ================================ Because CSPICE function prototypes enable substantial compile-time error checking, we recommend that user applications always reference them. Including the header file SpiceUsr.h in any module that calls CSPICE will automatically make the prototypes available. About CSPICE C style ==================== CSPICE is written in ANSI C. No attempt has been made to support K&R conventions or restrictions. About C++ compatibility ======================= The preprocessor directive -D__cplusplus should be used when compiling C++ source code that includes this header file. This directive will suppress mangling of CSPICE names, permitting linkage to a CSPICE object library built from object modules produced by an ANSI C compiler. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) J. Diaz del Rio (ODC Space) S.C. Krening (JPL) E.D. Wright (JPL) -Restrictions The #include statements contained in this file are not part of the CSPICE API. The set of files included may change without notice. Users should not include these files directly in their own application code. -Version -CSPICE Version 7.0.0, 16-SEP-2020 (JDR) Updated to include header file SpiceDAS.h SpiceSCLK.h -CSPICE Version 6.0.0, 07-FEB-2010 (NJB) Now includes SpiceOsc.h. 27-FEB-2016 (NJB) Updated to include header files SpiceDLA.h SpiceDSK.h SpiceSrf.h SpiceDtl.h -CSPICE Version 5.0.0, 11-MAY-2012 (NJB) (SCK) Updated to include header files SpiceErr.h SpiceFrm.h SpiceOccult.h -CSPICE Version 4.0.0, 30-SEP-2008 (NJB) Updated to include header file SpiceGF.h -CSPICE Version 3.0.0, 19-AUG-2002 (NJB) Updated to include header files SpiceCel.h SpiceCK.h SpiceSPK.h -CSPICE Version 3.0.0, 17-FEB-1999 (NJB) Updated to support suppression of name mangling when included in C++ source code. Also now interface macros to intercept function calls and perform automatic type casting. Now includes platform macro definition header file. References to types SpiceVoid and ConstSpiceVoid were removed. -CSPICE Version 2.0.0, 06-MAY-1998 (NJB) (EDW) */ #ifdef __cplusplus extern "C" { #endif #ifndef HAVE_SPICE_USER #define HAVE_SPICE_USER /* Include CSPICE platform macro definitions. */ #include "SpiceZpl.h" /* Include CSPICE data type definitions. */ #include "SpiceZdf.h" /* Include the CSPICE error handling interface definitions. */ #include "SpiceErr.h" /* Include the CSPICE EK interface definitions. */ #include "SpiceEK.h" /* Include the CSPICE frame subsystem API definitions. */ #include "SpiceFrm.h" /* Include the CSPICE Cell interface definitions. */ #include "SpiceCel.h" /* Include the CSPICE CK interface definitions. */ #include "SpiceCK.h" /* Include the CSPICE SCLK interface definitions. */ #include "SpiceSCLK.h" /* Include the CSPICE SPK interface definitions. */ #include "SpiceSPK.h" /* Include the CSPICE GF interface definitions. */ #include "SpiceGF.h" /* Include the CSPICE occultation definitions. */ #include "SpiceOccult.h" /* Include the CSPICE DAS definitions. */ #include "SpiceDAS.h" /* Include the CSPICE DLA definitions. */ #include "SpiceDLA.h" /* Include the CSPICE DSK definitions. */ #include "SpiceDSK.h" /* Include the CSPICE DSK tolerance definitions. */ #include "SpiceDtl.h" /* Include the CSPICE surface definitions. */ #include "SpiceSrf.h" /* Include oscltx_c definitions. */ #include "SpiceOsc.h" /* Include CSPICE prototypes. */ #include "SpiceZpr.h" /* Define the CSPICE function interface macros. */ #include "SpiceZim.h" #endif #ifdef __cplusplus } #endif include/SpiceZad.h0100777000000000000000000001406614164213066011324 0ustar00/* -Header_File SpiceZad.h ( CSPICE adapter definitions ) -Abstract Perform CSPICE declarations to support passed-in function adapters used in wrapper interfaces. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars This header file contains declarations used by the CSPICE passed-in function adapter ("PFA") system. This system enables CSPICE wrapper functions to support passed-in function arguments whose prototypes are C-style, even when these functions are to be called from f2c'd Fortran routines expecting f2c-style interfaces. This header declares: - The prototype for the passed-in function argument pointer storage and fetch routines zzadsave_c zzadget_c - Prototypes for CSPICE adapter functions. Each passed-in function argument in a CSPICE wrapper has a corresponding adapter function. The adapter functions have interfaces that match those of their f2c'd counterparts; this allows the adapters to be called by f2c'd SPICELIB code. The adapters look up saved function pointers for routines passed in by the wrapper's caller and call these functions. - Values for the enumerated type SpicePassedInFunc. These values are used to map function pointers to the functions they represent, enabling adapters to call the correct passed-in functions. Literature_References None. -Author_and_Institution N.J. Bachman (JPL) J. Diaz del Rio (ODC Space) E.D. Wright (JPL) -Restrictions None. -Version -CSPICE Version 2.3.0, 07-FEB-2021 (JDR) Removed spurious comma at the end of enumerator list "SpicePassedInFunc" to comply with ANSI-C standard. -CSPICE Version 2.2.0, 29-NOV-2011 (EDW) Updated to support the user defined boolean function capability. -CSPICE Version 2.1.0, 21-DEC-2009 (EDW) Updated to support the user defined scalar function capability. -CSPICE Version 2.0.0, 29-JAN-2009 (NJB) Now conditionally includes SpiceZfc.h. Updated to reflect new calling sequence of f2c'd routine gfrefn_. Some header updates were made as well. -CSPICE Version 1.0.0, 29-MAR-2008 (NJB) */ /* This file has dependencies defined in SpiceZfc.h. Include that file if it hasn't already been included. */ #ifndef HAVE_SPICEF2C_H #include "SpiceZfc.h" #endif #ifndef HAVE_SPICE_ZAD_H #define HAVE_SPICE_ZAD_H /* Prototypes for GF adapters: */ logical zzadbail_c ( void ); int zzadstep_c ( doublereal * et, doublereal * step ); int zzadrefn_c ( doublereal * t1, doublereal * t2, logical * s1, logical * s2, doublereal * t ); int zzadrepf_c ( void ); int zzadrepi_c ( doublereal * cnfine, char * srcpre, char * srcsuf, ftnlen srcprelen, ftnlen srcsuflen ); int zzadrepu_c ( doublereal * ivbeg, doublereal * ivend, doublereal * et ); int zzadfunc_c ( doublereal * et, doublereal * value ); int zzadqdec_c ( U_fp udfunc, doublereal * et, logical * xbool ); /* Define the enumerated type SpicePassedInFunc for names of passed-in functions. Using this type gives us compile-time checking and avoids string comparisons. */ enum _SpicePassedInFunc { UDBAIL, UDREFN, UDREPF, UDREPI, UDREPU, UDSTEP, UDFUNC, UDQDEC }; typedef enum _SpicePassedInFunc SpicePassedInFunc; /* SPICE_N_PASSED_IN_FUNC is the count of SpicePassedInFunc values. */ #define SPICE_N_PASSED_IN_FUNC 8 /* CSPICE wrappers supporting passed-in function arguments call the adapter setup interface function once per each such argument; these calls save the function pointers for later use within the f2c'd code that calls passed-in functions. The saved pointers will be used in calls by the adapter functions whose prototypes are declared above. Prototypes for adapter setup interface: */ void zzadsave_c ( SpicePassedInFunc functionID, void * functionPtr ); void * zzadget_c ( SpicePassedInFunc functionID ); #endif /* End of header file SpiceZad.h */ include/SpiceZdf.h0100777000000000000000000001732214164213066011327 0ustar00/* -Header_File SpiceZdf.h ( CSPICE definitions ) -Abstract Define CSPICE data types via typedefs; also define some user-visible enumerated types. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars CSPICE data types ================= To assist with long-term maintainability of CSPICE, NAIF has elected to use typedefs to represent data types occurring in argument lists and as return values of CSPICE functions. These are: SpiceBoolean SpiceChar SpiceDouble SpiceInt ConstSpiceBoolean ConstSpiceChar ConstSpiceDouble ConstSpiceInt The SPICE typedefs map in an arguably natural way to ANSI C types: SpiceBoolean -> int SpiceChar -> char SpiceDouble -> double SpiceInt -> int or long ConstX -> const X (X = any of the above types) The type SpiceInt is a special case: the corresponding type is picked so as to be half the size of a double. On most currently supported platforms, type double occupies 8 bytes and type long occupies 4 bytes. Other platforms may require a SpiceInt to map to type int. The Alpha/Digital Unix platform is an example of the latter case. While other data types may be used internally in CSPICE, no other types appear in the API. CSPICE enumerated types ======================= These are provided to enhance readability of the code. Type name Value set --------- --------- _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 } -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) B.V. Semenov (JPL) E.D. Wright (JPL) -Restrictions None. -Version -CSPICE Version 6.3.0, 28-NOV-2021 (BVS) Updated for: MAC-OSX-M1-64BIT-CLANG_C environment. Added the corresponding tag: CSPICE_MAC_OSX_M1_64BIT_CLANG tag to the #ifdefs set. -CSPICE Version 6.2.0, 10-MAR-2014 (BVS) Updated for: PC-CYGWIN-64BIT-GCC_C environment. Added the corresponding tag: CSPICE_PC_CYGWIN_64BIT_GCC tag to the #ifdefs set. -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) Updated for: MAC-OSX-64BIT-INTEL_C SUN-SOLARIS-64BIT-NATIVE_C SUN-SOLARIS-INTEL-64BIT-CC_C environments. Added the corresponding tags: CSPICE_MAC_OSX_INTEL_64BIT_GCC CSPICE_SUN_SOLARIS_64BIT_NATIVE CSPICE_SUN_SOLARIS_INTEL_64BIT_CC tag to the #ifdefs set. -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) Updated to support the PC Linux 64 bit mode/gcc platform. -CSPICE Version 5.0.0, 27-JAN-2003 (NJB) Updated to support the Sun Solaris 64 bit mode/gcc platform. -CSPICE Version 4.0.0 27-JUL-2002 (NJB) Added definition of SpiceDataType. -CSPICE Version 3.0.0 18-SEP-1999 (NJB) SpiceBoolean implementation changed from enumerated type to typedef mapping to int. -CSPICE Version 2.0.0 29-JAN-1999 (NJB) Made definition of SpiceInt and ConstSpiceInt platform dependent to accommodate the Alpha/Digital Unix platform. Removed definitions of SpiceVoid and ConstSpiceVoid. -CSPICE Version 1.0.0 25-OCT-1997 (KRG) (NJB) (EDW) */ #ifndef HAVE_SPICEDEFS_H #define HAVE_SPICEDEFS_H /* Include platform definitions, if they haven't been executed already. */ #ifndef HAVE_PLATFORM_MACROS_H #include "SpiceZpl.h" #endif /* Basic data types. These are defined to be compatible with the types used by f2c, and so they follow the Fortran notion of what these things are. See the f2c documentation for the details about the choices for the sizes of these types. */ typedef char SpiceChar; typedef double SpiceDouble; typedef float SpiceFloat; #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) typedef int SpiceInt; #else typedef long SpiceInt; #endif typedef const char ConstSpiceChar; typedef const double ConstSpiceDouble; typedef const float ConstSpiceFloat; #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) typedef const int ConstSpiceInt; #else typedef const long ConstSpiceInt; #endif /* More basic data types. These give mnemonics for some other data types in C that are not used in Fortran written by NAIF or supported by ANSI Fortran 77. These are for use in C functions but should not be passed to any C SPICE wrappers, ``*_c.c'' since they are not Fortran compatible. */ typedef long SpiceLong; typedef short SpiceShort; /* Unsigned data types */ typedef unsigned char SpiceUChar; typedef unsigned int SpiceUInt; typedef unsigned long SpiceULong; typedef unsigned short SpiceUShort; /* Signed data types */ typedef signed char SpiceSChar; /* Other basic types */ typedef int SpiceBoolean; typedef const int ConstSpiceBoolean; #define SPICETRUE 1 #define SPICEFALSE 0 enum _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 }; typedef enum _Spicestatus SpiceStatus; enum _SpiceDataType { SPICE_CHR = 0, SPICE_DP = 1, SPICE_INT = 2, SPICE_TIME = 3, SPICE_BOOL = 4 }; typedef enum _SpiceDataType SpiceDataType; #endif include/SpiceZfc.h0100777000000000000000000227114114164213066011331 0ustar00/* -Header_File SpiceZfc.h ( f2c'd SPICELIB prototypes ) -Abstract Define prototypes for functions produced by converting Fortran SPICELIB routines to C using f2c. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) K.R. Gehringer (JPL) B.V. Semenov (JPL) E.D. Wright (JPL) -Version -CSPICE Version 7.1.0, 28-NOV-2021 (BVS) Updated for: MAC-OSX-M1-64BIT-CLANG_C environment. Added the corresponding tag: CSPICE_MAC_OSX_M1_64BIT_CLANG tag to the #ifdefs set. -CSPICE Version 7.0.0, 10-MAR-2014 (BVS) Reformatted version lines. Now this header conditionally includes SpiceUsr.h. Updated for: PC-CYGWIN-64BIT-GCC_C environment. Added the corresponding tag: CSPICE_PC_CYGWIN_64BIT_GCC tag to the #ifdefs set. -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) Updated for: MAC-OSX-64BIT-INTEL_C SUN-SOLARIS-64BIT-NATIVE_C SUN-SOLARIS-INTEL-64BIT-CC_C environments. Added the corresponding tags: CSPICE_MAC_OSX_INTEL_64BIT_GCC CSPICE_SUN_SOLARIS_64BIT_NATIVE CSPICE_SUN_SOLARIS_INTEL_64BIT_CC tag to the #ifdefs set. -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) Added typedefs for the PC-LINUX-64BIT-GCC_C environment (these are identical to those for the ALPHA-DIGITAL-UNIX_C environment). -CSPICE Version 5.0.0, 06-MAR-2005 (NJB) Added typedefs for pointers to functions. This change was made to support CSPICE wrappers for geometry finder routines. Added typedefs for the SUN-SOLARIS-64BIT-GCC_C environment (these are identical to those for the ALPHA-DIGITAL-UNIX_C environment). -CSPICE Version 4.1.0, 24-MAY-2001 (WLT) Moved the #ifdef __cplusplus so that it appears after the typedefs. This allows us to more easily wrap CSPICE in a namespace for C++. -CSPICE Version 4.0.0, 09-FEB-1999 (NJB) Updated to accommodate the Alpha/Digital Unix platform. Also updated to support inclusion in C++ code. -CSPICE Version 3.0.0, 02-NOV-1998 (NJB) Updated for SPICELIB version N0049. -CSPICE Version 2.0.0, 15-SEP-1997 (NJB) Changed variable name "typid" to "typid" in prototype for zzfdat_. This was done to enable compilation under Borland C++. -CSPICE Version 1.0.0, 15-SEP-1997 (NJB) (KRG) -Index_Entries prototypes of f2c'd SPICELIB functions */ /* Include SpiceUsr.h if it hasn't already been included by the current compilation unit. */ #ifndef HAVE_SPICE_USER #include "SpiceUsr.h" #endif #ifndef HAVE_SPICEF2C_H #define HAVE_SPICEF2C_H /* Include Files: Many of the prototypes below use data types defined by f2c. We copy here the f2c definitions that occur in prototypes of functions produced by running f2c on Fortran SPICELIB routines. The reason we don't simply conditionally include f2c.h itself here is that f2c.h defines macros that conflict with stdlib.h on some systems. It's simpler to just replicate the few typedefs we need. */ #if ( defined( CSPICE_ALPHA_DIGITAL_UNIX ) \ || defined( CSPICE_PC_CYGWIN_64BIT_GCC ) \ || defined( CSPICE_PC_LINUX_64BIT_GCC ) \ || defined( CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ || defined( CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ || defined( CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ || defined( CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ || defined( CSPICE_SUN_SOLARIS_64BIT_GCC ) ) #define VOID void typedef VOID H_f; typedef int integer; typedef double doublereal; typedef int logical; typedef int ftnlen; /* Type H_fp is used for character return type. Type S_fp is used for subroutines. Type U_fp is used for functions of unknown type. */ typedef VOID (*H_fp)(); typedef doublereal (*D_fp)(); typedef doublereal (*E_fp)(); typedef int (*S_fp)(); typedef int (*U_fp)(); typedef integer (*I_fp)(); typedef logical (*L_fp)(); #else #define VOID void typedef VOID H_f; typedef long integer; typedef double doublereal; typedef long logical; typedef long ftnlen; /* Type H_fp is used for character return type. Type S_fp is used for subroutines. Type U_fp is used for functions of unknown type. */ typedef VOID (*H_fp)(); typedef doublereal (*D_fp)(); typedef doublereal (*E_fp)(); typedef int (*S_fp)(); typedef int (*U_fp)(); typedef integer (*I_fp)(); typedef logical (*L_fp)(); #endif #ifdef __cplusplus extern "C" { #endif /* Function prototypes for functions created by f2c are listed below. See the headers of the Fortran routines for descriptions of the routines' interfaces. The functions listed below are those expected to be called by C-SPICELIB wrappers. Prototypes are not currently provided for other f2c'd functions. */ /* -Prototypes */ extern logical accept_(logical *ok); extern logical allowd_(void); extern logical alltru_(logical *logcls, integer *n); extern H_f ana_(char *ret_val, ftnlen ret_val_len, char *word, char *case__, ftnlen word_len, ftnlen case_len); /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ extern int appndc_(char *item, char *cell, ftnlen item_len, ftnlen cell_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int appndd_(doublereal *item, doublereal *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int appndi_(integer *item, integer *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical approx_(doublereal *x, doublereal *y, doublereal *tol); extern int astrip_(char *instr, char *asciib, char *asciie, char *outstr, ftnlen instr_len, ftnlen asciib_len, ftnlen asciie_len, ftnlen outstr_len); /*:ref: lastnb_ 4 2 13 124 */ extern int axisar_(doublereal *axis, doublereal *angle, doublereal *r__); /*:ref: ident_ 14 1 7 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int azlcpo_(char *method, char *target, doublereal *et, char *abcorr, logical *azccw, logical *elplsz, doublereal *obspos, char *obsctr, char *obsref, doublereal *azlsta, doublereal *lt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: ident_ 14 1 7 */ /*:ref: rotmat_ 14 4 7 7 4 7 */ /*:ref: pi_ 7 0 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: twovec_ 14 5 7 4 7 4 7 */ /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: recazl_ 14 6 7 12 12 7 7 7 */ /*:ref: dazldr_ 14 6 7 7 7 12 12 7 */ extern int azlrec_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *rectan); /*:ref: latrec_ 14 4 7 7 7 7 */ extern doublereal b1900_(void); extern doublereal b1950_(void); 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: eqchr_ 12 4 13 13 124 124 */ extern logical bedec_(char *string, ftnlen string_len); /*:ref: pos_ 4 5 13 13 4 124 124 */ /*:ref: beint_ 12 2 13 124 */ /*:ref: beuns_ 12 2 13 124 */ extern logical beint_(char *string, ftnlen string_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: beuns_ 12 2 13 124 */ extern logical benum_(char *string, ftnlen string_len); /*:ref: cpos_ 4 5 13 13 4 124 124 */ /*:ref: bedec_ 12 2 13 124 */ /*:ref: beint_ 12 2 13 124 */ extern logical beuns_(char *string, ftnlen string_len); /*:ref: frstnb_ 4 2 13 124 */ extern int bltfrm_(integer *frmcls, integer *idset); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: orderi_ 14 3 4 4 4 */ extern int bodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzbodc2n_ 14 4 4 13 12 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int bodc2s_(integer *code, char *name__, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzbodc2n_ 14 4 4 13 12 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ extern int boddef_(char *name__, integer *code, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzboddef_ 14 3 13 4 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int bodeul_(integer *body, doublereal *et, doublereal *ra, doublereal *dec, doublereal *w, doublereal *lambda); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: pckeul_ 14 6 4 7 12 13 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: bodfnd_ 12 3 4 13 124 */ /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ /*:ref: rpd_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: zzbodbry_ 4 1 4 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: j2000_ 7 0 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spd_ 7 0 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vdotg_ 7 3 7 7 4 */ /*:ref: halfpi_ 7 0 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ extern logical bodfnd_(integer *body, char *item, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int bodmat_(integer *body, doublereal *et, doublereal *tipm); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: tisbod_ 14 5 13 4 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int bodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzbodn2c_ 14 4 13 4 12 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int bods2c_(char *name__, integer *code, logical *found, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzbodn2c_ 14 4 13 4 12 124 */ /*:ref: beint_ 12 2 13 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int bodvar_(integer *body, char *item, integer *dim, doublereal *values, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: rtpool_ 14 5 13 4 7 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int bodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ extern int bodvrd_(char *bodynm, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen bodynm_len, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ extern doublereal brcktd_(doublereal *number, doublereal *end1, doublereal *end2); extern integer brckti_(integer *number, integer *end1, integer *end2); extern integer bschoc_(char *value, integer *ndim, char *array, integer *order, ftnlen value_len, ftnlen array_len); extern integer bschoi_(integer *value, integer *ndim, integer *array, integer *order); extern integer bsrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); extern integer bsrchd_(doublereal *value, integer *ndim, doublereal *array); extern integer bsrchi_(integer *value, integer *ndim, integer *array); extern integer cardc_(char *cell, ftnlen cell_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dechar_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer cardd_(doublereal *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer cardi_(integer *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int cgv2el_(doublereal *center, doublereal *vec1, doublereal *vec2, doublereal *ellips); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: saelgv_ 14 4 7 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern integer chbase_(void); extern int chbder_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, integer *nderiv, doublereal *partdp, doublereal *dpdxs); extern int chbigr_(integer *degp, doublereal *cp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *itgrlp); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ extern int chbint_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *dpdx); extern int chbval_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p); extern int chckid_(char *class__, integer *maxlen, char *id, ftnlen class_len, ftnlen id_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: frstnp_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ extern int chgirf_(integer *refa, integer *refb, doublereal *rotab, char *name__, integer *index, ftnlen name_len); extern int irfrot_(integer *refa, integer *refb, doublereal *rotab); extern int irfnum_(char *name__, integer *index, ftnlen name_len); extern int irfnam_(integer *index, char *name__, ftnlen name_len); extern int irfdef_(integer *index); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rotate_ 14 3 7 4 7 */ /*:ref: wdcnt_ 4 2 13 124 */ /*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ /*:ref: rotmat_ 14 4 7 7 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: mxmt_ 14 3 7 7 7 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: esrchc_ 4 5 13 4 13 124 124 */ 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); extern int cklpf_(char *fname, integer *handle, ftnlen fname_len); extern int ckupf_(integer *handle); extern int ckbss_(integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav); extern int cksns_(integer *handle, doublereal *descr, char *segid, logical *found, ftnlen segid_len); extern int ckhave_(logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lnktl_ 4 2 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: dafcls_ 14 1 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: intmax_ 4 0 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: lnkprv_ 4 2 4 4 */ /*:ref: dpmin_ 7 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafbbs_ 14 1 4 */ /*:ref: daffpa_ 14 1 12 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: dafgn_ 14 2 13 124 */ /*:ref: lnkilb_ 14 3 4 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ extern int ckcls_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafcls_ 14 1 4 */ extern int ckcov_(char *ckfnm, integer *idcode, logical *needav, char *level, doublereal *tol, char *timsys, doublereal *cover, ftnlen ckfnm_len, ftnlen level_len, ftnlen timsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: ckmeta_ 14 4 4 13 4 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ /*:ref: zzckcv01_ 14 8 4 4 4 4 7 13 7 124 */ /*:ref: zzckcv02_ 14 8 4 4 4 4 7 13 7 124 */ /*:ref: zzckcv03_ 14 8 4 4 4 4 7 13 7 124 */ /*:ref: zzckcv04_ 14 8 4 4 4 4 7 13 7 124 */ /*:ref: zzckcv05_ 14 9 4 4 4 4 7 7 13 7 124 */ /*:ref: zzckcv06_ 14 9 4 4 4 4 7 7 13 7 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dafcls_ 14 1 4 */ extern int cke01_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: q2m_ 14 2 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int cke02_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vequg_ 14 3 7 4 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: axisar_ 14 3 7 7 7 */ /*:ref: q2m_ 14 2 7 7 */ /*:ref: mxmt_ 14 3 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int cke03_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: q2m_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: mtxm_ 14 3 7 7 7 */ /*:ref: raxisa_ 14 3 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: axisar_ 14 3 7 7 7 */ /*:ref: mxmt_ 14 3 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int cke04_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); /*:ref: chbval_ 14 5 7 4 7 7 7 */ /*:ref: vhatg_ 14 3 7 4 7 */ /*:ref: q2m_ 14 2 7 7 */ extern int cke05_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vminug_ 14 3 7 4 7 */ /*:ref: vdistg_ 7 3 7 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: xpsgip_ 14 3 4 4 7 */ /*:ref: lgrind_ 14 7 4 7 7 7 7 7 7 */ /*:ref: vnormg_ 7 2 7 4 */ /*:ref: vsclg_ 14 4 7 7 4 7 */ /*:ref: vdotg_ 7 3 7 7 4 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: qdq2av_ 14 3 7 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: lgrint_ 7 5 4 7 7 7 7 */ /*:ref: vhatg_ 14 3 7 4 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ /*:ref: q2m_ 14 2 7 7 */ extern int cke06_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cke05_ 14 5 12 7 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int ckfrot_(integer *inst, doublereal *et, doublereal *rotate, integer *ref, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ckhave_ 14 1 12 */ /*:ref: ckmeta_ 14 4 4 13 4 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzsclk_ 12 2 4 4 */ /*:ref: sce2c_ 14 3 4 7 7 */ /*:ref: ckbss_ 14 4 4 7 7 12 */ /*:ref: cksns_ 14 5 4 7 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: xpose_ 14 2 7 7 */ extern int ckfxfm_(integer *inst, doublereal *et, doublereal *xform, integer *ref, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ckmeta_ 14 4 4 13 4 124 */ /*:ref: ckhave_ 14 1 12 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzsclk_ 12 2 4 4 */ /*:ref: sce2c_ 14 3 4 7 7 */ /*:ref: ckbss_ 14 4 4 7 7 12 */ /*:ref: cksns_ 14 5 4 7 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: rav2xf_ 14 3 7 7 7 */ /*:ref: invstm_ 14 2 7 7 */ extern int ckgp_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *clkout, logical *found, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ckbss_ 14 4 4 7 7 12 */ /*:ref: cksns_ 14 5 4 7 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: ckmeta_ 14 4 4 13 4 124 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int ckgpav_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ckbss_ 14 4 4 7 7 12 */ /*:ref: cksns_ 14 5 4 7 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: ckmeta_ 14 4 4 13 4 124 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: xf2rav_ 14 3 7 7 7 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern int ckgr01_(integer *handle, doublereal *descr, integer *recno, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int ckgr02_(integer *handle, doublereal *descr, integer *recno, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cknr02_ 14 3 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int ckgr03_(integer *handle, doublereal *descr, integer *recno, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int ckgr04_(integer *handle, doublereal *descr, integer *recno, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cknr04_ 14 3 4 7 4 */ /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ /*:ref: zzck4d2i_ 14 4 7 4 7 4 */ extern int ckgr05_(integer *handle, doublereal *descr, integer *recno, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ extern int ckgr06_(integer *handle, doublereal *descr, integer *msno, integer *recno, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ extern int ckmeta_(integer *ckid, char *meta, integer *idcode, ftnlen meta_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: clearc_ 14 3 4 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: bschoi_ 4 4 4 4 4 4 */ /*:ref: zzcvpool_ 14 4 13 4 12 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cvpool_ 14 3 13 12 124 */ /*:ref: dwpool_ 14 2 13 124 */ /*:ref: orderi_ 14 3 4 4 4 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: swpool_ 14 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int ckmp06_(integer *handle, doublereal *descr, integer *msno, doublereal *rate, integer *subtyp, integer *winsiz, integer *nrec, doublereal *ivlbds, doublereal *lstepc); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ extern int cknm06_(integer *handle, doublereal *descr, integer *nmini); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ extern int cknr01_(integer *handle, doublereal *descr, integer *nrec); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int cknr02_(integer *handle, doublereal *descr, integer *nrec); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int cknr03_(integer *handle, doublereal *descr, integer *nrec); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int cknr04_(integer *handle, doublereal *descr, integer *nrec); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sgmeta_ 14 4 4 7 4 4 */ extern int cknr05_(integer *handle, doublereal *descr, integer *nrec); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int ckobj_(char *ckfnm, integer *ids, ftnlen ckfnm_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: dafcls_ 14 1 4 */ extern int ckopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int ckpfs_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: ckr01_ 14 7 4 7 7 7 12 7 12 */ /*:ref: cke01_ 14 5 12 7 7 7 7 */ /*:ref: ckr02_ 14 6 4 7 7 7 7 12 */ /*:ref: cke02_ 14 5 12 7 7 7 7 */ /*:ref: ckr03_ 14 7 4 7 7 7 12 7 12 */ /*:ref: cke03_ 14 5 12 7 7 7 7 */ /*:ref: ckr04_ 14 7 4 7 7 7 12 7 12 */ /*:ref: cke04_ 14 5 12 7 7 7 7 */ /*:ref: ckr05_ 14 7 4 7 7 7 12 7 12 */ /*:ref: cke05_ 14 5 12 7 7 7 7 */ /*:ref: ckr06_ 14 7 4 7 7 7 12 7 12 */ /*:ref: cke06_ 14 5 12 7 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int ckr01_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: lstcld_ 4 3 7 4 7 */ extern int ckr02_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, doublereal *record, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: vequg_ 14 3 7 4 7 */ extern int ckr03_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: dpmax_ 7 0 */ extern int ckr04_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cknr04_ 14 3 4 7 4 */ /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ /*:ref: zzck4d2i_ 14 4 7 4 7 4 */ extern int ckr05_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: odd_ 12 1 4 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: moved_ 14 3 7 4 7 */ extern int ckr06_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: touchl_ 12 1 12 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: odd_ 12 1 4 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: vzerog_ 12 2 7 4 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: vzerog_ 12 2 7 4 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: vzerog_ 12 2 7 4 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int ckw04a_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, doublereal *sclkdp); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzck4i2d_ 14 4 4 4 7 7 */ /*:ref: sgwvpk_ 14 6 4 4 4 7 4 7 */ extern int ckw04b_(integer *handle, doublereal *begtim, integer *inst, char *ref, logical *avflag, char *segid, ftnlen ref_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: sgbwvs_ 14 7 4 7 13 4 7 4 124 */ extern int ckw04e_(integer *handle, doublereal *endtim); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sgwes_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafbbs_ 14 1 4 */ /*:ref: daffpa_ 14 1 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafrs_ 14 1 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: bsrchd_ 4 3 7 4 7 */ /*:ref: vzerog_ 12 2 7 4 */ /*:ref: odd_ 12 1 4 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int ckw06_(integer *handle, integer *inst, char *ref, logical *avflag, doublereal *first, doublereal *last, char *segid, integer *nmini, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *rates, doublereal *sclkdp, doublereal *ivlbds, logical *sellst, ftnlen ref_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: vzerog_ 12 2 7 4 */ /*:ref: even_ 12 1 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vminug_ 14 3 7 4 7 */ /*:ref: vdistg_ 7 3 7 7 4 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int clearc_(integer *ndim, char *array, ftnlen array_len); extern int cleard_(integer *ndim, doublereal *array); extern int cleari_(integer *ndim, integer *array); extern doublereal clight_(void); extern int cmprss_(char *delim, integer *n, char *input, char *output, ftnlen delim_len, ftnlen input_len, ftnlen output_len); extern int conics_(doublereal *elts, doublereal *et, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: prop2b_ 14 4 7 7 7 7 */ extern int convrt_(doublereal *x, char *in, char *out, doublereal *y, ftnlen in_len, ftnlen out_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dpr_ 7 0 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int copyc_(char *cell, char *copy, ftnlen cell_len, ftnlen copy_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: lastpc_ 4 2 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int copyd_(doublereal *cell, doublereal *copy); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int copyi_(integer *cell, integer *copy); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer countc_(integer *unit, integer *bline, integer *eline, char *line, ftnlen line_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: astrip_ 14 8 13 13 13 13 124 124 124 124 */ extern integer cpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); extern integer cposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); extern int cyacip_(integer *nelt, char *dir, integer *ncycle, char *array, ftnlen dir_len, ftnlen array_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: nbwid_ 4 3 13 4 124 */ /*:ref: gcd_ 4 2 4 4 */ extern int cyadip_(integer *nelt, char *dir, integer *ncycle, doublereal *array, ftnlen dir_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gcd_ 4 2 4 4 */ extern int cyaiip_(integer *nelt, char *dir, integer *ncycle, integer *array, ftnlen dir_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gcd_ 4 2 4 4 */ extern int cyclac_(char *array, integer *nelt, char *dir, integer *ncycle, char *out, ftnlen array_len, ftnlen dir_len, ftnlen out_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: movec_ 14 5 13 4 13 124 124 */ /*:ref: nbwid_ 4 3 13 4 124 */ /*:ref: gcd_ 4 2 4 4 */ extern int cyclad_(doublereal *array, integer *nelt, char *dir, integer *ncycle, doublereal *out, ftnlen dir_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: gcd_ 4 2 4 4 */ extern int cyclai_(integer *array, integer *nelt, char *dir, integer *ncycle, integer *out, ftnlen dir_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: gcd_ 4 2 4 4 */ extern int cyclec_(char *instr, char *dir, integer *ncycle, char *outstr, ftnlen instr_len, ftnlen dir_len, ftnlen outstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: gcd_ 4 2 4 4 */ extern int cyllat_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *lon, doublereal *lat); extern int cylrec_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *rectan); extern int cylsph_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *colat, doublereal *slon); extern doublereal dacosh_(doublereal *x); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern doublereal dacosn_(doublereal *arg, doublereal *tol); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int dafa2b_(char *ascii, char *binary, integer *resv, ftnlen ascii_len, ftnlen binary_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: txtopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: daft2b_ 14 4 4 13 4 124 */ extern int dafac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: cpos_ 4 5 13 13 4 124 124 */ /*:ref: ncpos_ 4 5 13 13 4 124 124 */ /*:ref: dafarr_ 14 2 4 4 */ 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); extern int dafopr_(char *fname, integer *handle, ftnlen fname_len); extern int dafopw_(char *fname, integer *handle, ftnlen fname_len); 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); extern int dafopn_(char *fname, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ifname_len); extern int dafcls_(integer *handle); extern int dafhsf_(integer *handle, integer *nd, integer *ni); extern int dafhlu_(integer *handle, integer *unit); extern int dafluh_(integer *unit, integer *handle); extern int dafhfn_(integer *handle, char *fname, ftnlen fname_len); extern int daffnh_(char *fname, integer *handle, ftnlen fname_len); extern int dafhof_(integer *fhset); extern int dafsih_(integer *handle, char *access, ftnlen access_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ /*:ref: zzddhcls_ 14 4 4 13 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: ltrim_ 4 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: dafrwa_ 14 3 4 4 4 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: zzdafnfr_ 14 12 4 13 4 4 13 4 4 4 13 124 124 124 */ /*:ref: removi_ 14 2 4 4 */ /*:ref: zzddhluh_ 14 3 4 4 12 */ /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: zzddhfnh_ 14 4 13 4 12 124 */ /*:ref: copyi_ 14 2 4 4 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: elemi_ 12 2 4 4 */ extern int dafana_(integer *handle, doublereal *sum, char *name__, doublereal *data, integer *n, ftnlen name_len); extern int dafbna_(integer *handle, doublereal *sum, char *name__, ftnlen name_len); extern int dafada_(doublereal *data, integer *n); extern int dafena_(void); extern int dafcad_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafhof_ 14 1 4 */ /*:ref: elemi_ 12 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dafhsf_ 14 3 4 4 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: dafhfn_ 14 3 4 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafwda_ 14 4 4 4 4 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ /*:ref: dafrcr_ 14 4 4 4 13 124 */ /*:ref: dafwdr_ 14 3 4 4 7 */ /*:ref: dafwcr_ 14 4 4 4 13 124 */ /*:ref: dafarw_ 14 3 4 4 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: dafrwa_ 14 3 4 4 4 */ /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ extern int dafarr_(integer *handle, integer *resv); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafarw_ 14 3 4 4 4 */ /*:ref: dafwdr_ 14 3 4 4 7 */ /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ /*:ref: dafrcr_ 14 4 4 4 13 124 */ /*:ref: dafwcr_ 14 4 4 4 13 124 */ /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafws_ 14 1 7 */ extern int dafb2a_(char *binary, char *ascii, ftnlen binary_len, ftnlen ascii_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: txtopn_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafb2t_ 14 3 13 4 124 */ extern int dafb2t_(char *binary, integer *text, ftnlen binary_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafcls_ 14 1 4 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafgn_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int dafbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: wrenci_ 14 3 4 4 4 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgn_ 14 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: wrencd_ 14 3 4 4 7 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafcls_ 14 1 4 */ extern int dafdc_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafrrr_ 14 2 4 4 */ extern int dafec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: cpos_ 4 5 13 13 4 124 124 */ /*:ref: ncpos_ 4 5 13 13 4 124 124 */ extern int daffa_(integer *handle, doublereal *sum, char *name__, logical *found, ftnlen name_len); extern int dafbfs_(integer *handle); extern int daffna_(logical *found); extern int dafbbs_(integer *handle); extern int daffpa_(logical *found); extern int dafgs_(doublereal *sum); extern int dafgn_(char *name__, ftnlen name_len); extern int dafgh_(integer *handle); extern int dafrs_(doublereal *sum); extern int dafrn_(char *name__, ftnlen name_len); extern int dafws_(doublereal *sum); extern int dafcs_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: dafhof_ 14 1 4 */ /*:ref: elemi_ 12 2 4 4 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafgsr_ 14 6 4 4 4 4 7 12 */ /*:ref: dafhfn_ 14 3 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafhsf_ 14 3 4 4 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: dafrcr_ 14 4 4 4 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafwdr_ 14 3 4 4 7 */ /*:ref: dafwcr_ 14 4 4 4 13 124 */ extern int dafgda_(integer *handle, integer *baddr, integer *eaddr, doublereal *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafarw_ 14 3 4 4 4 */ /*:ref: dafgdr_ 14 6 4 4 4 4 7 12 */ /*:ref: cleard_ 14 2 4 7 */ extern int dafps_(integer *nd, integer *ni, doublereal *dc, integer *ic, doublereal *sum); extern int dafus_(doublereal *sum, integer *nd, integer *ni, doublereal *dc, integer *ic); /*:ref: moved_ 14 3 7 4 7 */ /*:ref: movei_ 14 3 4 4 4 */ extern int dafra_(integer *handle, integer *iorder, integer *n); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: isordv_ 12 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: failed_ 12 0 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafgn_ 14 2 13 124 */ /*:ref: dafws_ 14 1 7 */ /*:ref: dafrn_ 14 2 13 124 */ extern int dafrcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ extern int dafrda_(integer *handle, integer *begin, integer *end, doublereal *data); /*:ref: return_ 12 0 */ /*:ref: zzddhisn_ 14 3 4 12 12 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dafarw_ 14 3 4 4 4 */ /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ /*:ref: cleard_ 14 2 4 7 */ extern int dafrfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int dafrrr_(integer *handle, integer *resv); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ /*:ref: dafarw_ 14 3 4 4 4 */ /*:ref: dafwdr_ 14 3 4 4 7 */ /*:ref: dafrcr_ 14 4 4 4 13 124 */ /*:ref: dafwcr_ 14 4 4 4 13 124 */ /*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafws_ 14 1 7 */ extern int dafrwa_(integer *recno, integer *wordno, integer *addr__); extern int dafarw_(integer *addr__, integer *recno, integer *wordno); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int dafrwd_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *drec, doublereal *data, logical *found, integer *reads, integer *reqs); extern int dafgdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); extern int dafgsr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); extern int dafrdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); extern int dafwdr_(integer *handle, integer *recno, doublereal *drec); extern int dafnrr_(integer *reads, integer *reqs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: minai_ 14 4 4 4 4 4 */ /*:ref: zzdafgdr_ 14 4 4 4 7 12 */ /*:ref: failed_ 12 0 */ /*:ref: intmax_ 4 0 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: zzddhrcm_ 14 3 4 4 4 */ /*:ref: dafhsf_ 14 3 4 4 4 */ /*:ref: zzdafgsr_ 14 6 4 4 4 4 7 12 */ /*:ref: zzddhisn_ 14 3 4 12 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int daft2b_(integer *text, char *binary, integer *resv, ftnlen binary_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafcls_ 14 1 4 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafena_ 14 0 */ extern int daftb_(integer *xfrlun, char *binfil, ftnlen binfil_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ /*:ref: rdenci_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: rdencd_ 14 3 4 4 7 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ /*:ref: dafcls_ 14 1 4 */ extern int dafwcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int dafwda_(integer *handle, integer *begin, integer *end, doublereal *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafarw_ 14 3 4 4 4 */ /*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: dafwdr_ 14 3 4 4 7 */ extern int dafwfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int dasa2l_(integer *handle, integer *type__, integer *addrss, integer *clbase, integer *clsize, integer *recno, integer *wordno); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: dasham_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: dasrri_ 14 5 4 4 4 4 4 */ extern int dasac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ /*:ref: dasacr_ 14 2 4 4 */ /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ extern int dasacr_(integer *handle, integer *n); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: daswbr_ 14 1 4 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: maxai_ 14 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: dasioi_ 14 5 13 4 4 4 124 */ /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ /*:ref: dasiod_ 14 5 13 4 4 7 124 */ /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ extern int dasacu_(integer *comlun, char *begmrk, char *endmrk, logical *insbln, integer *handle, ftnlen begmrk_len, ftnlen endmrk_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ /*:ref: getlun_ 14 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: readln_ 14 4 4 13 12 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: readla_ 14 6 4 4 4 13 12 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: writla_ 14 4 4 13 4 124 */ /*:ref: dasac_ 14 4 4 4 13 124 */ extern int dasadc_(integer *handle, integer *n, integer *bpos, integer *epos, char *data, ftnlen data_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: daswrc_ 14 4 4 4 13 124 */ /*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ /*:ref: dascud_ 14 3 4 4 4 */ extern int dasadd_(integer *handle, integer *n, doublereal *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: daswrd_ 14 3 4 4 7 */ /*:ref: dasurd_ 14 5 4 4 4 4 7 */ /*:ref: dascud_ 14 3 4 4 4 */ extern int dasadi_(integer *handle, integer *n, integer *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: daswri_ 14 3 4 4 4 */ /*:ref: dasuri_ 14 5 4 4 4 4 4 */ /*:ref: dascud_ 14 3 4 4 4 */ extern int dasbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dasopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: dascls_ 14 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: wrenci_ 14 3 4 4 4 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ /*:ref: wrencc_ 14 4 4 4 13 124 */ /*:ref: daslla_ 14 4 4 4 4 4 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ /*:ref: wrencd_ 14 3 4 4 7 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int dascls_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: dashof_ 14 1 4 */ /*:ref: elemi_ 12 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasham_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: daswbr_ 14 1 4 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dassdr_ 14 1 4 */ /*:ref: dasllc_ 14 1 4 */ extern int dascud_(integer *handle, integer *type__, integer *nwords); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: maxai_ 14 4 4 4 4 4 */ /*:ref: dasuri_ 14 5 4 4 4 4 4 */ /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: dasrri_ 14 5 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: daswri_ 14 3 4 4 4 */ extern int dasdc_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ /*:ref: dasrcr_ 14 2 4 4 */ /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ extern int dasec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ extern int dasecu_(integer *handle, integer *comlun, logical *comnts); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasec_ 14 6 4 4 4 13 12 124 */ /*:ref: writla_ 14 4 4 13 4 124 */ 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); extern int dasopr_(char *fname, integer *handle, ftnlen fname_len); extern int dasopw_(char *fname, integer *handle, ftnlen fname_len); extern int dasonw_(char *fname, char *ftype, char *ifname, integer *ncomr, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); extern int dasopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); extern int dasops_(integer *handle); extern int dasllc_(integer *handle); extern int dashfs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); extern int dasufs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); extern int dashlu_(integer *handle, integer *unit); extern int dasluh_(integer *unit, integer *handle); extern int dashfn_(integer *handle, char *fname, ftnlen fname_len); extern int dasfnh_(char *fname, integer *handle, ftnlen fname_len); extern int dashof_(integer *fhset); extern int dassih_(integer *handle, char *access, ftnlen access_len); extern int dasham_(integer *handle, char *access, ftnlen access_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: lnkilb_ 14 3 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzdasgri_ 14 3 4 4 4 */ /*:ref: maxai_ 14 4 4 4 4 4 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: dasioi_ 14 5 13 4 4 4 124 */ /*:ref: ltrim_ 4 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: zzdasnfr_ 14 11 4 13 13 4 4 4 4 13 124 124 124 */ /*:ref: zzddhcls_ 14 4 4 13 12 124 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: removi_ 14 2 4 4 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: zzddhluh_ 14 3 4 4 12 */ /*:ref: zzddhfnh_ 14 4 13 4 12 124 */ /*:ref: copyi_ 14 2 4 4 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: elemi_ 12 2 4 4 */ extern doublereal dasine_(doublereal *arg, doublereal *tol); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int dasioc_(char *action, integer *unit, integer *recno, char *record, ftnlen action_len, ftnlen record_len); /*:ref: return_ 12 0 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int dasiod_(char *action, integer *unit, integer *recno, doublereal *record, ftnlen action_len); /*:ref: return_ 12 0 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int dasioi_(char *action, integer *unit, integer *recno, integer *record, ftnlen action_len); /*:ref: return_ 12 0 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int daslla_(integer *handle, integer *lastc, integer *lastd, integer *lasti); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int dasrcr_(integer *handle, integer *n); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: daswbr_ 14 1 4 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: maxai_ 14 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: dasioi_ 14 5 13 4 4 4 124 */ /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ /*:ref: dasiod_ 14 5 13 4 4 7 124 */ /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ extern int dasrdc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasrrc_ 14 6 4 4 4 4 13 124 */ extern int dasrdd_(integer *handle, integer *first, integer *last, doublereal *data); /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasrrd_ 14 5 4 4 4 4 7 */ extern int dasrdi_(integer *handle, integer *first, integer *last, integer *data); /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasrri_ 14 5 4 4 4 4 4 */ extern int dasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ 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); extern int dasrrd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); extern int dasrri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); extern int dasrrc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); extern int daswrd_(integer *handle, integer *recno, doublereal *recd); extern int daswri_(integer *handle, integer *recno, integer *reci); extern int daswrc_(integer *handle, integer *recno, char *recc, ftnlen recc_len); extern int dasurd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); extern int dasuri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); extern int dasurc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); extern int daswbr_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: lnkxsl_ 14 3 4 4 4 */ /*:ref: lnkilb_ 14 3 4 4 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: lnktl_ 4 2 4 4 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: dasiod_ 14 5 13 4 4 7 124 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: zzdasgrd_ 14 3 4 4 7 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dasioi_ 14 5 13 4 4 4 124 */ /*:ref: zzdasgri_ 14 3 4 4 4 */ /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ extern int dassdr_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: dashlu_ 14 2 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: daswbr_ 14 1 4 */ /*:ref: dasops_ 14 1 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: maxai_ 14 4 4 4 4 4 */ /*:ref: dasrri_ 14 5 4 4 4 4 4 */ /*:ref: dasadi_ 14 3 4 4 4 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ /*:ref: dasiod_ 14 5 13 4 4 7 124 */ /*:ref: dasioi_ 14 5 13 4 4 4 124 */ /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: dasllc_ 14 1 4 */ extern int dastb_(integer *xfrlun, char *binfil, ftnlen binfil_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ /*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ /*:ref: dascls_ 14 1 4 */ /*:ref: rdenci_ 14 3 4 4 4 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: dasacr_ 14 2 4 4 */ /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: rdencc_ 14 4 4 4 13 124 */ /*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ /*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ /*:ref: rdencd_ 14 3 4 4 7 */ /*:ref: dasadd_ 14 3 4 4 7 */ /*:ref: dasadi_ 14 3 4 4 4 */ extern int dasudc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: daslla_ 14 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ extern int dasudd_(integer *handle, integer *first, integer *last, doublereal *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: daslla_ 14 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasurd_ 14 5 4 4 4 4 7 */ extern int dasudi_(integer *handle, integer *first, integer *last, integer *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: daslla_ 14 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasuri_ 14 5 4 4 4 4 4 */ extern int daswfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ /*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ extern doublereal datanh_(doublereal *x); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int dazldr_(doublereal *x, doublereal *y, doublereal *z__, logical *azccw, logical *elplsz, doublereal *jacobi); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dlatdr_ 14 4 7 7 7 7 */ extern doublereal dcbrt_(doublereal *x); extern int dcyldr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: reccyl_ 14 4 7 7 7 7 */ /*:ref: drdcyl_ 14 4 7 7 7 7 */ /*:ref: invort_ 14 2 7 7 */ extern int delfil_(char *filnam, ftnlen filnam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: getlun_ 14 1 4 */ extern int deltet_(doublereal *epoch, char *eptype, doublereal *delta, ftnlen eptype_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern doublereal det_(doublereal *m1); extern int dgeodr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ /*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ /*:ref: invort_ 14 2 7 7 */ extern doublereal dhfa_(doublereal *state, doublereal *bodyr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: errdp_ 14 3 13 7 124 */ extern int diags2_(doublereal *symmat, doublereal *diag, doublereal *rotate); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rquad_ 14 5 7 7 7 7 7 */ /*:ref: vhatg_ 14 3 7 4 7 */ extern int diffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: excess_ 14 3 4 13 124 */ extern int diffd_(doublereal *a, doublereal *b, doublereal *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int diffi_(integer *a, integer *b, integer *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int dlabbs_(integer *handle, integer *dladsc, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int dlabfs_(integer *handle, integer *dladsc, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int dlabns_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: daslla_ 14 4 4 4 4 4 */ /*:ref: filli_ 14 3 4 4 4 */ /*:ref: dasadi_ 14 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int dlaens_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: daslla_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int dlafns_(integer *handle, integer *dladsc, integer *nxtdsc, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int dlafps_(integer *handle, integer *dladsc, integer *prvdsc, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int dlaopn_(char *fname, char *ftype, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ /*:ref: dasadi_ 14 3 4 4 4 */ extern logical dlassg_(integer *han1, integer *han2, integer *dsc1, integer *dsc2); extern int dlatdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: drdlat_ 14 4 7 7 7 7 */ /*:ref: invort_ 14 2 7 7 */ extern int dnearp_(doublereal *state, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzdnpt_ 14 8 7 7 7 7 7 7 7 12 */ extern int dp2hx_(doublereal *number, char *hxstr, integer *hxssiz, ftnlen hxstr_len); /*:ref: int2hx_ 14 4 4 13 4 124 */ extern int dpfmt_(doublereal *x, char *pictur, char *str, ftnlen pictur_len, ftnlen str_len); /*:ref: pos_ 4 5 13 13 4 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzvststr_ 14 4 7 13 4 124 */ /*:ref: dpstr_ 14 4 7 4 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: rjust_ 14 4 13 13 124 124 */ /*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ /*:ref: ncpos_ 4 5 13 13 4 124 124 */ extern int dpgrdr_(char *body, doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: plnsns_ 4 1 4 */ /*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ extern doublereal dpr_(void); extern int dpspce_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: zzdpinit_ 14 6 7 7 7 7 7 7 */ /*:ref: zzdpsec_ 14 9 7 7 7 7 7 7 7 7 7 */ /*:ref: zzdpper_ 14 6 7 7 7 7 7 7 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int dpstr_(doublereal *x, integer *sigdig, char *string, ftnlen string_len); /*:ref: intstr_ 14 3 4 13 124 */ extern int dpstrf_(doublereal *x, integer *sigdig, char *format, char *string, ftnlen format_len, ftnlen string_len); /*:ref: dpstr_ 14 4 7 4 13 124 */ /*:ref: zzvststr_ 14 4 7 13 4 124 */ /*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ extern int drdazl_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *jacobi); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: drdlat_ 14 4 7 7 7 7 */ extern int drdcyl_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *jacobi); extern int drdgeo_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int drdlat_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *jacobi); extern int drdpgr_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: plnsns_ 4 1 4 */ /*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ extern int drdsph_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *jacobi); extern int drotat_(doublereal *angle, integer *iaxis, doublereal *dmout); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int dskb02_(integer *handle, integer *dladsc, integer *nv, integer *np, integer *nvxtot, doublereal *vtxbds, doublereal *voxsiz, doublereal *voxori, integer *vgrext, integer *cgscal, integer *vtxnpl, integer *voxnpt, integer *voxnpl); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int dskcls_(integer *handle, logical *optmiz); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dascls_ 14 1 4 */ /*:ref: dasham_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: daswbr_ 14 1 4 */ /*:ref: dasllc_ 14 1 4 */ extern int dskd02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, doublereal *values); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ extern int dskgd_(integer *handle, integer *dladsc, doublereal *dskdsc); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ extern int dski02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, integer *values); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ extern int dskmi2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *finscl, integer *corscl, integer *worksz, integer *voxpsz, integer *voxlsz, logical *makvtl, integer *spxisz, integer *work, doublereal *spaixd, integer *spaixi); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzmkspin_ 14 19 4 4 7 7 4 4 4 4 4 4 7 7 4 4 4 4 4 7 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzvrtplt_ 14 9 4 4 4 4 4 4 4 4 4 */ extern int dskn02_(integer *handle, integer *dladsc, integer *plid, doublereal *normal); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dskgd_ 14 3 4 4 7 */ /*:ref: dskz02_ 14 4 4 4 4 4 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ /*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ extern int dskobj_(char *dskfnm, integer *bodids, ftnlen dskfnm_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dasopr_ 14 3 13 4 124 */ /*:ref: dlabfs_ 14 3 4 4 12 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dskgd_ 14 3 4 4 7 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: dskcls_ 14 2 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: appndi_ 14 2 4 4 */ /*:ref: dlafns_ 14 4 4 4 4 12 */ /*:ref: validi_ 14 3 4 4 4 */ /*:ref: dascls_ 14 1 4 */ extern int dskopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dlaopn_ 14 8 13 13 13 4 4 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int dskp02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, integer *plates); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dskgd_ 14 3 4 4 7 */ /*:ref: dskz02_ 14 4 4 4 4 4 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ extern int dskrb2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, integer *corsys, doublereal *corpar, doublereal *mncor3, doublereal *mxcor3); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ /*:ref: dpmin_ 7 0 */ /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int dsksrf_(char *dskfnm, integer *bodyid, integer *srfids, ftnlen dskfnm_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dasopr_ 14 3 13 4 124 */ /*:ref: dlabfs_ 14 3 4 4 12 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dskgd_ 14 3 4 4 7 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: dskcls_ 14 2 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: appndi_ 14 2 4 4 */ /*:ref: dlafns_ 14 4 4 4 4 12 */ /*:ref: validi_ 14 3 4 4 4 */ /*:ref: dascls_ 14 1 4 */ extern int dsktol_(integer *keywrd, doublereal *dpval); extern int dskgtl_(integer *keywrd, doublereal *dpval); extern int dskstl_(integer *keywrd, doublereal *dpval); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: return_ 12 0 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int dskv02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, doublereal *vrtces); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dskgd_ 14 3 4 4 7 */ /*:ref: dskz02_ 14 4 4 4 4 4 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ extern int dskw02_(integer *handle, integer *center, integer *surfid, integer *dclass, char *frame, integer *corsys, doublereal *corpar, doublereal *mncor1, doublereal *mxcor1, doublereal *mncor2, doublereal *mxcor2, doublereal *mncor3, doublereal *mxcor3, doublereal *first, doublereal *last, integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *spaixd, integer *spaixi, ftnlen frame_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dpr_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dlabns_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: dasadd_ 14 3 4 4 7 */ /*:ref: dasadi_ 14 3 4 4 4 */ /*:ref: dlaens_ 14 1 4 */ extern int dskx02_(integer *handle, integer *dladsc, doublereal *vertex, doublereal *raydir, integer *plid, doublereal *xpt, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dpmax_ 7 0 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: vzero_ 12 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: dskb02_ 14 13 4 4 4 4 4 7 7 7 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ /*:ref: dskgd_ 14 3 4 4 7 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dskgtl_ 14 2 4 7 */ /*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ /*:ref: zztogrid_ 14 4 7 7 7 7 */ /*:ref: xdda_ 14 6 7 7 4 4 4 4 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: filli_ 14 3 4 4 4 */ /*:ref: orderi_ 14 3 4 4 4 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: pltexp_ 14 3 7 7 7 */ /*:ref: insang_ 14 6 7 7 7 7 12 7 */ /*:ref: pltnrm_ 14 4 7 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ extern int dskxsi_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, doublereal *vertex, doublereal *raydir, integer *maxd, integer *maxi, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, ftnlen target_len, ftnlen fixref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzsbfxri_ 14 14 4 4 4 7 4 7 7 7 4 4 7 7 4 12 */ extern int dskxv_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, integer *nrays, doublereal *vtxarr, doublereal *dirarr, doublereal *xptarr, logical *fndarr, ftnlen target_len, ftnlen fixref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ extern int dskz02_(integer *handle, integer *dladsc, integer *nv, integer *np); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int dsphdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: recsph_ 14 4 7 7 7 7 */ /*:ref: drdsph_ 14 4 7 7 7 7 */ /*:ref: invort_ 14 2 7 7 */ extern int ducrss_(doublereal *s1, doublereal *s2, doublereal *sout); /*:ref: vsclg_ 14 4 7 7 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: dvcrss_ 14 3 7 7 7 */ /*:ref: dvhat_ 14 2 7 7 */ extern int dvcrss_(doublereal *s1, doublereal *s2, doublereal *sout); /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern doublereal dvdot_(doublereal *s1, doublereal *s2); extern int dvhat_(doublereal *s1, doublereal *sout); /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ extern doublereal dvnorm_(doublereal *state); /*:ref: vnorm_ 7 1 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ extern doublereal dvsep_(doublereal *s1, doublereal *s2); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dvhat_ 14 2 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: zzdiv_ 7 2 7 7 */ extern int dxtrct_(char *keywd, integer *maxwds, char *string, integer *nfound, integer *parsed, doublereal *values, ftnlen keywd_len, ftnlen string_len); /*:ref: wdindx_ 4 4 13 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: nblen_ 4 2 13 124 */ /*:ref: fndnwd_ 14 5 13 4 4 4 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ extern int edlimb_(doublereal *a, doublereal *b, doublereal *c__, doublereal *viewpt, doublereal *limb); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: nvc2pl_ 14 3 7 7 7 */ /*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ /*:ref: vsclg_ 14 4 7 7 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int ednmpt_(doublereal *a, doublereal *b, doublereal *c__, doublereal *normal, doublereal *point); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vzero_ 12 1 7 */ extern int edpnt_(doublereal *p, doublereal *a, doublereal *b, doublereal *c__, doublereal *ep); /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: touchd_ 7 1 7 */ extern int edterm_(char *trmtyp, char *source, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, integer *npts, doublereal *trgepc, doublereal *obspos, doublereal *trmpts, ftnlen trmtyp_len, ftnlen source_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: zzedterm_ 14 9 13 7 7 7 7 7 4 7 124 */ extern int ekacec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ /*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ extern int ekaced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ /*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ extern int ekacei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ /*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzekac03_ 14 8 4 4 4 13 12 4 4 124 */ /*:ref: zzekac06_ 14 7 4 4 4 13 4 12 124 */ /*:ref: zzekac09_ 14 7 4 4 4 13 12 4 124 */ extern int ekacld_(integer *handle, integer *segno, char *column, doublereal *dvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzekac02_ 14 7 4 4 4 7 12 4 4 */ /*:ref: zzekac05_ 14 6 4 4 4 7 4 12 */ /*:ref: zzekac08_ 14 6 4 4 4 7 12 4 */ extern int ekacli_(integer *handle, integer *segno, char *column, integer *ivals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzekac01_ 14 7 4 4 4 4 12 4 4 */ /*:ref: zzekac04_ 14 6 4 4 4 4 4 12 */ /*:ref: zzekac07_ 14 6 4 4 4 4 12 4 */ extern int ekappr_(integer *handle, integer *segno, integer *recno); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekmloc_ 14 4 4 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: ekinsr_ 14 3 4 4 4 */ extern int ekbseg_(integer *handle, char *tabnam, integer *ncols, char *cnames, char *decls, integer *segno, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: lxdfid_ 14 1 4 */ /*:ref: chckid_ 14 5 13 4 13 124 124 */ /*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekpdec_ 14 3 13 4 124 */ /*:ref: zzekstyp_ 4 2 4 4 */ /*:ref: zzekbs01_ 14 8 4 13 4 13 4 4 124 124 */ /*:ref: zzekbs02_ 14 8 4 13 4 13 4 4 124 124 */ extern int ekcls_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dascls_ 14 1 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int ekdelr_(integer *handle, integer *segno, integer *recno); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekmloc_ 14 4 4 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekde01_ 14 4 4 4 4 4 */ /*:ref: zzekde02_ 14 4 4 4 4 4 */ /*:ref: zzekde03_ 14 4 4 4 4 4 */ /*:ref: zzekde04_ 14 4 4 4 4 4 */ /*:ref: zzekde05_ 14 4 4 4 4 4 */ /*:ref: zzekde06_ 14 4 4 4 4 4 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: dashlu_ 14 2 4 4 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekdps_ 14 4 4 4 4 4 */ /*:ref: zzektrdl_ 14 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int ekffld_(integer *handle, integer *segno, integer *rcptrs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekff01_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int ekfind_(char *query, integer *nmrows, logical *error, char *errmsg, ftnlen query_len, ftnlen errmsg_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ /*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ /*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ /*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ /*:ref: eksrch_ 14 8 4 13 7 4 12 13 124 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ekbseg_ 14 9 4 13 4 13 13 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzekmloc_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekif01_ 14 3 4 4 4 */ /*:ref: zzekif02_ 14 2 4 4 */ extern int ekinsr_(integer *handle, integer *segno, integer *recno); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekmloc_ 14 4 4 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: filli_ 14 3 4 4 4 */ /*:ref: ekshdw_ 14 2 4 12 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: zzektrin_ 14 4 4 4 4 4 */ /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ extern integer eknseg_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzektrsz_ 4 2 4 4 */ extern int ekopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzekpgin_ 14 1 4 */ /*:ref: zzekpgan_ 14 4 4 4 4 4 */ /*:ref: zzektrit_ 14 2 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int ekopr_(char *fname, integer *handle, ftnlen fname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dasopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ extern int ekops_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dasops_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgin_ 14 1 4 */ /*:ref: zzekpgan_ 14 4 4 4 4 4 */ /*:ref: zzektrit_ 14 2 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int ekopw_(char *fname, integer *handle, ftnlen fname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dasopw_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ /*:ref: zzekencd_ 14 10 13 4 13 7 12 13 4 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ 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); extern int eklef_(char *fname, integer *handle, ftnlen fname_len); extern int ekuef_(integer *handle); extern int ekntab_(integer *n); extern int ektnam_(integer *n, char *table, ftnlen table_len); extern int ekccnt_(char *table, integer *ccount, ftnlen table_len); extern int ekcii_(char *table, integer *cindex, char *column, integer *attdsc, ftnlen table_len, ftnlen column_len); extern int eksrch_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *nmrows, logical *semerr, char *errmsg, ftnlen eqryc_len, ftnlen errmsg_len); extern int eknelt_(integer *selidx, integer *row, integer *nelt); extern int ekgc_(integer *selidx, integer *row, integer *elment, char *cdata, logical *null, logical *found, ftnlen cdata_len); extern int ekgd_(integer *selidx, integer *row, integer *elment, doublereal *ddata, logical *null, logical *found); extern int ekgi_(integer *selidx, integer *row, integer *elment, integer *idata, logical *null, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: ekopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: dascls_ 14 1 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: ekcls_ 14 1 4 */ /*:ref: eknseg_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: lnkilb_ 14 3 4 4 4 */ /*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ /*:ref: ssizec_ 14 3 4 13 124 */ /*:ref: movec_ 14 5 13 4 13 124 124 */ /*:ref: validc_ 14 4 4 4 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: lnktl_ 4 2 4 4 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: appndc_ 14 4 13 13 124 124 */ /*:ref: appndi_ 14 2 4 4 */ /*:ref: zzekstop_ 14 1 4 */ /*:ref: zzeksdec_ 14 1 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekqcnj_ 14 3 4 4 4 */ /*: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 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzeksupd_ 14 3 4 4 4 */ /*:ref: zzekkey_ 14 20 4 4 4 4 4 4 4 4 13 4 4 7 4 12 4 4 4 4 12 124 */ /*:ref: zzekixlk_ 14 4 4 4 4 4 */ /*:ref: zzekrplk_ 14 4 4 4 4 4 */ /*:ref: zzekrmch_ 12 15 4 12 4 4 4 4 4 4 4 13 4 4 7 4 124 */ /*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: zzekjsqz_ 14 1 4 */ /*:ref: zzekjoin_ 14 18 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: zzeksrd_ 14 3 4 4 4 */ /*:ref: zzekweed_ 14 3 4 4 4 */ /*:ref: zzekvset_ 14 2 4 4 */ /*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ /*:ref: zzekqord_ 14 11 4 13 4 13 4 13 4 4 124 124 124 */ /*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: zzekvcal_ 14 3 4 4 4 */ /*:ref: zzekesiz_ 4 4 4 4 4 4 */ /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ extern int ekrcec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ /*:ref: zzekesiz_ 4 4 4 4 4 4 */ /*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ /*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ extern int ekrced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ /*:ref: zzekesiz_ 4 4 4 4 4 4 */ /*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ /*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ extern int ekrcei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ /*:ref: zzekesiz_ 4 4 4 4 4 4 */ /*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ /*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ extern int ekshdw_(integer *handle, logical *isshad); 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int ekucec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: ekshdw_ 14 2 4 12 */ /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ /*:ref: zzekue03_ 14 7 4 4 4 4 13 12 124 */ /*:ref: zzekue06_ 14 8 4 4 4 4 4 13 12 124 */ extern int ekuced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: ekshdw_ 14 2 4 12 */ /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ /*:ref: zzekue02_ 14 6 4 4 4 4 7 12 */ /*:ref: zzekue05_ 14 7 4 4 4 4 4 7 12 */ extern int ekucei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: ekshdw_ 14 2 4 12 */ /*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ /*:ref: zzekue01_ 14 6 4 4 4 4 4 12 */ /*:ref: zzekue04_ 14 7 4 4 4 4 4 4 12 */ extern int el2cgv_(doublereal *ellips, doublereal *center, doublereal *smajor, doublereal *sminor); /*:ref: vequ_ 14 2 7 7 */ extern logical elemc_(char *item, char *a, ftnlen item_len, ftnlen a_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical elemd_(doublereal *item, doublereal *a); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bsrchd_ 4 3 7 4 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: chkout_ 14 2 13 124 */ extern logical elemi_(integer *item, integer *a); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bsrchi_ 4 3 4 4 4 */ /*:ref: cardi_ 4 1 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int elltof_(doublereal *ma, doublereal *ecc, doublereal *e); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: pi_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: dcbrt_ 7 1 7 */ extern int enchar_(integer *number, char *string, ftnlen string_len); extern int dechar_(char *string, integer *number, ftnlen string_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: chbase_ 4 0 */ extern logical eqchr_(char *a, char *b, ftnlen a_len, ftnlen b_len); extern logical nechr_(char *a, char *b, ftnlen a_len, ftnlen b_len); extern int eqncpv_(doublereal *et, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: kepleq_ 7 3 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ extern logical eqstr_(char *a, char *b, ftnlen a_len, ftnlen b_len); extern int erract_(char *op, char *action, ftnlen op_len, ftnlen action_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: getact_ 14 1 4 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: putact_ 14 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int errch_(char *marker, char *string, ftnlen marker_len, ftnlen string_len); /*:ref: allowd_ 12 0 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: getlms_ 14 2 13 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: nblen_ 4 2 13 124 */ /*:ref: putlms_ 14 2 13 124 */ extern int errdev_(char *op, char *device, ftnlen op_len, ftnlen device_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: getdev_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: putdev_ 14 2 13 124 */ extern int errdp_(char *marker, doublereal *dpnum, ftnlen marker_len); /*:ref: allowd_ 12 0 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: getlms_ 14 2 13 124 */ /*:ref: dpstr_ 14 4 7 4 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: putlms_ 14 2 13 124 */ extern int errfnm_(char *marker, integer *unit, ftnlen marker_len); /*:ref: errch_ 14 4 13 13 124 124 */ extern int errhan_(char *marker, integer *handle, ftnlen marker_len); /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int errint_(char *marker, integer *intnum, ftnlen marker_len); /*:ref: allowd_ 12 0 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: getlms_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: putlms_ 14 2 13 124 */ extern int errprt_(char *op, char *list, ftnlen op_len, ftnlen list_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: msgsel_ 12 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: setprt_ 12 5 12 12 12 12 12 */ /*:ref: chkout_ 14 2 13 124 */ extern integer esrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); /*:ref: eqstr_ 12 4 13 13 124 124 */ extern int et2lst_(doublereal *et, integer *body, doublereal *lon, char *type__, integer *hr, integer *mn, integer *sc, char *time, char *ampm, ftnlen type_len, ftnlen time_len, ftnlen ampm_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: rmaind_ 14 4 7 7 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: pi_ 7 0 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: dpfmt_ 14 5 7 13 13 124 124 */ extern int et2utc_(doublereal *et, char *format, integer *prec, char *utcstr, ftnlen format_len, ftnlen utcstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ttrans_ 14 5 13 13 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: unitim_ 7 5 7 13 13 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int etcal_(doublereal *et, char *calstr, ftnlen calstr_len); /*:ref: spd_ 7 0 */ /*:ref: intmax_ 4 0 */ /*:ref: intmin_ 4 0 */ /*:ref: lstlti_ 4 3 4 4 4 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ extern int eul2m_(doublereal *angle3, doublereal *angle2, doublereal *angle1, integer *axis3, integer *axis2, integer *axis1, doublereal *r__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rotate_ 14 3 7 4 7 */ /*:ref: rotmat_ 14 4 7 7 4 7 */ extern int ev2lin_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); /*:ref: chkin_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ extern logical even_(integer *ival); extern int evsgp4_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: xxsgp4i_ 14 3 7 7 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: xxsgp4e_ 14 2 7 7 */ extern doublereal exact_(doublereal *number, doublereal *value, doublereal *tol); extern int excess_(integer *number, char *struct__, ftnlen struct_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical exists_(char *fname, ftnlen fname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int expln_(char *msg, char *expl, ftnlen msg_len, ftnlen expl_len); extern integer fetchc_(integer *nth, char *set, ftnlen set_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer fetchd_(integer *nth, doublereal *set); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer fetchi_(integer *nth, integer *set); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int fillc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); extern int filld_(doublereal *value, integer *ndim, doublereal *array); extern int filli_(integer *value, integer *ndim, integer *array); extern int fn2lun_(char *filnam, integer *lunit, ftnlen filnam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int fndlun_(integer *unit); extern int reslun_(integer *unit); extern int frelun_(integer *unit); extern int fndnwd_(char *string, integer *start, integer *b, integer *e, ftnlen string_len); extern int fovray_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzgffvst_ 14 2 7 12 */ extern int fovtrg_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzgffvst_ 14 2 7 12 */ extern int frame_(doublereal *x, doublereal *y, doublereal *z__); /*:ref: vhatip_ 14 1 7 */ extern int framex_(char *cname, char *frname, integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found, ftnlen cname_len, ftnlen frname_len); extern int namfrm_(char *frname, integer *frcode, ftnlen frname_len); extern int frmnam_(integer *frcode, char *frname, ftnlen frname_len); extern int frinfo_(integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found); extern int cidfrm_(integer *cent, integer *frcode, char *frname, logical *found, ftnlen frname_len); extern int cnmfrm_(char *cname, integer *frcode, char *frname, logical *found, ftnlen cname_len, ftnlen frname_len); extern int ccifrm_(integer *frclss, integer *clssid, integer *frcode, char *frname, integer *cent, logical *found, ftnlen frname_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzhsiini_ 14 3 4 4 4 */ /*:ref: zzhscini_ 14 3 4 4 4 */ /*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ /*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: bschoi_ 4 4 4 4 4 4 */ /*:ref: bodn2c_ 14 4 13 4 12 124 */ /*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern int frmchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: frmget_ 14 5 4 7 7 4 12 */ /*:ref: zzmsxf_ 14 3 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ /*:ref: invstm_ 14 2 7 7 */ extern int frmget_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: tisbod_ 14 5 13 4 7 7 124 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ /*:ref: tkfram_ 14 4 4 7 4 12 */ /*:ref: zzdynfrm_ 14 5 4 4 7 7 4 */ /*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern integer frstnb_(char *string, ftnlen string_len); extern integer frstnp_(char *string, ftnlen string_len); extern integer frstpc_(char *string, ftnlen string_len); extern integer gcd_(integer *a, integer *b); extern int georec_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int getelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, ftnlen lines_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzgetelm_ 14 8 4 13 7 7 12 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int getfat_(char *file, char *arch, char *kertyp, ftnlen file_len, ftnlen arch_len, ftnlen kertyp_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhfnh_ 14 4 13 4 12 124 */ /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: getlun_ 14 1 4 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: zzckspk_ 14 3 4 13 124 */ /*:ref: dafcls_ 14 1 4 */ extern int getfov_(integer *instid, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen shape_len, ftnlen frame_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ extern int getfvn_(char *inst, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen inst_len, ftnlen shape_len, ftnlen frame_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 7 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: getfov_ 14 9 7 4 13 13 7 4 7 124 124 */ extern int getlun_(integer *unit); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: fndlun_ 14 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int getmsg_(char *option, char *msg, ftnlen option_len, ftnlen msg_len); /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: getsms_ 14 2 13 124 */ /*:ref: expln_ 14 4 13 13 124 124 */ /*:ref: getlms_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern logical gfbail_(void); extern int gfdist_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfevnt_(U_fp udstep, U_fp udrefn, char *gquant, integer *qnpars, char *qpnams, char *qcpars, doublereal *qdpars, integer *qipars, logical *qlpars, char *op, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, integer *mw, integer *nw, doublereal *work, logical *bail, L_fp udbail, doublereal *result, ftnlen gquant_len, ftnlen qpnams_len, ftnlen qcpars_len, ftnlen op_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: zzgfspin_ 14 10 13 13 13 13 13 124 124 124 124 124 */ /*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ /*:ref: zzgfdiin_ 14 6 13 13 13 124 124 124 */ /*:ref: zzgfcslv_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 200 200 200 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ /*:ref: zzgfrrin_ 14 7 13 13 13 7 124 124 124 */ /*:ref: zzgfpain_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: zzgfilin_ 14 15 13 13 13 13 13 13 13 7 124 124 124 124 124 124 124 */ extern int gffove_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: wncard_ 4 1 7 */ /*:ref: wnfetd_ 14 4 7 4 7 7 */ /*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ extern int gfilum_(char *method, char *angtyp, char *target, char *illmn, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illmn_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfocce_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: wncard_ 4 1 7 */ /*:ref: wnfetd_ 14 4 7 4 7 7 */ /*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ extern int gfoclt_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: gfocce_ 14 29 13 13 13 13 13 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfpa_(char *target, char *illmn, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfposc_(char *target, char *frame, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: even_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfrefn_(doublereal *t1, doublereal *t2, logical *s1, logical *s2, doublereal *t); /*:ref: brcktd_ 7 3 7 7 7 */ extern int gfrfov_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfrprt_(doublereal *window, char *begmss, char *endmss, doublereal *ivbeg, doublereal *ivend, doublereal *time, ftnlen begmss_len, ftnlen endmss_len); extern int gfrepi_(doublereal *window, char *begmss, char *endmss, ftnlen begmss_len, ftnlen endmss_len); extern int gfrepu_(doublereal *ivbeg, doublereal *ivend, doublereal *time); extern int gfrepf_(void); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: wnsumd_ 14 6 7 7 7 7 4 4 */ /*:ref: zzgftswk_ 14 7 7 7 4 13 13 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: cardd_ 4 1 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zzgfwkin_ 14 1 7 */ /*:ref: zzgfwkad_ 14 6 7 4 13 13 124 124 */ /*:ref: zzgfwkmo_ 14 9 4 7 7 4 13 13 7 124 124 */ /*:ref: stdio_ 14 3 13 4 124 */ /*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ extern int gfrr_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfsep_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: even_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfsntc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: even_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfstep_(doublereal *time, doublereal *step); extern int gfsstp_(doublereal *step); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ extern int gfstol_(doublereal *value); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ extern int gfsubc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: even_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gftfov_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern int gfudb_(U_fp udfuns, U_fp udfunb, doublereal *step, doublereal *cnfine, doublereal *result); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: odd_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: zzgfudb_ 14 13 200 200 7 200 200 12 200 200 200 12 212 7 7 */ /*:ref: gfbail_ 12 :*/ extern int gfuds_(U_fp udfuns, U_fp udqdec, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: sized_ 4 1 7 */ /*:ref: gfsstp_ 14 1 7 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ /*:ref: gfbail_ 12 :*/ extern doublereal halfpi_(void); extern int hrmesp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int hrmint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ extern int hx2dp_(char *string, doublereal *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); /*:ref: dpmin_ 7 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ extern int hx2int_(char *string, integer *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); /*:ref: intmin_ 4 0 */ /*:ref: intmax_ 4 0 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ extern int hyptof_(doublereal *ma, doublereal *ecc, doublereal *f); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dpmax_ 7 0 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dcbrt_ 7 1 7 */ extern int ident_(doublereal *matrix); extern int idw2at_(char *idword, char *arch, char *type__, ftnlen idword_len, ftnlen arch_len, ftnlen type_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: pos_ 4 5 13 13 4 124 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ extern int illumf_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, logical *visibl, logical *lit, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: zzmaxrad_ 14 1 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ extern int illumg_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vsep_ 7 2 7 7 */ extern int ilumin_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int incnsg_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, integer *nxpts, doublereal *xpt1, doublereal *xpt2); /*:ref: return_ 12 0 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: pi_ 7 0 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: nvp2pl_ 14 3 7 7 7 */ /*:ref: inrypl_ 14 5 7 7 7 4 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zzcnquad_ 14 7 7 7 7 7 4 7 7 */ /*:ref: zzcxbrut_ 14 7 7 7 7 7 7 7 12 */ /*:ref: frame_ 14 3 7 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: zzsglatx_ 14 6 7 7 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern int inedpl_(doublereal *a, doublereal *b, doublereal *c__, doublereal *plane, doublereal *ellips, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: pl2psv_ 14 4 7 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: psv2pl_ 14 4 7 7 7 7 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: cgv2el_ 14 4 7 7 7 7 */ extern int inelpl_(doublereal *ellips, doublereal *plane, integer *nxpts, doublereal *xpt1, doublereal *xpt2); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: el2cgv_ 14 4 7 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: pl2nvp_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: nvp2pl_ 14 3 7 7 7 */ /*:ref: vzerog_ 12 2 7 4 */ /*:ref: vnormg_ 7 2 7 4 */ /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ extern int inrypl_(doublereal *vertex, doublereal *dir, doublereal *plane, integer *nxpts, doublereal *xpt); /*:ref: return_ 12 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: smsgnd_ 12 2 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ extern int insang_(doublereal *v, doublereal *e1, doublereal *e2, doublereal *e3, logical *found, doublereal *scale); /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ extern int inslac_(char *elts, integer *ne, integer *loc, char *array, integer *na, ftnlen elts_len, ftnlen array_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int inslad_(doublereal *elts, integer *ne, integer *loc, doublereal *array, integer *na); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int inslai_(integer *elts, integer *ne, integer *loc, integer *array, integer *na); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int insrtc_(char *item, char *a, ftnlen item_len, ftnlen a_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int insrtd_(doublereal *item, doublereal *a); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int insrti_(integer *item, integer *a); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlei_ 4 3 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int inssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int int2hx_(integer *number, char *string, integer *length, ftnlen string_len); extern int interc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: excess_ 14 3 4 13 124 */ extern int interd_(doublereal *a, doublereal *b, doublereal *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int interi_(integer *a, integer *b, integer *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int intord_(integer *n, char *string, ftnlen string_len); /*:ref: inttxt_ 14 3 4 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern int intstr_(integer *number, char *string, ftnlen string_len); extern int inttxt_(integer *n, char *string, ftnlen string_len); /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern int invert_(doublereal *m, doublereal *mout); /*:ref: det_ 7 1 7 */ /*:ref: filld_ 14 3 7 4 7 */ /*:ref: vsclg_ 14 4 7 7 4 7 */ extern int invort_(doublereal *m, doublereal *mit); /*:ref: dpmax_ 7 0 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: xpose_ 14 2 7 7 */ extern int invstm_(doublereal *mat, doublereal *invmat); /*:ref: xposbl_ 14 5 7 4 4 4 7 */ extern int ioerr_(char *action, char *file, integer *iostat, ftnlen action_len, ftnlen file_len); /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ extern int irftrn_(char *refa, char *refb, doublereal *rotab, ftnlen refa_len, ftnlen refb_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int iso2utc_(char *tstrng, char *utcstr, char *error, ftnlen tstrng_len, ftnlen utcstr_len, ftnlen error_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical isopen_(char *file, ftnlen file_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern logical isordv_(integer *array, integer *n); extern integer isrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); extern integer isrchd_(doublereal *value, integer *ndim, doublereal *array); extern integer isrchi_(integer *value, integer *ndim, integer *array); extern logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: det_ 7 1 7 */ /*:ref: brcktd_ 7 3 7 7 7 */ extern doublereal j1900_(void); extern doublereal j1950_(void); extern doublereal j2000_(void); extern doublereal j2100_(void); extern int jul2gr_(integer *year, integer *month, integer *day, integer *doy); extern int gr2jul_(integer *year, integer *month, integer *day, integer *doy); /*:ref: rmaini_ 14 4 4 4 4 4 */ /*:ref: lstlti_ 4 3 4 4 4 */ extern doublereal jyear_(void); extern int keeper_(integer *which, char *kind, char *file, integer *count, char *filtyp, integer *handle, char *srcfil, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); extern int furnsh_(char *file, ftnlen file_len); extern int ktotal_(char *kind, integer *count, ftnlen kind_len); extern int kdata_(integer *which, char *kind, char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); extern int kinfo_(char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); extern int kclear_(void); extern int unload_(char *file, ftnlen file_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: swpool_ 14 5 13 4 13 124 124 */ /*:ref: cvpool_ 14 3 13 12 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzldker_ 14 7 13 13 13 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: stpool_ 14 9 13 4 13 13 4 12 124 124 124 */ /*:ref: sepool_ 14 10 13 4 13 13 4 4 12 124 124 124 */ /*:ref: pos_ 4 5 13 13 4 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: samsub_ 12 8 13 4 4 13 4 4 124 124 */ /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ /*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: dvpool_ 14 2 13 124 */ /*:ref: fndnwd_ 14 5 13 4 4 4 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: spkuef_ 14 1 4 */ /*:ref: ckupf_ 14 1 4 */ /*:ref: pckuof_ 14 1 4 */ /*:ref: ekuef_ 14 1 4 */ /*:ref: zzdskusf_ 14 1 4 */ /*:ref: clpool_ 14 0 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: ldpool_ 14 2 13 124 */ /*:ref: spklef_ 14 3 13 4 124 */ /*:ref: cklpf_ 14 3 13 4 124 */ /*:ref: zzdsklsf_ 14 3 13 4 124 */ /*:ref: pcklof_ 14 3 13 4 124 */ /*:ref: eklef_ 14 3 13 4 124 */ extern doublereal kepleq_(doublereal *ml, doublereal *h__, doublereal *k); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: kpsolv_ 7 1 7 */ extern int kplfrm_(integer *frmcls, integer *idset); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: validi_ 14 3 4 4 4 */ extern doublereal kpsolv_(doublereal *evec); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int kxtrct_(char *keywd, char *terms, integer *nterms, char *wordsq, logical *found, char *substr, ftnlen keywd_len, ftnlen terms_len, ftnlen wordsq_len, ftnlen substr_len); /*:ref: wdindx_ 4 4 13 13 124 124 */ /*:ref: nblen_ 4 2 13 124 */ /*:ref: fndnwd_ 14 5 13 4 4 4 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ extern integer lastnb_(char *string, ftnlen string_len); extern integer lastpc_(char *string, ftnlen string_len); extern int latcyl_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *r__, doublereal *clon, doublereal *z__); extern int latrec_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rectan); extern int latsph_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rho, doublereal *colat, doublereal *slon); /*:ref: halfpi_ 7 0 */ extern int latsrf_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *lonlat, doublereal *srfpts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: edpnt_ 14 5 7 7 7 7 7 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: zzmaxrad_ 14 1 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ /*:ref: dpr_ 7 0 */ /*:ref: vdot_ 7 2 7 7 */ extern int lbuild_(char *items, integer *n, char *delim, char *list, ftnlen items_len, ftnlen delim_len, ftnlen list_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern int lcase_(char *in, char *out, ftnlen in_len, ftnlen out_len); extern doublereal lgresp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *work, doublereal *x); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int lgrind_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x, doublereal *p, doublereal *dp); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ extern doublereal lgrint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ extern int limbpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *tangts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: edlimb_ 14 5 7 7 7 7 7 */ /*:ref: el2cgv_ 14 4 7 7 7 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: zzmaxrad_ 14 1 7 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: touchd_ 7 1 7 */ /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ extern int ljucrs_(integer *n, char *input, char *output, ftnlen input_len, ftnlen output_len); extern int ljust_(char *input, char *output, ftnlen input_len, ftnlen output_len); extern int lnkan_(integer *pool, integer *new__); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int lnkfsl_(integer *head, integer *tail, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer lnkhl_(integer *node, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int lnkila_(integer *prev, integer *list, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int lnkilb_(integer *list, integer *next, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int lnkini_(integer *size, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer lnknfn_(integer *pool); extern integer lnknxt_(integer *node, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer lnkprv_(integer *node, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer lnksiz_(integer *pool); extern integer lnktl_(integer *node, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int lnkxsl_(integer *head, integer *tail, integer *pool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int locati_(integer *id, integer *idsz, integer *list, integer *pool, integer *at, logical *presnt); /*:ref: chkin_ 14 2 13 124 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnksiz_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: lnkxsl_ 14 3 4 4 4 */ /*:ref: lnkilb_ 14 3 4 4 4 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ltrim_ 4 2 13 124 */ extern int lparse_(char *list, char *delim, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delim_len, ftnlen items_len); extern int lparsm_(char *list, char *delims, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delims_len, ftnlen items_len); extern int lparss_(char *list, char *delims, char *set, ftnlen list_len, ftnlen delims_len, ftnlen set_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: insrtc_ 14 4 13 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: validc_ 14 4 4 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern doublereal lspcn_(char *body, doublereal *et, char *abcorr, ftnlen body_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: tipbod_ 14 5 13 4 7 7 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: twovec_ 14 5 7 4 7 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: spkezr_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: recrad_ 14 4 7 7 7 7 */ extern integer lstcld_(doublereal *x, integer *n, doublereal *array); extern integer lstcli_(integer *x, integer *n, integer *array); extern integer lstlec_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); extern integer lstled_(doublereal *x, integer *n, doublereal *array); extern integer lstlei_(integer *x, integer *n, integer *array); extern integer lstltc_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); extern integer lstltd_(doublereal *x, integer *n, doublereal *array); extern integer lstlti_(integer *x, integer *n, integer *array); extern int ltime_(doublereal *etobs, integer *obs, char *dir, integer *targ, doublereal *ettarg, doublereal *elapsd, ftnlen dir_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: clight_ 7 0 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: failed_ 12 0 */ extern integer ltrim_(char *string, ftnlen string_len); /*:ref: frstnb_ 4 2 13 124 */ extern int lun2fn_(integer *lunit, char *filnam, ftnlen filnam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int lx4dec_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); /*:ref: lx4uns_ 14 5 13 4 4 4 124 */ /*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ extern int lx4num_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); /*:ref: lx4dec_ 14 5 13 4 4 4 124 */ /*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ extern int lx4sgn_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); /*:ref: lx4uns_ 14 5 13 4 4 4 124 */ extern int lx4uns_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); 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); extern int lxidnt_(integer *idspec, char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); extern int lxdfid_(integer *idspec); extern int lxcsid_(char *hdchrs, char *tlchrs, integer *idspec, ftnlen hdchrs_len, ftnlen tlchrs_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: bsrchi_ 4 3 4 4 4 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: validi_ 14 3 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: appndi_ 14 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: cardi_ 4 1 4 */ extern int lxqstr_(char *string, char *qchar, integer *first, integer *last, integer *nchar, ftnlen string_len, ftnlen qchar_len); extern int m2eul_(doublereal *r__, integer *axis3, integer *axis2, integer *axis1, doublereal *angle3, doublereal *angle2, doublereal *angle1); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: isrot_ 12 3 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: mtxm_ 14 3 7 7 7 */ extern int m2q_(doublereal *r__, doublereal *q); /*:ref: isrot_ 12 3 7 7 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical matchi_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: samch_ 12 6 13 4 13 4 124 124 */ /*:ref: nechr_ 12 4 13 13 124 124 */ /*:ref: samchi_ 12 6 13 4 13 4 124 124 */ extern logical matchw_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: samch_ 12 6 13 4 13 4 124 124 */ extern int maxac_(char *array, integer *ndim, char *maxval, integer *loc, ftnlen array_len, ftnlen maxval_len); extern int maxad_(doublereal *array, integer *ndim, doublereal *maxval, integer *loc); extern int maxai_(integer *array, integer *ndim, integer *maxval, integer *loc); extern int mequ_(doublereal *m1, doublereal *mout); /*:ref: moved_ 14 3 7 4 7 */ extern int mequg_(doublereal *m1, integer *nr, integer *nc, doublereal *mout); /*:ref: moved_ 14 3 7 4 7 */ extern int minac_(char *array, integer *ndim, char *minval, integer *loc, ftnlen array_len, ftnlen minval_len); extern int minad_(doublereal *array, integer *ndim, doublereal *minval, integer *loc); extern int minai_(integer *array, integer *ndim, integer *minval, integer *loc); extern int movec_(char *arrfrm, integer *ndim, char *arrto, ftnlen arrfrm_len, ftnlen arrto_len); extern int movei_(integer *arrfrm, integer *ndim, integer *arrto); extern int mtxm_(doublereal *m1, doublereal *m2, doublereal *mout); /*:ref: moved_ 14 3 7 4 7 */ extern int mtxmg_(doublereal *m1, doublereal *m2, integer *nc1, integer *nr1r2, integer *nc2, doublereal *mout); extern int mtxv_(doublereal *m, doublereal *vin, doublereal *vout); extern int mtxvg_(doublereal *m1, doublereal *v2, integer *nc1, integer *nr1r2, doublereal *vout); extern int mxm_(doublereal *m1, doublereal *m2, doublereal *mout); /*:ref: moved_ 14 3 7 4 7 */ extern int mxmg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1r2, integer *nc2, doublereal *mout); extern int mxmt_(doublereal *m1, doublereal *m2, doublereal *mout); /*:ref: moved_ 14 3 7 4 7 */ extern int mxmtg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1c2, integer *nr2, doublereal *mout); extern int mxv_(doublereal *m, doublereal *vin, doublereal *vout); extern int mxvg_(doublereal *m1, doublereal *v2, integer *nr1, integer *nc1r2, doublereal *vout); extern integer nblen_(char *string, ftnlen string_len); /*:ref: lastnb_ 4 2 13 124 */ /*:ref: frstnb_ 4 2 13 124 */ extern integer nbwid_(char *array, integer *nelt, ftnlen array_len); extern integer ncpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); extern integer ncposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); extern int nearpt_(doublereal *positn, doublereal *a, doublereal *b, doublereal *c__, doublereal *npoint, doublereal *alt); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: orderd_ 14 3 7 4 4 */ /*:ref: reordd_ 14 3 4 4 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: touchd_ 7 1 7 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: approx_ 12 3 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern int nextwd_(char *string, char *next, char *rest, ftnlen string_len, ftnlen next_len, ftnlen rest_len); /*:ref: ljust_ 14 4 13 13 124 124 */ extern logical notru_(logical *logcls, integer *n); extern int nparsd_(char *string, doublereal *x, char *error, integer *ptr, ftnlen string_len, ftnlen error_len); /*:ref: dpmax_ 7 0 */ /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: pi_ 7 0 */ extern int nparsi_(char *string, integer *n, char *error, integer *pnter, ftnlen string_len, ftnlen error_len); /*:ref: intmax_ 4 0 */ /*:ref: intmin_ 4 0 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ extern int npedln_(doublereal *a, doublereal *b, doublereal *c__, doublereal *linept, doublereal *linedr, doublereal *pnear, doublereal *dist); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: nvc2pl_ 14 3 7 7 7 */ /*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ /*:ref: pjelpl_ 14 3 7 7 7 */ /*:ref: vprjp_ 14 3 7 7 7 */ /*:ref: npelpt_ 14 4 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: vprjpi_ 14 5 7 7 7 7 12 */ /*:ref: vsclip_ 14 2 7 7 */ extern int npelpt_(doublereal *point, doublereal *ellips, doublereal *pnear, doublereal *dist); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: el2cgv_ 14 4 7 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: twovec_ 14 5 7 4 7 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ extern int nplnpt_(doublereal *linpt, doublereal *lindir, doublereal *point, doublereal *pnear, doublereal *dist); /*:ref: return_ 12 0 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vproj_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ extern int npsgpt_(doublereal *ep1, doublereal *ep2, doublereal *point, doublereal *pnear, doublereal *dist); /*:ref: return_ 12 0 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: nplnpt_ 14 5 7 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: vdot_ 7 2 7 7 */ extern int nthwd_(char *string, integer *nth, char *word, integer *loc, ftnlen string_len, ftnlen word_len); extern int nvc2pl_(doublereal *normal, doublereal *konst, doublereal *plane); /*:ref: return_ 12 0 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int nvp2pl_(doublereal *normal, doublereal *point, doublereal *plane); /*:ref: return_ 12 0 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int occult_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, doublereal *et, integer *ocltid, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ /*:ref: zzgfocst_ 14 2 7 12 */ /*:ref: errint_ 14 3 13 4 124 */ extern logical odd_(integer *ival); extern logical opsgnd_(doublereal *x, doublereal *y); extern logical opsgni_(integer *x, integer *y); extern integer ordc_(char *item, char *set, ftnlen item_len, ftnlen set_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer ordd_(doublereal *item, doublereal *set); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bsrchd_ 4 3 7 4 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int orderc_(char *array, integer *ndim, integer *iorder, ftnlen array_len); /*:ref: swapi_ 14 2 4 4 */ extern int orderd_(doublereal *array, integer *ndim, integer *iorder); /*:ref: swapi_ 14 2 4 4 */ extern int orderi_(integer *array, integer *ndim, integer *iorder); /*:ref: swapi_ 14 2 4 4 */ extern integer ordi_(integer *item, integer *set); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bsrchi_ 4 3 4 4 4 */ /*:ref: cardi_ 4 1 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int oscelt_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: exact_ 7 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: pi_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: dacosh_ 7 1 7 */ extern int oscltx_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dpmax_ 7 0 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: oscelt_ 14 4 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: exact_ 7 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: twovec_ 14 5 7 4 7 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: recrad_ 14 4 7 7 7 7 */ /*:ref: twopi_ 7 0 */ extern int outmsg_(char *list, ftnlen list_len); /*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: getdev_ 14 2 13 124 */ /*:ref: wrline_ 14 4 13 13 124 124 */ /*:ref: msgsel_ 12 2 13 124 */ /*:ref: tkvrsn_ 14 4 13 13 124 124 */ /*:ref: getsms_ 14 2 13 124 */ /*:ref: expln_ 14 4 13 13 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: getlms_ 14 2 13 124 */ /*:ref: wdcnt_ 4 2 13 124 */ /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: trcdep_ 14 1 4 */ /*:ref: trcnam_ 14 3 4 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern int packac_(char *in, integer *pack, integer *npack, integer *maxout, integer *nout, char *out, ftnlen in_len, ftnlen out_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int packad_(doublereal *in, integer *pack, integer *npack, integer *maxout, integer *nout, doublereal *out); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int packai_(integer *in, integer *pack, integer *npack, integer *maxout, integer *nout, integer *out); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ extern int partof_(doublereal *ma, doublereal *d__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dcbrt_ 7 1 7 */ extern int pck03a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ extern int pck03b_(integer *handle, char *segid, integer *body, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: pckpds_ 14 7 4 13 4 7 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ extern int pck03e_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sgwes_ 14 1 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int pckbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); extern int pcklof_(char *fname, integer *handle, ftnlen fname_len); extern int pckuof_(integer *handle); extern int pcksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: dafcls_ 14 1 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: intmax_ 4 0 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: lnkprv_ 4 2 4 4 */ /*:ref: dpmin_ 7 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafbbs_ 14 1 4 */ /*:ref: daffpa_ 14 1 12 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: dafgn_ 14 2 13 124 */ /*:ref: lnkilb_ 14 3 4 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: lnktl_ 4 2 4 4 */ extern int pckcls_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafcls_ 14 1 4 */ extern int pckcov_(char *pckfnm, integer *idcode, doublereal *cover, ftnlen pckfnm_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: wninsd_ 14 3 7 7 7 */ /*:ref: dafcls_ 14 1 4 */ extern int pcke02_(doublereal *et, doublereal *record, doublereal *eulang); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spke02_ 14 3 7 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int pcke03_(doublereal *et, doublereal *record, doublereal *rotmat); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chbval_ 14 5 7 4 7 7 7 */ /*:ref: rpd_ 7 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int pcke20_(doublereal *et, doublereal *record, doublereal *eulang); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spke20_ 14 3 7 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int pckeul_(integer *body, doublereal *et, logical *found, char *ref, doublereal *eulang, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: irfnam_ 14 3 4 13 124 */ /*:ref: pckr02_ 14 4 4 7 7 7 */ /*:ref: pcke02_ 14 3 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int pckfrm_(char *pckfnm, integer *ids, ftnlen pckfnm_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: dafcls_ 14 1 4 */ extern int pckmat_(integer *body, doublereal *et, integer *ref, doublereal *tsipm, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: pckr02_ 14 4 4 7 7 7 */ /*:ref: pcke02_ 14 3 7 7 7 */ /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: pckr03_ 14 4 4 7 7 7 */ /*:ref: pcke03_ 14 3 7 7 7 */ /*:ref: pckr20_ 14 4 4 7 7 7 */ /*:ref: pcke20_ 14 3 7 7 7 */ extern int pckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int pckpds_(integer *body, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ extern int pckr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int pckr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ extern int pckr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: j2000_ 7 0 */ /*:ref: spd_ 7 0 */ /*:ref: remlad_ 14 4 4 4 7 4 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int pckuds_(doublereal *descr, integer *body, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int pckw02_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: chckid_ 14 5 13 4 13 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int pckw20_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *ascale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: spd_ 7 0 */ /*:ref: j2000_ 7 0 */ /*:ref: chckid_ 14 5 13 4 13 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern integer pcwid_(char *array, integer *nelt, ftnlen array_len); extern int pgrrec_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan, ftnlen body_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: plnsns_ 4 1 4 */ /*:ref: georec_ 14 6 7 7 7 7 7 7 */ extern doublereal phaseq_(doublereal *et, char *target, char *illmn, char *obsrvr, char *abcorr, ftnlen target_len, ftnlen illmn_len, ftnlen obsrvr_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ extern doublereal pi_(void); extern int pjelpl_(doublereal *elin, doublereal *plane, doublereal *elout); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: el2cgv_ 14 4 7 7 7 7 */ /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vprjp_ 14 3 7 7 7 */ /*:ref: cgv2el_ 14 4 7 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int pl2nvc_(doublereal *plane, doublereal *normal, doublereal *konst); /*:ref: vequ_ 14 2 7 7 */ extern int pl2nvp_(doublereal *plane, doublereal *normal, doublereal *point); /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ extern int pl2psv_(doublereal *plane, doublereal *point, doublereal *span1, doublereal *span2); /*:ref: pl2nvp_ 14 3 7 7 7 */ /*:ref: frame_ 14 3 7 7 7 */ extern integer plnsns_(integer *bodid); /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ extern doublereal pltar_(integer *nv, doublereal *vrtces, integer *np, integer *plates); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ extern int pltexp_(doublereal *iverts, doublereal *delta, doublereal *overts); extern int pltnp_(doublereal *point, doublereal *v1, doublereal *v2, doublereal *v3, doublereal *pnear, doublereal *dist); /*:ref: return_ 12 0 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: npsgpt_ 14 5 7 7 7 7 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern int pltnrm_(doublereal *v1, doublereal *v2, doublereal *v3, doublereal *normal); /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ extern doublereal pltvol_(integer *nv, doublereal *vrtces, integer *np, integer *plates); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: det_ 7 1 7 */ extern int polyds_(doublereal *coeffs, integer *deg, integer *nderiv, doublereal *t, doublereal *p); extern int pool_(char *fname, integer *unit, char *name__, char *names, integer *nnames, char *agent, integer *n, doublereal *values, logical *found, logical *update, integer *start, integer *room, char *cvals, integer *ivals, char *type__, char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, integer *usrctr, ftnlen fname_len, ftnlen name_len, ftnlen names_len, ftnlen agent_len, ftnlen cvals_len, ftnlen type_len, ftnlen uwvars_len, ftnlen uwagnt_len); extern int clpool_(void); extern int ldpool_(char *fname, ftnlen fname_len); extern int rtpool_(char *name__, integer *n, doublereal *values, logical *found, ftnlen name_len); extern int expool_(char *name__, logical *found, ftnlen name_len); extern int wrpool_(integer *unit); extern int swpool_(char *agent, integer *nnames, char *names, ftnlen agent_len, ftnlen names_len); extern int cvpool_(char *agent, logical *update, ftnlen agent_len); extern int gcpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); extern int gdpool_(char *name__, integer *start, integer *room, integer *n, doublereal *values, logical *found, ftnlen name_len); extern int gipool_(char *name__, integer *start, integer *room, integer *n, integer *ivals, logical *found, ftnlen name_len); extern int dtpool_(char *name__, logical *found, integer *n, char *type__, ftnlen name_len, ftnlen type_len); extern int pcpool_(char *name__, integer *n, char *cvals, ftnlen name_len, ftnlen cvals_len); extern int pdpool_(char *name__, integer *n, doublereal *values, ftnlen name_len); extern int pipool_(char *name__, integer *n, integer *ivals, ftnlen name_len); extern int lmpool_(char *cvals, integer *n, ftnlen cvals_len); extern int szpool_(char *name__, integer *n, logical *found, ftnlen name_len); extern int dvpool_(char *name__, ftnlen name_len); extern int gnpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); extern int dwpool_(char *agent, ftnlen agent_len); extern int zzvupool_(char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, ftnlen uwvars_len, ftnlen uwagnt_len); extern int zzpctrck_(integer *usrctr, logical *update); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzpini_ 14 28 12 4 4 4 13 13 4 4 4 4 4 4 4 13 4 4 13 13 13 13 4 124 124 124 124 124 124 124 */ /*:ref: zzctrinc_ 14 1 4 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: zznwpool_ 14 14 13 13 4 4 13 13 13 13 124 124 124 124 124 124 */ /*:ref: rdknew_ 14 2 13 124 */ /*:ref: zzrvar_ 14 13 4 4 13 4 4 7 4 13 13 12 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: elemc_ 12 4 13 13 124 124 */ /*:ref: cltext_ 14 2 13 124 */ /*:ref: zzhash_ 4 2 13 124 */ /*:ref: ioerr_ 14 5 13 13 4 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: lnktl_ 4 2 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: lstltc_ 4 5 13 4 13 124 124 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: insrtc_ 14 4 13 13 124 124 */ /*:ref: removc_ 14 4 13 13 124 124 */ /*:ref: intmax_ 4 0 */ /*:ref: intmin_ 4 0 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: zzgpnm_ 14 15 4 4 13 4 4 7 4 13 13 12 4 4 124 124 124 */ /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: zzrvbf_ 14 17 13 4 4 4 4 13 4 4 7 4 13 13 12 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: copyc_ 14 4 13 13 124 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: movec_ 14 5 13 4 13 124 124 */ /*:ref: zzctrchk_ 14 3 4 4 12 */ extern integer pos_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); extern integer posr_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); extern int prefix_(char *pref, integer *spaces, char *string, ftnlen pref_len, ftnlen string_len); /*:ref: lastnb_ 4 2 13 124 */ /*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ extern doublereal prodad_(doublereal *array, integer *n); extern integer prodai_(integer *array, integer *n); extern int prompt_(char *dspmsg, char *buffer, ftnlen dspmsg_len, ftnlen buffer_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int prop2b_(doublereal *gm, doublereal *pvinit, doublereal *dt, doublereal *pvprop); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: brckti_ 4 3 4 4 4 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: stmp03_ 14 5 7 7 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vequg_ 14 3 7 4 7 */ extern int prsdp_(char *string, doublereal *dpval, ftnlen string_len); /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int prsint_(char *string, integer *intval, ftnlen string_len); /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int prtenc_(integer *number, char *string, ftnlen string_len); extern int prtdec_(char *string, integer *number, ftnlen string_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical prtpkg_(logical *short__, logical *long__, logical *expl, logical *trace, logical *dfault, char *type__, ftnlen type_len); extern logical setprt_(logical *short__, logical *expl, logical *long__, logical *trace, logical *dfault); extern logical msgsel_(char *type__, ftnlen type_len); /*:ref: getdev_ 14 2 13 124 */ /*:ref: wrline_ 14 4 13 13 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ extern int psv2pl_(doublereal *point, doublereal *span1, doublereal *span2, doublereal *plane); /*:ref: return_ 12 0 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int putact_(integer *action); extern int getact_(integer *action); extern int putdev_(char *device, ftnlen device_len); extern int getdev_(char *device, ftnlen device_len); extern int putlms_(char *msg, ftnlen msg_len); extern int getlms_(char *msg, ftnlen msg_len); extern int putsms_(char *msg, ftnlen msg_len); extern int getsms_(char *msg, ftnlen msg_len); extern int pxform_(char *from, char *to, doublereal *et, doublereal *rotate, ftnlen from_len, ftnlen to_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int pxfrm2_(char *from, char *to, doublereal *etfrom, doublereal *etto, doublereal *rotate, ftnlen from_len, ftnlen to_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int q2m_(doublereal *q, doublereal *r__); extern int qderiv_(integer *ndim, doublereal *f0, doublereal *f2, doublereal *delta, doublereal *dfdt); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ extern int qdq2av_(doublereal *q, doublereal *dq, doublereal *av); /*:ref: vhatg_ 14 3 7 4 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: qxq_ 14 3 7 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ extern int quote_(char *in, char *left, char *right, char *out, ftnlen in_len, ftnlen left_len, ftnlen right_len, ftnlen out_len); /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ extern int qxq_(doublereal *q1, doublereal *q2, doublereal *qout); /*:ref: vdot_ 7 2 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ extern int radrec_(doublereal *range, doublereal *ra, doublereal *dec, doublereal *rectan); /*:ref: latrec_ 14 4 7 7 7 7 */ extern int rav2xf_(doublereal *rot, doublereal *av, doublereal *xform); /*:ref: mxm_ 14 3 7 7 7 */ extern int raxisa_(doublereal *matrix, doublereal *axis, doublereal *angle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: m2q_ 14 2 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: pi_ 7 0 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ extern int rdencc_(integer *unit, integer *n, char *data, ftnlen data_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int rdencd_(integer *unit, integer *n, doublereal *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: hx2dp_ 14 6 13 7 12 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int rdenci_(integer *unit, integer *n, integer *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int rdker_(char *kernel, char *line, integer *number, logical *eof, ftnlen kernel_len, ftnlen line_len); extern int rdknew_(char *kernel, ftnlen kernel_len); extern int rdkdat_(char *line, logical *eof, ftnlen line_len); extern int rdklin_(char *kernel, integer *number, ftnlen kernel_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cltext_ 14 2 13 124 */ /*:ref: zzsetnnread_ 14 1 12 */ /*:ref: rdtext_ 14 5 13 13 12 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: failed_ 12 0 */ extern int rdkvar_(char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *eof, ftnlen tabsym_len, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: rdkdat_ 14 3 13 12 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ /*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ /*:ref: tparse_ 14 5 13 7 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ /*:ref: syenqd_ 14 7 13 7 13 4 7 124 124 */ extern int rdnbl_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: rdtext_ 14 5 13 13 12 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int rdtext_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); extern int cltext_(char *file, ftnlen file_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: getlun_ 14 1 4 */ extern int readla_(integer *unit, integer *maxlin, integer *numlin, char *array, logical *eof, ftnlen array_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: readln_ 14 4 4 13 12 124 */ /*:ref: failed_ 12 0 */ extern int readln_(integer *unit, char *line, logical *eof, ftnlen line_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int recazl_(doublereal *rectan, logical *azccw, logical *elplsz, doublereal *range, doublereal *az, doublereal *el); /*:ref: recrad_ 14 4 7 7 7 7 */ /*:ref: twopi_ 7 0 */ extern int reccyl_(doublereal *rectan, doublereal *r__, doublereal *clon, doublereal *z__); /*:ref: twopi_ 7 0 */ extern int recgeo_(doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: reclat_ 14 4 7 7 7 7 */ extern int reclat_(doublereal *rectan, doublereal *radius, doublereal *lon, doublereal *lat); extern int recpgr_(char *body, doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt, ftnlen body_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: plnsns_ 4 1 4 */ /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: brcktd_ 7 3 7 7 7 */ extern int recrad_(doublereal *rectan, doublereal *range, doublereal *ra, doublereal *dec); /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: twopi_ 7 0 */ extern int recsph_(doublereal *rectan, doublereal *r__, doublereal *colat, doublereal *slon); extern int refchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ident_ 14 1 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: rotget_ 14 5 4 7 7 4 12 */ /*:ref: zzrxr_ 14 3 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ /*:ref: xpose_ 14 2 7 7 */ extern int remlac_(integer *ne, integer *loc, char *array, integer *na, ftnlen array_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int remlad_(integer *ne, integer *loc, doublereal *array, integer *na); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int remlai_(integer *ne, integer *loc, integer *array, integer *na); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int removc_(char *item, char *a, ftnlen item_len, ftnlen a_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int removd_(doublereal *item, doublereal *a); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: bsrchd_ 4 3 7 4 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int removi_(integer *item, integer *a); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: bsrchi_ 4 3 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int remsub_(char *in, integer *left, integer *right, char *out, ftnlen in_len, ftnlen out_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ extern int reordc_(integer *iorder, integer *ndim, char *array, ftnlen array_len); extern int reordd_(integer *iorder, integer *ndim, doublereal *array); extern int reordi_(integer *iorder, integer *ndim, integer *array); extern int reordl_(integer *iorder, integer *ndim, logical *array); extern int replch_(char *instr, char *old, char *new__, char *outstr, ftnlen instr_len, ftnlen old_len, ftnlen new_len, ftnlen outstr_len); extern int replwd_(char *instr, integer *nth, char *new__, char *outstr, ftnlen instr_len, ftnlen new_len, ftnlen outstr_len); /*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ /*:ref: fndnwd_ 14 5 13 4 4 4 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ extern int repmc_(char *in, char *marker, char *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen value_len, ftnlen out_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ extern int repmct_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: inttxt_ 14 3 4 13 124 */ /*:ref: lcase_ 14 4 13 13 124 124 */ /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ extern int repmd_(char *in, char *marker, doublereal *value, integer *sigdig, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: dpstr_ 14 4 7 4 13 124 */ /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ 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); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ extern int repmi_(char *in, char *marker, integer *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ extern int repml_(char *in, char *marker, logical *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ extern int repmot_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: intord_ 14 3 4 13 124 */ /*:ref: lcase_ 14 4 13 13 124 124 */ /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ extern int repsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ extern int reset_(void); /*:ref: seterr_ 12 1 12 */ /*:ref: putsms_ 14 2 13 124 */ /*:ref: putlms_ 14 2 13 124 */ /*:ref: accept_ 12 1 12 */ extern logical return_(void); /*:ref: failed_ 12 0 */ /*:ref: getact_ 14 1 4 */ extern int rjust_(char *input, char *output, ftnlen input_len, ftnlen output_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ extern int rmaind_(doublereal *num, doublereal *denom, doublereal *q, doublereal *rem); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int rmaini_(integer *num, integer *denom, integer *q, integer *rem); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int rmdupc_(integer *nelt, char *array, ftnlen array_len); /*:ref: shellc_ 14 3 4 13 124 */ extern int rmdupd_(integer *nelt, doublereal *array); /*:ref: shelld_ 14 2 4 7 */ extern int rmdupi_(integer *nelt, integer *array); /*:ref: shelli_ 14 2 4 4 */ extern int rotate_(doublereal *angle, integer *iaxis, doublereal *mout); extern int rotget_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: tipbod_ 14 5 13 4 7 7 124 */ /*:ref: xpose_ 14 2 7 7 */ /*:ref: ckfrot_ 14 5 4 7 7 4 12 */ /*:ref: tkfram_ 14 4 4 7 4 12 */ /*:ref: zzdynrot_ 14 5 4 4 7 7 4 */ /*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int rotmat_(doublereal *m1, doublereal *angle, integer *iaxis, doublereal *mout); /*:ref: moved_ 14 3 7 4 7 */ extern int rotvec_(doublereal *v1, doublereal *angle, integer *iaxis, doublereal *vout); extern doublereal rpd_(void); extern int rquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *root1, doublereal *root2); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ extern integer rtrim_(char *string, ftnlen string_len); /*:ref: lastnb_ 4 2 13 124 */ extern int saelgv_(doublereal *vec1, doublereal *vec2, doublereal *smajor, doublereal *sminor); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: diags2_ 14 3 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ extern logical samch_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); extern logical samchi_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); /*:ref: eqchr_ 12 4 13 13 124 124 */ extern logical sameai_(integer *a1, integer *a2, integer *ndim); extern logical samsbi_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); /*:ref: nechr_ 12 4 13 13 124 124 */ extern logical samsub_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); extern int sc01_(integer *sc, char *clkstr, doublereal *ticks, doublereal *sclkdp, doublereal *et, integer *npartn, doublereal *parbeg, doublereal *parend, integer *clktyp, ftnlen clkstr_len); extern int sctk01_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); extern int scfm01_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); extern int scte01_(integer *sc, doublereal *sclkdp, doublereal *et); extern int scet01_(integer *sc, doublereal *et, doublereal *sclkdp); extern int scec01_(integer *sc, doublereal *et, doublereal *sclkdp); extern int scty01_(integer *sc, integer *clktyp); extern int scpr01_(integer *sc, integer *npartn, doublereal *parbeg, doublereal *parend); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzscup01_ 14 21 4 4 4 4 4 4 7 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: unitim_ 7 5 7 13 13 124 124 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: moved_ 14 3 7 4 7 */ 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); extern int scanpr_(integer *nmarks, char *marks, integer *mrklen, integer *pnters, ftnlen marks_len); 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: rmdupc_ 14 3 4 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: ncpos_ 4 5 13 13 4 124 124 */ extern int scanrj_(integer *ids, integer *n, integer *ntokns, integer *ident, integer *beg, integer *end); /*:ref: isrchi_ 4 3 4 4 4 */ extern int scardc_(integer *card, char *cell, ftnlen cell_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dechar_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: enchar_ 14 3 4 13 124 */ extern int scardd_(integer *card, doublereal *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int scardi_(integer *card, integer *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int scdecd_(integer *sc, doublereal *sclkdp, char *sclkch, ftnlen sclkch_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scpart_ 14 4 4 4 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: scfmt_ 14 4 4 7 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ extern int sce2c_(integer *sc, doublereal *et, doublereal *sclkdp); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sctype_ 4 1 4 */ /*:ref: scec01_ 14 3 4 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sce2s_(integer *sc, doublereal *et, char *sclkch, ftnlen sclkch_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sce2t_ 14 3 4 7 7 */ /*:ref: scdecd_ 14 4 4 7 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sce2t_(integer *sc, doublereal *et, doublereal *sclkdp); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sctype_ 4 1 4 */ /*:ref: scet01_ 14 3 4 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int scencd_(integer *sc, char *sclkch, doublereal *sclkdp, ftnlen sclkch_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scpart_ 14 4 4 4 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: cpos_ 4 5 13 13 4 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sctiks_ 14 4 4 13 7 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ extern int scfmt_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sctype_ 4 1 4 */ /*:ref: scfm01_ 14 4 4 7 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sclu01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, doublereal *dval, ftnlen name_len); extern int scli01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, ftnlen name_len); extern int scld01_(char *name__, integer *sc, integer *maxnv, integer *n, doublereal *dval, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ extern int scpars_(integer *sc, char *sclkch, logical *error, char *msg, doublereal *sclkdp, ftnlen sclkch_len, ftnlen msg_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sctype_ 4 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: scpart_ 14 4 4 4 7 7 */ /*:ref: cpos_ 4 5 13 13 4 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: scps01_ 14 7 4 13 12 13 7 124 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ extern int scpart_(integer *sc, integer *nparts, doublereal *pstart, doublereal *pstop); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scpr01_ 14 4 4 4 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int scps01_(integer *sc, char *clkstr, logical *error, char *msg, doublereal *ticks, ftnlen clkstr_len, ftnlen msg_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scli01_ 14 6 13 4 4 4 4 124 */ /*:ref: scld01_ 14 6 13 4 4 4 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ extern int scs2e_(integer *sc, char *sclkch, doublereal *et, ftnlen sclkch_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scencd_ 14 4 4 13 7 124 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int sct2e_(integer *sc, doublereal *sclkdp, doublereal *et); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sctype_ 4 1 4 */ /*:ref: scte01_ 14 3 4 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sctiks_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sctype_ 4 1 4 */ /*:ref: sctk01_ 14 4 4 13 7 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sctran_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); extern int scn2id_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); extern int scid2n_(integer *clkid, char *clknam, logical *found, ftnlen clknam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: posr_ 4 5 13 13 4 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: bodn2c_ 14 4 13 4 12 124 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern integer sctype_(integer *sc); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scty01_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int sdiffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: excess_ 14 3 4 13 124 */ extern int sdiffd_(doublereal *a, doublereal *b, doublereal *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sdiffi_(integer *a, integer *b, integer *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sepool_(char *item, integer *fidx, char *contin, char *string, integer *size, integer *lidx, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ extern logical setc_(char *a, char *op, char *b, ftnlen a_len, ftnlen op_len, ftnlen b_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern logical setd_(doublereal *a, char *op, doublereal *b, ftnlen op_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern logical seterr_(logical *status); extern logical failed_(void); extern logical seti_(integer *a, char *op, integer *b, ftnlen op_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int setmsg_(char *msg, ftnlen msg_len); /*:ref: allowd_ 12 0 */ /*:ref: putlms_ 14 2 13 124 */ extern int sgfcon_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sgmeta_ 14 4 4 7 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int sgfpkt_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values, integer *ends); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sgmeta_ 14 4 4 7 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int sgfref_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sgmeta_ 14 4 4 7 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int sgfrvi_(integer *handle, doublereal *descr, doublereal *x, doublereal *value, integer *indx, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intmax_ 4 0 */ /*:ref: sgmeta_ 14 4 4 7 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: errdp_ 14 3 13 7 124 */ extern int sgmeta_(integer *handle, doublereal *descr, integer *mnemon, integer *value); /*:ref: return_ 12 0 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafhsf_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ 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); extern int sgbwfs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *pktsiz, integer *idxtyp, ftnlen segid_len); extern int sgbwvs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *idxtyp, ftnlen segid_len); extern int sgwfpk_(integer *handle, integer *npkts, doublereal *pktdat, integer *nrefs, doublereal *refdat); extern int sgwvpk_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat); extern int sgwes_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: dafhsf_ 14 3 4 4 4 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafcad_ 14 1 4 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafena_ 14 0 */ extern int sharpr_(doublereal *rot); /*:ref: vhatip_ 14 1 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ extern int shellc_(integer *ndim, char *array, ftnlen array_len); /*:ref: swapc_ 14 4 13 13 124 124 */ extern int shelld_(integer *ndim, doublereal *array); /*:ref: swapd_ 14 2 7 7 */ extern int shelli_(integer *ndim, integer *array); /*:ref: swapi_ 14 2 4 4 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ /*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int shiftl_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); extern int shiftr_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); extern int sigdgt_(char *in, char *out, ftnlen in_len, ftnlen out_len); /*:ref: frstnb_ 4 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: cpos_ 4 5 13 13 4 124 124 */ extern int sigerr_(char *msg, ftnlen msg_len); /*:ref: getact_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: seterr_ 12 1 12 */ /*:ref: putsms_ 14 2 13 124 */ /*:ref: freeze_ 14 0 */ /*:ref: outmsg_ 14 2 13 124 */ /*:ref: accept_ 12 1 12 */ /*:ref: byebye_ 14 2 13 124 */ extern int sincpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzsuelin_ 14 1 4 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: zzsfxcor_ 14 22 200 200 200 4 7 13 12 12 12 12 13 4 4 4 4 7 7 7 7 12 124 124 */ extern integer sizec_(char *cell, ftnlen cell_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dechar_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer sized_(doublereal *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer sizei_(integer *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical smsgnd_(doublereal *x, doublereal *y); extern logical smsgni_(integer *x, integer *y); extern logical somfls_(logical *logcls, integer *n); extern logical somtru_(logical *logcls, integer *n); extern int spca2b_(char *text, char *binary, ftnlen text_len, ftnlen binary_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: txtopr_ 14 3 13 4 124 */ /*:ref: spct2b_ 14 3 4 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int spcac_(integer *handle, integer *unit, char *bmark, char *emark, ftnlen bmark_len, ftnlen emark_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: locln_ 14 10 4 13 13 13 4 4 12 124 124 124 */ /*:ref: countc_ 4 5 4 4 4 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafarr_ 14 2 4 4 */ /*:ref: lastnb_ 4 2 13 124 */ extern int spcb2a_(char *binary, char *text, ftnlen binary_len, ftnlen text_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: txtopn_ 14 3 13 4 124 */ /*:ref: spcb2t_ 14 3 13 4 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int spcb2t_(char *binary, integer *unit, ftnlen binary_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafb2t_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: spcec_ 14 2 4 4 */ /*:ref: dafcls_ 14 1 4 */ extern int spcdc_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: dafrrr_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int spcec_(integer *handle, integer *unit); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafsih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int spcopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int spcrfl_(integer *handle, char *line, logical *eoc, ftnlen line_len); extern int spcrnl_(char *line, logical *eoc, ftnlen line_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: pos_ 4 5 13 13 4 124 124 */ extern int spct2b_(integer *unit, char *binary, ftnlen binary_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: daft2b_ 14 4 4 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ltrim_ 4 2 13 124 */ /*:ref: getlun_ 14 1 4 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: dafopw_ 14 3 13 4 124 */ /*:ref: spcac_ 14 6 4 4 13 13 124 124 */ /*:ref: dafcls_ 14 1 4 */ extern doublereal spd_(void); extern int sphcyl_(doublereal *radius, doublereal *colat, doublereal *slon, doublereal *r__, doublereal *clon, doublereal *z__); extern int sphlat_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *radius, doublereal *lon, doublereal *lat); /*:ref: halfpi_ 7 0 */ extern int sphrec_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *rectan); extern doublereal sphsd_(doublereal *radius, doublereal *lon1, doublereal *lat1, doublereal *lon2, doublereal *lat2); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ extern int spk14a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ extern int spk14e_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sgwes_ 14 1 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkacs_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ extern int spkapo_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ extern int spkapp_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ extern int spkaps_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int spkbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); extern int spklef_(char *fname, integer *handle, ftnlen fname_len); extern int spkuef_(integer *handle); extern int spksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: dafcls_ 14 1 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: intmax_ 4 0 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: lnkprv_ 4 2 4 4 */ /*:ref: dpmin_ 7 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafbbs_ 14 1 4 */ /*:ref: daffpa_ 14 1 12 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: dafgn_ 14 2 13 124 */ /*:ref: lnkilb_ 14 3 4 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: lnktl_ 4 2 4 4 */ extern int spkcls_(integer *handle); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafcls_ 14 1 4 */ extern int spkcov_(char *spkfnm, integer *idcode, doublereal *cover, ftnlen spkfnm_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: wninsd_ 14 3 7 7 7 */ /*:ref: dafcls_ 14 1 4 */ extern int spkcpo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obspos, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: spkcvo_ 14 17 13 7 13 13 13 7 7 13 13 7 7 124 124 124 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkcpt_(doublereal *trgpos, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: spkcvt_ 14 17 7 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkcvo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obssta, doublereal *obsepc, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: esrchc_ 4 5 13 4 13 124 124 */ /*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ /*:ref: zzspkfzo_ 14 9 4 7 13 13 200 7 7 124 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: zzspkfao_ 14 10 4 7 13 13 200 7 7 7 124 124 */ /*:ref: zzcorsxf_ 14 4 12 7 7 7 */ extern int spkcvt_(doublereal *trgsta, doublereal *trgepc, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: esrchc_ 4 5 13 4 13 124 124 */ /*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ /*:ref: zzspkfzt_ 14 9 200 7 13 13 4 7 7 124 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: zzspkfat_ 14 10 200 7 13 13 4 7 7 7 124 124 */ /*:ref: zzcorsxf_ 14 4 12 7 7 7 */ extern int spke01_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: moved_ 14 3 7 4 7 */ extern int spke02_(doublereal *et, doublereal *record, doublereal *xyzdot); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: chbint_ 14 6 7 4 7 7 7 7 */ extern int spke03_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: chbval_ 14 5 7 4 7 7 7 */ extern int spke05_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: prop2b_ 14 4 7 7 7 7 */ /*:ref: pi_ 7 0 */ /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spke08_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: xposeg_ 14 4 7 4 4 7 */ /*:ref: lgresp_ 7 6 4 7 7 7 7 7 */ extern int spke09_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: xposeg_ 14 4 7 4 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: lgrint_ 7 5 4 7 7 7 7 */ extern int spke10_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: pi_ 7 0 */ /*:ref: xxsgp4i_ 14 3 7 7 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: xxsgp4e_ 14 2 7 7 */ /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zzteme_ 14 3 7 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int spke12_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: hrmesp_ 14 8 4 7 7 7 7 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spke13_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spke14_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chbval_ 14 5 7 4 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spke15_(doublereal *et, doublereal *recin, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: dpr_ 7 0 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: prop2b_ 14 4 7 7 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: pi_ 7 0 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int spke17_(doublereal *et, doublereal *recin, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqncpv_ 14 6 7 7 7 7 7 7 */ extern int spke18_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: xpsgip_ 14 3 4 4 7 */ /*:ref: lgrint_ 7 5 4 7 7 7 7 */ /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int spke19_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: xpsgip_ 14 3 4 4 7 */ /*:ref: lgrint_ 7 5 4 7 7 7 7 */ extern int spke20_(doublereal *et, doublereal *record, doublereal *xyzdot); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: chbigr_ 14 6 4 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern int spke21_(doublereal *et, doublereal *record, doublereal *state); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ extern int spkez_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ extern int spkezp_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: ltrim_ 4 2 13 124 */ /*:ref: eqchr_ 12 4 13 13 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: spkapo_ 14 9 4 7 13 7 13 7 7 124 124 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ extern int spkgeo_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: frstnp_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ extern int spkgps_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: frstnp_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ extern int spkltc_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int spkobj_(char *spkfnm, integer *ids, ftnlen spkfnm_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafopr_ 14 3 13 4 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: dafcls_ 14 1 4 */ extern int spkopa_(char *file, integer *handle, ftnlen file_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: exists_ 12 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafopw_ 14 3 13 4 124 */ extern int spkopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkpds_(integer *body, integer *center, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ extern int spkpv_(integer *handle, doublereal *descr, doublereal *et, char *ref, doublereal *state, integer *center, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkpvn_(integer *handle, doublereal *descr, doublereal *et, integer *ref, doublereal *state, integer *center); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: spkr01_ 14 4 4 7 7 7 */ /*:ref: spke01_ 14 3 7 7 7 */ /*:ref: spkr02_ 14 4 4 7 7 7 */ /*:ref: spke02_ 14 3 7 7 7 */ /*:ref: spkr03_ 14 4 4 7 7 7 */ /*:ref: spke03_ 14 3 7 7 7 */ /*:ref: spkr05_ 14 4 4 7 7 7 */ /*:ref: spke05_ 14 3 7 7 7 */ /*:ref: spkr08_ 14 4 4 7 7 7 */ /*:ref: spke08_ 14 3 7 7 7 */ /*:ref: spkr09_ 14 4 4 7 7 7 */ /*:ref: spke09_ 14 3 7 7 7 */ /*:ref: spkr10_ 14 4 4 7 7 7 */ /*:ref: spke10_ 14 3 7 7 7 */ /*:ref: spkr12_ 14 4 4 7 7 7 */ /*:ref: spke12_ 14 3 7 7 7 */ /*:ref: spkr13_ 14 4 4 7 7 7 */ /*:ref: spke13_ 14 3 7 7 7 */ /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spkr14_ 14 4 4 7 7 7 */ /*:ref: spke14_ 14 3 7 7 7 */ /*:ref: spkr15_ 14 4 4 7 7 7 */ /*:ref: spke15_ 14 3 7 7 7 */ /*:ref: spkr17_ 14 4 4 7 7 7 */ /*:ref: spke17_ 14 3 7 7 7 */ /*:ref: spkr18_ 14 4 4 7 7 7 */ /*:ref: spke18_ 14 3 7 7 7 */ /*:ref: spkr19_ 14 4 4 7 7 7 */ /*:ref: spke19_ 14 3 7 7 7 */ /*:ref: spkr20_ 14 4 4 7 7 7 */ /*:ref: spke20_ 14 3 7 7 7 */ /*:ref: spkr21_ 14 4 4 7 7 7 */ /*:ref: spke21_ 14 3 7 7 7 */ extern int spkr01_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkr05_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int spkr08_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: odd_ 12 1 4 */ extern int spkr09_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: odd_ 12 1 4 */ extern int spkr10_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ /*:ref: sgmeta_ 14 4 4 7 4 4 */ /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkr12_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spkr08_ 14 4 4 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkr13_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spkr09_ 14 4 4 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkr14_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ extern int spkr15_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int spkr17_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int spkr18_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: odd_ 12 1 4 */ /*:ref: lstltd_ 4 3 7 4 7 */ extern int spkr19_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: odd_ 12 1 4 */ extern int spkr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: j2000_ 7 0 */ /*:ref: spd_ 7 0 */ /*:ref: remlad_ 14 4 4 4 7 4 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkr21_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lstltd_ 4 3 7 4 7 */ extern int spks01_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int spks02_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int spks03_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int spks05_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int spks08_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafada_ 14 2 7 4 */ extern int spks09_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafada_ 14 2 7 4 */ extern int spks10_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sgmeta_ 14 4 4 7 4 4 */ /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ /*:ref: sgfref_ 14 5 4 7 4 4 7 */ /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ /*:ref: sgwes_ 14 1 4 */ extern int spks12_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spks08_ 14 5 4 4 4 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spks13_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spks09_ 14 5 4 4 4 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int spks14_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: irfnam_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sgfcon_ 14 5 4 7 4 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ /*:ref: spk14b_ 14 10 4 13 4 4 13 7 7 4 124 124 */ /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ /*:ref: sgfref_ 14 5 4 7 4 4 7 */ /*:ref: spk14a_ 14 4 4 4 7 7 */ /*:ref: spk14e_ 14 1 4 */ extern int spks15_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafada_ 14 2 7 4 */ extern int spks17_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafada_ 14 2 7 4 */ extern int spks18_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dafada_ 14 2 7 4 */ extern int spks19_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: lstltd_ 4 3 7 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: dafhfn_ 14 3 4 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dafada_ 14 2 7 4 */ extern int spks20_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: j2000_ 7 0 */ /*:ref: spd_ 7 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int spks21_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int spkssb_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int spksub_(integer *handle, doublereal *descr, char *ident, doublereal *begin, doublereal *end, integer *newh, ftnlen ident_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: spks01_ 14 5 4 4 4 7 7 */ /*:ref: dafena_ 14 0 */ /*:ref: spks02_ 14 5 4 4 4 7 7 */ /*:ref: spks03_ 14 5 4 4 4 7 7 */ /*:ref: spks05_ 14 5 4 4 4 7 7 */ /*:ref: spks08_ 14 5 4 4 4 7 7 */ /*:ref: spks09_ 14 5 4 4 4 7 7 */ /*:ref: spks10_ 14 6 4 7 4 7 13 124 */ /*:ref: spks12_ 14 5 4 4 4 7 7 */ /*:ref: spks13_ 14 5 4 4 4 7 7 */ /*:ref: spks14_ 14 6 4 7 4 7 13 124 */ /*:ref: spks15_ 14 5 4 4 4 7 7 */ /*:ref: spks17_ 14 5 4 4 4 7 7 */ /*:ref: spks18_ 14 5 4 4 4 7 7 */ /*:ref: spks19_ 14 5 4 4 4 7 7 */ /*:ref: spks20_ 14 5 4 4 4 7 7 */ /*:ref: spks21_ 14 5 4 4 4 7 7 */ /*:ref: errint_ 14 3 13 4 124 */ extern int spkuds_(doublereal *descr, integer *body, integer *center, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *baddrs, integer *eaddrs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: chckid_ 14 5 13 4 13 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: chckid_ 14 5 13 4 13 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int spkw08_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: zzwahr_ 14 2 7 7 */ /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ /*:ref: sgwes_ 14 1 4 */ extern int spkw12_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: even_ 12 1 4 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: even_ 12 1 4 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: dpr_ 7 0 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int spkw19_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *nintvl, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *epochs, doublereal *ivlbds, logical *sellst, ftnlen frame_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int spkw20_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *dscale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: spd_ 7 0 */ /*:ref: j2000_ 7 0 */ /*:ref: chckid_ 14 5 13 4 13 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int spkw21_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, integer *dlsize, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ /*:ref: dafbna_ 14 4 4 7 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dafada_ 14 2 7 4 */ /*:ref: dafena_ 14 0 */ extern int srfc2s_(integer *code, integer *bodyid, char *srfstr, logical *isname, ftnlen srfstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ extern int srfcss_(integer *code, char *bodstr, char *srfstr, logical *isname, ftnlen bodstr_len, ftnlen srfstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ /*:ref: intstr_ 14 3 4 13 124 */ extern int srfnrm_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *srfpts, doublereal *normls, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dskgtl_ 14 2 4 7 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ /*:ref: vhatip_ 14 1 7 */ extern int srfrec_(integer *body, doublereal *lon, doublereal *lat, doublereal *rectan); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: edpnt_ 14 5 7 7 7 7 7 */ extern int srfs2c_(char *srfstr, char *bodstr, integer *code, logical *found, ftnlen srfstr_len, ftnlen bodstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ extern int srfscc_(char *srfstr, integer *bodyid, integer *code, logical *found, ftnlen srfstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: eqchr_ 12 4 13 13 124 124 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: dasine_ 7 2 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ /*:ref: clight_ 7 0 */ /*:ref: touchd_ 7 1 7 */ extern int ssizec_(integer *size, char *cell, ftnlen cell_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: enchar_ 14 3 4 13 124 */ extern int ssized_(integer *size, doublereal *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int ssizei_(integer *size, integer *cell); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int stcc01_(char *catfnm, char *tabnam, logical *istyp1, char *errmsg, ftnlen catfnm_len, ftnlen tabnam_len, ftnlen errmsg_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ekopr_ 14 3 13 4 124 */ /*:ref: eknseg_ 4 1 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ekssum_ 14 14 4 4 13 4 4 13 13 4 4 12 12 124 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: nblen_ 4 2 13 124 */ /*:ref: ekcls_ 14 1 4 */ extern int stcf01_(char *catnam, doublereal *westra, doublereal *eastra, doublereal *sthdec, doublereal *nthdec, integer *nstars, ftnlen catnam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dpr_ 7 0 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ /*:ref: ekfind_ 14 6 13 4 12 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int stcg01_(integer *index, doublereal *ra, doublereal *dec, doublereal *rasig, doublereal *decsig, integer *catnum, char *sptype, doublereal *vmag, ftnlen sptype_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ekgd_ 14 6 4 4 4 7 12 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ekgi_ 14 6 4 4 4 4 12 12 */ /*:ref: ekgc_ 14 7 4 4 4 13 12 12 124 */ /*:ref: rpd_ 7 0 */ extern int stcl01_(char *catfnm, char *tabnam, integer *handle, ftnlen catfnm_len, ftnlen tabnam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: stcc01_ 14 7 13 13 12 13 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eklef_ 14 3 13 4 124 */ extern int stdio_(char *name__, integer *unit, ftnlen name_len); /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int stelab_(doublereal *pobj, doublereal *vobs, doublereal *appobj); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: clight_ 7 0 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int stlabx_(doublereal *pobj, doublereal *vobs, doublereal *corpos); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int stmp03_(doublereal *x, doublereal *c0, doublereal *c1, doublereal *c2, doublereal *c3); /*:ref: dpmax_ 7 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int stpool_(char *item, integer *nth, char *contin, char *nthstr, integer *size, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen nthstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int str2et_(char *timstr, doublereal *et, ftnlen timstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: timdef_ 14 6 13 13 13 124 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: ttrans_ 14 5 13 13 7 124 124 */ /*:ref: tchckd_ 14 2 13 124 */ /*:ref: tparch_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ /*:ref: texpyr_ 14 1 4 */ /*:ref: jul2gr_ 14 4 4 4 4 4 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: dpfmt_ 14 5 7 13 13 124 124 */ /*:ref: gr2jul_ 14 4 4 4 4 4 */ extern int subpnt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: clight_ 7 0 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: touchd_ 7 1 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vdist_ 7 2 7 7 */ extern int subslr_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: clight_ 7 0 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ /*:ref: vequ_ 14 2 7 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: ltime_ 14 7 7 4 13 4 7 7 124 */ /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ extern int suffix_(char *suff, integer *spaces, char *string, ftnlen suff_len, ftnlen string_len); /*:ref: lastnb_ 4 2 13 124 */ extern doublereal sumad_(doublereal *array, integer *n); extern integer sumai_(integer *array, integer *n); extern int surfnm_(doublereal *a, doublereal *b, doublereal *c__, doublereal *point, doublereal *normal); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vhatip_ 14 1 7 */ extern int surfpt_(doublereal *positn, doublereal *u, doublereal *a, doublereal *b, doublereal *c__, doublereal *point, logical *found); /*:ref: return_ 12 0 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int surfpv_(doublereal *stvrtx, doublereal *stdir, doublereal *a, doublereal *b, doublereal *c__, doublereal *stx, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dvhat_ 14 2 7 7 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ extern int swapac_(integer *n, integer *locn, integer *m, integer *locm, char *array, ftnlen array_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: swapc_ 14 4 13 13 124 124 */ /*:ref: cyacip_ 14 6 4 13 4 13 124 124 */ extern int swapad_(integer *n, integer *locn, integer *m, integer *locm, doublereal *array); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: swapd_ 14 2 7 7 */ /*:ref: cyadip_ 14 5 4 13 4 7 124 */ extern int swapai_(integer *n, integer *locn, integer *m, integer *locm, integer *array); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: swapi_ 14 2 4 4 */ /*:ref: cyaiip_ 14 5 4 13 4 4 124 */ extern int swapc_(char *a, char *b, ftnlen a_len, ftnlen b_len); extern int swapd_(doublereal *a, doublereal *b); extern int swapi_(integer *a, integer *b); extern int sxform_(char *from, char *to, doublereal *et, doublereal *xform, ftnlen from_len, ftnlen to_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sydelc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int sydeld_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: cardd_ 4 1 7 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: remlad_ 14 4 4 4 7 4 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int sydeli_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern integer sydimc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer sydimd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer sydimi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int sydupd_(char *name__, char *copy, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: cardd_ 4 1 7 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: sized_ 4 1 7 */ /*:ref: remlad_ 14 4 4 4 7 4 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int sydupi_(char *name__, char *copy, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int syenqd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: inslad_ 14 5 7 4 4 7 4 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int syenqi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int syfetc_(integer *nth, char *tabsym, integer *tabptr, char *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen tabval_len, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int syfetd_(integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int syfeti_(integer *nth, char *tabsym, integer *tabptr, integer *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: movec_ 14 5 13 4 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sygetd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, integer *n, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int sygeti_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *n, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int synthd_(char *name__, integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int synthi_(char *name__, integer *nth, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int syordc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: shellc_ 14 3 4 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int syordd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: shelld_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int syordi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: shelli_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int sypopd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: cardd_ 4 1 7 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlad_ 14 4 4 4 7 4 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int sypopi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sypshd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: inslad_ 14 5 7 4 4 7 4 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int sypshi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ extern int syputd_(char *name__, doublereal *values, integer *n, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: cardd_ 4 1 7 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: sized_ 4 1 7 */ /*:ref: remlad_ 14 4 4 4 7 4 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: inslad_ 14 5 7 4 4 7 4 */ extern int syputi_(char *name__, integer *values, integer *n, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sydelc_ 14 7 13 13 4 13 124 124 124 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: swapac_ 14 6 4 4 4 4 13 124 */ /*:ref: swapai_ 14 5 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int syrend_(char *old, char *new__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: swapad_ 14 5 4 4 4 4 7 */ /*:ref: swapac_ 14 6 4 4 4 4 13 124 */ /*:ref: swapai_ 14 5 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int syreni_(char *old, char *new__, char *tabsym, integer *tabptr, integer *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sydeli_ 14 6 13 13 4 4 124 124 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: swapai_ 14 5 4 4 4 4 4 */ /*:ref: swapac_ 14 6 4 4 4 4 13 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: movec_ 14 5 13 4 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlac_ 14 5 4 4 13 4 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int sysetd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: cardd_ 4 1 7 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlad_ 14 4 4 4 7 4 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: sized_ 4 1 7 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: inslad_ 14 5 7 4 4 7 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int syseti_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: lstlec_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: remlai_ 14 4 4 4 4 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sizei_ 4 1 4 */ /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: inslai_ 14 5 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int sytrnc_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: swapc_ 14 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sytrnd_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: swapd_ 14 2 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int sytrni_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: sumai_ 4 2 4 4 */ /*:ref: swapi_ 14 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int tangpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, char *dref, doublereal *dvec, doublereal *tanpt, doublereal *alt, doublereal *range, doublereal *srfpt, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len, ftnlen dref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: edpnt_ 14 5 7 7 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: nplnpt_ 14 5 7 7 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: clight_ 7 0 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vrel_ 7 2 7 7 */ extern int tcheck_(doublereal *tvec, char *type__, logical *mods, char *modify, logical *ok, char *error, ftnlen type_len, ftnlen modify_len, ftnlen error_len); extern int tparch_(char *type__, ftnlen type_len); extern int tchckd_(char *type__, ftnlen type_len); /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ extern int termpt_(char *method, char *ilusrc, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *trmvcs, ftnlen method_len, ftnlen ilusrc_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzsrftrk_ 14 2 4 12 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: zzmaxrad_ 14 1 7 */ /*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: zzedtmpt_ 14 8 12 7 7 7 7 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ extern int texpyr_(integer *year); extern int tsetyr_(integer *year); extern int timdef_(char *action, char *item, char *value, ftnlen action_len, ftnlen item_len, ftnlen value_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ extern int timout_(doublereal *et, char *pictur, char *output, ftnlen pictur_len, ftnlen output_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scanpr_ 14 5 4 13 4 4 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: scan_ 14 12 13 13 4 4 4 4 4 4 4 4 124 124 */ /*:ref: timdef_ 14 6 13 13 13 124 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: scanrj_ 14 6 4 4 4 4 4 4 */ /*:ref: unitim_ 7 5 7 13 13 124 124 */ /*:ref: spd_ 7 0 */ /*:ref: j2000_ 7 0 */ /*:ref: j1950_ 7 0 */ /*:ref: brckti_ 4 3 4 4 4 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: dpfmt_ 14 5 7 13 13 124 124 */ /*:ref: ttrans_ 14 5 13 13 7 124 124 */ /*:ref: gr2jul_ 14 4 4 4 4 4 */ /*:ref: jul2gr_ 14 4 4 4 4 4 */ /*:ref: rmaind_ 14 4 7 7 7 7 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: lcase_ 14 4 13 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int tipbod_(char *ref, integer *body, doublereal *et, doublereal *tipm, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: tisbod_ 14 5 13 4 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int tisbod_(char *ref, integer *body, doublereal *et, doublereal *tsipm, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzhsiini_ 14 3 4 4 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: spd_ 7 0 */ /*:ref: pckmat_ 14 5 4 7 4 7 12 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: ccifrm_ 14 7 4 4 4 13 4 12 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzbodbry_ 4 1 4 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: j2000_ 7 0 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: bodfnd_ 12 3 4 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zzhsiavl_ 14 2 4 4 */ /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: rpd_ 7 0 */ /*:ref: vdotg_ 7 3 7 7 4 */ /*:ref: twopi_ 7 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: mxm_ 14 3 7 7 7 */ extern int tkfram_(integer *frcode, doublereal *rot, integer *frame, logical *found); /*:ref: lnkini_ 14 2 4 4 */ /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnktl_ 4 2 4 4 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: locati_ 14 6 4 4 4 4 4 12 */ /*:ref: cvpool_ 14 3 13 12 124 */ /*:ref: dwpool_ 14 2 13 124 */ /*:ref: ident_ 14 1 7 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: frmnam_ 14 3 4 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: sharpr_ 14 1 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: vhatg_ 14 3 7 4 7 */ /*:ref: q2m_ 14 2 7 7 */ /*:ref: swpool_ 14 5 13 4 13 124 124 */ extern int tkvrsn_(char *item, char *verstr, ftnlen item_len, ftnlen verstr_len); /*:ref: eqstr_ 12 4 13 13 124 124 */ extern int tostdo_(char *line, ftnlen line_len); /*:ref: stdio_ 14 3 13 4 124 */ /*:ref: writln_ 14 3 13 4 124 */ extern H_f touchc_(char *ret_val, ftnlen ret_val_len, char *string, ftnlen string_len); extern doublereal touchd_(doublereal *dp); extern integer touchi_(integer *int__); extern logical touchl_(logical *log__); extern int tparse_(char *string, doublereal *sp2000, char *errmsg, ftnlen string_len, ftnlen errmsg_len); /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: j2000_ 7 0 */ /*:ref: spd_ 7 0 */ /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ /*:ref: texpyr_ 14 1 4 */ /*:ref: rmaini_ 14 4 4 4 4 4 */ 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); /*:ref: zztpats_ 12 6 4 4 13 13 124 124 */ /*:ref: zztokns_ 12 4 13 13 124 124 */ /*:ref: zzcmbt_ 12 5 13 13 12 124 124 */ /*:ref: zzsubt_ 12 5 13 13 12 124 124 */ /*:ref: zzrept_ 12 5 13 13 12 124 124 */ /*:ref: zzremt_ 12 2 13 124 */ /*:ref: zzist_ 12 2 13 124 */ /*:ref: zznote_ 12 4 13 4 4 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzunpck_ 12 11 13 12 7 4 13 13 13 124 124 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: intmax_ 4 0 */ /*:ref: zzvalt_ 12 6 13 4 4 13 124 124 */ /*:ref: zzgrep_ 12 2 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: zzispt_ 12 4 13 4 4 124 */ /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ extern int tpictr_(char *sample, char *pictur, logical *ok, char *errmsg, ftnlen sample_len, ftnlen pictur_len, ftnlen errmsg_len); /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ extern doublereal trace_(doublereal *matrix); extern doublereal traceg_(doublereal *matrix, integer *ndim); extern int trcpkg_(integer *depth, integer *index, char *module, char *trace, char *name__, ftnlen module_len, ftnlen trace_len, ftnlen name_len); extern int chkin_(char *module, ftnlen module_len); extern int chkout_(char *module, ftnlen module_len); extern int trcdep_(integer *depth); extern int trcmxd_(integer *depth); extern int trcnam_(integer *index, char *name__, ftnlen name_len); extern int qcktrc_(char *trace, ftnlen trace_len); extern int freeze_(void); extern int trcoff_(void); /*:ref: wrline_ 14 4 13 13 124 124 */ /*:ref: frstnb_ 4 2 13 124 */ /*:ref: getdev_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: getact_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern doublereal trgsep_(doublereal *et, char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzspin_ 14 20 13 13 13 13 13 13 13 13 4 4 7 4 124 124 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ extern int ttrans_(char *from, char *to, doublereal *tvec, ftnlen from_len, ftnlen to_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spd_ 7 0 */ /*:ref: j2000_ 7 0 */ /*:ref: ssizec_ 14 3 4 13 124 */ /*:ref: insrtc_ 14 4 13 13 124 124 */ /*:ref: orderc_ 14 4 13 4 4 124 */ /*:ref: reordc_ 14 4 4 4 13 124 */ /*:ref: reordi_ 14 3 4 4 4 */ /*:ref: reordl_ 14 3 4 4 12 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: swpool_ 14 5 13 4 13 124 124 */ /*:ref: zzcvpool_ 14 4 13 4 12 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: rmaini_ 14 4 4 4 4 4 */ /*:ref: lstlei_ 4 3 4 4 4 */ /*:ref: odd_ 12 1 4 */ /*:ref: rmaind_ 14 4 7 7 7 7 */ /*:ref: elemc_ 12 4 13 13 124 124 */ /*:ref: unitim_ 7 5 7 13 13 124 124 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: lstlti_ 4 3 4 4 4 */ extern doublereal twopi_(void); extern int twovec_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *mout); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: xpose_ 14 2 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int twovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int txtopn_(char *fname, integer *unit, ftnlen fname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: getlun_ 14 1 4 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int txtopr_(char *fname, integer *unit, ftnlen fname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: getlun_ 14 1 4 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern doublereal tyear_(void); extern int ucase_(char *in, char *out, ftnlen in_len, ftnlen out_len); extern int ucrss_(doublereal *v1, doublereal *v2, doublereal *vout); /*:ref: vnorm_ 7 1 7 */ extern int uddc_(U_fp udfunc, doublereal *x, doublereal *dx, logical *isdecr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: uddf_ 14 4 200 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int uddf_(S_fp udfunc, doublereal *x, doublereal *dx, doublereal *deriv); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ extern int udf_(doublereal *x, doublereal *value); extern int unionc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: sizec_ 4 2 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: excess_ 14 3 4 13 124 */ extern int uniond_(doublereal *a, doublereal *b, doublereal *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int unioni_(integer *a, integer *b, integer *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: scardi_ 14 2 4 4 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern doublereal unitim_(doublereal *epoch, char *insys, char *outsys, ftnlen insys_len, ftnlen outsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spd_ 7 0 */ /*:ref: j2000_ 7 0 */ /*:ref: validc_ 14 4 4 4 13 124 */ /*:ref: ssizec_ 14 3 4 13 124 */ /*:ref: unionc_ 14 6 13 13 13 124 124 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: swpool_ 14 5 13 4 13 124 124 */ /*:ref: zzcvpool_ 14 4 13 4 12 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: somfls_ 12 2 12 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: insrtc_ 14 4 13 13 124 124 */ /*:ref: setc_ 12 6 13 13 13 124 124 124 */ /*:ref: elemc_ 12 4 13 13 124 124 */ extern int unorm_(doublereal *v1, doublereal *vout, doublereal *vmag); /*:ref: vnorm_ 7 1 7 */ extern int unormg_(doublereal *v1, integer *ndim, doublereal *vout, doublereal *vmag); /*:ref: vnormg_ 7 2 7 4 */ extern int utc2et_(char *utcstr, doublereal *et, ftnlen utcstr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ /*:ref: texpyr_ 14 1 4 */ /*:ref: ttrans_ 14 5 13 13 7 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int vadd_(doublereal *v1, doublereal *v2, doublereal *vout); extern int vaddg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); extern int validc_(integer *size, integer *n, char *a, ftnlen a_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rmdupc_ 14 3 4 13 124 */ /*:ref: ssizec_ 14 3 4 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ extern int validd_(integer *size, integer *n, doublereal *a); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rmdupd_ 14 2 4 7 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: scardd_ 14 2 4 7 */ extern int validi_(integer *size, integer *n, integer *a); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rmdupi_ 14 2 4 4 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: scardi_ 14 2 4 4 */ extern int vcrss_(doublereal *v1, doublereal *v2, doublereal *vout); extern doublereal vdist_(doublereal *v1, doublereal *v2); /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ extern doublereal vdistg_(doublereal *v1, doublereal *v2, integer *ndim); extern doublereal vdot_(doublereal *v1, doublereal *v2); extern doublereal vdotg_(doublereal *v1, doublereal *v2, integer *ndim); extern int vequ_(doublereal *vin, doublereal *vout); extern int vequg_(doublereal *vin, integer *ndim, doublereal *vout); extern int vhat_(doublereal *v1, doublereal *vout); /*:ref: vnorm_ 7 1 7 */ extern int vhatg_(doublereal *v1, integer *ndim, doublereal *vout); /*:ref: vnormg_ 7 2 7 4 */ extern int vhatip_(doublereal *v); /*:ref: vnorm_ 7 1 7 */ extern int vlcom_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); extern int vlcom3_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *c__, doublereal *v3, doublereal *sum); extern int vlcomg_(integer *n, doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); extern int vminug_(doublereal *vin, integer *ndim, doublereal *vout); extern int vminus_(doublereal *v1, doublereal *vout); extern doublereal vnorm_(doublereal *v1); extern doublereal vnormg_(doublereal *v1, integer *ndim); extern int vpack_(doublereal *x, doublereal *y, doublereal *z__, doublereal *v); extern int vperp_(doublereal *a, doublereal *b, doublereal *p); /*:ref: vproj_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ extern int vprjp_(doublereal *vin, doublereal *plane, doublereal *vout); /*:ref: return_ 12 0 */ /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: approx_ 12 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ extern int vprjpi_(doublereal *vin, doublereal *projpl, doublereal *invpl, doublereal *vout, logical *found); /*:ref: return_ 12 0 */ /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: approx_ 12 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int vproj_(doublereal *a, doublereal *b, doublereal *p); /*:ref: vdot_ 7 2 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ extern int vprojg_(doublereal *a, doublereal *b, integer *ndim, doublereal *p); /*:ref: vdotg_ 7 3 7 7 4 */ /*:ref: vsclg_ 14 4 7 7 4 7 */ extern doublereal vrel_(doublereal *v1, doublereal *v2); /*:ref: vdist_ 7 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ extern doublereal vrelg_(doublereal *v1, doublereal *v2, integer *ndim); /*:ref: vdistg_ 7 3 7 7 4 */ /*:ref: vnormg_ 7 2 7 4 */ extern int vrotv_(doublereal *v, doublereal *axis, doublereal *theta, doublereal *r__); /*:ref: vnorm_ 7 1 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vproj_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern int vscl_(doublereal *s, doublereal *v1, doublereal *vout); extern int vsclg_(doublereal *s, doublereal *v1, integer *ndim, doublereal *vout); extern int vsclip_(doublereal *s, doublereal *v); extern doublereal vsep_(doublereal *v1, doublereal *v2); /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: pi_ 7 0 */ extern doublereal vsepg_(doublereal *v1, doublereal *v2, integer *ndim); /*:ref: vnormg_ 7 2 7 4 */ /*:ref: vdotg_ 7 3 7 7 4 */ /*:ref: pi_ 7 0 */ extern int vsub_(doublereal *v1, doublereal *v2, doublereal *vout); extern int vsubg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); extern doublereal vtmv_(doublereal *v1, doublereal *matrix, doublereal *v2); extern doublereal vtmvg_(doublereal *v1, doublereal *matrix, doublereal *v2, integer *nrow, integer *ncol); extern int vupack_(doublereal *v, doublereal *x, doublereal *y, doublereal *z__); extern logical vzero_(doublereal *v); extern logical vzerog_(doublereal *v, integer *ndim); extern integer wdcnt_(char *string, ftnlen string_len); extern integer wdindx_(char *string, char *word, ftnlen string_len, ftnlen word_len); /*:ref: lastnb_ 4 2 13 124 */ /*:ref: frstnb_ 4 2 13 124 */ extern integer wncard_(doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: even_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wncomd_(doublereal *left, doublereal *right, doublereal *window, doublereal *result); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: wninsd_ 14 3 7 7 7 */ /*:ref: failed_ 12 0 */ extern int wncond_(doublereal *left, doublereal *right, doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: wnexpd_ 14 3 7 7 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int wndifd_(doublereal *a, doublereal *b, doublereal *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: copyd_ 14 2 7 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern logical wnelmd_(doublereal *point, doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int wnexpd_(doublereal *left, doublereal *right, doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int wnextd_(char *side, doublereal *window, ftnlen side_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wnfetd_(doublereal *window, integer *n, doublereal *left, doublereal *right); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wnfild_(doublereal *smlgap, doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int wnfltd_(doublereal *smlint, doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern logical wnincd_(doublereal *left, doublereal *right, doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int wninsd_(doublereal *left, doublereal *right, doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: excess_ 14 3 4 13 124 */ extern int wnintd_(doublereal *a, doublereal *b, doublereal *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical wnreld_(doublereal *a, char *op, doublereal *b, ftnlen op_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: wnincd_ 12 3 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wnsumd_(doublereal *window, doublereal *meas, doublereal *avg, doublereal *stddev, integer *idxsml, integer *idxlon); /*:ref: return_ 12 0 */ /*:ref: cardd_ 4 1 7 */ /*:ref: even_ 12 1 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wnunid_(doublereal *a, doublereal *b, doublereal *c__); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: excess_ 14 3 4 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wnvald_(integer *size, integer *n, doublereal *window); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ extern int wrencc_(integer *unit, integer *n, char *data, ftnlen data_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wrencd_(integer *unit, integer *n, doublereal *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dp2hx_ 14 4 7 13 4 124 */ extern int wrenci_(integer *unit, integer *n, integer *data); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: int2hx_ 14 4 4 13 4 124 */ extern int writla_(integer *numlin, char *array, integer *unit, ftnlen array_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: writln_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ extern int writln_(char *line, integer *unit, ftnlen line_len); /*:ref: rtrim_ 4 2 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wrkvar_(integer *unit, char *name__, char *dirctv, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen dirctv_len, ftnlen tabsym_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sydimd_ 4 6 13 13 4 7 124 124 */ /*:ref: synthd_ 14 9 13 4 13 4 7 7 12 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: rjust_ 14 4 13 13 124 124 */ /*:ref: ioerr_ 14 5 13 13 4 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int wrline_(char *device, char *line, ftnlen device_len, ftnlen line_len); extern int clline_(char *device, ftnlen device_len); /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: ltrim_ 4 2 13 124 */ /*:ref: fndlun_ 14 1 4 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ extern int xdda_(doublereal *vertex, doublereal *raydir, integer *grdext, integer *maxnvx, integer *nvx, integer *voxlst); /*:ref: return_ 12 0 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: brckti_ 4 3 4 4 4 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: zzingrd_ 12 2 4 4 */ extern int xf2eul_(doublereal *xform, integer *axisa, integer *axisb, integer *axisc, doublereal *eulang, logical *unique); extern int eul2xf_(doublereal *eulang, integer *axisa, integer *axisb, integer *axisc, doublereal *xform); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: mxmt_ 14 3 7 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ /*:ref: mxm_ 14 3 7 7 7 */ extern int xf2rav_(doublereal *xform, doublereal *rot, doublereal *av); /*:ref: mtxm_ 14 3 7 7 7 */ extern int xfmsta_(doublereal *istate, char *icosys, char *ocosys, char *body, doublereal *ostate, ftnlen icosys_len, ftnlen ocosys_len, ftnlen body_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vequg_ 14 3 7 4 7 */ /*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: cylrec_ 14 4 7 7 7 7 */ /*:ref: drdcyl_ 14 4 7 7 7 7 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: drdlat_ 14 4 7 7 7 7 */ /*:ref: sphrec_ 14 4 7 7 7 7 */ /*:ref: drdsph_ 14 4 7 7 7 7 */ /*:ref: georec_ 14 6 7 7 7 7 7 7 */ /*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ /*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ /*:ref: drdpgr_ 14 8 13 7 7 7 7 7 7 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: reccyl_ 14 4 7 7 7 7 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: recsph_ 14 4 7 7 7 7 */ /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ /*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ /*:ref: dcyldr_ 14 4 7 7 7 7 */ /*:ref: dlatdr_ 14 4 7 7 7 7 */ /*:ref: dsphdr_ 14 4 7 7 7 7 */ /*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ /*:ref: dpgrdr_ 14 8 13 7 7 7 7 7 7 124 */ extern int xposbl_(doublereal *bmat, integer *nrow, integer *ncol, integer *bsize, doublereal *btmat); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int xpose_(doublereal *m1, doublereal *mout); extern int xposeg_(doublereal *matrix, integer *nrow, integer *ncol, doublereal *xposem); extern int xpsgip_(integer *nrow, integer *ncol, doublereal *matrix); extern int zzaddlnk_(integer *aval, integer *bval, integer *maxa, integer *cellsz, integer *pntrs, integer *ncell, integer *cells); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzascii_(char *file, char *line, logical *check, char *termin, ftnlen file_len, ftnlen line_len, ftnlen termin_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: getlun_ 14 1 4 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzasryel_(char *extrem, doublereal *ellips, doublereal *vertex, doublereal *dir, doublereal *angle, doublereal *extpt, ftnlen extrem_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: el2cgv_ 14 4 7 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: psv2pl_ 14 4 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: vprjp_ 14 3 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: inrypl_ 14 5 7 7 7 4 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: swapd_ 14 2 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ 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); extern int zzbodget_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, ftnlen names_len, ftnlen nornam_len); extern int zzbodlst_(char *device, char *reqst, ftnlen device_len, ftnlen reqst_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzidmap_ 14 3 4 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: movec_ 14 5 13 4 13 124 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: wrline_ 14 4 13 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: orderi_ 14 3 4 4 4 */ /*:ref: orderc_ 14 4 13 4 4 124 */ extern integer zzbodbry_(integer *body); extern int zzbodini_(char *names, char *nornam, integer *codes, integer *nvals, integer *maxval, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzhsiini_ 14 3 4 4 4 */ /*:ref: zzhscini_ 14 3 4 4 4 */ /*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ extern int zzbodker_(char *names, char *nornam, integer *codes, integer *nvals, logical *extker, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ extern int zzbods2c_(integer *usrctr, char *savnam, integer *savcde, logical *savfnd, char *name__, integer *code, logical *found, ftnlen savnam_len, ftnlen name_len); /*:ref: return_ 12 0 */ /*:ref: zzbctrck_ 14 2 4 12 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzbodtrn_(char *name__, integer *code, logical *found, integer *usrctr, logical *update, ftnlen name_len); extern int zzbodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); extern int zzbodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); extern int zzboddef_(char *name__, integer *code, ftnlen name_len); extern int zzbodkik_(void); extern int zzbodrst_(void); extern int zzbctrck_(integer *usrctr, logical *update); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzctrsin_ 14 1 4 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzbodget_ 14 7 4 13 13 4 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ /*:ref: swpool_ 14 5 13 4 13 124 124 */ /*:ref: zzcvpool_ 14 4 13 4 12 124 */ /*:ref: zzctrinc_ 14 1 4 */ /*:ref: zzbodker_ 14 16 13 13 4 4 12 4 4 13 4 4 4 4 4 124 124 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ /*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzctrchk_ 14 3 4 4 12 */ extern int zzbodvcd_(integer *bodyid, char *item, integer *maxn, integer *varctr, integer *n, doublereal *values, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzbquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, integer *nx, doublereal *r1, doublereal *r2); /*:ref: return_ 12 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: touchd_ 7 1 7 */ extern int zzchrlat_(doublereal *midlat, doublereal *dlon, doublereal *eptlat); /*:ref: return_ 12 0 */ /*:ref: pi_ 7 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: halfpi_ 7 0 */ /*:ref: brcktd_ 7 3 7 7 7 */ extern int zzck4d2i_(doublereal *dpcoef, integer *nsets, doublereal *parcod, integer *i__); extern int zzck4i2d_(integer *i__, integer *nsets, doublereal *parcod, doublereal *dpcoef); extern int zzckcv01_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ extern int zzckcv02_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ extern int zzckcv03_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ extern int zzckcv04_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: intmax_ 4 0 */ /*:ref: dafps_ 14 5 4 4 7 4 7 */ /*:ref: cknr04_ 14 3 4 7 4 */ /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ extern int zzckcv05_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: errint_ 14 3 13 7 124 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ extern int zzckcv06_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ extern int zzckspk_(integer *handle, char *ckspk, ftnlen ckspk_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dafhsf_ 14 3 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dafbfs_ 14 1 4 */ /*:ref: daffna_ 14 1 12 */ /*:ref: failed_ 12 0 */ /*:ref: dafgs_ 14 1 7 */ /*:ref: dafus_ 14 5 7 4 4 7 4 */ /*:ref: zzsizeok_ 14 6 4 4 4 4 12 4 */ /*:ref: dafgda_ 14 4 4 4 4 7 */ extern int zzcln_(integer *lookat, integer *nameat, integer *namlst, integer *datlst, integer *nmpool, integer *chpool, integer *dppool); /*:ref: chkin_ 14 2 13 124 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzcnquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, doublereal *r1, doublereal *r2); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dpmax_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: touchd_ 7 1 7 */ /*:ref: zzbquad_ 14 8 7 7 7 7 4 4 7 7 */ extern int zzcorepc_(char *abcorr, doublereal *et, doublereal *lt, doublereal *etcorr, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzprscor_ 14 3 13 12 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzcorsxf_(logical *xmit, doublereal *dlt, doublereal *xform, doublereal *corxfm); /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vsclip_ 14 2 7 7 */ extern int zzcputim_(doublereal *tvec); /*:ref: chkout_ 14 2 13 124 */ extern int zzctr_(integer *newctr, integer *oldctr, logical *update); extern int zzctruin_(integer *oldctr); extern int zzctrsin_(integer *oldctr); extern int zzctrinc_(integer *oldctr); extern int zzctrchk_(integer *newctr, integer *oldctr, logical *update); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: intmax_ 4 0 */ /*:ref: intmin_ 4 0 */ extern int zzcvpool_(char *agent, integer *usrctr, logical *update, ftnlen agent_len); /*:ref: return_ 12 0 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cvpool_ 14 3 13 12 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzcvstat_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); extern int zzcvxsta_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); extern int zzcvssta_(doublereal *state, integer *center, doublereal *et, char *ref, ftnlen ref_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: sxform_ 14 6 13 13 7 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int zzcxbrut_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, doublereal *xpt, logical *isbrck); /*:ref: return_ 12 0 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: halfpi_ 7 0 */ /*:ref: pi_ 7 0 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern int zzdafgdr_(integer *handle, integer *recno, doublereal *dprec, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzxlated_ 14 5 4 13 4 7 124 */ /*:ref: moved_ 14 3 7 4 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ extern int zzdafgsr_(integer *handle, integer *recno, integer *nd, integer *ni, doublereal *dprec, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzxlated_ 14 5 4 13 4 7 124 */ /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ /*:ref: moved_ 14 3 7 4 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdasgrd_(integer *handle, integer *recno, doublereal *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhnfc_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: zzxlated_ 14 5 4 13 4 7 124 */ extern int zzdasgri_(integer *handle, integer *recno, integer *record); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhnfc_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhnfc_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ /*:ref: zzddhppf_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ extern integer zzddhclu_(logical *utlck, integer *nut); extern int zzddhf2h_(char *fname, integer *ftabs, integer *ftamh, integer *ftarc, integer *ftbff, integer *fthan, char *ftnam, integer *ftrtm, doublereal *ftmnm, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, logical *exists, logical *opened, integer *handle, logical *found, doublereal *mnm, ftnlen fname_len, ftnlen ftnam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzddhmnm_ 7 1 4 */ extern int zzddhgsd_(char *class__, integer *id, char *label, ftnlen class_len, ftnlen label_len); /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ extern int zzddhgtu_(integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, integer *uindex); /*:ref: return_ 12 0 */ /*:ref: getlun_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: orderi_ 14 3 4 4 4 */ /*:ref: frelun_ 14 1 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzddhini_(integer *natbff, integer *supbff, integer *numsup, char *stramh, char *strarc, char *strbff, ftnlen stramh_len, ftnlen strarc_len, ftnlen strbff_len); /*:ref: return_ 12 0 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ extern int zzddhivf_(char *nsum, integer *bff, logical *found, ftnlen nsum_len); 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); extern int zzddhopn_(char *fname, char *method, char *arch, integer *handle, ftnlen fname_len, ftnlen method_len, ftnlen arch_len); extern int zzddhcls_(integer *handle, char *arch, logical *kill, ftnlen arch_len); extern int zzddhhlu_(integer *handle, char *arch, logical *lock, integer *unit, ftnlen arch_len); extern int zzddhunl_(integer *handle, char *arch, ftnlen arch_len); extern int zzddhnfo_(integer *handle, char *fname, integer *intarc, integer *intbff, integer *intamh, logical *found, ftnlen fname_len); extern int zzddhisn_(integer *handle, logical *native, logical *found); extern int zzddhfnh_(char *fname, integer *handle, logical *found, ftnlen fname_len); extern int zzddhluh_(integer *unit, integer *handle, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzpltchk_ 14 1 12 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzddhclu_ 4 2 12 4 */ /*:ref: zzddhf2h_ 14 22 13 4 4 4 4 4 13 4 7 4 4 4 12 4 4 12 12 4 12 7 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: bsrchi_ 4 3 4 4 4 */ /*:ref: zzddhrcm_ 14 3 4 4 4 */ /*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: zzddhppf_ 14 3 4 4 4 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ /*:ref: frelun_ 14 1 4 */ extern doublereal zzddhmnm_(integer *unit); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ /*:ref: zzddhppf_ 14 3 4 4 4 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ extern int zzddhnfc_(integer *natbff); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzddhppf_(integer *unit, integer *arch, integer *bff); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errfnm_ 14 3 13 4 124 */ /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzftpchk_ 14 3 13 12 124 */ /*:ref: pos_ 4 5 13 13 4 124 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzddhivf_ 14 4 13 4 12 124 */ extern int zzddhrcm_(integer *nut, integer *utcst, integer *reqcnt); /*:ref: intmax_ 4 0 */ extern int zzddhrmu_(integer *uindex, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: reslun_ 14 1 4 */ extern doublereal zzdiv_(doublereal *numr, doublereal *denom); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dpmax_ 7 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdnpt_(doublereal *state, doublereal *nearp, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vtmv_ 7 3 7 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int zzdscm_(doublereal *epoch, doublereal *eccp, doublereal *argpp, doublereal *tc, doublereal *inclp, doublereal *nodep, doublereal *np, doublereal *snodm, doublereal *cnodm, doublereal *sinim, doublereal *cosim, doublereal *sinomm, doublereal *cosomm, doublereal *day, doublereal *e3, doublereal *ee2, doublereal *eccm, doublereal *emsq, doublereal *gam, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *rtemsq, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *s6, doublereal *s7, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *ss6, doublereal *ss7, doublereal *sz1, doublereal *sz2, doublereal *sz3, doublereal *sz11, doublereal *sz12, doublereal *sz13, doublereal *sz21, doublereal *sz22, doublereal *sz23, doublereal *sz31, doublereal *sz32, doublereal *sz33, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *xn, doublereal *z1, doublereal *z2, doublereal *z3, doublereal *z11, doublereal *z12, doublereal *z13, doublereal *z21, doublereal *z22, doublereal *z23, doublereal *z31, doublereal *z32, doublereal *z33, doublereal *zmol, doublereal *zmos); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdsin_(doublereal *geophs, doublereal *cosim, doublereal *emsq, doublereal *argpo, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *sinim, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *sz1, doublereal *sz3, doublereal *sz11, doublereal *sz13, doublereal *sz21, doublereal *sz23, doublereal *sz31, doublereal *sz33, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *mo, doublereal *mdot, doublereal *no, doublereal *nodeo, doublereal *nodedot, doublereal *xpidot, doublereal *z1, doublereal *z3, doublereal *z11, doublereal *z13, doublereal *z21, doublereal *z23, doublereal *z31, doublereal *z33, doublereal *ecco, doublereal *eccsq, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *mm, doublereal *xn, doublereal *nodem, integer *irez, doublereal *atime, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *didt, doublereal *dmdt, doublereal *dndt, doublereal *dnodt, doublereal *domdt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *xfact, doublereal *xlamo, doublereal *xli, doublereal *xni); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: pi_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdskbbl_(integer *bodyid); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzdskchk_ 14 2 4 12 */ /*:ref: zzdskbss_ 14 1 4 */ /*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdskbsr_(char *fname, integer *bodyid, integer *handle, L_fp cmpfun, integer *usrctr, logical *update, integer *dladsc, doublereal *dskdsc, logical *found, ftnlen fname_len); extern int zzdsklsf_(char *fname, integer *handle, ftnlen fname_len); extern int zzdskusf_(integer *handle); extern int zzdskbss_(integer *bodyid); extern int zzdsksns_(L_fp cmpfun, integer *handle, integer *dladsc, doublereal *dskdsc, logical *found); extern int zzdskchk_(integer *usrctr, logical *update); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzctrsin_ 14 1 4 */ /*:ref: zzctrinc_ 14 1 4 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: dasopr_ 14 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: dascls_ 14 1 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: intmax_ 4 0 */ /*:ref: lnkprv_ 4 2 4 4 */ /*:ref: dlabfs_ 14 3 4 4 12 */ /*:ref: dlafns_ 14 4 4 4 4 12 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dskgd_ 14 3 4 4 7 */ /*:ref: dlabbs_ 14 3 4 4 12 */ /*:ref: dlafps_ 14 4 4 4 4 12 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: lnkilb_ 14 3 4 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: zzctrchk_ 14 3 4 4 12 */ extern int zzdskbun_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *point, doublereal *normal); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dskgtl_ 14 2 4 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: zzinlat_ 14 5 7 7 7 4 12 */ /*:ref: zzinrec_ 14 5 7 7 7 4 12 */ /*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zzptpl02_ 14 8 4 4 7 7 4 4 7 12 */ /*:ref: pltnrm_ 14 4 7 7 7 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: mtxv_ 14 3 7 7 7 */ extern int zzdskbux_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *segidx, doublereal *dc, integer *ic, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dskgtl_ 14 2 4 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: nplnpt_ 14 5 7 7 7 7 7 */ /*:ref: zzrytelt_ 14 6 7 7 7 7 4 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: orderd_ 14 3 7 4 4 */ /*:ref: zzdsksgx_ 14 10 4 4 4 7 7 7 7 7 4 12 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: mtxv_ 14 3 7 7 7 */ extern int zzdsksba_(integer *bodyid, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzdskbbl_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzdsksbd_ 12 1 4 */ /*:ref: zzdskbss_ 14 1 4 */ /*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ /*:ref: zzdsksbr_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: zzsegbox_ 14 3 7 7 7 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: frmnam_ 14 3 4 13 124 */ /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ extern int zzdsksbf_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *point, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, doublereal *normal); extern int zzsbfxr_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, logical *found); extern int zzsbfxri_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found); extern int zzsbfnrm_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *point, doublereal *normal); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzdskchk_ 14 2 4 12 */ /*:ref: zzdskbbl_ 14 1 4 */ /*:ref: zzdsksbi_ 14 13 4 4 4 4 4 4 4 7 4 4 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zzdsksba_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ /*:ref: zzdskbux_ 14 19 4 4 4 7 4 4 4 4 7 7 7 7 7 7 7 4 7 4 12 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: zzdskbun_ 14 14 4 4 4 7 4 4 4 4 7 7 7 7 7 7 */ extern int zzdsksbi_(integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdsksbr_(integer *needed, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: movei_ 14 3 4 4 4 */ extern logical zzdsksel_(integer *surfid, integer *nsurf, integer *srflst, integer *bodyid, integer *dclass, integer *corsys, doublereal *corpar, doublereal *cor1, doublereal *cor2, integer *framid, doublereal *pos, doublereal *et, integer *handle, integer *dladsc, doublereal *dskdsc); extern logical zzdsksbd_(integer *bodyid); extern logical zzdskbdc_(integer *handle, integer *dladsc, doublereal *dskdsc); extern logical zzdsknot_(integer *handle, integer *dladsc, doublereal *dskdsc); extern logical zzdsksit_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et); extern logical zzdskcit_(integer *handle, integer *dladsc, doublereal *dskdsc); extern logical zzdskusc_(integer *bodyid, doublereal *et, doublereal *cor1, doublereal *cor2); extern logical zzdskumc_(integer *handle, integer *dladsc, doublereal *dskdsc); extern logical zzdskmsc_(integer *bodyid, integer *surfid, integer *framid, integer *corsys, doublereal *corpar, doublereal *et, doublereal *cor1, doublereal *cor2); extern logical zzdskmmc_(integer *handle, integer *dladsc, doublereal *dskdsc); extern logical zzdsksrc_(integer *surfid, integer *bodyid, integer *dclass, doublereal *et, integer *framid, doublereal *pos); extern logical zzdskmrc_(integer *handle, integer *dladsc, doublereal *dskdsc); /*:ref: touchi_ 4 1 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: shelli_ 14 2 4 4 */ /*:ref: bsrchi_ 4 3 4 4 4 */ /*:ref: twopi_ 7 0 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ extern doublereal zzdsksgr_(doublereal *dskdsc); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzdsksgx_(integer *handle, integer *dladsc, integer *dtype, doublereal *et, doublereal *vertex, doublereal *raydir, doublereal *xpt, doublereal *dc, integer *ic, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: touchd_ 7 1 7 */ /*:ref: dskx02_ 14 7 4 4 7 7 4 7 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdsksph_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *minrad, doublereal *maxrad); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzdskchk_ 14 2 4 12 */ /*:ref: dpmax_ 7 0 */ /*:ref: zzdskbbl_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzdskbss_ 14 1 4 */ /*:ref: zzdsksbd_ 14 1 4 */ /*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: frmnam_ 14 3 4 13 124 */ /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: movei_ 14 3 4 4 4 */ extern int zzdspc_(integer *irez, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *didt, doublereal *dmdt, doublereal *dnodt, doublereal *domdt, doublereal *argpo, doublereal *argpdot, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *xfact, doublereal *xlamo, doublereal *no, doublereal *atime, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *xli, doublereal *mm, doublereal *xni, doublereal *nodem, doublereal *dndt, doublereal *xn); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdspr_(integer *opmode, doublereal *e3, doublereal *ee2, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *t, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *zmol, doublereal *zmos, doublereal *inclo, logical *doinit, doublereal *eccp, doublereal *inclp, doublereal *nodep, doublereal *argpp, doublereal *mp); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: pi_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzdynbid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ extern int zzdynfid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: beint_ 12 2 13 124 */ /*:ref: prsint_ 14 3 13 4 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ extern int zzdynfr0_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: bodn2c_ 14 4 13 4 12 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: frmnam_ 14 3 4 13 124 */ /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: zzeprc76_ 14 2 7 7 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: zzenut80_ 14 2 7 7 */ /*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ /*:ref: zzmobliq_ 14 3 7 7 7 */ /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ /*:ref: zzfrmch1_ 14 4 4 4 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ /*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: vminug_ 14 3 7 4 7 */ /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: zzprscor_ 14 3 13 12 124 */ /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ /*:ref: polyds_ 14 5 7 4 4 7 7 */ /*:ref: namfrm_ 14 3 13 4 124 */ extern int zzdynfrm_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: bodn2c_ 14 4 13 4 12 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: frmnam_ 14 3 4 13 124 */ /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: zzeprc76_ 14 2 7 7 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: zzenut80_ 14 2 7 7 */ /*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ /*:ref: zzmobliq_ 14 3 7 7 7 */ /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ /*:ref: zzfrmch0_ 14 4 4 4 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: vminug_ 14 3 7 4 7 */ /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: zzprscor_ 14 3 13 12 124 */ /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ /*:ref: polyds_ 14 5 7 4 4 7 7 */ /*:ref: namfrm_ 14 3 13 4 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ extern int zzdynoad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, logical *found, ftnlen frname_len, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ extern int zzdynrot_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: bodn2c_ 14 4 13 4 12 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: frmnam_ 14 3 4 13 124 */ /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: zzeprc76_ 14 2 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: xpose_ 14 2 7 7 */ /*:ref: zzenut80_ 14 2 7 7 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: zzmobliq_ 14 3 7 7 7 */ /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ /*:ref: zzrefch0_ 14 4 4 4 7 7 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ /*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: zzprscor_ 14 3 13 12 124 */ /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: twovec_ 14 5 7 4 7 4 7 */ /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ /*:ref: polyds_ 14 5 7 4 4 7 7 */ /*:ref: namfrm_ 14 3 13 4 124 */ extern int zzdynrt0_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: bodn2c_ 14 4 13 4 12 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: frmnam_ 14 3 4 13 124 */ /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: zzeprc76_ 14 2 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: xpose_ 14 2 7 7 */ /*:ref: zzenut80_ 14 2 7 7 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: zzmobliq_ 14 3 7 7 7 */ /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ /*:ref: zzrefch1_ 14 4 4 4 7 7 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ /*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: cidfrm_ 14 5 4 4 13 12 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: zzprscor_ 14 3 13 12 124 */ /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ /*:ref: convrt_ 14 6 7 13 13 7 124 124 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: twovec_ 14 5 7 4 7 4 7 */ /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ /*:ref: polyds_ 14 5 7 4 4 7 7 */ /*:ref: namfrm_ 14 3 13 4 124 */ extern int zzdynvac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, ftnlen frname_len, ftnlen item_len, ftnlen values_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ extern int zzdynvad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, ftnlen frname_len, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ extern int zzdynvai_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, integer *values, ftnlen frname_len, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ extern int zzedterm_(char *type__, doublereal *a, doublereal *b, doublereal *c__, doublereal *srcrad, doublereal *srcpos, integer *npts, doublereal *trmpts, ftnlen type_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: frame_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: touchd_ 7 1 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: nvp2pl_ 14 3 7 7 7 */ /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ extern int zzedtmpt_(logical *umbral, doublereal *a, doublereal *b, doublereal *c__, doublereal *r__, doublereal *axis, doublereal *plnvec, doublereal *point); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: dasine_ 7 2 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: ednmpt_ 14 5 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzekac01_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *rcptrs, integer *wkindx); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzekordi_ 14 5 4 12 12 4 4 */ /*:ref: zzektrit_ 14 2 4 4 */ /*:ref: zzektr1s_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int zzekac02_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *rcptrs, integer *wkindx); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzekpgwd_ 14 3 4 4 7 */ /*:ref: zzekordd_ 14 5 7 12 12 4 4 */ /*:ref: zzektrit_ 14 2 4 4 */ /*:ref: zzektr1s_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int zzekac03_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen cvals_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: prtenc_ 14 3 4 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: prtdec_ 14 3 13 4 124 */ /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ /*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ /*:ref: zzektrit_ 14 2 4 4 */ /*:ref: zzektr1s_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int zzekac04_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, integer *entszs, logical *nlflgs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ extern int zzekac05_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, integer *entszs, logical *nlflgs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzekpgwd_ 14 3 4 4 7 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ extern int zzekac06_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, integer *entszs, logical *nlflgs, ftnlen cvals_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: prtenc_ 14 3 4 13 124 */ /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ extern int zzekac07_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *wkindx); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekordi_ 14 5 4 12 12 4 4 */ /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ extern int zzekac08_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *wkindx); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzekpgwd_ 14 3 4 4 7 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekordd_ 14 5 7 12 12 4 4 */ /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ extern int zzekac09_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *wkindx, ftnlen cvals_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ extern int zzekacps_(integer *handle, integer *segdsc, integer *type__, integer *n, integer *p, integer *base); /*:ref: zzekpgan_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ /*:ref: zzektrap_ 14 4 4 4 4 4 */ extern int zzekad01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ extern int zzekad02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: dasudd_ 14 4 4 4 4 7 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ extern int zzekad03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: zzeksei_ 14 3 4 4 4 */ /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ /*:ref: zzekiic1_ 14 7 4 4 4 13 4 12 124 */ extern int zzekad04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ extern int zzekad05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: dasudd_ 14 4 4 4 4 7 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ extern int zzekad06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzeksei_ 14 3 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ extern int zzekaps_(integer *handle, integer *segdsc, integer *type__, logical *new__, integer *p, integer *base); /*:ref: zzekpgan_ 14 4 4 4 4 4 */ /*:ref: zzekpgal_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzeksfwd_ 14 4 4 4 4 4 */ /*:ref: zzektrap_ 14 4 4 4 4 4 */ extern int zzekbs01_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgan_ 14 4 4 4 4 4 */ /*:ref: zzektrit_ 14 2 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: eknseg_ 4 1 4 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ /*:ref: zzekcix1_ 14 2 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzektrap_ 14 4 4 4 4 4 */ extern int zzekbs02_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgan_ 14 4 4 4 4 4 */ /*:ref: zzektrit_ 14 2 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: eknseg_ 4 1 4 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzektrap_ 14 4 4 4 4 4 */ 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); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: ekccnt_ 14 3 13 4 124 */ /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ extern int zzekcdsc_(integer *handle, integer *segdsc, char *column, integer *coldsc, ftnlen column_len); /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekcix1_(integer *handle, integer *coldsc); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrit_ 14 2 4 4 */ extern int zzekcnam_(integer *handle, integer *coldsc, char *column, ftnlen column_len); /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ extern int zzekde01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekixdl_ 14 4 4 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekdps_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzekde02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekixdl_ 14 4 4 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekdps_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzekde03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekixdl_ 14 4 4 4 4 4 */ /*:ref: zzekgei_ 14 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekdps_ 14 4 4 4 4 4 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzekde04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekdps_ 14 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzekde05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekdps_ 14 4 4 4 4 4 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzekde06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekgei_ 14 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: zzekdps_ 14 4 4 4 4 4 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzekdps_(integer *handle, integer *segdsc, integer *type__, integer *p); /*:ref: zzekpgfr_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzektrls_ 4 3 4 4 4 */ /*:ref: zzektrdl_ 14 3 4 4 4 */ extern integer zzekecmp_(integer *hans, integer *sgdscs, integer *cldscs, integer *rows, integer *elts); /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ /*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ /*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ /*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ extern int zzekerc1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); /*:ref: failed_ 12 0 */ /*:ref: zzektrsz_ 4 2 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern int zzekerd1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); /*:ref: failed_ 12 0 */ /*:ref: zzektrsz_ 4 2 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern int zzekeri1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); /*:ref: failed_ 12 0 */ /*:ref: zzektrsz_ 4 2 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern integer zzekesiz_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: zzeksz04_ 4 4 4 4 4 4 */ /*:ref: zzeksz05_ 4 4 4 4 4 4 */ /*:ref: zzeksz06_ 4 4 4 4 4 4 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekff01_(integer *handle, integer *segno, integer *rcptrs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzeksrd_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekmloc_ 14 4 4 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzektrit_ 14 2 4 4 */ /*:ref: zzektr1s_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int zzekfrx_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *pos); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ /*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ /*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ extern int zzekgcdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzekgei_(integer *handle, integer *addrss, integer *ival); /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: prtdec_ 14 3 13 4 124 */ extern int zzekgfwd_(integer *handle, integer *type__, integer *p, integer *fward); /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzekgei_ 14 3 4 4 4 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzekglnk_(integer *handle, integer *type__, integer *p, integer *nlinks); /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzekgei_ 14 3 4 4 4 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzekgrcp_(integer *handle, integer *recptr, integer *ptr); /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzekgrs_(integer *handle, integer *recptr, integer *status); /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzekif01_(integer *handle, integer *segno, integer *rcptrs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: zzekstop_ 14 1 4 */ /*:ref: zzeksdec_ 14 1 4 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekif02_(integer *handle, integer *segno); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekmloc_ 14 4 4 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekiic1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, ftnlen ckey_len); /*:ref: failed_ 12 0 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ /*:ref: zzektrin_ 14 4 4 4 4 4 */ extern int zzekiid1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null); /*:ref: failed_ 12 0 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ /*:ref: zzektrin_ 14 4 4 4 4 4 */ extern int zzekiii1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null); /*:ref: failed_ 12 0 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ /*:ref: zzektrin_ 14 4 4 4 4 4 */ extern integer zzekille_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekllec_ 14 7 4 4 4 13 4 4 124 */ /*:ref: zzeklled_ 14 6 4 4 4 7 4 4 */ /*:ref: zzekllei_ 14 6 4 4 4 4 4 4 */ extern integer zzekillt_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzeklltc_ 14 7 4 4 4 13 4 4 124 */ /*:ref: zzeklltd_ 14 6 4 4 4 7 4 4 */ /*:ref: zzekllti_ 14 6 4 4 4 4 4 4 */ extern int zzekinqc_(char *value, integer *length, integer *lexbeg, integer *lexend, integer *eqryi, char *eqryc, integer *descr, ftnlen value_len, ftnlen eqryc_len); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekweqi_ 14 4 13 4 4 124 */ extern int zzekinqn_(doublereal *value, integer *type__, integer *lexbeg, integer *lexend, integer *eqryi, doublereal *eqryd, integer *descr); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekweqi_ 14 4 13 4 4 124 */ extern int zzekixdl_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekfrx_ 14 5 4 4 4 4 4 */ /*:ref: zzektrdl_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: errhan_ 14 3 13 4 124 */ extern int zzekixlk_(integer *handle, integer *coldsc, integer *key, integer *recptr); /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzeksrd_ 14 3 4 4 4 */ /*:ref: zzekstop_ 14 1 4 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzeksupd_ 14 3 4 4 4 */ /*: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 */ /*:ref: zzekjnxt_ 14 2 12 4 */ extern int zzekjsqz_(integer *jrsbas); /*:ref: zzeksrd_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzeksupd_ 14 3 4 4 4 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzeksrd_ 14 3 4 4 4 */ /*:ref: zzekvset_ 14 2 4 4 */ /*:ref: zzekvcal_ 14 3 4 4 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ /*:ref: zzekvcmp_ 12 15 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: swapi_ 14 2 4 4 */ /*:ref: zzekstop_ 14 1 4 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzeksupd_ 14 3 4 4 4 */ 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); 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); extern int zzekjnxt_(logical *found, integer *rowvec); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: zzekstop_ 14 1 4 */ /*:ref: zzekspsh_ 14 2 4 4 */ /*:ref: zzeksrd_ 14 3 4 4 4 */ /*:ref: zzeksupd_ 14 3 4 4 4 */ /*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: zzekrcmp_ 12 12 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: cardi_ 4 1 4 */ /*:ref: zzekillt_ 4 9 4 4 4 4 4 13 7 4 124 */ /*:ref: zzekille_ 4 9 4 4 4 4 4 13 7 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: ordi_ 4 2 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ extern int zzeklerc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); /*:ref: failed_ 12 0 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekerc1_ 14 9 4 4 4 13 4 12 4 4 124 */ extern int zzeklerd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); /*:ref: failed_ 12 0 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekerd1_ 14 8 4 4 4 7 4 12 4 4 */ extern int zzekleri_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); /*:ref: failed_ 12 0 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekeri1_ 14 8 4 4 4 4 4 12 4 4 */ extern int zzekllec_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekixlk_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern int zzeklled_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekixlk_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern int zzekllei_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekixlk_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern int zzeklltc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekixlk_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern int zzeklltd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekixlk_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern int zzekllti_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekixlk_ 14 4 4 4 4 4 */ /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern int zzekmloc_(integer *handle, integer *segno, integer *page, integer *base); /*:ref: eknseg_ 4 1 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ extern int zzeknres_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: ekntab_ 14 1 4 */ /*:ref: ektnam_ 14 3 4 13 124 */ /*:ref: ekccnt_ 14 3 13 4 124 */ /*:ref: zzekcchk_ 14 15 13 4 13 4 13 13 4 12 13 4 124 124 124 124 124 */ /*:ref: zzekweqi_ 14 4 13 4 4 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ /*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: lnkhl_ 4 2 4 4 */ /*:ref: lnkprv_ 4 2 4 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: lnkilb_ 14 3 4 4 4 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnktl_ 4 2 4 4 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: cardi_ 4 1 4 */ /*:ref: appndi_ 14 2 4 4 */ /*:ref: zzekweqi_ 14 4 13 4 4 124 */ extern int zzekordc_(char *cvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder, ftnlen cvals_len); /*:ref: swapi_ 14 2 4 4 */ extern int zzekordd_(doublereal *dvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); /*:ref: swapi_ 14 2 4 4 */ extern int zzekordi_(integer *ivals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); /*:ref: swapi_ 14 2 4 4 */ 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); extern int zzekpgin_(integer *handle); extern int zzekpgan_(integer *handle, integer *type__, integer *p, integer *base); extern int zzekpgal_(integer *handle, integer *type__, integer *p, integer *base); extern int zzekpgfr_(integer *handle, integer *type__, integer *p); extern int zzekpgrc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); extern int zzekpgrd_(integer *handle, integer *p, doublereal *paged); extern int zzekpgri_(integer *handle, integer *p, integer *pagei); extern int zzekpgwc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); extern int zzekpgwd_(integer *handle, integer *p, doublereal *paged); extern int zzekpgwi_(integer *handle, integer *p, integer *pagei); extern int zzekpgbs_(integer *type__, integer *p, integer *base); extern int zzekpgpg_(integer *type__, integer *addrss, integer *p, integer *base); extern int zzekpgst_(integer *handle, char *stat, integer *value, ftnlen stat_len); /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: daslla_ 14 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: fillc_ 14 5 13 4 13 124 124 */ /*:ref: filld_ 14 3 7 4 7 */ /*:ref: filli_ 14 3 4 4 4 */ /*:ref: dasadi_ 14 3 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasadd_ 14 3 4 4 7 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: prtdec_ 14 3 13 4 124 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ /*:ref: prtenc_ 14 3 4 13 124 */ /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: dasudd_ 14 4 4 4 4 7 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ /*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ /*:ref: appndi_ 14 2 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekweqi_ 14 4 13 4 4 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: cardi_ 4 1 4 */ /*:ref: zzeknrml_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ 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); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: ekccnt_ 14 3 13 4 124 */ /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ extern int zzekpdec_(char *decl, integer *pardsc, ftnlen decl_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ extern int zzekpgch_(integer *handle, char *access, ftnlen access_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: dassih_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: daslla_ 14 4 4 4 4 4 */ extern int zzekqcnj_(integer *eqryi, integer *n, integer *size); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ 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); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzekqini_(integer *isize, integer *dsize, integer *eqryi, char *eqryc, doublereal *eqryd, ftnlen eqryc_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: appndi_ 14 2 4 4 */ /*:ref: cleari_ 14 2 4 4 */ 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); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ 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); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzekqtab_(integer *eqryi, char *eqryc, integer *n, char *table, char *alias, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzekrbck_(char *action, integer *handle, integer *segdsc, integer *coldsc, integer *recno, ftnlen action_len); 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); /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekrd01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzekrd02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: errhan_ 14 3 13 4 124 */ extern int zzekrd03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekgei_ 14 3 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int zzekrd04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, integer *ivals, logical *isnull, logical *found); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: errhan_ 14 3 13 4 124 */ extern int zzekrd05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, doublereal *dvals, logical *isnull, logical *found); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekgfwd_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: errhan_ 14 3 13 4 124 */ extern int zzekrd06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, char *cvals, logical *isnull, logical *found, ftnlen cvals_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekgei_ 14 3 4 4 4 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ extern int zzekrd07_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ extern int zzekrd08_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ extern int zzekrd09_(integer *handle, integer *segdsc, integer *coldsc, integer *recno, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ extern int zzekreqi_(integer *eqryi, char *name__, integer *value, ftnlen name_len); /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ extern integer zzekrp2n_(integer *handle, integer *segno, integer *recptr); /*:ref: zzeksdsc_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzektrls_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekrplk_(integer *handle, integer *segdsc, integer *n, integer *recptr); /*:ref: zzektrdp_ 14 4 4 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekrsc_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *cvlen, char *cval, logical *isnull, logical *found, ftnlen cval_len); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ /*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ /*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ extern int zzekrsd_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, doublereal *dval, logical *isnull, logical *found); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ /*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ /*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ extern int zzekrsi_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *ival, logical *isnull, logical *found); /*:ref: zzekcnam_ 14 4 4 4 13 124 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ /*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ /*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ extern int zzeksca_(integer *n, integer *beg, integer *end, integer *idata, integer *top); extern int zzekstop_(integer *top); extern int zzekspsh_(integer *n, integer *idata); extern int zzekspop_(integer *n, integer *idata); extern int zzeksdec_(integer *n); extern int zzeksupd_(integer *beg, integer *end, integer *idata); extern int zzeksrd_(integer *beg, integer *end, integer *idata); extern int zzekscln_(void); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasops_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: daslla_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: dasadi_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: daswbr_ 14 1 4 */ /*:ref: dasllc_ 14 1 4 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: lxcsid_ 14 5 13 13 4 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ /*:ref: parsqs_ 14 11 13 13 13 4 12 13 4 124 124 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: lx4num_ 14 5 13 4 4 4 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ /*:ref: beint_ 12 2 13 124 */ /*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: frstpc_ 4 2 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern int zzekscdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ 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); /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ extern int zzeksdsc_(integer *handle, integer *segno, integer *segdsc); /*:ref: zzekmloc_ 14 4 4 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzeksei_(integer *handle, integer *addrss, integer *ival); /*:ref: prtenc_ 14 3 4 13 124 */ /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ extern int zzeksemc_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: zzekweqi_ 14 4 13 4 4 124 */ extern int zzeksfwd_(integer *handle, integer *type__, integer *p, integer *fward); /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzeksei_ 14 3 4 4 4 */ /*:ref: dasudd_ 14 4 4 4 4 7 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int zzeksinf_(integer *handle, integer *segno, char *tabnam, integer *segdsc, char *cnames, integer *cdscrs, ftnlen tabnam_len, ftnlen cnames_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eknseg_ 4 1 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzekmloc_ 14 4 4 4 4 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ extern int zzekslnk_(integer *handle, integer *type__, integer *p, integer *nlinks); /*:ref: zzekpgbs_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzeksei_ 14 3 4 4 4 */ /*:ref: dasudd_ 14 4 4 4 4 7 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int zzeksrcp_(integer *handle, integer *recptr, integer *recno); /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int zzeksrs_(integer *handle, integer *recptr, integer *status); /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern integer zzekstyp_(integer *ncols, integer *cdscrs); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer zzeksz04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern integer zzeksz05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasrdd_ 14 4 4 4 4 7 */ extern integer zzeksz06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekgei_ 14 3 4 4 4 */ extern int zzektcnv_(char *timstr, doublereal *et, logical *error, char *errmsg, ftnlen timstr_len, ftnlen errmsg_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: posr_ 4 5 13 13 4 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: scn2id_ 14 4 13 4 12 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: scpars_ 14 7 4 13 12 13 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: sct2e_ 14 3 4 7 7 */ /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ /*:ref: str2et_ 14 3 13 7 124 */ extern int zzektloc_(integer *tokid, integer *kwcode, integer *ntoken, integer *tokens, integer *values, integer *loc, logical *found); extern int zzektr13_(integer *handle, integer *tree); /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgal_ 14 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ extern int zzektr1s_(integer *handle, integer *tree, integer *size, integer *values); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzektrsz_ 4 2 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: zzekpgal_ 14 4 4 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ extern int zzektr23_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, logical *overfl); /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgal_ 14 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ extern int zzektr31_(integer *handle, integer *tree); /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzekpgfr_ 14 3 4 4 4 */ extern int zzektr32_(integer *handle, integer *tree, integer *left, integer *middle, integer *right, integer *parent, integer *lpkidx, logical *undrfl); /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzekpgfr_ 14 3 4 4 4 */ extern int zzektrap_(integer *handle, integer *tree, integer *value, integer *key); /*:ref: zzektrsz_ 4 2 4 4 */ /*:ref: zzektrin_ 14 4 4 4 4 4 */ extern int zzektrbn_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrnk_ 4 3 4 4 4 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ extern integer zzektrbs_(integer *node); /*:ref: zzekpgbs_ 14 3 4 4 4 */ extern int zzektrdl_(integer *handle, integer *tree, integer *key); /*:ref: zzektrud_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ /*:ref: zzektrsb_ 14 7 4 4 4 4 4 4 4 */ /*:ref: zzektrnk_ 4 3 4 4 4 */ /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ /*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ /*:ref: zzektrki_ 14 5 4 4 4 4 4 */ /*:ref: zzektr32_ 14 8 4 4 4 4 4 4 4 12 */ /*:ref: zzektr31_ 14 2 4 4 */ extern int zzektrdp_(integer *handle, integer *tree, integer *key, integer *ptr); /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ 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); /*:ref: zzekreqi_ 14 4 4 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ /*:ref: zzektcnv_ 14 6 13 7 12 13 124 124 */ /*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekweqi_ 14 4 13 4 4 124 */ extern int zzektrfr_(integer *handle, integer *tree); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgfr_ 14 3 4 4 4 */ extern int zzektrin_(integer *handle, integer *tree, integer *key, integer *value); /*:ref: zzektrui_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: zzektrnk_ 4 3 4 4 4 */ /*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ /*:ref: zzektrki_ 14 5 4 4 4 4 4 */ /*:ref: zzektr23_ 14 7 4 4 4 4 4 4 12 */ /*:ref: zzektr13_ 14 2 4 4 */ extern int zzektrit_(integer *handle, integer *tree); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgal_ 14 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzektrki_(integer *handle, integer *tree, integer *nodkey, integer *n, integer *key); /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ /*:ref: zzektrnk_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzektrlk_(integer *handle, integer *tree, integer *key, integer *idx, integer *node, integer *noffst, integer *level, integer *value); /*:ref: dasham_ 14 3 4 13 124 */ /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lstlei_ 4 3 4 4 4 */ extern integer zzektrls_(integer *handle, integer *tree, integer *ival); /*:ref: zzektrsz_ 4 2 4 4 */ /*:ref: zzektrdp_ 14 4 4 4 4 4 */ extern integer zzektrnk_(integer *handle, integer *tree, integer *node); /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ 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); /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lstlei_ 4 3 4 4 4 */ extern int zzektrrk_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, integer *nrot); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ extern int zzektrsb_(integer *handle, integer *tree, integer *key, integer *lsib, integer *lkey, integer *rsib, integer *rkey); /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern integer zzektrsz_(integer *handle, integer *tree); /*:ref: zzektrbs_ 4 1 4 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ extern int zzektrud_(integer *handle, integer *tree, integer *key, integer *trgkey, logical *undrfl); /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzektrui_(integer *handle, integer *tree, integer *key, integer *value, logical *overfl); /*:ref: zzekpgri_ 14 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ extern int zzekue01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekixdl_ 14 4 4 4 4 4 */ /*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: errhan_ 14 3 13 4 124 */ extern int zzekue02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekpgch_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dasrdi_ 14 4 4 4 4 4 */ /*:ref: zzekixdl_ 14 4 4 4 4 4 */ /*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzekpgpg_ 14 4 4 4 4 4 */ /*:ref: zzekglnk_ 14 4 4 4 4 4 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: dasudi_ 14 4 4 4 4 4 */ /*:ref: dasudd_ 14 4 4 4 4 7 */ /*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ /*:ref: zzekrp2n_ 4 3 4 4 4 */ /*:ref: errhan_ 14 3 13 4 124 */ extern int zzekue03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekde03_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ extern int zzekue04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekde04_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ extern int zzekue05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekde05_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ extern int zzekue06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekde06_ 14 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ extern int zzekvadr_(integer *njrs, integer *bases, integer *rwvidx, integer *rwvbas, integer *sgvbas); extern int zzekvset_(integer *njrs, integer *bases); extern int zzekvcal_(integer *rwvidx, integer *rwvbas, integer *sgvbas); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzekstop_ 14 1 4 */ /*:ref: zzeksrd_ 14 3 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: lstlei_ 4 3 4 4 4 */ 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); /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ 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); /*:ref: movei_ 14 3 4 4 4 */ /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errhan_ 14 3 13 4 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ extern int zzekweed_(integer *njrs, integer *bases, integer *nrows); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekvset_ 14 2 4 4 */ /*:ref: zzeksrd_ 14 3 4 4 4 */ /*:ref: sameai_ 12 3 4 4 4 */ /*:ref: zzeksupd_ 14 3 4 4 4 */ /*:ref: zzekjsqz_ 14 1 4 */ extern int zzekweqi_(char *name__, integer *value, integer *eqryi, ftnlen name_len); /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekwpac_(integer *handle, integer *segdsc, integer *nvals, integer *l, char *cvals, integer *p, integer *base, ftnlen cvals_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ extern int zzekwpai_(integer *handle, integer *segdsc, integer *nvals, integer *ivals, integer *p, integer *base); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzekpgwi_ 14 3 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzekwpal_(integer *handle, integer *segdsc, integer *nvals, logical *lvals, integer *p, integer *base); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ /*:ref: zzekpgwc_ 14 4 4 4 13 124 */ /*:ref: zzekslnk_ 14 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzellbds_(doublereal *a, doublereal *b, doublereal *hmax, doublereal *hmin, doublereal *amax, doublereal *bmax, doublereal *amin, doublereal *bmin); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzelnaxx_(doublereal *a, doublereal *b, doublereal *lat, doublereal *xxpt, doublereal *yxpt); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ednmpt_ 14 5 7 7 7 7 7 */ extern int zzelvupy_(doublereal *ellips, doublereal *vertex, doublereal *axis, integer *n, doublereal *bounds, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: el2cgv_ 14 4 7 7 7 7 */ /*:ref: saelgv_ 14 4 7 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cgv2el_ 14 4 7 7 7 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: pi_ 7 0 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: nvp2pl_ 14 3 7 7 7 */ /*:ref: inrypl_ 14 5 7 7 7 4 7 */ /*:ref: zzwind_ 4 4 7 4 7 7 */ /*:ref: psv2pl_ 14 4 7 7 7 7 */ /*:ref: inelpl_ 14 5 7 7 4 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int zzenut80_(doublereal *et, doublereal *nutxf); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzwahr_ 14 2 7 7 */ /*:ref: zzmobliq_ 14 3 7 7 7 */ /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzeprc76_(doublereal *et, doublereal *precxf); /*:ref: jyear_ 7 0 */ /*:ref: rpd_ 7 0 */ /*:ref: eul2xf_ 14 5 7 4 4 4 7 */ extern int zzeprcss_(doublereal *et, doublereal *precm); /*:ref: jyear_ 7 0 */ /*:ref: rpd_ 7 0 */ /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ extern int zzfdat_(integer *ncount, integer *maxbfr, char *name__, integer *idcode, integer *center, integer *type__, integer *typid, integer *centrd, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen name_len, ftnlen bnmnms_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnam_ 14 3 4 13 124 */ /*:ref: orderi_ 14 3 4 4 4 */ /*:ref: zzhscini_ 14 3 4 4 4 */ /*:ref: zzhsiini_ 14 3 4 4 4 */ /*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ extern int zzfovaxi_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: zzhullax_ 14 5 13 4 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: vhatip_ 14 1 7 */ extern int zzfrmch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzfrmgt0_ 14 5 4 7 7 4 12 */ /*:ref: zzmsxf_ 14 3 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ /*:ref: invstm_ 14 2 7 7 */ extern int zzfrmch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzfrmgt1_ 14 5 4 7 7 4 12 */ /*:ref: zzmsxf_ 14 3 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ /*:ref: invstm_ 14 2 7 7 */ extern int zzfrmgt0_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: tisbod_ 14 5 13 4 7 7 124 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ /*:ref: tkfram_ 14 4 4 7 4 12 */ /*:ref: zzdynfr0_ 14 5 4 4 7 7 4 */ /*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzfrmgt1_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: tisbod_ 14 5 13 4 7 7 124 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ /*:ref: tkfram_ 14 4 4 7 4 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int zzftpchk_(char *string, logical *ftperr, ftnlen string_len); /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: zzrbrkst_ 14 10 13 13 13 13 4 12 124 124 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: pos_ 4 5 13 13 4 124 124 */ extern int zzftpstr_(char *tstcom, char *lend, char *rend, char *delim, ftnlen tstcom_len, ftnlen lend_len, ftnlen rend_len, ftnlen delim_len); /*:ref: suffix_ 14 5 13 4 13 124 124 */ extern int zzgapool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtset, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtset_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scardc_ 14 3 4 13 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: cardc_ 4 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: validc_ 14 4 4 4 13 124 */ /*:ref: sizec_ 4 2 13 124 */ extern int zzgetbff_(integer *bffid); extern int zzgetelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, logical *ok, char *error, ftnlen lines_len, ftnlen error_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: rpd_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ /*:ref: ttrans_ 14 5 13 13 7 124 124 */ extern int zzgetvox_(doublereal *voxsiz, doublereal *voxori, integer *nvox, doublereal *xyz, logical *inbox, integer *voxcor); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzgfcoq_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, doublereal *dvec, char *crdsys, integer *ctrid, doublereal *re, doublereal *f, char *crdnam, doublereal *value, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: bodc2s_ 14 3 4 13 124 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ /*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: recrad_ 14 4 7 7 7 7 */ /*:ref: recsph_ 14 4 7 7 7 7 */ /*:ref: reccyl_ 14 4 7 7 7 7 */ /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ /*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ extern int zzgfcost_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: zzgfssob_ 14 11 13 4 7 13 13 4 7 7 124 124 124 */ /*:ref: zzgfssin_ 14 16 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzgfcou_(char *vecdef, char *method, char *target, doublereal *et, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, logical *decres, doublereal *crdval, logical *crdfnd, U_fp udfunc, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); extern int zzgfcoin_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); extern int zzgfcog_(doublereal *et, doublereal *crdval); extern int zzgfcodc_(U_fp udfunc, doublereal *et, logical *decres); extern int zzgfcoex_(U_fp udfunc, doublereal *et, logical *crdfnd); extern int zzgfcocg_(doublereal *et, doublereal *crdval); extern int zzgfcosg_(doublereal *et, doublereal *crdval); extern int zzgfcocd_(U_fp udfunc, doublereal *et, logical *decres); extern int zzgfcosd_(U_fp udfunc, doublereal *et, logical *decres); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: bodfnd_ 12 3 4 13 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: bodc2s_ 14 3 4 13 124 */ /*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ /*:ref: pi_ 7 0 */ /*:ref: vzero_ 12 1 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzgfcoq_ 14 23 13 13 4 7 13 13 4 13 7 13 4 7 7 13 7 12 124 124 124 124 124 124 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: zzgfcost_ 14 18 13 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 124 */ /*:ref: zzgfcprx_ 14 7 7 13 7 7 4 4 124 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: recrad_ 14 4 7 7 7 7 */ /*:ref: recsph_ 14 4 7 7 7 7 */ /*:ref: reccyl_ 14 4 7 7 7 7 */ /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ extern int zzgfcprx_(doublereal *state, char *corsys, doublereal *re, doublereal *f, integer *sense, integer *cdsign, ftnlen corsys_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: latrec_ 14 4 7 7 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: zzrtnmat_ 14 2 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ extern int zzgfcslv_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: wncard_ 4 1 7 */ /*:ref: wnfetd_ 14 4 7 4 7 7 */ /*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ /*:ref: wncond_ 14 3 7 7 7 */ /*:ref: copyd_ 14 2 7 7 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: zzgflong_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 214 200 214 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ /*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 214 200 214 13 13 12 212 7 124 124 124 */ extern int zzgfdiq_(integer *targid, doublereal *et, char *abcorr, integer *obsid, doublereal *dist, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vnorm_ 7 1 7 */ extern int zzgfdiu_(char *target, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *dist, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); extern int zzgfdiin_(char *target, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); extern int zzgfdidc_(U_fp udfunc, doublereal *et, logical *decres); extern int zzgfdigq_(doublereal *et, doublereal *dist); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: zzgfdiq_ 14 6 4 7 13 4 7 124 */ extern int zzgfdsps_(integer *nlead, char *string, char *fmt, integer *ntrail, ftnlen string_len, ftnlen fmt_len); /*:ref: rtrim_ 4 2 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzgffvu_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *time, logical *vistat, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); extern int zzgffvin_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); extern int zzgffvst_(doublereal *time, logical *vistat); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzprscor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: getfov_ 14 9 4 4 13 13 7 4 7 124 124 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: zzfovaxi_ 14 5 13 4 7 7 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: dpr_ 7 0 */ /*:ref: nvc2pl_ 14 3 7 7 7 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: inrypl_ 14 5 7 7 7 4 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: frame_ 14 3 7 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: edlimb_ 14 5 7 7 7 7 7 */ /*:ref: el2cgv_ 14 4 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: cgv2el_ 14 4 7 7 7 7 */ /*:ref: zzelvupy_ 14 6 7 7 7 4 7 12 */ /*:ref: zzocced_ 4 5 7 7 7 7 7 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: zzwind2d_ 4 3 4 7 7 */ extern int zzgfilu_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *et, U_fp udfunc, logical *decres, doublereal *angle, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); extern int zzgfilin_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); extern int zzgfildc_(U_fp udfunc, doublereal *et, logical *decres); extern int zzgfilgq_(doublereal *et, doublereal *angle); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: bodvrd_ 14 7 13 13 4 4 7 124 124 */ /*:ref: surfnm_ 14 5 7 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: esrchc_ 4 5 13 4 13 124 124 */ /*:ref: zzilusta_ 14 18 13 13 13 7 13 13 13 7 7 7 7 7 124 124 124 124 124 124 */ /*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ extern int zzgflong_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: wncard_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: copyd_ 14 2 7 7 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: bodc2s_ 14 3 4 13 124 */ /*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ /*:ref: pi_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: zzgfrelx_ 14 25 200 200 200 200 214 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ /*:ref: zzgfcosg_ 14 2 7 7 */ /*:ref: zzgfcocg_ 14 2 7 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: smsgnd_ 12 2 7 7 */ /*:ref: wninsd_ 14 3 7 7 7 */ /*:ref: wndifd_ 14 3 7 7 7 */ /*:ref: zzgfcog_ 14 2 7 7 */ /*:ref: wnunid_ 14 3 7 7 7 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: wnintd_ 14 3 7 7 7 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: lnknxt_ 4 2 4 4 */ /*:ref: elemi_ 12 2 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ extern int zzgfocu_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, doublereal *time, logical *ocstat, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); extern int zzgfocin_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); extern int zzgfocst_(doublereal *time, logical *ocstat); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: minad_ 14 4 7 4 7 4 */ /*:ref: maxad_ 14 4 7 4 7 4 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: zzminrad_ 14 1 7 */ /*:ref: zzmaxrad_ 14 1 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: zzocced_ 4 5 7 7 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: dasine_ 7 2 7 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ extern int zzgfpaq_(doublereal *et, integer *targ, integer *illmn, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: pi_ 7 0 */ extern int zzgfpau_(char *target, char *illmn, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); extern int zzgfpain_(char *target, char *illmn, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len); extern int zzgfpadc_(U_fp udfunc, doublereal *et, logical *decres); extern int zzgfpagq_(doublereal *et, doublereal *rvl); extern int zzgfpax_(integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen xabcor_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: clight_ 7 0 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: dvsep_ 7 2 7 7 */ /*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ extern int zzgfref_(doublereal *refval); /*:ref: zzholdd_ 14 4 4 4 12 7 */ extern int zzgfrel_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, S_fp udqref, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: copyd_ 14 2 7 7 */ /*:ref: wnexpd_ 14 3 7 7 7 */ /*:ref: wncard_ 4 1 7 */ /*:ref: wnfetd_ 14 4 7 4 7 7 */ /*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ /*:ref: wnextd_ 14 3 13 7 124 */ /*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ /*:ref: wnintd_ 14 3 7 7 7 */ /*:ref: wndifd_ 14 3 7 7 7 */ /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ /*:ref: swapi_ 14 2 4 4 */ extern int zzgfrelx_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: cardd_ 4 1 7 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: copyd_ 14 2 7 7 */ /*:ref: wnexpd_ 14 3 7 7 7 */ /*:ref: zzgfref_ 14 1 7 */ /*:ref: wncard_ 4 1 7 */ /*:ref: wnfetd_ 14 4 7 4 7 7 */ /*:ref: zzgfsolvx_ 14 14 214 200 200 200 12 212 12 7 7 7 7 12 200 7 */ /*:ref: wnextd_ 14 3 13 7 124 */ /*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ /*:ref: wnintd_ 14 3 7 7 7 */ /*:ref: wndifd_ 14 3 7 7 7 */ /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ /*:ref: swapi_ 14 2 4 4 */ extern int zzgfrpwk_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); extern int zzgftswk_(doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); extern int zzgfwkin_(doublereal *incr); extern int zzgfwkad_(doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); extern int zzgfwkun_(integer *unit); extern int zzgfwkmo_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: stdio_ 14 3 13 4 124 */ /*:ref: zzcputim_ 14 1 7 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ /*:ref: writln_ 14 3 13 4 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: dpfmt_ 14 5 7 13 13 124 124 */ extern int zzgfrrq_(doublereal *et, integer *targ, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dvnorm_ 7 1 7 */ extern int zzgfrru_(char *target, char *abcorr, char *obsrvr, doublereal *dt, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); extern int zzgfrrin_(char *target, char *abcorr, char *obsrvr, doublereal *dt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); extern int zzgfrrdc_(U_fp udfunc, doublereal *et, logical *decres); extern int zzgfrrgq_(doublereal *et, doublereal *rvl); extern int zzgfrrx_(integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen xabcor_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: dvhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: zzgfrrq_ 14 6 7 4 4 13 7 124 */ extern int zzgfsolv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: touchd_ 7 1 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ extern int zzgfsolvx_(U_fp udfuns, S_fp udfunb, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: dpmax_ 7 0 */ /*:ref: touchd_ 7 1 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ extern int zzgfspq_(doublereal *et, integer *targ1, integer *targ2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, doublereal *value, ftnlen abcorr_len, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: dasine_ 7 2 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: vsep_ 7 2 7 7 */ extern int zzgfspu_(char *of, char *from, char *shape, char *frame, doublereal *et, U_fp udfunc, char *abcorr, logical *decres, doublereal *sep, char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); extern int zzgfspin_(char *of, char *from, char *shape, char *frame, char *abcorr, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len); extern int zzgfspdc_(U_fp udfunc, doublereal *et, logical *decres); extern int zzgfspgq_(doublereal *et, doublereal *sep); extern int zzgfspx_(char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: dvsep_ 7 2 7 7 */ /*:ref: dhfa_ 7 2 7 7 */ /*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ extern int zzgfssin_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen dref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bodc2s_ 14 3 4 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: sxform_ 14 6 13 13 7 7 124 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vminug_ 14 3 7 4 7 */ /*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ /*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ /*:ref: zzcorsxf_ 14 4 12 7 7 7 */ /*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: clight_ 7 0 */ extern int zzgfssob_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, doublereal *radii, doublereal *state, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bodc2s_ 14 3 4 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vminug_ 14 3 7 4 7 */ /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ /*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ /*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: sxform_ 14 6 13 13 7 7 124 124 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: vscl_ 14 3 7 7 7 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: zzcorsxf_ 14 4 12 7 7 7 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: clight_ 7 0 */ extern int zzgftreb_(integer *body, doublereal *axes); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzgfudb_(U_fp udfuns, U_fp udfunb, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: wncard_ 4 1 7 */ /*:ref: wnfetd_ 14 4 7 4 7 7 */ /*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ /*:ref: failed_ 12 0 */ extern int zzgfudlt_(S_fp udfunc, doublereal *et, logical *isless); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzholdd_ 14 4 4 4 12 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzgfwsts_(doublereal *wndw1, doublereal *wndw2, char *inclsn, doublereal *wndw3, ftnlen inclsn_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: ssized_ 14 2 4 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: scardd_ 14 2 4 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzhash_ 4 2 13 124 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzgrav_(doublereal *grav); extern integer zzhashi_(integer *n, integer *m); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzholdd_(integer *op, integer *id, logical *ok, doublereal *value); /*:ref: return_ 12 0 */ /*:ref: brckti_ 4 3 4 4 4 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzhsc_(integer *hashsz, integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, integer *avail, ftnlen items_len, ftnlen item_len); extern int zzhscini_(integer *hashsz, integer *hedlst, integer *collst); extern int zzhscadd_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, ftnlen items_len, ftnlen item_len); extern int zzhscchk_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, ftnlen items_len, ftnlen item_len); extern int zzhscavl_(integer *collst, integer *avail); extern int zzhscinf_(integer *hedlst, integer *collst, char *items, char *item, integer *avail, ftnlen items_len, ftnlen item_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzhash2_ 4 3 13 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int zzhsi_(integer *hashsz, integer *hedlst, integer *collst, integer *items, integer *item, char *param, integer *itemat, logical *new__, integer *avail, ftnlen param_len); extern int zzhsiini_(integer *hashsz, integer *hedlst, integer *collst); extern int zzhsiadd_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat, logical *new__); extern int zzhsichk_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat); extern int zzhsiavl_(integer *collst, integer *avail); extern int zzhsiinf_(integer *hedlst, integer *collst, integer *items, char *param, integer *avail, ftnlen param_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzhashi_ 4 2 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int zzhullax_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: pi_ 7 0 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ extern int zzidmap_(integer *bltcod, char *bltnam, ftnlen bltnam_len); extern int zzilusta_(char *method, char *target, char *illum, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *normal, doublereal *phssta, doublereal *incsta, doublereal *emista, ftnlen method_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ /*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: sxform_ 14 6 13 13 7 7 124 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: clight_ 7 0 */ /*:ref: zzcorsxf_ 14 4 12 7 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: vminug_ 14 3 7 4 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: dvsep_ 7 2 7 7 */ extern logical zzingrd_(integer *nvox, integer *voxel); extern int zzinil_(doublereal *geophs, integer *opmode, doublereal *ecco, doublereal *epoch, doublereal *inclo, doublereal *no, doublereal *ainv, doublereal *ao, doublereal *con41, doublereal *con42, doublereal *cosio, doublereal *cosio2, doublereal *eccsq, doublereal *omeosq, doublereal *posq, doublereal *rp, doublereal *rteosq, doublereal *sinio, doublereal *gsto); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzinilnk_(integer *maxp, integer *maxc, integer *ncell, integer *pntrs, integer *cells); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzinlat_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); /*:ref: return_ 12 0 */ /*:ref: twopi_ 7 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: zzinlat0_ 14 6 7 7 7 7 4 12 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ extern int zzinlat0_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *bounds, integer *exclud, logical *inside); /*:ref: twopi_ 7 0 */ /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ extern int zzinpdt_(doublereal *p, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *exclud, logical *inside); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: halfpi_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: pi_ 7 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: zzinpdt0_ 14 6 7 7 7 7 4 12 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ /*:ref: failed_ 12 0 */ /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ extern int zzinpdt0_(doublereal *p, doublereal *lon, doublereal *bounds, doublereal *corpar, integer *exclud, logical *inside); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ /*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ extern int zzinrec_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzinrypl_(doublereal *vertex, doublereal *udir, doublereal *uplnml, doublereal *const__, doublereal *maxd, integer *nxpts, doublereal *xpt); /*:ref: vdot_ 7 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int zzinssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); extern int zzinvelt_(doublereal *p, integer *corsys, doublereal *corpar, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzinlat_ 14 5 7 7 7 4 12 */ /*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ /*:ref: zzinrec_ 14 5 7 7 7 4 12 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzlatbox_(doublereal *bounds, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); /*:ref: return_ 12 0 */ /*:ref: twopi_ 7 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: halfpi_ 7 0 */ /*:ref: cylrec_ 14 4 7 7 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ extern int zzldker_(char *file, char *nofile, char *filtyp, integer *handle, ftnlen file_len, ftnlen nofile_len, ftnlen filtyp_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: exists_ 12 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: getfat_ 14 6 13 13 13 124 124 124 */ /*:ref: spklef_ 14 3 13 4 124 */ /*:ref: cklpf_ 14 3 13 4 124 */ /*:ref: pcklof_ 14 3 13 4 124 */ /*:ref: tkvrsn_ 14 4 13 13 124 124 */ /*:ref: eklef_ 14 3 13 4 124 */ /*:ref: zzdsklsf_ 14 3 13 4 124 */ /*:ref: ldpool_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzbodkik_ 14 0 */ extern int zzlexmet_(char *method, integer *maxn, integer *n, integer *begs, integer *ends, ftnlen method_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: cpos_ 4 5 13 13 4 124 124 */ /*:ref: ltrim_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int zzmkpc_(char *pictur, integer *b, integer *e, char *mark, char *pattrn, ftnlen pictur_len, ftnlen mark_len, ftnlen pattrn_len); /*:ref: lastnb_ 4 2 13 124 */ /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ extern int zzmkspin_(integer *np, integer *plates, doublereal *vrtces, doublereal *voxscl, integer *cgscal, integer *maxptr, integer *mxcell, integer *maxvxl, integer *cells, integer *nvox, doublereal *voxsiz, doublereal *voxori, integer *nvxtot, integer *nvxptr, integer *vxptr, integer *nvxlst, integer *vxlist, doublereal *extent, integer *cgrptr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dpmax_ 7 0 */ /*:ref: dpmin_ 7 0 */ /*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: zzgetvox_ 14 6 7 7 4 7 12 4 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzvox2id_ 4 2 4 4 */ /*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ /*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ extern int zzmobliq_(doublereal *et, doublereal *mob, doublereal *dmob); /*:ref: jyear_ 7 0 */ /*:ref: rpd_ 7 0 */ extern int zzmsxf_(doublereal *matrix, integer *n, doublereal *output); extern doublereal zzmult_(doublereal *a, doublereal *b); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dpmax_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zznamfrm_(integer *usrctr, char *savnam, integer *savcde, char *frname, integer *frcode, ftnlen savnam_len, ftnlen frname_len); /*:ref: return_ 12 0 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zznofcon_(doublereal *et, integer *frame1, integer *endp1, integer *frame2, integer *endp2, char *errmsg, ftnlen errmsg_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: frmnam_ 14 3 4 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: repmf_ 14 10 13 13 7 4 13 13 124 124 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: ckmeta_ 14 4 4 13 4 124 */ /*:ref: zzsclk_ 12 2 4 4 */ 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); extern int zzdpinit_(doublereal *ao, doublereal *xlldot, doublereal *omgdot, doublereal *xnodot, doublereal *xnodp, doublereal *elems); extern int zzdpsec_(doublereal *xll, doublereal *omgasm, doublereal *xnodes, doublereal *em, doublereal *xinc, doublereal *xn, doublereal *t, doublereal *elems, doublereal *omgdot); extern int zzdpper_(doublereal *t, doublereal *em, doublereal *xinc, doublereal *omgasm, doublereal *xnodes, doublereal *xll); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: pi_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: j2000_ 7 0 */ /*:ref: spd_ 7 0 */ /*:ref: j1950_ 7 0 */ /*:ref: zzsecprt_ 14 12 4 7 7 7 7 7 7 7 7 7 7 7 */ extern int zznrmlon_(doublereal *inmin, doublereal *inmax, doublereal *tol, doublereal *outmin, doublereal *outmax); /*:ref: twopi_ 7 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dpr_ 7 0 */ /*:ref: touchd_ 7 1 7 */ extern int zznwpool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtwrk, char *notify, char *agents, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtwrk_len, ftnlen notify_len, ftnlen agents_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ /*:ref: unionc_ 14 6 13 13 13 124 124 124 */ /*:ref: copyc_ 14 4 13 13 124 124 */ /*:ref: chkout_ 14 2 13 124 */ extern integer zzocced_(doublereal *viewpt, doublereal *centr1, doublereal *semax1, doublereal *centr2, doublereal *semax2); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: unorm_ 14 3 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: isrot_ 12 3 7 7 7 */ /*:ref: det_ 7 1 7 */ /*:ref: mtxv_ 14 3 7 7 7 */ /*:ref: dasine_ 7 2 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: edlimb_ 14 5 7 7 7 7 7 */ /*:ref: el2cgv_ 14 4 7 7 7 7 */ /*:ref: psv2pl_ 14 4 7 7 7 7 */ /*:ref: vprjp_ 14 3 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: xpose_ 14 2 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: mxm_ 14 3 7 7 7 */ /*:ref: saelgv_ 14 4 7 7 7 7 */ /*:ref: cgv2el_ 14 4 7 7 7 7 */ /*:ref: zzasryel_ 14 7 13 7 7 7 7 7 124 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: pi_ 7 0 */ extern int zzpdcmpl_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat, integer *rel); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: halfpi_ 7 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ /*:ref: failed_ 12 0 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: reclat_ 14 4 7 7 7 7 */ extern logical zzpdpltc_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ /*:ref: failed_ 12 0 */ extern int zzpdtbox_(doublereal *bounds, doublereal *corpar, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: twopi_ 7 0 */ /*:ref: halfpi_ 7 0 */ /*:ref: georec_ 14 6 7 7 7 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: cylrec_ 14 4 7 7 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ extern integer zzphsh_(char *word, integer *m, integer *m2, ftnlen word_len); extern integer zzshsh_(integer *m); extern integer zzhash_(char *word, ftnlen word_len); extern integer zzhash2_(char *word, integer *m2, ftnlen word_len); /*:ref: intmax_ 4 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int zzpini_(logical *first, integer *maxvar, integer *maxval, integer *maxlin, char *begdat, char *begtxt, integer *nmpool, integer *dppool, integer *chpool, integer *namlst, integer *datlst, integer *maxagt, integer *mxnote, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agents, char *active, char *notify, integer *subctr, ftnlen begdat_len, ftnlen begtxt_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agents_len, ftnlen active_len, ftnlen notify_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzshsh_ 4 1 4 */ /*:ref: touchi_ 4 1 4 */ /*:ref: lnkini_ 14 2 4 4 */ /*:ref: ssizec_ 14 3 4 13 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: clearc_ 14 3 4 13 124 */ /*:ref: zzctrsin_ 14 1 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzplatfm_(char *key, char *value, ftnlen key_len, ftnlen value_len); /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: ljust_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ extern int zzpltchk_(logical *ok); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: zzgetbff_ 14 1 4 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzprscor_(char *abcorr, logical *attblk, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: orderc_ 14 4 13 4 4 124 */ /*:ref: reordc_ 14 4 4 4 13 124 */ /*:ref: reordl_ 14 3 4 4 12 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: bsrchc_ 4 5 13 4 13 124 124 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzprsmet_(integer *bodyid, char *method, integer *mxnsrf, char *shape, char *subtyp, logical *pri, integer *nsurf, integer *srflst, char *pntdef, char *trmtyp, ftnlen method_len, ftnlen shape_len, ftnlen subtyp_len, ftnlen pntdef_len, ftnlen trmtyp_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: zzlexmet_ 14 6 13 4 4 4 4 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: srfscc_ 14 5 13 4 4 12 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ extern int zzptpl02_(integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *point, integer *plid, integer *plate, doublereal *verts, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: dlassg_ 12 4 4 4 4 4 */ /*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ /*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzsegbox_ 14 3 7 7 7 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: dskgtl_ 14 2 4 7 */ /*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: brckti_ 4 3 4 4 4 */ /*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ /*:ref: zzvox2id_ 4 2 4 4 */ /*:ref: dpmax_ 7 0 */ /*:ref: pltexp_ 14 3 7 7 7 */ /*:ref: pltnrm_ 14 4 7 7 7 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ extern int zzraybox_(doublereal *vertex, doublereal *raydir, doublereal *boxori, doublereal *extent, doublereal *xpt, logical *found); /*:ref: return_ 12 0 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ 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); /*:ref: posr_ 4 5 13 13 4 124 124 */ extern int zzrecbox_(doublereal *bounds, doublereal *center, doublereal *lx, doublereal *ly, doublereal *lz, doublereal *radius); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ extern int zzrefch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ident_ 14 1 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzrotgt0_ 14 5 4 7 7 4 12 */ /*:ref: zzrxr_ 14 3 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ /*:ref: xpose_ 14 2 7 7 */ extern int zzrefch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ident_ 14 1 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzrotgt1_ 14 5 4 7 7 4 12 */ /*:ref: zzrxr_ 14 3 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ /*:ref: xpose_ 14 2 7 7 */ extern int zzrepsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); /*:ref: sumai_ 4 2 4 4 */ extern logical zzrept_(char *sub, char *replac, logical *l2r, ftnlen sub_len, ftnlen replac_len); /*:ref: zzsubt_ 12 5 13 13 12 124 124 */ /*:ref: zzremt_ 12 2 13 124 */ extern int zzrotgt0_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: tipbod_ 14 5 13 4 7 7 124 */ /*:ref: xpose_ 14 2 7 7 */ /*:ref: ckfrot_ 14 5 4 7 7 4 12 */ /*:ref: tkfram_ 14 4 4 7 4 12 */ /*:ref: zzdynrt0_ 14 5 4 4 7 7 4 */ /*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern int zzrotgt1_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: tipbod_ 14 5 13 4 7 7 124 */ /*:ref: xpose_ 14 2 7 7 */ /*:ref: ckfrot_ 14 5 4 7 7 4 12 */ /*:ref: tkfram_ 14 4 4 7 4 12 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ /*:ref: errch_ 14 4 13 13 124 124 */ extern int zzrtnmat_(doublereal *v, doublereal *m); /*:ref: return_ 12 0 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: rdkdat_ 14 3 13 12 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: rdklin_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: lastpc_ 4 2 13 124 */ /*:ref: zzhash_ 4 2 13 124 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ /*:ref: tparse_ 14 5 13 7 13 124 124 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ 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); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: lastpc_ 4 2 13 124 */ /*:ref: zzhash_ 4 2 13 124 */ /*:ref: lnknfn_ 4 1 4 */ /*:ref: lnkan_ 14 2 4 4 */ /*:ref: lnkila_ 14 3 4 4 4 */ /*:ref: lnkfsl_ 14 3 4 4 4 */ /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ /*:ref: tparse_ 14 5 13 7 13 124 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ extern int zzrxr_(doublereal *matrix, integer *n, doublereal *output); /*:ref: ident_ 14 1 7 */ extern int zzrytelt_(doublereal *vertex, doublereal *raydir, doublereal *dskdsc, doublereal *margin, integer *nxpts, doublereal *xpt); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzrytlat_ 14 6 7 7 7 7 4 7 */ /*:ref: zzrytrec_ 14 6 7 7 7 7 4 7 */ /*:ref: zzrytpdt_ 14 7 7 7 7 7 7 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzrytlat_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); /*:ref: zzinlat_ 14 5 7 7 7 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: zzryxsph_ 14 5 7 7 7 7 12 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vminus_ 14 2 7 7 */ extern int zzrytpdt_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *nxpts, doublereal *xpt); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ /*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: dpmax_ 7 0 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: halfpi_ 7 0 */ /*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ /*:ref: zzpdpltc_ 12 4 7 7 7 7 */ /*:ref: vpack_ 14 4 7 7 7 7 */ /*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vminus_ 14 2 7 7 */ extern int zzrytrec_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzinrec_ 14 5 7 7 7 4 12 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ extern int zzryxsph_(doublereal *vertex, doublereal *udir, doublereal *r__, doublereal *xpt, logical *found); /*:ref: vdot_ 7 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int zzscad01_(integer *sc, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *sclkat); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: movec_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: zzhsiavl_ 14 2 4 4 */ /*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: scli01_ 14 6 13 4 4 4 4 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: scld01_ 14 6 13 4 4 4 7 124 */ extern int zzscin01_(integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, integer *ifree, integer *prvsc); /*:ref: zzhsiini_ 14 3 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ extern logical zzsclk_(integer *ckid, integer *sclkid); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ssizei_ 14 2 4 4 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: elemi_ 12 2 4 4 */ /*:ref: cvpool_ 14 3 13 12 124 */ /*:ref: cardi_ 4 1 4 */ /*:ref: sizei_ 4 1 4 */ /*:ref: insrti_ 14 2 4 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: swpool_ 14 5 13 4 13 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: removi_ 14 2 4 4 */ extern int zzscup01_(integer *sc, integer *polctr, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *prvsc, integer *nfield, integer *delcde, integer *timsys, integer *ncoeff, integer *npart, integer *cofbas, integer *strbas, integer *endbas, integer *modbas, integer *offbas); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ /*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ /*:ref: zzscad01_ 14 10 4 4 4 4 4 7 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ 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); extern int zzsegbox_(doublereal *dskdsc, doublereal *boxctr, doublereal *maxr); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzlatbox_ 14 6 7 7 7 7 7 7 */ /*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ /*:ref: zzpdtbox_ 14 7 7 7 7 7 7 7 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern doublereal zzsepq_(doublereal *et, integer *bod1, integer *bod2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, ftnlen abcorr_len, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: dasine_ 7 2 7 7 */ /*:ref: vsep_ 7 2 7 7 */ extern int zzsfxcor_(S_fp udnear, S_fp udmaxr, S_fp udrayx, integer *trgcde, doublereal *et, char *abcorr, logical *uselt, logical *usecn, logical *usestl, logical *xmit, char *fixref, integer *obscde, integer *dfrcde, integer *dclass, integer *dcentr, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen abcorr_len, ftnlen fixref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: refchg_ 14 4 4 4 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: pxform_ 14 6 13 13 7 7 124 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: stelab_ 14 3 7 7 7 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: dasine_ 7 2 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: vdist_ 7 2 7 7 */ /*:ref: clight_ 7 0 */ /*:ref: nplnpt_ 14 5 7 7 7 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: vscl_ 14 3 7 7 7 */ extern int zzsglatx_(doublereal *p1, doublereal *p2, doublereal *minlat, doublereal *minp, doublereal *maxlat, doublereal *maxp); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: reclat_ 14 4 7 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: opsgnd_ 12 2 7 7 */ /*:ref: nvc2pl_ 14 3 7 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: inrypl_ 14 5 7 7 7 4 7 */ /*:ref: failed_ 12 0 */ extern int zzsgp4_(doublereal *geophs, doublereal *elems, integer *opmode, doublereal *t, doublereal *state); extern int xxsgp4i_(doublereal *geophs, doublereal *elems, integer *opmode); extern int xxsgp4e_(doublereal *t, doublereal *state); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: ttrans_ 14 5 13 13 7 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzinil_ 14 19 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ /*:ref: twopi_ 7 0 */ /*:ref: zzdscm_ 14 88 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ /*:ref: zzdspr_ 14 40 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 7 7 7 7 7 */ /*:ref: zzdsin_ 14 73 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ /*:ref: zzdspc_ 14 37 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: pi_ 7 0 */ extern int zzsinutl_(integer *trgcde, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *spoint, logical *found, doublereal *minrad, doublereal *maxrad, doublereal *pnear, doublereal *dist); extern int zzsuelin_(integer *trgcde); extern int zzsudski_(integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid); extern int zzraysfx_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *spoint, logical *found); extern int zzmaxrad_(doublereal *maxrad); extern int zzminrad_(doublereal *minrad); extern int zzraynp_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *pnear, doublereal *dist); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: failed_ 12 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: movei_ 14 3 4 4 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ /*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ /*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ extern int zzsizeok_(integer *size, integer *psize, integer *dsize, integer *offset, logical *ok, integer *n); /*:ref: rmaini_ 14 4 4 4 4 4 */ extern int zzspin_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, integer *bods, integer *frames, doublereal *mxrad, integer *obs, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: bods2c_ 14 4 13 4 12 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: zzgftreb_ 14 2 4 7 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ extern int zzspkac0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzspkas0_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ extern int zzspkac1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzspkas1_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ extern int zzspkap0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ extern int zzspkap1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ extern int zzspkas0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int zzspkas1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int zzspkez0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzspkac0_ 14 10 4 7 13 13 4 7 7 7 124 124 */ /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ /*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ /*:ref: zzfrmch0_ 14 4 4 4 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ extern int zzspkez1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzspkac1_ 14 10 4 7 13 13 4 7 7 7 124 124 */ /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ /*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ /*:ref: zzfrmch1_ 14 4 4 4 7 7 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ extern int zzspkfao_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ extern int zzspkfap_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzspkflt_ 14 10 200 7 13 13 7 7 7 7 124 124 */ /*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ extern int zzspkfat_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: zzspkfap_ 14 11 200 7 13 13 7 7 7 7 7 124 124 */ extern int zzspkflt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int zzspkfzo_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzspkfao_ 14 10 4 7 13 13 214 7 7 7 124 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: zzcorsxf_ 14 4 12 7 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ extern int zzspkfzt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: zzspkfat_ 14 10 214 7 13 13 4 7 7 7 124 124 */ /*:ref: spkssb_ 14 5 4 7 13 7 124 */ /*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ /*:ref: frmchg_ 14 4 4 4 7 7 */ /*:ref: zzcorsxf_ 14 4 12 7 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ extern int zzspkgo0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: frstnp_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: zzfrmch0_ 14 4 4 4 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ extern int zzspkgo1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: frstnp_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: zzfrmch1_ 14 4 4 4 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: vaddg_ 14 4 7 7 4 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ extern int zzspkgp0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: frstnp_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: zzrefch0_ 14 4 4 4 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ extern int zzspkgp1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: frstnp_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: failed_ 12 0 */ /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: mxv_ 14 3 7 7 7 */ /*:ref: zzrefch1_ 14 4 4 4 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: isrchi_ 4 3 4 4 4 */ /*:ref: bodc2n_ 14 4 4 13 12 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: intstr_ 14 3 4 13 124 */ /*:ref: etcal_ 14 3 7 13 124 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ extern int zzspklt0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int zzspklt1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzvalcor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: touchd_ 7 1 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ extern int zzspkpa0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ extern int zzspkpa1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: odd_ 12 1 4 */ /*:ref: irfnum_ 14 3 13 4 124 */ /*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ /*:ref: failed_ 12 0 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: stlabx_ 14 3 7 7 7 */ /*:ref: stelab_ 14 3 7 7 7 */ extern int zzspksb0_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzspksb1_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzspkzp0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: ltrim_ 4 2 13 124 */ /*:ref: eqchr_ 12 4 13 13 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ /*:ref: zzspkpa0_ 14 9 4 7 13 7 13 7 7 124 124 */ /*:ref: zzrefch0_ 14 4 4 4 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ extern int zzspkzp1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: ltrim_ 4 2 13 124 */ /*:ref: eqchr_ 12 4 13 13 124 124 */ /*:ref: eqstr_ 12 4 13 13 124 124 */ /*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ /*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: failed_ 12 0 */ /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ /*:ref: zzspkpa1_ 14 9 4 7 13 7 13 7 7 124 124 */ /*:ref: zzrefch1_ 14 4 4 4 7 7 */ /*:ref: mxv_ 14 3 7 7 7 */ extern int zzsrfini_(char *nornam, integer *codes, integer *bodies, integer *nvals, integer *maxval, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen nornam_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzhsiini_ 14 3 4 4 4 */ /*:ref: zzhscini_ 14 3 4 4 4 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: zzhash2_ 4 3 13 4 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzhashi_ 4 2 4 4 */ extern int zzsrfker_(char *kernam, char *nornam, integer *kersid, integer *kerbid, logical *extker, integer *nkvar, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen kernam_len, ftnlen nornam_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: swpool_ 14 5 13 4 13 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: zzsrfini_ 14 12 13 4 4 4 4 4 4 4 4 4 4 124 */ extern int zzsrftrn_(integer *bodyid, char *srfnam, integer *surfid, integer *usrctr, logical *found, logical *update, ftnlen srfnam_len); extern int zzsrfn2c_(char *srfnam, integer *bodyid, integer *surfid, logical *found, ftnlen srfnam_len); extern int zzsrfc2n_(integer *surfid, integer *bodyid, char *srfnam, logical *found, ftnlen srfnam_len); extern int zzsrftrk_(integer *usrctr, logical *update); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzctrsin_ 14 1 4 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: zzsrfker_ 14 14 13 13 4 4 12 4 4 4 4 4 4 4 124 124 */ /*:ref: zzcvpool_ 14 4 13 4 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzctrinc_ 14 1 4 */ /*:ref: ljucrs_ 14 5 4 13 13 124 124 */ /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ /*:ref: zzhash2_ 4 3 13 4 124 */ /*:ref: zzhashi_ 4 2 4 4 */ /*:ref: zzctrchk_ 14 3 4 4 12 */ extern int zzstelab_(logical *xmit, doublereal *accobs, doublereal *vobs, doublereal *starg, doublereal *scorr, doublereal *dscorr); /*:ref: return_ 12 0 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: dvhat_ 14 2 7 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: clight_ 7 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vzero_ 12 1 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: vlcom_ 14 5 7 7 7 7 7 */ /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ /*:ref: qderiv_ 14 5 4 7 7 7 7 */ extern int zzswfcln_(integer *hdfram, integer *frpool, integer *basbeg, integer *framat); /*:ref: chkin_ 14 2 13 124 */ /*:ref: cleari_ 14 2 4 4 */ /*:ref: zzhsiini_ 14 3 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzswffet_(integer *framid, integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *bascnt, logical *usetim, logical *binary, integer *clsses, integer *clsids, integer *baslst, doublereal *starts, doublereal *stops, integer *framat); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ /*:ref: failed_ 12 0 */ /*:ref: zzswfcln_ 14 4 4 4 4 4 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: zzhsiavl_ 14 2 4 4 */ /*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ /*:ref: namfrm_ 14 3 13 4 124 */ /*:ref: frinfo_ 14 5 4 4 4 4 12 */ /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ /*:ref: str2et_ 14 3 13 7 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: etcal_ 14 3 7 13 124 */ extern int zzswfini_(integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *prvat, integer *prvfrm, logical *samfrm); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzhsiini_ 14 3 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: cleari_ 14 2 4 4 */ extern int zzswfxfm_(integer *infrm, doublereal *et, integer *ndim, doublereal *xform, integer *outfrm, logical *found); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzswfini_ 14 8 4 4 4 4 4 4 4 12 */ /*:ref: zzctruin_ 14 1 4 */ /*:ref: filld_ 14 3 7 4 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzpctrck_ 14 2 4 12 */ /*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ /*:ref: zzswffet_ 14 15 4 4 4 4 4 4 4 12 12 4 4 4 7 7 4 */ /*:ref: failed_ 12 0 */ /*:ref: lstled_ 4 3 7 4 7 */ /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ /*:ref: ckfrot_ 14 5 4 7 7 4 12 */ /*:ref: tkfram_ 14 4 4 7 4 12 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: tisbod_ 14 5 13 4 7 7 124 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: tipbod_ 14 5 13 4 7 7 124 */ /*:ref: xpose_ 14 2 7 7 */ /*:ref: irfrot_ 14 3 4 4 7 */ /*:ref: ident_ 14 1 7 */ extern int zztangnt_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *schstp, doublereal *soltol, doublereal *result, doublereal *points); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: pi_ 7 0 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: zztanini_ 14 10 4 7 4 4 4 4 4 7 7 7 */ /*:ref: zzmaxrad_ 14 1 7 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: vnorm_ 7 1 7 */ /*:ref: dasine_ 7 2 7 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: zztanslv_ 14 11 200 200 200 12 7 7 7 7 7 7 12 */ /*:ref: cardd_ 4 1 7 */ extern int zztanslv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, doublereal *result, doublereal *points, logical *endflg); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: touchd_ 7 1 7 */ /*:ref: sized_ 4 1 7 */ /*:ref: failed_ 12 0 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: brcktd_ 7 3 7 7 7 */ /*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ extern int zztanutl_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *angle, logical *ocultd, doublereal *point); extern int zztanini_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis); extern int zztansta_(doublereal *angle, logical *ocultd, doublereal *point); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: return_ 12 0 */ /*:ref: vzero_ 12 1 7 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: vcrss_ 14 3 7 7 7 */ /*:ref: vhatip_ 14 1 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vhat_ 14 2 7 7 */ /*:ref: zzsuelin_ 14 1 4 */ /*:ref: zzsudski_ 14 4 4 4 4 4 */ /*:ref: vrotv_ 14 4 7 7 7 7 */ /*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ /*:ref: pi_ 7 0 */ /*:ref: vsclip_ 14 2 7 7 */ /*:ref: vadd_ 14 3 7 7 7 */ extern int zzteme_(doublereal *et, doublereal *j2tm, doublereal *tm2j); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzeprc76_ 14 2 7 7 */ /*:ref: invstm_ 14 2 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: zzenut80_ 14 2 7 7 */ /*:ref: mxvg_ 14 5 7 7 4 4 7 */ /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ /*:ref: chkout_ 14 2 13 124 */ 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); extern logical zzcmbt_(char *string, char *letter, logical *l2r, ftnlen string_len, ftnlen letter_len); extern logical zzgrep_(char *string, ftnlen string_len); extern logical zzispt_(char *string, integer *b, integer *e, ftnlen string_len); extern logical zzist_(char *letter, ftnlen letter_len); extern logical zznote_(char *letter, integer *b, integer *e, ftnlen letter_len); extern logical zzremt_(char *letter, ftnlen letter_len); extern logical zzsubt_(char *string, char *transl, logical *l2r, ftnlen string_len, ftnlen transl_len); extern logical zztokns_(char *string, char *error, ftnlen string_len, ftnlen error_len); 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); extern logical zzvalt_(char *string, integer *b, integer *e, char *letter, ftnlen string_len, ftnlen letter_len); /*:ref: chkin_ 14 2 13 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: pos_ 4 5 13 13 4 124 124 */ /*:ref: posr_ 4 5 13 13 4 124 124 */ /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ /*:ref: cpos_ 4 5 13 13 4 124 124 */ /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ /*:ref: rtrim_ 4 2 13 124 */ /*:ref: lx4uns_ 14 5 13 4 4 4 124 */ /*:ref: zztknerr_ 14 9 13 13 13 13 12 124 124 124 124 */ /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ /*:ref: prefix_ 14 5 13 4 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: samsbi_ 12 8 13 4 4 13 4 4 124 124 */ /*:ref: samchi_ 12 6 13 4 13 4 124 124 */ /*:ref: suffix_ 14 5 13 4 13 124 124 */ /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: zzmkpc_ 14 8 13 4 4 13 13 124 124 124 */ /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ extern int zztknerr_(char *templt, char *string, char *token, char *error, logical *status, ftnlen templt_len, ftnlen string_len, ftnlen token_len, ftnlen error_len); /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ extern int zztogrid_(doublereal *modxyz, doublereal *voxori, doublereal *voxsiz, doublereal *grdxyz); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern logical zztpats_(integer *room, integer *nknown, char *known, char *meanng, ftnlen known_len, ftnlen meanng_len); /*:ref: orderc_ 14 4 13 4 4 124 */ /*:ref: reordc_ 14 4 4 4 13 124 */ extern int zztrvlnk_(integer *aval, integer *maxa, integer *pntrs, integer *cellsz, integer *cells, integer *maxb, integer *nb, integer *blist); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zztwovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: dvhat_ 14 2 7 7 */ /*:ref: ducrss_ 14 3 7 7 7 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: cleard_ 14 2 4 7 */ /*:ref: vzero_ 12 1 7 */ extern int zzuntngl_(integer *nptr, integer *maxcel, integer *cells, integer *maxb, integer *pntrs, integer *nout, integer *outlst); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zztrvlnk_ 14 8 4 4 4 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ extern int zzutcpm_(char *string, integer *start, doublereal *hoff, doublereal *moff, integer *last, logical *succes, ftnlen string_len); /*:ref: lx4uns_ 14 5 13 4 4 4 124 */ /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ /*:ref: samch_ 12 6 13 4 13 4 124 124 */ extern int zzvalcor_(char *abcorr, logical *attblk, ftnlen abcorr_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzprscor_ 14 3 13 12 124 */ /*:ref: failed_ 12 0 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ extern integer zzvox2id_(integer *vixyz, integer *nvox); extern int zzvoxcvo_(integer *vixyz, integer *nvox, integer *cgrscl, integer *cgxyz, integer *cgoff, integer *cgof1d); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ extern int zzvrtplt_(integer *nv, integer *np, integer *plates, integer *cellsz, integer *maxlst, integer *cells, integer *vrtptr, integer *nlist, integer *pltlst); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ /*:ref: failed_ 12 0 */ /*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ /*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ 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); extern int zzvststr_(doublereal *x, char *fill, integer *expont, ftnlen fill_len); extern int zzvsbstr_(integer *from, integer *to, logical *rnd, char *substr, logical *did, ftnlen substr_len); /*:ref: dpstr_ 14 4 7 4 13 124 */ extern int zzwahr_(doublereal *et, doublereal *dvnut); /*:ref: pi_ 7 0 */ /*:ref: twopi_ 7 0 */ /*:ref: spd_ 7 0 */ extern integer zzwind_(doublereal *plane, integer *n, doublereal *vertcs, doublereal *point); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: pl2nvc_ 14 3 7 7 7 */ /*:ref: vzero_ 12 1 7 */ /*:ref: vdot_ 7 2 7 7 */ /*:ref: vminus_ 14 2 7 7 */ /*:ref: vequ_ 14 2 7 7 */ /*:ref: vsub_ 14 3 7 7 7 */ /*:ref: vperp_ 14 3 7 7 7 */ /*:ref: vsep_ 7 2 7 7 */ /*:ref: ucrss_ 14 3 7 7 7 */ /*:ref: twopi_ 7 0 */ extern integer zzwind2d_(integer *n, doublereal *vertcs, doublereal *point); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: vsubg_ 14 4 7 7 4 7 */ /*:ref: vsepg_ 7 3 7 7 4 */ /*:ref: vdotg_ 7 3 7 7 4 */ /*:ref: moved_ 14 3 7 4 7 */ /*:ref: twopi_ 7 0 */ extern int zzwninsd_(doublereal *left, doublereal *right, char *context, doublereal *window, ftnlen context_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: sized_ 4 1 7 */ /*:ref: cardd_ 4 1 7 */ /*:ref: lastnb_ 4 2 13 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errdp_ 14 3 13 7 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: scardd_ 14 2 4 7 */ /*:ref: errint_ 14 3 13 4 124 */ extern int zzxlated_(integer *inbff, char *input, integer *space, doublereal *output, ftnlen input_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: intmin_ 4 0 */ /*:ref: errint_ 14 3 13 4 124 */ /*:ref: moved_ 14 3 7 4 7 */ extern int zzxlatei_(integer *inbff, char *input, integer *space, integer *output, ftnlen input_len); /*:ref: return_ 12 0 */ /*:ref: chkin_ 14 2 13 124 */ /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ /*:ref: zzplatfm_ 14 4 13 13 124 124 */ /*:ref: ucase_ 14 4 13 13 124 124 */ /*:ref: isrchc_ 4 5 13 4 13 124 124 */ /*:ref: setmsg_ 14 2 13 124 */ /*:ref: errch_ 14 4 13 13 124 124 */ /*:ref: sigerr_ 14 2 13 124 */ /*:ref: chkout_ 14 2 13 124 */ /*:ref: intmin_ 4 0 */ /*:ref: errint_ 14 3 13 4 124 */ #ifdef __cplusplus } #endif #endif include/SpiceZim.h0100777000000000000000000021756114164213066011352 0ustar00/* -Header_File SpiceZim.h ( CSPICE interface macros ) -Abstract Define interface macros to be called in place of CSPICE user-interface-level functions. These macros are generally used to compensate for compiler deficiencies. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Literature_References None. -Particulars This header file defines interface macros to be called in place of CSPICE user-interface-level functions. Currently, the sole purpose of these macros is to implement automatic type casting under some environments that generate compile-time warnings without the casts. The typical case that causes a problem is a function argument list containing an input formal argument of type const double [3][3] Under some compilers, a non-const actual argument supplied in a call to such a function will generate a spurious warning due to the "mismatched" type. These macros generate type casts that will make such compilers happy. Examples of compilers that generate warnings of this type are gcc version 2.2.2, hosted on NeXT workstations running NeXTStep 3.3 Sun C compiler, version 4.2, running under Solaris. -Author_and_Institution N.J. Bachman (JPL) E.D. Wright (JPL) -Version -CSPICE Version 14.0.0, 19-DEC-2021 (NJB) Added macro for invstm_c. -CSPICE Version 13.0.0, 25-JAN-2017 (NJB) (EDW) Defined new abbreviation macro CONST_IVEC3. Added macros for dskgd_c dskmi2_c dskb02_c dskd02_c dski02_c dskn02_c dskobj_c dskp02_c dskrb2_c dsksrf_c dskv02_c dskxv_c dskxsi_c dskw02_c latsrf_c limbpt_c oscltx_c pltar_c pltexp_c pltnp_c pltnrm_c pltvol_c srfnrm_c termpt_c -CSPICE Version 12.0.0, 03-DEC-2013 (NJB) (EDW) (SCK) Added include for SpiceZrnm.h to eliminate symbol conflict encountered from Icy and JNISpice under OS X 10.7. Added macros for eqncpv_c fovray_c spkcpo_c spkcpt_c spkcvo_c spkcvt_c spkpnv_c spkw20_c -CSPICE Version 11.0.0, 09-MAR-2009 (NJB) (EDW) Added macros for dvsep_c gfevnt_c gffove_c gfrfov_c gfsntc_c surfpv_c -CSPICE Version 10.0.0, 19-FEB-2008 (NJB) (EDW) Added macros for ilumin_c spkaps_c spkltc_c -CSPICE Version 9.0.0, 31-OCT-2005 (NJB) Added macros for qdq2av_c qxq_c -CSPICE Version 8.0.0, 23-FEB-2004 (NJB) Added macro for dafrs_c -CSPICE Version 7.0.0, 23-FEB-2004 (EDW) Added macro for srfxpt_c -CSPICE Version 6.0.1, 25-FEB-2003 (EDW) (NJB) Remove duplicate macro definitions for ekaced_c and ekacei_c. Visual Studio errored out when compiling code that included SpiceZim.h. Added macro for dasac_c -CSPICE Version 6.0.0, 17-AUG-2002 (NJB) Added macros for bschoc_c bschoi_c bsrchc_c bsrchd_c bsrchi_c esrchc_c isordv_c isrchc_c isrchd_c isrchi_c lstltc_c lstltd_c lstlti_c lstlec_c lstled_c lstlei_c orderc_c orderd_c orderi_c reordc_c reordd_c reordi_c reordl_c spkw18_c -CSPICE Version 5.0.0, 28-AUG-2001 (NJB) Added macros for conics_c illum_c invort_c pdpool_c prop2b_c q2m_c spkuds_c xposeg_c -CSPICE Version 4.0.0, 22-MAR-2000 (NJB) Added macros for spkw12_c spkw13_c -CSPICE Version 3.0.0, 27-AUG-1999 (NJB) (EDW) Fixed cut & paste error in macro nvp2pl_c. Added macros for axisar_c cgv2el_c dafps_c dafus_c diags2_c dvdot_c dvhat_c edlimb_c ekacli_c ekacld_c ekacli_c eul2xf_c el2cgv_c getelm_c inedpl_c isrot_c mequ_c npedln_c nplnpt_c rav2xf_c raxisa_c saelgv_c spk14a_c spkapo_c spkapp_c spkw02_c spkw03_c spkw05_c spkw08_c spkw09_c spkw10_c spkw15_c spkw17_c sumai_c trace_c vadd_g vhatg_c vlcomg_c vminug_c vrel_c vrelg_c vsepg_c vtmv_c vtmvg_c vupack_c vzerog_c xf2eul_c xf2rav_c -CSPICE Version 2.0.0, 07-MAR-1999 (NJB) Added macros for inrypl_c nvc2pl_c nvp2pl_c pl2nvc_c pl2nvp_c pl2psv_c psv2pl_c vprjp_c vprjpi_c -CSPICE Version 1.0.0, 24-JAN-1999 (NJB) (EDW) -Index_Entries interface macros for CSPICE functions */ /* Include Files: */ /* Include the type definitions prior to defining the interface macros. The macros reference the types. */ #ifndef HAVE_SPICEDEFS_H #include "SpiceZdf.h" #endif /* Include those rename assignments for routines whose symbols will collide with other libraries. */ #ifndef HAVE_SPICERENAME_H #include "SpiceZrnm.h" #endif #ifndef HAVE_SPICEIFMACROS_H #define HAVE_SPICEIFMACROS_H /* Macros used to abbreviate type casts: */ #define CONST_BOOL ( ConstSpiceBoolean * ) #define CONST_DLADSC ( ConstSpiceDLADescr * ) #define CONST_DSKDSC ( ConstSpiceDSKDescr * ) #define CONST_ELLIPSE ( ConstSpiceEllipse * ) #define CONST_IVEC ( ConstSpiceInt * ) #define CONST_IVEC3 ( ConstSpiceInt (*) [3] ) #define CONST_MAT ( ConstSpiceDouble (*) [3] ) #define CONST_MAT2 ( ConstSpiceDouble (*) [2] ) #define CONST_MAT6 ( ConstSpiceDouble (*) [6] ) #define CONST_PLANE ( ConstSpicePlane * ) #define CONST_VEC3 ( ConstSpiceDouble (*) [3] ) #define CONST_VEC4 ( ConstSpiceDouble (*) [4] ) #define CONST_STR ( ConstSpiceChar * ) #define CONST_VEC ( ConstSpiceDouble * ) #define CONST_VOID ( const void * ) /* Macros that substitute for function calls: */ #define axisar_c( axis, angle, r ) \ \ ( axisar_c( CONST_VEC(axis), (angle), (r) ) ) #define bschoc_c( value, ndim, lenvals, array, order ) \ \ ( bschoc_c ( CONST_STR(value), (ndim), (lenvals), \ CONST_VOID(array), CONST_IVEC(order) ) ) #define bschoi_c( value, ndim, array, order ) \ \ ( bschoi_c ( (value) , (ndim), \ CONST_IVEC(array), CONST_IVEC(order) ) ) #define bsrchc_c( value, ndim, lenvals, array ) \ \ ( bsrchc_c ( CONST_STR(value), (ndim), (lenvals), \ CONST_VOID(array) ) ) #define bsrchd_c( value, ndim, array ) \ \ ( bsrchd_c( (value), (ndim), CONST_VEC(array) ) ) #define bsrchi_c( value, ndim, array ) \ \ ( bsrchi_c( (value), (ndim), CONST_IVEC(array) ) ) #define ckw01_c( handle, begtim, endtim, inst, ref, avflag, \ segid, nrec, sclkdp, quats, avvs ) \ \ ( ckw01_c ( (handle), (begtim), (endtim), \ (inst), CONST_STR(ref), (avflag), \ CONST_STR(segid), (nrec), \ CONST_VEC(sclkdp), CONST_VEC4(quats), \ CONST_VEC3(avvs) ) ) #define ckw02_c( handle, begtim, endtim, inst, ref, segid, \ nrec, start, stop, quats, avvs, rates ) \ \ ( ckw02_c ( (handle), (begtim), (endtim), \ (inst), CONST_STR(ref), \ CONST_STR(segid), (nrec), \ CONST_VEC(start), CONST_VEC(stop), \ CONST_VEC4(quats), CONST_VEC3(avvs), \ CONST_VEC(rates) ) ) #define ckw03_c( handle, begtim, endtim, inst, ref, avflag, \ segid, nrec, sclkdp, quats, avvs, nints, \ starts ) \ \ ( ckw03_c ( (handle), (begtim), (endtim), \ (inst), CONST_STR(ref), (avflag), \ CONST_STR(segid), (nrec), \ CONST_VEC(sclkdp), CONST_VEC4(quats), \ CONST_VEC3(avvs), (nints), \ CONST_VEC(starts) ) ) #define ckw05_c( handle, subtyp, degree, begtim, endtim, inst, \ ref, avflag, segid, n, sclkdp, packts, \ rate, nints, starts ) \ \ ( ckw05_c ( (handle), (subtyp), (degree), \ (begtim), (endtim), \ (inst), CONST_STR(ref), (avflag), \ CONST_STR(segid), (n), \ CONST_VEC(sclkdp), CONST_VOID(packts), \ (rate), (nints), \ CONST_VEC(starts) ) ) #define cgv2el_c( center, vec1, vec2, ellipse ) \ \ ( cgv2el_c( CONST_VEC(center), CONST_VEC(vec1), \ CONST_VEC(vec2), (ellipse) ) ) #define conics_c( elts, et, state ) \ \ ( conics_c( CONST_VEC(elts), (et), (state) ) ) #define dafps_c( nd, ni, dc, ic, sum ) \ \ ( dafps_c ( (nd), (ni), CONST_VEC(dc), CONST_IVEC(ic), \ (sum) ) ) #define dafrs_c( sum ) \ \ ( dafrs_c ( CONST_VEC( sum ) ) ) #define dafus_c( sum, nd, ni, dc, ic ) \ \ ( dafus_c ( CONST_VEC(sum), (nd), (ni), (dc), (ic) ) ) #define dasac_c( handle, n, buflen, buffer ) \ \ ( dasac_c ( (handle), (n), (buflen), CONST_VOID(buffer) ) ) #define det_c( m1 ) \ \ ( det_c ( CONST_MAT(m1) ) ) #define diags2_c( symmat, diag, rotate ) \ \ ( diags2_c ( CONST_MAT2(symmat), (diag), (rotate) ) ) #define dskb02_c( handle, dladsc, nv, np, nvxtot, \ vtxbds, voxsiz, voxori, vgrext, cgscal, \ vtxnpl, voxnpt, voxnpl ) \ \ ( dskb02_c( (handle), CONST_DLADSC(dladsc), (nv), (np), \ (nvxtot), (vtxbds), (voxsiz), (voxori), \ (vgrext), (cgscal), (vtxnpl), (voxnpt), \ (voxnpl) ) ) #define dskd02_c( handle, dladsc, item, start, room, n, values ) \ \ ( dskd02_c ( (handle), CONST_DLADSC(dladsc), (item), \ (start), (room), (n), (values) ) ) #define dski02_c( handle, dladsc, item, start, room, n, values ) \ \ ( dski02_c ( (handle), CONST_DLADSC(dladsc), (item), \ (start), (room), (n), (values) ) ) #define dskgd_c( handle, dladsc, dskdsc ) \ \ ( dskgd_c ( (handle), CONST_DLADSC(dladsc), (dskdsc) ) ) #define dskmi2_c( nv, vrtces, np, plates, \ finscl, corscl, worksz, voxpsz, voxlsz, \ makvtl, spxisz, work, spaixd, spaixi ) \ \ ( dskmi2_c ( (nv), CONST_VEC3(vrtces), (np), \ CONST_IVEC3(plates), (finscl), \ (corscl), (worksz), (voxpsz), \ (voxlsz), (makvtl), (spxisz), \ (work), (spaixd), (spaixi) ) ) #define dskn02_c( handle, dladsc, plid, normal ) \ \ ( dskn02_c ( (handle), CONST_DLADSC(dladsc), (plid), \ (normal) ) ) #define dskobj_c( dsk, bodids ) \ \ ( dskobj_c ( CONST_STR(dsk), (bodids) ) ) #define dskp02_c( handle, dladsc, start, room, n, plates ) \ \ ( dskp02_c ( (handle), CONST_DLADSC(dladsc), (start), \ (room), (n), (plates) ) ) #define dskrb2_c( nv, vrtces, np, plates, \ corsys, corpar, mncor3, mxcor3 ) \ \ ( dskrb2_c ( (nv), CONST_VEC3(vrtces), (np), \ CONST_IVEC3(plates), (corsys), \ (corpar), (mncor3), (mxcor3) ) ) #define dsksrf_c( dsk, bodyid, srfids ) \ \ ( dsksrf_c ( CONST_STR(dsk), (bodyid), (srfids) ) ) #define dskv02_c( handle, dladsc, start, room, n, vrtces ) \ \ ( dskv02_c ( (handle), CONST_DLADSC(dladsc), (start), \ (room), (n), (vrtces) ) ) #define dskw02_c( handle, center, surfce, dclass, \ frame, corsys, corpar, mncor1, \ mxcor1, mncor2, mxcor2, mncor3, \ mxcor3, first, last, nv, \ vrtces, np, plates, spaixd, spaixi ) \ \ ( dskw02_c ( (handle), (center), (surfce), (dclass), \ CONST_STR(frame), (corsys), \ CONST_VEC(corpar), (mncor1), (mxcor1), \ (mncor2), (mxcor2), (mncor3), \ (mxcor3), (first), (last), \ (nv), CONST_VEC3(vrtces), \ (np), CONST_IVEC3(plates), \ (spaixd), (spaixi) ) ) #define dskxsi_c( pri, target, nsurf, srflst, et, \ fixref, vertex, raydir, maxd, maxi, \ xpt, handle, dladsc, dskdsc, dc, \ ic, found ) \ \ ( dskxsi_c( (pri), CONST_STR(target), (nsurf), \ CONST_IVEC(srflst), (et), \ CONST_STR(fixref), CONST_VEC(vertex), \ CONST_VEC(raydir), (maxd), (maxi), \ (xpt), (handle), (dladsc),\ (dskdsc), (dc), (ic), \ (found) ) ) #define dskxv_c( pri, target, nsurf, srflst, et, fixref, \ nrays, vtxarr, dirarr, xptarr, fndarr ) \ \ ( dskxv_c( (pri), CONST_STR(target), (nsurf), \ CONST_IVEC(srflst), (et), \ CONST_STR(fixref), (nrays), \ CONST_VEC3(vtxarr), CONST_VEC3(dirarr), \ (xptarr), (fndarr) ) ) #define dvdot_c( s1, s2 ) \ \ ( dvdot_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) #define dvhat_c( v1, v2 ) \ \ ( dvhat_c ( CONST_VEC(v1), (v2) ) ) #define dvsep_c( s1, s2 ) \ \ ( dvsep_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) #define edlimb_c( a, b, c, viewpt, limb ) \ \ ( edlimb_c( (a), (b), (c), CONST_VEC(viewpt), (limb) ) ) #define ekacec_c( handle, segno, recno, column, nvals, vallen, \ cvals, isnull ) \ \ ( ekacec_c( (handle), (segno), (recno), CONST_STR(column), \ (nvals), (vallen), CONST_VOID(cvals), \ (isnull) ) ) #define ekaced_c( handle, segno, recno, column, nvals, \ dvals, isnull ) \ \ ( ekaced_c( (handle), (segno), (recno), CONST_STR(column), \ (nvals), CONST_VEC(dvals), (isnull) ) ) #define ekacei_c( handle, segno, recno, column, nvals, \ ivals, isnull ) \ \ ( ekacei_c( (handle), (segno), (recno), CONST_STR(column), \ (nvals), CONST_IVEC(ivals), (isnull) ) ) #define ekaclc_c( handle, segno, column, vallen, cvals, entszs, \ nlflgs, rcptrs, wkindx ) \ \ ( ekaclc_c( (handle), (segno), (column), (vallen), \ CONST_VOID(cvals), CONST_IVEC(entszs), \ CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ (wkindx) ) ) #define ekacld_c( handle, segno, column, dvals, entszs, nlflgs, \ rcptrs, wkindx ) \ \ ( ekacld_c( (handle), (segno), (column), \ CONST_VEC(dvals), CONST_IVEC(entszs), \ CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ (wkindx) ) ) #define ekacli_c( handle, segno, column, ivals, entszs, nlflgs, \ rcptrs, wkindx ) \ \ ( ekacli_c( (handle), (segno), (column), \ CONST_IVEC(ivals), CONST_IVEC(entszs), \ CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ (wkindx) ) ) #define ekbseg_c( handle, tabnam, ncols, cnmlen, cnames, declen, \ decls, segno ) \ \ ( ekbseg_c( (handle), (tabnam), (ncols), (cnmlen), \ CONST_VOID(cnames), (declen), \ CONST_VOID(decls), (segno) ) ) #define ekifld_c( handle, tabnam, ncols, nrows, cnmlen, cnames, \ declen, decls, segno, rcptrs ) \ \ ( ekifld_c( (handle), (tabnam), (ncols), (nrows), (cnmlen), \ CONST_VOID(cnames), (declen), \ CONST_VOID(decls), (segno), (rcptrs) ) ) #define ekucec_c( handle, segno, recno, column, nvals, vallen, \ cvals, isnull ) \ \ ( ekucec_c( (handle), (segno), (recno), CONST_STR(column), \ (nvals), (vallen), CONST_VOID(cvals), \ (isnull) ) ) #define ekuced_c( handle, segno, recno, column, nvals, \ dvals, isnull ) \ \ ( ekuced_c( (handle), (segno), (recno), CONST_STR(column), \ (nvals), CONST_VOID(dvals), (isnull) ) ) #define ekucei_c( handle, segno, recno, column, nvals, \ ivals, isnull ) \ \ ( ekucei_c( (handle), (segno), (recno), CONST_STR(column), \ (nvals), CONST_VOID(ivals), (isnull) ) ) #define el2cgv_c( ellipse, center, smajor, sminor ) \ \ ( el2cgv_c( CONST_ELLIPSE(ellipse), (center), \ (smajor), (sminor) ) ) #define eqncpv_c( et, epoch, eqel, rapol, decpol, state ) \ \ ( eqncpv_c ( (et), (epoch), CONST_VEC(eqel), (rapol), \ (decpol), (state) ) ) #define esrchc_c( value, ndim, lenvals, array ) \ \ ( esrchc_c ( CONST_STR(value), (ndim), (lenvals), \ CONST_VOID(array) ) ) #define eul2xf_c( eulang, axisa, axisb, axisc, xform ) \ \ ( eul2xf_c ( CONST_VEC(eulang), (axisa), (axisb), (axisc), \ (xform) ) ) #define fovray_c( inst, raydir, rframe, abcorr, observer, \ et, visible ) \ \ ( fovray_c( (inst), CONST_VEC(raydir), (rframe), \ (abcorr), (observer), (et), (visible) ) ) #define getelm_c( frstyr, lineln, lines, epoch, elems ) \ \ ( getelm_c ( (frstyr), (lineln), CONST_VOID(lines), \ (epoch), (elems) ) ) #define gfevnt_c( udstep, udrefn, gquant, qnpars, lenvals, \ qpnams, qcpars, qdpars, qipars, qlpars, \ op, refval, tol, adjust, rpt, \ udrepi, udrepu, udrepf, nintvls, \ bail, udbail, cnfine, result ) \ \ ( gfevnt_c( (udstep), (udrefn), (gquant), \ (qnpars), (lenvals), CONST_VOID(qpnams),\ CONST_VOID(qcpars), (qdpars), (qipars), \ (qlpars), (op), (refval), \ (tol), (adjust), (rpt), \ (udrepi), (udrepu), (udrepf), \ (nintvls), (bail), \ (udbail), (cnfine), (result) ) ) #define gffove_c( inst, tshape, raydir, target, tframe, \ abcorr, obsrvr, tol, udstep, udrefn, \ rpt, udrepi, udrepu, udrepf, bail, \ udbail, cnfine, result ) \ \ ( gffove_c( (inst), (tshape), CONST_VEC(raydir), \ (target), (tframe), (abcorr), \ (obsrvr), (tol), (udstep), \ (udrefn), (rpt), (udrepi), \ (udrepu), (udrepf), (bail), \ (udbail), (cnfine), (result) ) ) #define gfrfov_c( inst, raydir, rframe, abcorr, obsrvr, \ step, cnfine, result ) \ \ ( gfrfov_c( (inst), CONST_VEC(raydir), (rframe), \ (abcorr), (obsrvr), (step), \ (cnfine), (result) ) ) #define gfsntc_c( target, fixref, method, abcorr, obsrvr, \ dref, dvec, crdsys, coord, relate, \ refval, adjust, step, nintvls, cnfine, \ result ) \ \ ( gfsntc_c( (target), (fixref), (method), \ (abcorr), (obsrvr), (dref), \ CONST_VEC(dvec), (crdsys), (coord), \ (relate), (refval), (adjust), \ (step), (nintvls), (cnfine), (result) ) ) #define illum_c( target, et, abcorr, obsrvr, \ spoint, phase, solar, emissn ) \ \ ( illum_c ( (target), (et), (abcorr), (obsrvr), \ CONST_VEC(spoint), (phase), (solar), (emissn) ) ) #define ilumin_c( method, target, et, fixref, \ abcorr, obsrvr, spoint, trgepc, \ srfvec, phase, solar, emissn ) \ \ ( ilumin_c ( (method), (target), (et), (fixref), \ (abcorr), (obsrvr), CONST_VEC(spoint), (trgepc), \ (srfvec), (phase), (solar), (emissn) ) ) #define inedpl_c( a, b, c, plane, ellipse, found ) \ \ ( inedpl_c ( (a), (b), (c), \ CONST_PLANE(plane), (ellipse), (found) ) ) #define inrypl_c( vertex, dir, plane, nxpts, xpt ) \ \ ( inrypl_c ( CONST_VEC(vertex), CONST_VEC(dir), \ CONST_PLANE(plane), (nxpts), (xpt) ) ) #define invert_c( m1, m2 ) \ \ ( invert_c ( CONST_MAT(m1), (m2) ) ) #define invort_c( m, mit ) \ \ ( invort_c ( CONST_MAT(m), (mit) ) ) #define invstm_c( mat, invmat ) \ \ ( invstm_c ( CONST_MAT6(mat), (invmat) ) ) #define isordv_c( array, n ) \ \ ( isordv_c ( CONST_IVEC(array), (n) ) ) #define isrchc_c( value, ndim, lenvals, array ) \ \ ( isrchc_c ( CONST_STR(value), (ndim), (lenvals), \ CONST_VOID(array) ) ) #define isrchd_c( value, ndim, array ) \ \ ( isrchd_c( (value), (ndim), CONST_VEC(array) ) ) #define isrchi_c( value, ndim, array ) \ \ ( isrchi_c( (value), (ndim), CONST_IVEC(array) ) ) #define isrot_c( m, ntol, dtol ) \ \ ( isrot_c ( CONST_MAT(m), (ntol), (dtol) ) ) #define latsrf_c( method, target, et, fixref, \ npts, lonlat, srfpts ) \ \ ( latsrf_c( CONST_STR(method), CONST_STR(target), (et), \ CONST_STR(fixref), (npts), CONST_MAT2(lonlat), \ (srfpts) ) ) #define limbpt_c( method, target, et, fixref, \ abcorr, corloc, obsrvr, refvec, \ rolstp, ncuts, schstp, soltol, \ maxn, npts, points, epochs, \ tangts ) \ \ ( limbpt_c( CONST_STR(method), CONST_STR(target), (et), \ CONST_STR(fixref), CONST_STR(abcorr), \ CONST_STR(corloc), CONST_STR(obsrvr), \ CONST_VEC(refvec), (rolstp), (ncuts), \ (schstp), (soltol), (maxn), \ (npts), (points), (epochs), \ (tangts) ) ) #define lmpool_c( cvals, lenvals, n ) \ \ ( lmpool_c( CONST_VOID(cvals), (lenvals), (n) ) ) #define lstltc_c( value, ndim, lenvals, array ) \ \ ( lstltc_c ( CONST_STR(value), (ndim), (lenvals), \ CONST_VOID(array) ) ) #define lstled_c( value, ndim, array ) \ \ ( lstled_c( (value), (ndim), CONST_VEC(array) ) ) #define lstlei_c( value, ndim, array ) \ \ ( lstlei_c( (value), (ndim), CONST_IVEC(array) ) ) #define lstlec_c( value, ndim, lenvals, array ) \ \ ( lstlec_c ( CONST_STR(value), (ndim), (lenvals), \ CONST_VOID(array) ) ) #define lstltd_c( value, ndim, array ) \ \ ( lstltd_c( (value), (ndim), CONST_VEC(array) ) ) #define lstlti_c( value, ndim, array ) \ \ ( lstlti_c( (value), (ndim), CONST_IVEC(array) ) ) #define m2eul_c( r, axis3, axis2, axis1, \ angle3, angle2, angle1 ) \ \ ( m2eul_c ( CONST_MAT(r), (axis3), (axis2), (axis1), \ (angle3), (angle2), (angle1) ) ) #define m2q_c( r, q ) \ \ ( m2q_c ( CONST_MAT(r), (q) ) ) #define mequ_c( m1, m2 ) \ \ ( mequ_c ( CONST_MAT(m1), m2 ) ) #define mequg_c( m1, nr, nc, mout ) \ \ ( mequg_c ( CONST_MAT(m1), (nr), (nc), mout ) ) #define mtxm_c( m1, m2, mout ) \ \ ( mtxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) #define mtxmg_c( m1, m2, ncol1, nr1r2, ncol2, mout ) \ \ ( mtxmg_c ( CONST_MAT(m1), CONST_MAT(m2), \ (ncol1), (nr1r2), (ncol2), (mout) ) ) #define mtxv_c( m1, vin, vout ) \ \ ( mtxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) #define mtxvg_c( m1, v2, nrow1, nc1r2, vout ) \ \ ( mtxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ (nrow1), (nc1r2), (vout) ) ) #define mxm_c( m1, m2, mout ) \ \ ( mxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) #define mxmg_c( m1, m2, row1, col1, col2, mout ) \ \ ( mxmg_c ( CONST_VOID(m1), CONST_VOID(m2), \ (row1), (col1), (col2), (mout) ) ) #define mxmt_c( m1, m2, mout ) \ \ ( mxmt_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) #define mxmtg_c( m1, m2, nrow1, nc1c2, nrow2, mout ) \ \ ( mxmtg_c ( CONST_VOID(m1), CONST_VOID(m2), \ (nrow1), (nc1c2), \ (nrow2), (mout) ) ) #define mxv_c( m1, vin, vout ) \ \ ( mxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) #define mxvg_c( m1, v2, nrow1, nc1r2, vout ) \ \ ( mxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ (nrow1), (nc1r2), (vout) ) ) #define nearpt_c( positn, a, b, c, npoint, alt ) \ \ ( nearpt_c ( CONST_VEC(positn), (a), (b), (c), \ (npoint), (alt) ) ) #define npedln_c( a, b, c, linept, linedr, pnear, dist ) \ \ ( npedln_c ( (a), (b), (c), \ CONST_VEC(linept), CONST_VEC(linedr), \ (pnear), (dist) ) ) #define nplnpt_c( linpt, lindir, point, pnear, dist ) \ \ ( nplnpt_c ( CONST_VEC(linpt), CONST_VEC(lindir), \ CONST_VEC(point), (pnear), (dist ) ) ) #define nvc2pl_c( normal, constant, plane ) \ \ ( nvc2pl_c ( CONST_VEC(normal), (constant), (plane) ) ) #define nvp2pl_c( normal, point, plane ) \ \ ( nvp2pl_c( CONST_VEC(normal), CONST_VEC(point), (plane) ) ) #define orderc_c( lenvals, array, ndim, iorder ) \ \ ( orderc_c ( (lenvals), CONST_VOID(array), (ndim), (iorder)) ) #define orderd_c( array, ndim, iorder ) \ \ ( orderd_c ( CONST_VEC(array), (ndim), (iorder) ) ) #define orderi_c( array, ndim, iorder ) \ \ ( orderi_c ( CONST_IVEC(array), (ndim), (iorder) ) ) #define oscelt_c( state, et, mu, elts ) \ \ ( oscelt_c ( CONST_VEC(state), (et), (mu), (elts) ) ) #define oscltx_c( state, et, mu, elts ) \ \ ( oscltx_c ( CONST_VEC(state), (et), (mu), (elts) ) ) #define pcpool_c( name, n, lenvals, cvals ) \ \ ( pcpool_c ( (name), (n), (lenvals), CONST_VOID(cvals) ) ) #define pdpool_c( name, n, dvals ) \ \ ( pdpool_c ( (name), (n), CONST_VEC(dvals) ) ) #define pipool_c( name, n, ivals ) \ \ ( pipool_c ( (name), (n), CONST_IVEC(ivals) ) ) #define pl2nvc_c( plane, normal, constant ) \ \ ( pl2nvc_c ( CONST_PLANE(plane), (normal), (constant) ) ) #define pl2nvp_c( plane, normal, point ) \ \ ( pl2nvp_c ( CONST_PLANE(plane), (normal), (point) ) ) #define pl2psv_c( plane, point, span1, span2 ) \ \ ( pl2psv_c( CONST_PLANE(plane), (point), (span1), (span2) ) ) #define pltar_c( nv, vrtces, np, plates ) \ \ ( pltar_c( (nv), CONST_VEC3(vrtces), \ (np), CONST_IVEC3(plates) ) ) #define pltexp_c( iverts, delta, overts ) \ \ ( pltexp_c( CONST_VEC3(iverts), (delta), (overts) ) ) #define pltnp_c( point, v1, v2, v3, pnear, dist ) \ \ ( pltnp_c( CONST_VEC(point), CONST_VEC(v1), CONST_VEC(v2), \ CONST_VEC(v3), (pnear), (dist) ) ) #define pltnrm_c( v1, v2, v3, normal ) \ \ ( pltnrm_c( CONST_VEC(v1), CONST_VEC(v2), CONST_VEC(v3), \ (normal) ) ) #define pltvol_c( nv, vrtces, np, plates ) \ \ ( pltvol_c( (nv), CONST_VEC3(vrtces), \ (np), CONST_IVEC3(plates) ) ) #define prop2b_c( gm, pvinit, dt, pvprop ) \ \ ( prop2b_c ( (gm), CONST_VEC(pvinit), (dt), (pvprop) ) ) #define psv2pl_c( point, span1, span2, plane ) \ \ ( psv2pl_c ( CONST_VEC(point), CONST_VEC(span1), \ CONST_VEC(span2), (plane) ) ) #define qdq2av_c( q, dq, av ) \ \ ( qdq2av_c ( CONST_VEC(q), CONST_VEC(dq), (av) ) ) #define q2m_c( q, r ) \ \ ( q2m_c ( CONST_VEC(q), (r) ) ) #define qxq_c( q1, q2, qout ) \ \ ( qxq_c ( CONST_VEC(q1), CONST_VEC(q2), (qout) ) ) #define rav2xf_c( rot, av, xform ) \ \ ( rav2xf_c ( CONST_MAT(rot), CONST_VEC(av), (xform) ) ) #define raxisa_c( matrix, axis, angle ) \ \ ( raxisa_c ( CONST_MAT(matrix), (axis), (angle) ) ); #define reccyl_c( rectan, r, lon, z ) \ \ ( reccyl_c ( CONST_VEC(rectan), (r), (lon), (z) ) ) #define recgeo_c( rectan, re, f, lon, lat, alt ) \ \ ( recgeo_c ( CONST_VEC(rectan), (re), (f), \ (lon), (lat), (alt) ) ) #define reclat_c( rectan, r, lon, lat ) \ \ ( reclat_c ( CONST_VEC(rectan), (r), (lon), (lat) ) ) #define recrad_c( rectan, radius, ra, dec ) \ \ ( recrad_c ( CONST_VEC(rectan), (radius), (ra), (dec) ) ) #define recsph_c( rectan, r, colat, lon ) \ \ ( recsph_c ( CONST_VEC(rectan), (r), (colat), (lon) ) ) #define reordd_c( iorder, ndim, array ) \ \ ( reordd_c ( CONST_IVEC(iorder), (ndim), (array) ) ) #define reordi_c( iorder, ndim, array ) \ \ ( reordi_c ( CONST_IVEC(iorder), (ndim), (array) ) ) #define reordl_c( iorder, ndim, array ) \ \ ( reordl_c ( CONST_IVEC(iorder), (ndim), (array) ) ) #define rotmat_c( m1, angle, iaxis, mout ) \ \ ( rotmat_c ( CONST_MAT(m1), (angle), (iaxis), (mout) ) ) #define rotvec_c( v1, angle, iaxis, vout ) \ \ ( rotvec_c ( CONST_VEC(v1), (angle), (iaxis), (vout) ) ) #define saelgv_c( vec1, vec2, smajor, sminor ) \ \ ( saelgv_c ( CONST_VEC(vec1), CONST_VEC(vec2), \ (smajor), (sminor) ) ) #define spk14a_c( handle, ncsets, coeffs, epochs ) \ \ ( spk14a_c ( (handle), (ncsets), \ CONST_VEC(coeffs), CONST_VEC(epochs) ) ) #define spkapo_c( targ, et, ref, sobs, abcorr, ptarg, lt ) \ \ ( spkapo_c ( (targ), (et), (ref), CONST_VEC(sobs), \ (abcorr), (ptarg), (lt) ) ) #define spkapp_c( targ, et, ref, sobs, abcorr, starg, lt ) \ \ ( spkapp_c ( (targ), (et), (ref), CONST_VEC(sobs), \ (abcorr), (starg), (lt) ) ) #define spkaps_c( targ, et, ref, abcorr, sobs, \ accobs, starg, lt, dlt ) \ \ ( spkaps_c ( (targ), (et), (ref), (abcorr), \ CONST_VEC(sobs), CONST_VEC(accobs), \ (starg), (lt), (dlt) ) ) #define spkcpo_c( target, et, outref, refloc, \ abcorr, obspos, obsctr, \ obsref, state, lt ) \ \ ( spkcpo_c( (target), (et), (outref), (refloc), \ (abcorr), CONST_VEC(obspos), (obsctr), \ (obsref), (state), (lt) ) ) #define spkcpt_c( trgpos, trgctr, trgref, \ et, outref, refloc, abcorr, \ obsrvr, state, lt ) \ \ ( spkcpt_c( CONST_VEC(trgpos), (trgctr), (trgref), \ (et), (outref), (refloc), (abcorr), \ (obsrvr), (state), (lt) ) ) #define spkcvo_c( target, et, outref, refloc, \ abcorr, obssta, obsepc, obsctr, \ obsref, state, lt ) \ \ ( spkcvo_c( (target), (et), (outref), (refloc), \ (abcorr), CONST_VEC(obssta), (obsepc), \ (obsctr), (obsref), (state), (lt) ) ) #define spkcvt_c( trgsta, trgepc, trgctr, trgref, \ et, outref, refloc, abcorr, \ obsrvr, state, lt ) \ \ ( spkcvt_c( CONST_VEC(trgsta), (trgepc), (trgctr), \ (trgref), (et), (outref), (refloc), \ (abcorr), (obsrvr), (state), (lt) ) ) #define spkltc_c( targ, et, ref, abcorr, sobs, starg, lt, dlt ) \ \ ( spkltc_c ( (targ), (et), (ref), (abcorr), \ CONST_VEC(sobs), (starg), (lt), (dlt) ) ) #define spkpvn_c( handle, descr, et, ref, state, center ) \ \ ( spkpvn_c ( (handle), CONST_VEC(descr), (et), \ (ref), (state), (center) ) ) #define spkuds_c( descr, body, center, frame, type, \ first, last, begin, end ) \ \ ( spkuds_c ( CONST_VEC(descr), (body), (center), (frame), \ (type), (first), (last), (begin), (end) ) ) #define spkw02_c( handle, body, center, frame, first, last, \ segid, intlen, n, polydg, cdata, btime ) \ \ ( spkw02_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (intlen), \ (n), (polydg), CONST_VEC(cdata), (btime) ) ) #define spkw03_c( handle, body, center, frame, first, last, \ segid, intlen, n, polydg, cdata, btime ) \ \ ( spkw03_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (intlen), \ (n), (polydg), CONST_VEC(cdata), (btime) ) ) #define spkw05_c( handle, body, center, frame, first, last, \ segid, gm, n, states, epochs ) \ \ ( spkw05_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (gm), \ (n), \ CONST_MAT6(states), CONST_VEC(epochs) ) ) #define spkw08_c( handle, body, center, frame, first, last, \ segid, degree, n, states, epoch1, step ) \ \ ( spkw08_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (degree), \ (n), CONST_MAT6(states), (epoch1), \ (step) ) ) #define spkw09_c( handle, body, center, frame, first, last, \ segid, degree, n, states, epochs ) \ \ ( spkw09_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (degree), (n), \ CONST_MAT6(states), CONST_VEC(epochs) ) ) #define spkw10_c( handle, body, center, frame, first, last, \ segid, consts, n, elems, epochs ) \ \ ( spkw10_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), CONST_VEC(consts), \ (n), CONST_VEC(elems), CONST_VEC(epochs)) ) #define spkw12_c( handle, body, center, frame, first, last, \ segid, degree, n, states, epoch0, step ) \ \ ( spkw12_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (degree), \ (n), CONST_MAT6(states), (epoch0), \ (step) ) ) #define spkw13_c( handle, body, center, frame, first, last, \ segid, degree, n, states, epochs ) \ \ ( spkw13_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (degree), (n), \ CONST_MAT6(states), CONST_VEC(epochs) ) ) #define spkw15_c( handle, body, center, frame, first, last, \ segid, epoch, tp, pa, p, ecc, \ j2flg, pv, gm, j2, radius ) \ \ ( spkw15_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (epoch), \ CONST_VEC(tp), CONST_VEC(pa), \ (p), (ecc), (j2flg), CONST_VEC(pv), \ (gm), (j2), (radius) ) ) #define spkw17_c( handle, body, center, frame, first, last, \ segid, epoch, eqel, rapol, decpol ) \ \ ( spkw17_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (epoch), \ CONST_VEC(eqel), (rapol), (decpol) ) ) #define spkw18_c( handle, subtyp, body, center, frame, first, \ last, segid, degree, n, packts, epochs ) \ \ ( spkw18_c ( (handle), (subtyp), (body), (center), (frame), \ (first), (last), (segid), (degree), (n), \ CONST_VOID(packts), CONST_VEC(epochs) ) ) #define spkw20_c( handle, body, center, frame, first, last, \ segid, intlen, n, polydg, cdata, dscale, \ tscale, initjd, initfr ) \ \ ( spkw20_c ( (handle), (body), (center), (frame), \ (first), (last), (segid), (intlen), \ (n), (polydg), CONST_VEC(cdata), (dscale), \ (tscale), (initjd), (initfr) ) ) #define srfxpt_c( method, target, et, abcorr, obsrvr, dref, \ dvec, spoint, dist, trgepc, obspos, found ) \ \ ( srfxpt_c ( (method), (target), (et), (abcorr), (obsrvr), \ (dref), CONST_VEC(dvec), (spoint), (dist), \ (trgepc), (obspos), (found) ) ) #define srfnrm_c( method, target, et, fixref, \ npts, srfpts, normls ) \ \ ( srfnrm_c ( CONST_STR(method), CONST_STR(target), (et), \ CONST_STR(fixref), (npts), \ CONST_VEC3(srfpts), (normls) ) ) #define stelab_c( pobj, vobj, appobj ) \ \ ( stelab_c ( CONST_VEC(pobj), CONST_VEC(vobj), (appobj) ) ) #define sumad_c( array, n ) \ \ ( sumad_c ( CONST_VEC(array), (n) ) ) #define sumai_c( array, n ) \ \ ( sumai_c ( CONST_IVEC(array), (n) ) ) #define surfnm_c( a, b, c, point, normal ) \ \ ( surfnm_c ( (a), (b), (c), CONST_VEC(point), (normal) ) ) #define surfpt_c( positn, u, a, b, c, point, found ) \ \ ( surfpt_c ( CONST_VEC(positn), CONST_VEC(u), \ (a), (b), (c), \ (point), (found) ) ) #define surfpv_c( stvrtx, stdir, a, b, c, stx, found ) \ \ ( surfpv_c ( CONST_VEC(stvrtx), CONST_VEC(stdir), \ (a), (b), (c), \ (stx), (found) ) ) #define swpool_c( agent, nnames, lenvals, names ) \ \ ( swpool_c( CONST_STR(agent), (nnames), \ (lenvals), CONST_VOID(names) ) ) #define termpt_c( method, ilusrc, target, et, fixref, \ abcorr, corloc, obsrvr, refvec, \ rolstp, ncuts, schstp, soltol, \ maxn, npts, points, epochs, \ tangts ) \ \ ( termpt_c( CONST_STR(method), CONST_STR(ilusrc), \ CONST_STR(target), (et), \ CONST_STR(fixref), CONST_STR(abcorr), \ CONST_STR(corloc), CONST_STR(obsrvr), \ CONST_VEC(refvec), (rolstp), (ncuts), \ (schstp), (soltol), (maxn), \ (npts), (points), (epochs), \ (tangts) ) ) #define trace_c( m1 ) \ \ ( trace_c ( CONST_MAT(m1) ) ) #define twovec_c( axdef, indexa, plndef, indexp, mout ) \ \ ( twovec_c ( CONST_VEC(axdef), (indexa), \ CONST_VEC(plndef), (indexp), (mout) ) ) #define ucrss_c( v1, v2, vout ) \ \ ( ucrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) #define unorm_c( v1, vout, vmag ) \ \ ( unorm_c ( CONST_VEC(v1), (vout), (vmag) ) ) #define unormg_c( v1, ndim, vout, vmag ) \ \ ( unormg_c ( CONST_VEC(v1), (ndim), (vout), (vmag) ) ) #define vadd_c( v1, v2, vout ) \ \ ( vadd_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) #define vaddg_c( v1, v2, ndim,vout ) \ \ ( vaddg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim), (vout) ) ) #define vcrss_c( v1, v2, vout ) \ \ ( vcrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) #define vdist_c( v1, v2 ) \ \ ( vdist_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) #define vdistg_c( v1, v2, ndim ) \ \ ( vdistg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) #define vdot_c( v1, v2 ) \ \ ( vdot_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) #define vdotg_c( v1, v2, ndim ) \ \ ( vdotg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) #define vequ_c( vin, vout ) \ \ ( vequ_c ( CONST_VEC(vin), (vout) ) ) #define vequg_c( vin, ndim, vout ) \ \ ( vequg_c ( CONST_VEC(vin), (ndim), (vout) ) ) #define vhat_c( v1, vout ) \ \ ( vhat_c ( CONST_VEC(v1), (vout) ) ) #define vhatg_c( v1, ndim, vout ) \ \ ( vhatg_c ( CONST_VEC(v1), (ndim), (vout) ) ) #define vlcom3_c( a, v1, b, v2, c, v3, sum ) \ \ ( vlcom3_c ( (a), CONST_VEC(v1), \ (b), CONST_VEC(v2), \ (c), CONST_VEC(v3), (sum) ) ) #define vlcom_c( a, v1, b, v2, sum ) \ \ ( vlcom_c ( (a), CONST_VEC(v1), \ (b), CONST_VEC(v2), (sum) ) ) #define vlcomg_c( n, a, v1, b, v2, sum ) \ \ ( vlcomg_c ( (n), (a), CONST_VEC(v1), \ (b), CONST_VEC(v2), (sum) ) ) #define vminug_c( v1, ndim, vout ) \ \ ( vminug_c ( CONST_VEC(v1), (ndim), (vout) ) ) #define vminus_c( v1, vout ) \ \ ( vminus_c ( CONST_VEC(v1), (vout) ) ) #define vnorm_c( v1 ) \ \ ( vnorm_c ( CONST_VEC(v1) ) ) #define vnormg_c( v1, ndim ) \ \ ( vnormg_c ( CONST_VEC(v1), (ndim) ) ) #define vperp_c( a, b, p ) \ \ ( vperp_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) #define vprjp_c( vin, plane, vout ) \ \ ( vprjp_c ( CONST_VEC(vin), CONST_PLANE(plane), (vout) ) ) #define vprjpi_c( vin, projpl, invpl, vout, found ) \ \ ( vprjpi_c( CONST_VEC(vin), CONST_PLANE(projpl), \ CONST_PLANE(invpl), (vout), (found) ) ) #define vproj_c( a, b, p ) \ \ ( vproj_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) #define vrel_c( v1, v2 ) \ \ ( vrel_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) #define vrelg_c( v1, v2, ndim ) \ \ ( vrelg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) #define vrotv_c( v, axis, theta, r ) \ \ ( vrotv_c ( CONST_VEC(v), CONST_VEC(axis), (theta), (r) ) ) #define vscl_c( s, v1, vout ) \ \ ( vscl_c ( (s), CONST_VEC(v1), (vout) ) ) #define vsclg_c( s, v1, ndim, vout ) \ \ ( vsclg_c ( (s), CONST_VEC(v1), (ndim), (vout) ) ) #define vsep_c( v1, v2 ) \ \ ( vsep_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) #define vsepg_c( v1, v2, ndim) \ \ ( vsepg_c ( CONST_VEC(v1), CONST_VEC(v2), ndim ) ) #define vsub_c( v1, v2, vout ) \ \ ( vsub_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) #define vsubg_c( v1, v2, ndim, vout ) \ \ ( vsubg_c ( CONST_VEC(v1), CONST_VEC(v2), \ (ndim), (vout) ) ) #define vtmv_c( v1, mat, v2 ) \ \ ( vtmv_c ( CONST_VEC(v1), CONST_MAT(mat), CONST_VEC(v2) ) ) #define vtmvg_c( v1, mat, v2, nrow, ncol ) \ \ ( vtmvg_c ( CONST_VOID(v1), CONST_VOID(mat), CONST_VOID(v2), \ (nrow), (ncol) ) ) #define vupack_c( v, x, y, z ) \ \ ( vupack_c ( CONST_VEC(v), (x), (y), (z) ) ) #define vzero_c( v1 ) \ \ ( vzero_c ( CONST_VEC(v1) ) ) #define vzerog_c( v1, ndim ) \ \ ( vzerog_c ( CONST_VEC(v1), (ndim) ) ) #define xf2eul_c( xform, axisa, axisb, axisc, eulang, unique ) \ \ ( xf2eul_c( CONST_MAT6(xform), (axisa), (axisb), (axisc), \ (eulang), (unique) ) ) #define xf2rav_c( xform, rot, av ) \ \ ( xf2rav_c( CONST_MAT6(xform), (rot), (av) ) ) #define xpose6_c( m1, mout ) \ \ ( xpose6_c ( CONST_MAT6(m1), (mout) ) ) #define xpose_c( m1, mout ) \ \ ( xpose_c ( CONST_MAT(m1), (mout) ) ) #define xposeg_c( matrix, nrow, ncol, mout ) \ \ ( xposeg_c ( CONST_VOID(matrix), (nrow), (ncol), (mout) ) ) #endif include/SpiceZmc.h0100777000000000000000000013245214164213066011337 0ustar00/* -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. */ /* CSPICE private macro file. -Particulars Current list of macros (spelling counts) BLANK C2F_MAP_CELL C2F_MAP_CELL2 C2F_MAP_CELL3 CELLINIT CELLINIT2 CELLINIT3 CELLISSETCHK CELLISSETCHK2 CELLISSETCHK2_VAL CELLISSETCHK3 CELLISSETCHK3_VAL CELLISSETCHK_VAL CELLMATCH2 CELLMATCH2_VAL CELLMATCH3 CELLMATCH3_VAL CELLTYPECHK CELLTYPECHK2 CELLTYPECHK2_VAL CELLTYPECHK3 CELLTYPECHK3_VAL CELLTYPECHK_VAL CHKFSTR CHKFSTR_VAL CHKOSTR CHKOSTR_VAL CHKPTR F2C_MAP_CELL Index values MOVED MOVEI MaxAbs MaxVal MinAbs MinVal SpiceError TolOrFail -Restrictions This is a private macro file for use within CSPICE. Do not use or alter any entry. Or else! -Author_and_Institution N.J. Bachman (JPL) E.D. Wright (JPL) -Version -CSPICE Version 6.0.0, 21-FEB-2021 (NJB) Deleted macros for physical constants and dates. Deleted macros `Even` and `Odd`. -CSPICE Version 5.0.0, 07-FEB-2017 (NJB) Updated MaxAbs and MinAbs macros to cast their input arguments to type double. -CSPICE Version 4.3.0, 18-SEP-2013 (NJB) Bug fix: missing comma was added to argument list in body of macro CELLTYPECHK3_VAL. -CSPICE Version 4.2.0, 16-FEB-2005 (NJB) Bug fix: in the macro C2F_MAP_CELL, error checking has been added after the sequence of calls to ssizec_ and scardc_. If either of these routines signals an error, the dynamically allocated memory for the "Fortran cell" is freed. -CSPICE Version 4.1.0, 06-DEC-2002 (NJB) Bug fix: added previous missing, bracketing parentheses to references to input cell pointer argument in macro CELLINIT. Changed CELLINIT macro so it no longer initializes to zero length all strings in data array of a character cell. Instead, strings are terminated with a null in their final element. -CSPICE Version 4.0.0, 22-AUG-2002 (NJB) Added macro definitions to support CSPICE cells and sets: C2F_MAP_CELL C2F_MAP_CELL2 C2F_MAP_CELL3 CELLINIT CELLINIT2 CELLINIT3 CELLISSETCHK CELLISSETCHK2 CELLISSETCHK2_VAL CELLISSETCHK3 CELLISSETCHK3_VAL CELLISSETCHK_VAL CELLMATCH2 CELLMATCH2_VAL CELLMATCH3 CELLMATCH3_VAL CELLTYPECHK CELLTYPECHK2 CELLTYPECHK2_VAL CELLTYPECHK3 CELLTYPECHK3_VAL CELLTYPECHK_VAL F2C_MAP_CELL -CSPICE Version 3.0.0, 09-JAN-1998 (NJB) Added output string check macros CHKOSTR and CHKOSTR_VAL. Removed variable name arguments from macros CHKPTR CHKPTR_VAL CHKFSTR CHKRSTR_VAL The strings containing names of the checked variables are now generated from the variables themselves via the # operator. -CSPICE Version 2.0.0, 03-DEC-1997 (NJB) Added pointer check macro CHKPTR and Fortran string check macro CHKFSTR. -CSPICE Version 1.0.0, 25-OCT-1997 (EDW) */ #include #include #include "SpiceZdf.h" #define MOVED( arrfrm, ndim, arrto ) \ \ ( memmove ( (void*) (arrto) , \ (void*) (arrfrm), \ sizeof (SpiceDouble) * (ndim) ) ) #define MOVEI( arrfrm, ndim, arrto ) \ \ ( memmove ( (void*) (arrto) , \ (void*) (arrfrm), \ sizeof (SpiceInt) * (ndim) ) ) /* Define a tolerance test for those pesky double precision reals. True if the difference is less than the tolerance, false otherwise. The tolerance refers to a percentage. x, y and tol should be declared double. All values are assumed to be non-zero. Okay? */ #define TolOrFail( x, y, tol ) \ \ ( fabs( x-y ) < ( tol * fabs(x) ) ) /* Simple error output through standard SPICE error system . Set the error message and the type */ #define SpiceError( errmsg, errtype ) \ \ { \ setmsg_c ( errmsg ); \ sigerr_c ( errtype ); \ } /* Return a value which is the maximum/minimum of the absolute values of two values. */ #define MaxAbs(a,b) \ \ ( fabs((double)(a)) >= fabs((double)(b)) ? \ fabs((double)(a)) : fabs((double)(b)) ) #define MinAbs(a,b) \ \ ( fabs((double)(a)) < fabs((double)(b)) ? \ fabs((double)(a)) : fabs((double)(b)) ) /* Return a value which is the maximum/minimum value of two values. */ #define MaxVal(A,B) ( (A) >= (B) ? (A) : (B) ) #define MinVal(A,B) ( (A) < (B) ? (A) : (B) ) /* Array indexes for vectors. */ #define SpiceX 0 #define SpiceY 1 #define SpiceZ 2 #define SpiceVx 3 #define SpiceVy 4 #define SpiceVz 5 /* Common literal values. */ #define NULLCHAR ( (SpiceChar ) 0 ) #define NULLCPTR ( (SpiceChar * ) 0 ) #define BLANK ( (SpiceChar ) ' ' ) /* Macro CHKPTR is used for checking for a null pointer. CHKPTR uses the constants CHK_STANDARD CHK_DISCOVER CHK_REMAIN to control tracing behavior. Values and meanings are: CHK_STANDARD Standard tracing. If an error is found, signal it, check out and return. CHK_DISCOVER Discovery check-in. If an error is found, check in, signal the error, check out, and return. CHK_REMAIN If an error is found, signal it. Do not check out or return. This would allow the caller to clean up before returning, if necessary. In such cases the caller must test failed_c() after the macro call. CHKPTR should be used in void functions. In non-void functions, use CHKPTR_VAL, which is defined below. */ #define CHK_STANDARD 1 #define CHK_DISCOVER 2 #define CHK_REMAIN 3 #define CHKPTR( errHandling, modname, pointer ) \ \ if ( (void *)(pointer) == (void *)0 ) \ { \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "Pointer \"#\" is null; a non-null " \ "pointer is required." ); \ errch_c ( "#", (#pointer) ); \ sigerr_c ( "SPICE(NULLPOINTER)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return; \ } \ } #define CHKPTR_VAL( errHandling, modname, pointer, retval ) \ \ if ( (void *)(pointer) == (void *)0 ) \ { \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "Pointer \"#\" is null; a non-null " \ "pointer is required." ); \ errch_c ( "#", (#pointer) ); \ sigerr_c ( "SPICE(NULLPOINTER)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return ( retval ); \ } \ } /* Macro CHKFSTR checks strings that are to be passed to Fortran or f2c'd Fortran routines. Such strings must have non-zero length, and their pointers must be non-null. CHKFSTR should be used in void functions. In non-void functions, use CHKFSTR_VAL, which is defined below. */ #define CHKFSTR( errHandling, modname, string ) \ \ CHKPTR ( errHandling, modname, string ); \ \ if ( ( (void *)string != (void *)0 ) \ && ( strlen(string) == 0 ) ) \ { \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "String \"#\" has length zero." ); \ errch_c ( "#", (#string) ); \ sigerr_c ( "SPICE(EMPTYSTRING)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return; \ } \ } #define CHKFSTR_VAL( errHandling, modname, string, retval ) \ \ CHKPTR_VAL( errHandling, modname, string, retval); \ \ if ( ( (void *)string != (void *)0 ) \ && ( strlen(string) == 0 ) ) \ { \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "String \"#\" has length zero." ); \ errch_c ( "#", (#string) ); \ sigerr_c ( "SPICE(EMPTYSTRING)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return ( retval ); \ } \ } /* Macro CHKOSTR checks output string pointers and the associated string length values supplied as input arguments. Output string pointers must be non-null, and the string lengths must be at least 2, so Fortran routine can write at least one character to the output string, and so a null terminator can be appended. CHKOSTR should be used in void functions. In non-void functions, use CHKOSTR_VAL, which is defined below. */ #define CHKOSTR( errHandling, modname, string, length ) \ \ CHKPTR ( errHandling, modname, string ); \ \ if ( ( (void *)string != (void *)0 ) \ && ( length < 2 ) ) \ { \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ errch_c ( "#", (#string) ); \ errint_c ( "#", (length) ); \ sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return; \ } \ } #define CHKOSTR_VAL( errHandling, modname, string, length, retval ) \ \ CHKPTR_VAL( errHandling, modname, string, retval ); \ \ if ( ( (void *)string != (void *)0 ) \ && ( length < 2 ) ) \ { \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ errch_c ( "#", (#string) ); \ errint_c ( "#", (length) ); \ sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return ( retval ); \ } \ } /* Definitions for Cells and Sets */ /* Cell initialization macros */ #define CELLINIT( cellPtr ) \ \ if ( !( (cellPtr)->init ) ) \ { \ if ( (cellPtr)->dtype == SPICE_CHR ) \ { \ /* \ Make sure all elements of the data array, including \ the control area, start off null-terminated. We place \ the null character in the final element of each string, \ so as to avoid wiping out data that may have been \ assigned to the data array prior to initialization. \ */ \ SpiceChar * sPtr; \ SpiceInt i; \ SpiceInt nmax; \ \ nmax = SPICE_CELL_CTRLSZ + (cellPtr)->size; \ \ for ( i = 1; i <= nmax; i++ ) \ { \ sPtr = (SpiceChar *)((cellPtr)->base) \ + i * (cellPtr)->length \ - 1; \ \ *sPtr = NULLCHAR; \ } \ } \ else \ { \ zzsynccl_c ( C2F, (cellPtr) ); \ } \ \ (cellPtr)->init = SPICETRUE; \ } #define CELLINIT2( cellPtr1, cellPtr2 ) \ \ CELLINIT ( cellPtr1 ); \ CELLINIT ( cellPtr2 ); #define CELLINIT3( cellPtr1, cellPtr2, cellPtr3 ) \ \ CELLINIT ( cellPtr1 ); \ CELLINIT ( cellPtr2 ); \ CELLINIT ( cellPtr3 ); /* Data type checking macros: */ #define CELLTYPECHK( errHandling, modname, dType, cellPtr1 ) \ \ if ( (cellPtr1)->dtype != (dType) ) \ { \ SpiceChar * typstr[3] = \ { \ "character", "double precision", "integer" \ }; \ \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "Data type of # is #; expected type " \ "is #." ); \ errch_c ( "#", (#cellPtr1) ); \ errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ errch_c ( "#", typstr[ dType ] ); \ sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return; \ } \ } #define CELLTYPECHK_VAL( errHandling, modname, \ dType, cellPtr1, retval ) \ \ if ( (cellPtr1)->dtype != (dType) ) \ { \ SpiceChar * typstr[3] = \ { \ "character", "double precision", "integer" \ }; \ \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "Data type of # is #; expected type " \ "is #." ); \ errch_c ( "#", (#cellPtr1) ); \ errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ errch_c ( "#", typstr[ dType ] ); \ sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return (retval); \ } \ } #define CELLTYPECHK2( errHandling, modname, dtype, \ cellPtr1, cellPtr2 ) \ \ CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); #define CELLTYPECHK2_VAL( errHandling, modname, dtype, \ cellPtr1, cellPtr2, retval ) \ \ CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ retval ); \ CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ retval ); #define CELLTYPECHK3( errHandling, modname, dtype, \ cellPtr1, cellPtr2, cellPtr3 ) \ \ CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); \ CELLTYPECHK( errHandling, modname, dtype, cellPtr3 ); #define CELLTYPECHK3_VAL( errHandling, modname, dtype, \ cellPtr1, cellPtr2, cellPtr3, \ retval ) \ \ CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ retval ); \ CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ retval ); \ CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr3, \ retval ); #define CELLMATCH2( errHandling, modname, cellPtr1, cellPtr2 ) \ \ if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ { \ SpiceChar * typstr[3] = \ { \ "character", "double precision", "integer" \ }; \ \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "Data type of # is #; data type of # " \ "is #, but types must match." ); \ errch_c ( "#", (#cellPtr1) ); \ errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ errch_c ( "#", (#cellPtr2) ); \ errch_c ( "#", typstr[ (cellPtr2)->dtype ] ); \ sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return; \ } \ } #define CELLMATCH2_VAL( errHandling, modname, \ cellPtr1, cellPtr2, retval ) \ \ if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ { \ SpiceChar * typstr[3] = \ { \ "character", "double precision", "integer" \ }; \ \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "Data type of # is #; data type of # " \ "is #, but types must match." ); \ errch_c ( "#", (#cellPtr1) ); \ errch_c ( "#", typstr [ (cellPtr1)->dtype ] ); \ errch_c ( "#", (#cellPtr2) ); \ errch_c ( "#", typstr [ (cellPtr2)->dtype ] ); \ sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return ( retval ); \ } \ } #define CELLMATCH3( errHandling, modname, \ cellPtr1, cellPtr2, cellPtr3 ) \ \ CELLMATCH2 ( errHandling, modname, cellPtr1, cellPtr2 ); \ CELLMATCH2 ( errHandling, modname, cellPtr2, cellPtr3 ); #define CELLMATCH3_VAL( errHandling, modname, cellPtr1, \ cellPtr2, cellPtr3, retval ) \ \ CELLMATCH2_VAL ( errHandling, modname, \ cellPtr1, cellPtr2, retval ); \ \ CELLMATCH2_VAL ( errHandling, modname, \ cellPtr2, cellPtr3, retval ); /* Set checking macros: */ #define CELLISSETCHK( errHandling, modname, cellPtr1 ) \ \ if ( !(cellPtr1)->isSet ) \ { \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "Cell # must be sorted and have unique " \ "values in order to be a CSPICE set. " \ "The isSet flag in this cell is SPICEFALSE, " \ "indicating the cell may have been modified " \ "by a routine that doesn't preserve these " \ "properties." ); \ errch_c ( "#", (#cellPtr1) ); \ sigerr_c ( "SPICE(NOTASET)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return; \ } \ } #define CELLISSETCHK_VAL( errHandling, modname, \ cellPtr1, retval ) \ \ if ( !(cellPtr1)->isSet ) \ { \ if ( (errHandling) == CHK_DISCOVER ) \ { \ chkin_c ( modname ); \ } \ \ setmsg_c ( "Cell # must be sorted and have unique " \ "values in order to be a CSPICE set. " \ "The isSet flag in this cell is SPICEFALSE, " \ "indicating the cell may have been modified " \ "by a routine that doesn't preserve these " \ "properties." ); \ errch_c ( "#", (#cellPtr1) ); \ sigerr_c ( "SPICE(NOTASET)" ); \ \ if ( ( (errHandling) == CHK_DISCOVER ) \ || ( (errHandling) == CHK_STANDARD ) ) \ { \ chkout_c ( modname ); \ return (retval); \ } \ } #define CELLISSETCHK2( errHandling, modname, \ cellPtr1, cellPtr2 ) \ \ CELLISSETCHK( errHandling, modname, cellPtr1 ); \ CELLISSETCHK( errHandling, modname, cellPtr2 ); #define CELLISSETCHK2_VAL( errHandling, modname, \ cellPtr1, cellPtr2, retval ) \ \ CELLISSETCHK_VAL( errHandling, modname, cellPtr1, retval ); \ CELLISSETCHK_VAL( errHandling, modname, cellPtr2, retval ); \ #define CELLISSETCHK3( errHandling, modname, \ cellPtr1, cellPtr2, cellPtr3 ) \ \ CELLISSETCHK ( errHandling, modname, cellPtr1 ); \ CELLISSETCHK ( errHandling, modname, cellPtr2 ); \ CELLISSETCHK ( errHandling, modname, cellPtr3 ); #define CELLISSETCHK3_VAL( errHandling, modname, cellPtr1, \ cellPtr2, cellPtr3, retval ) \ \ CELLISSETCHK_VAL ( errHandling, modname, cellPtr1, retval ); \ CELLISSETCHK_VAL ( errHandling, modname, cellPtr2, retval ); \ CELLISSETCHK_VAL ( errHandling, modname, cellPtr3, retval ); /* C-to-Fortran and Fortran-to-C character cell translation macros: */ /* Macros that map one or more character C cells to dynamically allocated Fortran-style character cells: */ #define C2F_MAP_CELL( caller, CCell, fCell, fLen ) \ \ { \ /* \ fCell and fLen are to be passed by reference, as if this \ macro were a function. \ \ \ Caution: dynamically allocates array fCell, which is to be \ freed by caller! \ */ \ SpiceInt ndim; \ SpiceInt lenvals; \ \ \ ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ lenvals = (CCell)->length; \ \ C2F_MapFixStrArr ( (caller), ndim, lenvals, \ (CCell)->base, (fLen), (fCell) ); \ \ if ( !failed_c() ) \ { \ /* \ Explicitly set the control area info in the Fortran cell.\ */ \ ssizec_ ( ( integer * ) &((CCell)->size), \ ( char * ) *(fCell), \ ( ftnlen ) *(fLen) ); \ \ scardc_ ( ( integer * ) &((CCell)->card), \ ( char * ) *(fCell), \ ( ftnlen ) *(fLen) ); \ \ if ( failed_c() ) \ { \ /* \ Setting size or cardinality of the Fortran cell \ can fail, for example if the cell's string length \ is too short. \ */ \ free ( *(fCell) ); \ } \ } \ } #define C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ CCell2, fCell2, fLen2 ) \ \ { \ C2F_MAP_CELL( caller, CCell1, fCell1, fLen1 ); \ \ if ( !failed_c() ) \ { \ C2F_MAP_CELL( caller, CCell2, fCell2, fLen2 ); \ \ if ( failed_c() ) \ { \ free ( *(fCell1) ); \ } \ } \ } #define C2F_MAP_CELL3( caller, CCell1, fCell1, fLen1, \ CCell2, fCell2, fLen2, \ CCell3, fCell3, fLen3 ) \ \ { \ C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ CCell2, fCell2, fLen2 ); \ \ if ( !failed_c() ) \ { \ C2F_MAP_CELL( caller, CCell3, fCell3, fLen3 ); \ \ if ( failed_c() ) \ { \ free ( *(fCell1) ); \ free ( *(fCell2) ); \ } \ } \ } /* Macro that maps a Fortran-style character cell to a C cell (Note: this macro frees the Fortran cell): */ #define F2C_MAP_CELL( fCell, fLen, CCell ) \ \ { \ SpiceInt card; \ SpiceInt lenvals; \ SpiceInt ndim; \ SpiceInt nBytes; \ SpiceInt size; \ void * array; \ \ ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ lenvals = (CCell)->length; \ array = (CCell)->base; \ \ /* \ Capture the size and cardinality of the Fortran cell. \ */ \ if ( !failed_c() ) \ { \ size = sizec_ ( ( char * ) (fCell), \ ( ftnlen ) fLen ); \ \ card = cardc_ ( ( char * ) (fCell), \ ( ftnlen ) fLen ); \ } \ \ \ /* \ Copy the Fortran array into the output array. \ */ \ \ nBytes = ndim * fLen * sizeof(SpiceChar); \ memmove ( array, fCell, nBytes ); \ /* \ Convert the output array from Fortran to C style. \ */ \ F2C_ConvertTrStrArr ( ndim, lenvals, (SpiceChar *)array ); \ \ /* \ Sync the size and cardinality of the C cell. \ */ \ if ( !failed_c() ) \ { \ (CCell)->size = size; \ (CCell)->card = card; \ } \ } /* End of header SpiceZmc.h */ include/SpiceZpl.h0100777000000000000000000000626714164213066011357 0ustar00/* -Header_File SpiceZpl.h ( CSPICE platform macros ) -Abstract Define macros identifying the host platform for which this version of CSPICE is targeted. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Literature_References None. -Particulars This header file defines macros that enable CSPICE code to be compiled conditionally based on the identity of the host platform. The macros defined here ARE visible in the macro name space of any file that includes SpiceUsr.h. The names are prefixed with the string CSPICE_ to help prevent conflicts with macros defined by users' applications. -Author_and_Institution N.J. Bachman (JPL) B.V. Semenov (JPL) E.D. Wright (JPL) -Version -CSPICE Version 2.4.0, 28-NOV-2021 (BVS) Updated for the: MAC-OSX-M1-64BIT-CLANG_C environment. -CSPICE Version 2.3.0, 10-MAR-2014 (BVS) Updated for the: PC-CYGWIN-64BIT-GCC_C environment. -CSPICE Version 2.2.0, 14-MAY-2010 (EDW)(BVS) Updated for the: MAC-OSX-64BIT-INTEL_C PC-64BIT-MS_C SUN-SOLARIS-64BIT-NATIVE_C SUN-SOLARIS-INTEL-64BIT-CC_C SUN-SOLARIS-INTEL-CC_C environments. -CSPICE Version 2.1.0, 15-NOV-2006 (BVS) Updated for MAC-OSX-INTEL_C environment. -CSPICE Version 2.0.0, 21-FEB-2006 (NJB) Updated for PC-LINUX-64BIT-GCC_C environment. -CSPICE Version 1.3.0, 06-MAR-2005 (NJB) Updated for SUN-SOLARIS-64BIT-GCC_C environment. -CSPICE Version 1.2.0, 03-JAN-2005 (BVS) Updated for PC-CYGWIN_C environment. -CSPICE Version 1.1.0, 27-JUL-2002 (BVS) Updated for MAC-OSX-NATIVE_C environment. -CSPICE Version 1.0.0, 26-FEB-1999 (NJB) (EDW) -Index_Entries platform ID defines for CSPICE */ #ifndef HAVE_PLATFORM_MACROS_H #define HAVE_PLATFORM_MACROS_H #define CSPICE_PC_LINUX_64BIT_GCC #endif include/SpiceZpr.h0100777000000000000000000060775414164213066011375 0ustar00/* -Header_File SpiceZpr.h ( CSPICE prototypes ) -Abstract Define prototypes for CSPICE user-interface-level functions. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Literature_References None. -Particulars This C header file contains prototypes for CSPICE user-level C routines. Prototypes for the underlying f2c'd SPICELIB routines are contained in the separate header file SpiceZfc. However, those routines are not part of the official CSPICE API. -Author_and_Institution N.J. Bachman (JPL) M. Costa Sitja (JPL) J. Diaz del Rio (ODC Space) K.R. Gehringer (JPL) W.L. Taber (JPL) F.S. Turner (JPL) E.D. Wright (JPL) -Version -CSPICE Version 13.0.0, 05-NOV-2021 (JDR) (MCS) (NJB) Fixed size of "accobs" argument of spkaps_c: it was 6 when it should be 3. Corrected prototype of gfoclt_c: switched order of abcorr and obsrvr. Added prototypes for azlcpo_c azlrec_c chbigr_c chbint_c chbval_c ckfrot_c ckfxfm_c ckgr02_c ckgr03_c ckmeta_c cknr02_c cknr03_c clearc_c cleari_c dafhsf_c dasadc_c dasadd_c dasadi_c dashfs_c daslla_c dasllc_c dasonw_c dasops_c dasrdc_c dasrdd_c dasrdi_c dasudc_c dasudd_c dasudi_c daswbr_c dazldr_c dlabns_c dlaens_c dlaopn_c dnearp_c drdazl_c ednmpt_c edpnt_c evsgp4_c filld_c filli_c getfvn_c hrmesp_c invstm_c lgresp_c lgrint_c moved_c nextwd_c nthwd_c qderiv_c recazl_c repml_c stlabx_c tangpt_c tkfram_c tparch_c trgsep_c twovxf_c vprojg_c -CSPICE Version 12.14.0, 05-JAN-2017 (EDW) (NJB) Added prototypes for chbder_c cleard_c dasdc_c dashfn_c dasopw_c dasrfr_c dlabbs_c dlabfs_c dlafns_c dlafps_c dskb02_c dskcls_c dskd02_c dskgd_c dskgtl_c dski02_c dskmi2_c dskn02_c dskobj_c dskopn_c dskp02_c dskrb2_c dsksrf_c dskstl_c dskv02_c dskw02_c dskx02_c dskxsi_c dskxv_c dskz02_c hrmint_c illum_pl02 illum_plid_pl02 latsrf_c lgrind_c limb_pl02 limbpt_c llgrid_pl02 oscltx_c pckcls_c pckopn_c pckw02_c pltar_c pltexp_c pltnp_c pltnrm_c pltvol_c polyds_c srfc2s_c srfcss_c srfnrm_c srfs2c_c srfscc_c subpt_pl02 subsol_pl02 term_pl02 termpt_c -CSPICE Version 12.13.0, 03-DEC-2013 (NJB) (SCK) (EDW) Correction to argument order for gfsep_c.c prototype. Added prototypes for bltfrm_c ccifrm_c edterm_c eqncpv_c fovray_c fovtrg_c gfilum_c gfpa_c gfstol_c gfudb_c illumg_c kplfrm_c occult_c phaseq_c pxfrm2_c qcktrc_c trcdep_c trcnam_c spkcpo_c spkcpt_c spkcvo_c spkcvt_c spkpvn_c spksfs_c spkw20_c xfmsta_c udf_c -CSPICE Version 12.12.0, 19-FEB-2010 (EDW) (NJB) Added prototypes for bodc2s_c dafgsr_c dafrfr_c dp2hx_c ducrss_c dvcrss_c dvnorm_c gfrr_c gfuds_c hx2dp_c uddc_c uddf_c -CSPICE Version 12.11.0, 29-MAR-2009 (EDW) (NJB) Added prototypes for dvsep_c gfbail_c gfclrh_c gfdist_c gfevnt_c gffove_c gfinth_c gfocce_c gfoclt_c gfposc_c gfrefn_c gfrepf_c gfrepi_c gfrepu_c gfrfov_c gfsep_c gfseth_c gfsntc_c gfsstp_c gfstep_c gfsubc_c gftfov_c surfpv_c zzgfgeth_c zzgfsavh_c -CSPICE Version 12.10.0, 30-JAN-2008 (EDW) (NJB) Added prototypes for: ilumin_c pckcov_c pckfrm_c sincpt_c spkacs_c spkaps_c spkltc_c subpnt_c subslr_c wncard_c -CSPICE Version 12.9.0, 16-NOV-2006 (NJB) Bug fix: corrected prototype for vhatg_c. Renamed wnfild_c and wnfltd_c arguments `small' to 'smal' for compatibility with MS Visual C++. Added prototypes for dafac_c dafdc_c dafec_c dafgda_c dascls_c dasopr_c kclear_c -CSPICE Version 12.8.0, 07-NOV-2005 (NJB) Added prototypes for bodvcd_c qdq2av_c qxq_c srfrec_c -CSPICE Version 12.7.0, 06-JAN-2004 (NJB) Added prototypes for bods2c_c ckcov_c ckobj_c dafopw_c dafrs_c dpgrdr_c drdpgr_c lspcn_c pgrrec_c recpgr_c spkcov_c spkobj_c -CSPICE Version 12.6.0, 24-FEB-2003 (NJB) Added prototype for bodvrd_c deltet_c srfxpt_c -CSPICE Version 12.5.0, 14-MAY-2003 (NJB) Removed prototype for getcml_. -CSPICE Version 12.4.0, 25-FEB-2003 (NJB) Added prototypes for dasac_c dasec_c et2lst_c -CSPICE Version 12.3.0, 03-SEP-2002 (NJB) Added prototypes for appndc_c appndd_c appndi_c bschoc_c bschoi_c bsrchc_c bsrchd_c bsrchi_c card_c ckw05_c copy_c cpos_c cposr_c diff_c elemc_c elemd_c elemi_c esrchc_c insrtc_c insrtd_c insrti_c inter_c isordv_c isrchc_c isrchd_c isrchi_c lparss_c lstlec_c lstled_c lstlei_c lstltc_c lstltd_c lstlti_c lx4dec_c lx4num_c lx4sgn_c lx4uns_c lxqstr_c ncpos_c ncposr_c ordc_c ordd_c orderc_c orderd_c orderi_c ordi_c pos_c posr_c prefix_c removc_c removd_c remove_c removi_c reordc_c reordd_c reordi_c reordl_c repmc_c repmct_c repmd_c repmf_c repmi_c repmot_c scard_c sdiff_c set_c shellc_c shelld_c shelli_c size_c spkw18_c ssize_c union_c valid_c wncomd_c wncond_c wndifd_c wnelmd_c wnexpd_c wnextd_c wnfetd_c wnfild_c wnfltd_c wnincd_c wninsd_c wnintd_c wnreld_c wnsumd_c wnunid_c wnvald_c zzsynccl_c -CSPICE Version 12.2.0, 23-OCT-2001 (NJB) Added prototypes for badkpv_c dcyldr_c dgeodr_c dlatdr_c drdcyl_c drdgeo_c drdlat_c drdsph_c dsphdr_c ekacec_c ekaced_c ekacei_c ekappr_c ekbseg_c ekccnt_c ekcii_c ekdelr_c ekinsr_c ekntab_c ekrcec_c ekrced_c ekrcei_c ektnam_c ekucec_c ekuced_c ekucei_c inelpl_c invort_c kxtrct_c Added const qualifier to input array arguments of conics_c illum_c pdpool_c prop2b_c q2m_c spkuds_c xposeg_c Added const qualifier to the return value of tkvrsn_c -CSPICE Version 12.1.0, 12-APR-2000 (FST) Added prototype for getfov_c -CSPICE Version 12.0.0, 22-MAR-2000 (NJB) Added prototypes for lparse_c lparsm_c spkw12_c spkw13_c -CSPICE Version 11.1.0, 17-DEC-1999 (WLT) Added prototype for dafrda_c -CSPICE Version 11.0.0, 07-OCT-1999 (NJB) (EDW) Changed ekaclc_c, ekacld_c, ekacli_c prototypes to make input pointers const-qualified where appropriate. Changed prompt_c prototype to accommodate memory leak bug fix. Changed ekpsel_c prototype to be consistent with other interfaces having string array outputs. Added prototypes for axisar_c brcktd_c brckti_c cgv2el_c cidfrm_c clpool_c cmprss_c cnmfrm_c convrt_c cvpool_c dafbbs_c dafbfs_c dafcls_c dafcs_c daffna_c daffpa_c dafgh_c dafgn_c dafgs_c dafopr_c dafps_c dafus_c diags2_c dtpool_c dvdot_c dvhat_c dvpool_c edlimb_c ekops_c ekopw_c eul2xf_c ftncls_c furnsh_c getelm_c getmsg_c gnpool_c ident_c illum_c inedpl_c kdata_c kinfo_c ktotal_c lmpool_c matchi_c matchw_c maxd_c maxi_c mequ_c mind_c mini_c moved_ npedln_c npelpt_c nplnpt_c pcpool_c pdpool_c pipool_c pjelpl_c pxform_c rav2xf_c raxisa_c rquad_c saelgv_c spk14a_c spk14b_c spk14e_c spkapo_c spkapp_c spkcls_c spkezp_c spkgps_c spkopn_c spkpds_c spkpos_c spkssb_c spksub_c spkuds_c spkw02_c spkw03_c spkw05_c spkw08_c spkw09_c spkw10_c spkw15_c spkw17_c stpool_c subpt_c subsol_c swpool_c szpool_c tparse_c trace_c unload_c vaddg_c vhatg_c vlcomg_c vminug_c vrel_c vrelg_c vsepg_c vtmv_c vtmvg_c vzerog_c xf2eul_c xf2rav_c xposeg_c -CSPICE Version 10.0.0, 09-MAR-1999 (NJB) Added prototypes for frame_c inrypl_c nvc2pl_c nvp2pl_c pl2nvc_c pl2nvp_c pl2psv_c psv2pl_c sce2c_c vprjp_c vprjpi_c Now conditionally includes SpiceEll.h and SpicePln.h. -CSPICE Version 9.0.0, 25-FEB-1999 (NJB) Added prototypes for eknseg_c eknelt_c ekpsel_c ekssum_c Now conditionally includes SpiceEK.h. -CSPICE Version 8.0.0, 20-OCT-1998 (NJB) Added const qualifier to all input matrix and vector arguments. Added prototypes for det_c dpmax_c dpmax_ dpmin_c dpmin_ frinfo_c frmnam_c getfat_c intmax_c intmax_ intmin_c intmin_ invert_c namfrm_c vrotv_c vsclg_c -CSPICE Version 7.0.0, 02-APR-1998 (EDW) Added prototypes for mequg_c unormg_c vdistg_c vdotg_c vequg_c vnormg_c -CSPICE Version 6.0.0, 31-MAR-1998 (NJB) Added prototypes for ekaclc_c ekacld_c ekacli_c ekcls_c ekffld_c ekfind_c ekgc_c ekgd_c ekgi_c ekifld_c eklef_c ekopr_c ekopn_c ekuef_c -CSPICE Version 5.0.1, 05-MAR-1998 (EDW) Remove some non printing characters. -CSPICE Version 5.0.0, 03-MAR-1998 (NJB) Added prototypes for etcal_c ltime_c stelab_c tpictr_c twovec_c vsubg_c -CSPICE Version 4.0.0, 11-FEB-1998 (EDW) Added prototypes for timdef_c tsetyr_c -CSPICE Version 3.0.0, 02-FEB-1998 (NJB) Added prototypes for pckuof_c tipbod_c Type SpiceVoid was replaced with void. -CSPICE Version 2.0.0, 06-JAN-1998 (NJB) Changed all input-only character pointers to type ConstSpiceChar. -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) -Index_Entries prototypes of CSPICE functions */ /* Include Files: */ #ifndef HAVE_SPICEDEFS_H #include "SpiceZdf.h" #endif #ifndef HAVE_SPICE_CELLS_H #include "SpiceCel.h" #endif #ifndef HAVE_SPICE_DLA_H #include "SpiceDLA.h" #endif #ifndef HAVE_SPICE_DSK_H #include "SpiceDSK.h" #endif #ifndef HAVE_SPICE_EK_H #include "SpiceEK.h" #endif #ifndef HAVE_SPICE_PLANES_H #include "SpicePln.h" #endif #ifndef HAVE_SPICE_ELLIPSES_H #include "SpiceEll.h" #endif #ifndef HAVE_SPICE_OSC_H #include "SpiceOsc.h" #endif #ifndef HAVE_SPICE_SPK_H #include "SpiceSPK.h" #endif #ifndef HAVE_SPICEWRAPPERS_H #define HAVE_SPICEWRAPPERS_H /* Function prototypes for CSPICE functions are listed below. Each prototype is accompanied by a function abstract and brief I/O description. See the headers of the C wrappers for detailed descriptions of the routines' interfaces. The list below should be maintained in alphabetical order. */ void appndc_c ( ConstSpiceChar * item, SpiceCell * cell ); void appndd_c ( SpiceDouble item, SpiceCell * cell ); void appndi_c ( SpiceInt item, SpiceCell * cell ); void axisar_c ( ConstSpiceDouble axis [3], SpiceDouble angle, SpiceDouble r [3][3] ); void azlcpo_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, SpiceBoolean azccw, SpiceBoolean elplsz, ConstSpiceDouble obspos [3], ConstSpiceChar * obsctr, ConstSpiceChar * obsref, SpiceDouble azlsta [6], SpiceDouble * lt ); void azlrec_c ( SpiceDouble range, SpiceDouble az, SpiceDouble el, SpiceBoolean azccw, SpiceBoolean elplsz, SpiceDouble rectan [3] ); SpiceBoolean badkpv_c ( ConstSpiceChar *caller, ConstSpiceChar *name, ConstSpiceChar *comp, SpiceInt size, SpiceInt divby, SpiceChar type ); void bltfrm_c ( SpiceInt frmcls, SpiceCell * idset ); void bodc2n_c ( SpiceInt code, SpiceInt namelen, SpiceChar * name, SpiceBoolean * found ); void bodc2s_c ( SpiceInt code, SpiceInt lenout, SpiceChar * name ); void boddef_c ( ConstSpiceChar * name, SpiceInt code ); SpiceBoolean bodfnd_c ( SpiceInt body, ConstSpiceChar * item ); void bodn2c_c ( ConstSpiceChar * name, SpiceInt * code, SpiceBoolean * found ); void bods2c_c ( ConstSpiceChar * name, SpiceInt * code, SpiceBoolean * found ); void bodvar_c ( SpiceInt body, ConstSpiceChar * item, SpiceInt * dim , SpiceDouble * values ); void bodvcd_c ( SpiceInt body, ConstSpiceChar * item, SpiceInt maxn, SpiceInt * dim , SpiceDouble * values ); void bodvrd_c ( ConstSpiceChar * body, ConstSpiceChar * item, SpiceInt maxn, SpiceInt * dim , SpiceDouble * values ); SpiceDouble brcktd_c ( SpiceDouble number, SpiceDouble end1, SpiceDouble end2 ); SpiceInt brckti_c ( SpiceInt number, SpiceInt end1, SpiceInt end2 ); SpiceInt bschoc_c ( ConstSpiceChar * value, SpiceInt ndim, SpiceInt lenvals, const void * array, ConstSpiceInt * order ); SpiceInt bschoi_c ( SpiceInt value, SpiceInt ndim, ConstSpiceInt * array, ConstSpiceInt * order ); SpiceInt bsrchc_c ( ConstSpiceChar * value, SpiceInt ndim, SpiceInt lenvals, const void * array ); SpiceInt bsrchd_c ( SpiceDouble value, SpiceInt ndim, ConstSpiceDouble * array ); SpiceInt bsrchi_c ( SpiceInt value, SpiceInt ndim, ConstSpiceInt * array ); SpiceDouble b1900_c ( void ); SpiceDouble b1950_c ( void ); SpiceInt card_c ( SpiceCell * cell ); void ccifrm_c ( SpiceInt frclss, SpiceInt clssid, SpiceInt lenout, SpiceInt * frcode, SpiceChar * frname, SpiceInt * center, SpiceBoolean * found ); void cgv2el_c ( ConstSpiceDouble center[3], ConstSpiceDouble vec1 [3], ConstSpiceDouble vec2 [3], SpiceEllipse * ellipse ); void chbder_c ( ConstSpiceDouble * cp, SpiceInt degp, SpiceDouble x2s[2], SpiceDouble x, SpiceInt nderiv, SpiceDouble * partdp, SpiceDouble * dpdxs ); void chbigr_c ( SpiceInt degp, ConstSpiceDouble cp [], ConstSpiceDouble x2s [2], SpiceDouble x, SpiceDouble * p, SpiceDouble * itgrlp ); void chbint_c ( ConstSpiceDouble cp [], SpiceInt degp, ConstSpiceDouble x2s [2], SpiceDouble x, SpiceDouble * p, SpiceDouble * dpdx ); void chbval_c ( ConstSpiceDouble cp [], SpiceInt degp, ConstSpiceDouble x2s [2], SpiceDouble x, SpiceDouble * p ); void chkin_c ( ConstSpiceChar * module ); void chkout_c ( ConstSpiceChar * module ); void cidfrm_c ( SpiceInt cent, SpiceInt lenout, SpiceInt * frcode, SpiceChar * frname, SpiceBoolean * found ); void ckfrot_c ( SpiceInt inst, SpiceDouble et, SpiceDouble rotate [3][3], SpiceInt * ref, SpiceBoolean * found ); void ckfxfm_c ( SpiceInt inst, SpiceDouble et, SpiceDouble xform [6][6], SpiceInt * ref, SpiceBoolean * found ); void ckgr02_c ( SpiceInt handle, ConstSpiceDouble descr [], SpiceInt recno, SpiceDouble record [] ); void ckcls_c ( SpiceInt handle ); void ckcov_c ( ConstSpiceChar * ck, SpiceInt idcode, SpiceBoolean needav, ConstSpiceChar * level, SpiceDouble tol, ConstSpiceChar * timsys, SpiceCell * cover ); void ckgr03_c ( SpiceInt handle, ConstSpiceDouble descr [], SpiceInt recno, SpiceDouble record [] ); void ckobj_c ( ConstSpiceChar * ck, SpiceCell * ids ); void ckgp_c ( SpiceInt inst, SpiceDouble sclkdp, SpiceDouble tol, ConstSpiceChar * ref, SpiceDouble cmat[3][3], SpiceDouble * clkout, SpiceBoolean * found ); void ckgpav_c ( SpiceInt inst, SpiceDouble sclkdp, SpiceDouble tol, ConstSpiceChar * ref, SpiceDouble cmat[3][3], SpiceDouble av[3], SpiceDouble * clkout, SpiceBoolean * found ); void ckmeta_c ( SpiceInt ckid, ConstSpiceChar * meta, SpiceInt * idcode ); void cknr02_c ( SpiceInt handle, ConstSpiceDouble descr [], SpiceInt * nrec ); void cknr03_c ( SpiceInt handle, ConstSpiceDouble descr [], SpiceInt * nrec ); void clearc_c ( SpiceInt ndim, SpiceInt arrlen, void * array ); void cklpf_c ( ConstSpiceChar * fname, SpiceInt * handle ); void ckopn_c ( ConstSpiceChar * name, ConstSpiceChar * ifname, SpiceInt ncomch, SpiceInt * handle ); void ckupf_c ( SpiceInt handle ); void ckw01_c ( SpiceInt handle, SpiceDouble begtime, SpiceDouble endtime, SpiceInt inst, ConstSpiceChar * ref, SpiceBoolean avflag, ConstSpiceChar * segid, SpiceInt nrec, ConstSpiceDouble sclkdp [], ConstSpiceDouble quats [][4], ConstSpiceDouble avvs [][3] ); void ckw02_c ( SpiceInt handle, SpiceDouble begtim, SpiceDouble endtim, SpiceInt inst, ConstSpiceChar * ref, ConstSpiceChar * segid, SpiceInt nrec, ConstSpiceDouble start [], ConstSpiceDouble stop [], ConstSpiceDouble quats [][4], ConstSpiceDouble avvs [][3], ConstSpiceDouble rates [] ); void ckw03_c ( SpiceInt handle, SpiceDouble begtim, SpiceDouble endtim, SpiceInt inst, ConstSpiceChar * ref, SpiceBoolean avflag, ConstSpiceChar * segid, SpiceInt nrec, ConstSpiceDouble sclkdp [], ConstSpiceDouble quats [][4], ConstSpiceDouble avvs [][3], SpiceInt nints, ConstSpiceDouble starts [] ); void ckw05_c ( SpiceInt handle, SpiceCK05Subtype subtyp, SpiceInt degree, SpiceDouble begtim, SpiceDouble endtim, SpiceInt inst, ConstSpiceChar * ref, SpiceBoolean avflag, ConstSpiceChar * segid, SpiceInt n, ConstSpiceDouble sclkdp[], const void * packets, SpiceDouble rate, SpiceInt nints, ConstSpiceDouble starts[] ); void cleard_c ( SpiceInt ndim, SpiceDouble * array ); void cleari_c ( SpiceInt ndim, SpiceInt array [] ); SpiceDouble clight_c ( void ); void clpool_c ( void ); void cmprss_c ( SpiceChar delim, SpiceInt n, ConstSpiceChar * input, SpiceInt lenout, SpiceChar * output ); void cnmfrm_c ( ConstSpiceChar * cname, SpiceInt lenout, SpiceInt * frcode, SpiceChar * frname, SpiceBoolean * found ); void conics_c ( ConstSpiceDouble elts[8], SpiceDouble et, SpiceDouble state[6] ); void convrt_c ( SpiceDouble x, ConstSpiceChar * in, ConstSpiceChar * out, SpiceDouble * y ); void copy_c ( SpiceCell * a, SpiceCell * b ); SpiceInt cpos_c ( ConstSpiceChar * str, ConstSpiceChar * chars, SpiceInt start ); SpiceInt cposr_c ( ConstSpiceChar * str, ConstSpiceChar * chars, SpiceInt start ); void cvpool_c ( ConstSpiceChar * agent, SpiceBoolean * update ); void cyllat_c ( SpiceDouble r, SpiceDouble lonc, SpiceDouble z, SpiceDouble * radius, SpiceDouble * lon, SpiceDouble * lat ); void cylrec_c ( SpiceDouble r, SpiceDouble lon, SpiceDouble z, SpiceDouble rectan[3] ); void cylsph_c ( SpiceDouble r, SpiceDouble lonc, SpiceDouble z, SpiceDouble * radius, SpiceDouble * colat, SpiceDouble * lon ); void dafac_c ( SpiceInt handle, SpiceInt n, SpiceInt lenvals, const void * buffer ); void dafbbs_c ( SpiceInt handle ); void dafbfs_c ( SpiceInt handle ); void dafcls_c ( SpiceInt handle ); void dafcs_c ( SpiceInt handle ); void dafdc_c ( SpiceInt handle ); void dafec_c ( SpiceInt handle, SpiceInt bufsiz, SpiceInt lenout, SpiceInt * n, void * buffer, SpiceBoolean * done ); void daffna_c ( SpiceBoolean * found ); void daffpa_c ( SpiceBoolean * found ); void dafgda_c ( SpiceInt handle, SpiceInt begin, SpiceInt end, SpiceDouble * data ); void dafgh_c ( SpiceInt * handle ); void dafgn_c ( SpiceInt lenout, SpiceChar * name ); void dafgs_c ( SpiceDouble sum[] ); void dafgsr_c ( SpiceInt handle, SpiceInt recno, SpiceInt begin, SpiceInt end, SpiceDouble * data, SpiceBoolean * found ); void dafhsf_c ( SpiceInt handle, SpiceInt * nd, SpiceInt * ni ); void dafopr_c ( ConstSpiceChar * fname, SpiceInt * handle ); void dafopw_c ( ConstSpiceChar * fname, SpiceInt * handle ); void dafps_c ( SpiceInt nd, SpiceInt ni, ConstSpiceDouble dc [], ConstSpiceInt ic [], SpiceDouble sum [] ); void dafrda_c ( SpiceInt handle, SpiceInt begin, SpiceInt end, SpiceDouble * data ); void dafrfr_c ( SpiceInt handle, SpiceInt lenout, SpiceInt * nd, SpiceInt * ni, SpiceChar * ifname, SpiceInt * fward, SpiceInt * bward, SpiceInt * free ); void dasadc_c ( SpiceInt handle, SpiceInt n, SpiceInt bpos, SpiceInt epos, SpiceInt datlen, const void * data ); void dasadd_c ( SpiceInt handle, SpiceInt n, ConstSpiceDouble data [] ); void dasadi_c ( SpiceInt handle, SpiceInt n, ConstSpiceInt data [] ); void dafrs_c ( ConstSpiceDouble * sum ); void dafus_c ( ConstSpiceDouble sum [], SpiceInt nd, SpiceInt ni, SpiceDouble dc [], SpiceInt ic [] ); void dasac_c ( SpiceInt handle, SpiceInt n, SpiceInt buflen, const void * buffer ); void dascls_c ( SpiceInt handle ); void dasdc_c ( SpiceInt handle ); void dasec_c ( SpiceInt handle, SpiceInt bufsiz, SpiceInt buflen, SpiceInt * n, void * buffer, SpiceBoolean * done ); void dashfn_c ( SpiceInt handle, SpiceInt namlen, SpiceChar * fname ); void dashfs_c ( SpiceInt handle, SpiceInt * nresvr, SpiceInt * nresvc, SpiceInt * ncomr, SpiceInt * ncomc, SpiceInt * free, SpiceInt lastla [3], SpiceInt lastrc [3], SpiceInt lastwd [3] ); void daslla_c ( SpiceInt handle, SpiceInt * lastc, SpiceInt * lastd, SpiceInt * lasti ); void dasllc_c ( SpiceInt handle ); void dasonw_c ( ConstSpiceChar * fname, ConstSpiceChar * ftype, ConstSpiceChar * ifname, SpiceInt ncomr, SpiceInt * handle ); void dasopr_c ( ConstSpiceChar * fname, SpiceInt * handle ); void dasops_c ( SpiceInt * handle ); void dasopw_c ( ConstSpiceChar * fname, SpiceInt * handle ); void dasrdc_c ( SpiceInt handle, SpiceInt first, SpiceInt last, SpiceInt bpos, SpiceInt epos, SpiceInt datlen, void * data ); void dasrdd_c ( SpiceInt handle, SpiceInt first, SpiceInt last, SpiceDouble data [] ); void dasrdi_c ( SpiceInt handle, SpiceInt first, SpiceInt last, SpiceInt data [] ); void dasrfr_c ( SpiceInt handle, SpiceInt idwlen, SpiceInt ifnlen, SpiceChar * idword, SpiceChar * ifname, SpiceInt * nresvr, SpiceInt * nresvc, SpiceInt * ncomr, SpiceInt * ncomc ); void dasudc_c ( SpiceInt handle, SpiceInt first, SpiceInt last, SpiceInt bpos, SpiceInt epos, SpiceInt datlen, const void * data ); void dasudd_c ( SpiceInt handle, SpiceInt first, SpiceInt last, ConstSpiceDouble data [] ); void dasudi_c ( SpiceInt handle, SpiceInt first, SpiceInt last, ConstSpiceInt data [] ); void daswbr_c ( SpiceInt handle ); void dazldr_c ( SpiceDouble x, SpiceDouble y, SpiceDouble z, SpiceBoolean azccw, SpiceBoolean elplsz, SpiceDouble jacobi [3][3] ); void dcyldr_c ( SpiceDouble x, SpiceDouble y, SpiceDouble z, SpiceDouble jacobi[3][3] ); void deltet_c ( SpiceDouble epoch, ConstSpiceChar * eptype, SpiceDouble * delta ); SpiceDouble det_c ( ConstSpiceDouble m1[3][3] ); void diags2_c ( ConstSpiceDouble symmat [2][2], SpiceDouble diag [2][2], SpiceDouble rotate [2][2] ); void diff_c ( SpiceCell * a, SpiceCell * b, SpiceCell * c ); void dgeodr_c ( SpiceDouble x, SpiceDouble y, SpiceDouble z, SpiceDouble re, SpiceDouble f, SpiceDouble jacobi[3][3] ); void dlabbs_c ( SpiceInt handle, SpiceDLADescr * descr, SpiceBoolean * found ); void dlabfs_c ( SpiceInt handle, SpiceDLADescr * descr, SpiceBoolean * found ); void dlabns_c ( SpiceInt handle ); void dlaens_c ( SpiceInt handle ); void dlafns_c ( SpiceInt handle, ConstSpiceDLADescr * descr, SpiceDLADescr * nxtdsc, SpiceBoolean * found ); void dlafps_c ( SpiceInt handle, ConstSpiceDLADescr * descr, SpiceDLADescr * prvdsc, SpiceBoolean * found ); void dlaopn_c ( ConstSpiceChar * fname, ConstSpiceChar * ftype, ConstSpiceChar * ifname, SpiceInt ncomch, SpiceInt * handle ); void dlatdr_c ( SpiceDouble x, SpiceDouble y, SpiceDouble z, SpiceDouble jacobi[3][3] ); void dnearp_c ( ConstSpiceDouble state [6], SpiceDouble a, SpiceDouble b, SpiceDouble c, SpiceDouble dnear [6], SpiceDouble dalt [2], SpiceBoolean * found ); void dp2hx_c ( SpiceDouble number, SpiceInt lenout, SpiceChar * string, SpiceInt * length ); void dpgrdr_c ( ConstSpiceChar * body, SpiceDouble x, SpiceDouble y, SpiceDouble z, SpiceDouble re, SpiceDouble f, SpiceDouble jacobi[3][3] ); void drdazl_c ( SpiceDouble range, SpiceDouble az, SpiceDouble el, SpiceBoolean azccw, SpiceBoolean elplsz, SpiceDouble jacobi [3][3] ); SpiceDouble dpmax_c ( void ); SpiceDouble dpmax_ ( void ); SpiceDouble dpmin_c ( void ); SpiceDouble dpmin_ ( void ); SpiceDouble dpr_c ( void ); void drdcyl_c ( SpiceDouble r, SpiceDouble lon, SpiceDouble z, SpiceDouble jacobi[3][3] ); void drdgeo_c ( SpiceDouble lon, SpiceDouble lat, SpiceDouble alt, SpiceDouble re, SpiceDouble f, SpiceDouble jacobi[3][3] ); void drdlat_c ( SpiceDouble r, SpiceDouble lon, SpiceDouble lat, SpiceDouble jacobi[3][3] ); void drdpgr_c ( ConstSpiceChar * body, SpiceDouble lon, SpiceDouble lat, SpiceDouble alt, SpiceDouble re, SpiceDouble f, SpiceDouble jacobi[3][3] ); void drdsph_c ( SpiceDouble r, SpiceDouble colat, SpiceDouble lon, SpiceDouble jacobi[3][3] ); void dskb02_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceInt * nv, SpiceInt * np, SpiceInt * nvxtot, SpiceDouble vtxbds [3][2], SpiceDouble * voxsiz, SpiceDouble voxori [3], SpiceInt vgrext [3], SpiceInt * cgscal, SpiceInt * vtxnpl, SpiceInt * voxnpt, SpiceInt * voxnpl ); void dskcls_c ( SpiceInt handle, SpiceBoolean optmiz ); void dskd02_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceInt item, SpiceInt start, SpiceInt room, SpiceInt * n, SpiceDouble * values ); void dskgd_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceDSKDescr * dskdsc ); void dskgtl_c ( SpiceInt keywrd, SpiceDouble * dpval ); void dski02_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceInt item, SpiceInt start, SpiceInt room, SpiceInt * n, SpiceInt * values ); void dskobj_c ( ConstSpiceChar * dsk, SpiceCell * bodids ); void dskopn_c ( ConstSpiceChar * fname, ConstSpiceChar * ifname, SpiceInt ncomch, SpiceInt * handle ); void dskn02_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceInt plid, SpiceDouble normal[3] ); void dskmi2_c ( SpiceInt nv, ConstSpiceDouble vrtces[][3], SpiceInt np, ConstSpiceInt plates[][3], SpiceDouble finscl, SpiceInt corscl, SpiceInt worksz, SpiceInt voxpsz, SpiceInt voxlsz, SpiceBoolean makvtl, SpiceInt spxisz, SpiceInt work [][2], SpiceDouble spaixd [], SpiceInt spaixi [] ); void dskp02_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceInt start, SpiceInt room, SpiceInt * n, SpiceInt plates[][3] ); void dskrb2_c ( SpiceInt nv, ConstSpiceDouble vrtces[][3], SpiceInt np, ConstSpiceInt plates[][3], SpiceInt corsys, ConstSpiceDouble corpar[], SpiceDouble * mncor3, SpiceDouble * mxcor3 ); void dsksrf_c ( ConstSpiceChar * dsk, SpiceInt bodyid, SpiceCell * srfids ); void dskstl_c ( SpiceInt keywrd, SpiceDouble dpval ); void dskv02_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceInt start, SpiceInt room, SpiceInt * n, SpiceDouble vrtces[][3] ); void dskw02_c ( SpiceInt handle, SpiceInt center, SpiceInt surfce, SpiceInt dclass, ConstSpiceChar * frame, SpiceInt corsys, ConstSpiceDouble corpar[], SpiceDouble mncor1, SpiceDouble mxcor1, SpiceDouble mncor2, SpiceDouble mxcor2, SpiceDouble mncor3, SpiceDouble mxcor3, SpiceDouble first, SpiceDouble last, SpiceInt nv, ConstSpiceDouble vrtces[][3], SpiceInt np, ConstSpiceInt plates[][3], ConstSpiceDouble spaixd[], ConstSpiceInt spaixi[] ); void dskx02_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, ConstSpiceDouble vertex [3], ConstSpiceDouble raydir [3], SpiceInt * plid, SpiceDouble xpt [3], SpiceBoolean * found ); void dskxsi_c ( SpiceBoolean pri, ConstSpiceChar * target, SpiceInt nsurf, ConstSpiceInt srflst [], SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceDouble vertex [3], ConstSpiceDouble raydir [3], SpiceInt maxd, SpiceInt maxi, SpiceDouble xpt [3], SpiceInt * handle, SpiceDLADescr * dladsc, SpiceDSKDescr * dskdsc, SpiceDouble dc [], SpiceInt ic [], SpiceBoolean * found ); void dskxv_c ( SpiceBoolean pri, ConstSpiceChar * target, SpiceInt nsurf, ConstSpiceInt srflst[], SpiceDouble et, ConstSpiceChar * fixref, SpiceInt nrays, ConstSpiceDouble vtxarr[][3], ConstSpiceDouble dirarr[][3], SpiceDouble xptarr[][3], SpiceBoolean fndarr[] ); void dskz02_c ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceInt * nv, SpiceInt * np ); void dsphdr_c ( SpiceDouble x, SpiceDouble y, SpiceDouble z, SpiceDouble jacobi[3][3] ); void dtpool_c ( ConstSpiceChar * name, SpiceBoolean * found, SpiceInt * n, SpiceChar type [1] ); void ducrss_c ( ConstSpiceDouble s1 [6], ConstSpiceDouble s2 [6], SpiceDouble sout[6] ); void dvcrss_c ( ConstSpiceDouble s1 [6], ConstSpiceDouble s2 [6], SpiceDouble sout[6] ); SpiceDouble dvdot_c ( ConstSpiceDouble s1 [6], ConstSpiceDouble s2 [6] ); void dvhat_c ( ConstSpiceDouble s1 [6], SpiceDouble sout[6] ); SpiceDouble dvnorm_c ( ConstSpiceDouble state[6] ); void dvpool_c ( ConstSpiceChar * name ); SpiceDouble dvsep_c ( ConstSpiceDouble * s1, ConstSpiceDouble * s2 ); void edlimb_c ( SpiceDouble a, SpiceDouble b, SpiceDouble c, ConstSpiceDouble viewpt[3], SpiceEllipse * limb ); void ednmpt_c ( SpiceDouble a, SpiceDouble b, SpiceDouble c, ConstSpiceDouble normal [3], SpiceDouble point [3] ); void edpnt_c ( ConstSpiceDouble p [3], SpiceDouble a, SpiceDouble b, SpiceDouble c, SpiceDouble ep [3] ); void edterm_c ( ConstSpiceChar * trmtyp, ConstSpiceChar * source, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixfrm, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceInt npts, SpiceDouble * trgepc, SpiceDouble obspos [3], SpiceDouble termpts [ ][3] ); void ekacec_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt nvals, SpiceInt vallen, const void * cvals, SpiceBoolean isnull ); void ekaced_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt nvals, ConstSpiceDouble * dvals, SpiceBoolean isnull ); void ekacei_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt nvals, ConstSpiceInt * ivals, SpiceBoolean isnull ); void ekaclc_c ( SpiceInt handle, SpiceInt segno, ConstSpiceChar * column, SpiceInt vallen, const void * cvals, ConstSpiceInt * entszs, ConstSpiceBoolean * nlflgs, ConstSpiceInt * rcptrs, SpiceInt * wkindx ); void ekacld_c ( SpiceInt handle, SpiceInt segno, ConstSpiceChar * column, ConstSpiceDouble * dvals, ConstSpiceInt * entszs, ConstSpiceBoolean * nlflgs, ConstSpiceInt * rcptrs, SpiceInt * wkindx ); void ekacli_c ( SpiceInt handle, SpiceInt segno, ConstSpiceChar * column, ConstSpiceInt * ivals, ConstSpiceInt * entszs, ConstSpiceBoolean * nlflgs, ConstSpiceInt * rcptrs, SpiceInt * wkindx ); void ekappr_c ( SpiceInt handle, SpiceInt segno, SpiceInt * recno ); void ekbseg_c ( SpiceInt handle, ConstSpiceChar * tabnam, SpiceInt ncols, SpiceInt cnmlen, const void * cnames, SpiceInt declen, const void * decls, SpiceInt * segno ); void ekccnt_c ( ConstSpiceChar * table, SpiceInt * ccount ); void ekcii_c ( ConstSpiceChar * table, SpiceInt cindex, SpiceInt lenout, SpiceChar * column, SpiceEKAttDsc * attdsc ); void ekcls_c ( SpiceInt handle ); void ekdelr_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno ); void ekffld_c ( SpiceInt handle, SpiceInt segno, SpiceInt * rcptrs ); void ekfind_c ( ConstSpiceChar * query, SpiceInt lenout, SpiceInt * nmrows, SpiceBoolean * error, SpiceChar * errmsg ); void ekgc_c ( SpiceInt selidx, SpiceInt row, SpiceInt elment, SpiceInt lenout, SpiceChar * cdata, SpiceBoolean * null, SpiceBoolean * found ); void ekgd_c ( SpiceInt selidx, SpiceInt row, SpiceInt elment, SpiceDouble * ddata, SpiceBoolean * null, SpiceBoolean * found ); void ekgi_c ( SpiceInt selidx, SpiceInt row, SpiceInt elment, SpiceInt * idata, SpiceBoolean * null, SpiceBoolean * found ); void ekifld_c ( SpiceInt handle, ConstSpiceChar * tabnam, SpiceInt ncols, SpiceInt nrows, SpiceInt cnmlen, const void * cnames, SpiceInt declen, const void * decls, SpiceInt * segno, SpiceInt * rcptrs ); void ekinsr_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno ); void eklef_c ( ConstSpiceChar * fname, SpiceInt * handle ); SpiceInt eknelt_c ( SpiceInt selidx, SpiceInt row ); SpiceInt eknseg_c ( SpiceInt handle ); void ekntab_c ( SpiceInt * n ); void ekopn_c ( ConstSpiceChar * fname, ConstSpiceChar * ifname, SpiceInt ncomch, SpiceInt * handle ); void ekopr_c ( ConstSpiceChar * fname, SpiceInt * handle ); void ekops_c ( SpiceInt * handle ); void ekopw_c ( ConstSpiceChar * fname, SpiceInt * handle ); void ekpsel_c ( ConstSpiceChar * query, SpiceInt msglen, SpiceInt tablen, SpiceInt collen, SpiceInt * n, SpiceInt * xbegs, SpiceInt * xends, SpiceEKDataType * xtypes, SpiceEKExprClass * xclass, void * tabs, void * cols, SpiceBoolean * error, SpiceChar * errmsg ); void ekrcec_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt lenout, SpiceInt * nvals, void * cvals, SpiceBoolean * isnull ); void ekrced_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt * nvals, SpiceDouble * dvals, SpiceBoolean * isnull ); void ekrcei_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt * nvals, SpiceInt * ivals, SpiceBoolean * isnull ); void ekssum_c ( SpiceInt handle, SpiceInt segno, SpiceEKSegSum * segsum ); void ektnam_c ( SpiceInt n, SpiceInt lenout, SpiceChar * table ); void ekucec_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt nvals, SpiceInt vallen, const void * cvals, SpiceBoolean isnull ); void ekuced_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt nvals, ConstSpiceDouble * dvals, SpiceBoolean isnull ); void ekucei_c ( SpiceInt handle, SpiceInt segno, SpiceInt recno, ConstSpiceChar * column, SpiceInt nvals, ConstSpiceInt * ivals, SpiceBoolean isnull ); void ekuef_c ( SpiceInt handle ); SpiceBoolean elemc_c ( ConstSpiceChar * item, SpiceCell * set ); SpiceBoolean elemd_c ( SpiceDouble item, SpiceCell * set ); SpiceBoolean elemi_c ( SpiceInt item, SpiceCell * set ); void eqncpv_c ( SpiceDouble et, SpiceDouble epoch, ConstSpiceDouble eqel[9], SpiceDouble rapol, SpiceDouble decpol, SpiceDouble state[6] ); SpiceBoolean eqstr_c ( ConstSpiceChar * a, ConstSpiceChar * b ); void el2cgv_c ( ConstSpiceEllipse * ellipse, SpiceDouble center[3], SpiceDouble smajor[3], SpiceDouble sminor[3] ); void erract_c ( ConstSpiceChar * operation, SpiceInt lenout, SpiceChar * action ); void errch_c ( ConstSpiceChar * marker, ConstSpiceChar * string ); void errdev_c ( ConstSpiceChar * operation, SpiceInt lenout, SpiceChar * device ); void errdp_c ( ConstSpiceChar * marker, SpiceDouble number ); void errint_c ( ConstSpiceChar * marker, SpiceInt number ); void errprt_c ( ConstSpiceChar * operation, SpiceInt lenout, SpiceChar * list ); SpiceInt esrchc_c ( ConstSpiceChar * value, SpiceInt ndim, SpiceInt lenvals, const void * array ); void etcal_c ( SpiceDouble et, SpiceInt lenout, SpiceChar * string ); void et2lst_c ( SpiceDouble et, SpiceInt body, SpiceDouble lon, ConstSpiceChar * type, SpiceInt timlen, SpiceInt ampmlen, SpiceInt * hr, SpiceInt * mn, SpiceInt * sc, SpiceChar * time, SpiceChar * ampm ); void et2utc_c ( SpiceDouble et , ConstSpiceChar * format, SpiceInt prec, SpiceInt lenout, SpiceChar * utcstr ); void eul2m_c ( SpiceDouble angle3, SpiceDouble angle2, SpiceDouble angle1, SpiceInt axis3, SpiceInt axis2, SpiceInt axis1, SpiceDouble r [3][3] ); void eul2xf_c ( ConstSpiceDouble eulang[6], SpiceInt axisa, SpiceInt axisb, SpiceInt axisc, SpiceDouble xform [6][6] ); void evsgp4_c ( SpiceDouble et, ConstSpiceDouble geophs [8], ConstSpiceDouble elems [10], SpiceDouble state [6] ); SpiceBoolean exists_c ( ConstSpiceChar * name ); void expool_c ( ConstSpiceChar * name, SpiceBoolean * found ); SpiceBoolean failed_c ( void ); void fovray_c ( ConstSpiceChar * inst, ConstSpiceDouble raydir [3], ConstSpiceChar * rframe, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble * et, SpiceBoolean * visible ); void fovtrg_c ( ConstSpiceChar * inst, ConstSpiceChar * target, ConstSpiceChar * tshape, ConstSpiceChar * tframe, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble * et, SpiceBoolean * visible ); void filli_c ( SpiceInt value, SpiceInt ndim, SpiceInt array [] ); void filld_c ( SpiceDouble value, SpiceInt ndim, SpiceDouble array [] ); void frame_c ( SpiceDouble x[3], SpiceDouble y[3], SpiceDouble z[3] ); void frinfo_c ( SpiceInt frcode, SpiceInt * cent, SpiceInt * clss, SpiceInt * clssid, SpiceBoolean * found ); void frmnam_c ( SpiceInt frcode, SpiceInt lenout, SpiceChar * frname ); void ftncls_c ( SpiceInt unit ); void furnsh_c ( ConstSpiceChar * file ); void gcpool_c ( ConstSpiceChar * name, SpiceInt start, SpiceInt room, SpiceInt lenout, SpiceInt * n, void * cvals, SpiceBoolean * found ); void gdpool_c ( ConstSpiceChar * name, SpiceInt start, SpiceInt room, SpiceInt * n, SpiceDouble * values, SpiceBoolean * found ); void georec_c ( SpiceDouble lon, SpiceDouble lat, SpiceDouble alt, SpiceDouble re, SpiceDouble f, SpiceDouble rectan[3] ); void getcml_c ( SpiceInt * argc, SpiceChar *** argv ); void getelm_c ( SpiceInt frstyr, SpiceInt lineln, const void * lines, SpiceDouble * epoch, SpiceDouble * elems ); void getfat_c ( ConstSpiceChar * file, SpiceInt arclen, SpiceInt typlen, SpiceChar * arch, SpiceChar * type ); void getfov_c ( SpiceInt instid, SpiceInt room, SpiceInt shapelen, SpiceInt framelen, SpiceChar * shape, SpiceChar * frame, SpiceDouble bsight [3], SpiceInt * n, SpiceDouble bounds [][3] ); void getfvn_c ( ConstSpiceChar * inst, SpiceInt room, SpiceInt shalen, SpiceInt fralen, SpiceChar * shape, SpiceChar * frame, SpiceDouble bsight [3], SpiceInt * n, SpiceDouble bounds [][3] ); void getmsg_c ( ConstSpiceChar * option, SpiceInt lenout, SpiceChar * msg ); SpiceBoolean gfbail_c ( void ); void gfclrh_c ( void ); void gfdist_c ( ConstSpiceChar * target, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gfevnt_c ( void ( * udstep ) ( SpiceDouble et, SpiceDouble * step ), void ( * udrefn ) ( SpiceDouble t1, SpiceDouble t2, SpiceBoolean s1, SpiceBoolean s2, SpiceDouble * t ), ConstSpiceChar * gquant, SpiceInt qnpars, SpiceInt lenvals, const void * qpnams, const void * qcpars, ConstSpiceDouble * qdpars, ConstSpiceInt * qipars, ConstSpiceBoolean * qlpars, ConstSpiceChar * op, SpiceDouble refval, SpiceDouble tol, SpiceDouble adjust, SpiceBoolean rpt, void ( * udrepi ) ( SpiceCell * cnfine, ConstSpiceChar * srcpre, ConstSpiceChar * srcsuf ), void ( * udrepu ) ( SpiceDouble ivbeg, SpiceDouble ivend, SpiceDouble et ), void ( * udrepf ) ( void ), SpiceInt nintvls, SpiceBoolean bail, SpiceBoolean ( * udbail ) ( void ), SpiceCell * cnfine, SpiceCell * result ); void gffove_c ( ConstSpiceChar * inst, ConstSpiceChar * tshape, ConstSpiceDouble raydir [3], ConstSpiceChar * target, ConstSpiceChar * tframe, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble tol, void ( * udstep ) ( SpiceDouble et, SpiceDouble * step ), void ( * udrefn ) ( SpiceDouble t1, SpiceDouble t2, SpiceBoolean s1, SpiceBoolean s2, SpiceDouble * t ), SpiceBoolean rpt, void ( * udrepi ) ( SpiceCell * cnfine, ConstSpiceChar * srcpre, ConstSpiceChar * srcsuf ), void ( * udrepu ) ( SpiceDouble ivbeg, SpiceDouble ivend, SpiceDouble et ), void ( * udrepf ) ( void ), SpiceBoolean bail, SpiceBoolean ( * udbail ) ( void ), SpiceCell * cnfine, SpiceCell * result ); void gfilum_c ( ConstSpiceChar * method, ConstSpiceChar * angtyp, ConstSpiceChar * target, ConstSpiceChar * illum, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceDouble spoint [3], ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gfinth_c ( int sigcode ); void gfocce_c ( ConstSpiceChar * occtyp, ConstSpiceChar * front, ConstSpiceChar * fshape, ConstSpiceChar * fframe, ConstSpiceChar * back, ConstSpiceChar * bshape, ConstSpiceChar * bframe, ConstSpiceChar * obsrvr, ConstSpiceChar * abcorr, SpiceDouble tol, void ( * udstep ) ( SpiceDouble et, SpiceDouble * step ), void ( * udrefn ) ( SpiceDouble t1, SpiceDouble t2, SpiceBoolean s1, SpiceBoolean s2, SpiceDouble * t ), SpiceBoolean rpt, void ( * udrepi ) ( SpiceCell * cnfine, ConstSpiceChar * srcpre, ConstSpiceChar * srcsuf ), void ( * udrepu ) ( SpiceDouble ivbeg, SpiceDouble ivend, SpiceDouble et ), void ( * udrepf ) ( void ), SpiceBoolean bail, SpiceBoolean ( * udbail ) ( void ), SpiceCell * cnfine, SpiceCell * result ); void gfoclt_c ( ConstSpiceChar * occtyp, ConstSpiceChar * front, ConstSpiceChar * fshape, ConstSpiceChar * fframe, ConstSpiceChar * back, ConstSpiceChar * bshape, ConstSpiceChar * bframe, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble step, SpiceCell * cnfine, SpiceCell * result ); void gfpa_c ( ConstSpiceChar * target, ConstSpiceChar * illum, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gfposc_c ( ConstSpiceChar * target, ConstSpiceChar * frame, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * crdsys, ConstSpiceChar * coord, ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gfrefn_c ( SpiceDouble t1, SpiceDouble t2, SpiceBoolean s1, SpiceBoolean s2, SpiceDouble * t ); void gfrepf_c ( void ); void gfrepi_c ( SpiceCell * window, ConstSpiceChar * begmss, ConstSpiceChar * endmss ); void gfrepu_c ( SpiceDouble ivbeg, SpiceDouble ivend, SpiceDouble time ); void gfrfov_c ( ConstSpiceChar * inst, ConstSpiceDouble raydir [3], ConstSpiceChar * rframe, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble step, SpiceCell * cnfine, SpiceCell * result ); void gfrr_c ( ConstSpiceChar * target, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gfsep_c ( ConstSpiceChar * targ1, ConstSpiceChar * shape1, ConstSpiceChar * frame1, ConstSpiceChar * targ2, ConstSpiceChar * shape2, ConstSpiceChar * frame2, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gfsntc_c ( ConstSpiceChar * target, ConstSpiceChar * fixref, ConstSpiceChar * method, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * dref, ConstSpiceDouble dvec [3], ConstSpiceChar * crdsys, ConstSpiceChar * coord, ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gfsstp_c ( SpiceDouble step ); void gfstep_c ( SpiceDouble time, SpiceDouble * step ); void gfstol_c ( SpiceDouble value ); void gfsubc_c ( ConstSpiceChar * target, ConstSpiceChar * fixref, ConstSpiceChar * method, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * crdsys, ConstSpiceChar * coord, ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gftfov_c ( ConstSpiceChar * inst, ConstSpiceChar * target, ConstSpiceChar * tshape, ConstSpiceChar * tframe, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble step, SpiceCell * cnfine, SpiceCell * result ); void gfudb_c ( void ( * udfuns ) ( SpiceDouble et, SpiceDouble * value ), void ( * udfunb ) ( void ( * udfuns ) ( SpiceDouble et, SpiceDouble * value ), SpiceDouble et, SpiceBoolean * xbool ), SpiceDouble step, SpiceCell * cnfine, SpiceCell * result ); void gfuds_c ( void ( * udfuns ) ( SpiceDouble et, SpiceDouble * value ), void ( * udfunb ) ( void ( * udfuns ) ( SpiceDouble et, SpiceDouble * value ), SpiceDouble x, SpiceBoolean * xbool ), ConstSpiceChar * relate, SpiceDouble refval, SpiceDouble adjust, SpiceDouble step, SpiceInt nintvls, SpiceCell * cnfine, SpiceCell * result ); void gipool_c ( ConstSpiceChar * name, SpiceInt start, SpiceInt room, SpiceInt * n, SpiceInt * ivals, SpiceBoolean * found ); void gnpool_c ( ConstSpiceChar * name, SpiceInt start, SpiceInt room, SpiceInt lenout, SpiceInt * n, void * kvars, SpiceBoolean * found ); void hrmesp_c ( SpiceInt n, SpiceDouble first, SpiceDouble step, ConstSpiceDouble yvals [], SpiceDouble x, SpiceDouble * f, SpiceDouble * df ); void hrmint_c ( SpiceInt n, ConstSpiceDouble * xvals, ConstSpiceDouble * yvals, SpiceDouble x, SpiceDouble * work, SpiceDouble * f, SpiceDouble * df ); SpiceDouble halfpi_c ( void ); void hx2dp_c ( ConstSpiceChar * string, SpiceInt lenout, SpiceDouble * number, SpiceBoolean * error, SpiceChar * errmsg ); void ident_c ( SpiceDouble matrix[3][3] ); void ilumin_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceDouble spoint [3], SpiceDouble * trgepc, SpiceDouble srfvec [3], SpiceDouble * phase, SpiceDouble * solar, SpiceDouble * emissn ); void illum_c ( ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceDouble spoint [3], SpiceDouble * phase, SpiceDouble * solar, SpiceDouble * emissn ); void illum_pl02 ( SpiceInt handle, ConstSpiceDLADescr * dladsc, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble spoint [3], SpiceDouble * phase, SpiceDouble * solar, SpiceDouble * emissn ); void illum_plid_pl02 ( SpiceInt handle, ConstSpiceDLADescr * dladsc, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble spoint [3], SpiceInt plid, SpiceDouble * trgepc, SpiceDouble srfvec [3], SpiceDouble * phase, SpiceDouble * solar, SpiceDouble * emissn, SpiceBoolean * visible, SpiceBoolean * lit ); void illumf_c ( ConstSpiceChar * method, ConstSpiceChar * target, ConstSpiceChar * ilusrc, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceDouble spoint [3], SpiceDouble * trgepc, SpiceDouble srfvec [3], SpiceDouble * phase, SpiceDouble * incdnc, SpiceDouble * emissn, SpiceBoolean * visibl, SpiceBoolean * lit ); void illumg_c ( ConstSpiceChar * method, ConstSpiceChar * target, ConstSpiceChar * illum, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceDouble spoint [3], SpiceDouble * trgepc, SpiceDouble srfvec [3], SpiceDouble * phase, SpiceDouble * solar, SpiceDouble * emissn ); void inedpl_c ( SpiceDouble a, SpiceDouble b, SpiceDouble c, ConstSpicePlane * plane, SpiceEllipse * ellipse, SpiceBoolean * found ); void inelpl_c ( ConstSpiceEllipse * ellips, ConstSpicePlane * plane, SpiceInt * nxpts, SpiceDouble xpt1[3], SpiceDouble xpt2[3] ); void insrtc_c ( ConstSpiceChar * item, SpiceCell * set ); void insrtd_c ( SpiceDouble item, SpiceCell * set ); void insrti_c ( SpiceInt item, SpiceCell * set ); void inter_c ( SpiceCell * a, SpiceCell * b, SpiceCell * c ); void inrypl_c ( ConstSpiceDouble vertex [3], ConstSpiceDouble dir [3], ConstSpicePlane * plane, SpiceInt * nxpts, SpiceDouble xpt [3] ); SpiceInt intmax_c ( void ); SpiceInt intmax_ ( void ); SpiceInt intmin_c ( void ); SpiceInt intmin_ ( void ); void invert_c ( ConstSpiceDouble m1[3][3], SpiceDouble m2[3][3] ); void invort_c ( ConstSpiceDouble m [3][3], SpiceDouble mit[3][3] ); void invstm_c ( ConstSpiceDouble mat [6][6], SpiceDouble invmat [6][6] ); SpiceBoolean isordv_c ( ConstSpiceInt * array, SpiceInt n ); SpiceBoolean isrot_c ( ConstSpiceDouble m [3][3], SpiceDouble ntol, SpiceDouble dtol ); SpiceInt isrchc_c ( ConstSpiceChar * value, SpiceInt ndim, SpiceInt lenvals, const void * array ); SpiceInt isrchd_c ( SpiceDouble value, SpiceInt ndim, ConstSpiceDouble * array ); SpiceInt isrchi_c ( SpiceInt value, SpiceInt ndim, ConstSpiceInt * array ); SpiceBoolean iswhsp_c ( ConstSpiceChar * string ); SpiceDouble j1900_c ( void ); SpiceDouble j1950_c ( void ); SpiceDouble j2000_c ( void ); SpiceDouble j2100_c ( void ); SpiceDouble jyear_c ( void ); void kclear_c ( void ); void kdata_c ( SpiceInt which, ConstSpiceChar * kind, SpiceInt fillen, SpiceInt typlen, SpiceInt srclen, SpiceChar * file, SpiceChar * filtyp, SpiceChar * source, SpiceInt * handle, SpiceBoolean * found ); void kinfo_c ( ConstSpiceChar * file, SpiceInt typlen, SpiceInt srclen, SpiceChar * filtyp, SpiceChar * source, SpiceInt * handle, SpiceBoolean * found ); void kplfrm_c ( SpiceInt frmcls, SpiceCell * idset ); void ktotal_c ( ConstSpiceChar * kind, SpiceInt * count ); void kxtrct_c ( ConstSpiceChar * keywd, SpiceInt termlen, const void * terms, SpiceInt nterms, SpiceInt stringlen, SpiceInt substrlen, SpiceChar * string, SpiceBoolean * found, SpiceChar * substr ); SpiceInt lastnb_c ( ConstSpiceChar * string ); void latcyl_c ( SpiceDouble radius, SpiceDouble lon, SpiceDouble lat, SpiceDouble * r, SpiceDouble * lonc, SpiceDouble * z ); void latrec_c ( SpiceDouble radius, SpiceDouble longitude, SpiceDouble latitude, SpiceDouble rectan [3] ); void latsph_c ( SpiceDouble radius, SpiceDouble lon, SpiceDouble lat, SpiceDouble * rho, SpiceDouble * colat, SpiceDouble * lons ); void latsrf_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, SpiceInt npts, ConstSpiceDouble lonlat[][2], SpiceDouble srfpts[][3] ); void lcase_c ( SpiceChar * in, SpiceInt lenout, SpiceChar * out ); void ldpool_c ( ConstSpiceChar * filename ); SpiceDouble lgresp_c ( SpiceInt n, SpiceDouble first, SpiceDouble step, ConstSpiceDouble yvals [], SpiceDouble x ); void lgrind_c ( SpiceInt n, ConstSpiceDouble * xvals, ConstSpiceDouble * yvals, SpiceDouble * work, SpiceDouble x, SpiceDouble * p, SpiceDouble * dp ); SpiceDouble lgrint_c ( SpiceInt n, ConstSpiceDouble xvals [], ConstSpiceDouble yvals [], SpiceDouble x ); void limb_pl02 ( SpiceInt handle, ConstSpiceDLADescr * dladsc, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceInt npoints, SpiceDouble * trgepc, SpiceDouble obspos [3], SpiceDouble limbpts [][3], SpiceInt plateIDs [] ); void limbpt_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * corloc, ConstSpiceChar * obsrvr, ConstSpiceDouble refvec[3], SpiceDouble rolstp, SpiceInt ncuts, SpiceDouble schstp, SpiceDouble soltol, SpiceInt maxn, SpiceInt npts [], SpiceDouble points[][3], SpiceDouble epochs[], SpiceDouble tangts[][3] ); void llgrid_pl02 ( SpiceInt handle, ConstSpiceDLADescr * dladsc, SpiceInt npoints, ConstSpiceDouble grid [][2], SpiceDouble spoints [][3], SpiceInt plateIDs [] ); void lmpool_c ( const void * cvals, SpiceInt lenvals, SpiceInt n ); void lparse_c ( ConstSpiceChar * list, ConstSpiceChar * delim, SpiceInt nmax, SpiceInt lenout, SpiceInt * n, void * items ); void lparsm_c ( ConstSpiceChar * list, ConstSpiceChar * delims, SpiceInt nmax, SpiceInt lenout, SpiceInt * n, void * items ); void lparss_c ( ConstSpiceChar * list, ConstSpiceChar * delims, SpiceCell * set ); SpiceDouble lspcn_c ( ConstSpiceChar * body, SpiceDouble et, ConstSpiceChar * abcorr ); SpiceInt lstlec_c ( ConstSpiceChar * string, SpiceInt n, SpiceInt lenvals, const void * array ); SpiceInt lstled_c ( SpiceDouble x, SpiceInt n, ConstSpiceDouble * array ); SpiceInt lstlei_c ( SpiceInt x, SpiceInt n, ConstSpiceInt * array ); SpiceInt lstltc_c ( ConstSpiceChar * string, SpiceInt n, SpiceInt lenvals, const void * array ); SpiceInt lstltd_c ( SpiceDouble x, SpiceInt n, ConstSpiceDouble * array ); SpiceInt lstlti_c ( SpiceInt x, SpiceInt n, ConstSpiceInt * array ); void ltime_c ( SpiceDouble etobs, SpiceInt obs, ConstSpiceChar * dir, SpiceInt targ, SpiceDouble * ettarg, SpiceDouble * elapsd ); void lx4dec_c ( ConstSpiceChar * string, SpiceInt first, SpiceInt * last, SpiceInt * nchar ); void lx4num_c ( ConstSpiceChar * string, SpiceInt first, SpiceInt * last, SpiceInt * nchar ); void lx4sgn_c ( ConstSpiceChar * string, SpiceInt first, SpiceInt * last, SpiceInt * nchar ); void lx4uns_c ( ConstSpiceChar * string, SpiceInt first, SpiceInt * last, SpiceInt * nchar ); void lxqstr_c ( ConstSpiceChar * string, SpiceChar qchar, SpiceInt first, SpiceInt * last, SpiceInt * nchar ); void m2eul_c ( ConstSpiceDouble r[3][3], SpiceInt axis3, SpiceInt axis2, SpiceInt axis1, SpiceDouble * angle3, SpiceDouble * angle2, SpiceDouble * angle1 ); void m2q_c ( ConstSpiceDouble r[3][3], SpiceDouble q[4] ); SpiceBoolean matchi_c ( ConstSpiceChar * string, ConstSpiceChar * templ, SpiceChar wstr, SpiceChar wchr ); SpiceBoolean matchw_c ( ConstSpiceChar * string, ConstSpiceChar * templ, SpiceChar wstr, SpiceChar wchr ); SpiceDouble maxd_c ( SpiceInt n, ... ); SpiceInt maxi_c ( SpiceInt n, ... ); void mequ_c ( ConstSpiceDouble m1 [3][3], SpiceDouble mout[3][3] ); void mequg_c ( const void * m1, SpiceInt nr, SpiceInt nc, void * mout ); SpiceDouble mind_c ( SpiceInt n, ... ); SpiceInt mini_c ( SpiceInt n, ... ); int moved_ ( SpiceDouble * arrfrm, SpiceInt * ndim, SpiceDouble * arrto ); void moved_c ( ConstSpiceDouble arrfrm [], SpiceInt ndim, SpiceDouble arrto [] ); void mtxm_c ( ConstSpiceDouble m1 [3][3], ConstSpiceDouble m2 [3][3], SpiceDouble mout[3][3] ); void mtxmg_c ( const void * m1, const void * m2, SpiceInt row1, SpiceInt col1, SpiceInt col2, void * mout ); void mtxv_c ( ConstSpiceDouble m1 [3][3], ConstSpiceDouble vin [3], SpiceDouble vout[3] ); void mtxvg_c ( const void * m1, const void * v2, SpiceInt ncol1, SpiceInt nr1r2, void * vout ); void mxm_c ( ConstSpiceDouble m1 [3][3], ConstSpiceDouble m2 [3][3], SpiceDouble mout[3][3] ); void mxmg_c ( const void * m1, const void * m2, SpiceInt row1, SpiceInt col1, SpiceInt col2, void * mout ); void mxmt_c ( ConstSpiceDouble m1 [3][3], ConstSpiceDouble m2 [3][3], SpiceDouble mout[3][3] ); void mxmtg_c ( const void * m1, const void * m2, SpiceInt nrow1, SpiceInt nc1c2, SpiceInt nrow2, void * mout ); void mxv_c ( ConstSpiceDouble m1[3][3], ConstSpiceDouble vin[3], SpiceDouble vout[3] ); void mxvg_c ( const void * m1, const void * v2, SpiceInt nrow1, SpiceInt nc1r2, void * vout ); void namfrm_c ( ConstSpiceChar * frname, SpiceInt * frcode ); SpiceInt ncpos_c ( ConstSpiceChar * str, ConstSpiceChar * chars, SpiceInt start ); SpiceInt ncposr_c ( ConstSpiceChar * str, ConstSpiceChar * chars, SpiceInt start ); void nearpt_c ( ConstSpiceDouble positn[3], SpiceDouble a, SpiceDouble b, SpiceDouble c, SpiceDouble npoint[3], SpiceDouble * alt ); void nextwd_c ( ConstSpiceChar * string, SpiceInt nexlen, SpiceInt reslen, SpiceChar * next, SpiceChar * rest ); void npedln_c ( SpiceDouble a, SpiceDouble b, SpiceDouble c, ConstSpiceDouble linept[3], ConstSpiceDouble linedr[3], SpiceDouble pnear[3], SpiceDouble * dist ); void npelpt_c ( ConstSpiceDouble point[3], ConstSpiceEllipse * ellips, SpiceDouble pnear[3], SpiceDouble * dist ); void nplnpt_c ( ConstSpiceDouble linpt [3], ConstSpiceDouble lindir [3], ConstSpiceDouble point [3], SpiceDouble pnear [3], SpiceDouble * dist ); void nthwd_c ( ConstSpiceChar * string, SpiceInt nth, SpiceInt worlen, SpiceChar * word, SpiceInt * loc ); void nvc2pl_c ( ConstSpiceDouble normal[3], SpiceDouble constant, SpicePlane * plane ); void nvp2pl_c ( ConstSpiceDouble normal[3], ConstSpiceDouble point[3], SpicePlane * plane ); void occult_c ( ConstSpiceChar * target1, ConstSpiceChar * shape1, ConstSpiceChar * frame1, ConstSpiceChar * target2, ConstSpiceChar * shape2, ConstSpiceChar * frame2, ConstSpiceChar * abcorr, ConstSpiceChar * observer, SpiceDouble time, SpiceInt * occult_code ); SpiceInt ordc_c ( ConstSpiceChar * item, SpiceCell * set ); SpiceInt ordd_c ( SpiceDouble item, SpiceCell * set ); SpiceInt ordi_c ( SpiceInt item, SpiceCell * set ); void orderc_c ( SpiceInt lenvals, const void * array, SpiceInt ndim, SpiceInt * iorder ); void orderd_c ( ConstSpiceDouble * array, SpiceInt ndim, SpiceInt * iorder ); void orderi_c ( ConstSpiceInt * array, SpiceInt ndim, SpiceInt * iorder ); void oscelt_c ( ConstSpiceDouble state[6], SpiceDouble et , SpiceDouble mu , SpiceDouble elts[8] ); void oscltx_c ( ConstSpiceDouble state[6], SpiceDouble et , SpiceDouble mu , SpiceDouble elts[SPICE_OSCLTX_NELTS] ); void pckcls_c ( SpiceInt handle ); void pckcov_c ( ConstSpiceChar * pck, SpiceInt idcode, SpiceCell * cover ); void pckfrm_c ( ConstSpiceChar * pck, SpiceCell * ids ); void pcklof_c ( ConstSpiceChar * fname, SpiceInt * handle ); void pckopn_c ( ConstSpiceChar * name, ConstSpiceChar * ifname, SpiceInt ncomch, SpiceInt * handle ); void pckuof_c ( SpiceInt handle ); void pckw02_c ( SpiceInt handle, SpiceInt clssid, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceDouble intlen, SpiceInt n, SpiceInt polydg, SpiceDouble cdata [], SpiceDouble btime ); void pcpool_c ( ConstSpiceChar * name, SpiceInt n, SpiceInt lenvals, const void * cvals ); void pdpool_c ( ConstSpiceChar * name, SpiceInt n, ConstSpiceDouble * dvals ); void pgrrec_c ( ConstSpiceChar * body, SpiceDouble lon, SpiceDouble lat, SpiceDouble alt, SpiceDouble re, SpiceDouble f, SpiceDouble rectan[3] ); SpiceDouble phaseq_c ( SpiceDouble et, ConstSpiceChar * target, ConstSpiceChar * illumn, ConstSpiceChar * obsrvr, ConstSpiceChar * abcorr ); SpiceDouble pi_c ( void ); void pipool_c ( ConstSpiceChar * name, SpiceInt n, ConstSpiceInt * ivals ); void pjelpl_c ( ConstSpiceEllipse * elin, ConstSpicePlane * plane, SpiceEllipse * elout ); void pl2nvc_c ( ConstSpicePlane * plane, SpiceDouble normal[3], SpiceDouble * constant ); void pl2nvp_c ( ConstSpicePlane * plane, SpiceDouble normal[3], SpiceDouble point[3] ); void pl2psv_c ( ConstSpicePlane * plane, SpiceDouble point[3], SpiceDouble span1[3], SpiceDouble span2[3] ); SpiceDouble pltar_c ( SpiceInt nv, ConstSpiceDouble vrtces[][3], SpiceInt np, ConstSpiceInt plates[][3] ); void pltexp_c ( ConstSpiceDouble iverts[3][3], SpiceDouble delta, SpiceDouble overts[3][3] ); void pltnp_c ( ConstSpiceDouble point[3], ConstSpiceDouble v1 [3], ConstSpiceDouble v2 [3], ConstSpiceDouble v3 [3], SpiceDouble pnear[3], SpiceDouble * dist ); void pltnrm_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3], ConstSpiceDouble v3[3], SpiceDouble normal[3] ); SpiceDouble pltvol_c ( SpiceInt nv, ConstSpiceDouble vrtces[][3], SpiceInt np, ConstSpiceInt plates[][3] ); void polyds_c ( ConstSpiceDouble * coeffs, SpiceInt deg, SpiceInt nderiv, SpiceDouble t, SpiceDouble * p ); SpiceInt pos_c ( ConstSpiceChar * str, ConstSpiceChar * substr, SpiceInt start ); SpiceInt posr_c ( ConstSpiceChar * str, ConstSpiceChar * substr, SpiceInt start ); void prefix_c ( ConstSpiceChar * pref, SpiceInt spaces, SpiceInt lenout, SpiceChar * string ); SpiceChar * prompt_c ( ConstSpiceChar * prmptStr, SpiceInt lenout, SpiceChar * buffer ); void prop2b_c ( SpiceDouble gm, ConstSpiceDouble pvinit[6], SpiceDouble dt, SpiceDouble pvprop[6] ); void prsdp_c ( ConstSpiceChar * string, SpiceDouble * dpval ); void prsint_c ( ConstSpiceChar * string, SpiceInt * intval ); void psv2pl_c ( ConstSpiceDouble point[3], ConstSpiceDouble span1[3], ConstSpiceDouble span2[3], SpicePlane * plane ); void putcml_c ( SpiceInt argc , SpiceChar ** argv ); void pxform_c ( ConstSpiceChar * from, ConstSpiceChar * to, SpiceDouble et, SpiceDouble rotate[3][3] ); void pxfrm2_c ( ConstSpiceChar * from, ConstSpiceChar * to, SpiceDouble etfrom, SpiceDouble etto, SpiceDouble rotate[3][3] ); void q2m_c ( ConstSpiceDouble q[4], SpiceDouble r[3][3] ); void qcktrc_c ( SpiceInt tracelen, SpiceChar * trace ); void qderiv_c ( SpiceInt ndim, ConstSpiceDouble f0 [], ConstSpiceDouble f2 [], SpiceDouble delta, SpiceDouble dfdt [] ); void qdq2av_c ( ConstSpiceDouble q[4], ConstSpiceDouble dq[4], SpiceDouble av[3] ); void qxq_c ( ConstSpiceDouble q1[4], ConstSpiceDouble q2[4], SpiceDouble qout[4] ); void radrec_c ( SpiceDouble range, SpiceDouble ra, SpiceDouble dec, SpiceDouble rectan[3] ); void rav2xf_c ( ConstSpiceDouble rot [3][3], ConstSpiceDouble av [3], SpiceDouble xform [6][6] ); void raxisa_c ( ConstSpiceDouble matrix[3][3], SpiceDouble axis [3], SpiceDouble * angle ); void rdtext_c ( ConstSpiceChar * file, SpiceInt lenout, SpiceChar * line, SpiceBoolean * eof ); void recazl_c ( ConstSpiceDouble rectan [3], SpiceBoolean azccw, SpiceBoolean elplsz, SpiceDouble * range, SpiceDouble * az, SpiceDouble * el ); void reccyl_c ( ConstSpiceDouble rectan[3], SpiceDouble * r, SpiceDouble * lon, SpiceDouble * z ); void recgeo_c ( ConstSpiceDouble rectan[3], SpiceDouble re, SpiceDouble f, SpiceDouble * lon, SpiceDouble * lat, SpiceDouble * alt ); void reclat_c ( ConstSpiceDouble rectan[3], SpiceDouble * radius, SpiceDouble * longitude, SpiceDouble * latitude ); void recpgr_c ( ConstSpiceChar * body, SpiceDouble rectan[3], SpiceDouble re, SpiceDouble f, SpiceDouble * lon, SpiceDouble * lat, SpiceDouble * alt ); void recrad_c ( ConstSpiceDouble rectan[3], SpiceDouble * radius, SpiceDouble * ra, SpiceDouble * dec ); void reordc_c ( ConstSpiceInt * iorder, SpiceInt ndim, SpiceInt lenvals, void * array ); void reordd_c ( ConstSpiceInt * iorder, SpiceInt ndim, SpiceDouble * array ); void reordi_c ( ConstSpiceInt * iorder, SpiceInt ndim, SpiceInt * array ); void reordl_c ( ConstSpiceInt * iorder, SpiceInt ndim, SpiceBoolean * array ); void removc_c ( ConstSpiceChar * item, SpiceCell * set ); void removd_c ( SpiceDouble item, SpiceCell * set ); void removi_c ( SpiceInt item, SpiceCell * set ); void repmc_c ( ConstSpiceChar * in, ConstSpiceChar * marker, ConstSpiceChar * value, SpiceInt lenout, SpiceChar * out ); void repmct_c ( ConstSpiceChar * in, ConstSpiceChar * marker, SpiceInt value, SpiceChar strCase, SpiceInt lenout, SpiceChar * out ); void repml_c ( ConstSpiceChar * in, ConstSpiceChar * marker, SpiceBoolean value, SpiceChar rtcase, SpiceInt outlen, SpiceChar * out ); void repmd_c ( ConstSpiceChar * in, ConstSpiceChar * marker, SpiceDouble value, SpiceInt sigdig, SpiceInt lenout, SpiceChar * out ); void repmf_c ( ConstSpiceChar * in, ConstSpiceChar * marker, SpiceDouble value, SpiceInt sigdig, SpiceChar format, SpiceInt lenout, SpiceChar * out ); void repmi_c ( ConstSpiceChar * in, ConstSpiceChar * marker, SpiceInt value, SpiceInt lenout, SpiceChar * out ); void repmot_c ( ConstSpiceChar * in, ConstSpiceChar * marker, SpiceInt value, SpiceChar strCase, SpiceInt lenout, SpiceChar * out ); void reset_c ( void ); SpiceBoolean return_c ( void ); void recsph_c ( ConstSpiceDouble rectan[3], SpiceDouble * r, SpiceDouble * colat, SpiceDouble * lon ); void rotate_c ( SpiceDouble angle, SpiceInt iaxis, SpiceDouble mout[3][3] ); void rotmat_c ( ConstSpiceDouble m1[3][3], SpiceDouble angle, SpiceInt iaxis, SpiceDouble mout[3][3] ); void rotvec_c ( ConstSpiceDouble v1[3], SpiceDouble angle, SpiceInt iaxis, SpiceDouble vout[3] ); SpiceDouble rpd_c ( void ); void rquad_c ( SpiceDouble a, SpiceDouble b, SpiceDouble c, SpiceDouble root1[2], SpiceDouble root2[2] ); void saelgv_c ( ConstSpiceDouble vec1 [3], ConstSpiceDouble vec2 [3], SpiceDouble smajor[3], SpiceDouble sminor[3] ); void scard_c ( SpiceInt card, SpiceCell * cell ); void scdecd_c ( SpiceInt sc, SpiceDouble sclkdp, SpiceInt sclklen, SpiceChar * sclkch ); void sce2s_c ( SpiceInt sc, SpiceDouble et, SpiceInt sclklen, SpiceChar * sclkch ); void sce2c_c ( SpiceInt sc, SpiceDouble et, SpiceDouble * sclkdp ); void sce2t_c ( SpiceInt sc, SpiceDouble et, SpiceDouble * sclkdp ); void scencd_c ( SpiceInt sc, ConstSpiceChar * sclkch, SpiceDouble * sclkdp ); void scfmt_c ( SpiceInt sc, SpiceDouble ticks, SpiceInt clkstrlen, SpiceChar * clkstr ); void scpart_c ( SpiceInt sc, SpiceInt * nparts, SpiceDouble * pstart, SpiceDouble * pstop ); void scs2e_c ( SpiceInt sc, ConstSpiceChar * sclkch, SpiceDouble * et ); void sct2e_c ( SpiceInt sc, SpiceDouble sclkdp, SpiceDouble * et ); void sctiks_c ( SpiceInt sc, ConstSpiceChar * clkstr, SpiceDouble * ticks ); void sdiff_c ( SpiceCell * a, SpiceCell * b, SpiceCell * c ); SpiceBoolean set_c ( SpiceCell * a, ConstSpiceChar * op, SpiceCell * b ); void setmsg_c ( ConstSpiceChar * msg ); void shellc_c ( SpiceInt ndim, SpiceInt lenvals, void * array ); void shelld_c ( SpiceInt ndim, SpiceDouble * array ); void shelli_c ( SpiceInt ndim, SpiceInt * array ); void sigerr_c ( ConstSpiceChar * message ); void sincpt_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * dref, ConstSpiceDouble dvec [3], SpiceDouble spoint [3], SpiceDouble * trgepc, SpiceDouble srfvec [3], SpiceBoolean * found ); SpiceInt size_c ( SpiceCell * size ); SpiceDouble spd_c ( void ); void sphcyl_c ( SpiceDouble radius, SpiceDouble colat, SpiceDouble slon, SpiceDouble * r, SpiceDouble * lon, SpiceDouble * z ); void sphlat_c ( SpiceDouble r, SpiceDouble colat, SpiceDouble lons, SpiceDouble * radius, SpiceDouble * lon, SpiceDouble * lat ); void sphrec_c ( SpiceDouble r, SpiceDouble colat, SpiceDouble lon, SpiceDouble rectan[3] ); void spk14a_c ( SpiceInt handle, SpiceInt ncsets, ConstSpiceDouble coeffs [], ConstSpiceDouble epochs [] ); void spk14b_c ( SpiceInt handle, ConstSpiceChar * segid, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, SpiceInt chbdeg ); void spk14e_c ( SpiceInt handle ); void spkapo_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, ConstSpiceDouble sobs[6], ConstSpiceChar * abcorr, SpiceDouble ptarg[3], SpiceDouble * lt ); void spkapp_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, ConstSpiceDouble sobs [6], ConstSpiceChar * abcorr, SpiceDouble starg [6], SpiceDouble * lt ); void spkacs_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, ConstSpiceChar * abcorr, SpiceInt obs, SpiceDouble starg[6], SpiceDouble * lt, SpiceDouble * dlt ); void spkaps_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, ConstSpiceChar * abcorr, ConstSpiceDouble stobs[6], ConstSpiceDouble accobs[3], SpiceDouble starg[6], SpiceDouble * lt, SpiceDouble * dlt ); void spkcls_c ( SpiceInt handle ); void spkcov_c ( ConstSpiceChar * spk, SpiceInt idcode, SpiceCell * cover ); void spkcpo_c ( ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * outref, ConstSpiceChar * refloc, ConstSpiceChar * abcorr, ConstSpiceDouble obssta [3], ConstSpiceChar * obsctr, ConstSpiceChar * obsref, SpiceDouble state [6], SpiceDouble * lt ); void spkcpt_c ( ConstSpiceDouble trgpos [3], ConstSpiceChar * trgctr, ConstSpiceChar * trgref, SpiceDouble et, ConstSpiceChar * outref, ConstSpiceChar * refloc, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble state [6], SpiceDouble * lt ); void spkcvo_c ( ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * outref, ConstSpiceChar * refloc, ConstSpiceChar * abcorr, ConstSpiceDouble obssta [6], SpiceDouble obsepc, ConstSpiceChar * obsctr, ConstSpiceChar * obsref, SpiceDouble state [6], SpiceDouble * lt ); void spkcvt_c ( ConstSpiceDouble trgsta [6], SpiceDouble trgepc, ConstSpiceChar * trgctr, ConstSpiceChar * trgref, SpiceDouble et, ConstSpiceChar * outref, ConstSpiceChar * refloc, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble state [6], SpiceDouble * lt ); void spkez_c ( SpiceInt target, SpiceDouble epoch, ConstSpiceChar * frame, ConstSpiceChar * abcorr, SpiceInt observer, SpiceDouble state[6], SpiceDouble * lt ); void spkezp_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, ConstSpiceChar * abcorr, SpiceInt obs, SpiceDouble ptarg[3], SpiceDouble * lt ); void spkezr_c ( ConstSpiceChar * target, SpiceDouble epoch, ConstSpiceChar * frame, ConstSpiceChar * abcorr, ConstSpiceChar * observer, SpiceDouble state[6], SpiceDouble * lt ); void spkgeo_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, SpiceInt obs, SpiceDouble state[6], SpiceDouble * lt ); void spkgps_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, SpiceInt obs, SpiceDouble pos[3], SpiceDouble * lt ); void spklef_c ( ConstSpiceChar * filename, SpiceInt * handle ); void spkltc_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, ConstSpiceChar * abcorr, ConstSpiceDouble stobs[6], SpiceDouble starg[6], SpiceDouble * lt, SpiceDouble * dlt ); void spkobj_c ( ConstSpiceChar * spk, SpiceCell * ids ); void spkopa_c ( ConstSpiceChar * file, SpiceInt * handle ); void spkopn_c ( ConstSpiceChar * name, ConstSpiceChar * ifname, SpiceInt ncomch, SpiceInt * handle ); void spkpds_c ( SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceInt type, SpiceDouble first, SpiceDouble last, SpiceDouble descr[5] ); void spkpos_c ( ConstSpiceChar * targ, SpiceDouble et, ConstSpiceChar * ref, ConstSpiceChar * abcorr, ConstSpiceChar * obs, SpiceDouble ptarg[3], SpiceDouble * lt ); void spkpvn_c ( SpiceInt handle, ConstSpiceDouble descr [5], SpiceDouble et, SpiceInt * ref, SpiceDouble state [6], SpiceInt * center ); void spksfs_c ( SpiceInt body, SpiceDouble et, SpiceInt idlen, SpiceInt * handle, SpiceDouble descr [5], SpiceChar * ident, SpiceBoolean * found ); void spkssb_c ( SpiceInt targ, SpiceDouble et, ConstSpiceChar * ref, SpiceDouble starg[6] ); void spksub_c ( SpiceInt handle, SpiceDouble descr[5], ConstSpiceChar * ident, SpiceDouble begin, SpiceDouble end, SpiceInt newh ); void spkuds_c ( ConstSpiceDouble descr [5], SpiceInt * body, SpiceInt * center, SpiceInt * frame, SpiceInt * type, SpiceDouble * first, SpiceDouble * last, SpiceInt * begin, SpiceInt * end ); void spkuef_c ( SpiceInt handle ); void spkw02_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceDouble intlen, SpiceInt n, SpiceInt polydg, ConstSpiceDouble cdata [], SpiceDouble btime ); void spkw03_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceDouble intlen, SpiceInt n, SpiceInt polydg, ConstSpiceDouble cdata [], SpiceDouble btime ); void spkw05_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceDouble gm, SpiceInt n, ConstSpiceDouble states [][6], ConstSpiceDouble epochs [] ); void spkw08_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceInt degree, SpiceInt n, ConstSpiceDouble states[][6], SpiceDouble epoch1, SpiceDouble step ); void spkw09_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceInt degree, SpiceInt n, ConstSpiceDouble states[][6], ConstSpiceDouble epochs[] ); void spkw10_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, ConstSpiceDouble consts [8], SpiceInt n, ConstSpiceDouble elems [], ConstSpiceDouble epochs [] ); void spkw12_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceInt degree, SpiceInt n, ConstSpiceDouble states[][6], SpiceDouble epoch0, SpiceDouble step ); void spkw13_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceInt degree, SpiceInt n, ConstSpiceDouble states[][6], ConstSpiceDouble epochs[] ); void spkw15_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceDouble epoch, ConstSpiceDouble tp [3], ConstSpiceDouble pa [3], SpiceDouble p, SpiceDouble ecc, SpiceDouble j2flg, ConstSpiceDouble pv [3], SpiceDouble gm, SpiceDouble j2, SpiceDouble radius ); void spkw17_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceDouble epoch, ConstSpiceDouble eqel [9], SpiceDouble rapol, SpiceDouble decpol ); void spkw18_c ( SpiceInt handle, SpiceSPK18Subtype subtyp, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceInt degree, SpiceInt n, const void * packts, ConstSpiceDouble epochs[] ); void spkw20_c ( SpiceInt handle, SpiceInt body, SpiceInt center, ConstSpiceChar * frame, SpiceDouble first, SpiceDouble last, ConstSpiceChar * segid, SpiceDouble intlen, SpiceInt n, SpiceInt polydg, ConstSpiceDouble cdata[], SpiceDouble dscale, SpiceDouble tscale, SpiceDouble initjd, SpiceDouble initfr ); void srfrec_c ( SpiceInt body, SpiceDouble lon, SpiceDouble lat, SpiceDouble rectan[3] ); void srfc2s_c ( SpiceInt code, SpiceInt bodyid, SpiceInt srflen, SpiceChar * srfstr, SpiceBoolean * isname ); void srfcss_c ( SpiceInt code, ConstSpiceChar * bodstr, SpiceInt srflen, SpiceChar * srfstr, SpiceBoolean * isname ); void srfnrm_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, SpiceInt npts, ConstSpiceDouble srfpts[][3], SpiceDouble normls[][3] ); void srfs2c_c ( ConstSpiceChar * srfstr, ConstSpiceChar * bodstr, SpiceInt * code, SpiceBoolean * found ); void srfscc_c ( ConstSpiceChar * surfce, SpiceInt bodyid, SpiceInt * surfid, SpiceBoolean * found ); void srfxpt_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, ConstSpiceChar * dref, ConstSpiceDouble dvec [3], SpiceDouble spoint [3], SpiceDouble * dist, SpiceDouble * trgepc, SpiceDouble obspos [3], SpiceBoolean * found ); void ssize_c ( SpiceInt size, SpiceCell * cell ); void stelab_c ( ConstSpiceDouble pobj[3], ConstSpiceDouble vobs[3], SpiceDouble appobj[3] ); void stlabx_c ( ConstSpiceDouble pobj [3], ConstSpiceDouble vobs [3], SpiceDouble corpos [3] ); void stpool_c ( ConstSpiceChar * item, SpiceInt nth, ConstSpiceChar * contin, SpiceInt lenout, SpiceChar * string, SpiceInt * size, SpiceBoolean * found ); void str2et_c ( ConstSpiceChar * date, SpiceDouble * et ); void subpnt_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble spoint [3], SpiceDouble * trgepc, SpiceDouble srfvec [3] ); void subpt_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble spoint [3], SpiceDouble * alt ); void subpt_pl02( SpiceInt handle, ConstSpiceDLADescr * dladsc, ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble spoint [3], SpiceDouble * alt, SpiceInt * plateID ); void subslr_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble spoint [3], SpiceDouble * trgepc, SpiceDouble srfvec [3] ); void subsol_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble spoint[3] ); void subsol_pl02 ( SpiceInt handle, ConstSpiceDLADescr * dladsc, ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceDouble spoint [3], SpiceDouble * dist, SpiceInt * plateID ); SpiceDouble sumad_c ( ConstSpiceDouble array[], SpiceInt n ); SpiceInt sumai_c ( ConstSpiceInt array[], SpiceInt n ); void surfnm_c ( SpiceDouble a, SpiceDouble b, SpiceDouble c, ConstSpiceDouble point[3], SpiceDouble normal[3] ); void surfpt_c ( ConstSpiceDouble positn[3], ConstSpiceDouble u[3], SpiceDouble a, SpiceDouble b, SpiceDouble c, SpiceDouble point[3], SpiceBoolean * found ); void surfpv_c ( ConstSpiceDouble stvrtx[6], ConstSpiceDouble stdir [6], SpiceDouble a, SpiceDouble b, SpiceDouble c, SpiceDouble stx [6], SpiceBoolean * found ); void swpool_c ( ConstSpiceChar * agent, SpiceInt nnames, SpiceInt lenvals, const void * names ); void sxform_c ( ConstSpiceChar * from, ConstSpiceChar * to, SpiceDouble et, SpiceDouble xform[6][6] ); void szpool_c ( ConstSpiceChar * name, SpiceInt * n, SpiceBoolean * found ); void tangpt_c ( ConstSpiceChar * method, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * corloc, ConstSpiceChar * obsrvr, ConstSpiceChar * dref, ConstSpiceDouble dvec [3], SpiceDouble tanpt [3], SpiceDouble * alt, SpiceDouble * range, SpiceDouble srfpt [3], SpiceDouble * trgepc, SpiceDouble srfvec [3] ); void term_pl02 ( SpiceInt handle, ConstSpiceDLADescr * dladsc, ConstSpiceChar * trmtyp, ConstSpiceChar * source, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * obsrvr, SpiceInt npoints, SpiceDouble * trgepc, SpiceDouble obspos [3], SpiceDouble trmpts [][3], SpiceInt plateIDs [] ); void termpt_c ( ConstSpiceChar * method, ConstSpiceChar * ilusrc, ConstSpiceChar * target, SpiceDouble et, ConstSpiceChar * fixref, ConstSpiceChar * abcorr, ConstSpiceChar * corloc, ConstSpiceChar * obsrvr, ConstSpiceDouble refvec[3], SpiceDouble rolstp, SpiceInt ncuts, SpiceDouble schstp, SpiceDouble soltol, SpiceInt maxn, SpiceInt npts [], SpiceDouble points[][3], SpiceDouble epochs[], SpiceDouble tangts[][3] ); void timdef_c ( ConstSpiceChar * action, ConstSpiceChar * item, SpiceInt lenout, SpiceChar * value ); void timout_c ( SpiceDouble et, ConstSpiceChar * pictur, SpiceInt lenout, SpiceChar * output ); void tipbod_c ( ConstSpiceChar * ref, SpiceInt body, SpiceDouble et, SpiceDouble tipm[3][3] ); void tisbod_c ( ConstSpiceChar * ref, SpiceInt body, SpiceDouble et, SpiceDouble tsipm[6][6] ); void tkfram_c ( SpiceInt frcode, SpiceDouble rot [3][3], SpiceInt * frame, SpiceBoolean * found ); ConstSpiceChar * tkvrsn_c ( ConstSpiceChar * item ); void tparch_c ( ConstSpiceChar * type ); void tparse_c ( ConstSpiceChar * string, SpiceInt lenout, SpiceDouble * sp2000, SpiceChar * errmsg ); void tpictr_c ( ConstSpiceChar * sample, SpiceInt lenpictur, SpiceInt lenerror, SpiceChar * pictur, SpiceBoolean * ok, SpiceChar * error ); SpiceDouble trace_c ( ConstSpiceDouble matrix[3][3] ); void trcdep_c ( SpiceInt * depth ); void trcnam_c ( SpiceInt index, SpiceInt namelen, SpiceChar * name ); void trcoff_c ( void ); SpiceDouble trgsep_c ( SpiceDouble et, ConstSpiceChar * targ1, ConstSpiceChar * shape1, ConstSpiceChar * frame1, ConstSpiceChar * targ2, ConstSpiceChar * shape2, ConstSpiceChar * frame2, ConstSpiceChar * obsrvr, ConstSpiceChar * abcorr ); void tsetyr_c ( SpiceInt year ); SpiceDouble twopi_c ( void ); void twovec_c ( ConstSpiceDouble axdef [3], SpiceInt indexa, ConstSpiceDouble plndef [3], SpiceInt indexp, SpiceDouble mout [3][3] ); void twovxf_c ( ConstSpiceDouble axdef [6], SpiceInt indexa, ConstSpiceDouble plndef [6], SpiceInt indexp, SpiceDouble xform [6][6] ); SpiceDouble tyear_c ( void ); void ucase_c ( SpiceChar * in, SpiceInt lenout, SpiceChar * out ); void ucrss_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3], SpiceDouble vout[3] ); void uddc_c ( void ( * udfunc ) ( SpiceDouble x, SpiceDouble * value ), SpiceDouble x, SpiceDouble dx, SpiceBoolean * isdecr ); void uddf_c ( void ( * udfunc ) ( SpiceDouble x, SpiceDouble * value ), SpiceDouble x, SpiceDouble dx, SpiceDouble * deriv ); void udf_c ( SpiceDouble x, SpiceDouble * value ); void union_c ( SpiceCell * a, SpiceCell * b, SpiceCell * c ); SpiceDouble unitim_c ( SpiceDouble epoch, ConstSpiceChar * insys, ConstSpiceChar * outsys ); void unload_c ( ConstSpiceChar * file ); void unorm_c ( ConstSpiceDouble v1[3], SpiceDouble vout[3], SpiceDouble * vmag ); void unormg_c ( ConstSpiceDouble * v1, SpiceInt ndim, SpiceDouble * vout, SpiceDouble * vmag ); void utc2et_c ( ConstSpiceChar * utcstr, SpiceDouble * et ); void vadd_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3], SpiceDouble vout[3] ) ; void vaddg_c ( ConstSpiceDouble * v1, ConstSpiceDouble * v2, SpiceInt ndim, SpiceDouble * vout ); void valid_c ( SpiceInt size, SpiceInt n, SpiceCell * a ); void vcrss_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3], SpiceDouble vout[3] ); SpiceDouble vdist_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3] ); SpiceDouble vdistg_c ( ConstSpiceDouble * v1, ConstSpiceDouble * v2, SpiceInt ndim ); SpiceDouble vdot_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3] ); SpiceDouble vdotg_c ( ConstSpiceDouble * v1, ConstSpiceDouble * v2, SpiceInt ndim ); void vequ_c ( ConstSpiceDouble vin[3], SpiceDouble vout[3] ); void vequg_c ( ConstSpiceDouble * vin, SpiceInt ndim, SpiceDouble * vout ); void vhat_c ( ConstSpiceDouble v1 [3], SpiceDouble vout[3] ); void vhatg_c ( ConstSpiceDouble * v1, SpiceInt ndim, SpiceDouble * vout ); void vlcom_c ( SpiceDouble a, ConstSpiceDouble v1[3], SpiceDouble b, ConstSpiceDouble v2[3], SpiceDouble sum[3] ); void vlcom3_c ( SpiceDouble a, ConstSpiceDouble v1[3], SpiceDouble b, ConstSpiceDouble v2[3], SpiceDouble c, ConstSpiceDouble v3[3], SpiceDouble sum[3] ); void vlcomg_c ( SpiceInt n, SpiceDouble a, ConstSpiceDouble * v1, SpiceDouble b, ConstSpiceDouble * v2, SpiceDouble * sum ); void vminug_c ( ConstSpiceDouble * vin, SpiceInt ndim, SpiceDouble * vout ); void vminus_c ( ConstSpiceDouble v1[3], SpiceDouble vout[3] ); SpiceDouble vnorm_c ( ConstSpiceDouble v1[3] ); SpiceDouble vnormg_c ( ConstSpiceDouble * v1, SpiceInt ndim ); void vpack_c ( SpiceDouble x, SpiceDouble y, SpiceDouble z, SpiceDouble v[3] ); void vperp_c ( ConstSpiceDouble a[3], ConstSpiceDouble b[3], SpiceDouble p[3] ); void vprjp_c ( ConstSpiceDouble vin [3], ConstSpicePlane * plane, SpiceDouble vout [3] ); void vprjpi_c ( ConstSpiceDouble vin [3], ConstSpicePlane * projpl, ConstSpicePlane * invpl, SpiceDouble vout [3], SpiceBoolean * found ); void vprojg_c ( ConstSpiceDouble a [], ConstSpiceDouble b [], SpiceInt ndim, SpiceDouble p [] ); void vproj_c ( ConstSpiceDouble a[3], ConstSpiceDouble b[3], SpiceDouble p[3] ); SpiceDouble vrel_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3] ); SpiceDouble vrelg_c ( ConstSpiceDouble * v1, ConstSpiceDouble * v2, SpiceInt ndim ); void vrotv_c ( ConstSpiceDouble v[3], ConstSpiceDouble axis[3], SpiceDouble theta, SpiceDouble r[3] ); void vscl_c ( SpiceDouble s, ConstSpiceDouble v1[3], SpiceDouble vout[3] ); void vsclg_c ( SpiceDouble s, ConstSpiceDouble * v1, SpiceInt ndim, SpiceDouble * vout ); SpiceDouble vsep_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3] ); void vsub_c ( ConstSpiceDouble v1[3], ConstSpiceDouble v2[3], SpiceDouble vout[3] ); void vsubg_c ( ConstSpiceDouble * v1, ConstSpiceDouble * v2, SpiceInt ndim, SpiceDouble * vout ); SpiceDouble vsepg_c ( ConstSpiceDouble * v1, ConstSpiceDouble * v2, SpiceInt ndim ); SpiceDouble vtmv_c ( ConstSpiceDouble v1 [3], ConstSpiceDouble matrix [3][3], ConstSpiceDouble v2 [3] ); SpiceDouble vtmvg_c ( const void * v1, const void * matrix, const void * v2, SpiceInt nrow, SpiceInt ncol ); void vupack_c ( ConstSpiceDouble v[3], SpiceDouble * x, SpiceDouble * y, SpiceDouble * z ); SpiceBoolean vzero_c ( ConstSpiceDouble v[3] ); SpiceBoolean vzerog_c ( ConstSpiceDouble * v, SpiceInt ndim ); SpiceInt wncard_c ( SpiceCell * window ); void wncomd_c ( SpiceDouble left, SpiceDouble right, SpiceCell * window, SpiceCell * result ); void wncond_c ( SpiceDouble left, SpiceDouble right, SpiceCell * window ); void wndifd_c ( SpiceCell * a, SpiceCell * b, SpiceCell * c ); SpiceBoolean wnelmd_c ( SpiceDouble point, SpiceCell * window ); void wnexpd_c ( SpiceDouble left, SpiceDouble right, SpiceCell * window ); void wnextd_c ( SpiceChar side, SpiceCell * window ); void wnfetd_c ( SpiceCell * window, SpiceInt n, SpiceDouble * left, SpiceDouble * right ); void wnfild_c ( SpiceDouble sml, SpiceCell * window ); void wnfltd_c ( SpiceDouble sml, SpiceCell * window ); SpiceBoolean wnincd_c ( SpiceDouble left, SpiceDouble right, SpiceCell * window ); void wninsd_c ( SpiceDouble left, SpiceDouble right, SpiceCell * window ); void wnintd_c ( SpiceCell * a, SpiceCell * b, SpiceCell * c ); SpiceBoolean wnreld_c ( SpiceCell * a, ConstSpiceChar * op, SpiceCell * b ); void wnsumd_c ( SpiceCell * window, SpiceDouble * meas, SpiceDouble * avg, SpiceDouble * stddev, SpiceInt * shortest, SpiceInt * longest ); void wnunid_c ( SpiceCell * a, SpiceCell * b, SpiceCell * c ); void wnvald_c ( SpiceInt size, SpiceInt n, SpiceCell * window ); void xf2eul_c ( ConstSpiceDouble xform [6][6], SpiceInt axisa, SpiceInt axisb, SpiceInt axisc, SpiceDouble eulang [6], SpiceBoolean * unique ); void xf2rav_c ( ConstSpiceDouble xform [6][6], SpiceDouble rot [3][3], SpiceDouble av [3] ); void xfmsta_c ( ConstSpiceDouble input_state [6], ConstSpiceChar * input_coord_sys, ConstSpiceChar * output_coord_sys, ConstSpiceChar * body, SpiceDouble output_state [6] ); void xpose_c ( ConstSpiceDouble m1 [3][3], SpiceDouble mout[3][3] ); void xpose6_c ( ConstSpiceDouble m1 [6][6], SpiceDouble mout[6][6] ); void xposeg_c ( const void * matrix, SpiceInt nrow, SpiceInt ncol, void * xposem ); void zzgetcml_c( SpiceInt * argc, SpiceChar *** argv, SpiceBoolean init ); SpiceBoolean zzgfgeth_c ( void ); void zzgfsavh_c( SpiceBoolean status ); void zzsynccl_c( SpiceTransDir xdir, SpiceCell * cell ); #endif include/SpiceZrnm.h0100777000000000000000000000420114164213066011522 0ustar00/* -Header_File SpiceZrnm.h ( CSPICE rename assignments ) -Abstract Reassign CSPICE symbol names to prevent symbol collisions. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Literature_References None. -Particulars Compiled symbol names in CSPICE may collide with symbols in other, non-SPICE libraries. This file redefines names which have or may cause a collision. -Author_and_Institution N.J. Bachman (JPL) E.D. Wright (JPL) -Version -CSPICE Version 1.0.0, 17-OCT-2011 (EDW) -Index_Entries Rename assignments for CSPICE functions */ #ifndef HAVE_SPICERENAME_H /* Redefine names causing symbol conflicts: */ #define HAVE_SPICERENAME_H /* dpstrf_ may exist in the LAPACK library. */ #define dpstrf_ zz_dpstrf_ /* Just in case. */ #define pi_ zz_pi_ #define vnorm_ zz_vnorm_ #define vdist_ zz_vdist_ #endif include/SpiceZst.h0100777000000000000000000001572314164213066011367 0ustar00/* -Header_File SpiceZst.h ( Fortran/C string conversion utilities ) -Abstract Define prototypes for CSPICE Fortran/C string conversion utilities. Caution: these prototypes are subject to revision without notice. These are private routines and are not part of the official CSPICE user interface. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading None. -Particulars None. -Literature_References None. -Author_and_Institution N.J. Bachman (JPL) K.R. Gehringer (JPL) E.D. Wright (JPL) -Version -CSPICE Version 7.0.0, 24-FEB-2021 (NJB) Added prototype for function C_OptEmptyStr. -CSPICE Version 6.0.0, 10-JUL-2002 (NJB) Added prototype for new functions C2F_MapStrArr and C2F_MapFixStrArr. -CSPICE Version 5.0.0, 18-MAY-2001 (WLT) Added #ifdef's to add namespace specification for C++ compilation. -CSPICE Version 4.0.0, 14-FEB-2000 (NJB) Added prototype for new function C2F_CreateStrArr_Sig. -CSPICE Version 3.0.0, 12-JUL-1999 (NJB) Added prototype for function C2F_CreateFixStrArr. Added prototype for function F2C_ConvertTrStrArr. Removed reference in comments to C2F_CreateStrArr_Sig, which does not exist. -CSPICE Version 2.0.1, 06-MAR-1998 (NJB) Type SpiceVoid was changed to void. -CSPICE Version 2.0.1, 09-FEB-1998 (EDW) Added prototype for F2C_ConvertStrArr. -CSPICE Version 2.0.0, 04-JAN-1998 (NJB) Added prototype for F2C_ConvertStr. -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) -Index_Entries protoypes of CSPICE Fortran/C string conversion utilities */ #include #include #include "SpiceZdf.h" #ifndef HAVE_FCSTRINGS_H #define HAVE_FCSTRINGS_H #ifdef __cplusplus namespace Jpl_NAIF_CSpice { #endif ConstSpiceChar * C_OptEmptyStr ( ConstSpiceChar * cStr ); SpiceStatus C2F_CreateStr ( ConstSpiceChar *, SpiceInt *, SpiceChar ** ); void C2F_CreateStr_Sig ( ConstSpiceChar *, SpiceInt *, SpiceChar ** ); void C2F_CreateFixStrArr ( SpiceInt nStr, SpiceInt cStrDim, ConstSpiceChar ** cStrArr, SpiceInt * fStrLen, SpiceChar ** fStrArr ); SpiceStatus C2F_CreateStrArr ( SpiceInt, ConstSpiceChar **, SpiceInt *, SpiceChar ** ); void C2F_CreateStrArr_Sig ( SpiceInt nStr, ConstSpiceChar ** cStrArr, SpiceInt * fStrLen, SpiceChar ** fStrArr ); void C2F_MapFixStrArr ( ConstSpiceChar * caller, SpiceInt nStr, SpiceInt cStrLen, const void * cStrArr, SpiceInt * fStrLen, SpiceChar ** fStrArr ); void C2F_MapStrArr ( ConstSpiceChar * caller, SpiceInt nStr, SpiceInt cStrLen, const void * cStrArr, SpiceInt * fStrLen, SpiceChar ** fStrArr ); SpiceStatus C2F_StrCpy ( ConstSpiceChar *, SpiceInt, SpiceChar * ); void F_Alloc ( SpiceInt, SpiceChar** ); void F2C_ConvertStr ( SpiceInt, SpiceChar * ); void F2C_ConvertStrArr ( SpiceInt n, SpiceInt lenout, SpiceChar * cvals ); void F2C_ConvertTrStrArr ( SpiceInt n, SpiceInt lenout, SpiceChar * cvals ); SpiceStatus F2C_CreateStr ( SpiceInt, ConstSpiceChar *, SpiceChar ** ); void F2C_CreateStr_Sig ( SpiceInt, ConstSpiceChar *, SpiceChar ** ); SpiceStatus F2C_CreateStrArr ( SpiceInt, SpiceInt, ConstSpiceChar *, SpiceChar *** ); void F2C_CreateStrArr_Sig ( SpiceInt, SpiceInt, ConstSpiceChar *, SpiceChar *** ); void F2C_FreeStrArr ( SpiceChar **cStrArr ); SpiceStatus F2C_StrCpy ( SpiceInt, ConstSpiceChar *, SpiceInt, SpiceChar * ); SpiceInt F_StrLen ( SpiceInt, ConstSpiceChar * ); #ifdef __cplusplus } #endif #endif include/zzalloc.h0100777000000000000000000001323314164213066011273 0ustar00/* -Header_File zzalloc.h ( CSPICE memory allocation prototypes and macros ) -Abstract The memory allocation prototypes and macros for use in CSPICE. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Required_Reading CSPICE -Keywords MEMORY -Exceptions None. -Files None. -Particulars The routines maintain a count of the number of mallocs vs. free, signalling an error if any unreleased memory exists at the end of an Icy interface call. The macro ALLOC_CHECK performs malloc/free test. If used, the macro should exists at the end of any routine using these memory management routines. Prototypes in this file: alloc_count alloc_SpiceString_C_array alloc_SpiceString_C_Copy_array alloc_SpiceDouble_C_array alloc_SpiceInt_C_array alloc_SpiceBoolean_C_array alloc_SpiceString alloc_SpiceString_Pointer_array free_SpiceString_C_array alloc_SpiceMemory free_SpiceMemory Macro definitions in this file: ALLOC_CHECK ALLOC_CHECK_INTRA -Examples None. -Restrictions None. -Literature_References None. -Author_and_Institution B.V. Semenov (JPL) E.D. Wright (JPL) -Version -CSPICE Version 1.4.0, 27-JUL-2021 (EDW) (BVS) Added macro ALLOC_CHECK_INTRA. Added missing header sections. -CSPICE Version 1.3.0, 26-AUG-2016 (EDW) Added routine alloc_SpiceBoolean_C_array. -CSPICE Version 1.0.3, 02-MAY-2008 (EDW) Added alloc_count prototype. -CSPICE Version 1.0.2, 10-MAY-2007 (EDW) Minor edits to clarify 'size' in alloc_SpiceMemory as size_t. -CSPICE Version 1.0.1, 23-JUN-2005 (EDW) Add prototype for alloc_SpiceString_Pointer_array, allocate an array of pointers to SpiceChar. -CSPICE Version 1.0.0, 19-DEC-2003 (EDW) Initial release. */ #ifndef ZZALLOC_H #define ZZALLOC_H /* Allocation call prototypes: */ int alloc_count (); SpiceChar ** alloc_SpiceString_C_array ( int string_length, int string_count ); SpiceChar ** alloc_SpiceString_C_Copy_array ( int array_len , int string_len, SpiceChar ** array ); SpiceDouble * alloc_SpiceDouble_C_array ( int rows, int cols ); SpiceInt * alloc_SpiceInt_C_array ( int rows, int cols ); SpiceBoolean * alloc_SpiceBoolean_C_array ( int rows, int cols ); SpiceChar * alloc_SpiceString ( int length ); SpiceChar ** alloc_SpiceString_Pointer_array( int array_len ); void free_SpiceString_C_array ( int dim, SpiceChar ** array ); void * alloc_SpiceMemory ( size_t size ); void free_SpiceMemory ( void * ptr ); /* Simple macro to ensure a zero value alloc count at end of routine. Note, the need to use this macro exists only in those routines allocating/deallocating memory. */ #define ALLOC_CHECK if ( alloc_count() != 0 ) \ { \ setmsg_c ( "Malloc/Free count not zero at end of routine." \ " Malloc count = #."); \ errint_c ( "#", alloc_count() ); \ sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ } /* Simple macro to ensure an expected value alloc count at end of routine. Note, the need to use this macro exists only in those routines allocating/deallocating memory. */ #define ALLOC_CHECK_INTRA(n) if ( alloc_count() != n ) \ { \ setmsg_c ( "Malloc/Free count not expected value." \ " Malloc count = #1, expected count = #2."); \ errint_c ( "#1", alloc_count() ); \ errint_c ( "#2", n ); \ sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ } #endif include/zzerror.h0100777000000000000000000000370114164213066011331 0ustar00/* -Abstract The error control routine prototypes for use in CSPICE. -Disclaimer THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE SOFTWARE AND RELATED MATERIALS, HOWEVER USED. IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. -Particulars Routines prototyped in this file: zzerrorinit zzerror -Examples See the examples section in zzerror() and zzerrorinit(). -Restrictions None. -Exceptions None. -Files None. -Author_and_Institution E. D. Wright (JPL) -Literature_References None. -Version -CSPICE 1.1.0 14-JAN-2013 (EDW) Added parameter: SCALAR_OP -CSPICE 1.0.0 17-OCT-2005 (EDW) Initial release. */ #ifndef ZZERROR_H #define ZZERROR_H const char * zzerror( long cnt ); void zzerrorinit(); #define SCALAR_OP -1 #endif