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

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

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

diff --git a/usr/src/usr.bin/f77/libF77/d_lg10.c b/usr/src/usr.bin/f77/libF77/d_lg10.c
new file mode 100644
index 0000000000..adc1e17e66
--- /dev/null
+++ b/usr/src/usr.bin/f77/libF77/d_lg10.c
@@ -0,0 +1,13 @@
+/*
+ *	"@(#)d_lg10.c	1.1"
+ */
+
+#define log10e 0.43429448190325182765
+
+double d_lg10(x)
+double *x;
+{
+double log();
+
+return( log10e * log(*x) );
+}