double eraObl80	(	double	date1,
		double	date2
	)

Definition at line 3 of file obl80.c.

References ERFA_DAS2R, ERFA_DJ00, ERFA_DJC, and t.

Referenced by eraEe00a(), eraEe00b(), eraEqeq94(), eraNutm80(), eraPn00(), and t_obl80().

{
   double t, eps0;

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

/* Mean obliquity of date. */
   eps0 = ERFA_DAS2R * (84381.448  +
                  (-46.8150   +
                  (-0.00059   +
                  ( 0.001813) * t) * t) * t);

   return eps0;

}

Here is the caller graph for this function: