1 2 /* @(#)z_log.c 1.0 98/08/13 */ 3 /****************************************************************** 4 * Logarithm 5 * 6 * Input: 7 * x - floating point value 8 * 9 * Output: 10 * natural logarithm of x 11 * 12 * Description: 13 * This routine returns the natural logarithm of x. 14 * 15 *****************************************************************/ 16 17 #include "fdlibm.h" 18 #include "zmath.h" 19 20 #ifndef _DOUBLE_IS_32BITS 21 22 double 23 _DEFUN (log, (double), 24 double x) 25 { 26 return (logarithm (x, 0)); 27 } 28 29 #endif /* _DOUBLE_IS_32BITS */ 30