#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "Numeric.Interval.Internal:scale from intervals-0.7.1, B";

double f_if(float x, float y) {
        float r27721 = x;
        float r27722 = y;
        float r27723 = r27721 * r27722;
        float r27724 = 2.0;
        float r27725 = r27723 / r27724;
        return r27725;
}

double f_id(double x, double y) {
        double r27726 = x;
        double r27727 = y;
        double r27728 = r27726 * r27727;
        double r27729 = 2.0;
        double r27730 = r27728 / r27729;
        return r27730;
}


double f_of(float x, float y) {
        float r27731 = x;
        float r27732 = y;
        float r27733 = r27731 * r27732;
        float r27734 = 2.0;
        float r27735 = r27733 / r27734;
        return r27735;
}

double f_od(double x, double y) {
        double r27736 = x;
        double r27737 = y;
        double r27738 = r27736 * r27737;
        double r27739 = 2.0;
        double r27740 = r27738 / r27739;
        return r27740;
}

void mpfr_fmod2(mpfr_t r, mpfr_t n, mpfr_t d, mpfr_rnd_t rmd) {
        mpfr_fmod(r, n, d, rmd);
        if (mpfr_cmp_ui(r, 0) < 0) mpfr_add(r, r, d, rmd);
}


static mpfr_t r27741, r27742, r27743, r27744, r27745;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r27741);
        mpfr_init(r27742);
        mpfr_init(r27743);
        mpfr_init_set_str(r27744, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27745);
}

double f_im(double x, double y) {
        mpfr_set_d(r27741, x, MPFR_RNDN);
        mpfr_set_d(r27742, y, MPFR_RNDN);
        mpfr_mul(r27743, r27741, r27742, MPFR_RNDN);
        ;
        mpfr_div(r27745, r27743, r27744, MPFR_RNDN);
        return mpfr_get_d(r27745, MPFR_RNDN);
}

static mpfr_t r27746, r27747, r27748, r27749, r27750;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r27746);
        mpfr_init(r27747);
        mpfr_init(r27748);
        mpfr_init_set_str(r27749, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27750);
}

double f_fm(double x, double y) {
        mpfr_set_d(r27746, x, MPFR_RNDN);
        mpfr_set_d(r27747, y, MPFR_RNDN);
        mpfr_mul(r27748, r27746, r27747, MPFR_RNDN);
        ;
        mpfr_div(r27750, r27748, r27749, MPFR_RNDN);
        return mpfr_get_d(r27750, MPFR_RNDN);
}

static mpfr_t r27751, r27752, r27753, r27754, r27755;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r27751);
        mpfr_init(r27752);
        mpfr_init(r27753);
        mpfr_init_set_str(r27754, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27755);
}

double f_dm(double x, double y) {
        mpfr_set_d(r27751, x, MPFR_RNDN);
        mpfr_set_d(r27752, y, MPFR_RNDN);
        mpfr_mul(r27753, r27751, r27752, MPFR_RNDN);
        ;
        mpfr_div(r27755, r27753, r27754, MPFR_RNDN);
        return mpfr_get_d(r27755, MPFR_RNDN);
}