#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 r12072 = wj;
        float r12073 = exp(r12072);
        float r12074 = r12072 * r12073;
        float r12075 = x;
        float r12076 = r12074 - r12075;
        float r12077 = r12073 + r12074;
        float r12078 = r12076 / r12077;
        float r12079 = r12072 - r12078;
        return r12079;
}

double f_id(double wj, double x) {
        double r12080 = wj;
        double r12081 = exp(r12080);
        double r12082 = r12080 * r12081;
        double r12083 = x;
        double r12084 = r12082 - r12083;
        double r12085 = r12081 + r12082;
        double r12086 = r12084 / r12085;
        double r12087 = r12080 - r12086;
        return r12087;
}


double f_of(float wj, float x) {
        float r12088 = x;
        float r12089 = wj;
        float r12090 = exp(r12089);
        float r12091 = fma(r12089, r12090, r12090);
        float r12092 = r12088 / r12091;
        float r12093 = r12089 * r12089;
        float r12094 = 1;
        float r12095 = r12094 - r12089;
        float r12096 = 4;
        float r12097 = pow(r12089, r12096);
        float r12098 = fma(r12093, r12095, r12097);
        float r12099 = r12092 + r12098;
        return r12099;
}

double f_od(double wj, double x) {
        double r12100 = x;
        double r12101 = wj;
        double r12102 = exp(r12101);
        double r12103 = fma(r12101, r12102, r12102);
        double r12104 = r12100 / r12103;
        double r12105 = r12101 * r12101;
        double r12106 = 1;
        double r12107 = r12106 - r12101;
        double r12108 = 4;
        double r12109 = pow(r12101, r12108);
        double r12110 = fma(r12105, r12107, r12109);
        double r12111 = r12104 + r12110;
        return r12111;
}

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 r12112, r12113, r12114, r12115, r12116, r12117, r12118, r12119;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(848);
        mpfr_init(r12112);
        mpfr_init(r12113);
        mpfr_init(r12114);
        mpfr_init(r12115);
        mpfr_init(r12116);
        mpfr_init(r12117);
        mpfr_init(r12118);
        mpfr_init(r12119);
}

double f_im(double wj, double x) {
        mpfr_set_d(r12112, wj, MPFR_RNDN);
        mpfr_exp(r12113, r12112, MPFR_RNDN);
        mpfr_mul(r12114, r12112, r12113, MPFR_RNDN);
        mpfr_set_d(r12115, x, MPFR_RNDN);
        mpfr_sub(r12116, r12114, r12115, MPFR_RNDN);
        mpfr_add(r12117, r12113, r12114, MPFR_RNDN);
        mpfr_div(r12118, r12116, r12117, MPFR_RNDN);
        mpfr_sub(r12119, r12112, r12118, MPFR_RNDN);
        return mpfr_get_d(r12119, MPFR_RNDN);
}

static mpfr_t r12120, r12121, r12122, r12123, r12124, r12125, r12126, r12127, r12128, r12129, r12130, r12131;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(848);
        mpfr_init(r12120);
        mpfr_init(r12121);
        mpfr_init(r12122);
        mpfr_init(r12123);
        mpfr_init(r12124);
        mpfr_init(r12125);
        mpfr_init_set_str(r12126, "1", 10, MPFR_RNDN);
        mpfr_init(r12127);
        mpfr_init_set_str(r12128, "4", 10, MPFR_RNDN);
        mpfr_init(r12129);
        mpfr_init(r12130);
        mpfr_init(r12131);
}

double f_fm(double wj, double x) {
        mpfr_set_d(r12120, x, MPFR_RNDN);
        mpfr_set_d(r12121, wj, MPFR_RNDN);
        mpfr_exp(r12122, r12121, MPFR_RNDN);
        mpfr_fma(r12123, r12121, r12122, r12122, MPFR_RNDN);
        mpfr_div(r12124, r12120, r12123, MPFR_RNDN);
        mpfr_mul(r12125, r12121, r12121, MPFR_RNDN);
        ;
        mpfr_sub(r12127, r12126, r12121, MPFR_RNDN);
        ;
        mpfr_pow(r12129, r12121, r12128, MPFR_RNDN);
        mpfr_fma(r12130, r12125, r12127, r12129, MPFR_RNDN);
        mpfr_add(r12131, r12124, r12130, MPFR_RNDN);
        return mpfr_get_d(r12131, MPFR_RNDN);
}

static mpfr_t r12132, r12133, r12134, r12135, r12136, r12137, r12138, r12139, r12140, r12141, r12142, r12143;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(848);
        mpfr_init(r12132);
        mpfr_init(r12133);
        mpfr_init(r12134);
        mpfr_init(r12135);
        mpfr_init(r12136);
        mpfr_init(r12137);
        mpfr_init_set_str(r12138, "1", 10, MPFR_RNDN);
        mpfr_init(r12139);
        mpfr_init_set_str(r12140, "4", 10, MPFR_RNDN);
        mpfr_init(r12141);
        mpfr_init(r12142);
        mpfr_init(r12143);
}

double f_dm(double wj, double x) {
        mpfr_set_d(r12132, x, MPFR_RNDN);
        mpfr_set_d(r12133, wj, MPFR_RNDN);
        mpfr_exp(r12134, r12133, MPFR_RNDN);
        mpfr_fma(r12135, r12133, r12134, r12134, MPFR_RNDN);
        mpfr_div(r12136, r12132, r12135, MPFR_RNDN);
        mpfr_mul(r12137, r12133, r12133, MPFR_RNDN);
        ;
        mpfr_sub(r12139, r12138, r12133, MPFR_RNDN);
        ;
        mpfr_pow(r12141, r12133, r12140, MPFR_RNDN);
        mpfr_fma(r12142, r12137, r12139, r12141, MPFR_RNDN);
        mpfr_add(r12143, r12136, r12142, MPFR_RNDN);
        return mpfr_get_d(r12143, MPFR_RNDN);
}