#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 r19886 = d1;
        float r19887 = d2;
        float r19888 = r19886 * r19887;
        float r19889 = d3;
        float r19890 = r19886 * r19889;
        float r19891 = r19888 - r19890;
        float r19892 = d4;
        float r19893 = r19892 * r19886;
        float r19894 = r19891 + r19893;
        float r19895 = r19886 * r19886;
        float r19896 = r19894 - r19895;
        return r19896;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r19897 = d1;
        double r19898 = d2;
        double r19899 = r19897 * r19898;
        double r19900 = d3;
        double r19901 = r19897 * r19900;
        double r19902 = r19899 - r19901;
        double r19903 = d4;
        double r19904 = r19903 * r19897;
        double r19905 = r19902 + r19904;
        double r19906 = r19897 * r19897;
        double r19907 = r19905 - r19906;
        return r19907;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r19908 = d1;
        float r19909 = d4;
        float r19910 = d2;
        float r19911 = r19909 + r19910;
        float r19912 = d3;
        float r19913 = r19912 + r19908;
        float r19914 = r19911 - r19913;
        float r19915 = r19908 * r19914;
        return r19915;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r19916 = d1;
        double r19917 = d4;
        double r19918 = d2;
        double r19919 = r19917 + r19918;
        double r19920 = d3;
        double r19921 = r19920 + r19916;
        double r19922 = r19919 - r19921;
        double r19923 = r19916 * r19922;
        return r19923;
}

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 r19924, r19925, r19926, r19927, r19928, r19929, r19930, r19931, r19932, r19933, r19934;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r19924);
        mpfr_init(r19925);
        mpfr_init(r19926);
        mpfr_init(r19927);
        mpfr_init(r19928);
        mpfr_init(r19929);
        mpfr_init(r19930);
        mpfr_init(r19931);
        mpfr_init(r19932);
        mpfr_init(r19933);
        mpfr_init(r19934);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19924, d1, MPFR_RNDN);
        mpfr_set_d(r19925, d2, MPFR_RNDN);
        mpfr_mul(r19926, r19924, r19925, MPFR_RNDN);
        mpfr_set_d(r19927, d3, MPFR_RNDN);
        mpfr_mul(r19928, r19924, r19927, MPFR_RNDN);
        mpfr_sub(r19929, r19926, r19928, MPFR_RNDN);
        mpfr_set_d(r19930, d4, MPFR_RNDN);
        mpfr_mul(r19931, r19930, r19924, MPFR_RNDN);
        mpfr_add(r19932, r19929, r19931, MPFR_RNDN);
        mpfr_mul(r19933, r19924, r19924, MPFR_RNDN);
        mpfr_sub(r19934, r19932, r19933, MPFR_RNDN);
        return mpfr_get_d(r19934, MPFR_RNDN);
}

static mpfr_t r19935, r19936, r19937, r19938, r19939, r19940, r19941, r19942;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19935);
        mpfr_init(r19936);
        mpfr_init(r19937);
        mpfr_init(r19938);
        mpfr_init(r19939);
        mpfr_init(r19940);
        mpfr_init(r19941);
        mpfr_init(r19942);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19935, d1, MPFR_RNDN);
        mpfr_set_d(r19936, d4, MPFR_RNDN);
        mpfr_set_d(r19937, d2, MPFR_RNDN);
        mpfr_add(r19938, r19936, r19937, MPFR_RNDN);
        mpfr_set_d(r19939, d3, MPFR_RNDN);
        mpfr_add(r19940, r19939, r19935, MPFR_RNDN);
        mpfr_sub(r19941, r19938, r19940, MPFR_RNDN);
        mpfr_mul(r19942, r19935, r19941, MPFR_RNDN);
        return mpfr_get_d(r19942, MPFR_RNDN);
}

static mpfr_t r19943, r19944, r19945, r19946, r19947, r19948, r19949, r19950;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19943);
        mpfr_init(r19944);
        mpfr_init(r19945);
        mpfr_init(r19946);
        mpfr_init(r19947);
        mpfr_init(r19948);
        mpfr_init(r19949);
        mpfr_init(r19950);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r19943, d1, MPFR_RNDN);
        mpfr_set_d(r19944, d4, MPFR_RNDN);
        mpfr_set_d(r19945, d2, MPFR_RNDN);
        mpfr_add(r19946, r19944, r19945, MPFR_RNDN);
        mpfr_set_d(r19947, d3, MPFR_RNDN);
        mpfr_add(r19948, r19947, r19943, MPFR_RNDN);
        mpfr_sub(r19949, r19946, r19948, MPFR_RNDN);
        mpfr_mul(r19950, r19943, r19949, MPFR_RNDN);
        return mpfr_get_d(r19950, MPFR_RNDN);
}