2912 j =
eraDat(2003, 6, 1, 0.0, &deltat);
2914 vvd(deltat, 32.0, 0.0,
"eraDat",
"d1", status);
2915 viv(j, 0,
"eraDat",
"j1", status);
2917 j =
eraDat(2008, 1, 17, 0.0, &deltat);
2919 vvd(deltat, 33.0, 0.0,
"eraDat",
"d2", status);
2920 viv(j, 0,
"eraDat",
"j2", status);
2922 j =
eraDat(2015, 9, 1, 0.0, &deltat);
2924 vvd(deltat, 36.0, 0.0,
"eraDat",
"d3", status);
2925 viv(j, 0,
"eraDat",
"j3", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
int eraDat(int iy, int im, int id, double fd, double *deltat)
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)