mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
28 lines
381 B
C
28 lines
381 B
C
/*
|
|
Copyright 1982
|
|
Alcyon Corporation
|
|
8716 Production Ave.
|
|
San Diego, Ca. 92121
|
|
*/
|
|
|
|
/*char *version "@(#) fabs - jan 11, 1983";*/
|
|
|
|
/*
|
|
* Floating Point Absolute :
|
|
* Fast Floating Point Package
|
|
*
|
|
* double
|
|
* fabs(farg)
|
|
* double farg;
|
|
*
|
|
* Returns : absolute Floating point number
|
|
*/
|
|
|
|
long
|
|
fabs(f)
|
|
long f;
|
|
{
|
|
f = f & 0xffffff7f; /* turn off sign bit */
|
|
return(f);
|
|
}
|