/*	~(#)fabs.c	2.1		*/
/*	~(#)fabs.c	1.4	*/
/*LINTLIBRARY*/
/*
 *	fabs returns the absolute value of its double-precision argument.
 */

double
fabs(x)
register double x;
{
	return (x < 0 ? -x : x);
}