FACT++  1.0
void eraC2tpe ( double  tta,
double  ttb,
double  uta,
double  utb,
double  dpsi,
double  deps,
double  xp,
double  yp,
double  rc2t[3][3] 
)

Definition at line 3 of file c2tpe.c.

References eraC2teqx(), eraEe00(), eraGmst00(), eraPn00(), eraPom00(), and eraSp00().

Referenced by t_c2tpe().

89 {
90  double epsa, rb[3][3], rp[3][3], rbp[3][3], rn[3][3],
91  rbpn[3][3], gmst, ee, sp, rpom[3][3];
92 
93 /* Form the celestial-to-true matrix for this TT. */
94  eraPn00(tta, ttb, dpsi, deps, &epsa, rb, rp, rbp, rn, rbpn);
95 
96 /* Predict the Greenwich Mean Sidereal Time for this UT1 and TT. */
97  gmst = eraGmst00(uta, utb, tta, ttb);
98 
99 /* Predict the equation of the equinoxes given TT and nutation. */
100  ee = eraEe00(tta, ttb, epsa, dpsi);
101 
102 /* Estimate s'. */
103  sp = eraSp00(tta, ttb);
104 
105 /* Form the polar motion matrix. */
106  eraPom00(xp, yp, sp, rpom);
107 
108 /* Combine to form the celestial-to-terrestrial matrix. */
109  eraC2teqx(rbpn, gmst + ee, rpom, rc2t);
110 
111  return;
112 
113 }
eraGmst00
double eraGmst00(double uta, double utb, double tta, double ttb)
Definition: gmst00.c:3
eraSp00
double eraSp00(double date1, double date2)
Definition: sp00.c:3
eraEe00
double eraEe00(double date1, double date2, double epsa, double dpsi)
Definition: ee00.c:3
eraPom00
void eraPom00(double xp, double yp, double sp, double rpom[3][3])
Definition: pom00.c:3
eraC2teqx
void eraC2teqx(double rbpn[3][3], double gst, double rpom[3][3], double rc2t[3][3])
Definition: c2teqx.c:3
eraPn00
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: pn00.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: