FACT++  1.0
void eraAtciqn ( double  rc,
double  dc,
double  pr,
double  pd,
double  px,
double  rv,
eraASTROM astrom,
int  n,
eraLDBODY  b[],
double *  ri,
double *  di 
)

Definition at line 3 of file atciqn.c.

References eraASTROM::bm1, eraASTROM::bpn, eraASTROM::eb, eraASTROM::em, eraAb(), eraAnp(), eraC2s(), eraLdn(), eraPmpx(), eraRxp(), eraASTROM::pmt, and eraASTROM::v.

Referenced by t_atciqn().

106 {
107  double pco[3], pnat[3], ppr[3], pi[3], w;
108 
109 /* Proper motion and parallax, giving BCRS coordinate direction. */
110  eraPmpx(rc, dc, pr, pd, px, rv, astrom->pmt, astrom->eb, pco);
111 
112 /* Light deflection, giving BCRS natural direction. */
113  eraLdn(n, b, astrom->eb, pco, pnat);
114 
115 /* Aberration, giving GCRS proper direction. */
116  eraAb(pnat, astrom->v, astrom->em, astrom->bm1, ppr);
117 
118 /* Bias-precession-nutation, giving CIRS proper direction. */
119  eraRxp(astrom->bpn, ppr, pi);
120 
121 /* CIRS RA,Dec. */
122  eraC2s(pi, &w, di);
123  *ri = eraAnp(w);
124 
125 /* Finished. */
126 
127 }
void eraPmpx(double rc, double dc, double pr, double pd, double px, double rv, double pmt, double pob[3], double pco[3])
Definition: pmpx.c:3
void eraAb(double pnat[3], double v[3], double s, double bm1, double ppr[3])
Definition: ab.c:3
double pmt
Definition: erfam.h:17
void eraC2s(double p[3], double *theta, double *phi)
Definition: c2s.c:3
void eraRxp(double r[3][3], double p[3], double rp[3])
Definition: rxp.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 eraAnp(double a)
Definition: anp.c:3
double em
Definition: erfam.h:20
double bm1
Definition: erfam.h:22
void eraLdn(int n, eraLDBODY b[], double ob[3], double sc[3], double sn[3])
Definition: ldn.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: