static void t_s2xpv ( int *  status )

static

Definition at line 7891 of file t_erfa_c.c.

References eraS2xpv(), and vvd().

Referenced by main().

{
   double s1, s2, pv[2][3], spv[2][3];


   s1 = 2.0;
   s2 = 3.0;

   pv[0][0] =  0.3;
   pv[0][1] =  1.2;
   pv[0][2] = -2.5;

   pv[1][0] =  0.5;
   pv[1][1] =  2.3;
   pv[1][2] = -0.4;

   eraS2xpv(s1, s2, pv, spv);

   vvd(spv[0][0],  0.6, 1e-12, "eraS2xpv", "p1", status);
   vvd(spv[0][1],  2.4, 1e-12, "eraS2xpv", "p2", status);
   vvd(spv[0][2], -5.0, 1e-12, "eraS2xpv", "p3", status);

   vvd(spv[1][0],  1.5, 1e-12, "eraS2xpv", "v1", status);
   vvd(spv[1][1],  6.9, 1e-12, "eraS2xpv", "v2", status);
   vvd(spv[1][2], -1.2, 1e-12, "eraS2xpv", "v3", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: