Initial revision

modules/src/flt_arith/flt_modf.c

@@ -0,0 +1,32 @@
+/*
+  (c) copyright 1989 by the Vrije Universiteit, Amsterdam, The Netherlands.
+  See the copyright notice in the ACK home directory, in the file "Copyright".
+*/
+
+/* $Header$ */
+
+#include "misc.h"
+
+flt_modf(e, ipart, fpart)
+	register flt_arith *e, *ipart, *fpart;
+{
+	if (e->flt_exp < 0) {
+		*fpart = *e;
+		ipart->flt_sign = 0;
+		ipart->flt_exp = 0;
+		ipart->m1 = ipart->m2 = 0;
+		return;
+	}
+	if (e->flt_exp >= 63) {
+		fpart->flt_sign = 0;
+		fpart->flt_exp = 0;
+		fpart->m1 = fpart->m2 = 0;
+		*ipart = *e;
+		return;
+	}
+	*ipart = *e;
+	/* "loose" low order bits */
+	b64_sft(&(ipart->flt_mantissa), 63 - e->flt_exp);
+	b64_sft(&(ipart->flt_mantissa), e->flt_exp - 63);
+	flt_sub(e, ipart, fpart);
+}