2301 double tta, ttb, uta, utb, xp, yp, rc2t[3][3];
2309 yp = 1.860359247e-6;
2311 eraC2t00a(tta, ttb, uta, utb, xp, yp, rc2t);
2313 vvd(rc2t[0][0], -0.1810332128307182668, 1e-12,
2314 "eraC2t00a",
"11", status);
2315 vvd(rc2t[0][1], 0.9834769806938457836, 1e-12,
2316 "eraC2t00a",
"12", status);
2317 vvd(rc2t[0][2], 0.6555535638688341725e-4, 1e-12,
2318 "eraC2t00a",
"13", status);
2320 vvd(rc2t[1][0], -0.9834768134135984552, 1e-12,
2321 "eraC2t00a",
"21", status);
2322 vvd(rc2t[1][1], -0.1810332203649520727, 1e-12,
2323 "eraC2t00a",
"22", status);
2324 vvd(rc2t[1][2], 0.5749801116141056317e-3, 1e-12,
2325 "eraC2t00a",
"23", status);
2327 vvd(rc2t[2][0], 0.5773474014081406921e-3, 1e-12,
2328 "eraC2t00a",
"31", status);
2329 vvd(rc2t[2][1], 0.3961832391770163647e-4, 1e-12,
2330 "eraC2t00a",
"32", status);
2331 vvd(rc2t[2][2], 0.9999998325501692289, 1e-12,
2332 "eraC2t00a",
"33", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraC2t00a(double tta, double ttb, double uta, double utb, double xp, double yp, double rc2t[3][3])