FACT++  1.0
void eraBp06 ( double  date1,
double  date2,
double  rb[3][3],
double  rp[3][3],
double  rbp[3][3] 
)

Definition at line 3 of file bp06.c.

References eraCr(), eraFw2m(), eraPfw06(), eraPmat06(), eraRxr(), eraTr(), ERFA_DJM0, and ERFA_DJM00.

Referenced by t_bp06().

70 {
71  double gamb, phib, psib, epsa, rbpw[3][3], rbt[3][3];
72 
73 /* B matrix. */
74  eraPfw06(ERFA_DJM0, ERFA_DJM00, &gamb, &phib, &psib, &epsa);
75  eraFw2m(gamb, phib, psib, epsa, rb);
76 
77 /* PxB matrix (temporary). */
78  eraPmat06(date1, date2, rbpw);
79 
80 /* P matrix. */
81  eraTr(rb, rbt);
82  eraRxr(rbpw, rbt, rp);
83 
84 /* PxB matrix. */
85  eraCr(rbpw, rbp);
86 
87  return;
88 
89 }
eraPmat06
void eraPmat06(double date1, double date2, double rbp[3][3])
Definition: pmat06.c:3
eraPfw06
void eraPfw06(double date1, double date2, double *gamb, double *phib, double *psib, double *epsa)
Definition: pfw06.c:3
ERFA_DJM00
#define ERFA_DJM00
Definition: erfam.h:93
eraFw2m
void eraFw2m(double gamb, double phib, double psi, double eps, double r[3][3])
Definition: fw2m.c:3
ERFA_DJM0
#define ERFA_DJM0
Definition: erfam.h:90
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
eraTr
void eraTr(double r[3][3], double rt[3][3])
Definition: tr.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: