static void t_plan94 ( int *  status )

static

Definition at line 5338 of file t_erfa_c.c.

References eraPlan94(), viv(), and vvd().

Referenced by main().

{
   double pv[2][3];
   int j;


   j = eraPlan94(2400000.5, 1e6, 0, pv);

   vvd(pv[0][0], 0.0, 0.0, "eraPlan94", "x 1", status);
   vvd(pv[0][1], 0.0, 0.0, "eraPlan94", "y 1", status);
   vvd(pv[0][2], 0.0, 0.0, "eraPlan94", "z 1", status);

   vvd(pv[1][0], 0.0, 0.0, "eraPlan94", "xd 1", status);
   vvd(pv[1][1], 0.0, 0.0, "eraPlan94", "yd 1", status);
   vvd(pv[1][2], 0.0, 0.0, "eraPlan94", "zd 1", status);

   viv(j, -1, "eraPlan94", "j 1", status);

   j = eraPlan94(2400000.5, 1e6, 10, pv);

   viv(j, -1, "eraPlan94", "j 2", status);

   j = eraPlan94(2400000.5, -320000, 3, pv);

   vvd(pv[0][0], 0.9308038666832975759, 1e-11,
       "eraPlan94", "x 3", status);
   vvd(pv[0][1], 0.3258319040261346000, 1e-11,
       "eraPlan94", "y 3", status);
   vvd(pv[0][2], 0.1422794544481140560, 1e-11,
       "eraPlan94", "z 3", status);

   vvd(pv[1][0], -0.6429458958255170006e-2, 1e-11,
       "eraPlan94", "xd 3", status);
   vvd(pv[1][1], 0.1468570657704237764e-1, 1e-11,
       "eraPlan94", "yd 3", status);
   vvd(pv[1][2], 0.6406996426270981189e-2, 1e-11,
       "eraPlan94", "zd 3", status);

   viv(j, 1, "eraPlan94", "j 3", status);

   j = eraPlan94(2400000.5, 43999.9, 1, pv);

   vvd(pv[0][0], 0.2945293959257430832, 1e-11,
       "eraPlan94", "x 4", status);
   vvd(pv[0][1], -0.2452204176601049596, 1e-11,
       "eraPlan94", "y 4", status);
   vvd(pv[0][2], -0.1615427700571978153, 1e-11,
       "eraPlan94", "z 4", status);

   vvd(pv[1][0], 0.1413867871404614441e-1, 1e-11,
       "eraPlan94", "xd 4", status);
   vvd(pv[1][1], 0.1946548301104706582e-1, 1e-11,
       "eraPlan94", "yd 4", status);
   vvd(pv[1][2], 0.8929809783898904786e-2, 1e-11,
       "eraPlan94", "zd 4", status);

   viv(j, 0, "eraPlan94", "j 4", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: