void palDe2h	(	double	ha,
		double	dec,
		double	phi,
		double *	az,
		double *	el
	)

Definition at line 99 of file palDe2h.c.

References PAL__D2PI.

Referenced by t_e2h().

                                                                     {

  double sh;
  double ch;
  double sd;
  double cd;
  double sp;
  double cp;

  double a;

  double x;
  double y;
  double z;
  double r;

  /*  Useful trig functions */
  sh = sin(ha);
  ch = cos(ha);
  sd = sin(dec);
  cd = cos(dec);
  sp = sin(phi);
  cp = cos(phi);

  /*  Az,El as x,y,z */
  x = -ch * cd * sp + sd * cp;
  y = -sh * cd;
  z = ch * cd * cp + sd * sp;

  /*  To spherical */
  r = sqrt(x * x + y * y);
  if (r == 0.) {
    a = 0.;
  } else {
    a = atan2(y, x);
  }
  if (a < 0.) {
    a += PAL__D2PI;
  }
  *az = a;
  *el = atan2(z, r);

  return;
}

Here is the caller graph for this function: