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