#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 r25415 = wj;
        float r25416 = exp(r25415);
        float r25417 = r25415 * r25416;
        float r25418 = x;
        float r25419 = r25417 - r25418;
        float r25420 = r25416 + r25417;
        float r25421 = r25419 / r25420;
        float r25422 = r25415 - r25421;
        return r25422;
}

double f_id(double wj, double x) {
        double r25423 = wj;
        double r25424 = exp(r25423);
        double r25425 = r25423 * r25424;
        double r25426 = x;
        double r25427 = r25425 - r25426;
        double r25428 = r25424 + r25425;
        double r25429 = r25427 / r25428;
        double r25430 = r25423 - r25429;
        return r25430;
}


double f_of(float wj, float x) {
        float r25431 = x;
        float r25432 = 2;
        float r25433 = r25431 * r25432;
        float r25434 = wj;
        float r25435 = -r25434;
        float r25436 = fma(r25434, r25434, r25431);
        float r25437 = fma(r25433, r25435, r25436);
        float r25438 = 1/3;
        float r25439 = r25438 + r25438;
        float r25440 = pow(r25437, r25439);
        float r25441 = cbrt(r25437);
        float r25442 = r25440 * r25441;
        float r25443 = 1.1418251620986433e-15;
        bool r25444 = r25442 <= r25443;
        float r25445 = 1;
        float r25446 = r25445 + r25434;
        float r25447 = r25434 / r25446;
        float r25448 = r25434 - r25447;
        float r25449 = exp(r25434);
        float r25450 = r25434 * r25449;
        float r25451 = r25449 + r25450;
        float r25452 = r25431 / r25451;
        float r25453 = r25448 + r25452;
        float r25454 = r25444 ? r25437 : r25453;
        return r25454;
}

double f_od(double wj, double x) {
        double r25455 = x;
        double r25456 = 2;
        double r25457 = r25455 * r25456;
        double r25458 = wj;
        double r25459 = -r25458;
        double r25460 = fma(r25458, r25458, r25455);
        double r25461 = fma(r25457, r25459, r25460);
        double r25462 = 1/3;
        double r25463 = r25462 + r25462;
        double r25464 = pow(r25461, r25463);
        double r25465 = cbrt(r25461);
        double r25466 = r25464 * r25465;
        double r25467 = 1.1418251620986433e-15;
        bool r25468 = r25466 <= r25467;
        double r25469 = 1;
        double r25470 = r25469 + r25458;
        double r25471 = r25458 / r25470;
        double r25472 = r25458 - r25471;
        double r25473 = exp(r25458);
        double r25474 = r25458 * r25473;
        double r25475 = r25473 + r25474;
        double r25476 = r25455 / r25475;
        double r25477 = r25472 + r25476;
        double r25478 = r25468 ? r25461 : r25477;
        return r25478;
}

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 r25479, r25480, r25481, r25482, r25483, r25484, r25485, r25486;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(848);
        mpfr_init(r25479);
        mpfr_init(r25480);
        mpfr_init(r25481);
        mpfr_init(r25482);
        mpfr_init(r25483);
        mpfr_init(r25484);
        mpfr_init(r25485);
        mpfr_init(r25486);
}

double f_im(double wj, double x) {
        mpfr_set_d(r25479, wj, MPFR_RNDN);
        mpfr_exp(r25480, r25479, MPFR_RNDN);
        mpfr_mul(r25481, r25479, r25480, MPFR_RNDN);
        mpfr_set_d(r25482, x, MPFR_RNDN);
        mpfr_sub(r25483, r25481, r25482, MPFR_RNDN);
        mpfr_add(r25484, r25480, r25481, MPFR_RNDN);
        mpfr_div(r25485, r25483, r25484, MPFR_RNDN);
        mpfr_sub(r25486, r25479, r25485, MPFR_RNDN);
        return mpfr_get_d(r25486, MPFR_RNDN);
}

static mpfr_t r25487, r25488, r25489, r25490, r25491, r25492, r25493, r25494, r25495, r25496, r25497, r25498, r25499, r25500, r25501, r25502, r25503, r25504, r25505, r25506, r25507, r25508, r25509, r25510;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(848);
        mpfr_init(r25487);
        mpfr_init_set_str(r25488, "2", 10, MPFR_RNDN);
        mpfr_init(r25489);
        mpfr_init(r25490);
        mpfr_init(r25491);
        mpfr_init(r25492);
        mpfr_init(r25493);
        mpfr_init_set_str(r25494, "1/3", 10, MPFR_RNDN);
        mpfr_init(r25495);
        mpfr_init(r25496);
        mpfr_init(r25497);
        mpfr_init(r25498);
        mpfr_init_set_str(r25499, "1.1418251620986433e-15", 10, MPFR_RNDN);
        mpfr_init(r25500);
        mpfr_init_set_str(r25501, "1", 10, MPFR_RNDN);
        mpfr_init(r25502);
        mpfr_init(r25503);
        mpfr_init(r25504);
        mpfr_init(r25505);
        mpfr_init(r25506);
        mpfr_init(r25507);
        mpfr_init(r25508);
        mpfr_init(r25509);
        mpfr_init(r25510);
}

