void eraXys00a	(	double	date1,
		double	date2,
		double *	x,
		double *	y,
		double *	s
	)

Definition at line 3 of file xys00a.c.

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

Referenced by t_xys00a().

{
   double rbpn[3][3];

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

/* Extract X,Y. */
   eraBpn2xy(rbpn, x, y);

/* Obtain s. */
   *s = eraS00(date1, date2, *x, *y);

   return;

}

Here is the call graph for this function:

Here is the caller graph for this function: