7849 eraS2p(-3.21, 0.123, 0.456, p);
7851 vvd(p[0], -0.4514964673880165228, 1e-12,
"eraS2p",
"x", status);
7852 vvd(p[1], 0.0309339427734258688, 1e-12,
"eraS2p",
"y", status);
7853 vvd(p[2], 0.0559466810510877933, 1e-12,
"eraS2p",
"z", status);
void eraS2p(double theta, double phi, double r, double p[3])
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)