8034 double ra1, dec1, pmr1, pmd1, px1, rv1;
8035 double ra2, dec2, pmr2, pmd2, px2, rv2;
8040 dec1 = -1.093989828;
8041 pmr1 = -1.78323516e-5;
8042 pmd1 = 2.336024047e-6;
8046 j =
eraStarpm(ra1, dec1, pmr1, pmd1, px1, rv1,
8047 2400000.5, 50083.0, 2400000.5, 53736.0,
8048 &ra2, &dec2, &pmr2, &pmd2, &px2, &rv2);
8050 vvd(ra2, 0.01668919069414242368, 1e-13,
8051 "eraStarpm",
"ra", status);
8052 vvd(dec2, -1.093966454217127879, 1e-13,
8053 "eraStarpm",
"dec", status);
8054 vvd(pmr2, -0.1783662682155932702e-4, 1e-17,
8055 "eraStarpm",
"pmr", status);
8056 vvd(pmd2, 0.2338092915987603664e-5, 1e-17,
8057 "eraStarpm",
"pmd", status);
8058 vvd(px2, 0.7473533835323493644, 1e-13,
8059 "eraStarpm",
"px", status);
8060 vvd(rv2, -21.59905170476860786, 1e-11,
8061 "eraStarpm",
"rv", status);
8063 viv(j, 0,
"eraStarpm",
"j", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
int eraStarpm(double ra1, double dec1, double pmr1, double pmd1, double px1, double rv1, double ep1a, double ep1b, double ep2a, double ep2b, double *ra2, double *dec2, double *pmr2, double *pmd2, double *px2, double *rv2)
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)