static void t_trxpv ( int *  status )

static

Definition at line 8529 of file t_erfa_c.c.

References eraTrxpv(), and vvd().

Referenced by main().

{
   double r[3][3], pv[2][3], trpv[2][3];


   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;

   pv[0][0] = 0.2;
   pv[0][1] = 1.5;
   pv[0][2] = 0.1;

   pv[1][0] = 1.5;
   pv[1][1] = 0.2;
   pv[1][2] = 0.1;

   eraTrxpv(r, pv, trpv);

   vvd(trpv[0][0], 5.2, 1e-12, "eraTrxpv", "p1", status);
   vvd(trpv[0][1], 4.0, 1e-12, "eraTrxpv", "p1", status);
   vvd(trpv[0][2], 5.4, 1e-12, "eraTrxpv", "p1", status);

   vvd(trpv[1][0], 3.9, 1e-12, "eraTrxpv", "v1", status);
   vvd(trpv[1][1], 5.3, 1e-12, "eraTrxpv", "v2", status);
   vvd(trpv[1][2], 4.1, 1e-12, "eraTrxpv", "v3", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: