29 lines
1.0 KiB
Plaintext
29 lines
1.0 KiB
Plaintext
$OpenBSD: patch-src_heliocentric_time_c,v 1.1 2010/10/24 19:42:27 phessler Exp $
|
|
|
|
c89 fixes so it can compile on sparc
|
|
|
|
--- src/heliocentric_time.c.orig Wed May 13 21:03:25 2009
|
|
+++ src/heliocentric_time.c Sun Oct 24 13:01:43 2010
|
|
@@ -36,15 +36,16 @@ double ln_get_heliocentric_time_diff (double JD, struc
|
|
{
|
|
struct ln_nutation nutation;
|
|
struct ln_helio_posn earth;
|
|
+ double theta, ra, dec, c_dec, obliq;
|
|
|
|
ln_get_nutation (JD, &nutation);
|
|
ln_get_earth_helio_coords (JD, &earth);
|
|
|
|
- double theta = ln_deg_to_rad (ln_range_degrees (earth.L + 180));
|
|
- double ra = ln_deg_to_rad (object->ra);
|
|
- double dec = ln_deg_to_rad (object->dec);
|
|
- double c_dec = cos (dec);
|
|
- double obliq = ln_deg_to_rad (nutation.ecliptic);
|
|
+ theta = ln_deg_to_rad (ln_range_degrees (earth.L + 180));
|
|
+ ra = ln_deg_to_rad (object->ra);
|
|
+ dec = ln_deg_to_rad (object->dec);
|
|
+ c_dec = cos (dec);
|
|
+ obliq = ln_deg_to_rad (nutation.ecliptic);
|
|
|
|
/* L.Binnendijk Properties of Double Stars, Philadelphia, University of Pennselvania Press, pp. 228-232, 1960 */
|
|
return -0.0057755 * earth.R * (
|