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

Definition at line 3 of file c2t00a.c.

References eraC2i00a(), eraC2tcio(), eraEra00(), eraPom00(), and eraSp00().

Referenced by t_c2t00a().

80 {
81  double rc2i[3][3], era, sp, rpom[3][3];
82 
83 /* Form the celestial-to-intermediate matrix for this TT (IAU 2000A). */
84  eraC2i00a(tta, ttb, rc2i );
85 
86 /* Predict the Earth rotation angle for this UT1. */
87  era = eraEra00(uta, utb);
88 
89 /* Estimate s'. */
90  sp = eraSp00(tta, ttb);
91 
92 /* Form the polar motion matrix. */
93  eraPom00(xp, yp, sp, rpom);
94 
95 /* Combine to form the celestial-to-terrestrial matrix. */
96  eraC2tcio(rc2i, era, rpom, rc2t);
97 
98  return;
99 
100 }
eraSp00
double eraSp00(double date1, double date2)
Definition: sp00.c:3
eraEra00
double eraEra00(double dj1, double dj2)
Definition: era00.c:3
eraPom00
void eraPom00(double xp, double yp, double sp, double rpom[3][3])
Definition: pom00.c:3
eraC2i00a
void eraC2i00a(double date1, double date2, double rc2i[3][3])
Definition: c2i00a.c:3
eraC2tcio
void eraC2tcio(double rc2i[3][3], double era, double rpom[3][3], double rc2t[3][3])
Definition: c2tcio.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: