void eraApio	(	double	sp,
		double	theta,
		double	elong,
		double	phi,
		double	hm,
		double	xp,
		double	yp,
		double	refa,
		double	refb,
		eraASTROM *	astrom
	)

Definition at line 3 of file apio.c.

References eraASTROM::along, eraASTROM::cphi, eraASTROM::diurab, eraAper(), eraPvtob(), ERFA_CMPS, eraASTROM::refa, eraASTROM::refb, eraASTROM::sphi, eraASTROM::xpl, and eraASTROM::ypl.

Referenced by eraApio13(), and t_apio().

{
   double sl, cl, pv[2][3];

/* Longitude with adjustment for TIO locator s'. */
   astrom->along = elong + sp;

/* Polar motion, rotated onto the local meridian. */
   sl = sin(astrom->along);
   cl = cos(astrom->along);
   astrom->xpl = xp*cl - yp*sl;
   astrom->ypl = xp*sl + yp*cl;

/* Functions of latitude. */
   astrom->sphi = sin(phi);
   astrom->cphi = cos(phi);

/* Observer's geocentric position and velocity (m, m/s, CIRS). */
   eraPvtob(elong, phi, hm, xp, yp, sp, theta, pv);

/* Magnitude of diurnal aberration vector. */
   astrom->diurab = sqrt(pv[1][0]*pv[1][0]+pv[1][1]*pv[1][1]) / ERFA_CMPS;

/* Refraction constants. */
   astrom->refa = refa;
   astrom->refb = refb;

/* Local Earth rotation angle. */
   eraAper(theta, astrom);

/* Finished. */

}

Here is the call graph for this function:

Here is the caller graph for this function: