static void t_rz ( int *  status )

static

Definition at line 7623 of file t_erfa_c.c.

References eraRz(), and vvd().

Referenced by main().

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


   psi = 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;

   eraRz(psi, r);

   vvd(r[0][0], 2.898197754208926769, 1e-12, "eraRz", "11", status);
   vvd(r[0][1], 3.500207892850427330, 1e-12, "eraRz", "12", status);
   vvd(r[0][2], 2.898197754208926769, 1e-12, "eraRz", "13", status);

   vvd(r[1][0], 2.144865911309686813, 1e-12, "eraRz", "21", status);
   vvd(r[1][1], 0.865184781897815993, 1e-12, "eraRz", "22", status);
   vvd(r[1][2], 2.144865911309686813, 1e-12, "eraRz", "23", status);

   vvd(r[2][0], 3.0, 1e-12, "eraRz", "31", status);
   vvd(r[2][1], 4.0, 1e-12, "eraRz", "32", status);
   vvd(r[2][2], 5.0, 1e-12, "eraRz", "33", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: