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

/*
 *	"@(#)d_lg10.c	1.1"
 */

#define log10e 0.43429448190325182765

double d_lg10(x)
double *x;
{
double log();

return( log10e * log(*x) );
}
Commit	Line	Data
11f47fac DW	1	/*
	2	* "@(#)d_lg10.c 1.1"
	3	*/
	4
	5	#define log10e 0.43429448190325182765
	6
	7	double d_lg10(x)
	8	double *x;
	9	{
	10	double log();
	11
	12	return( log10e * log(*x) );
	13	}