#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 r27765 = x;
        float r27766 = y;
        float r27767 = r27765 * r27766;
        float r27768 = 2.0;
        float r27769 = r27767 / r27768;
        return r27769;
}

double f_id(double x, double y) {
        double r27770 = x;
        double r27771 = y;
        double r27772 = r27770 * r27771;
        double r27773 = 2.0;
        double r27774 = r27772 / r27773;
        return r27774;
}


double f_of(float x, float y) {
        float r27775 = x;
        float r27776 = y;
        float r27777 = r27775 * r27776;
        float r27778 = 2.0;
        float r27779 = r27777 / r27778;
        return r27779;
}

double f_od(double x, double y) {
        double r27780 = x;
        double r27781 = y;
        double r27782 = r27780 * r27781;
        double r27783 = 2.0;
        double r27784 = r27782 / r27783;
        return r27784;
}

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 r27785, r27786, r27787, r27788, r27789;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r27785);
        mpfr_init(r27786);
        mpfr_init(r27787);
        mpfr_init_set_str(r27788, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27789);
}

double f_im(double x, double y) {
        mpfr_set_d(r27785, x, MPFR_RNDN);
        mpfr_set_d(r27786, y, MPFR_RNDN);
        mpfr_mul(r27787, r27785, r27786, MPFR_RNDN);
        ;
        mpfr_div(r27789, r27787, r27788, MPFR_RNDN);
        return mpfr_get_d(r27789, MPFR_RNDN);
}

static mpfr_t r27790, r27791, r27792, r27793, r27794;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r27790);
        mpfr_init(r27791);
        mpfr_init(r27792);
        mpfr_init_set_str(r27793, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27794);
}

double f_fm(double x, double y) {
        mpfr_set_d(r27790, x, MPFR_RNDN);
        mpfr_set_d(r27791, y, MPFR_RNDN);
        mpfr_mul(r27792, r27790, r27791, MPFR_RNDN);
        ;
        mpfr_div(r27794, r27792, r27793, MPFR_RNDN);
        return mpfr_get_d(r27794, MPFR_RNDN);
}

static mpfr_t r27795, r27796, r27797, r27798, r27799;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r27795);
        mpfr_init(r27796);
        mpfr_init(r27797);
        mpfr_init_set_str(r27798, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27799);
}

double f_dm(double x, double y) {
        mpfr_set_d(r27795, x, MPFR_RNDN);
        mpfr_set_d(r27796, y, MPFR_RNDN);
        mpfr_mul(r27797, r27795, r27796, MPFR_RNDN);
        ;
        mpfr_div(r27799, r27797, r27798, MPFR_RNDN);
        return mpfr_get_d(r27799, MPFR_RNDN);
}