#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 r9440 = x_re;
        float r9441 = y_im;
        float r9442 = r9440 * r9441;
        float r9443 = x_im;
        float r9444 = y_re;
        float r9445 = r9443 * r9444;
        float r9446 = r9442 + r9445;
        return r9446;
}

double f_id(double x_re, double x_im, double y_re, double y_im) {
        double r9447 = x_re;
        double r9448 = y_im;
        double r9449 = r9447 * r9448;
        double r9450 = x_im;
        double r9451 = y_re;
        double r9452 = r9450 * r9451;
        double r9453 = r9449 + r9452;
        return r9453;
}


double f_of(float x_re, float x_im, float y_re, float y_im) {
        float r9454 = x_im;
        float r9455 = y_re;
        float r9456 = r9454 * r9455;
        float r9457 = x_re;
        float r9458 = y_im;
        float r9459 = r9457 * r9458;
        float r9460 = r9456 + r9459;
        return r9460;
}

double f_od(double x_re, double x_im, double y_re, double y_im) {
        double r9461 = x_im;
        double r9462 = y_re;
        double r9463 = r9461 * r9462;
        double r9464 = x_re;
        double r9465 = y_im;
        double r9466 = r9464 * r9465;
        double r9467 = r9463 + r9466;
        return r9467;
}

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 r9468, r9469, r9470, r9471, r9472, r9473, r9474;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r9468);
        mpfr_init(r9469);
        mpfr_init(r9470);
        mpfr_init(r9471);
        mpfr_init(r9472);
        mpfr_init(r9473);
        mpfr_init(r9474);
}

double f_im(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r9468, x_re, MPFR_RNDN);
        mpfr_set_d(r9469, y_im, MPFR_RNDN);
        mpfr_mul(r9470, r9468, r9469, MPFR_RNDN);
        mpfr_set_d(r9471, x_im, MPFR_RNDN);
        mpfr_set_d(r9472, y_re, MPFR_RNDN);
        mpfr_mul(r9473, r9471, r9472, MPFR_RNDN);
        mpfr_add(r9474, r9470, r9473, MPFR_RNDN);
        return mpfr_get_d(r9474, MPFR_RNDN);
}

static mpfr_t r9475, r9476, r9477, r9478, r9479, r9480, r9481;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9475);
        mpfr_init(r9476);
        mpfr_init(r9477);
        mpfr_init(r9478);
        mpfr_init(r9479);
        mpfr_init(r9480);
        mpfr_init(r9481);
}

double f_fm(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r9475, x_im, MPFR_RNDN);
        mpfr_set_d(r9476, y_re, MPFR_RNDN);
        mpfr_mul(r9477, r9475, r9476, MPFR_RNDN);
        mpfr_set_d(r9478, x_re, MPFR_RNDN);
        mpfr_set_d(r9479, y_im, MPFR_RNDN);
        mpfr_mul(r9480, r9478, r9479, MPFR_RNDN);
        mpfr_add(r9481, r9477, r9480, MPFR_RNDN);
        return mpfr_get_d(r9481, MPFR_RNDN);
}

static mpfr_t r9482, r9483, r9484, r9485, r9486, r9487, r9488;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9482);
        mpfr_init(r9483);
        mpfr_init(r9484);
        mpfr_init(r9485);
        mpfr_init(r9486);
        mpfr_init(r9487);
        mpfr_init(r9488);
}

double f_dm(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r9482, x_im, MPFR_RNDN);
        mpfr_set_d(r9483, y_re, MPFR_RNDN);
        mpfr_mul(r9484, r9482, r9483, MPFR_RNDN);
        mpfr_set_d(r9485, x_re, MPFR_RNDN);
        mpfr_set_d(r9486, y_im, MPFR_RNDN);
        mpfr_mul(r9487, r9485, r9486, MPFR_RNDN);
        mpfr_add(r9488, r9484, r9487, MPFR_RNDN);
        return mpfr_get_d(r9488, MPFR_RNDN);
}