__exp__E
extern double __exp__E(double, double);
else {t=x+__exp__E(x,0.0);x=t+t; return(one+t*t/(2.0+x)); }
if(k==0) return(z+__exp__E(z,c));
{x=z+half;x +=__exp__E(z,c); return(x+x);}
{z+=__exp__E(z,c); x=half+z; return(x+x);}
{ x=one-scalb(one,-k); z += __exp__E(z,c);}
{ x = __exp__E(z,c)-scalb(one,-k); x+=z; z=one;}
{ x = __exp__E(z,c)+z; z=one;}