compilers/linux86-0.16.17/libc/i386fp/modf.c

   1 #include <math.h>
   2
   3 /* Slooow version. */
   4
   5 double modf(x, pint)
   6 double x;
   7 double *pint;
   8 {
   9     if (x >= 0)
  10         *pint = floor(x);
  11     else
  12         *pint = ceil(x);
  13     return x - *pint;
  14 }