#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 r20126 = d1;
        float r20127 = d2;
        float r20128 = r20126 * r20127;
        float r20129 = d3;
        float r20130 = r20126 * r20129;
        float r20131 = r20128 - r20130;
        float r20132 = d4;
        float r20133 = r20132 * r20126;
        float r20134 = r20131 + r20133;
        float r20135 = r20126 * r20126;
        float r20136 = r20134 - r20135;
        return r20136;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r20137 = d1;
        double r20138 = d2;
        double r20139 = r20137 * r20138;
        double r20140 = d3;
        double r20141 = r20137 * r20140;
        double r20142 = r20139 - r20141;
        double r20143 = d4;
        double r20144 = r20143 * r20137;
        double r20145 = r20142 + r20144;
        double r20146 = r20137 * r20137;
        double r20147 = r20145 - r20146;
        return r20147;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r20148 = d1;
        float r20149 = d4;
        float r20150 = d2;
        float r20151 = r20149 + r20150;
        float r20152 = d3;
        float r20153 = r20152 + r20148;
        float r20154 = r20151 - r20153;
        float r20155 = r20148 * r20154;
        return r20155;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r20156 = d1;
        double r20157 = d4;
        double r20158 = d2;
        double r20159 = r20157 + r20158;
        double r20160 = d3;
        double r20161 = r20160 + r20156;
        double r20162 = r20159 - r20161;
        double r20163 = r20156 * r20162;
        return r20163;
}

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 r20164, r20165, r20166, r20167, r20168, r20169, r20170, r20171, r20172, r20173, r20174;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r20164);
        mpfr_init(r20165);
        mpfr_init(r20166);
        mpfr_init(r20167);
        mpfr_init(r20168);
        mpfr_init(r20169);
        mpfr_init(r20170);
        mpfr_init(r20171);
        mpfr_init(r20172);
        mpfr_init(r20173);
        mpfr_init(r20174);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20164, d1, MPFR_RNDN);
        mpfr_set_d(r20165, d2, MPFR_RNDN);
        mpfr_mul(r20166, r20164, r20165, MPFR_RNDN);
        mpfr_set_d(r20167, d3, MPFR_RNDN);
        mpfr_mul(r20168, r20164, r20167, MPFR_RNDN);
        mpfr_sub(r20169, r20166, r20168, MPFR_RNDN);
        mpfr_set_d(r20170, d4, MPFR_RNDN);
        mpfr_mul(r20171, r20170, r20164, MPFR_RNDN);
        mpfr_add(r20172, r20169, r20171, MPFR_RNDN);
        mpfr_mul(r20173, r20164, r20164, MPFR_RNDN);
        mpfr_sub(r20174, r20172, r20173, MPFR_RNDN);
        return mpfr_get_d(r20174, MPFR_RNDN);
}

static mpfr_t r20175, r20176, r20177, r20178, r20179, r20180, r20181, r20182;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r20175);
        mpfr_init(r20176);
        mpfr_init(r20177);
        mpfr_init(r20178);
        mpfr_init(r20179);
        mpfr_init(r20180);
        mpfr_init(r20181);
        mpfr_init(r20182);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20175, d1, MPFR_RNDN);
        mpfr_set_d(r20176, d4, MPFR_RNDN);
        mpfr_set_d(r20177, d2, MPFR_RNDN);
        mpfr_add(r20178, r20176, r20177, MPFR_RNDN);
        mpfr_set_d(r20179, d3, MPFR_RNDN);
        mpfr_add(r20180, r20179, r20175, MPFR_RNDN);
        mpfr_sub(r20181, r20178, r20180, MPFR_RNDN);
        mpfr_mul(r20182, r20175, r20181, MPFR_RNDN);
        return mpfr_get_d(r20182, MPFR_RNDN);
}

static mpfr_t r20183, r20184, r20185, r20186, r20187, r20188, r20189, r20190;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r20183);
        mpfr_init(r20184);
        mpfr_init(r20185);
        mpfr_init(r20186);
        mpfr_init(r20187);
        mpfr_init(r20188);
        mpfr_init(r20189);
        mpfr_init(r20190);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20183, d1, MPFR_RNDN);
        mpfr_set_d(r20184, d4, MPFR_RNDN);
        mpfr_set_d(r20185, d2, MPFR_RNDN);
        mpfr_add(r20186, r20184, r20185, MPFR_RNDN);
        mpfr_set_d(r20187, d3, MPFR_RNDN);
        mpfr_add(r20188, r20187, r20183, MPFR_RNDN);
        mpfr_sub(r20189, r20186, r20188, MPFR_RNDN);
        mpfr_mul(r20190, r20183, r20189, MPFR_RNDN);
        return mpfr_get_d(r20190, MPFR_RNDN);
}