double eraEra00	(	double	dj1,
		double	dj2
	)

Definition at line 3 of file era00.c.

References eraAnp(), ERFA_D2PI, ERFA_DJ00, and t.

Referenced by eraApco13(), eraAper13(), eraApio13(), eraC2t00a(), eraC2t00b(), eraC2t06a(), eraC2txy(), eraGmst00(), eraGmst06(), eraGst06(), and t_era00().

{
   double d1, d2, t, f, theta;

/* Days since fundamental epoch. */
   if (dj1 < dj2) {
      d1 = dj1;
      d2 = dj2;
   } else {
      d1 = dj2;
      d2 = dj1;
   }
   t = d1 + (d2- ERFA_DJ00);

/* Fractional part of T (days). */
   f = fmod(d1, 1.0) + fmod(d2, 1.0);

/* Earth rotation angle at this UT1. */
   theta = eraAnp(ERFA_D2PI * (f + 0.7790572732640
                            + 0.00273781191135448 * t));

   return theta;

}

Here is the call graph for this function:

Here is the caller graph for this function: