freebsd-src/lib/libF77/r_lg10.c
Bruce Evans 9e2d0733c5 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.
1997-02-24 17:35:33 +00:00

14 lines
169 B
C

#include "f2c.h"
#ifdef KR_headers
float log10f();
double r_lg10(x) real *x;
#else
#undef abs
#include "math.h"
double r_lg10(real *x)
#endif
{
return( log10f(*x) );
}