#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 r26114 = d1;
        float r26115 = d2;
        float r26116 = r26114 * r26115;
        float r26117 = d3;
        float r26118 = r26114 * r26117;
        float r26119 = r26116 - r26118;
        float r26120 = d4;
        float r26121 = r26120 * r26114;
        float r26122 = r26119 + r26121;
        float r26123 = r26114 * r26114;
        float r26124 = r26122 - r26123;
        return r26124;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r26125 = d1;
        double r26126 = d2;
        double r26127 = r26125 * r26126;
        double r26128 = d3;
        double r26129 = r26125 * r26128;
        double r26130 = r26127 - r26129;
        double r26131 = d4;
        double r26132 = r26131 * r26125;
        double r26133 = r26130 + r26132;
        double r26134 = r26125 * r26125;
        double r26135 = r26133 - r26134;
        return r26135;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r26136 = d1;
        float r26137 = d4;
        float r26138 = r26137 - r26136;
        float r26139 = d2;
        float r26140 = d3;
        float r26141 = r26139 - r26140;
        float r26142 = r26138 + r26141;
        float r26143 = r26136 * r26142;
        return r26143;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r26144 = d1;
        double r26145 = d4;
        double r26146 = r26145 - r26144;
        double r26147 = d2;
        double r26148 = d3;
        double r26149 = r26147 - r26148;
        double r26150 = r26146 + r26149;
        double r26151 = r26144 * r26150;
        return r26151;
}

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 r26152, r26153, r26154, r26155, r26156, r26157, r26158, r26159, r26160, r26161, r26162;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r26152);
        mpfr_init(r26153);
        mpfr_init(r26154);
        mpfr_init(r26155);
        mpfr_init(r26156);
        mpfr_init(r26157);
        mpfr_init(r26158);
        mpfr_init(r26159);
        mpfr_init(r26160);
        mpfr_init(r26161);
        mpfr_init(r26162);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r26152, d1, MPFR_RNDN);
        mpfr_set_d(r26153, d2, MPFR_RNDN);
        mpfr_mul(r26154, r26152, r26153, MPFR_RNDN);
        mpfr_set_d(r26155, d3, MPFR_RNDN);
        mpfr_mul(r26156, r26152, r26155, MPFR_RNDN);
        mpfr_sub(r26157, r26154, r26156, MPFR_RNDN);
        mpfr_set_d(r26158, d4, MPFR_RNDN);
        mpfr_mul(r26159, r26158, r26152, MPFR_RNDN);
        mpfr_add(r26160, r26157, r26159, MPFR_RNDN);
        mpfr_mul(r26161, r26152, r26152, MPFR_RNDN);
        mpfr_sub(r26162, r26160, r26161, MPFR_RNDN);
        return mpfr_get_d(r26162, MPFR_RNDN);
}

static mpfr_t r26163, r26164, r26165, r26166, r26167, r26168, r26169, r26170;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r26163);
        mpfr_init(r26164);
        mpfr_init(r26165);
        mpfr_init(r26166);
        mpfr_init(r26167);
        mpfr_init(r26168);
        mpfr_init(r26169);
        mpfr_init(r26170);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r26163, d1, MPFR_RNDN);
        mpfr_set_d(r26164, d4, MPFR_RNDN);
        mpfr_sub(r26165, r26164, r26163, MPFR_RNDN);
        mpfr_set_d(r26166, d2, MPFR_RNDN);
        mpfr_set_d(r26167, d3, MPFR_RNDN);
        mpfr_sub(r26168, r26166, r26167, MPFR_RNDN);
        mpfr_add(r26169, r26165, r26168, MPFR_RNDN);
        mpfr_mul(r26170, r26163, r26169, MPFR_RNDN);
        return mpfr_get_d(r26170, MPFR_RNDN);
}

static mpfr_t r26171, r26172, r26173, r26174, r26175, r26176, r26177, r26178;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r26171);
        mpfr_init(r26172);
        mpfr_init(r26173);
        mpfr_init(r26174);
        mpfr_init(r26175);
        mpfr_init(r26176);
        mpfr_init(r26177);
        mpfr_init(r26178);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r26171, d1, MPFR_RNDN);
        mpfr_set_d(r26172, d4, MPFR_RNDN);
        mpfr_sub(r26173, r26172, r26171, MPFR_RNDN);
        mpfr_set_d(r26174, d2, MPFR_RNDN);
        mpfr_set_d(r26175, d3, MPFR_RNDN);
        mpfr_sub(r26176, r26174, r26175, MPFR_RNDN);
        mpfr_add(r26177, r26173, r26176, MPFR_RNDN);
        mpfr_mul(r26178, r26171, r26177, MPFR_RNDN);
        return mpfr_get_d(r26178, MPFR_RNDN);
}