1*37da2899SCharles.Forsyth /* derived from /netlib/fdlibm */ 2*37da2899SCharles.Forsyth 3*37da2899SCharles.Forsyth /* @(#)s_fabs.c 1.3 95/01/18 */ 4*37da2899SCharles.Forsyth /* 5*37da2899SCharles.Forsyth * ==================================================== 6*37da2899SCharles.Forsyth * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 7*37da2899SCharles.Forsyth * 8*37da2899SCharles.Forsyth * Developed at SunSoft, a Sun Microsystems, Inc. business. 9*37da2899SCharles.Forsyth * Permission to use, copy, modify, and distribute this 10*37da2899SCharles.Forsyth * software is freely granted, provided that this notice 11*37da2899SCharles.Forsyth * is preserved. 12*37da2899SCharles.Forsyth * ==================================================== 13*37da2899SCharles.Forsyth */ 14*37da2899SCharles.Forsyth 15*37da2899SCharles.Forsyth /* 16*37da2899SCharles.Forsyth * fabs(x) returns the absolute value of x. 17*37da2899SCharles.Forsyth */ 18*37da2899SCharles.Forsyth 19*37da2899SCharles.Forsyth #include "fdlibm.h" 20*37da2899SCharles.Forsyth fabs(double x)21*37da2899SCharles.Forsyth double fabs(double x) 22*37da2899SCharles.Forsyth { 23*37da2899SCharles.Forsyth __HI(x) &= 0x7fffffff; 24*37da2899SCharles.Forsyth return x; 25*37da2899SCharles.Forsyth } 26