contrib/gcc-3.4/libf2c/libF77/r_lg10.c

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