static double pal__Eqeqx ( double  date )

static

Definition at line 253 of file palAoppa.c.

References PAL__DAS2R, pal__Nutc(), and t.

Referenced by palAoppa().

                                        {

  const double T2AS=1296000.0;

  double pal_eqeqx;
  double t, om, dpsi, deps, eps0;

  /*  interval between basic epoch j2000.0 and current epoch (jc) */
  t=(date-51544.5)/36525.0;

  /*  longitude of the mean ascending node of the lunar orbit on the
   *   ecliptic, measured from the mean equinox of date */
  om=PAL__DAS2R*(450160.280+(-5.0*T2AS-482890.539
                               +(7.455+0.008*t)*t)*t);

  /*  nutation */
  pal__Nutc(date,&dpsi,&deps,&eps0);

  /*  equation of the equinoxes */
  pal_eqeqx=dpsi*cos(eps0)+PAL__DAS2R*(0.00264*sin(om)+
                                 0.000063*sin(om+om));

  return pal_eqeqx;
}

Here is the call graph for this function:

Here is the caller graph for this function: