528 palDr2tf ( 4, -3.01234, &s, ihmsf );
529 viv ( s,
'-',
"palDr2tf",
"S", status );
530 viv ( ihmsf[0], 11,
"palDr2tf",
"(1)", status );
531 viv ( ihmsf[1], 30,
"palDr2tf",
"(2)", status );
532 viv ( ihmsf[2], 22,
"palDr2tf",
"(3)", status );
533 viv ( ihmsf[3], 6484,
"palDr2tf",
"(4)", status );
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)
void palDr2tf(int ndp, double angle, char *sign, int ihmsf[4])