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

char *name = "FastMath dist4";

double f_if(float d1, float d2, float d3, float d4) {
        float r19714 = d1;
        float r19715 = d2;
        float r19716 = r19714 * r19715;
        float r19717 = d3;
        float r19718 = r19714 * r19717;
        float r19719 = r19716 - r19718;
        float r19720 = d4;
        float r19721 = r19720 * r19714;
        float r19722 = r19719 + r19721;
        float r19723 = r19714 * r19714;
        float r19724 = r19722 - r19723;
        return r19724;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r19725 = d1;
        double r19726 = d2;
        double r19727 = r19725 * r19726;
        double r19728 = d3;
        double r19729 = r19725 * r19728;
        double r19730 = r19727 - r19729;
        double r19731 = d4;
        double r19732 = r19731 * r19725;
        double r19733 = r19730 + r19732;
        double r19734 = r19725 * r19725;
        double r19735 = r19733 - r19734;
        return r19735;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r19736 = d1;
        float r19737 = d2;
        float r19738 = d3;
        float r19739 = r19737 - r19738;
        float r19740 = d4;
        float r19741 = r19740 - r19736;
        float r19742 = r19736 * r19741;
        float r19743 = fma(r19736, r19739, r19742);
        return r19743;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r19744 = d1;
        double r19745 = d2;
        double r19746 = d3;
        double r19747 = r19745 - r19746;
        double r19748 = d4;
        double r19749 = r19748 - r19744;
        double r19750 = r19744 * r19749;
        double r19751 = fma(r19744, r19747, r19750);
        return r19751;
}

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 r19752, r19753, r19754, r19755, r19756, r19757, r19758, r19759, r19760, r19761, r19762;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r19752);
        mpfr_init(r19753);
        mpfr_init(r19754);
        mpfr_init(r19755);
        mpfr_init(r19756);
        mpfr_init(r19757);
        mpfr_init(r19758);
        mpfr_init(r19759);
        mpfr_init(r19760);
        mpfr_init(r19761);
        mpfr_init(r19762);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19752, d1, MPFR_RNDN);
        mpfr_set_d(r19753, d2, MPFR_RNDN);
        mpfr_mul(r19754, r19752, r19753, MPFR_RNDN);
        mpfr_set_d(r19755, d3, MPFR_RNDN);
        mpfr_mul(r19756, r19752, r19755, MPFR_RNDN);
        mpfr_sub(r19757, r19754, r19756, MPFR_RNDN);
        mpfr_set_d(r19758, d4, MPFR_RNDN);
        mpfr_mul(r19759, r19758, r19752, MPFR_RNDN);
        mpfr_add(r19760, r19757, r19759, MPFR_RNDN);
        mpfr_mul(r19761, r19752, r19752, MPFR_RNDN);
        mpfr_sub(r19762, r19760, r19761, MPFR_RNDN);
        return mpfr_get_d(r19762, MPFR_RNDN);
}

static mpfr_t r19763, r19764, r19765, r19766, r19767, r19768, r19769, r19770;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19763);
        mpfr_init(r19764);
        mpfr_init(r19765);
        mpfr_init(r19766);
        mpfr_init(r19767);
        mpfr_init(r19768);
        mpfr_init(r19769);
        mpfr_init(r19770);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19763, d1, MPFR_RNDN);
        mpfr_set_d(r19764, d2, MPFR_RNDN);
        mpfr_set_d(r19765, d3, MPFR_RNDN);
        mpfr_sub(r19766, r19764, r19765, MPFR_RNDN);
        mpfr_set_d(r19767, d4, MPFR_RNDN);
        mpfr_sub(r19768, r19767, r19763, MPFR_RNDN);
        mpfr_mul(r19769, r19763, r19768, MPFR_RNDN);
        mpfr_fma(r19770, r19763, r19766, r19769, MPFR_RNDN);
        return mpfr_get_d(r19770, MPFR_RNDN);
}

static mpfr_t r19771, r19772, r19773, r19774, r19775, r19776, r19777, r19778;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19771);
        mpfr_init(r19772);
        mpfr_init(r19773);
        mpfr_init(r19774);
        mpfr_init(r19775);
        mpfr_init(r19776);
        mpfr_init(r19777);
        mpfr_init(r19778);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19771, d1, MPFR_RNDN);
        mpfr_set_d(r19772, d2, MPFR_RNDN);
        mpfr_set_d(r19773, d3, MPFR_RNDN);
        mpfr_sub(r19774, r19772, r19773, MPFR_RNDN);
        mpfr_set_d(r19775, d4, MPFR_RNDN);
        mpfr_sub(r19776, r19775, r19771, MPFR_RNDN);
        mpfr_mul(r19777, r19771, r19776, MPFR_RNDN);
        mpfr_fma(r19778, r19771, r19774, r19777, MPFR_RNDN);
        return mpfr_get_d(r19778, MPFR_RNDN);
}