5063 double eps0, psia, oma, bpa, bqa, pia, bpia,
5064 epsa, chia, za, zetaa, thetaa, pa, gam, phi, psi;
5067 eraP06e(2400000.5, 52541.0, &eps0, &psia, &oma, &bpa,
5068 &bqa, &pia, &bpia, &epsa, &chia, &za,
5069 &zetaa, &thetaa, &pa, &gam, &phi, &psi);
5071 vvd(eps0, 0.4090926006005828715, 1e-14,
5072 "eraP06e",
"eps0", status);
5073 vvd(psia, 0.6664369630191613431e-3, 1e-14,
5074 "eraP06e",
"psia", status);
5075 vvd(oma , 0.4090925973783255982, 1e-14,
5076 "eraP06e",
"oma", status);
5077 vvd(bpa, 0.5561149371265209445e-6, 1e-14,
5078 "eraP06e",
"bpa", status);
5079 vvd(bqa, -0.6191517193290621270e-5, 1e-14,
5080 "eraP06e",
"bqa", status);
5081 vvd(pia, 0.6216441751884382923e-5, 1e-14,
5082 "eraP06e",
"pia", status);
5083 vvd(bpia, 3.052014180023779882, 1e-14,
5084 "eraP06e",
"bpia", status);
5085 vvd(epsa, 0.4090864054922431688, 1e-14,
5086 "eraP06e",
"epsa", status);
5087 vvd(chia, 0.1387703379530915364e-5, 1e-14,
5088 "eraP06e",
"chia", status);
5089 vvd(za, 0.2921789846651790546e-3, 1e-14,
5090 "eraP06e",
"za", status);
5091 vvd(zetaa, 0.3178773290332009310e-3, 1e-14,
5092 "eraP06e",
"zetaa", status);
5093 vvd(thetaa, 0.2650932701657497181e-3, 1e-14,
5094 "eraP06e",
"thetaa", status);
5095 vvd(pa, 0.6651637681381016344e-3, 1e-14,
5096 "eraP06e",
"pa", status);
5097 vvd(gam, 0.1398077115963754987e-5, 1e-14,
5098 "eraP06e",
"gam", status);
5099 vvd(phi, 0.4090864090837462602, 1e-14,
5100 "eraP06e",
"phi", status);
5101 vvd(psi, 0.6664464807480920325e-3, 1e-14,
5102 "eraP06e",
"psi", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraP06e(double date1, double date2, double *eps0, double *psia, double *oma, double *bpa, double *bqa, double *pia, double *bpia, double *epsa, double *chia, double *za, double *zetaa, double *thetaa, double *pa, double *gam, double *phi, double *psi)