double palPa	(	double	ha,
		double	dec,
		double	phi
	)

Definition at line 83 of file palPa.c.

Referenced by t_pa().

                                                  {
  double cp, sqsz, cqsz;

  cp = cos(phi);
  sqsz = cp * sin(ha);
  cqsz = sin(phi) * cos(dec) - cp * sin(dec) * cos(ha);
  if (sqsz == 0.0 && cqsz == 0.0) cqsz = 1.0;
  return atan2( sqsz, cqsz );
}

Here is the caller graph for this function: