#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 r20482 = d1;
        float r20483 = d2;
        float r20484 = r20482 * r20483;
        float r20485 = d3;
        float r20486 = r20482 * r20485;
        float r20487 = r20484 - r20486;
        float r20488 = d4;
        float r20489 = r20488 * r20482;
        float r20490 = r20487 + r20489;
        float r20491 = r20482 * r20482;
        float r20492 = r20490 - r20491;
        return r20492;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r20493 = d1;
        double r20494 = d2;
        double r20495 = r20493 * r20494;
        double r20496 = d3;
        double r20497 = r20493 * r20496;
        double r20498 = r20495 - r20497;
        double r20499 = d4;
        double r20500 = r20499 * r20493;
        double r20501 = r20498 + r20500;
        double r20502 = r20493 * r20493;
        double r20503 = r20501 - r20502;
        return r20503;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r20504 = d1;
        float r20505 = d4;
        float r20506 = d2;
        float r20507 = r20505 + r20506;
        float r20508 = d3;
        float r20509 = r20508 + r20504;
        float r20510 = r20507 - r20509;
        float r20511 = r20504 * r20510;
        return r20511;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r20512 = d1;
        double r20513 = d4;
        double r20514 = d2;
        double r20515 = r20513 + r20514;
        double r20516 = d3;
        double r20517 = r20516 + r20512;
        double r20518 = r20515 - r20517;
        double r20519 = r20512 * r20518;
        return r20519;
}

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 r20520, r20521, r20522, r20523, r20524, r20525, r20526, r20527, r20528, r20529, r20530;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r20520);
        mpfr_init(r20521);
        mpfr_init(r20522);
        mpfr_init(r20523);
        mpfr_init(r20524);
        mpfr_init(r20525);
        mpfr_init(r20526);
        mpfr_init(r20527);
        mpfr_init(r20528);
        mpfr_init(r20529);
        mpfr_init(r20530);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20520, d1, MPFR_RNDN);
        mpfr_set_d(r20521, d2, MPFR_RNDN);
        mpfr_mul(r20522, r20520, r20521, MPFR_RNDN);
        mpfr_set_d(r20523, d3, MPFR_RNDN);
        mpfr_mul(r20524, r20520, r20523, MPFR_RNDN);
        mpfr_sub(r20525, r20522, r20524, MPFR_RNDN);
        mpfr_set_d(r20526, d4, MPFR_RNDN);
        mpfr_mul(r20527, r20526, r20520, MPFR_RNDN);
        mpfr_add(r20528, r20525, r20527, MPFR_RNDN);
        mpfr_mul(r20529, r20520, r20520, MPFR_RNDN);
        mpfr_sub(r20530, r20528, r20529, MPFR_RNDN);
        return mpfr_get_d(r20530, MPFR_RNDN);
}

static mpfr_t r20531, r20532, r20533, r20534, r20535, r20536, r20537, r20538;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r20531);
        mpfr_init(r20532);
        mpfr_init(r20533);
        mpfr_init(r20534);
        mpfr_init(r20535);
        mpfr_init(r20536);
        mpfr_init(r20537);
        mpfr_init(r20538);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20531, d1, MPFR_RNDN);
        mpfr_set_d(r20532, d4, MPFR_RNDN);
        mpfr_set_d(r20533, d2, MPFR_RNDN);
        mpfr_add(r20534, r20532, r20533, MPFR_RNDN);
        mpfr_set_d(r20535, d3, MPFR_RNDN);
        mpfr_add(r20536, r20535, r20531, MPFR_RNDN);
        mpfr_sub(r20537, r20534, r20536, MPFR_RNDN);
        mpfr_mul(r20538, r20531, r20537, MPFR_RNDN);
        return mpfr_get_d(r20538, MPFR_RNDN);
}

static mpfr_t r20539, r20540, r20541, r20542, r20543, r20544, r20545, r20546;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r20539);
        mpfr_init(r20540);
        mpfr_init(r20541);
        mpfr_init(r20542);
        mpfr_init(r20543);
        mpfr_init(r20544);
        mpfr_init(r20545);
        mpfr_init(r20546);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r20539, d1, MPFR_RNDN);
        mpfr_set_d(r20540, d4, MPFR_RNDN);
        mpfr_set_d(r20541, d2, MPFR_RNDN);
        mpfr_add(r20542, r20540, r20541, MPFR_RNDN);
        mpfr_set_d(r20543, d3, MPFR_RNDN);
        mpfr_add(r20544, r20543, r20539, MPFR_RNDN);
        mpfr_sub(r20545, r20542, r20544, MPFR_RNDN);
        mpfr_mul(r20546, r20539, r20545, MPFR_RNDN);
        return mpfr_get_d(r20546, MPFR_RNDN);
}