5322 double gamb, phib, psib, epsa;
5325 eraPfw06(2400000.5, 50123.9999, &gamb, &phib, &psib, &epsa);
5327 vvd(gamb, -0.2243387670997995690e-5, 1e-16,
5328 "eraPfw06",
"gamb", status);
5329 vvd(phib, 0.4091014602391312808, 1e-12,
5330 "eraPfw06",
"phib", status);
5331 vvd(psib, -0.9501954178013031895e-3, 1e-14,
5332 "eraPfw06",
"psib", status);
5333 vvd(epsa, 0.4091014316587367491, 1e-12,
5334 "eraPfw06",
"epsa", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraPfw06(double date1, double date2, double *gamb, double *phib, double *psib, double *epsa)