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

char *name = "math.square on complex, imaginary part";

double f_if(float re, float im) {
        float r18577 = re;
        float r18578 = im;
        float r18579 = r18577 * r18578;
        float r18580 = r18578 * r18577;
        float r18581 = r18579 + r18580;
        return r18581;
}

double f_id(double re, double im) {
        double r18582 = re;
        double r18583 = im;
        double r18584 = r18582 * r18583;
        double r18585 = r18583 * r18582;
        double r18586 = r18584 + r18585;
        return r18586;
}


double f_of(float re, float im) {
        float r18587 = re;
        float r18588 = im;
        float r18589 = r18588 + r18588;
        float r18590 = r18587 * r18589;
        return r18590;
}

double f_od(double re, double im) {
        double r18591 = re;
        double r18592 = im;
        double r18593 = r18592 + r18592;
        double r18594 = r18591 * r18593;
        return r18594;
}

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 r18595, r18596, r18597, r18598, r18599;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r18595);
        mpfr_init(r18596);
        mpfr_init(r18597);
        mpfr_init(r18598);
        mpfr_init(r18599);
}

double f_im(double re, double im) {
        mpfr_set_d(r18595, re, MPFR_RNDN);
        mpfr_set_d(r18596, im, MPFR_RNDN);
        mpfr_mul(r18597, r18595, r18596, MPFR_RNDN);
        mpfr_mul(r18598, r18596, r18595, MPFR_RNDN);
        mpfr_add(r18599, r18597, r18598, MPFR_RNDN);
        return mpfr_get_d(r18599, MPFR_RNDN);
}

static mpfr_t r18600, r18601, r18602, r18603;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r18600);
        mpfr_init(r18601);
        mpfr_init(r18602);
        mpfr_init(r18603);
}

double f_fm(double re, double im) {
        mpfr_set_d(r18600, re, MPFR_RNDN);
        mpfr_set_d(r18601, im, MPFR_RNDN);
        mpfr_add(r18602, r18601, r18601, MPFR_RNDN);
        mpfr_mul(r18603, r18600, r18602, MPFR_RNDN);
        return mpfr_get_d(r18603, MPFR_RNDN);
}

static mpfr_t r18604, r18605, r18606, r18607;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r18604);
        mpfr_init(r18605);
        mpfr_init(r18606);
        mpfr_init(r18607);
}

double f_dm(double re, double im) {
        mpfr_set_d(r18604, re, MPFR_RNDN);
        mpfr_set_d(r18605, im, MPFR_RNDN);
        mpfr_add(r18606, r18605, r18605, MPFR_RNDN);
        mpfr_mul(r18607, r18604, r18606, MPFR_RNDN);
        return mpfr_get_d(r18607, MPFR_RNDN);
}