FACT++  1.0
static void t_nut ( int *  status)
static

Definition at line 878 of file palTest.c.

References palNut(), palNutc(), vrmat(), and vvd().

Referenced by main().

878  {
879  double dpsi, deps, eps0;
880 
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 }
885  };
886 
887  double rmatn[3][3];
888 
889  /* SLA tests with low precision */
890  palNut( 46012.32, rmatn );
891  vrmat( rmatn, expected, "palNut", 1.0e-3, status );
892 
893  /* Use the SOFA/ERFA tests */
894  palNutc( 54388.0, &dpsi, &deps, &eps0 );
895  vvd( eps0, 0.4090749229387258204, 1e-14,
896  "palNutc", "eps0", status);
897 
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);
903 }
void palNut(double date, double rmatn[3][3])
Definition: palNut.c:76
void palNutc(double date, double *dpsi, double *deps, double *eps0)
Definition: palNutc.c:77
static void vrmat(double rmat[3][3], double expected[3][3], const char *func, double dval, int *status)
Definition: palTest.c:158
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
Definition: palTest.c:99

+ Here is the call graph for this function:

+ Here is the caller graph for this function: