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
- log2(x) /* return binary logarithm (base 2) of x. */
-
- /*----------------------------------------------------------------------*/
- double x;
- {
- double log();
-
- return log(x) * LOG2e;
- }