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*23855Sjerry * @(#)r_lg10.c 5.3 07/08/85 710530Sdlw */ 810530Sdlw 923854Sjerry float r_lg10(x) 1010530Sdlw float *x; 1110530Sdlw { 12*23855Sjerry double log10(); 1310530Sdlw 14*23855Sjerry return( log10(*x) ); 1510530Sdlw } 16