From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Sat, 22 Jan 1983 03:18:20 +0000 (-0800)
Subject: date and time created 83/01/21 11:18:20 by dlw
X-Git-Tag: BSD-4_1c_2-Snapshot-Development~866
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/4f619d033ae6751e438c84ffa2e20ce403e61b34

date and time created 83/01/21 11:18:20 by dlw

SCCS-vsn: usr.bin/f77/libF77/r_sign.c 1.1
---

diff --git a/usr/src/usr.bin/f77/libF77/r_sign.c b/usr/src/usr.bin/f77/libF77/r_sign.c
new file mode 100644
index 0000000000..c8d723fb51
--- /dev/null
+++ b/usr/src/usr.bin/f77/libF77/r_sign.c
@@ -0,0 +1,11 @@
+/*
+ *	"@(#)r_sign.c	1.1"
+ */
+
+double r_sign(a,b)
+float *a, *b;
+{
+float x;
+x = (*a >= 0 ? *a : - *a);
+return( *b >= 0 ? x : -x);
+}