#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 r20311 = wj;
        float r20312 = exp(r20311);
        float r20313 = r20311 * r20312;
        float r20314 = x;
        float r20315 = r20313 - r20314;
        float r20316 = r20312 + r20313;
        float r20317 = r20315 / r20316;
        float r20318 = r20311 - r20317;
        return r20318;
}

double f_id(double wj, double x) {
        double r20319 = wj;
        double r20320 = exp(r20319);
        double r20321 = r20319 * r20320;
        double r20322 = x;
        double r20323 = r20321 - r20322;
        double r20324 = r20320 + r20321;
        double r20325 = r20323 / r20324;
        double r20326 = r20319 - r20325;
        return r20326;
}


double f_of(float wj, float x) {
        float r20327 = wj;
        float r20328 = -1.1443077010023319e-10f;
        bool r20329 = r20327 <= r20328;
        float r20330 = exp(r20327);
        float r20331 = r20327 * r20330;
        float r20332 = x;
        float r20333 = r20331 - r20332;
        float r20334 = r20330 + r20331;
        float r20335 = r20333 / r20334;
        float r20336 = r20327 - r20335;
        float r20337 = 8.643107266700627e-10f;
        bool r20338 = r20327 <= r20337;
        float r20339 = r20327 * r20327;
        float r20340 = r20332 + r20339;
        float r20341 = 1.0f;
        float r20342 = r20327 + r20341;
        float r20343 = r20327 / r20342;
        float r20344 = r20341 + r20327;
        float r20345 = r20332 / r20344;
        float r20346 = r20345 / r20330;
        float r20347 = r20343 - r20346;
        float r20348 = r20327 - r20347;
        float r20349 = r20338 ? r20340 : r20348;
        float r20350 = r20329 ? r20336 : r20349;
        return r20350;
}

double f_od(double wj, double x) {
        double r20351 = wj;
        double r20352 = -1.1443077010023319e-10;
        bool r20353 = r20351 <= r20352;
        double r20354 = exp(r20351);
        double r20355 = r20351 * r20354;
        double r20356 = x;
        double r20357 = r20355 - r20356;
        double r20358 = r20354 + r20355;
        double r20359 = r20357 / r20358;
        double r20360 = r20351 - r20359;
        double r20361 = 8.643107266700627e-10;
        bool r20362 = r20351 <= r20361;
        double r20363 = r20351 * r20351;
        double r20364 = r20356 + r20363;
        double r20365 = 1.0;
        double r20366 = r20351 + r20365;
        double r20367 = r20351 / r20366;
        double r20368 = r20365 + r20351;
        double r20369 = r20356 / r20368;
        double r20370 = r20369 / r20354;
        double r20371 = r20367 - r20370;
        double r20372 = r20351 - r20371;
        double r20373 = r20362 ? r20364 : r20372;
        double r20374 = r20353 ? r20360 : r20373;
        return r20374;
}

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 r20375, r20376, r20377, r20378, r20379, r20380, r20381, r20382;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r20375);
        mpfr_init(r20376);
        mpfr_init(r20377);
        mpfr_init(r20378);
        mpfr_init(r20379);
        mpfr_init(r20380);
        mpfr_init(r20381);
        mpfr_init(r20382);
}

double f_im(double wj, double x) {
        mpfr_set_d(r20375, wj, MPFR_RNDN);
        mpfr_exp(r20376, r20375, MPFR_RNDN);
        mpfr_mul(r20377, r20375, r20376, MPFR_RNDN);
        mpfr_set_d(r20378, x, MPFR_RNDN);
        mpfr_sub(r20379, r20377, r20378, MPFR_RNDN);
        mpfr_add(r20380, r20376, r20377, MPFR_RNDN);
        mpfr_div(r20381, r20379, r20380, MPFR_RNDN);
        mpfr_sub(r20382, r20375, r20381, MPFR_RNDN);
        return mpfr_get_d(r20382, MPFR_RNDN);
}

static mpfr_t r20383, r20384, r20385, r20386, r20387, r20388, r20389, r20390, r20391, r20392, r20393, r20394, r20395, r20396, r20397, r20398, r20399, r20400, r20401, r20402, r20403, r20404, r20405, r20406;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r20383);
        mpfr_init_set_str(r20384, "-1.1443077010023319e-10", 10, MPFR_RNDN);
        mpfr_init(r20385);
        mpfr_init(r20386);
        mpfr_init(r20387);
        mpfr_init(r20388);
        mpfr_init(r20389);
        mpfr_init(r20390);
        mpfr_init(r20391);
        mpfr_init(r20392);
        mpfr_init_set_str(r20393, "8.643107266700627e-10", 10, MPFR_RNDN);
        mpfr_init(r20394);
        mpfr_init(r20395);
        mpfr_init(r20396);
        mpfr_init_set_str(r20397, "1", 10, MPFR_RNDN);
        mpfr_init(r20398);
        mpfr_init(r20399);
        mpfr_init(r20400);
        mpfr_init(r20401);
        mpfr_init(r20402);
        mpfr_init(r20403);
        mpfr_init(r20404);
        mpfr_init(r20405);
        mpfr_init(r20406);
}

