277 double date1, date2, ebpv[2][3], ehp[3];
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;
293 eraApcg(date1, date2, ebpv, ehp, &astrom);
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);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraApcg(double date1, double date2, double ebpv[2][3], double ehp[3], eraASTROM *astrom)