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

Definition at line 865 of file t_erfa_c.c.

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

Referenced by main().

880 {
881  double date1, date2, pv[2][3];
882  eraASTROM astrom;
883 
884 
885  date1 = 2456165.5;
886  date2 = 0.401182685;
887  pv[0][0] = -6241497.16;
888  pv[0][1] = 401346.896;
889  pv[0][2] = -1251136.04;
890  pv[1][0] = -29.264597;
891  pv[1][1] = -455.021831;
892  pv[1][2] = 0.0266151194;
893 
894  eraApcs13(date1, date2, pv, &astrom);
895 
896  vvd(astrom.pmt, 12.65133794027378508, 1e-11,
897  "eraApcs13", "pmt", status);
898  vvd(astrom.eb[0], 0.9012691529023298391, 1e-12,
899  "eraApcs13", "eb(1)", status);
900  vvd(astrom.eb[1], -0.4173999812023068781, 1e-12,
901  "eraApcs13", "eb(2)", status);
902  vvd(astrom.eb[2], -0.1809906511146821008, 1e-12,
903  "eraApcs13", "eb(3)", status);
904  vvd(astrom.eh[0], 0.8939939101759726824, 1e-12,
905  "eraApcs13", "eh(1)", status);
906  vvd(astrom.eh[1], -0.4111053891734599955, 1e-12,
907  "eraApcs13", "eh(2)", status);
908  vvd(astrom.eh[2], -0.1782336880637689334, 1e-12,
909  "eraApcs13", "eh(3)", status);
910  vvd(astrom.em, 1.010428384373318379, 1e-12,
911  "eraApcs13", "em", status);
912  vvd(astrom.v[0], 0.4279877278327626511e-4, 1e-16,
913  "eraApcs13", "v(1)", status);
914  vvd(astrom.v[1], 0.7963255057040027770e-4, 1e-16,
915  "eraApcs13", "v(2)", status);
916  vvd(astrom.v[2], 0.3517564000441374759e-4, 1e-16,
917  "eraApcs13", "v(3)", status);
918  vvd(astrom.bm1, 0.9999999952947981330, 1e-12,
919  "eraApcs13", "bm1", status);
920  vvd(astrom.bpn[0][0], 1, 0,
921  "eraApcs13", "bpn(1,1)", status);
922  vvd(astrom.bpn[1][0], 0, 0,
923  "eraApcs13", "bpn(2,1)", status);
924  vvd(astrom.bpn[2][0], 0, 0,
925  "eraApcs13", "bpn(3,1)", status);
926  vvd(astrom.bpn[0][1], 0, 0,
927  "eraApcs13", "bpn(1,2)", status);
928  vvd(astrom.bpn[1][1], 1, 0,
929  "eraApcs13", "bpn(2,2)", status);
930  vvd(astrom.bpn[2][1], 0, 0,
931  "eraApcs13", "bpn(3,2)", status);
932  vvd(astrom.bpn[0][2], 0, 0,
933  "eraApcs13", "bpn(1,3)", status);
934  vvd(astrom.bpn[1][2], 0, 0,
935  "eraApcs13", "bpn(2,3)", status);
936  vvd(astrom.bpn[2][2], 1, 0,
937  "eraApcs13", "bpn(3,3)", status);
938 
939 }
eraASTROM::pmt
double pmt
Definition: erfam.h:17
eraASTROM::eh
double eh[3]
Definition: erfam.h:19
vvd
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
Definition: t_erfa_c.c:58
eraASTROM::bpn
double bpn[3][3]
Definition: erfam.h:23
eraASTROM::v
double v[3]
Definition: erfam.h:21
eraASTROM::eb
double eb[3]
Definition: erfam.h:18
eraASTROM::em
double em
Definition: erfam.h:20
eraASTROM::bm1
double bm1
Definition: erfam.h:22
eraApcs13
void eraApcs13(double date1, double date2, double pv[2][3], eraASTROM *astrom)
Definition: apcs13.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: