void eraPb06	(	double	date1,
		double	date2,
		double *	bzeta,
		double *	bz,
		double *	btheta
	)

Definition at line 3 of file pb06.c.

References eraPmat06(), eraRz(), and ERFA_DSIGN.

Referenced by t_pb06().

{
   double r[3][3], r31, r32;

/* Precession matrix via Fukushima-Williams angles. */
   eraPmat06(date1, date2, r);

/* Solve for z. */
   *bz = atan2(r[1][2], r[0][2]);

/* Remove it from the matrix. */
   eraRz(*bz, r);

/* Solve for the remaining two angles. */
   *bzeta = atan2 (r[1][0], r[1][1]);
   r31 = r[2][0];
   r32 = r[2][1];
   *btheta = atan2(-ERFA_DSIGN(sqrt(r31 * r31 + r32 * r32), r[0][2]),
                   r[2][2]);

   return;

}

Here is the call graph for this function:

Here is the caller graph for this function: