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

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

double f_if(float a, float b, float c, float d) {
        float r20699 = b;
        float r20700 = c;
        float r20701 = r20699 * r20700;
        float r20702 = a;
        float r20703 = d;
        float r20704 = r20702 * r20703;
        float r20705 = r20701 - r20704;
        float r20706 = r20700 * r20700;
        float r20707 = r20703 * r20703;
        float r20708 = r20706 + r20707;
        float r20709 = r20705 / r20708;
        return r20709;
}

double f_id(double a, double b, double c, double d) {
        double r20710 = b;
        double r20711 = c;
        double r20712 = r20710 * r20711;
        double r20713 = a;
        double r20714 = d;
        double r20715 = r20713 * r20714;
        double r20716 = r20712 - r20715;
        double r20717 = r20711 * r20711;
        double r20718 = r20714 * r20714;
        double r20719 = r20717 + r20718;
        double r20720 = r20716 / r20719;
        return r20720;
}


double f_of(float a, float b, float c, float d) {
        float r20721 = b;
        float r20722 = c;
        float r20723 = r20721 * r20722;
        float r20724 = a;
        float r20725 = d;
        float r20726 = r20724 * r20725;
        float r20727 = r20723 - r20726;
        float r20728 = r20722 * r20722;
        float r20729 = r20725 * r20725;
        float r20730 = r20728 + r20729;
        float r20731 = r20727 / r20730;
        return r20731;
}

double f_od(double a, double b, double c, double d) {
        double r20732 = b;
        double r20733 = c;
        double r20734 = r20732 * r20733;
        double r20735 = a;
        double r20736 = d;
        double r20737 = r20735 * r20736;
        double r20738 = r20734 - r20737;
        double r20739 = r20733 * r20733;
        double r20740 = r20736 * r20736;
        double r20741 = r20739 + r20740;
        double r20742 = r20738 / r20741;
        return r20742;
}

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 r20743, r20744, r20745, r20746, r20747, r20748, r20749, r20750, r20751, r20752, r20753;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r20743);
        mpfr_init(r20744);
        mpfr_init(r20745);
        mpfr_init(r20746);
        mpfr_init(r20747);
        mpfr_init(r20748);
        mpfr_init(r20749);
        mpfr_init(r20750);
        mpfr_init(r20751);
        mpfr_init(r20752);
        mpfr_init(r20753);
}

double f_im(double a, double b, double c, double d) {
        mpfr_set_d(r20743, b, MPFR_RNDN);
        mpfr_set_d(r20744, c, MPFR_RNDN);
        mpfr_mul(r20745, r20743, r20744, MPFR_RNDN);
        mpfr_set_d(r20746, a, MPFR_RNDN);
        mpfr_set_d(r20747, d, MPFR_RNDN);
        mpfr_mul(r20748, r20746, r20747, MPFR_RNDN);
        mpfr_sub(r20749, r20745, r20748, MPFR_RNDN);
        mpfr_sqr(r20750, r20744, MPFR_RNDN);
        mpfr_sqr(r20751, r20747, MPFR_RNDN);
        mpfr_add(r20752, r20750, r20751, MPFR_RNDN);
        mpfr_div(r20753, r20749, r20752, MPFR_RNDN);
        return mpfr_get_d(r20753, MPFR_RNDN);
}

static mpfr_t r20754, r20755, r20756, r20757, r20758, r20759, r20760, r20761, r20762, r20763, r20764;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20754);
        mpfr_init(r20755);
        mpfr_init(r20756);
        mpfr_init(r20757);
        mpfr_init(r20758);
        mpfr_init(r20759);
        mpfr_init(r20760);
        mpfr_init(r20761);
        mpfr_init(r20762);
        mpfr_init(r20763);
        mpfr_init(r20764);
}

double f_fm(double a, double b, double c, double d) {
        mpfr_set_d(r20754, b, MPFR_RNDN);
        mpfr_set_d(r20755, c, MPFR_RNDN);
        mpfr_mul(r20756, r20754, r20755, MPFR_RNDN);
        mpfr_set_d(r20757, a, MPFR_RNDN);
        mpfr_set_d(r20758, d, MPFR_RNDN);
        mpfr_mul(r20759, r20757, r20758, MPFR_RNDN);
        mpfr_sub(r20760, r20756, r20759, MPFR_RNDN);
        mpfr_sqr(r20761, r20755, MPFR_RNDN);
        mpfr_sqr(r20762, r20758, MPFR_RNDN);
        mpfr_add(r20763, r20761, r20762, MPFR_RNDN);
        mpfr_div(r20764, r20760, r20763, MPFR_RNDN);
        return mpfr_get_d(r20764, MPFR_RNDN);
}

static mpfr_t r20765, r20766, r20767, r20768, r20769, r20770, r20771, r20772, r20773, r20774, r20775;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20765);
        mpfr_init(r20766);
        mpfr_init(r20767);
        mpfr_init(r20768);
        mpfr_init(r20769);
        mpfr_init(r20770);
        mpfr_init(r20771);
        mpfr_init(r20772);
        mpfr_init(r20773);
        mpfr_init(r20774);
        mpfr_init(r20775);
}

double f_dm(double a, double b, double c, double d) {
        mpfr_set_d(r20765, b, MPFR_RNDN);
        mpfr_set_d(r20766, c, MPFR_RNDN);
        mpfr_mul(r20767, r20765, r20766, MPFR_RNDN);
        mpfr_set_d(r20768, a, MPFR_RNDN);
        mpfr_set_d(r20769, d, MPFR_RNDN);
        mpfr_mul(r20770, r20768, r20769, MPFR_RNDN);
        mpfr_sub(r20771, r20767, r20770, MPFR_RNDN);
        mpfr_sqr(r20772, r20766, MPFR_RNDN);
        mpfr_sqr(r20773, r20769, MPFR_RNDN);
        mpfr_add(r20774, r20772, r20773, MPFR_RNDN);
        mpfr_div(r20775, r20771, r20774, MPFR_RNDN);
        return mpfr_get_d(r20775, MPFR_RNDN);
}