1 /* 2 * "@(#)r_lg10.c 1.1" 3 */ 4 5 #define log10e 0.43429448190325182765 6 7 double r_lg10(x) 8 float *x; 9 { 10 double log(); 11 12 return( log10e * log(*x) ); 13 } 14