149 eraA2tf(4, -3.01234, &s, ihmsf);
151 viv((
int)s,
'-',
"eraA2tf",
"s", status);
153 viv(ihmsf[0], 11,
"eraA2tf",
"0", status);
154 viv(ihmsf[1], 30,
"eraA2tf",
"1", status);
155 viv(ihmsf[2], 22,
"eraA2tf",
"2", status);
156 viv(ihmsf[3], 6484,
"eraA2tf",
"3", status);
void eraA2tf(int ndp, double angle, char *sign, int ihmsf[4])
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)