FACT++  1.0
static void t_apcg ( int *  status)
static

Definition at line 261 of file t_erfa_c.c.

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

Referenced by main().

276 {
277  double date1, date2, ebpv[2][3], ehp[3];
278  eraASTROM astrom;
279 
280 
281  date1 = 2456165.5;
282  date2 = 0.401182685;
283  ebpv[0][0] = 0.901310875;
284  ebpv[0][1] = -0.417402664;
285  ebpv[0][2] = -0.180982288;
286  ebpv[1][0] = 0.00742727954;
287  ebpv[1][1] = 0.0140507459;
288  ebpv[1][2] = 0.00609045792;
289  ehp[0] = 0.903358544;
290  ehp[1] = -0.415395237;
291  ehp[2] = -0.180084014;
292 
293  eraApcg(date1, date2, ebpv, ehp, &astrom);
294 
295  vvd(astrom.pmt, 12.65133794027378508, 1e-11,
296  "eraApcg", "pmt", status);
297  vvd(astrom.eb[0], 0.901310875, 1e-12,
298  "eraApcg", "eb(1)", status);
299  vvd(astrom.eb[1], -0.417402664, 1e-12,
300  "eraApcg", "eb(2)", status);
301  vvd(astrom.eb[2], -0.180982288, 1e-12,
302  "eraApcg", "eb(3)", status);
303  vvd(astrom.eh[0], 0.8940025429324143045, 1e-12,
304  "eraApcg", "eh(1)", status);
305  vvd(astrom.eh[1], -0.4110930268679817955, 1e-12,
306  "eraApcg", "eh(2)", status);
307  vvd(astrom.eh[2], -0.1782189004872870264, 1e-12,
308  "eraApcg", "eh(3)", status);
309  vvd(astrom.em, 1.010465295811013146, 1e-12,
310  "eraApcg", "em", status);
311  vvd(astrom.v[0], 0.4289638897813379954e-4, 1e-16,
312  "eraApcg", "v(1_", status);
313  vvd(astrom.v[1], 0.8115034021720941898e-4, 1e-16,
314  "eraApcg", "v(2)", status);
315  vvd(astrom.v[2], 0.3517555123437237778e-4, 1e-16,
316  "eraApcg", "v(3)", status);
317  vvd(astrom.bm1, 0.9999999951686013336, 1e-12,
318  "eraApcg", "bm1", status);
319  vvd(astrom.bpn[0][0], 1.0, 0.0,
320  "eraApcg", "bpn(1,1)", status);
321  vvd(astrom.bpn[1][0], 0.0, 0.0,
322  "eraApcg", "bpn(2,1)", status);
323  vvd(astrom.bpn[2][0], 0.0, 0.0,
324  "eraApcg", "bpn(3,1)", status);
325  vvd(astrom.bpn[0][1], 0.0, 0.0,
326  "eraApcg", "bpn(1,2)", status);
327  vvd(astrom.bpn[1][1], 1.0, 0.0,
328  "eraApcg", "bpn(2,2)", status);
329  vvd(astrom.bpn[2][1], 0.0, 0.0,
330  "eraApcg", "bpn(3,2)", status);
331  vvd(astrom.bpn[0][2], 0.0, 0.0,
332  "eraApcg", "bpn(1,3)", status);
333  vvd(astrom.bpn[1][2], 0.0, 0.0,
334  "eraApcg", "bpn(2,3)", status);
335  vvd(astrom.bpn[2][2], 1.0, 0.0,
336  "eraApcg", "bpn(3,3)", status);
337 
338 }
double pmt
Definition: erfam.h:17
double eh[3]
Definition: erfam.h:19
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
Definition: t_erfa_c.c:58
void eraApcg(double date1, double date2, double ebpv[2][3], double ehp[3], eraASTROM *astrom)
Definition: apcg.c:3
double bpn[3][3]
Definition: erfam.h:23
double v[3]
Definition: erfam.h:21
double eb[3]
Definition: erfam.h:18
double em
Definition: erfam.h:20
double bm1
Definition: erfam.h:22

+ Here is the call graph for this function:

+ Here is the caller graph for this function: