static void t_apco ( int *  status )

static

Definition at line 564 of file t_erfa_c.c.

References eraASTROM::along, eraASTROM::bm1, eraASTROM::bpn, eraASTROM::cphi, eraASTROM::diurab, eraASTROM::eb, eraASTROM::eh, eraASTROM::em, eraApco(), eraASTROM::eral, eraASTROM::pmt, eraASTROM::refa, eraASTROM::refb, eraASTROM::sphi, eraASTROM::v, vvd(), eraASTROM::xpl, and eraASTROM::ypl.

Referenced by main().

{
   double date1, date2, ebpv[2][3], ehp[3], x, y, s,
          theta, elong, phi, hm, xp, yp, sp, refa, refb;
   eraASTROM astrom;


   date1 = 2456384.5;
   date2 = 0.970031644;
   ebpv[0][0] = -0.974170438;
   ebpv[0][1] = -0.211520082;
   ebpv[0][2] = -0.0917583024;
   ebpv[1][0] = 0.00364365824;
   ebpv[1][1] = -0.0154287319;
   ebpv[1][2] = -0.00668922024;
   ehp[0] = -0.973458265;
   ehp[1] = -0.209215307;
   ehp[2] = -0.0906996477;
   x = 0.0013122272;
   y = -2.92808623e-5;
   s = 3.05749468e-8;
   theta = 3.14540971;
   elong = -0.527800806;
   phi = -1.2345856;
   hm = 2738.0;
   xp = 2.47230737e-7;
   yp = 1.82640464e-6;
   sp = -3.01974337e-11;
   refa = 0.000201418779;
   refb = -2.36140831e-7;

   eraApco(date1, date2, ebpv, ehp, x, y, s,
           theta, elong, phi, hm, xp, yp, sp,
           refa, refb, &astrom);

   vvd(astrom.pmt, 13.25248468622587269, 1e-11,
                   "eraApco", "pmt", status);
   vvd(astrom.eb[0], -0.9741827110630897003, 1e-12,
                     "eraApco", "eb(1)", status);
   vvd(astrom.eb[1], -0.2115130190135014340, 1e-12,
                     "eraApco", "eb(2)", status);
   vvd(astrom.eb[2], -0.09179840186968295686, 1e-12,
                     "eraApco", "eb(3)", status);
   vvd(astrom.eh[0], -0.9736425571689670428, 1e-12,
                     "eraApco", "eh(1)", status);
   vvd(astrom.eh[1], -0.2092452125848862201, 1e-12,
                     "eraApco", "eh(2)", status);
   vvd(astrom.eh[2], -0.09075578152261439954, 1e-12,
                     "eraApco", "eh(3)", status);
   vvd(astrom.em, 0.9998233241710617934, 1e-12,
                  "eraApco", "em", status);
   vvd(astrom.v[0], 0.2078704985147609823e-4, 1e-16,
                    "eraApco", "v(1)", status);
   vvd(astrom.v[1], -0.8955360074407552709e-4, 1e-16,
                    "eraApco", "v(2)", status);
   vvd(astrom.v[2], -0.3863338980073114703e-4, 1e-16,
                    "eraApco", "v(3)", status);
   vvd(astrom.bm1, 0.9999999950277561600, 1e-12,
                   "eraApco", "bm1", status);
   vvd(astrom.bpn[0][0], 0.9999991390295159156, 1e-12,
                         "eraApco", "bpn(1,1)", status);
   vvd(astrom.bpn[1][0], 0.4978650072505016932e-7, 1e-12,
                         "eraApco", "bpn(2,1)", status);
   vvd(astrom.bpn[2][0], 0.1312227200000000000e-2, 1e-12,
                         "eraApco", "bpn(3,1)", status);
   vvd(astrom.bpn[0][1], -0.1136336653771609630e-7, 1e-12,
                         "eraApco", "bpn(1,2)", status);
   vvd(astrom.bpn[1][1], 0.9999999995713154868, 1e-12,
                         "eraApco", "bpn(2,2)", status);
   vvd(astrom.bpn[2][1], -0.2928086230000000000e-4, 1e-12,
                         "eraApco", "bpn(3,2)", status);
   vvd(astrom.bpn[0][2], -0.1312227200895260194e-2, 1e-12,
                         "eraApco", "bpn(1,3)", status);
   vvd(astrom.bpn[1][2], 0.2928082217872315680e-4, 1e-12,
                         "eraApco", "bpn(2,3)", status);
   vvd(astrom.bpn[2][2], 0.9999991386008323373, 1e-12,
                         "eraApco", "bpn(3,3)", status);
   vvd(astrom.along, -0.5278008060301974337, 1e-12,
                     "eraApco", "along", status);
   vvd(astrom.xpl, 0.1133427418174939329e-5, 1e-17,
                   "eraApco", "xpl", status);
   vvd(astrom.ypl, 0.1453347595745898629e-5, 1e-17,
                   "eraApco", "ypl", status);
   vvd(astrom.sphi, -0.9440115679003211329, 1e-12,
                    "eraApco", "sphi", status);
   vvd(astrom.cphi, 0.3299123514971474711, 1e-12,
                    "eraApco", "cphi", status);
   vvd(astrom.diurab, 0, 0,
                      "eraApco", "diurab", status);
   vvd(astrom.eral, 2.617608903969802566, 1e-12,
                    "eraApco", "eral", status);
   vvd(astrom.refa, 0.2014187790000000000e-3, 1e-15,
                    "eraApco", "refa", status);
   vvd(astrom.refb, -0.2361408310000000000e-6, 1e-18,
                    "eraApco", "refb", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: