8405 j =
eraTf2a(
'+', 4, 58, 20.2, &a);
8407 vvd(a, 1.301739278189537429, 1e-12,
"eraTf2a",
"a", status);
8408 viv(j, 0,
"eraTf2a",
"j", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
int eraTf2a(char s, int ihour, int imin, double sec, double *rad)
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)