Upload

Digital Research

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

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