FACT++  1.0
void eraPmat76 ( double  date1,
double  date2,
double  rmatp[3][3] 
)

Definition at line 3 of file pmat76.c.

References eraCr(), eraIr(), eraPrec76(), eraRy(), eraRz(), and ERFA_DJ00.

Referenced by eraPnm80(), and t_pmat76().

72 {
73  double zeta, z, theta, wmat[3][3];
74 
75 /* Precession Euler angles, J2000.0 to specified date. */
76  eraPrec76(ERFA_DJ00, 0.0, date1, date2, &zeta, &z, &theta);
77 
78 /* Form the rotation matrix. */
79  eraIr( wmat);
80  eraRz( -zeta, wmat);
81  eraRy( theta, wmat);
82  eraRz( -z, wmat);
83  eraCr( wmat, rmatp);
84 
85  return;
86 
87 }
ERFA_DJ00
#define ERFA_DJ00
Definition: erfam.h:87
eraCr
void eraCr(double r[3][3], double c[3][3])
Definition: cr.c:3
eraIr
void eraIr(double r[3][3])
Definition: ir.c:3
eraRy
void eraRy(double theta, double r[3][3])
Definition: ry.c:3
eraPrec76
void eraPrec76(double date01, double date02, double date11, double date12, double *zeta, double *z, double *theta)
Definition: prec76.c:3
eraRz
void eraRz(double psi, double r[3][3])
Definition: rz.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: