879 double dpsi, deps, eps0;
881 double expected[3][3] = {
882 { 9.999999969492166e-1, 7.166577986249302e-5, 3.107382973077677e-5 },
883 { -7.166503970900504e-5, 9.999999971483732e-1, -2.381965032461830e-5 },
884 { -3.107553669598237e-5, 2.381742334472628e-5, 9.999999992335206818e-1 }
890 palNut( 46012.32, rmatn );
891 vrmat( rmatn, expected,
"palNut", 1.0e-3, status );
894 palNutc( 54388.0, &dpsi, &deps, &eps0 );
895 vvd( eps0, 0.4090749229387258204, 1e-14,
896 "palNutc",
"eps0", status);
898 palNutc( 53736.0, &dpsi, &deps, &eps0 );
899 vvd(dpsi, -0.9630912025820308797e-5, 1e-13,
900 "palNutc",
"dpsi", status);
901 vvd(deps, 0.4063238496887249798e-4, 1e-13,
902 "palNutc",
"deps", status);
void palNut(double date, double rmatn[3][3])
void palNutc(double date, double *dpsi, double *deps, double *eps0)
static void vrmat(double rmat[3][3], double expected[3][3], const char *func, double dval, int *status)
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)