double eraS00b	(	double	date1,
		double	date2
	)

Definition at line 3 of file s00b.c.

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

Referenced by t_s00b().

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

/* Bias-precession-nutation-matrix, IAU 2000B. */
   eraPnm00b(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: