| 1 | #include "f2c.h" |
| 2 | |
| 3 | #define log10e 0.43429448190325182765 |
| 4 | |
| 5 | #ifdef KR_headers |
| 6 | double log(); |
| 7 | double d_lg10(x) doublereal *x; |
| 8 | #else |
| 9 | #undef abs |
| 10 | #include "math.h" |
| 11 | double d_lg10(doublereal *x) |
| 12 | #endif |
| 13 | { |
| 14 | return( log10e * log(*x) ); |
| 15 | } |