mln2hi
#define mln2hi vccast(mln2hi)
return(scalb(exp((x-mln2hi)-mln2lo), EXPMAX));
vc(mln2hi, 8.8029691931113054792E1 ,0f33,43b0,2bdb,c7e2, 7, .B00F33C7E22BDB)
ic(mln2hi, 7.0978271289338397310E2, 10, 1.62E42FEFA39EF)
return(copysign(scalb(one+expm1((x-mln2hi)-mln2lo),max),sign));
vc(mln2hi, 8.8029691931113054792E1 ,0f33,43b0,2bdb,c7e2, 7, .B00F33C7E22BDB)
ic(mln2hi, 7.0978271289338397310E2, 10, 1.62E42FEFA39EF)
#define mln2hi vccast(mln2hi)