1950 double rbpn[3][3], x, y;
1953 rbpn[0][0] = 9.999962358680738e-1;
1954 rbpn[0][1] = -2.516417057665452e-3;
1955 rbpn[0][2] = -1.093569785342370e-3;
1957 rbpn[1][0] = 2.516462370370876e-3;
1958 rbpn[1][1] = 9.999968329010883e-1;
1959 rbpn[1][2] = 4.006159587358310e-5;
1961 rbpn[2][0] = 1.093465510215479e-3;
1962 rbpn[2][1] = -4.281337229063151e-5;
1963 rbpn[2][2] = 9.999994012499173e-1;
1967 vvd(x, 1.093465510215479e-3, 1e-12,
"eraBpn2xy",
"x", status);
1968 vvd(y, -4.281337229063151e-5, 1e-12,
"eraBpn2xy",
"y", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraBpn2xy(double rbpn[3][3], double *x, double *y)