176 double pnat[3], v[3], s, bm1, ppr[3];
179 pnat[0] = -0.76321968546737951;
180 pnat[1] = -0.60869453983060384;
181 pnat[2] = -0.21676408580639883;
182 v[0] = 2.1044018893653786e-5;
183 v[1] = -8.9108923304429319e-5;
184 v[2] = -3.8633714797716569e-5;
185 s = 0.99980921395708788;
186 bm1 = 0.99999999506209258;
188 eraAb(pnat, v, s, bm1, ppr);
190 vvd(ppr[0], -0.7631631094219556269, 1e-12,
"eraAb",
"1", status);
191 vvd(ppr[1], -0.6087553082505590832, 1e-12,
"eraAb",
"2", status);
192 vvd(ppr[2], -0.2167926269368471279, 1e-12,
"eraAb",
"3", status);
void eraAb(double pnat[3], double v[3], double s, double bm1, double ppr[3])
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)