int eraAtco13	(	double	rc,
		double	dc,
		double	pr,
		double	pd,
		double	px,
		double	rv,
		double	utc1,
		double	utc2,
		double	dut1,
		double	elong,
		double	phi,
		double	hm,
		double	xp,
		double	yp,
		double	phpa,
		double	tc,
		double	rh,
		double	wl,
		double *	aob,
		double *	zob,
		double *	hob,
		double *	dob,
		double *	rob,
		double *	eo
	)

Definition at line 3 of file atco13.c.

References eraApco13(), eraAtciq(), and eraAtioq().

Referenced by t_atco13().

{
   int j;
   eraASTROM astrom;
   double ri, di;

/* Star-independent astrometry parameters. */
   j = eraApco13(utc1, utc2, dut1, elong, phi, hm, xp, yp,
                 phpa, tc, rh, wl, &astrom, eo);

/* Abort if bad UTC. */
   if ( j < 0 ) return j;

/* Transform ICRS to CIRS. */
   eraAtciq(rc, dc, pr, pd, px, rv, &astrom, &ri, &di);

/* Transform CIRS to observed. */
   eraAtioq(ri, di, &astrom, aob, zob, hob, dob, rob);

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

/* Finished. */

}

Here is the call graph for this function:

Here is the caller graph for this function: