void eraFk5hz	(	double	r5,
		double	d5,
		double	date1,
		double	date2,
		double *	rh,
		double *	dh
	)

Definition at line 3 of file fk5hz.c.

References eraAnp(), eraC2s(), eraFk5hip(), eraRv2m(), eraRxp(), eraS2c(), eraSxp(), eraTrxp(), ERFA_DJ00, ERFA_DJY, and t.

Referenced by palFk5hz(), and t_fk5hz().

{
   double t, p5e[3], r5h[3][3], s5h[3], vst[3], rst[3][3], p5[3],
          ph[3], w;

/* Interval from given date to fundamental epoch J2000.0 (JY). */
   t = - ((date1 - ERFA_DJ00) + date2) / ERFA_DJY;

/* FK5 barycentric position vector. */
   eraS2c(r5, d5, p5e);

/* FK5 to Hipparcos orientation matrix and spin vector. */
   eraFk5hip(r5h, s5h);

/* Accumulated Hipparcos wrt FK5 spin over that interval. */
   eraSxp(t, s5h, vst);

/* Express the accumulated spin as a rotation matrix. */
   eraRv2m(vst, rst);

/* Derotate the vector's FK5 axes back to date. */
   eraTrxp(rst, p5e, p5);

/* Rotate the vector into the Hipparcos system. */
   eraRxp(r5h, p5, ph);

/* Hipparcos vector to spherical. */
   eraC2s(ph, &w, dh);
   *rh = eraAnp(w);

   return;

}

Here is the call graph for this function:

Here is the caller graph for this function: