unfl
Dbl_setwrapped_exponent(leftp1,result_exponent,unfl);
Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);
Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);
Dbl_setwrapped_exponent(resultp1,dest_exponent,unfl);
Dbl_setwrapped_exponent(resultp1,dest_exponent,unfl);
Dbl_setwrapped_exponent(resultp1,dest_exponent,unfl);
Dbl_setwrapped_exponent(leftp1,result_exponent,unfl);
Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);
Dbl_setwrapped_exponent(resultp1,result_exponent,unfl);
Sgl_setwrapped_exponent(result,dest_exponent,unfl);
Sgl_setwrapped_exponent(left,result_exponent,unfl);
Sgl_setwrapped_exponent(result,result_exponent,unfl);
Sgl_setwrapped_exponent(result,result_exponent,unfl);
Sgl_setwrapped_exponent(result,dest_exponent,unfl);
Sgl_setwrapped_exponent(result,dest_exponent,unfl);
Sgl_setwrapped_exponent(result,dest_exponent,unfl);
Sgl_setwrapped_exponent(left,result_exponent,unfl);
Sgl_setwrapped_exponent(result,result_exponent,unfl);
Sgl_setwrapped_exponent(result,result_exponent,unfl);
extern char bsun[], inex[], dz[], unfl[], operr[], ovfl[], snan[];
#define FP_UNFL_HANDLER40 unfl