hfk5z.c		hfk5z.c
	skipping to change at line 86		skipping to change at line 86
	**		**
	** Copyright (C) 2013, NumFOCUS Foundation.		** Copyright (C) 2013, NumFOCUS Foundation.
	** Derived, with permission, from the SOFA library. See notes at end of f ile.		** Derived, with permission, from the SOFA library. See notes at end of f ile.
	*/		*/
	{		{
	double t, ph[3], r5h[3][3], s5h[3], sh[3], vst[3],		double t, ph[3], r5h[3][3], s5h[3], sh[3], vst[3],
	rst[3][3], r5ht[3][3], pv5e[2][3], vv[3],		rst[3][3], r5ht[3][3], pv5e[2][3], vv[3],
	w, r, v;		w, r, v;
	/* Time interval from fundamental epoch J2000.0 to given date (JY). */		/* Time interval from fundamental epoch J2000.0 to given date (JY). */
	t = ((date1 - DJ00) + date2) / DJY;		t = ((date1 - ERFA_DJ00) + date2) / ERFA_DJY;
	/* Hipparcos barycentric position vector (normalized). */		/* Hipparcos barycentric position vector (normalized). */
	eraS2c(rh, dh, ph);		eraS2c(rh, dh, ph);
	/* FK5 to Hipparcos orientation matrix and spin vector. */		/* FK5 to Hipparcos orientation matrix and spin vector. */
	eraFk5hip(r5h, s5h);		eraFk5hip(r5h, s5h);
	/* Rotate the spin into the Hipparcos system. */		/* Rotate the spin into the Hipparcos system. */
	eraRxp(r5h, s5h, sh);		eraRxp(r5h, s5h, sh);
End of changes. 1 change blocks.
	1 lines changed or deleted		1 lines changed or added
This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/