double eraS00a	(	double	date1,
		double	date2
	)

Definition at line 3 of file s00a.c.

References eraBpn2xy(), eraPnm00a(), and eraS00().

Referenced by t_s00a().

{
   double rbpn[3][3], x, y, s;

/* Bias-precession-nutation-matrix, IAU 2000A. */
   eraPnm00a(date1, date2, rbpn);

/* Extract the CIP coordinates. */
   eraBpn2xy(rbpn, &x, &y);

/* Compute the CIO locator s, given the CIP coordinates. */
   s = eraS00(date1, date2, x, y);

   return s;

}

Here is the call graph for this function:

Here is the caller graph for this function: