3 void eraPb06(
double date1,
double date2,
4 double *bzeta,
double *bz,
double *btheta)
70 double r[3][3], r31, r32;
76 *bz = atan2(r[1][2], r[0][2]);
82 *bzeta = atan2 (r[1][0], r[1][1]);
85 *btheta = atan2(-
ERFA_DSIGN(sqrt(r31 * r31 + r32 * r32), r[0][2]),
void eraPmat06(double date1, double date2, double rbp[3][3])
void eraRz(double psi, double r[3][3])
void eraPb06(double date1, double date2, double *bzeta, double *bz, double *btheta)