static void t_atioq ( int *  status )

static

Definition at line 1511 of file t_erfa_c.c.

References eraApio13(), eraAtioq(), and vvd().

Referenced by main().

{
   double utc1, utc2, dut1, elong, phi, hm, xp, yp,
          phpa, tc, rh, wl, ri, di, aob, zob, hob, dob, rob;
   eraASTROM astrom;


   utc1 = 2456384.5;
   utc2 = 0.969254051;
   dut1 = 0.1550675;
   elong = -0.527800806;
   phi = -1.2345856;
   hm = 2738.0;
   xp = 2.47230737e-7;
   yp = 1.82640464e-6;
   phpa = 731.0;
   tc = 12.8;
   rh = 0.59;
   wl = 0.55;
   (void) eraApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
                    phpa, tc, rh, wl, &astrom);
   ri = 2.710121572969038991;
   di = 0.1729371367218230438;

   eraAtioq(ri, di, &astrom, &aob, &zob, &hob, &dob, &rob);

   vvd(aob, 0.09233952224794989993, 1e-12, "eraAtioq", "aob", status);
   vvd(zob, 1.407758704513722461, 1e-12, "eraAtioq", "zob", status);
   vvd(hob, -0.09247619879782006106, 1e-12, "eraAtioq", "hob", status);
   vvd(dob, 0.1717653435758265198, 1e-12, "eraAtioq", "dob", status);
   vvd(rob, 2.710085107986886201, 1e-12, "eraAtioq", "rob", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: