static void t_apio13 ( int *  status )

static

Definition at line 1055 of file t_erfa_c.c.

References eraASTROM::along, eraASTROM::cphi, eraASTROM::diurab, eraApio13(), eraASTROM::eral, eraASTROM::refa, eraASTROM::refb, eraASTROM::sphi, viv(), vvd(), eraASTROM::xpl, and eraASTROM::ypl.

Referenced by main().

{
   double utc1, utc2, dut1, elong, phi, hm, xp, yp, phpa, tc, rh, wl;
   int j;
   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;

   j = eraApio13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
                 phpa, tc, rh, wl, &astrom);

   vvd(astrom.along, -0.5278008060301974337, 1e-12,
                     "eraApio13", "along", status);
   vvd(astrom.xpl, 0.1133427418174939329e-5, 1e-17,
                   "eraApio13", "xpl", status);
   vvd(astrom.ypl, 0.1453347595745898629e-5, 1e-17,
                   "eraApio13", "ypl", status);
   vvd(astrom.sphi, -0.9440115679003211329, 1e-12,
                    "eraApio13", "sphi", status);
   vvd(astrom.cphi, 0.3299123514971474711, 1e-12,
                    "eraApio13", "cphi", status);
   vvd(astrom.diurab, 0.5135843661699913529e-6, 1e-12,
                      "eraApio13", "diurab", status);
   vvd(astrom.eral, 2.617608909189066140, 1e-12,
                    "eraApio13", "eral", status);
   vvd(astrom.refa, 0.2014187785940396921e-3, 1e-15,
                    "eraApio13", "refa", status);
   vvd(astrom.refb, -0.2361408314943696227e-6, 1e-18,
                    "eraApio13", "refb", status);
   viv(j, 0, "eraApio13", "j", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: