Context Navigation

auxil.c@ 1643

Visit:

Last change on this file since 1643 was 1457, checked in by cmv, 25 years ago
import de la partie libastro de Xephem cmv+rz 10/4/2001
File size: 1017 bytes

Rev	Line
[1457]	1	/* aux functions so programs besides XEphem can use this library.
	2	*/
	3
	4	#include <stdio.h>
	5
	6	#if defined (__STDC__)
	7	#include <stdlib.h>
	8	#endif
	9
	10	#include "P_.h"
	11	#include "astro.h"
	12	#include "circum.h"
	13	#include "preferences.h"
	14
	15	static int prefs[NPREFS] = {
	16	PREF_TOPO, PREF_METRIC, PREF_MDY, PREF_UTCTZ, PREF_HIPREC, PREF_NOMSGBELL,
	17	PREF_PREFILL, PREF_TIPSON, PREF_CONFIRMON
	18	};
	19
	20	/* called anytime we want to know a preference.
	21	*/
	22	int
	23	pref_get(pref)
	24	Preferences pref;
	25	{
	26	return (prefs[pref]);
	27	}
	28
	29	/* call to force a certain preference, return the old setting.
	30	*/
	31	int
	32	pref_set (pref, new)
	33	Preferences pref;
	34	int new;
	35	{
	36	int prior = pref_get(pref);
	37	prefs[pref] = new;
	38	return (prior);
	39	}
	40
	41	/* given an mjd, return it modified for terrestial dynamical time */
	42	double
	43	mm_mjed (np)
	44	Now *np;
	45	{
	46	return (mjd + deltat(mjd)/86400.0);
	47	}
	48
	49	/* For RCS Only -- Do Not Edit */
	50	static char rcsid[2] = {(char )rcsid, "@(#) $RCSfile: auxil.c,v $ $Date: 2001-04-10 14:40:46 $ $Revision: 1.1.1.1 $ $Name: not supported by cvs2svn $"};

Note: See TracBrowser for help on using the repository browser.