fabs.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

/*	@(#)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);
}