libf2c/libF77/r_lg10.c

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