1387 double date1, date2, eo, ri, di, rc, dc;
1392 date2 = 0.401182685;
1394 ri = 2.710121572969038991;
1395 di = 0.1729371367218230438;
1397 eraAticq(ri, di, &astrom, &rc, &dc);
1399 vvd(rc, 2.710126504531374930, 1e-12,
"eraAticq",
"rc", status);
1400 vvd(dc, 0.1740632537628342320, 1e-12,
"eraAticq",
"dc", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraApci13(double date1, double date2, eraASTROM *astrom, double *eo)
void eraAticq(double ri, double di, eraASTROM *astrom, double *rc, double *dc)