static void t_ry ( int *  status )

static

Definition at line 7574 of file t_erfa_c.c.

References eraRy(), and vvd().

Referenced by main().

{
   double theta, r[3][3];


   theta = 0.3456789;

   r[0][0] = 2.0;
   r[0][1] = 3.0;
   r[0][2] = 2.0;

   r[1][0] = 3.0;
   r[1][1] = 2.0;
   r[1][2] = 3.0;

   r[2][0] = 3.0;
   r[2][1] = 4.0;
   r[2][2] = 5.0;

   eraRy(theta, r);

   vvd(r[0][0], 0.8651847818978159930, 1e-12, "eraRy", "11", status);
   vvd(r[0][1], 1.467194920539316554, 1e-12, "eraRy", "12", status);
   vvd(r[0][2], 0.1875137911274457342, 1e-12, "eraRy", "13", status);

   vvd(r[1][0], 3, 1e-12, "eraRy", "21", status);
   vvd(r[1][1], 2, 1e-12, "eraRy", "22", status);
   vvd(r[1][2], 3, 1e-12, "eraRy", "23", status);

   vvd(r[2][0], 3.500207892850427330, 1e-12, "eraRy", "31", status);
   vvd(r[2][1], 4.779889022262298150, 1e-12, "eraRy", "32", status);
   vvd(r[2][2], 5.381899160903798712, 1e-12, "eraRy", "33", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: