FACT++  1.0
void eraPn00 ( double  date1,
double  date2,
double  dpsi,
double  deps,
double *  epsa,
double  rb[3][3],
double  rp[3][3],
double  rbp[3][3],
double  rn[3][3],
double  rbpn[3][3] 
)

Definition at line 3 of file pn00.c.

References eraBp00(), eraCr(), eraNumat(), eraObl80(), eraPr00(), and eraRxr().

Referenced by eraC2tpe(), eraPn00a(), eraPn00b(), and t_pn00().

101 {
102  double dpsipr, depspr, rbpw[3][3], rnw[3][3];
103 
104 /* IAU 2000 precession-rate adjustments. */
105  eraPr00(date1, date2, &dpsipr, &depspr);
106 
107 /* Mean obliquity, consistent with IAU 2000 precession-nutation. */
108  *epsa = eraObl80(date1, date2) + depspr;
109 
110 /* Frame bias and precession matrices and their product. */
111  eraBp00(date1, date2, rb, rp, rbpw);
112  eraCr(rbpw, rbp);
113 
114 /* Nutation matrix. */
115  eraNumat(*epsa, dpsi, deps, rnw);
116  eraCr(rnw, rn);
117 
118 /* Bias-precession-nutation matrix (classical). */
119  eraRxr(rnw, rbpw, rbpn);
120 
121  return;
122 
123 }
eraNumat
void eraNumat(double epsa, double dpsi, double deps, double rmatn[3][3])
Definition: numat.c:3
eraCr
void eraCr(double r[3][3], double c[3][3])
Definition: cr.c:3
eraRxr
void eraRxr(double a[3][3], double b[3][3], double atb[3][3])
Definition: rxr.c:3
eraObl80
double eraObl80(double date1, double date2)
Definition: obl80.c:3
eraBp00
void eraBp00(double date1, double date2, double rb[3][3], double rp[3][3], double rbp[3][3])
Definition: bp00.c:3
eraPr00
void eraPr00(double date1, double date2, double *dpsipr, double *depspr)
Definition: pr00.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: