7029 double pv[2][3], ra, dec, pmr, pmd, px, rv;
7033 pv[0][0] = 126668.5912743160601;
7034 pv[0][1] = 2136.792716839935195;
7035 pv[0][2] = -245251.2339876830091;
7037 pv[1][0] = -0.4051854035740712739e-2;
7038 pv[1][1] = -0.6253919754866173866e-2;
7039 pv[1][2] = 0.1189353719774107189e-1;
7041 j =
eraPvstar(pv, &ra, &dec, &pmr, &pmd, &px, &rv);
7043 vvd(ra, 0.1686756e-1, 1e-12,
"eraPvstar",
"ra", status);
7044 vvd(dec, -1.093989828, 1e-12,
"eraPvstar",
"dec", status);
7045 vvd(pmr, -0.178323516e-4, 1e-16,
"eraPvstar",
"pmr", status);
7046 vvd(pmd, 0.2336024047e-5, 1e-16,
"eraPvstar",
"pmd", status);
7047 vvd(px, 0.74723, 1e-12,
"eraPvstar",
"px", status);
7048 vvd(rv, -21.6, 1e-11,
"eraPvstar",
"rv", status);
7050 viv(j, 0,
"eraPvstar",
"j", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
int eraPvstar(double pv[2][3], double *ra, double *dec, double *pmr, double *pmd, double *px, double *rv)
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)