mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
27 lines
378 B
C
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 );
|
|
}
|
|
|