gmst06.c		gmst06.c
	skipping to change at line 68		skipping to change at line 68
	** Capitaine, N., Wallace, P.T. & Chapront, J., 2005,		** Capitaine, N., Wallace, P.T. & Chapront, J., 2005,
	** Astron.Astrophys. 432, 355		** Astron.Astrophys. 432, 355
	**		**
	** 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, gmst;		double t, gmst;
	/* TT Julian centuries since J2000.0. */		/* TT Julian centuries since J2000.0. */
	t = ((tta - DJ00) + ttb) / DJC;		t = ((tta - ERFA_DJ00) + ttb) / ERFA_DJC;
	/* Greenwich mean sidereal time, IAU 2006. */		/* Greenwich mean sidereal time, IAU 2006. */
	gmst = eraAnp(eraEra00(uta, utb) +		gmst = eraAnp(eraEra00(uta, utb) +
	( 0.014506 +		( 0.014506 +
	( 4612.156534 +		( 4612.156534 +
	( 1.3915817 +		( 1.3915817 +
	( -0.00000044 +		( -0.00000044 +
	( -0.000029956 +		( -0.000029956 +
	( -0.0000000368 )		( -0.0000000368 )
	* t) * t) * t) * t) * t) * DAS2R);		* t) * t) * t) * t) * t) * ERFA_DAS2R);
	return gmst;		return gmst;
	}		}
	/*----------------------------------------------------------------------		/*----------------------------------------------------------------------
	**		**
	**		**
	** Copyright (C) 2013, NumFOCUS Foundation.		** Copyright (C) 2013, NumFOCUS Foundation.
	** All rights reserved.		** All rights reserved.
	**		**
End of changes. 2 change blocks.
	2 lines changed or deleted		2 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/