1 2 3 4 5 6 7 8 9 10 11 12 13
#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) ); }