8083 double ra, dec, pmr, pmd, px, rv, pv[2][3];
8089 pmr = -1.78323516e-5;
8090 pmd = 2.336024047e-6;
8094 j =
eraStarpv(ra, dec, pmr, pmd, px, rv, pv);
8096 vvd(pv[0][0], 126668.5912743160601, 1e-10,
8097 "eraStarpv",
"11", status);
8098 vvd(pv[0][1], 2136.792716839935195, 1e-12,
8099 "eraStarpv",
"12", status);
8100 vvd(pv[0][2], -245251.2339876830091, 1e-10,
8101 "eraStarpv",
"13", status);
8103 vvd(pv[1][0], -0.4051854035740712739e-2, 1e-13,
8104 "eraStarpv",
"21", status);
8105 vvd(pv[1][1], -0.6253919754866173866e-2, 1e-15,
8106 "eraStarpv",
"22", status);
8107 vvd(pv[1][2], 0.1189353719774107189e-1, 1e-13,
8108 "eraStarpv",
"23", status);
8110 viv(j, 0,
"eraStarpv",
"j", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
int eraStarpv(double ra, double dec, double pmr, double pmd, double px, double rv, double pv[2][3])
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)