~ubuntu-branches/ubuntu/lucid/wmmoonclock/lucid

« back to all changes in this revision

Viewing changes to Src/CalcEphem.c

  • Committer: Bazaar Package Importer
  • Author(s): Denis Briand
  • Date: 2009-07-26 10:30:00 UTC
  • Revision ID: james.westby@ubuntu.com-20090726103000-2y5ws6okikxakvfp
Tags: 1.27-28
* Add southern hemisphere support (Closes: #537480).
  Thanks to Alvaro Steiger.
* Bump standards version to 3.8.2.0
* Add quilt patch system.
* Add patches:
  + 01_all_previous_diff.diff
  + 02_update_time.diff
  + 03_add_southern_hemisphere_support.diff
  + 04_fix_hyphen_used_as_minus_sign.diff
* Add debhelper 7 build depends.
* Add debian/compat file.
* Remove trailing whitespaces in changelog.upstream.
* Add an empty watch file (no upstream repository).
* Improve rules file by using more debhelper commands.
* Remove Martin A. Godisch from uploaders field
  Thanks to him to have sponsored wmmoonclock.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
#include <string.h>
2
1
#include "CalcEphem.h"
3
2
 
4
3
 
5
 
void CalcEphem(date, UT, c)
 
4
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 */
9
8
{
 
9
double vv;
 
10
int dd, mm, ss;
10
11
 
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;
 
24
    int i, j;
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;
231
237
char dowstr[];
232
238
{
233
239
        double JD, A, Afrac, jd();
234
 
        int n, iA;
 
240
        int n, iday, iA;
235
241
 
236
242
        JD = jd(year, month, day, 0.0);
237
243
        A = (JD + 1.5)/7.0;
276
282
int ny, nm, nd;
277
283
double UT;
278
284
{
279
 
        double A, B, C, D, JD, day;
 
285
        double A, B, C, D, JD, MJD, day;
280
286
 
281
287
        day = nd + UT/24.0;
282
288
 
366
372
}
367
373
 
368
374
 
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 */
372
378
{