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