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

char *name = "_multiplyComplex, imaginary part";

double f_if(float x_re, float x_im, float y_re, float y_im) {
        float r25729 = x_re;
        float r25730 = y_im;
        float r25731 = r25729 * r25730;
        float r25732 = x_im;
        float r25733 = y_re;
        float r25734 = r25732 * r25733;
        float r25735 = r25731 + r25734;
        return r25735;
}

double f_id(double x_re, double x_im, double y_re, double y_im) {
        double r25736 = x_re;
        double r25737 = y_im;
        double r25738 = r25736 * r25737;
        double r25739 = x_im;
        double r25740 = y_re;
        double r25741 = r25739 * r25740;
        double r25742 = r25738 + r25741;
        return r25742;
}


double f_of(float x_re, float x_im, float y_re, float y_im) {
        float r25743 = x_re;
        float r25744 = y_im;
        float r25745 = r25743 * r25744;
        float r25746 = x_im;
        float r25747 = y_re;
        float r25748 = r25746 * r25747;
        float r25749 = r25745 + r25748;
        return r25749;
}

double f_od(double x_re, double x_im, double y_re, double y_im) {
        double r25750 = x_re;
        double r25751 = y_im;
        double r25752 = r25750 * r25751;
        double r25753 = x_im;
        double r25754 = y_re;
        double r25755 = r25753 * r25754;
        double r25756 = r25752 + r25755;
        return r25756;
}

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 r25757, r25758, r25759, r25760, r25761, r25762, r25763;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r25757);
        mpfr_init(r25758);
        mpfr_init(r25759);
        mpfr_init(r25760);
        mpfr_init(r25761);
        mpfr_init(r25762);
        mpfr_init(r25763);
}

double f_im(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r25757, x_re, MPFR_RNDN);
        mpfr_set_d(r25758, y_im, MPFR_RNDN);
        mpfr_mul(r25759, r25757, r25758, MPFR_RNDN);
        mpfr_set_d(r25760, x_im, MPFR_RNDN);
        mpfr_set_d(r25761, y_re, MPFR_RNDN);
        mpfr_mul(r25762, r25760, r25761, MPFR_RNDN);
        mpfr_add(r25763, r25759, r25762, MPFR_RNDN);
        return mpfr_get_d(r25763, MPFR_RNDN);
}

static mpfr_t r25764, r25765, r25766, r25767, r25768, r25769, r25770;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r25764);
        mpfr_init(r25765);
        mpfr_init(r25766);
        mpfr_init(r25767);
        mpfr_init(r25768);
        mpfr_init(r25769);
        mpfr_init(r25770);
}

double f_fm(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r25764, x_re, MPFR_RNDN);
        mpfr_set_d(r25765, y_im, MPFR_RNDN);
        mpfr_mul(r25766, r25764, r25765, MPFR_RNDN);
        mpfr_set_d(r25767, x_im, MPFR_RNDN);
        mpfr_set_d(r25768, y_re, MPFR_RNDN);
        mpfr_mul(r25769, r25767, r25768, MPFR_RNDN);
        mpfr_add(r25770, r25766, r25769, MPFR_RNDN);
        return mpfr_get_d(r25770, MPFR_RNDN);
}

static mpfr_t r25771, r25772, r25773, r25774, r25775, r25776, r25777;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r25771);
        mpfr_init(r25772);
        mpfr_init(r25773);
        mpfr_init(r25774);
        mpfr_init(r25775);
        mpfr_init(r25776);
        mpfr_init(r25777);
}

double f_dm(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r25771, x_re, MPFR_RNDN);
        mpfr_set_d(r25772, y_im, MPFR_RNDN);
        mpfr_mul(r25773, r25771, r25772, MPFR_RNDN);
        mpfr_set_d(r25774, x_im, MPFR_RNDN);
        mpfr_set_d(r25775, y_re, MPFR_RNDN);
        mpfr_mul(r25776, r25774, r25775, MPFR_RNDN);
        mpfr_add(r25777, r25773, r25776, MPFR_RNDN);
        return mpfr_get_d(r25777, MPFR_RNDN);
}