/*
	Copyright 1982
	Alcyon Corporation
	8716 Production Ave.
	San Diego, Ca.  92121
*/

/*char *version "@(#)fabs.c	1.2    10/19/83";*/

/* 
 *	Floating Point Absolute :
 *		Fast Floating Point Package
 *
 *		double
 *		fabs(farg)
 *		double farg;
 *
 *	Returns : absolute Floating point number
 */

long
fabs(f)
long f;
{
	f = f & 0x7fffffff;		/* turn off sign bit */
	return(f);
}
