4389 double rh, dh, r5, d5, dr5, dd5;
4396 eraHfk5z(rh, dh, 2400000.5, 54479.0, &r5, &d5, &dr5, &dd5);
4398 vvd(r5, 1.767794490535581026, 1e-13,
4399 "eraHfk5z",
"ra", status);
4400 vvd(d5, -0.2917513695320114258, 1e-14,
4401 "eraHfk5z",
"dec", status);
4402 vvd(dr5, 0.4335890983539243029e-8, 1e-22,
4403 "eraHfk5z",
"dr5", status);
4404 vvd(dd5, -0.8569648841237745902e-9, 1e-23,
4405 "eraHfk5z",
"dd5", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraHfk5z(double rh, double dh, double date1, double date2, double *r5, double *d5, double *dr5, double *dd5)