4345 double rh, dh, drh, ddh, pxh, rvh, r5, d5, dr5, dd5, px5, rv5;
4350 drh = -2.76413026e-6;
4351 ddh = -5.92994449e-6;
4355 eraH2fk5(rh, dh, drh, ddh, pxh, rvh,
4356 &r5, &d5, &dr5, &dd5, &px5, &rv5);
4358 vvd(r5, 1.767794455700065506, 1e-13,
4359 "eraH2fk5",
"ra", status);
4360 vvd(d5, -0.2917513626469638890, 1e-13,
4361 "eraH2fk5",
"dec", status);
4362 vvd(dr5, -0.27597945024511204e-5, 1e-18,
4363 "eraH2fk5",
"dr5", status);
4364 vvd(dd5, -0.59308014093262838e-5, 1e-18,
4365 "eraH2fk5",
"dd5", status);
4366 vvd(px5, 0.37921, 1e-13,
4367 "eraH2fk5",
"px", status);
4368 vvd(rv5, -7.6000001309071126, 1e-10,
4369 "eraH2fk5",
"rv", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraH2fk5(double rh, double dh, double drh, double ddh, double pxh, double rvh, double *r5, double *d5, double *dr5, double *dd5, double *px5, double *rv5)