kusano 7d535a
#include "f2c.h"
kusano 7d535a
kusano 7d535a
#define log10e 0.43429448190325182765
kusano 7d535a
kusano 7d535a
#ifdef KR_headers
kusano 7d535a
double log();
kusano 7d535a
double d_lg10(x) doublereal *x;
kusano 7d535a
#else
kusano 7d535a
#undef abs
kusano 7d535a
#include "math.h"
kusano 7d535a
double d_lg10(doublereal *x)
kusano 7d535a
#endif
kusano 7d535a
{
kusano 7d535a
return( log10e * log(*x) );
kusano 7d535a
}