int eraApio13	(	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
	)

Definition at line 3 of file apio13.c.

References eraApio(), eraEra00(), eraRefco(), eraSp00(), eraTaitt(), eraUtctai(), and eraUtcut1().

Referenced by eraAtio13(), eraAtoi13(), t_apio13(), t_atioq(), and t_atoiq().

{
   int j;
   double tai1, tai2, tt1, tt2, ut11, ut12, sp, theta, 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;

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

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

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

/* CIRS <-> observed astrometry parameters. */
   eraApio(sp, theta, elong, phi, hm, xp, yp, refa, refb, astrom);

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

/* Finished. */

}

Here is the call graph for this function:

Here is the caller graph for this function: