2
1
#include "CalcEphem.h"
5
void CalcEphem(date, UT, c)
6
5
long int date; /* integer containing the date (e.g. 960829) */
7
6
double UT; /* Universal Time */
8
7
CTrans *c; /* structure containing all the relevent coord trans info */
11
12
int year, month, day;
12
13
double TU, TU2, TU3, T0, gmst;
15
16
double days, M, E, nu, lambnew;
16
17
double r0, earth_sun_distance;
17
18
double RA, DEC, RA_Moon, DEC_Moon;
18
double TDT, AGE, LambdaMoon, BetaMoon, R;
19
double dt, g0_1, g1_1, h1_1, gclat, glon, psi;
20
double TDT, Lmoon_0, P0, N0, Imoon, Lmoon, Mmoon_m, Nmoon, Cmoon;
21
double Emoon_nu, Amoon_e, Amoon_3, Mmoon_mp, Emoon_c, amoon, emoon, AGE;
22
double Amoon_4, Lmoon_p, Vmoon, Lmoon_pp, Nmoon_p, LambdaMoon, BetaMoon, R;
23
Vector S, K, Y, Z, D, Dgei, Dgsm;
19
25
double jd(), hour24(), angle2pi(), angle360(), kepler(), Moon(), NewMoon();
20
26
double Ta, Tb, Tc, frac();
21
27
double SinGlat, CosGlat, SinGlon, CosGlon, Tau, lmst, x, y, z;
279
double A, B, C, D, JD, day;
285
double A, B, C, D, JD, MJD, day;
281
287
day = nd + UT/24.0;
369
void Radec_to_Cart(ra, dec, r)
375
Radec_to_Cart(ra, dec, r)
370
376
double ra, dec; /* RA and DEC */
371
377
Vector *r; /* returns corresponding cartesian unit vector */