/*
 *				l o g 1 0 . c
 */

/*)LIBRARY
*/

#ifdef	DOCUMENTATION
title	log10	logarithm function base 10
index	logarithm function base 10
usage
	.s
	double x, f, log10();
	.br
	f = log10(x);
	.s
description
	.s
	Returns logarithm of x to base 10.
	.s
diagnostics
	.s
	If the argument is negative or zero the message 'log arg negative or
	zero', followed by the value of the argument, is written to stderr.
	If the
	argument was zero a value of -HUGE is returned, otherwise the value
	of log(fabs(x)) is returned.
	.s
internal
	.s
	returns value of log(x) * log10(e)
	.s
author
	.s
	Hamish Ross.
	.s
date
	.s
	26-Dec-84
#endif

#include <math.h>

double log10(x)
double x;
{
    double log();

    return(LOGB10E * log(x));
}