3893 double gamb, phib, psi, eps, x, y;
3896 gamb = -0.2243387670997992368e-5;
3897 phib = 0.4091014602391312982;
3898 psi = -0.9501954178013015092e-3;
3899 eps = 0.4091014316587367472;
3901 eraFw2xy(gamb, phib, psi, eps, &x, &y);
3903 vvd(x, -0.3779734957034082790e-3, 1e-14,
"eraFw2xy",
"x", status);
3904 vvd(y, -0.1924880848087615651e-6, 1e-14,
"eraFw2xy",
"y", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraFw2xy(double gamb, double phib, double psi, double eps, double *x, double *y)