Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kcc-6/lib/math/floor.c
There are 8 other files named floor.c in the archive. Click here to see a list.
/*
* FLOOR.C - floor function for math library
*
* (c) Copyright Ken Harrenstien 1989
* for all changes after v.8, 12-Apr-1988
* (c) Copyright Ian Macky, SRI International 1985
*
* This code conforms with the description of the floor function
* as defined in Harbison and Steele's "C: A Reference Manual",
* section 11.3.11
*/
#include <math.h>
double floor(x)
double x;
{
double ipart;
if (modf(x, &ipart) < 0) /* if has negative fractional part */
ipart--; /* then diddle the other direction! */
return ipart;
}