FACT++  1.0
void palPrenut ( double  epoch,
double  date,
double  rmatpn[3][3] 
)

Definition at line 70 of file palPrenut.c.

References eraEpj2jd(), eraIr(), eraP06e(), eraPnm06a(), eraRx(), eraRxr(), eraRz(), and PAL__MJD0.

Referenced by palMappa(), palPlantu(), and palRdplan().

70  {
71 
72 /* Local Variables: */
73  double bpa;
74  double bpia;
75  double bqa;
76  double chia;
77  double d1;
78  double d2;
79  double eps0;
80  double epsa;
81  double gam;
82  double oma;
83  double pa;
84  double phi;
85  double pia;
86  double psi;
87  double psia;
88  double r1[3][3];
89  double r2[3][3];
90  double thetaa;
91  double za;
92  double zetaa;
93 
94 /* Specified Julian epoch as a 2-part JD. */
95  eraEpj2jd( epoch, &d1, &d2 );
96 
97 /* P matrix, from specified epoch to J2000.0. */
98  eraP06e( d1, d2, &eps0, &psia, &oma, &bpa, &bqa, &pia, &bpia, &epsa,
99  &chia, &za, &zetaa, &thetaa, &pa, &gam, &phi, &psi );
100  eraIr( r1 );
101  eraRz( -chia, r1 );
102  eraRx( oma, r1 );
103  eraRz( psia, r1 );
104  eraRx( -eps0, r1 );
105 
106 /* NPB matrix, from J2000.0 to date. */
107  eraPnm06a( PAL__MJD0, date, r2 );
108 
109 /* NPB matrix, from specified epoch to date. */
110  eraRxr( r2, r1, rmatpn );
111 }
eraPnm06a
void eraPnm06a(double date1, double date2, double rnpb[3][3])
Definition: pnm06a.c:3
eraEpj2jd
void eraEpj2jd(double epj, double *djm0, double *djm)
Definition: epj2jd.c:3
eraRx
void eraRx(double phi, double r[3][3])
Definition: rx.c:3
eraIr
void eraIr(double r[3][3])
Definition: ir.c:3
eraRxr
void eraRxr(double a[3][3], double b[3][3], double atb[3][3])
Definition: rxr.c:3
eraRz
void eraRz(double psi, double r[3][3])
Definition: rz.c:3
PAL__MJD0
static const double PAL__MJD0
Definition: palmac.h:96
eraP06e
void eraP06e(double date1, double date2, double *eps0, double *psia, double *oma, double *bpa, double *bqa, double *pia, double *bpia, double *epsa, double *chia, double *za, double *zetaa, double *thetaa, double *pa, double *gam, double *phi, double *psi)
Definition: p06e.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: