double eraSp00	(	double	date1,
		double	date2
	)

Definition at line 3 of file sp00.c.

References ERFA_DAS2R, ERFA_DJ00, ERFA_DJC, and t.

Referenced by eraApco13(), eraApio13(), eraC2t00a(), eraC2t06a(), eraC2tpe(), eraC2txy(), and t_sp00().

{
   double t, sp;

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

/* Approximate s'. */
   sp = -47e-6 * t * ERFA_DAS2R;

   return sp;

}

Here is the caller graph for this function: