799e5901b3
log10(x) = log10e * log(x). The formula would work if the RHS were evaluated in extended precision with an extended precision log(). This actually happened with the i387 log() because it returns excess precision. Found by: ucbtest
14 lines
166 B
C
14 lines
166 B
C
#include "f2c.h"
|
|
|
|
#ifdef KR_headers
|
|
double log();
|
|
double r_lg10(x) real *x;
|
|
#else
|
|
#undef abs
|
|
#include "math.h"
|
|
double r_lg10(real *x)
|
|
#endif
|
|
{
|
|
return( log10(*x) );
|
|
}
|