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

char *name = "math.sqrt on complex, real part";

double f_if(float re, float im) {
        float r27680 = 0.5;
        float r27681 = 2.0;
        float r27682 = re;
        float r27683 = r27682 * r27682;
        float r27684 = im;
        float r27685 = r27684 * r27684;
        float r27686 = r27683 + r27685;
        float r27687 = sqrt(r27686);
        float r27688 = r27687 + r27682;
        float r27689 = r27681 * r27688;
        float r27690 = sqrt(r27689);
        float r27691 = r27680 * r27690;
        return r27691;
}

double f_id(double re, double im) {
        double r27692 = 0.5;
        double r27693 = 2.0;
        double r27694 = re;
        double r27695 = r27694 * r27694;
        double r27696 = im;
        double r27697 = r27696 * r27696;
        double r27698 = r27695 + r27697;
        double r27699 = sqrt(r27698);
        double r27700 = r27699 + r27694;
        double r27701 = r27693 * r27700;
        double r27702 = sqrt(r27701);
        double r27703 = r27692 * r27702;
        return r27703;
}


double f_of(float re, float im) {
        float r27704 = 0.5;
        float r27705 = re;
        float r27706 = im;
        float r27707 = hypot(r27705, r27706);
        float r27708 = 2.0;
        float r27709 = r27705 * r27708;
        float r27710 = fma(r27707, r27708, r27709);
        float r27711 = log(r27710);
        float r27712 = cbrt(r27711);
        float r27713 = r27712 * r27712;
        float r27714 = r27713 * r27712;
        float r27715 = exp(r27714);
        float r27716 = sqrt(r27715);
        float r27717 = r27704 * r27716;
        float r27718 = 3.7397622310826e-310;
        bool r27719 = r27717 <= r27718;
        float r27720 = 1.0;
        float r27721 = -1;
        float r27722 = r27721 / r27706;
        float r27723 = r27720 / r27722;
        float r27724 = r27721 / r27705;
        float r27725 = r27724 / r27722;
        float r27726 = r27723 * r27725;
        float r27727 = sqrt(r27726);
        float r27728 = r27727 * r27704;
        float r27729 = sqrt(r27710);
        float r27730 = r27704 * r27729;
        float r27731 = r27719 ? r27728 : r27730;
        return r27731;
}

double f_od(double re, double im) {
        double r27732 = 0.5;
        double r27733 = re;
        double r27734 = im;
        double r27735 = hypot(r27733, r27734);
        double r27736 = 2.0;
        double r27737 = r27733 * r27736;
        double r27738 = fma(r27735, r27736, r27737);
        double r27739 = log(r27738);
        double r27740 = cbrt(r27739);
        double r27741 = r27740 * r27740;
        double r27742 = r27741 * r27740;
        double r27743 = exp(r27742);
        double r27744 = sqrt(r27743);
        double r27745 = r27732 * r27744;
        double r27746 = 3.7397622310826e-310;
        bool r27747 = r27745 <= r27746;
        double r27748 = 1.0;
        double r27749 = -1;
        double r27750 = r27749 / r27734;
        double r27751 = r27748 / r27750;
        double r27752 = r27749 / r27733;
        double r27753 = r27752 / r27750;
        double r27754 = r27751 * r27753;
        double r27755 = sqrt(r27754);
        double r27756 = r27755 * r27732;
        double r27757 = sqrt(r27738);
        double r27758 = r27732 * r27757;
        double r27759 = r27747 ? r27756 : r27758;
        return r27759;
}

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 r27760, r27761, r27762, r27763, r27764, r27765, r27766, r27767, r27768, r27769, r27770, r27771;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(3408);
        mpfr_init_set_str(r27760, "0.5", 10, MPFR_RNDN);
        mpfr_init_set_str(r27761, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27762);
        mpfr_init(r27763);
        mpfr_init(r27764);
        mpfr_init(r27765);
        mpfr_init(r27766);
        mpfr_init(r27767);
        mpfr_init(r27768);
        mpfr_init(r27769);
        mpfr_init(r27770);
        mpfr_init(r27771);
}

double f_im(double re, double im) {
        ;
        ;
        mpfr_set_d(r27762, re, MPFR_RNDN);
        mpfr_mul(r27763, r27762, r27762, MPFR_RNDN);
        mpfr_set_d(r27764, im, MPFR_RNDN);
        mpfr_mul(r27765, r27764, r27764, MPFR_RNDN);
        mpfr_add(r27766, r27763, r27765, MPFR_RNDN);
        mpfr_sqrt(r27767, r27766, MPFR_RNDN);
        mpfr_add(r27768, r27767, r27762, MPFR_RNDN);
        mpfr_mul(r27769, r27761, r27768, MPFR_RNDN);
        mpfr_sqrt(r27770, r27769, MPFR_RNDN);
        mpfr_mul(r27771, r27760, r27770, MPFR_RNDN);
        return mpfr_get_d(r27771, MPFR_RNDN);
}

static mpfr_t r27772, r27773, r27774, r27775, r27776, r27777, r27778, r27779, r27780, r27781, r27782, r27783, r27784, r27785, r27786, r27787, r27788, r27789, r27790, r27791, r27792, r27793, r27794, r27795, r27796, r27797, r27798, r27799;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(3408);
        mpfr_init_set_str(r27772, "0.5", 10, MPFR_RNDN);
        mpfr_init(r27773);
        mpfr_init(r27774);
        mpfr_init(r27775);
        mpfr_init_set_str(r27776, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27777);
        mpfr_init(r27778);
        mpfr_init(r27779);
        mpfr_init(r27780);
        mpfr_init(r27781);
        mpfr_init(r27782);
        mpfr_init(r27783);
        mpfr_init(r27784);
        mpfr_init(r27785);
        mpfr_init_set_str(r27786, "3.7397622310826e-310", 10, MPFR_RNDN);
        mpfr_init(r27787);
        mpfr_init_set_str(r27788, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r27789, "-1", 10, MPFR_RNDN);
        mpfr_init(r27790);
        mpfr_init(r27791);
        mpfr_init(r27792);
        mpfr_init(r27793);
        mpfr_init(r27794);
        mpfr_init(r27795);
        mpfr_init(r27796);
        mpfr_init(r27797);
        mpfr_init(r27798);
        mpfr_init(r27799);
}

double f_fm(double re, double im) {
        ;
        mpfr_set_d(r27773, re, MPFR_RNDN);
        mpfr_set_d(r27774, im, MPFR_RNDN);
        mpfr_hypot(r27775, r27773, r27774, MPFR_RNDN);
        ;
        mpfr_mul(r27777, r27773, r27776, MPFR_RNDN);
        mpfr_fma(r27778, r27775, r27776, r27777, MPFR_RNDN);
        mpfr_log(r27779, r27778, MPFR_RNDN);
        mpfr_cbrt(r27780, r27779, MPFR_RNDN);
        mpfr_mul(r27781, r27780, r27780, MPFR_RNDN);
        mpfr_mul(r27782, r27781, r27780, MPFR_RNDN);
        mpfr_exp(r27783, r27782, MPFR_RNDN);
        mpfr_sqrt(r27784, r27783, MPFR_RNDN);
        mpfr_mul(r27785, r27772, r27784, MPFR_RNDN);
        ;
        mpfr_set_si(r27787, mpfr_cmp(r27785, r27786) <= 0, MPFR_RNDN);
        ;
        ;
        mpfr_div(r27790, r27789, r27774, MPFR_RNDN);
        mpfr_div(r27791, r27788, r27790, MPFR_RNDN);
        mpfr_div(r27792, r27789, r27773, MPFR_RNDN);
        mpfr_div(r27793, r27792, r27790, MPFR_RNDN);
        mpfr_mul(r27794, r27791, r27793, MPFR_RNDN);
        mpfr_sqrt(r27795, r27794, MPFR_RNDN);
        mpfr_mul(r27796, r27795, r27772, MPFR_RNDN);
        mpfr_sqrt(r27797, r27778, MPFR_RNDN);
        mpfr_mul(r27798, r27772, r27797, MPFR_RNDN);
        if (mpfr_get_si(r27787, MPFR_RNDN)) { mpfr_set(r27799, r27796, MPFR_RNDN); } else { mpfr_set(r27799, r27798, MPFR_RNDN); };
        return mpfr_get_d(r27799, MPFR_RNDN);
}

