sidereal_time.c   sidereal_time.c
skipping to change at line 49 skipping to change at line 49
{ {
r = fmod( r, 2.*M_PI ); r = fmod( r, 2.*M_PI );
if (r<0.) r += 2.*M_PI; if (r<0.) r += 2.*M_PI;
return r; return r;
} }
#define TERMS 63 #define TERMS 63
/* compute only every tenths of day: */ /* compute only every tenths of day: */
#define LN_NUTATION_EPOCH_THRESHOLD 0.1 #define LN_NUTATION_EPOCH_THRESHOLD 0.1
/* Calculate the mean sidereal time at the meridian of Greenwich (GMST) of a given date. /* Calculate the mean sidereal time at the meridian of Greenwich (GMST) of a given date.
* returns mean sidereal time (degrees). * returns mean sidereal time (degrees).
* Formula 11.1, 11.4 pg 83 * Formula 11.1, 11.4 pg 83
* MAKE SURE argument JD is UT, not TT! * MAKE SURE argument JD is UT, not TT!
* GZfix for V0.14: Replace by expression (43) given in: * GZfix for V0.14: Replace by expression (43) given in:
* N. Capitaine, P.T.Wallace, J. Chapront: Expressions for IAU 2000 precess ion quantities. * N. Capitaine, P.T.Wallace, J. Chapront: Expressions for IAU 2000 precess ion quantities.
* A&A412, 567-586 (2003) * A&A412, 567-586 (2003)
* DOI: 10.1051/0004-6361:20031539 * DOI: 10.1051/0004-6361:20031539
*/ */
double get_mean_sidereal_time (double JD, double JDE) double get_mean_sidereal_time (double JD, double JDE)
End of changes. 1 change blocks.
324 lines changed or deleted 0 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/