static void t_fw2m ( int *  status )

static

Definition at line 3828 of file t_erfa_c.c.

References eraFw2m(), and vvd().

Referenced by main().

{
   double gamb, phib, psi, eps, r[3][3];


   gamb = -0.2243387670997992368e-5;
   phib =  0.4091014602391312982;
   psi  = -0.9501954178013015092e-3;
   eps  =  0.4091014316587367472;

   eraFw2m(gamb, phib, psi, eps, r);

   vvd(r[0][0], 0.9999995505176007047, 1e-12,
       "eraFw2m", "11", status);
   vvd(r[0][1], 0.8695404617348192957e-3, 1e-12,
       "eraFw2m", "12", status);
   vvd(r[0][2], 0.3779735201865582571e-3, 1e-12,
       "eraFw2m", "13", status);

   vvd(r[1][0], -0.8695404723772016038e-3, 1e-12,
       "eraFw2m", "21", status);
   vvd(r[1][1], 0.9999996219496027161, 1e-12,
       "eraFw2m", "22", status);
   vvd(r[1][2], -0.1361752496887100026e-6, 1e-12,
       "eraFw2m", "23", status);

   vvd(r[2][0], -0.3779734957034082790e-3, 1e-12,
       "eraFw2m", "31", status);
   vvd(r[2][1], -0.1924880848087615651e-6, 1e-12,
       "eraFw2m", "32", status);
   vvd(r[2][2], 0.9999999285679971958, 1e-12,
       "eraFw2m", "33", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: