/*
floor - greatest integer <= arg
ceil - least integer >= arg
*/

extern	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));
}