home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / math / cmath / floor.c < prev    next >
Encoding:
Text File  |  1983-07-02  |  338 b   |  31 lines
  1. /*
  2.  * floor and ceil-- greatest integer <= arg
  3.  * (resp least >=)
  4.  */
  5.  
  6. double    modf();
  7.  
  8. double
  9. floor(d)
  10. double d;
  11. {
  12.     double fract;
  13.  
  14.     if (d<0.0) {
  15.         d = -d;
  16.         fract = modf(d, &d);
  17.         if (fract != 0.0)
  18.             d += 1;
  19.         d = -d;
  20.     } else
  21.         modf(d, &d);
  22.     return(d);
  23. }
  24.  
  25. double
  26. ceil(d)
  27. double d;
  28. {
  29.     return(-floor(-d));
  30. }
  31.