libc/i386fp/modf.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#include <math.h>

/* Slooow version. */

double modf(x, pint)
double x;
double *pint;
{
    if (x >= 0)
	*pint = floor(x);
    else
	*pint = ceil(x);
    return x - *pint;
}