Dbl_set_exponent
Dbl_set_exponent(resultp1,/*using*/result_exponent);
Dbl_set_exponent(resultp1,/*using*/result_exponent);
else Dbl_set_exponent(resultp1,result_exponent);
else Dbl_set_exponent(resultp1,dest_exponent);
else Dbl_set_exponent(resultp1,dest_exponent);
else Dbl_set_exponent(resultp1,dest_exponent);
Dbl_set_exponent(resultp1,
Dbl_set_exponent(resultp1,((src_exponent-DBL_BIAS)>>1)+DBL_BIAS);
Dbl_set_exponent(resultp1,/*using*/result_exponent);
Dbl_set_exponent(resultp1,/*using*/result_exponent);
else Dbl_set_exponent(resultp1,result_exponent);
Dbl_set_exponent(resultp1, (30+DBL_BIAS) - dst_exponent);
Dbl_set_exponent(resultp1, (62+DBL_BIAS) - dst_exponent);
Dbl_set_exponent(resultp1, (30+DBL_BIAS) - dst_exponent);
Dbl_set_exponent(resultp1, (62+DBL_BIAS) - dst_exponent);
else Dbl_set_exponent(resultp1,result_exponent);
else Dbl_set_exponent(resultp1,result_exponent);
Dbl_set_exponent(resultp1,src_exponent + (DBL_BIAS+1));
else Dbl_set_exponent(resultp1,src_exponent + DBL_BIAS);
Dbl_set_exponent(resultp1,DBL_BIAS);
Dbl_set_exponent(resultp1,DBL_BIAS);
Dbl_set_exponent(resultp1,DBL_BIAS);