/*
 *				f a b s . c
 */

/*)LIBRARY
*/

#ifdef DOCUMENTATION
title	fabs	floating absolute value of floating argument
index	floating absolute value of floating argument
usage
	.s
	double x, y, fabs();
	.br
	y = fabs(x);
	.s
description
	.s
	Returns the absolute value of its floating argument.
	.s
diagnostics
	.s
	None
	.s
internal
	.s
author
	.s
	Hamish Ross.
	.s
date
	.s
	31-Jan-85
	.s
#endif

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