static void t_apci ( int *  status )

static

Definition at line 410 of file t_erfa_c.c.

References eraASTROM::bm1, eraASTROM::bpn, eraASTROM::eb, eraASTROM::eh, eraASTROM::em, eraApci(), eraASTROM::pmt, eraASTROM::v, and vvd().

Referenced by main().

{
   double date1, date2, ebpv[2][3], ehp[3], x, y, s;
   eraASTROM astrom;


   date1 = 2456165.5;
   date2 = 0.401182685;
   ebpv[0][0] =  0.901310875;
   ebpv[0][1] = -0.417402664;
   ebpv[0][2] = -0.180982288;
   ebpv[1][0] =  0.00742727954;
   ebpv[1][1] =  0.0140507459;
   ebpv[1][2] =  0.00609045792;
   ehp[0] =  0.903358544;
   ehp[1] = -0.415395237;
   ehp[2] = -0.180084014;
   x =  0.0013122272;
   y = -2.92808623e-5;
   s =  3.05749468e-8;

   eraApci(date1, date2, ebpv, ehp, x, y, s, &astrom);

   vvd(astrom.pmt, 12.65133794027378508, 1e-11,
                   "eraApci", "pmt", status);
   vvd(astrom.eb[0], 0.901310875, 1e-12,
                     "eraApci", "eb(1)", status);
   vvd(astrom.eb[1], -0.417402664, 1e-12,
                     "eraApci", "eb(2)", status);
   vvd(astrom.eb[2], -0.180982288, 1e-12,
                     "eraApci", "eb(3)", status);
   vvd(astrom.eh[0], 0.8940025429324143045, 1e-12,
                     "eraApci", "eh(1)", status);
   vvd(astrom.eh[1], -0.4110930268679817955, 1e-12,
                     "eraApci", "eh(2)", status);
   vvd(astrom.eh[2], -0.1782189004872870264, 1e-12,
                     "eraApci", "eh(3)", status);
   vvd(astrom.em, 1.010465295811013146, 1e-12,
                  "eraApci", "em", status);
   vvd(astrom.v[0], 0.4289638897813379954e-4, 1e-16,
                    "eraApci", "v(1)", status);
   vvd(astrom.v[1], 0.8115034021720941898e-4, 1e-16,
                    "eraApci", "v(2)", status);
   vvd(astrom.v[2], 0.3517555123437237778e-4, 1e-16,
                    "eraApci", "v(3)", status);
   vvd(astrom.bm1, 0.9999999951686013336, 1e-12,
                   "eraApci", "bm1", status);
   vvd(astrom.bpn[0][0], 0.9999991390295159156, 1e-12,
                         "eraApci", "bpn(1,1)", status);
   vvd(astrom.bpn[1][0], 0.4978650072505016932e-7, 1e-12,
                         "eraApci", "bpn(2,1)", status);
   vvd(astrom.bpn[2][0], 0.1312227200000000000e-2, 1e-12,
                         "eraApci", "bpn(3,1)", status);
   vvd(astrom.bpn[0][1], -0.1136336653771609630e-7, 1e-12,
                         "eraApci", "bpn(1,2)", status);
   vvd(astrom.bpn[1][1], 0.9999999995713154868, 1e-12,
                         "eraApci", "bpn(2,2)", status);
   vvd(astrom.bpn[2][1], -0.2928086230000000000e-4, 1e-12,
                         "eraApci", "bpn(3,2)", status);
   vvd(astrom.bpn[0][2], -0.1312227200895260194e-2, 1e-12,
                         "eraApci", "bpn(1,3)", status);
   vvd(astrom.bpn[1][2], 0.2928082217872315680e-4, 1e-12,
                         "eraApci", "bpn(2,3)", status);
   vvd(astrom.bpn[2][2], 0.9999991386008323373, 1e-12,
                         "eraApci", "bpn(3,3)", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: