FACT++  1.0
double eraEe00a ( double  date1,
double  date2 
)

Definition at line 3 of file ee00a.c.

References eraEe00(), eraNut00a(), eraObl80(), and eraPr00().

Referenced by eraGst00a(), and t_ee00a().

64 {
65  double dpsipr, depspr, epsa, dpsi, deps, ee;
66 
67 /* IAU 2000 precession-rate adjustments. */
68  eraPr00(date1, date2, &dpsipr, &depspr);
69 
70 /* Mean obliquity, consistent with IAU 2000 precession-nutation. */
71  epsa = eraObl80(date1, date2) + depspr;
72 
73 /* Nutation in longitude. */
74  eraNut00a(date1, date2, &dpsi, &deps);
75 
76 /* Equation of the equinoxes. */
77  ee = eraEe00(date1, date2, epsa, dpsi);
78 
79  return ee;
80 
81 }
double eraEe00(double date1, double date2, double epsa, double dpsi)
Definition: ee00.c:3
void eraNut00a(double date1, double date2, double *dpsi, double *deps)
Definition: nut00a.c:3
double eraObl80(double date1, double date2)
Definition: obl80.c:3
void eraPr00(double date1, double date2, double *dpsipr, double *depspr)
Definition: pr00.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: