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

char *name = "Jmat.Real.lambertw, newton loop step";

double f_if(float wj, float x) {
        float r26638 = wj;
        float r26639 = exp(r26638);
        float r26640 = r26638 * r26639;
        float r26641 = x;
        float r26642 = r26640 - r26641;
        float r26643 = r26639 + r26640;
        float r26644 = r26642 / r26643;
        float r26645 = r26638 - r26644;
        return r26645;
}

double f_id(double wj, double x) {
        double r26646 = wj;
        double r26647 = exp(r26646);
        double r26648 = r26646 * r26647;
        double r26649 = x;
        double r26650 = r26648 - r26649;
        double r26651 = r26647 + r26648;
        double r26652 = r26650 / r26651;
        double r26653 = r26646 - r26652;
        return r26653;
}


double f_of(float wj, float x) {
        float r26654 = wj;
        float r26655 = exp(r26654);
        float r26656 = r26654 * r26655;
        float r26657 = x;
        float r26658 = r26656 - r26657;
        float r26659 = r26655 + r26656;
        float r26660 = r26658 / r26659;
        float r26661 = r26654 - r26660;
        float r26662 = log(r26661);
        float r26663 = exp(r26662);
        float r26664 = 3.362279932287092e-19;
        bool r26665 = r26663 <= r26664;
        float r26666 = 2;
        float r26667 = pow(r26654, r26666);
        float r26668 = r26667 + r26657;
        float r26669 = r26654 * r26657;
        float r26670 = r26666 * r26669;
        float r26671 = r26668 - r26670;
        float r26672 = 1;
        float r26673 = r26654 + r26672;
        float r26674 = r26673 * r26655;
        float r26675 = r26657 / r26674;
        float r26676 = r26654 / r26673;
        float r26677 = r26675 - r26676;
        float r26678 = r26654 + r26677;
        float r26679 = r26665 ? r26671 : r26678;
        return r26679;
}

double f_od(double wj, double x) {
        double r26680 = wj;
        double r26681 = exp(r26680);
        double r26682 = r26680 * r26681;
        double r26683 = x;
        double r26684 = r26682 - r26683;
        double r26685 = r26681 + r26682;
        double r26686 = r26684 / r26685;
        double r26687 = r26680 - r26686;
        double r26688 = log(r26687);
        double r26689 = exp(r26688);
        double r26690 = 3.362279932287092e-19;
        bool r26691 = r26689 <= r26690;
        double r26692 = 2;
        double r26693 = pow(r26680, r26692);
        double r26694 = r26693 + r26683;
        double r26695 = r26680 * r26683;
        double r26696 = r26692 * r26695;
        double r26697 = r26694 - r26696;
        double r26698 = 1;
        double r26699 = r26680 + r26698;
        double r26700 = r26699 * r26681;
        double r26701 = r26683 / r26700;
        double r26702 = r26680 / r26699;
        double r26703 = r26701 - r26702;
        double r26704 = r26680 + r26703;
        double r26705 = r26691 ? r26697 : r26704;
        return r26705;
}

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 r26706, r26707, r26708, r26709, r26710, r26711, r26712, r26713;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(912);
        mpfr_init(r26706);
        mpfr_init(r26707);
        mpfr_init(r26708);
        mpfr_init(r26709);
        mpfr_init(r26710);
        mpfr_init(r26711);
        mpfr_init(r26712);
        mpfr_init(r26713);
}

double f_im(double wj, double x) {
        mpfr_set_d(r26706, wj, MPFR_RNDN);
        mpfr_exp(r26707, r26706, MPFR_RNDN);
        mpfr_mul(r26708, r26706, r26707, MPFR_RNDN);
        mpfr_set_d(r26709, x, MPFR_RNDN);
        mpfr_sub(r26710, r26708, r26709, MPFR_RNDN);
        mpfr_add(r26711, r26707, r26708, MPFR_RNDN);
        mpfr_div(r26712, r26710, r26711, MPFR_RNDN);
        mpfr_sub(r26713, r26706, r26712, MPFR_RNDN);
        return mpfr_get_d(r26713, MPFR_RNDN);
}

static mpfr_t r26714, r26715, r26716, r26717, r26718, r26719, r26720, r26721, r26722, r26723, r26724, r26725, r26726, r26727, r26728, r26729, r26730, r26731, r26732, r26733, r26734, r26735, r26736, r26737, r26738, r26739;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(912);
        mpfr_init(r26714);
        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_set_str(r26724, "3.362279932287092e-19", 10, MPFR_RNDN);
        mpfr_init(r26725);
        mpfr_init_set_str(r26726, "2", 10, MPFR_RNDN);
        mpfr_init(r26727);
        mpfr_init(r26728);
        mpfr_init(r26729);
        mpfr_init(r26730);
        mpfr_init(r26731);
        mpfr_init_set_str(r26732, "1", 10, MPFR_RNDN);
        mpfr_init(r26733);
        mpfr_init(r26734);
        mpfr_init(r26735);
        mpfr_init(r26736);
        mpfr_init(r26737);
        mpfr_init(r26738);
        mpfr_init(r26739);
}

double f_fm(double wj, double x) {
        mpfr_set_d(r26714, wj, MPFR_RNDN);
        mpfr_exp(r26715, r26714, MPFR_RNDN);
        mpfr_mul(r26716, r26714, r26715, MPFR_RNDN);
        mpfr_set_d(r26717, x, MPFR_RNDN);
        mpfr_sub(r26718, r26716, r26717, MPFR_RNDN);
        mpfr_add(r26719, r26715, r26716, MPFR_RNDN);
        mpfr_div(r26720, r26718, r26719, MPFR_RNDN);
        mpfr_sub(r26721, r26714, r26720, MPFR_RNDN);
        mpfr_log(r26722, r26721, MPFR_RNDN);
        mpfr_exp(r26723, r26722, MPFR_RNDN);
        ;
        mpfr_set_si(r26725, mpfr_cmp(r26723, r26724) <= 0, MPFR_RNDN);
        ;
        mpfr_pow(r26727, r26714, r26726, MPFR_RNDN);
        mpfr_add(r26728, r26727, r26717, MPFR_RNDN);
        mpfr_mul(r26729, r26714, r26717, MPFR_RNDN);
        mpfr_mul(r26730, r26726, r26729, MPFR_RNDN);
        mpfr_sub(r26731, r26728, r26730, MPFR_RNDN);
        ;
        mpfr_add(r26733, r26714, r26732, MPFR_RNDN);
        mpfr_mul(r26734, r26733, r26715, MPFR_RNDN);
        mpfr_div(r26735, r26717, r26734, MPFR_RNDN);
        mpfr_div(r26736, r26714, r26733, MPFR_RNDN);
        mpfr_sub(r26737, r26735, r26736, MPFR_RNDN);
        mpfr_add(r26738, r26714, r26737, MPFR_RNDN);
        if (mpfr_get_si(r26725, MPFR_RNDN)) { mpfr_set(r26739, r26731, MPFR_RNDN); } else { mpfr_set(r26739, r26738, MPFR_RNDN); };
        return mpfr_get_d(r26739, MPFR_RNDN);
}

static mpfr_t r26740, r26741, r26742, r26743, r26744, r26745, r26746, r26747, r26748, r26749, r26750, r26751, r26752, r26753, r26754, r26755, r26756, r26757, r26758, r26759, r26760, r26761, r26762, r26763, r26764, r26765;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(912);
        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_set_str(r26750, "3.362279932287092e-19", 10, MPFR_RNDN);
        mpfr_init(r26751);
        mpfr_init_set_str(r26752, "2", 10, MPFR_RNDN);
        mpfr_init(r26753);
        mpfr_init(r26754);
        mpfr_init(r26755);
        mpfr_init(r26756);
        mpfr_init(r26757);
        mpfr_init_set_str(r26758, "1", 10, MPFR_RNDN);
        mpfr_init(r26759);
        mpfr_init(r26760);
        mpfr_init(r26761);
        mpfr_init(r26762);
        mpfr_init(r26763);
        mpfr_init(r26764);
        mpfr_init(r26765);
}

double f_dm(double wj, double x) {
        mpfr_set_d(r26740, wj, MPFR_RNDN);
        mpfr_exp(r26741, r26740, MPFR_RNDN);
        mpfr_mul(r26742, r26740, r26741, MPFR_RNDN);
        mpfr_set_d(r26743, x, MPFR_RNDN);
        mpfr_sub(r26744, r26742, r26743, MPFR_RNDN);
        mpfr_add(r26745, r26741, r26742, MPFR_RNDN);
        mpfr_div(r26746, r26744, r26745, MPFR_RNDN);
        mpfr_sub(r26747, r26740, r26746, MPFR_RNDN);
        mpfr_log(r26748, r26747, MPFR_RNDN);
        mpfr_exp(r26749, r26748, MPFR_RNDN);
        ;
        mpfr_set_si(r26751, mpfr_cmp(r26749, r26750) <= 0, MPFR_RNDN);
        ;
        mpfr_pow(r26753, r26740, r26752, MPFR_RNDN);
        mpfr_add(r26754, r26753, r26743, MPFR_RNDN);
        mpfr_mul(r26755, r26740, r26743, MPFR_RNDN);
        mpfr_mul(r26756, r26752, r26755, MPFR_RNDN);
        mpfr_sub(r26757, r26754, r26756, MPFR_RNDN);
        ;
        mpfr_add(r26759, r26740, r26758, MPFR_RNDN);
        mpfr_mul(r26760, r26759, r26741, MPFR_RNDN);
        mpfr_div(r26761, r26743, r26760, MPFR_RNDN);
        mpfr_div(r26762, r26740, r26759, MPFR_RNDN);
        mpfr_sub(r26763, r26761, r26762, MPFR_RNDN);
        mpfr_add(r26764, r26740, r26763, MPFR_RNDN);
        if (mpfr_get_si(r26751, MPFR_RNDN)) { mpfr_set(r26765, r26757, MPFR_RNDN); } else { mpfr_set(r26765, r26764, MPFR_RNDN); };
        return mpfr_get_d(r26765, MPFR_RNDN);
}