void eraAtciqz	(	double	rc,
		double	dc,
		eraASTROM *	astrom,
		double *	ri,
		double *	di
	)

Definition at line 3 of file atciqz.c.

References eraASTROM::bm1, eraASTROM::bpn, eraASTROM::eh, eraASTROM::em, eraAb(), eraAnp(), eraC2s(), eraLdsun(), eraRxp(), eraS2c(), and eraASTROM::v.

Referenced by t_atciqz().

{
   double pco[3], pnat[3], ppr[3], pi[3], w;

/* BCRS coordinate direction (unit vector). */
   eraS2c(rc, dc, pco);

/* Light deflection by the Sun, giving BCRS natural direction. */
   eraLdsun(pco, astrom->eh, astrom->em, pnat);

/* Aberration, giving GCRS proper direction. */
   eraAb(pnat, astrom->v, astrom->em, astrom->bm1, ppr);

/* Bias-precession-nutation, giving CIRS proper direction. */
   eraRxp(astrom->bpn, ppr, pi);

/* CIRS RA,Dec. */
   eraC2s(pi, &w, di);
   *ri = eraAnp(w);

/* Finished. */

}

Here is the call graph for this function:

Here is the caller graph for this function: