static void t_apco13 ( int *  status )

static

Definition at line 676 of file t_erfa_c.c.

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

Referenced by main().

{
   double utc1, utc2, dut1, elong, phi, hm, xp, yp,
          phpa, tc, rh, wl, eo;
   eraASTROM astrom;
   int j;


   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 = eraApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
                 phpa, tc, rh, wl, &astrom, &eo);

   vvd(astrom.pmt, 13.25248468622475727, 1e-11,
                   "eraApco13", "pmt", status);
   vvd(astrom.eb[0], -0.9741827107321449445, 1e-12,
                   "eraApco13", "eb(1)", status);
   vvd(astrom.eb[1], -0.2115130190489386190, 1e-12,
                     "eraApco13", "eb(2)", status);
   vvd(astrom.eb[2], -0.09179840189515518726, 1e-12,
                     "eraApco13", "eb(3)", status);
   vvd(astrom.eh[0], -0.9736425572586866640, 1e-12,
                     "eraApco13", "eh(1)", status);
   vvd(astrom.eh[1], -0.2092452121602867431, 1e-12,
                     "eraApco13", "eh(2)", status);
   vvd(astrom.eh[2], -0.09075578153903832650, 1e-12,
                     "eraApco13", "eh(3)", status);
   vvd(astrom.em, 0.9998233240914558422, 1e-12,
                  "eraApco13", "em", status);
   vvd(astrom.v[0], 0.2078704986751370303e-4, 1e-16,
                    "eraApco13", "v(1)", status);
   vvd(astrom.v[1], -0.8955360100494469232e-4, 1e-16,
                    "eraApco13", "v(2)", status);
   vvd(astrom.v[2], -0.3863338978840051024e-4, 1e-16,
                    "eraApco13", "v(3)", status);
   vvd(astrom.bm1, 0.9999999950277561368, 1e-12,
                   "eraApco13", "bm1", status);
   vvd(astrom.bpn[0][0], 0.9999991390295147999, 1e-12,
                         "eraApco13", "bpn(1,1)", status);
   vvd(astrom.bpn[1][0], 0.4978650075315529277e-7, 1e-12,
                         "eraApco13", "bpn(2,1)", status);
   vvd(astrom.bpn[2][0], 0.001312227200850293372, 1e-12,
                         "eraApco13", "bpn(3,1)", status);
   vvd(astrom.bpn[0][1], -0.1136336652812486604e-7, 1e-12,
                         "eraApco13", "bpn(1,2)", status);
   vvd(astrom.bpn[1][1], 0.9999999995713154865, 1e-12,
                         "eraApco13", "bpn(2,2)", status);
   vvd(astrom.bpn[2][1], -0.2928086230975367296e-4, 1e-12,
                         "eraApco13", "bpn(3,2)", status);
   vvd(astrom.bpn[0][2], -0.001312227201745553566, 1e-12,
                         "eraApco13", "bpn(1,3)", status);
   vvd(astrom.bpn[1][2], 0.2928082218847679162e-4, 1e-12,
                         "eraApco13", "bpn(2,3)", status);
   vvd(astrom.bpn[2][2], 0.9999991386008312212, 1e-12,
                         "eraApco13", "bpn(3,3)", status);
   vvd(astrom.along, -0.5278008060301974337, 1e-12,
                     "eraApco13", "along", status);
   vvd(astrom.xpl, 0.1133427418174939329e-5, 1e-17,
                   "eraApco13", "xpl", status);
   vvd(astrom.ypl, 0.1453347595745898629e-5, 1e-17,
                   "eraApco13", "ypl", status);
   vvd(astrom.sphi, -0.9440115679003211329, 1e-12,
                    "eraApco13", "sphi", status);
   vvd(astrom.cphi, 0.3299123514971474711, 1e-12,
                    "eraApco13", "cphi", status);
   vvd(astrom.diurab, 0, 0,
                      "eraApco13", "diurab", status);
   vvd(astrom.eral, 2.617608909189066140, 1e-12,
                    "eraApco13", "eral", status);
   vvd(astrom.refa, 0.2014187785940396921e-3, 1e-15,
                    "eraApco13", "refa", status);
   vvd(astrom.refb, -0.2361408314943696227e-6, 1e-18,
                    "eraApco13", "refb", status);
   vvd(eo, -0.003020548354802412839, 1e-14,
           "eraApco13", "eo", status);
   viv(j, 0, "eraApco13", "j", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: