Initial revision
This commit is contained in:
15
lang/cem/libcc/math/fabs.c
Normal file
15
lang/cem/libcc/math/fabs.c
Normal file
@@ -0,0 +1,15 @@
|
||||
/*
|
||||
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
||||
*
|
||||
* Author: Ceriel J.H. Jacobs
|
||||
*/
|
||||
|
||||
/* $Header$ */
|
||||
|
||||
double
|
||||
fabs(x)
|
||||
double x;
|
||||
{
|
||||
return x < 0 ? -x : x;
|
||||
}
|
||||
Reference in New Issue
Block a user