xref: /csrg-svn/usr.bin/f77/libF77/d_lg10.c (revision 24209)
110461Sdlw /*
222860Skre  * Copyright (c) 1980 Regents of the University of California.
322860Skre  * All rights reserved.  The Berkeley software License Agreement
422860Skre  * specifies the terms and conditions for redistribution.
522860Skre  *
6*24209Sbloom  *	@(#)d_lg10.c	5.3	08/08/85
710461Sdlw  */
810461Sdlw 
910461Sdlw double d_lg10(x)
1010461Sdlw double *x;
1110461Sdlw {
12*24209Sbloom double log10();
1310461Sdlw 
1423855Sjerry return( log10(*x) );
1510461Sdlw }
16