mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
34 lines
1.0 KiB
C
34 lines
1.0 KiB
C
/*
|
||
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 & 0xffffff7f; /* turn off sign bit */
|
||
return(f);
|
||
}
|
||
|
||
urn(f);
|
||
}
|
||
|
||
urn(f);
|
||
}
|
||
|
||
urn(f);
|
||
}
|
||
|
||
|