static void t_apcg13 ( int *  status )

static

Definition at line 340 of file t_erfa_c.c.

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

Referenced by main().

{
   double date1, date2;
   eraASTROM astrom;


   date1 = 2456165.5;
   date2 = 0.401182685;

   eraApcg13(date1, date2, &astrom);

   vvd(astrom.pmt, 12.65133794027378508, 1e-11,
                   "eraApcg13", "pmt", status);
   vvd(astrom.eb[0], 0.9013108747340644755, 1e-12,
                   "eraApcg13", "eb(1)", status);
   vvd(astrom.eb[1], -0.4174026640406119957, 1e-12,
                   "eraApcg13", "eb(2)", status);
   vvd(astrom.eb[2], -0.1809822877867817771, 1e-12,
                   "eraApcg13", "eb(3)", status);
   vvd(astrom.eh[0], 0.8940025429255499549, 1e-12,
                   "eraApcg13", "eh(1)", status);
   vvd(astrom.eh[1], -0.4110930268331896318, 1e-12,
                   "eraApcg13", "eh(2)", status);
   vvd(astrom.eh[2], -0.1782189006019749850, 1e-12,
                   "eraApcg13", "eh(3)", status);
   vvd(astrom.em, 1.010465295964664178, 1e-12,
                   "eraApcg13", "em", status);
   vvd(astrom.v[0], 0.4289638897157027528e-4, 1e-16,
                   "eraApcg13", "v(1)", status);
   vvd(astrom.v[1], 0.8115034002544663526e-4, 1e-16,
                   "eraApcg13", "v(2)", status);
   vvd(astrom.v[2], 0.3517555122593144633e-4, 1e-16,
                   "eraApcg13", "v(3)", status);
   vvd(astrom.bm1, 0.9999999951686013498, 1e-12,
                   "eraApcg13", "bm1", status);
   vvd(astrom.bpn[0][0], 1.0, 0.0,
                         "eraApcg13", "bpn(1,1)", status);
   vvd(astrom.bpn[1][0], 0.0, 0.0,
                         "eraApcg13", "bpn(2,1)", status);
   vvd(astrom.bpn[2][0], 0.0, 0.0,
                         "eraApcg13", "bpn(3,1)", status);
   vvd(astrom.bpn[0][1], 0.0, 0.0,
                         "eraApcg13", "bpn(1,2)", status);
   vvd(astrom.bpn[1][1], 1.0, 0.0,
                         "eraApcg13", "bpn(2,2)", status);
   vvd(astrom.bpn[2][1], 0.0, 0.0,
                         "eraApcg13", "bpn(3,2)", status);
   vvd(astrom.bpn[0][2], 0.0, 0.0,
                         "eraApcg13", "bpn(1,3)", status);
   vvd(astrom.bpn[1][2], 0.0, 0.0,
                         "eraApcg13", "bpn(2,3)", status);
   vvd(astrom.bpn[2][2], 1.0, 0.0,
                         "eraApcg13", "bpn(3,3)", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: