ln2hi
hi = x - k * ln2hi; /* Exact. */
hi = x - k * ln2hi; /* Exact. */
vc(ln2hi, 6.9314718055829871446E-1 ,7217,4031,0000,f7d0, 0, .B17217F7D00000)
ic(ln2hi, 6.9314718036912381649E-1, -1, 1.62E42FEE00000)
#define ln2hi vccast(ln2hi)
if(x>big) {t=log1p(x)+ln2lo; return(t+ln2hi);}
vc(ln2hi, 6.9314718055829871446E-1 ,7217,4031,0000,f7d0, 0, .B17217F7D00000)
ic(ln2hi, 6.9314718036912381649E-1, -1, 1.62E42FEE00000)
#define ln2hi vccast(ln2hi)
{s=log1p(t)+ln2lo; return(copysign(s+ln2hi,x));}
#define ln2hi vccast(ln2hi)
ic(ln2hi, 6.9314718036912381649E-1, -1, 1.62E42FEE00000)
hi=x-k*ln2hi;
hi=(x-k*ln2hi); /* Exact. */
vc(ln2hi, 6.9314718055829871446E-1 ,7217,4031,0000,f7d0, 0, .B17217F7D00000)
#define ln2hi vccast(ln2hi)
hi=x-k*ln2hi ;
{ c=ln2hi+ln2lo; return(-one);} /* ??? -ragge */
vc(ln2hi, 6.9314718055829871446E-1 ,7217,4031,0000,f7d0, 0, .B17217F7D00000)
ic(ln2hi, 6.9314718036912381649E-1, -1, 1.62E42FEE00000)
vc(ln2hi, 6.9314718055829871446E-1 ,7217,4031,0000,f7d0, 0, .B17217F7D00000)
ic(ln2hi, 6.9314718036912381649E-1, -1, 1.62E42FEE00000)
#define ln2hi vccast(ln2hi)
return(k*ln2hi+x);
hi=(x-k*ln2hi); /* Exact. */
static const double ln2hi = 0x1.62e42fee00000p-1;