#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "Complex division, real part";

double f_if(float a, float b, float c, float d) {
        float r24275 = a;
        float r24276 = c;
        float r24277 = r24275 * r24276;
        float r24278 = b;
        float r24279 = d;
        float r24280 = r24278 * r24279;
        float r24281 = r24277 + r24280;
        float r24282 = r24276 * r24276;
        float r24283 = r24279 * r24279;
        float r24284 = r24282 + r24283;
        float r24285 = r24281 / r24284;
        return r24285;
}

double f_id(double a, double b, double c, double d) {
        double r24286 = a;
        double r24287 = c;
        double r24288 = r24286 * r24287;
        double r24289 = b;
        double r24290 = d;
        double r24291 = r24289 * r24290;
        double r24292 = r24288 + r24291;
        double r24293 = r24287 * r24287;
        double r24294 = r24290 * r24290;
        double r24295 = r24293 + r24294;
        double r24296 = r24292 / r24295;
        return r24296;
}


double f_of(float a, float b, float c, float d) {
        float r24297 = a;
        float r24298 = c;
        float r24299 = r24297 * r24298;
        float r24300 = b;
        float r24301 = d;
        float r24302 = r24300 * r24301;
        float r24303 = r24299 + r24302;
        float r24304 = r24298 * r24298;
        float r24305 = r24301 * r24301;
        float r24306 = r24304 + r24305;
        float r24307 = sqrt(r24306);
        float r24308 = r24303 / r24307;
        float r24309 = r24308 / r24307;
        return r24309;
}

double f_od(double a, double b, double c, double d) {
        double r24310 = a;
        double r24311 = c;
        double r24312 = r24310 * r24311;
        double r24313 = b;
        double r24314 = d;
        double r24315 = r24313 * r24314;
        double r24316 = r24312 + r24315;
        double r24317 = r24311 * r24311;
        double r24318 = r24314 * r24314;
        double r24319 = r24317 + r24318;
        double r24320 = sqrt(r24319);
        double r24321 = r24316 / r24320;
        double r24322 = r24321 / r24320;
        return r24322;
}

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 r24323, r24324, r24325, r24326, r24327, r24328, r24329, r24330, r24331, r24332, r24333;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r24323);
        mpfr_init(r24324);
        mpfr_init(r24325);
        mpfr_init(r24326);
        mpfr_init(r24327);
        mpfr_init(r24328);
        mpfr_init(r24329);
        mpfr_init(r24330);
        mpfr_init(r24331);
        mpfr_init(r24332);
        mpfr_init(r24333);
}

double f_im(double a, double b, double c, double d) {
        mpfr_set_d(r24323, a, MPFR_RNDN);
        mpfr_set_d(r24324, c, MPFR_RNDN);
        mpfr_mul(r24325, r24323, r24324, MPFR_RNDN);
        mpfr_set_d(r24326, b, MPFR_RNDN);
        mpfr_set_d(r24327, d, MPFR_RNDN);
        mpfr_mul(r24328, r24326, r24327, MPFR_RNDN);
        mpfr_add(r24329, r24325, r24328, MPFR_RNDN);
        mpfr_mul(r24330, r24324, r24324, MPFR_RNDN);
        mpfr_mul(r24331, r24327, r24327, MPFR_RNDN);
        mpfr_add(r24332, r24330, r24331, MPFR_RNDN);
        mpfr_div(r24333, r24329, r24332, MPFR_RNDN);
        return mpfr_get_d(r24333, MPFR_RNDN);
}

static mpfr_t r24334, r24335, r24336, r24337, r24338, r24339, r24340, r24341, r24342, r24343, r24344, r24345, r24346;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r24334);
        mpfr_init(r24335);
        mpfr_init(r24336);
        mpfr_init(r24337);
        mpfr_init(r24338);
        mpfr_init(r24339);
        mpfr_init(r24340);
        mpfr_init(r24341);
        mpfr_init(r24342);
        mpfr_init(r24343);
        mpfr_init(r24344);
        mpfr_init(r24345);
        mpfr_init(r24346);
}

double f_fm(double a, double b, double c, double d) {
        mpfr_set_d(r24334, a, MPFR_RNDN);
        mpfr_set_d(r24335, c, MPFR_RNDN);
        mpfr_mul(r24336, r24334, r24335, MPFR_RNDN);
        mpfr_set_d(r24337, b, MPFR_RNDN);
        mpfr_set_d(r24338, d, MPFR_RNDN);
        mpfr_mul(r24339, r24337, r24338, MPFR_RNDN);
        mpfr_add(r24340, r24336, r24339, MPFR_RNDN);
        mpfr_mul(r24341, r24335, r24335, MPFR_RNDN);
        mpfr_mul(r24342, r24338, r24338, MPFR_RNDN);
        mpfr_add(r24343, r24341, r24342, MPFR_RNDN);
        mpfr_sqrt(r24344, r24343, MPFR_RNDN);
        mpfr_div(r24345, r24340, r24344, MPFR_RNDN);
        mpfr_div(r24346, r24345, r24344, MPFR_RNDN);
        return mpfr_get_d(r24346, MPFR_RNDN);
}

static mpfr_t r24347, r24348, r24349, r24350, r24351, r24352, r24353, r24354, r24355, r24356, r24357, r24358, r24359;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r24347);
        mpfr_init(r24348);
        mpfr_init(r24349);
        mpfr_init(r24350);
        mpfr_init(r24351);
        mpfr_init(r24352);
        mpfr_init(r24353);
        mpfr_init(r24354);
        mpfr_init(r24355);
        mpfr_init(r24356);
        mpfr_init(r24357);
        mpfr_init(r24358);
        mpfr_init(r24359);
}

double f_dm(double a, double b, double c, double d) {
        mpfr_set_d(r24347, a, MPFR_RNDN);
        mpfr_set_d(r24348, c, MPFR_RNDN);
        mpfr_mul(r24349, r24347, r24348, MPFR_RNDN);
        mpfr_set_d(r24350, b, MPFR_RNDN);
        mpfr_set_d(r24351, d, MPFR_RNDN);
        mpfr_mul(r24352, r24350, r24351, MPFR_RNDN);
        mpfr_add(r24353, r24349, r24352, MPFR_RNDN);
        mpfr_mul(r24354, r24348, r24348, MPFR_RNDN);
        mpfr_mul(r24355, r24351, r24351, MPFR_RNDN);
        mpfr_add(r24356, r24354, r24355, MPFR_RNDN);
        mpfr_sqrt(r24357, r24356, MPFR_RNDN);
        mpfr_div(r24358, r24353, r24357, MPFR_RNDN);
        mpfr_div(r24359, r24358, r24357, MPFR_RNDN);
        return mpfr_get_d(r24359, MPFR_RNDN);
}