7876 eraS2pv(-3.21, 0.123, 0.456, -7.8e-6, 9.01e-6, -1.23e-5, pv);
7878 vvd(pv[0][0], -0.4514964673880165228, 1e-12,
"eraS2pv",
"x", status);
7879 vvd(pv[0][1], 0.0309339427734258688, 1e-12,
"eraS2pv",
"y", status);
7880 vvd(pv[0][2], 0.0559466810510877933, 1e-12,
"eraS2pv",
"z", status);
7882 vvd(pv[1][0], 0.1292270850663260170e-4, 1e-16,
7883 "eraS2pv",
"vx", status);
7884 vvd(pv[1][1], 0.2652814182060691422e-5, 1e-16,
7885 "eraS2pv",
"vy", status);
7886 vvd(pv[1][2], 0.2568431853930292259e-5, 1e-16,
7887 "eraS2pv",
"vz", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraS2pv(double theta, double phi, double r, double td, double pd, double rd, double pv[2][3])