1355 double ri, di, date1, date2, rc, dc, eo;
1358 ri = 2.710121572969038991;
1359 di = 0.1729371367218230438;
1361 date2 = 0.401182685;
1363 eraAtic13(ri, di, date1, date2, &rc, &dc, &eo);
1365 vvd(rc, 2.710126504531374930, 1e-12,
"eraAtic13",
"rc", status);
1366 vvd(dc, 0.1740632537628342320, 1e-12,
"eraAtic13",
"dc", status);
1367 vvd(eo, -0.002900618712657375647, 1e-14,
"eraAtic13",
"eo", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraAtic13(double ri, double di, double date1, double date2, double *rc, double *dc, double *eo)