[unix-history] / usr / src / usr.bin / f77 / libF77 / r_lg10.c

/*-
 * Copyright (c) 1980 The Regents of the University of California.
 * All rights reserved.
 *
 * This module is believed to contain source code proprietary to AT&T.
 * Use and redistribution is subject to the Berkeley Software License
 * Agreement and your Software Agreement with AT&T (Western Electric).
 */

#ifndef lint
static char sccsid[] = "@(#)r_lg10.c	5.4 (Berkeley) 4/12/91";
#endif /* not lint */

float r_lg10(x)
float *x;
{
double log10();

return( log10(*x) );
}
Commit	Line	Data
82492b51 KB	1	/*-
	2	* Copyright (c) 1980 The Regents of the University of California.
	3	* All rights reserved.
e309c71b	4	*
ad787160 C	5	* This module is believed to contain source code proprietary to AT&T.
	6	* Use and redistribution is subject to the Berkeley Software License
	7	* Agreement and your Software Agreement with AT&T (Western Electric).
69bf8ade DW	8	*/
69bf8ade DW	9
82492b51	10	#ifndef lint
ad787160	11	static char sccsid[] = "@(#)r_lg10.c 5.4 (Berkeley) 4/12/91";
82492b51 KB	12	#endif /* not lint */
82492b51 KB	13
46452188	14	float r_lg10(x)
69bf8ade DW	15	float *x;
69bf8ade DW	16	{
68c6bd80	17	double log10();
69bf8ade	18
68c6bd80	19	return( log10(*x) );
69bf8ade	20	}