bin86-0.3/bccfp/modf.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

/*
 *   bin86/bccfp/modf.c
 *
 *   Copyright (C) 1992 Bruce Evans
 */

#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;
}