5624 double rc, dc, pr, pd, px, rv, pmt, pob[3], pco[3];
5638 eraPmpx(rc, dc, pr, pd, px, rv, pmt, pob, pco);
5640 vvd(pco[0], 0.2328137623960308440, 1e-12,
5641 "eraPmpx",
"1", status);
5642 vvd(pco[1], 0.6651097085397855317, 1e-12,
5643 "eraPmpx",
"2", status);
5644 vvd(pco[2], 0.7095257765896359847, 1e-12,
5645 "eraPmpx",
"3", status);
void eraPmpx(double rc, double dc, double pr, double pd, double px, double rv, double pmt, double pob[3], double pco[3])
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)