xref: /csrg-svn/usr.bin/f77/libF77/r_lg10.c (revision 47940)
1*47940Sbostic /*-
2*47940Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47940Sbostic  * All rights reserved.
422960Skre  *
5*47940Sbostic  * %sccs.include.proprietary.c%
610530Sdlw  */
710530Sdlw 
8*47940Sbostic #ifndef lint
9*47940Sbostic static char sccsid[] = "@(#)r_lg10.c	5.4 (Berkeley) 04/12/91";
10*47940Sbostic #endif /* not lint */
11*47940Sbostic 
r_lg10(x)1223854Sjerry float r_lg10(x)
1310530Sdlw float *x;
1410530Sdlw {
1523855Sjerry double log10();
1610530Sdlw 
1723855Sjerry return( log10(*x) );
1810530Sdlw }
19