#include /* Slooow version. */ double modf(x, pint) double x; double *pint; { if (x >= 0) *pint = floor(x); else *pint = ceil(x); return x - *pint; }