[unix-history] / usr / src / old / libm / libom / floor.c

/*	@(#)floor.c	4.1	%G%	*/

/*
 * floor and ceil-- greatest integer <= arg
 * (resp least >=)
 */

double	modf();

double
floor(d)
double d;
{
	double fract;

	if (d<0.0) {
		d = -d;
		fract = modf(d, &d);
		if (fract != 0.0)
			d += 1;
		d = -d;
	} else
		modf(d, &d);
	return(d);
}

double
ceil(d)
double d;
{
	return(-floor(-d));
}
Commit	Line	Data
bc837e65 SL	1	/* @(#)floor.c 4.1 %G% */
	2
	3	/*
	4	* floor and ceil-- greatest integer <= arg
	5	* (resp least >=)
	6	*/
	7
	8	double modf();
	9
	10	double
	11	floor(d)
	12	double d;
	13	{
	14	double fract;
	15
	16	if (d<0.0) {
	17	d = -d;
	18	fract = modf(d, &d);
	19	if (fract != 0.0)
	20	d += 1;
	21	d = -d;
	22	} else
	23	modf(d, &d);
	24	return(d);
	25	}
	26
	27	double
	28	ceil(d)
	29	double d;
	30	{
	31	return(-floor(-d));
	32	}