FACT++  1.0
static void t_c2t00a ( int *  status)
static

Definition at line 2285 of file t_erfa_c.c.

References eraC2t00a(), and vvd().

Referenced by main().

2300 {
2301  double tta, ttb, uta, utb, xp, yp, rc2t[3][3];
2302 
2303 
2304  tta = 2400000.5;
2305  uta = 2400000.5;
2306  ttb = 53736.0;
2307  utb = 53736.0;
2308  xp = 2.55060238e-7;
2309  yp = 1.860359247e-6;
2310 
2311  eraC2t00a(tta, ttb, uta, utb, xp, yp, rc2t);
2312 
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);
2319 
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);
2326 
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);
2333 
2334 }
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
Definition: t_erfa_c.c:58
void eraC2t00a(double tta, double ttb, double uta, double utb, double xp, double yp, double rc2t[3][3])
Definition: c2t00a.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: