2881 eraD2tf(4, -0.987654321, &s, ihmsf);
2883 viv((
int)s,
'-',
"eraD2tf",
"s", status);
2885 viv(ihmsf[0], 23,
"eraD2tf",
"0", status);
2886 viv(ihmsf[1], 42,
"eraD2tf",
"1", status);
2887 viv(ihmsf[2], 13,
"eraD2tf",
"2", status);
2888 viv(ihmsf[3], 3333,
"eraD2tf",
"3", status);
void eraD2tf(int ndp, double days, char *sign, int ihmsf[4])
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)