mirror of
https://github.com/cosinekitty/astronomy.git
synced 2025-12-30 11:09:33 -05:00
110 lines
2.5 KiB
C
110 lines
2.5 KiB
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.
|
|
*/
|
|
|
|
(void)mp;
|
|
(void)name;
|
|
(void)jd;
|
|
|
|
pv = (double *) malloc (6L * sizeof (double));
|
|
|
|
for (i = 0; i < 6; i++)
|
|
pv[i] = 0.0;
|
|
|
|
*error = 9;
|
|
|
|
return pv;
|
|
}
|