#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 r9378 = x_re;
        float r9379 = y_im;
        float r9380 = r9378 * r9379;
        float r9381 = x_im;
        float r9382 = y_re;
        float r9383 = r9381 * r9382;
        float r9384 = r9380 + r9383;
        return r9384;
}

double f_id(double x_re, double x_im, double y_re, double y_im) {
        double r9385 = x_re;
        double r9386 = y_im;
        double r9387 = r9385 * r9386;
        double r9388 = x_im;
        double r9389 = y_re;
        double r9390 = r9388 * r9389;
        double r9391 = r9387 + r9390;
        return r9391;
}


double f_of(float x_re, float x_im, float y_re, float y_im) {
        float r9392 = x_im;
        float r9393 = y_re;
        float r9394 = r9392 * r9393;
        float r9395 = x_re;
        float r9396 = y_im;
        float r9397 = r9395 * r9396;
        float r9398 = r9394 + r9397;
        return r9398;
}

double f_od(double x_re, double x_im, double y_re, double y_im) {
        double r9399 = x_im;
        double r9400 = y_re;
        double r9401 = r9399 * r9400;
        double r9402 = x_re;
        double r9403 = y_im;
        double r9404 = r9402 * r9403;
        double r9405 = r9401 + r9404;
        return r9405;
}

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 r9406, r9407, r9408, r9409, r9410, r9411, r9412;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r9406);
        mpfr_init(r9407);
        mpfr_init(r9408);
        mpfr_init(r9409);
        mpfr_init(r9410);
        mpfr_init(r9411);
        mpfr_init(r9412);
}

double f_im(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r9406, x_re, MPFR_RNDN);
        mpfr_set_d(r9407, y_im, MPFR_RNDN);
        mpfr_mul(r9408, r9406, r9407, MPFR_RNDN);
        mpfr_set_d(r9409, x_im, MPFR_RNDN);
        mpfr_set_d(r9410, y_re, MPFR_RNDN);
        mpfr_mul(r9411, r9409, r9410, MPFR_RNDN);
        mpfr_add(r9412, r9408, r9411, MPFR_RNDN);
        return mpfr_get_d(r9412, MPFR_RNDN);
}

static mpfr_t r9413, r9414, r9415, r9416, r9417, r9418, r9419;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9413);
        mpfr_init(r9414);
        mpfr_init(r9415);
        mpfr_init(r9416);
        mpfr_init(r9417);
        mpfr_init(r9418);
        mpfr_init(r9419);
}

double f_fm(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r9413, x_im, MPFR_RNDN);
        mpfr_set_d(r9414, y_re, MPFR_RNDN);
        mpfr_mul(r9415, r9413, r9414, MPFR_RNDN);
        mpfr_set_d(r9416, x_re, MPFR_RNDN);
        mpfr_set_d(r9417, y_im, MPFR_RNDN);
        mpfr_mul(r9418, r9416, r9417, MPFR_RNDN);
        mpfr_add(r9419, r9415, r9418, MPFR_RNDN);
        return mpfr_get_d(r9419, MPFR_RNDN);
}

static mpfr_t r9420, r9421, r9422, r9423, r9424, r9425, r9426;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9420);
        mpfr_init(r9421);
        mpfr_init(r9422);
        mpfr_init(r9423);
        mpfr_init(r9424);
        mpfr_init(r9425);
        mpfr_init(r9426);
}

double f_dm(double x_re, double x_im, double y_re, double y_im) {
        mpfr_set_d(r9420, x_im, MPFR_RNDN);
        mpfr_set_d(r9421, y_re, MPFR_RNDN);
        mpfr_mul(r9422, r9420, r9421, MPFR_RNDN);
        mpfr_set_d(r9423, x_re, MPFR_RNDN);
        mpfr_set_d(r9424, y_im, MPFR_RNDN);
        mpfr_mul(r9425, r9423, r9424, MPFR_RNDN);
        mpfr_add(r9426, r9422, r9425, MPFR_RNDN);
        return mpfr_get_d(r9426, MPFR_RNDN);
}