static mpfr_t r27800, r27801, r27802, r27803, r27804, r27805, r27806, r27807, r27808, r27809, r27810, r27811, r27812, r27813, r27814, r27815, r27816, r27817, r27818, r27819, r27820, r27821, r27822, r27823, r27824, r27825, r27826, r27827;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(3408);
        mpfr_init_set_str(r27800, "0.5", 10, MPFR_RNDN);
        mpfr_init(r27801);
        mpfr_init(r27802);
        mpfr_init(r27803);
        mpfr_init_set_str(r27804, "2.0", 10, MPFR_RNDN);
        mpfr_init(r27805);
        mpfr_init(r27806);
        mpfr_init(r27807);
        mpfr_init(r27808);
        mpfr_init(r27809);
        mpfr_init(r27810);
        mpfr_init(r27811);
        mpfr_init(r27812);
        mpfr_init(r27813);
        mpfr_init_set_str(r27814, "3.7397622310826e-310", 10, MPFR_RNDN);
        mpfr_init(r27815);
        mpfr_init_set_str(r27816, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r27817, "-1", 10, MPFR_RNDN);
        mpfr_init(r27818);
        mpfr_init(r27819);
        mpfr_init(r27820);
        mpfr_init(r27821);
        mpfr_init(r27822);
        mpfr_init(r27823);
        mpfr_init(r27824);
        mpfr_init(r27825);
        mpfr_init(r27826);
        mpfr_init(r27827);
}

double f_dm(double re, double im) {
        ;
        mpfr_set_d(r27801, re, MPFR_RNDN);
        mpfr_set_d(r27802, im, MPFR_RNDN);
        mpfr_hypot(r27803, r27801, r27802, MPFR_RNDN);
        ;
        mpfr_mul(r27805, r27801, r27804, MPFR_RNDN);
        mpfr_fma(r27806, r27803, r27804, r27805, MPFR_RNDN);
        mpfr_log(r27807, r27806, MPFR_RNDN);
        mpfr_cbrt(r27808, r27807, MPFR_RNDN);
        mpfr_mul(r27809, r27808, r27808, MPFR_RNDN);
        mpfr_mul(r27810, r27809, r27808, MPFR_RNDN);
        mpfr_exp(r27811, r27810, MPFR_RNDN);
        mpfr_sqrt(r27812, r27811, MPFR_RNDN);
        mpfr_mul(r27813, r27800, r27812, MPFR_RNDN);
        ;
        mpfr_set_si(r27815, mpfr_cmp(r27813, r27814) <= 0, MPFR_RNDN);
        ;
        ;
        mpfr_div(r27818, r27817, r27802, MPFR_RNDN);
        mpfr_div(r27819, r27816, r27818, MPFR_RNDN);
        mpfr_div(r27820, r27817, r27801, MPFR_RNDN);
        mpfr_div(r27821, r27820, r27818, MPFR_RNDN);
        mpfr_mul(r27822, r27819, r27821, MPFR_RNDN);
        mpfr_sqrt(r27823, r27822, MPFR_RNDN);
        mpfr_mul(r27824, r27823, r27800, MPFR_RNDN);
        mpfr_sqrt(r27825, r27806, MPFR_RNDN);
        mpfr_mul(r27826, r27800, r27825, MPFR_RNDN);
        if (mpfr_get_si(r27815, MPFR_RNDN)) { mpfr_set(r27827, r27824, MPFR_RNDN); } else { mpfr_set(r27827, r27826, MPFR_RNDN); };
        return mpfr_get_d(r27827, MPFR_RNDN);
}