#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 r26667 = b;
        float r26668 = c;
        float r26669 = r26667 * r26668;
        float r26670 = a;
        float r26671 = d;
        float r26672 = r26670 * r26671;
        float r26673 = r26669 - r26672;
        float r26674 = r26668 * r26668;
        float r26675 = r26671 * r26671;
        float r26676 = r26674 + r26675;
        float r26677 = r26673 / r26676;
        return r26677;
}

double f_id(double a, double b, double c, double d) {
        double r26678 = b;
        double r26679 = c;
        double r26680 = r26678 * r26679;
        double r26681 = a;
        double r26682 = d;
        double r26683 = r26681 * r26682;
        double r26684 = r26680 - r26683;
        double r26685 = r26679 * r26679;
        double r26686 = r26682 * r26682;
        double r26687 = r26685 + r26686;
        double r26688 = r26684 / r26687;
        return r26688;
}


double f_of(float a, float b, float c, float d) {
        float r26689 = b;
        float r26690 = c;
        float r26691 = r26689 * r26690;
        float r26692 = a;
        float r26693 = d;
        float r26694 = r26692 * r26693;
        float r26695 = r26691 - r26694;
        float r26696 = r26690 * r26690;
        float r26697 = r26693 * r26693;
        float r26698 = r26696 + r26697;
        float r26699 = sqrt(r26698);
        float r26700 = r26695 / r26699;
        float r26701 = r26700 / r26699;
        return r26701;
}

double f_od(double a, double b, double c, double d) {
        double r26702 = b;
        double r26703 = c;
        double r26704 = r26702 * r26703;
        double r26705 = a;
        double r26706 = d;
        double r26707 = r26705 * r26706;
        double r26708 = r26704 - r26707;
        double r26709 = r26703 * r26703;
        double r26710 = r26706 * r26706;
        double r26711 = r26709 + r26710;
        double r26712 = sqrt(r26711);
        double r26713 = r26708 / r26712;
        double r26714 = r26713 / r26712;
        return r26714;
}

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 r26715, r26716, r26717, r26718, r26719, r26720, r26721, r26722, r26723, r26724, r26725;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r26715);
        mpfr_init(r26716);
        mpfr_init(r26717);
        mpfr_init(r26718);
        mpfr_init(r26719);
        mpfr_init(r26720);
        mpfr_init(r26721);
        mpfr_init(r26722);
        mpfr_init(r26723);
        mpfr_init(r26724);
        mpfr_init(r26725);
}

double f_im(double a, double b, double c, double d) {
        mpfr_set_d(r26715, b, MPFR_RNDN);
        mpfr_set_d(r26716, c, MPFR_RNDN);
        mpfr_mul(r26717, r26715, r26716, MPFR_RNDN);
        mpfr_set_d(r26718, a, MPFR_RNDN);
        mpfr_set_d(r26719, d, MPFR_RNDN);
        mpfr_mul(r26720, r26718, r26719, MPFR_RNDN);
        mpfr_sub(r26721, r26717, r26720, MPFR_RNDN);
        mpfr_mul(r26722, r26716, r26716, MPFR_RNDN);
        mpfr_mul(r26723, r26719, r26719, MPFR_RNDN);
        mpfr_add(r26724, r26722, r26723, MPFR_RNDN);
        mpfr_div(r26725, r26721, r26724, MPFR_RNDN);
        return mpfr_get_d(r26725, MPFR_RNDN);
}

static mpfr_t r26726, r26727, r26728, r26729, r26730, r26731, r26732, r26733, r26734, r26735, r26736, r26737, r26738;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init(r26726);
        mpfr_init(r26727);
        mpfr_init(r26728);
        mpfr_init(r26729);
        mpfr_init(r26730);
        mpfr_init(r26731);
        mpfr_init(r26732);
        mpfr_init(r26733);
        mpfr_init(r26734);
        mpfr_init(r26735);
        mpfr_init(r26736);
        mpfr_init(r26737);
        mpfr_init(r26738);
}

double f_fm(double a, double b, double c, double d) {
        mpfr_set_d(r26726, b, MPFR_RNDN);
        mpfr_set_d(r26727, c, MPFR_RNDN);
        mpfr_mul(r26728, r26726, r26727, MPFR_RNDN);
        mpfr_set_d(r26729, a, MPFR_RNDN);
        mpfr_set_d(r26730, d, MPFR_RNDN);
        mpfr_mul(r26731, r26729, r26730, MPFR_RNDN);
        mpfr_sub(r26732, r26728, r26731, MPFR_RNDN);
        mpfr_mul(r26733, r26727, r26727, MPFR_RNDN);
        mpfr_mul(r26734, r26730, r26730, MPFR_RNDN);
        mpfr_add(r26735, r26733, r26734, MPFR_RNDN);
        mpfr_sqrt(r26736, r26735, MPFR_RNDN);
        mpfr_div(r26737, r26732, r26736, MPFR_RNDN);
        mpfr_div(r26738, r26737, r26736, MPFR_RNDN);
        return mpfr_get_d(r26738, MPFR_RNDN);
}

static mpfr_t r26739, r26740, r26741, r26742, r26743, r26744, r26745, r26746, r26747, r26748, r26749, r26750, r26751;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init(r26739);
        mpfr_init(r26740);
        mpfr_init(r26741);
        mpfr_init(r26742);
        mpfr_init(r26743);
        mpfr_init(r26744);
        mpfr_init(r26745);
        mpfr_init(r26746);
        mpfr_init(r26747);
        mpfr_init(r26748);
        mpfr_init(r26749);
        mpfr_init(r26750);
        mpfr_init(r26751);
}

double f_dm(double a, double b, double c, double d) {
        mpfr_set_d(r26739, b, MPFR_RNDN);
        mpfr_set_d(r26740, c, MPFR_RNDN);
        mpfr_mul(r26741, r26739, r26740, MPFR_RNDN);
        mpfr_set_d(r26742, a, MPFR_RNDN);
        mpfr_set_d(r26743, d, MPFR_RNDN);
        mpfr_mul(r26744, r26742, r26743, MPFR_RNDN);
        mpfr_sub(r26745, r26741, r26744, MPFR_RNDN);
        mpfr_mul(r26746, r26740, r26740, MPFR_RNDN);
        mpfr_mul(r26747, r26743, r26743, MPFR_RNDN);
        mpfr_add(r26748, r26746, r26747, MPFR_RNDN);
        mpfr_sqrt(r26749, r26748, MPFR_RNDN);
        mpfr_div(r26750, r26745, r26749, MPFR_RNDN);
        mpfr_div(r26751, r26750, r26749, MPFR_RNDN);
        return mpfr_get_d(r26751, MPFR_RNDN);
}