mln2lo
#define mln2lo vccast(mln2lo)
return(scalb(exp((x-mln2hi)-mln2lo), EXPMAX));
vc(mln2lo,-4.9650192275318476525E-16 ,1b60,a70f,582a,279e, -50,-.8F1B60279E582A)
ic(mln2lo, 2.3747039373786107478E-14, -45, 1.ABC9E3B39803F)
return(copysign(scalb(one+expm1((x-mln2hi)-mln2lo),max),sign));
vc(mln2lo,-4.9650192275318476525E-16 ,1b60,a70f,582a,279e, -50,-.8F1B60279E582A)
ic(mln2lo, 2.3747039373786107478E-14, -45, 1.ABC9E3B39803F)
#define mln2lo vccast(mln2lo)