00001 #include "f2c.h" 00002 00003 #define log10e 0.43429448190325182765 00004 00005 #ifdef KR_headers 00006 double log(); 00007 double r_lg10(x) real *x; 00008 #else 00009 #undef abs 00010 #include "math.h" 00011 #ifdef __cplusplus 00012 extern "C" { 00013 #endif 00014 double r_lg10(real *x) 00015 #endif 00016 { 00017 return( log10e * log(*x) ); 00018 } 00019 #ifdef __cplusplus 00020 } 00021 #endif