#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 r19334 = d1;
        float r19335 = d2;
        float r19336 = r19334 * r19335;
        float r19337 = d3;
        float r19338 = r19334 * r19337;
        float r19339 = r19336 - r19338;
        float r19340 = d4;
        float r19341 = r19340 * r19334;
        float r19342 = r19339 + r19341;
        float r19343 = r19334 * r19334;
        float r19344 = r19342 - r19343;
        return r19344;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r19345 = d1;
        double r19346 = d2;
        double r19347 = r19345 * r19346;
        double r19348 = d3;
        double r19349 = r19345 * r19348;
        double r19350 = r19347 - r19349;
        double r19351 = d4;
        double r19352 = r19351 * r19345;
        double r19353 = r19350 + r19352;
        double r19354 = r19345 * r19345;
        double r19355 = r19353 - r19354;
        return r19355;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r19356 = d1;
        float r19357 = d4;
        float r19358 = r19356 * r19357;
        float r19359 = d2;
        float r19360 = d3;
        float r19361 = r19360 + r19356;
        float r19362 = r19359 - r19361;
        float r19363 = r19356 * r19362;
        float r19364 = r19358 + r19363;
        return r19364;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r19365 = d1;
        double r19366 = d4;
        double r19367 = r19365 * r19366;
        double r19368 = d2;
        double r19369 = d3;
        double r19370 = r19369 + r19365;
        double r19371 = r19368 - r19370;
        double r19372 = r19365 * r19371;
        double r19373 = r19367 + r19372;
        return r19373;
}

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 r19374, r19375, r19376, r19377, r19378, r19379, r19380, r19381, r19382, r19383, r19384;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r19374);
        mpfr_init(r19375);
        mpfr_init(r19376);
        mpfr_init(r19377);
        mpfr_init(r19378);
        mpfr_init(r19379);
        mpfr_init(r19380);
        mpfr_init(r19381);
        mpfr_init(r19382);
        mpfr_init(r19383);
        mpfr_init(r19384);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19374, d1, MPFR_RNDN);
        mpfr_set_d(r19375, d2, MPFR_RNDN);
        mpfr_mul(r19376, r19374, r19375, MPFR_RNDN);
        mpfr_set_d(r19377, d3, MPFR_RNDN);
        mpfr_mul(r19378, r19374, r19377, MPFR_RNDN);
        mpfr_sub(r19379, r19376, r19378, MPFR_RNDN);
        mpfr_set_d(r19380, d4, MPFR_RNDN);
        mpfr_mul(r19381, r19380, r19374, MPFR_RNDN);
        mpfr_add(r19382, r19379, r19381, MPFR_RNDN);
        mpfr_mul(r19383, r19374, r19374, MPFR_RNDN);
        mpfr_sub(r19384, r19382, r19383, MPFR_RNDN);
        return mpfr_get_d(r19384, MPFR_RNDN);
}

static mpfr_t r19385, r19386, r19387, r19388, r19389, r19390, r19391, r19392, r19393;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19385);
        mpfr_init(r19386);
        mpfr_init(r19387);
        mpfr_init(r19388);
        mpfr_init(r19389);
        mpfr_init(r19390);
        mpfr_init(r19391);
        mpfr_init(r19392);
        mpfr_init(r19393);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19385, d1, MPFR_RNDN);
        mpfr_set_d(r19386, d4, MPFR_RNDN);
        mpfr_mul(r19387, r19385, r19386, MPFR_RNDN);
        mpfr_set_d(r19388, d2, MPFR_RNDN);
        mpfr_set_d(r19389, d3, MPFR_RNDN);
        mpfr_add(r19390, r19389, r19385, MPFR_RNDN);
        mpfr_sub(r19391, r19388, r19390, MPFR_RNDN);
        mpfr_mul(r19392, r19385, r19391, MPFR_RNDN);
        mpfr_add(r19393, r19387, r19392, MPFR_RNDN);
        return mpfr_get_d(r19393, MPFR_RNDN);
}

static mpfr_t r19394, r19395, r19396, r19397, r19398, r19399, r19400, r19401, r19402;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19394);
        mpfr_init(r19395);
        mpfr_init(r19396);
        mpfr_init(r19397);
        mpfr_init(r19398);
        mpfr_init(r19399);
        mpfr_init(r19400);
        mpfr_init(r19401);
        mpfr_init(r19402);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19394, d1, MPFR_RNDN);
        mpfr_set_d(r19395, d4, MPFR_RNDN);
        mpfr_mul(r19396, r19394, r19395, MPFR_RNDN);
        mpfr_set_d(r19397, d2, MPFR_RNDN);
        mpfr_set_d(r19398, d3, MPFR_RNDN);
        mpfr_add(r19399, r19398, r19394, MPFR_RNDN);
        mpfr_sub(r19400, r19397, r19399, MPFR_RNDN);
        mpfr_mul(r19401, r19394, r19400, MPFR_RNDN);
        mpfr_add(r19402, r19396, r19401, MPFR_RNDN);
        return mpfr_get_d(r19402, MPFR_RNDN);
}