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

/*
 * 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
5d130d40 RM	1	/*
	2	* floor and ceil-- greatest integer <= arg
	3	* (resp least >=)
	4	*/
	5
	6	double modf();
	7
	8	double
	9	floor(d)
	10	double d;
	11	{
	12	double fract;
	13
	14	if (d<0.0) {
	15	d = -d;
	16	fract = modf(d, &d);
	17	if (fract != 0.0)
	18	d += 1;
	19	d = -d;
	20	} else
	21	modf(d, &d);
	22	return(d);
	23	}
	24
	25	double
	26	ceil(d)
	27	double d;
	28	{
	29	return(-floor(-d));
	30	}