#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 r20338 = d1;
        float r20339 = d2;
        float r20340 = r20338 * r20339;
        float r20341 = d3;
        float r20342 = r20338 * r20341;
        float r20343 = r20340 - r20342;
        float r20344 = d4;
        float r20345 = r20344 * r20338;
        float r20346 = r20343 + r20345;
        float r20347 = r20338 * r20338;
        float r20348 = r20346 - r20347;
        return r20348;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r20349 = d1;
        double r20350 = d2;
        double r20351 = r20349 * r20350;
        double r20352 = d3;
        double r20353 = r20349 * r20352;
        double r20354 = r20351 - r20353;
        double r20355 = d4;
        double r20356 = r20355 * r20349;
        double r20357 = r20354 + r20356;
        double r20358 = r20349 * r20349;
        double r20359 = r20357 - r20358;
        return r20359;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r20360 = d1;
        float r20361 = d4;
        float r20362 = r20360 * r20361;
        float r20363 = d2;
        float r20364 = d3;
        float r20365 = r20364 + r20360;
        float r20366 = r20363 - r20365;
        float r20367 = r20360 * r20366;
        float r20368 = r20362 + r20367;
        return r20368;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r20369 = d1;
        double r20370 = d4;
        double r20371 = r20369 * r20370;
        double r20372 = d2;
        double r20373 = d3;
        double r20374 = r20373 + r20369;
        double r20375 = r20372 - r20374;
        double r20376 = r20369 * r20375;
        double r20377 = r20371 + r20376;
        return r20377;
}

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 r20378, r20379, r20380, r20381, r20382, r20383, r20384, r20385, r20386, r20387, r20388;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r20378);
        mpfr_init(r20379);
        mpfr_init(r20380);
        mpfr_init(r20381);
        mpfr_init(r20382);
        mpfr_init(r20383);
        mpfr_init(r20384);
        mpfr_init(r20385);
        mpfr_init(r20386);
        mpfr_init(r20387);
        mpfr_init(r20388);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20378, d1, MPFR_RNDN);
        mpfr_set_d(r20379, d2, MPFR_RNDN);
        mpfr_mul(r20380, r20378, r20379, MPFR_RNDN);
        mpfr_set_d(r20381, d3, MPFR_RNDN);
        mpfr_mul(r20382, r20378, r20381, MPFR_RNDN);
        mpfr_sub(r20383, r20380, r20382, MPFR_RNDN);
        mpfr_set_d(r20384, d4, MPFR_RNDN);
        mpfr_mul(r20385, r20384, r20378, MPFR_RNDN);
        mpfr_add(r20386, r20383, r20385, MPFR_RNDN);
        mpfr_mul(r20387, r20378, r20378, MPFR_RNDN);
        mpfr_sub(r20388, r20386, r20387, MPFR_RNDN);
        return mpfr_get_d(r20388, MPFR_RNDN);
}

static mpfr_t r20389, r20390, r20391, r20392, r20393, r20394, r20395, r20396, r20397;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r20389);
        mpfr_init(r20390);
        mpfr_init(r20391);
        mpfr_init(r20392);
        mpfr_init(r20393);
        mpfr_init(r20394);
        mpfr_init(r20395);
        mpfr_init(r20396);
        mpfr_init(r20397);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20389, d1, MPFR_RNDN);
        mpfr_set_d(r20390, d4, MPFR_RNDN);
        mpfr_mul(r20391, r20389, r20390, MPFR_RNDN);
        mpfr_set_d(r20392, d2, MPFR_RNDN);
        mpfr_set_d(r20393, d3, MPFR_RNDN);
        mpfr_add(r20394, r20393, r20389, MPFR_RNDN);
        mpfr_sub(r20395, r20392, r20394, MPFR_RNDN);
        mpfr_mul(r20396, r20389, r20395, MPFR_RNDN);
        mpfr_add(r20397, r20391, r20396, MPFR_RNDN);
        return mpfr_get_d(r20397, MPFR_RNDN);
}

static mpfr_t r20398, r20399, r20400, r20401, r20402, r20403, r20404, r20405, r20406;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r20398);
        mpfr_init(r20399);
        mpfr_init(r20400);
        mpfr_init(r20401);
        mpfr_init(r20402);
        mpfr_init(r20403);
        mpfr_init(r20404);
        mpfr_init(r20405);
        mpfr_init(r20406);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20398, d1, MPFR_RNDN);
        mpfr_set_d(r20399, d4, MPFR_RNDN);
        mpfr_mul(r20400, r20398, r20399, MPFR_RNDN);
        mpfr_set_d(r20401, d2, MPFR_RNDN);
        mpfr_set_d(r20402, d3, MPFR_RNDN);
        mpfr_add(r20403, r20402, r20398, MPFR_RNDN);
        mpfr_sub(r20404, r20401, r20403, MPFR_RNDN);
        mpfr_mul(r20405, r20398, r20404, MPFR_RNDN);
        mpfr_add(r20406, r20400, r20405, MPFR_RNDN);
        return mpfr_get_d(r20406, MPFR_RNDN);
}