int eraApco13	(	double	utc1,
		double	utc2,
		double	dut1,
		double	elong,
		double	phi,
		double	hm,
		double	xp,
		double	yp,
		double	phpa,
		double	tc,
		double	rh,
		double	wl,
		eraASTROM *	astrom,
		double *	eo
	)

Definition at line 3 of file apco13.c.

References eraApco(), eraBpn2xy(), eraEors(), eraEpv00(), eraEra00(), eraPnm06a(), eraRefco(), eraS06(), eraSp00(), eraTaitt(), eraUtctai(), and eraUtcut1().

Referenced by eraAtco13(), eraAtoc13(), and t_apco13().

{
   int j;
   double tai1, tai2, tt1, tt2, ut11, ut12, ehpv[2][3], ebpv[2][3],
          r[3][3], x, y, s, theta, sp, refa, refb;

/* UTC to other time scales. */
   j = eraUtctai(utc1, utc2, &tai1, &tai2);
   if ( j < 0 ) return -1;
   j = eraTaitt(tai1, tai2, &tt1, &tt2);
   j = eraUtcut1(utc1, utc2, dut1, &ut11, &ut12);
   if ( j < 0 ) return -1;

/* Earth barycentric & heliocentric position/velocity (au, au/d). */
   (void) eraEpv00(tt1, tt2, ehpv, ebpv);

/* Form the equinox based BPN matrix, IAU 2006/2000A. */
   eraPnm06a(tt1, tt2, r);

/* Extract CIP X,Y. */
   eraBpn2xy(r, &x, &y);

/* Obtain CIO locator s. */
   s = eraS06(tt1, tt2, x, y);

/* Earth rotation angle. */
   theta = eraEra00(ut11, ut12);

/* TIO locator s'. */
   sp = eraSp00(tt1, tt2);

/* Refraction constants A and B. */
   eraRefco(phpa, tc, rh, wl, &refa, &refb);

/* Compute the star-independent astrometry parameters. */
   eraApco(tt1, tt2, ebpv, ehpv[0], x, y, s, theta,
           elong, phi, hm, xp, yp, sp, refa, refb, astrom);

/* Equation of the origins. */
   *eo = eraEors(r, s);

/* Return any warning status. */
   return j;

/* Finished. */

}

Here is the call graph for this function:

Here is the caller graph for this function: