123456789101112131415161718192021 |
- /*
- * (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- *
- * Author: Ceriel J.H. Jacobs
- */
- /* $Id$ */
- double
- ceil(x)
- double x;
- {
- extern double modf();
- double val;
- return modf(x, &val) > 0 ? val + 1.0 : val ;
- /* this also works if modf always returns a positive
- fractional part
- */
- }
|