freebsd-nq/lib/libF77/r_lg10.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) );
}
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`
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			`float log10f();`
Library for f2c (part 2 of 2) Obtained from: netlib.att.com 1994-10-26 18:17:41 +00:00			`double r_lg10(x) real *x;`
			`#else`
			`#undef abs`
			`#include "math.h"`
			`double r_lg10(real *x)`
			`#endif`
			`{`
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			`return( log10f(*x) );`
Library for f2c (part 2 of 2) Obtained from: netlib.att.com 1994-10-26 18:17:41 +00:00			`}`