FACT++  1.0
void eraPnm80 ( double  date1,
double  date2,
double  rmatpn[3][3] 
)

Definition at line 3 of file pnm80.c.

References eraNutm80(), eraPmat76(), and eraRxr().

Referenced by t_pnm80().

58 {
59  double rmatp[3][3], rmatn[3][3];
60 
61 /* Precession matrix, J2000.0 to date. */
62  eraPmat76(date1, date2, rmatp);
63 
64 /* Nutation matrix. */
65  eraNutm80(date1, date2, rmatn);
66 
67 /* Combine the matrices: PN = N x P. */
68  eraRxr(rmatn, rmatp, rmatpn);
69 
70  return;
71 
72 }
void eraPmat76(double date1, double date2, double rmatp[3][3])
Definition: pmat76.c:3
void eraRxr(double a[3][3], double b[3][3], double atb[3][3])
Definition: rxr.c:3
void eraNutm80(double date1, double date2, double rmatn[3][3])
Definition: nutm80.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: