static void t_apio ( int *  status )

static

Definition at line 1002 of file t_erfa_c.c.

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

Referenced by main().

{
   double sp, theta, elong, phi, hm, xp, yp, refa, refb;
   eraASTROM astrom;


   sp = -3.01974337e-11;
   theta = 3.14540971;
   elong = -0.527800806;
   phi = -1.2345856;
   hm = 2738.0;
   xp = 2.47230737e-7;
   yp = 1.82640464e-6;
   refa = 0.000201418779;
   refb = -2.36140831e-7;

   eraApio(sp, theta, elong, phi, hm, xp, yp, refa, refb, &astrom);

   vvd(astrom.along, -0.5278008060301974337, 1e-12,
                     "eraApio", "along", status);
   vvd(astrom.xpl, 0.1133427418174939329e-5, 1e-17,
                   "eraApio", "xpl", status);
   vvd(astrom.ypl, 0.1453347595745898629e-5, 1e-17,
                   "eraApio", "ypl", status);
   vvd(astrom.sphi, -0.9440115679003211329, 1e-12,
                    "eraApio", "sphi", status);
   vvd(astrom.cphi, 0.3299123514971474711, 1e-12,
                    "eraApio", "cphi", status);
   vvd(astrom.diurab, 0.5135843661699913529e-6, 1e-12,
                      "eraApio", "diurab", status);
   vvd(astrom.eral, 2.617608903969802566, 1e-12,
                    "eraApio", "eral", status);
   vvd(astrom.refa, 0.2014187790000000000e-3, 1e-15,
                    "eraApio", "refa", status);
   vvd(astrom.refb, -0.2361408310000000000e-6, 1e-18,
                    "eraApio", "refb", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: