X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/0f4556f12c8f75078501c9d1338ae7648a97f975..95f51977ddc18faa2e212f30c00a39540b39f325:/usr/src/usr.lib/libF77/d_lg10.c

diff --git a/usr/src/usr.lib/libF77/d_lg10.c b/usr/src/usr.lib/libF77/d_lg10.c
index adc1e17e66..87eb07001e 100644
--- a/usr/src/usr.lib/libF77/d_lg10.c
+++ b/usr/src/usr.lib/libF77/d_lg10.c
@@ -1,13 +1,15 @@
 /*
- *	"@(#)d_lg10.c	1.1"
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *	@(#)d_lg10.c	5.3	8/8/85
  */
 
-#define log10e 0.43429448190325182765
-
 double d_lg10(x)
 double *x;
 {
-double log();
+double log10();
 
-return( log10e * log(*x) );
+return( log10(*x) );
 }