double f_fm(double wj, double x) {
        mpfr_set_d(r25487, x, MPFR_RNDN);
        ;
        mpfr_mul(r25489, r25487, r25488, MPFR_RNDN);
        mpfr_set_d(r25490, wj, MPFR_RNDN);
        mpfr_neg(r25491, r25490, MPFR_RNDN);
        mpfr_fma(r25492, r25490, r25490, r25487, MPFR_RNDN);
        mpfr_fma(r25493, r25489, r25491, r25492, MPFR_RNDN);
        ;
        mpfr_add(r25495, r25494, r25494, MPFR_RNDN);
        mpfr_pow(r25496, r25493, r25495, MPFR_RNDN);
        mpfr_cbrt(r25497, r25493, MPFR_RNDN);
        mpfr_mul(r25498, r25496, r25497, MPFR_RNDN);
        ;
        mpfr_set_si(r25500, mpfr_cmp(r25498, r25499) <= 0, MPFR_RNDN);
        ;
        mpfr_add(r25502, r25501, r25490, MPFR_RNDN);
        mpfr_div(r25503, r25490, r25502, MPFR_RNDN);
        mpfr_sub(r25504, r25490, r25503, MPFR_RNDN);
        mpfr_exp(r25505, r25490, MPFR_RNDN);
        mpfr_mul(r25506, r25490, r25505, MPFR_RNDN);
        mpfr_add(r25507, r25505, r25506, MPFR_RNDN);
        mpfr_div(r25508, r25487, r25507, MPFR_RNDN);
        mpfr_add(r25509, r25504, r25508, MPFR_RNDN);
        if (mpfr_get_si(r25500, MPFR_RNDN)) { mpfr_set(r25510, r25493, MPFR_RNDN); } else { mpfr_set(r25510, r25509, MPFR_RNDN); };
        return mpfr_get_d(r25510, MPFR_RNDN);
}

static mpfr_t r25511, r25512, r25513, r25514, r25515, r25516, r25517, r25518, r25519, r25520, r25521, r25522, r25523, r25524, r25525, r25526, r25527, r25528, r25529, r25530, r25531, r25532, r25533, r25534;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(848);
        mpfr_init(r25511);
        mpfr_init_set_str(r25512, "2", 10, MPFR_RNDN);
        mpfr_init(r25513);
        mpfr_init(r25514);
        mpfr_init(r25515);
        mpfr_init(r25516);
        mpfr_init(r25517);
        mpfr_init_set_str(r25518, "1/3", 10, MPFR_RNDN);
        mpfr_init(r25519);
        mpfr_init(r25520);
        mpfr_init(r25521);
        mpfr_init(r25522);
        mpfr_init_set_str(r25523, "1.1418251620986433e-15", 10, MPFR_RNDN);
        mpfr_init(r25524);
        mpfr_init_set_str(r25525, "1", 10, MPFR_RNDN);
        mpfr_init(r25526);
        mpfr_init(r25527);
        mpfr_init(r25528);
        mpfr_init(r25529);
        mpfr_init(r25530);
        mpfr_init(r25531);
        mpfr_init(r25532);
        mpfr_init(r25533);
        mpfr_init(r25534);
}

double f_dm(double wj, double x) {
        mpfr_set_d(r25511, x, MPFR_RNDN);
        ;
        mpfr_mul(r25513, r25511, r25512, MPFR_RNDN);
        mpfr_set_d(r25514, wj, MPFR_RNDN);
        mpfr_neg(r25515, r25514, MPFR_RNDN);
        mpfr_fma(r25516, r25514, r25514, r25511, MPFR_RNDN);
        mpfr_fma(r25517, r25513, r25515, r25516, MPFR_RNDN);
        ;
        mpfr_add(r25519, r25518, r25518, MPFR_RNDN);
        mpfr_pow(r25520, r25517, r25519, MPFR_RNDN);
        mpfr_cbrt(r25521, r25517, MPFR_RNDN);
        mpfr_mul(r25522, r25520, r25521, MPFR_RNDN);
        ;
        mpfr_set_si(r25524, mpfr_cmp(r25522, r25523) <= 0, MPFR_RNDN);
        ;
        mpfr_add(r25526, r25525, r25514, MPFR_RNDN);
        mpfr_div(r25527, r25514, r25526, MPFR_RNDN);
        mpfr_sub(r25528, r25514, r25527, MPFR_RNDN);
        mpfr_exp(r25529, r25514, MPFR_RNDN);
        mpfr_mul(r25530, r25514, r25529, MPFR_RNDN);
        mpfr_add(r25531, r25529, r25530, MPFR_RNDN);
        mpfr_div(r25532, r25511, r25531, MPFR_RNDN);
        mpfr_add(r25533, r25528, r25532, MPFR_RNDN);
        if (mpfr_get_si(r25524, MPFR_RNDN)) { mpfr_set(r25534, r25517, MPFR_RNDN); } else { mpfr_set(r25534, r25533, MPFR_RNDN); };
        return mpfr_get_d(r25534, MPFR_RNDN);
}