1302 double r1950, d1950, dr1950, dd1950;
1303 palFk54z( 1.2, -0.3, 1960.0, &r1950, &d1950, &dr1950, &dd1950 );
1304 vvd( r1950, 1.1902221805755279771, 1.0E-12,
"palFk54z",
"r1950", status );
1305 vvd( d1950, -0.30178317645793828472, 1.0E-12,
"palFk54z",
"d1950", status );
1306 vvd( dr1950, -1.7830874775952945507e-08, 1.0E-12,
"palFk54z",
"dr1950", status );
1307 vvd( dd1950, 7.196059425334821089e-09, 1.0E-12,
"palFk54z",
"dd1950", status );
void palFk54z(double r2000, double d2000, double bepoch, double *r1950, double *d1950, double *dr1950, double *dd1950)
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)