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 <signal.h>

#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 ( <column> ) 
 
                                                     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: <normal,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 <math.h>
#include <string.h>
#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 <stdlib.h>
#include <string.h>
#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

