Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/c/libf/fabs.c

@@ -0,0 +1,27 @@
+/*
+	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);
+}