home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / JPLC2.ZIP / MODF.C < prev    next >
Encoding:
Text File  |  1988-07-22  |  538 b   |  17 lines
  1. /* 1.0  04-27-84 */
  2. /************************************************************************
  3.  *            Robert C. Tausworthe                *
  4.  *            Jet Propulsion Laboratory            *
  5.  *            Pasadena, CA 91009        1984        *
  6.  ************************************************************************/
  7.     double
  8. modf(x, y)    /* return fractional part of x as double, set *y to
  9.            integer part of x, also double.            */
  10. /*----------------------------------------------------------------------*/
  11. double x, *y;
  12. {
  13.     double fint();
  14.  
  15.     return (x - (*y = fint(x)));
  16. }
  17.