home *** CD-ROM | disk | FTP | other *** search
- /* 1.0 11-13-84 */
- /************************************************************************
- * Robert C. Tausworthe *
- * Jet Propulsion Laboratory *
- * Pasadena, CA 91009 1984 *
- ************************************************************************/
-
- #include "mathcons.h"
-
- /************************************************************************/
- double
- log10(x) /* return common log (base 10) of x */
-
- /*----------------------------------------------------------------------*/
- double x;
- {
- double log();
-
- return (LOG10e * log(x));
- }