491 palDd2tf ( 4, -0.987654321, &s, ihmsf );
492 viv ( s,
'-',
"palDd2tf",
"S", status );
493 viv ( ihmsf[0], 23,
"palDd2tf",
"(1)", status );
494 viv ( ihmsf[1], 42,
"palDd2tf",
"(2)", status );
495 viv ( ihmsf[2], 13,
"palDd2tf",
"(3)", status );
496 viv ( ihmsf[3], 3333,
"palDd2tf",
"(4)", status );
void palDd2tf(int ndp, double days, char *sign, int ihmsf[4])
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)