double f_fm(double wj, double x) {
        mpfr_set_d(r20383, wj, MPFR_RNDN);
        ;
        mpfr_set_si(r20385, mpfr_cmp(r20383, r20384) <= 0, MPFR_RNDN);
        mpfr_exp(r20386, r20383, MPFR_RNDN);
        mpfr_mul(r20387, r20383, r20386, MPFR_RNDN);
        mpfr_set_d(r20388, x, MPFR_RNDN);
        mpfr_sub(r20389, r20387, r20388, MPFR_RNDN);
        mpfr_add(r20390, r20386, r20387, MPFR_RNDN);
        mpfr_div(r20391, r20389, r20390, MPFR_RNDN);
        mpfr_sub(r20392, r20383, r20391, MPFR_RNDN);
        ;
        mpfr_set_si(r20394, mpfr_cmp(r20383, r20393) <= 0, MPFR_RNDN);
        mpfr_sqr(r20395, r20383, MPFR_RNDN);
        mpfr_add(r20396, r20388, r20395, MPFR_RNDN);
        ;
        mpfr_add(r20398, r20383, r20397, MPFR_RNDN);
        mpfr_div(r20399, r20383, r20398, MPFR_RNDN);
        mpfr_add(r20400, r20397, r20383, MPFR_RNDN);
        mpfr_div(r20401, r20388, r20400, MPFR_RNDN);
        mpfr_div(r20402, r20401, r20386, MPFR_RNDN);
        mpfr_sub(r20403, r20399, r20402, MPFR_RNDN);
        mpfr_sub(r20404, r20383, r20403, MPFR_RNDN);
        if (mpfr_get_si(r20394, MPFR_RNDN)) { mpfr_set(r20405, r20396, MPFR_RNDN); } else { mpfr_set(r20405, r20404, MPFR_RNDN); };
        if (mpfr_get_si(r20385, MPFR_RNDN)) { mpfr_set(r20406, r20392, MPFR_RNDN); } else { mpfr_set(r20406, r20405, MPFR_RNDN); };
        return mpfr_get_d(r20406, MPFR_RNDN);
}

static mpfr_t r20407, r20408, r20409, r20410, r20411, r20412, r20413, r20414, r20415, r20416, r20417, r20418, r20419, r20420, r20421, r20422, r20423, r20424, r20425, r20426, r20427, r20428, r20429, r20430;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r20407);
        mpfr_init_set_str(r20408, "-1.1443077010023319e-10", 10, MPFR_RNDN);
        mpfr_init(r20409);
        mpfr_init(r20410);
        mpfr_init(r20411);
        mpfr_init(r20412);
        mpfr_init(r20413);
        mpfr_init(r20414);
        mpfr_init(r20415);
        mpfr_init(r20416);
        mpfr_init_set_str(r20417, "8.643107266700627e-10", 10, MPFR_RNDN);
        mpfr_init(r20418);
        mpfr_init(r20419);
        mpfr_init(r20420);
        mpfr_init_set_str(r20421, "1", 10, MPFR_RNDN);
        mpfr_init(r20422);
        mpfr_init(r20423);
        mpfr_init(r20424);
        mpfr_init(r20425);
        mpfr_init(r20426);
        mpfr_init(r20427);
        mpfr_init(r20428);
        mpfr_init(r20429);
        mpfr_init(r20430);
}

double f_dm(double wj, double x) {
        mpfr_set_d(r20407, wj, MPFR_RNDN);
        ;
        mpfr_set_si(r20409, mpfr_cmp(r20407, r20408) <= 0, MPFR_RNDN);
        mpfr_exp(r20410, r20407, MPFR_RNDN);
        mpfr_mul(r20411, r20407, r20410, MPFR_RNDN);
        mpfr_set_d(r20412, x, MPFR_RNDN);
        mpfr_sub(r20413, r20411, r20412, MPFR_RNDN);
        mpfr_add(r20414, r20410, r20411, MPFR_RNDN);
        mpfr_div(r20415, r20413, r20414, MPFR_RNDN);
        mpfr_sub(r20416, r20407, r20415, MPFR_RNDN);
        ;
        mpfr_set_si(r20418, mpfr_cmp(r20407, r20417) <= 0, MPFR_RNDN);
        mpfr_sqr(r20419, r20407, MPFR_RNDN);
        mpfr_add(r20420, r20412, r20419, MPFR_RNDN);
        ;
        mpfr_add(r20422, r20407, r20421, MPFR_RNDN);
        mpfr_div(r20423, r20407, r20422, MPFR_RNDN);
        mpfr_add(r20424, r20421, r20407, MPFR_RNDN);
        mpfr_div(r20425, r20412, r20424, MPFR_RNDN);
        mpfr_div(r20426, r20425, r20410, MPFR_RNDN);
        mpfr_sub(r20427, r20423, r20426, MPFR_RNDN);
        mpfr_sub(r20428, r20407, r20427, MPFR_RNDN);
        if (mpfr_get_si(r20418, MPFR_RNDN)) { mpfr_set(r20429, r20420, MPFR_RNDN); } else { mpfr_set(r20429, r20428, MPFR_RNDN); };
        if (mpfr_get_si(r20409, MPFR_RNDN)) { mpfr_set(r20430, r20416, MPFR_RNDN); } else { mpfr_set(r20430, r20429, MPFR_RNDN); };
        return mpfr_get_d(r20430, MPFR_RNDN);
}