110530Sdlw /* 222960Skre * Copyright (c) 1980 Regents of the University of California. 322960Skre * All rights reserved. The Berkeley software License Agreement 422960Skre * specifies the terms and conditions for redistribution. 522960Skre * 6*23854Sjerry * @(#)r_lg10.c 5.2 07/08/85 710530Sdlw */ 810530Sdlw 910530Sdlw #define log10e 0.43429448190325182765 1010530Sdlw 11*23854Sjerry float r_lg10(x) 1210530Sdlw float *x; 1310530Sdlw { 1410530Sdlw double log(); 1510530Sdlw 1610530Sdlw return( log10e * log(*x) ); 1710530Sdlw } 18