home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libm / fabs.c < prev    next >
Encoding:
Text File  |  1979-01-10  |  76 b   |  10 lines
  1. double
  2. fabs(arg)
  3. double arg;
  4. {
  5.  
  6.     if(arg < 0.)
  7.         arg = -arg;
  8.     return(arg);
  9. }
  10.