void eraNut06a	(	double	date1,
		double	date2,
		double *	dpsi,
		double *	deps
	)

Definition at line 3 of file nut06a.c.

References eraNut00a(), ERFA_DJ00, ERFA_DJC, and t.

Referenced by eraNum06a(), eraPn06a(), eraPnm06a(), palNutc(), and t_nut06a().

{
   double t, fj2, dp, de;

/* Interval between fundamental date J2000.0 and given date (JC). */
   t = ((date1 - ERFA_DJ00) + date2) / ERFA_DJC;

/* Factor correcting for secular variation of J2. */
   fj2 = -2.7774e-6 * t;

/* Obtain IAU 2000A nutation. */
   eraNut00a(date1, date2, &dp, &de);

/* Apply P03 adjustments (Wallace & Capitaine, 2006, Eqs.5). */
   *dpsi = dp + dp * (0.4697e-6 + fj2);
   *deps = de + de * fj2;

   return;

}

Here is the call graph for this function:

Here is the caller graph for this function: