110530Sdlw /* 2*22960Skre * Copyright (c) 1980 Regents of the University of California. 3*22960Skre * All rights reserved. The Berkeley software License Agreement 4*22960Skre * specifies the terms and conditions for redistribution. 5*22960Skre * 6*22960Skre * @(#)r_lg10.c 5.1 06/07/85 710530Sdlw */ 810530Sdlw 910530Sdlw #define log10e 0.43429448190325182765 1010530Sdlw 1110530Sdlw double r_lg10(x) 1210530Sdlw float *x; 1310530Sdlw { 1410530Sdlw double log(); 1510530Sdlw 1610530Sdlw return( log10e * log(*x) ); 1710530Sdlw } 18