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