static void t_numat ( int *  status )

static

Definition at line 4798 of file t_erfa_c.c.

References eraNumat(), and vvd().

Referenced by main().

{
   double epsa, dpsi, deps, rmatn[3][3];


   epsa =  0.4090789763356509900;
   dpsi = -0.9630909107115582393e-5;
   deps =  0.4063239174001678826e-4;

   eraNumat(epsa, dpsi, deps, rmatn);

   vvd(rmatn[0][0], 0.9999999999536227949, 1e-12,
       "eraNumat", "11", status);
   vvd(rmatn[0][1], 0.8836239320236250577e-5, 1e-12,
       "eraNumat", "12", status);
   vvd(rmatn[0][2], 0.3830833447458251908e-5, 1e-12,
       "eraNumat", "13", status);

   vvd(rmatn[1][0], -0.8836083657016688588e-5, 1e-12,
       "eraNumat", "21", status);
   vvd(rmatn[1][1], 0.9999999991354654959, 1e-12,
       "eraNumat", "22", status);
   vvd(rmatn[1][2], -0.4063240865361857698e-4, 1e-12,
       "eraNumat", "23", status);

   vvd(rmatn[2][0], -0.3831192481833385226e-5, 1e-12,
       "eraNumat", "31", status);
   vvd(rmatn[2][1], 0.4063237480216934159e-4, 1e-12,
       "eraNumat", "32", status);
   vvd(rmatn[2][2], 0.9999999991671660407, 1e-12,
       "eraNumat", "33", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: