int eraAtoc13	(	const char *	type,
		double	ob1,
		double	ob2,
		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 *	rc,
		double *	dc
	)

Definition at line 3 of file atoc13.c.

References eraApco13(), eraAticq(), and eraAtoiq().

Referenced by t_atoc13().

{
   int j;
   eraASTROM astrom;
   double eo, 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 observed to CIRS. */
   eraAtoiq(type, ob1, ob2, &astrom, &ri, &di);

/* Transform CIRS to ICRS. */
   eraAticq(ri, di, &astrom, rc, dc);

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

/* Finished. */

}

Here is the call graph for this function:

Here is the caller graph for this function: