3723 double r5, d5, dr5, dd5, px5, rv5, rh, dh, drh, ddh, pxh, rvh;
3728 dr5 = -1.91851572e-7;
3729 dd5 = -5.8468475e-6;
3733 eraFk52h(r5, d5, dr5, dd5, px5, rv5,
3734 &rh, &dh, &drh, &ddh, &pxh, &rvh);
3736 vvd(rh, 1.767794226299947632, 1e-14,
3737 "eraFk52h",
"ra", status);
3738 vvd(dh, -0.2917516070530391757, 1e-14,
3739 "eraFk52h",
"dec", status);
3740 vvd(drh, -0.19618741256057224e-6,1e-19,
3741 "eraFk52h",
"dr5", status);
3742 vvd(ddh, -0.58459905176693911e-5, 1e-19,
3743 "eraFk52h",
"dd5", status);
3744 vvd(pxh, 0.37921, 1e-14,
3745 "eraFk52h",
"px", status);
3746 vvd(rvh, -7.6000000940000254, 1e-11,
3747 "eraFk52h",
"rv", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraFk52h(double r5, double d5, double dr5, double dd5, double px5, double rv5, double *rh, double *dh, double *drh, double *ddh, double *pxh, double *rvh)