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

Definition at line 780 of file t_erfa_c.c.

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

Referenced by main().

795 {
796  double date1, date2, pv[2][3], ebpv[2][3], ehp[3];
797  eraASTROM astrom;
798 
799 
800  date1 = 2456384.5;
801  date2 = 0.970031644;
802  pv[0][0] = -1836024.09;
803  pv[0][1] = 1056607.72;
804  pv[0][2] = -5998795.26;
805  pv[1][0] = -77.0361767;
806  pv[1][1] = -133.310856;
807  pv[1][2] = 0.0971855934;
808  ebpv[0][0] = -0.974170438;
809  ebpv[0][1] = -0.211520082;
810  ebpv[0][2] = -0.0917583024;
811  ebpv[1][0] = 0.00364365824;
812  ebpv[1][1] = -0.0154287319;
813  ebpv[1][2] = -0.00668922024;
814  ehp[0] = -0.973458265;
815  ehp[1] = -0.209215307;
816  ehp[2] = -0.0906996477;
817 
818  eraApcs(date1, date2, pv, ebpv, ehp, &astrom);
819 
820  vvd(astrom.pmt, 13.25248468622587269, 1e-11,
821  "eraApcs", "pmt", status);
822  vvd(astrom.eb[0], -0.9741827110630456169, 1e-12,
823  "eraApcs", "eb(1)", status);
824  vvd(astrom.eb[1], -0.2115130190136085494, 1e-12,
825  "eraApcs", "eb(2)", status);
826  vvd(astrom.eb[2], -0.09179840186973175487, 1e-12,
827  "eraApcs", "eb(3)", status);
828  vvd(astrom.eh[0], -0.9736425571689386099, 1e-12,
829  "eraApcs", "eh(1)", status);
830  vvd(astrom.eh[1], -0.2092452125849967195, 1e-12,
831  "eraApcs", "eh(2)", status);
832  vvd(astrom.eh[2], -0.09075578152266466572, 1e-12,
833  "eraApcs", "eh(3)", status);
834  vvd(astrom.em, 0.9998233241710457140, 1e-12,
835  "eraApcs", "em", status);
836  vvd(astrom.v[0], 0.2078704985513566571e-4, 1e-16,
837  "eraApcs", "v(1)", status);
838  vvd(astrom.v[1], -0.8955360074245006073e-4, 1e-16,
839  "eraApcs", "v(2)", status);
840  vvd(astrom.v[2], -0.3863338980073572719e-4, 1e-16,
841  "eraApcs", "v(3)", status);
842  vvd(astrom.bm1, 0.9999999950277561601, 1e-12,
843  "eraApcs", "bm1", status);
844  vvd(astrom.bpn[0][0], 1, 0,
845  "eraApcs", "bpn(1,1)", status);
846  vvd(astrom.bpn[1][0], 0, 0,
847  "eraApcs", "bpn(2,1)", status);
848  vvd(astrom.bpn[2][0], 0, 0,
849  "eraApcs", "bpn(3,1)", status);
850  vvd(astrom.bpn[0][1], 0, 0,
851  "eraApcs", "bpn(1,2)", status);
852  vvd(astrom.bpn[1][1], 1, 0,
853  "eraApcs", "bpn(2,2)", status);
854  vvd(astrom.bpn[2][1], 0, 0,
855  "eraApcs", "bpn(3,2)", status);
856  vvd(astrom.bpn[0][2], 0, 0,
857  "eraApcs", "bpn(1,3)", status);
858  vvd(astrom.bpn[1][2], 0, 0,
859  "eraApcs", "bpn(2,3)", status);
860  vvd(astrom.bpn[2][2], 1, 0,
861  "eraApcs", "bpn(3,3)", status);
862 
863 }
eraApcs
void eraApcs(double date1, double date2, double pv[2][3], double ebpv[2][3], double ehp[3], eraASTROM *astrom)
Definition: apcs.c:3
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

+ Here is the call graph for this function:

+ Here is the caller graph for this function: