| Line | |
|---|
| 1 | /*
|
|---|
| 2 | * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|---|
| 3 | * See the copyright notice in the ACK home directory, in the file "Copyright".
|
|---|
| 4 | *
|
|---|
| 5 | * Author: Ceriel J.H. Jacobs
|
|---|
| 6 | */
|
|---|
| 7 | /* $Header: /cvsup/minix/src/lib/math/floor.c,v 1.1.1.1 2005/04/21 14:56:26 beng Exp $ */
|
|---|
| 8 |
|
|---|
| 9 | #include <math.h>
|
|---|
| 10 |
|
|---|
| 11 | double
|
|---|
| 12 | floor(double x)
|
|---|
| 13 | {
|
|---|
| 14 | double val;
|
|---|
| 15 |
|
|---|
| 16 | return modf(x, &val) < 0 ? val - 1.0 : val ;
|
|---|
| 17 | /* this also works if modf always returns a positive
|
|---|
| 18 | fractional part
|
|---|
| 19 | */
|
|---|
| 20 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
