#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 r19315 = wj;
        float r19316 = exp(r19315);
        float r19317 = r19315 * r19316;
        float r19318 = x;
        float r19319 = r19317 - r19318;
        float r19320 = r19316 + r19317;
        float r19321 = r19319 / r19320;
        float r19322 = r19315 - r19321;
        return r19322;
}

double f_id(double wj, double x) {
        double r19323 = wj;
        double r19324 = exp(r19323);
        double r19325 = r19323 * r19324;
        double r19326 = x;
        double r19327 = r19325 - r19326;
        double r19328 = r19324 + r19325;
        double r19329 = r19327 / r19328;
        double r19330 = r19323 - r19329;
        return r19330;
}


double f_of(float wj, float x) {
        float r19331 = wj;
        float r19332 = 1.0f;
        float r19333 = r19332 + r19331;
        float r19334 = r19331 / r19333;
        float r19335 = r19331 - r19334;
        float r19336 = x;
        float r19337 = exp(r19331);
        float r19338 = r19331 * r19337;
        float r19339 = r19337 + r19338;
        float r19340 = r19336 / r19339;
        float r19341 = r19335 + r19340;
        return r19341;
}

double f_od(double wj, double x) {
        double r19342 = wj;
        double r19343 = 1.0;
        double r19344 = r19343 + r19342;
        double r19345 = r19342 / r19344;
        double r19346 = r19342 - r19345;
        double r19347 = x;
        double r19348 = exp(r19342);
        double r19349 = r19342 * r19348;
        double r19350 = r19348 + r19349;
        double r19351 = r19347 / r19350;
        double r19352 = r19346 + r19351;
        return r19352;
}

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 r19353, r19354, r19355, r19356, r19357, r19358, r19359, r19360;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r19353);
        mpfr_init(r19354);
        mpfr_init(r19355);
        mpfr_init(r19356);
        mpfr_init(r19357);
        mpfr_init(r19358);
        mpfr_init(r19359);
        mpfr_init(r19360);
}

double f_im(double wj, double x) {
        mpfr_set_d(r19353, wj, MPFR_RNDN);
        mpfr_exp(r19354, r19353, MPFR_RNDN);
        mpfr_mul(r19355, r19353, r19354, MPFR_RNDN);
        mpfr_set_d(r19356, x, MPFR_RNDN);
        mpfr_sub(r19357, r19355, r19356, MPFR_RNDN);
        mpfr_add(r19358, r19354, r19355, MPFR_RNDN);
        mpfr_div(r19359, r19357, r19358, MPFR_RNDN);
        mpfr_sub(r19360, r19353, r19359, MPFR_RNDN);
        return mpfr_get_d(r19360, MPFR_RNDN);
}

static mpfr_t r19361, r19362, r19363, r19364, r19365, r19366, r19367, r19368, r19369, r19370, r19371;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19361);
        mpfr_init_set_str(r19362, "1", 10, MPFR_RNDN);
        mpfr_init(r19363);
        mpfr_init(r19364);
        mpfr_init(r19365);
        mpfr_init(r19366);
        mpfr_init(r19367);
        mpfr_init(r19368);
        mpfr_init(r19369);
        mpfr_init(r19370);
        mpfr_init(r19371);
}

double f_fm(double wj, double x) {
        mpfr_set_d(r19361, wj, MPFR_RNDN);
        ;
        mpfr_add(r19363, r19362, r19361, MPFR_RNDN);
        mpfr_div(r19364, r19361, r19363, MPFR_RNDN);
        mpfr_sub(r19365, r19361, r19364, MPFR_RNDN);
        mpfr_set_d(r19366, x, MPFR_RNDN);
        mpfr_exp(r19367, r19361, MPFR_RNDN);
        mpfr_mul(r19368, r19361, r19367, MPFR_RNDN);
        mpfr_add(r19369, r19367, r19368, MPFR_RNDN);
        mpfr_div(r19370, r19366, r19369, MPFR_RNDN);
        mpfr_add(r19371, r19365, r19370, MPFR_RNDN);
        return mpfr_get_d(r19371, MPFR_RNDN);
}

static mpfr_t r19372, r19373, r19374, r19375, r19376, r19377, r19378, r19379, r19380, r19381, r19382;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19372);
        mpfr_init_set_str(r19373, "1", 10, MPFR_RNDN);
        mpfr_init(r19374);
        mpfr_init(r19375);
        mpfr_init(r19376);
        mpfr_init(r19377);
        mpfr_init(r19378);
        mpfr_init(r19379);
        mpfr_init(r19380);
        mpfr_init(r19381);
        mpfr_init(r19382);
}

double f_dm(double wj, double x) {
        mpfr_set_d(r19372, wj, MPFR_RNDN);
        ;
        mpfr_add(r19374, r19373, r19372, MPFR_RNDN);
        mpfr_div(r19375, r19372, r19374, MPFR_RNDN);
        mpfr_sub(r19376, r19372, r19375, MPFR_RNDN);
        mpfr_set_d(r19377, x, MPFR_RNDN);
        mpfr_exp(r19378, r19372, MPFR_RNDN);
        mpfr_mul(r19379, r19372, r19378, MPFR_RNDN);
        mpfr_add(r19380, r19378, r19379, MPFR_RNDN);
        mpfr_div(r19381, r19377, r19380, MPFR_RNDN);
        mpfr_add(r19382, r19376, r19381, MPFR_RNDN);
        return mpfr_get_d(r19382, MPFR_RNDN);
}