#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 r19770 = d1;
        float r19771 = d2;
        float r19772 = r19770 * r19771;
        float r19773 = d3;
        float r19774 = r19770 * r19773;
        float r19775 = r19772 - r19774;
        float r19776 = d4;
        float r19777 = r19776 * r19770;
        float r19778 = r19775 + r19777;
        float r19779 = r19770 * r19770;
        float r19780 = r19778 - r19779;
        return r19780;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r19781 = d1;
        double r19782 = d2;
        double r19783 = r19781 * r19782;
        double r19784 = d3;
        double r19785 = r19781 * r19784;
        double r19786 = r19783 - r19785;
        double r19787 = d4;
        double r19788 = r19787 * r19781;
        double r19789 = r19786 + r19788;
        double r19790 = r19781 * r19781;
        double r19791 = r19789 - r19790;
        return r19791;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r19792 = d1;
        float r19793 = d2;
        float r19794 = d3;
        float r19795 = r19793 - r19794;
        float r19796 = d4;
        float r19797 = r19796 - r19792;
        float r19798 = r19792 * r19797;
        float r19799 = fma(r19792, r19795, r19798);
        return r19799;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r19800 = d1;
        double r19801 = d2;
        double r19802 = d3;
        double r19803 = r19801 - r19802;
        double r19804 = d4;
        double r19805 = r19804 - r19800;
        double r19806 = r19800 * r19805;
        double r19807 = fma(r19800, r19803, r19806);
        return r19807;
}

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 r19808, r19809, r19810, r19811, r19812, r19813, r19814, r19815, r19816, r19817, r19818;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r19808);
        mpfr_init(r19809);
        mpfr_init(r19810);
        mpfr_init(r19811);
        mpfr_init(r19812);
        mpfr_init(r19813);
        mpfr_init(r19814);
        mpfr_init(r19815);
        mpfr_init(r19816);
        mpfr_init(r19817);
        mpfr_init(r19818);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19808, d1, MPFR_RNDN);
        mpfr_set_d(r19809, d2, MPFR_RNDN);
        mpfr_mul(r19810, r19808, r19809, MPFR_RNDN);
        mpfr_set_d(r19811, d3, MPFR_RNDN);
        mpfr_mul(r19812, r19808, r19811, MPFR_RNDN);
        mpfr_sub(r19813, r19810, r19812, MPFR_RNDN);
        mpfr_set_d(r19814, d4, MPFR_RNDN);
        mpfr_mul(r19815, r19814, r19808, MPFR_RNDN);
        mpfr_add(r19816, r19813, r19815, MPFR_RNDN);
        mpfr_mul(r19817, r19808, r19808, MPFR_RNDN);
        mpfr_sub(r19818, r19816, r19817, MPFR_RNDN);
        return mpfr_get_d(r19818, MPFR_RNDN);
}

static mpfr_t r19819, r19820, r19821, r19822, r19823, r19824, r19825, r19826;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19819);
        mpfr_init(r19820);
        mpfr_init(r19821);
        mpfr_init(r19822);
        mpfr_init(r19823);
        mpfr_init(r19824);
        mpfr_init(r19825);
        mpfr_init(r19826);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19819, d1, MPFR_RNDN);
        mpfr_set_d(r19820, d2, MPFR_RNDN);
        mpfr_set_d(r19821, d3, MPFR_RNDN);
        mpfr_sub(r19822, r19820, r19821, MPFR_RNDN);
        mpfr_set_d(r19823, d4, MPFR_RNDN);
        mpfr_sub(r19824, r19823, r19819, MPFR_RNDN);
        mpfr_mul(r19825, r19819, r19824, MPFR_RNDN);
        mpfr_fma(r19826, r19819, r19822, r19825, MPFR_RNDN);
        return mpfr_get_d(r19826, MPFR_RNDN);
}

static mpfr_t r19827, r19828, r19829, r19830, r19831, r19832, r19833, r19834;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19827);
        mpfr_init(r19828);
        mpfr_init(r19829);
        mpfr_init(r19830);
        mpfr_init(r19831);
        mpfr_init(r19832);
        mpfr_init(r19833);
        mpfr_init(r19834);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19827, d1, MPFR_RNDN);
        mpfr_set_d(r19828, d2, MPFR_RNDN);
        mpfr_set_d(r19829, d3, MPFR_RNDN);
        mpfr_sub(r19830, r19828, r19829, MPFR_RNDN);
        mpfr_set_d(r19831, d4, MPFR_RNDN);
        mpfr_sub(r19832, r19831, r19827, MPFR_RNDN);
        mpfr_mul(r19833, r19827, r19832, MPFR_RNDN);
        mpfr_fma(r19834, r19827, r19830, r19833, MPFR_RNDN);
        return mpfr_get_d(r19834, MPFR_RNDN);
}