double palRverot	(	double	phi,
		double	ra,
		double	da,
		double	st
	)

Definition at line 85 of file palRverot.c.

Referenced by t_rv().

                                                                 {

  /*  Nominal mean sidereal speed of Earth equator in km/s (the actual
   *  value is about 0.4651) */
  const double espeed = 0.4655;
  return espeed * cos(phi) * sin(st-ra) * cos(da);
}

Here is the caller graph for this function: