1311 double r1950, d1950, dr1950, dd1950, p1950, v1950;
1312 palFk524(4.567, -1.23, -3e-5, 8e-6, 0.29,
1313 -35.0, &r1950, &d1950, &dr1950, &dd1950, &p1950, &v1950);
1314 vvd(r1950, 4.543778603272084, 1e-12,
"palFk524",
"r", status);
1315 vvd(d1950, -1.229642790187574, 1e-12,
"palFk524",
"d", status);
1316 vvd(dr1950, -2.957873121769244e-5, 1e-17,
"palFk524",
"dr", status);
1317 vvd(dd1950, 8.117725309659079e-6, 1e-17,
"palFk524",
"dd", status);
1318 vvd(p1950, 0.2898494999992917, 1e-12,
"palFk524",
"p", status);
1319 vvd(v1950, -35.026862824252680, 1e-11,
"palFk524",
"v", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void palFk524(double r2000, double d2000, double dr2000, double dd2000, double p2000, double v2000, double *r1950, double *d1950, double *dr1950, double *dd1950, double *p1950, double *v1950)