freebsd-nq/lib/libF77/d_lg10.c

#include "f2c.h"

#ifdef KR_headers
double log10();
double d_lg10(x) doublereal *x;
#else
#undef abs
#include "math.h"
double d_lg10(doublereal *x)
#endif
{
return( log10(*x) );
}
Library for f2c (part 2 of 2) Obtained from: netlib.att.com 1994-10-26 18:17:41 +00:00			`#include "f2c.h"`

			`#ifdef KR_headers`
Use the C library version of log10() instead of the inaccurate formula log10(x) = log10e * log(x). This fixes some small (one or two ULP) inaccuracies. Found by: ucbtest 1997-02-24 17:44:08 +00:00			`double log10();`
Library for f2c (part 2 of 2) Obtained from: netlib.att.com 1994-10-26 18:17:41 +00:00			`double d_lg10(x) doublereal *x;`
			`#else`
			`#undef abs`
			`#include "math.h"`
			`double d_lg10(doublereal *x)`
			`#endif`
			`{`
Use the C library version of log10() instead of the inaccurate formula log10(x) = log10e * log(x). This fixes some small (one or two ULP) inaccuracies. Found by: ucbtest 1997-02-24 17:44:08 +00:00			`return( log10(*x) );`
Library for f2c (part 2 of 2) Obtained from: netlib.att.com 1994-10-26 18:17:41 +00:00			`}`