static void t_rxr ( int *  status )

static

Definition at line 7515 of file t_erfa_c.c.

References eraRxr(), and vvd().

Referenced by main().

{
   double a[3][3], b[3][3], atb[3][3];


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

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

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

   b[0][0] = 1.0;
   b[0][1] = 2.0;
   b[0][2] = 2.0;

   b[1][0] = 4.0;
   b[1][1] = 1.0;
   b[1][2] = 1.0;

   b[2][0] = 3.0;
   b[2][1] = 0.0;
   b[2][2] = 1.0;

   eraRxr(a, b, atb);

   vvd(atb[0][0], 20.0, 1e-12, "eraRxr", "11", status);
   vvd(atb[0][1],  7.0, 1e-12, "eraRxr", "12", status);
   vvd(atb[0][2],  9.0, 1e-12, "eraRxr", "13", status);

   vvd(atb[1][0], 20.0, 1e-12, "eraRxr", "21", status);
   vvd(atb[1][1],  8.0, 1e-12, "eraRxr", "22", status);
   vvd(atb[1][2], 11.0, 1e-12, "eraRxr", "23", status);

   vvd(atb[2][0], 34.0, 1e-12, "eraRxr", "31", status);
   vvd(atb[2][1], 10.0, 1e-12, "eraRxr", "32", status);
   vvd(atb[2][2], 15.0, 1e-12, "eraRxr", "33", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: