static void t_aticqn ( int *  status )

static

Definition at line 1404 of file t_erfa_c.c.

References eraLDBODY::bm, eraLDBODY::dl, eraApci13(), eraAticqn(), eraLDBODY::pv, and vvd().

Referenced by main().

{
   double date1, date2, eo, ri, di, rc, dc;
   eraLDBODY b[3];
   eraASTROM astrom;


   date1 = 2456165.5;
   date2 = 0.401182685;
   eraApci13(date1, date2, &astrom, &eo);
   ri = 2.709994899247599271;
   di = 0.1728740720983623469;
   b[0].bm = 0.00028574;
   b[0].dl = 3e-10;
   b[0].pv[0][0] = -7.81014427;
   b[0].pv[0][1] = -5.60956681;
   b[0].pv[0][2] = -1.98079819;
   b[0].pv[1][0] =  0.0030723249;
   b[0].pv[1][1] = -0.00406995477;
   b[0].pv[1][2] = -0.00181335842;
   b[1].bm = 0.00095435;
   b[1].dl = 3e-9;
   b[1].pv[0][0] =  0.738098796;
   b[1].pv[0][1] =  4.63658692;
   b[1].pv[0][2] =  1.9693136;
   b[1].pv[1][0] = -0.00755816922;
   b[1].pv[1][1] =  0.00126913722;
   b[1].pv[1][2] =  0.000727999001;
   b[2].bm = 1.0;
   b[2].dl = 6e-6;
   b[2].pv[0][0] = -0.000712174377;
   b[2].pv[0][1] = -0.00230478303;
   b[2].pv[0][2] = -0.00105865966;
   b[2].pv[1][0] =  6.29235213e-6;
   b[2].pv[1][1] = -3.30888387e-7;
   b[2].pv[1][2] = -2.96486623e-7;

   eraAticqn(ri, di, &astrom, 3, b, &rc, &dc);

   vvd(rc, 2.709999575032685412, 1e-12, "eraAtciqn", "rc", status);
   vvd(dc, 0.1739999656317778034, 1e-12, "eraAtciqn", "dc", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: