From 9e2d0733c538d60b75623f0a3d222786f3375435 Mon Sep 17 00:00:00 2001 From: Bruce Evans Date: Mon, 24 Feb 1997 17:35:33 +0000 Subject: [PATCH] Oops, I thought I was fixing the double precision lg10 in the previous revision. Use log10f() instead of log10(). log10f() is currently slightly slower than log10() on P5's, but it is potentially significantly faster. Fixed declaration of the C function used in the (unused?) KR_headers case. --- lib/libF77/r_lg10.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/libF77/r_lg10.c b/lib/libF77/r_lg10.c index 87013aec41d..c40138ec5ce 100644 --- a/lib/libF77/r_lg10.c +++ b/lib/libF77/r_lg10.c @@ -1,7 +1,7 @@ #include "f2c.h" #ifdef KR_headers -double log(); +float log10f(); double r_lg10(x) real *x; #else #undef abs @@ -9,5 +9,5 @@ double r_lg10(x) real *x; double r_lg10(real *x) #endif { -return( log10(*x) ); +return( log10f(*x) ); } -- 2.45.2