void eraC2s	(	double	p[3],
		double *	theta,
		double *	phi
	)

Definition at line 3 of file c2s.c.

Referenced by eraAtciq(), eraAtciqn(), eraAtciqz(), eraAticq(), eraAticqn(), eraAtioq(), eraAtoiq(), eraFk5hz(), eraG2icrs(), eraIcrs2g(), eraP2s(), palAddet(), palAmpqk(), palDcc2s(), palEcleq(), palEqecl(), palEqgal(), palFk45z(), palGaleq(), palGalsup(), palGe50(), palMapqk(), palMapqkz(), palPlantu(), palPreces(), palRdplan(), palSubet(), palSupgal(), and t_c2s().

{
   double x, y, z, d2;

   x  = p[0];
   y  = p[1];
   z  = p[2];
   d2 = x*x + y*y;

   *theta = (d2 == 0.0) ? 0.0 : atan2(y, x);
   *phi = (z == 0.0) ? 0.0 : atan2(z, sqrt(d2));

   return;

}

Here is the caller graph for this function: