BSD 4_4 release

[unix-history] / usr / src / usr.bin / f77 / libF77 / r_lg10.c

diff --git a/usr/src/usr.bin/f77/libF77/r_lg10.c b/usr/src/usr.bin/f77/libF77/r_lg10.c
index da0cd48..aa02dc1 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_lg10.c
+++ b/usr/src/usr.bin/f77/libF77/r_lg10.c
@@ -1,13 +1,20 @@
-/*
- *     "@(#)r_lg10.c   1.1"
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This module is believed to contain source code proprietary to AT&T.
+ * Use and redistribution is subject to the Berkeley Software License
+ * Agreement and your Software Agreement with AT&T (Western Electric).

  */
 
  */
 

-#define log10e 0.43429448190325182765
+#ifndef lint
+static char sccsid[] = "@(#)r_lg10.c   5.4 (Berkeley) 4/12/91";
+#endif /* not lint */

 
 

-double r_lg10(x)
+float r_lg10(x)

 float *x;
 {
 float *x;
 {

-double log();
+double log10();

 
 

-return( log10e * log(*x) );
+return( log10(*x) );

 }
 }