void eraApco	(	double	date1,
		double	date2,
		double	ebpv[2][3],
		double	ehp[3],
		double	x,
		double	y,
		double	s,
		double	theta,
		double	elong,
		double	phi,
		double	hm,
		double	xp,
		double	yp,
		double	sp,
		double	refa,
		double	refb,
		eraASTROM *	astrom
	)

Definition at line 3 of file apco.c.

References eraASTROM::along, eraASTROM::bpn, eraASTROM::cphi, eraASTROM::diurab, eraApcs(), eraAper(), eraC2ixys(), eraCr(), eraPvtob(), eraTrxpv(), eraASTROM::refa, eraASTROM::refb, eraASTROM::sphi, eraASTROM::xpl, and eraASTROM::ypl.

Referenced by eraApco13(), and t_apco().

{
   double sl, cl, r[3][3], pvc[2][3], 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);

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

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

/* Disable the (redundant) diurnal aberration step. */
   astrom->diurab = 0.0;

/* CIO based BPN matrix. */
   eraC2ixys(x, y, s, r);

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

/* Rotate into GCRS. */
   eraTrxpv(r, pvc, pv);

/* ICRS <-> GCRS parameters. */
   eraApcs(date1, date2, pv, ebpv, ehp, astrom);

/* Store the CIO based BPN matrix. */
   eraCr(r, astrom->bpn );

/* Finished. */

}

Here is the call graph for this function:

Here is the caller graph for this function: