NOVAS_readeph0.c

/*
  Naval Observatory Vector Astrometry Software (NOVAS)
  C Edition, Version 3.1
 
  readeph0.c: Dummy readeph for use when minor planet ephermeris is unavailable  
 
  U. S. Naval Observatory
  Astronomical Applications Dept.
  Washington, DC 
  http://www.usno.navy.mil/USNO/astronomical-applications
*/

#include <stdlib.h>

/*
   Function prototype.
*/

   double *readeph (int mp, char *name, double jd,

                    int *error );


/********readeph */

double *readeph (int mp, char *name, double jd,

                 int *error )
/*
------------------------------------------------------------------------

   PURPOSE:
      This is a dummy version of function 'readeph'.  It serves as a
      stub for the "real" 'readeph' (part of the USNO/AE98 minor
      planet ephemerides) when NOVAS-C is used without the
      minor planet ephemerides.

   REFERENCES:
      None.

   INPUT
   ARGUMENTS:
      mp (int)
         The number of the asteroid for which the position in desired.
      name (char*)
         The name of the asteroid.
      jd (double)
         The Julian date on which to find the position and velocity.

   OUTPUT
   ARGUEMENTS:
      *error (int)
         Error code; set equal to 9 (see note below).

   RETURNED
   VALUE:
      (double *)
         Pointer to the 6-element 'pv' array, with all elements set to
         zero.

   GLOBALS
   USED:
      None.

   FUNCTIONS
   CALLED:
      malloc      stdlib.c

   VER./DATE/
   PROGRAMMER:
      V1.0/06-97/JAB (USNO/AA)
      V1.1/08-98/JAB (USNO/AA): Support new 'readeph' argument list.
      V1.2/10-99/JAB (USNO/AA): Return a pointer to a double, rather
                                than an array of doubles.  Add error
                                9 on return.  Basic code courtesy JLH.
      V1.3/09-10/WKP (USNO/AA): Added references to parameters to
                                silence compiler warnings.

   NOTES:
      1.  This dummy function is not intended to be called.  It merely
      serves as a stub for the "real" 'readeph' when NOVAS-C is used
      without the minor planet ephemerides.  If this function is
      called, an error of 9 will be returned.

------------------------------------------------------------------------
*/
{
   int i;

   double *pv;

/*
   The following three lines do nothing and are just here to prevent "unreferenced
   formal parameter" compiler warnings.
*/

   mp;
   name;
   jd;

   pv = (double *) malloc (6L * sizeof (double));

   for (i = 0; i < 6; i++)
      pv[i] = 0.0;

   *error = 9;

   return pv;
}