7822 eraS2c(3.0123, -0.999, c);
7824 vvd(c[0], -0.5366267667260523906, 1e-12,
"eraS2c",
"1", status);
7825 vvd(c[1], 0.0697711109765145365, 1e-12,
"eraS2c",
"2", status);
7826 vvd(c[2], -0.8409302618566214041, 1e-12,
"eraS2c",
"3", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraS2c(double theta, double phi, double c[3])