1: /* 2: * Copyright (c) 1980 Regents of the University of California. 3: * All rights reserved. The Berkeley software License Agreement 4: * specifies the terms and conditions for redistribution. 5: * 6: * @(#)d_lg10.c 5.3 8/8/85 7: */ 8: 9: double d_lg10(x) 10: double *x; 11: { 12: double log10(); 13: 14: return( log10(*x) ); 15: }