804 double r5, d5, dr5, dd5, rh, dh;
806 palFk5hz ( 1.234, -0.987, 1980, &rh, &dh );
807 vvd ( rh, 1.234000136713611301, 1e-13,
"palFk5hz",
809 vvd ( dh, -0.9869999702020807601, 1e-13,
"palFk5hz",
811 palHfk5z ( rh, dh, 1980, &r5, &d5, &dr5, &dd5 );
812 vvd ( r5, 1.234, 1e-13,
"palHfk5z",
"R", status );
813 vvd ( d5, -0.987, 1e-13,
"palHfk5z",
"D", status );
814 vvd ( dr5, 0.000000006822074, 1e-13,
"palHfk5z",
816 vvd ( dd5, -0.000000002334012, 1e-13,
"palHfk5z",
void palHfk5z(double rh, double dh, double epoch, double *r5, double *d5, double *dr5, double *dd5)
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void palFk5hz(double r5, double d5, double epoch, double *rh, double *dh)