5165 double p[3], theta, phi, r;
5172 eraP2s(p, &theta, &phi, &r);
5174 vvd(theta, -0.4636476090008061162, 1e-12,
"eraP2s",
"theta", status);
5175 vvd(phi, 0.2199879773954594463, 1e-12,
"eraP2s",
"phi", status);
5176 vvd(r, 114.5643923738960002, 1e-9,
"eraP2s",
"r", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraP2s(double p[3], double *theta, double *phi, double *r)