7741 x = 0.5791308486706011000e-3;
7742 y = 0.4020579816732961219e-4;
7744 s =
eraS00(2400000.5, 53736.0, x, y);
7746 vvd(s, -0.1220036263270905693e-7, 1e-18,
"eraS00",
"", status);
double eraS00(double date1, double date2, double x, double y)
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)