s = f/(2.0+f);
s = f/(two+f);
	double __ieee754_log(double x)#else	double __ieee754_log(x)	double x;#endif{	double hfsq,f,s,z,R,w,t1,t2,dk;	int32_t k,hx,i,j;	u_int32_t lx;	EXTRACT_WORDS(hx,lx,x);	k=0;	if (hx < 0x00100000) {			/* x < 2**-1022  */	    if (((hx&0x7fffffff)|lx)==0)		return -two54/(x-x);		/* log(+-0)=-inf */	    if (hx<0) return (x-x)/(x-x);	/* log(-#) = NaN */	    k -= 54; x *= two54; /* subnormal number, scale up x */	    GET_HIGH_WORD(hx,x);	}	if (hx >= 0x7ff00000) return x+x;	k += (hx>>20)-1023;	hx &= 0x000fffff;	i = (hx+0x95f64)&0x100000;	SET_HIGH_WORD(x,hx|(i^0x3ff00000));	/* normalize x or x/2 */	k += (i>>20);	f = x-1.0;	if((0x000fffff&(2+hx))<3) {	/* |f| < 2**-20 */	    if(f==zero) if(k==0) return zero;  else {dk=(double)k;				 return dk*ln2_hi+dk*ln2_lo;}	    R = f*f*(0.5-0.33333333333333333*f);	    if(k==0) return f-R; else {dk=(double)k;	    	     return dk*ln2_hi-((R-dk*ln2_lo)-f);}	} 	s = f/(2.0+f);	dk = (double)k;	z = s*s;	i = hx-0x6147a;	w = z*z;	j = 0x6b851-hx;	t1= w*(Lg2+w*(Lg4+w*Lg6));	t2= z*(Lg1+w*(Lg3+w*(Lg5+w*Lg7)));	i |= j;	R = t2+t1;	if(i>0) {	    hfsq=0.5*f*f;	    if(k==0) return f-(hfsq-s*(hfsq+R)); else		     return dk*ln2_hi-((hfsq-(s*(hfsq+R)+dk*ln2_lo))-f);	} else {	    if(k==0) return f-s*(f-R); else		     return dk*ln2_hi-((s*(f-R)-dk*ln2_lo)-f);	}}