static void t_atco13 ( int *  status )

static

Definition at line 1283 of file t_erfa_c.c.

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

Referenced by main().

{
   double rc, dc, pr, pd, px, rv, utc1, utc2, dut1,
          elong, phi, hm, xp, yp, phpa, tc, rh, wl,
          aob, zob, hob, dob, rob, eo;
   int j;


   rc = 2.71;
   dc = 0.174;
   pr = 1e-5;
   pd = 5e-6;
   px = 0.1;
   rv = 55.0;
   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;

   j = eraAtco13(rc, dc, pr, pd, px, rv,
                 utc1, utc2, dut1, elong, phi, hm, xp, yp,
                 phpa, tc, rh, wl,
                 &aob, &zob, &hob, &dob, &rob, &eo);

   vvd(aob, 0.09251774485358230653, 1e-12, "eraAtco13", "aob", status);
   vvd(zob, 1.407661405256767021, 1e-12, "eraAtco13", "zob", status);
   vvd(hob, -0.09265154431403157925, 1e-12, "eraAtco13", "hob", status);
   vvd(dob, 0.1716626560075591655, 1e-12, "eraAtco13", "dob", status);
   vvd(rob, 2.710260453503097719, 1e-12, "eraAtco13", "rob", status);
   vvd(eo, -0.003020548354802412839, 1e-14, "eraAtco13", "eo", status);
   viv(j, 0, "eraAtco13", "j", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: