af2a.c		af2a.c
	skipping to change at line 46		skipping to change at line 46
	**		**
	** 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.
	*/		*/
	{		{
	/* Compute the interval. */		/* Compute the interval. */
	*rad = ( s == '-' ? -1.0 : 1.0 ) *		*rad = ( s == '-' ? -1.0 : 1.0 ) *
	( 60.0 * ( 60.0 * ( (double) abs(ideg) ) +		( 60.0 * ( 60.0 * ( (double) abs(ideg) ) +
	( (double) abs(iamin) ) ) +		( (double) abs(iamin) ) ) +
	fabs(asec) ) * DAS2R;		fabs(asec) ) * ERFA_DAS2R;
	/* Validate arguments and return status. */		/* Validate arguments and return status. */
	if ( ideg < 0 || ideg > 359 ) return 1;		if ( ideg < 0 || ideg > 359 ) return 1;
	if ( iamin < 0 || iamin > 59 ) return 2;		if ( iamin < 0 || iamin > 59 ) return 2;
	if ( asec < 0.0 || asec >= 60.0 ) return 3;		if ( asec < 0.0 || asec >= 60.0 ) return 3;
	return 0;		return 0;
	}		}
	/*----------------------------------------------------------------------		/*----------------------------------------------------------------------
	**		**
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/