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

Definition at line 2336 of file t_erfa_c.c.

References eraC2t00b(), and vvd().

Referenced by main().

2351 {
2352  double tta, ttb, uta, utb, xp, yp, rc2t[3][3];
2353 
2354 
2355  tta = 2400000.5;
2356  uta = 2400000.5;
2357  ttb = 53736.0;
2358  utb = 53736.0;
2359  xp = 2.55060238e-7;
2360  yp = 1.860359247e-6;
2361 
2362  eraC2t00b(tta, ttb, uta, utb, xp, yp, rc2t);
2363 
2364  vvd(rc2t[0][0], -0.1810332128439678965, 1e-12,
2365  "eraC2t00b", "11", status);
2366  vvd(rc2t[0][1], 0.9834769806913872359, 1e-12,
2367  "eraC2t00b", "12", status);
2368  vvd(rc2t[0][2], 0.6555565082458415611e-4, 1e-12,
2369  "eraC2t00b", "13", status);
2370 
2371  vvd(rc2t[1][0], -0.9834768134115435923, 1e-12,
2372  "eraC2t00b", "21", status);
2373  vvd(rc2t[1][1], -0.1810332203784001946, 1e-12,
2374  "eraC2t00b", "22", status);
2375  vvd(rc2t[1][2], 0.5749793922030017230e-3, 1e-12,
2376  "eraC2t00b", "23", status);
2377 
2378  vvd(rc2t[2][0], 0.5773467471863534901e-3, 1e-12,
2379  "eraC2t00b", "31", status);
2380  vvd(rc2t[2][1], 0.3961790411549945020e-4, 1e-12,
2381  "eraC2t00b", "32", status);
2382  vvd(rc2t[2][2], 0.9999998325505635738, 1e-12,
2383  "eraC2t00b", "33", status);
2384 
2385 }
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
Definition: t_erfa_c.c:58
void eraC2t00b(double tta, double ttb, double uta, double utb, double xp, double yp, double rc2t[3][3])
Definition: c2t00b.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: