double eraS06a	(	double	date1,
		double	date2
	)

Definition at line 3 of file s06a.c.

References eraBpn2xy(), eraPnm06a(), and eraS06().

Referenced by t_s06a().

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

/* Bias-precession-nutation-matrix, IAU 20006/2000A. */
   eraPnm06a(date1, date2, rnpb);

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

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

   return s;

}

Here is the call graph for this function:

Here is the caller graph for this function: