Function initialises swed structure. * Returns 1 if initialisation is done, otherwise 0 */

Astronomical Almanac table is corrected by adding the expression * -0.000091 (ndot + 26)(year-1955)^2 seconds * to entries prior to 1955 (AA

swe_revjul ****************************************************** swe_revjul() is the inverse function to swe_julday(), see the description ther

* this function looks for an ephemeris file, * opens it, if not yet open, * reads constants, if not yet read, * computes a planet, if not yet comp

* Alois 2.12.98: inserted error message generation for file not found */

* swe_azalt() * Computes azimut and height, from either ecliptic or * equatorial coordinates * * input: * tjd_ut * iflag

* This subroutine reads the jpl planetary ephemeris * and gives the position and velocity of the point 'ntarg' * with respect to 'nc

function for inhouse testing only */

function sets tidal acceleration of the Moon. * t_acc can be either * - the value of the tidal acceleration in arcsec/cty^2 * of the Moon will

set geographic position and altitude of observer */

Program to step through the perturbation table */

* Function returns OK or ERR. * this function is required for very special computations * where no date is given for house calculation, * e.g. f

GCRS to J2000 */

function * - corrects nonsensical iflags * - completes incomplete iflags */

sidereal time, without eps and nut as parameters. * tjd must be UT !!! * for more informsation, see comment with swe_sidtime0() */

multiplies cartesian equatorial coordinates with previously * calculated nutation matrix. also corrects speed. */