167     mpfr_t significand;  in get_mpfr_d()  local
193     mpfr_init2(significand, MPFR_PREC);  in get_mpfr_d()
194     mpfr_set(significand, x, GMP_RNDN);  in get_mpfr_d()
195     exp = mpfr_get_exp(significand);  in get_mpfr_d()
196     mpfr_set_exp(significand, 0);  in get_mpfr_d()
205         mpfr_clear(significand);  in get_mpfr_d()
213     mpfr_div_2si(significand, x, exp - 21, GMP_RNDN);  in get_mpfr_d()
214     mpfr_abs(significand, significand, GMP_RNDN);  in get_mpfr_d()
215     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_d()
217     mpfr_sub_ui(significand, significand, mantfield, GMP_RNDN);  in get_mpfr_d()
218     mpfr_mul_2ui(significand, significand, 32, GMP_RNDN);  in get_mpfr_d()
219     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_d()
221     mpfr_sub_ui(significand, significand, mantfield, GMP_RNDN);  in get_mpfr_d()
222     mpfr_mul_2ui(significand, significand, 32, GMP_RNDN);  in get_mpfr_d()
223     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_d()
226     mpfr_clear(significand);  in get_mpfr_d()
231     mpfr_t significand;  in get_mpfr_f()  local
254     mpfr_init2(significand, MPFR_PREC);  in get_mpfr_f()
255     mpfr_set(significand, x, GMP_RNDN);  in get_mpfr_f()
256     exp = mpfr_get_exp(significand);  in get_mpfr_f()
257     mpfr_set_exp(significand, 0);  in get_mpfr_f()
265         mpfr_clear(significand);  in get_mpfr_f()
273     mpfr_div_2si(significand, x, exp - 24, GMP_RNDN);  in get_mpfr_f()
274     mpfr_abs(significand, significand, GMP_RNDN);  in get_mpfr_f()
275     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_f()
277     mpfr_sub_ui(significand, significand, mantfield, GMP_RNDN);  in get_mpfr_f()
278     mpfr_mul_2ui(significand, significand, 32, GMP_RNDN);  in get_mpfr_f()
279     mantfield = mpfr_get_ui(significand, GMP_RNDZ);  in get_mpfr_f()
282     mpfr_clear(significand);  in get_mpfr_f()