455 palCaldj ( 1999, 12, 31, &djm, &j );
456 vvd ( djm, 51543, 0,
"palCaldj",
" ", status );
457 viv ( j, 0,
"palCaldj",
"J", status );
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void palCaldj(int iy, int im, int id, double *djm, int *j)