Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

27 lines
378 B
C

/*
Copyright 1983
Alcyon Corporation
8716 Production Ave.
San Diego, Ca. 92121
*/
/*char *version "@(#) floor - Feb 11, 1983";
/* floor - returns the largest integer (as a double precision
number) not greater than x. */
double
floor(x)
double x;
{
register long i;
double retval;
if ( x < 0 )
x -= 0.99999999999999;
i = x;
retval = i;
return( retval );
}