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

char *name = "neg log";

double f_if(float x) {
        float r20741 = 1;
        float r20742 = x;
        float r20743 = r20741 / r20742;
        float r20744 = r20743 - r20741;
        float r20745 = log(r20744);
        float r20746 = -r20745;
        return r20746;
}

double f_id(double x) {
        double r20747 = 1;
        double r20748 = x;
        double r20749 = r20747 / r20748;
        double r20750 = r20749 - r20747;
        double r20751 = log(r20750);
        double r20752 = -r20751;
        return r20752;
}


double f_of(float x) {
        float r20753 = 1;
        float r20754 = x;
        float r20755 = r20753 / r20754;
        float r20756 = r20755 - r20753;
        float r20757 = log(r20756);
        float r20758 = -r20757;
        return r20758;
}

double f_od(double x) {
        double r20759 = 1;
        double r20760 = x;
        double r20761 = r20759 / r20760;
        double r20762 = r20761 - r20759;
        double r20763 = log(r20762);
        double r20764 = -r20763;
        return r20764;
}

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 r20765, r20766, r20767, r20768, r20769, r20770;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20765, "1", 10, MPFR_RNDN);
        mpfr_init(r20766);
        mpfr_init(r20767);
        mpfr_init(r20768);
        mpfr_init(r20769);
        mpfr_init(r20770);
}

double f_im(double x) {
        ;
        mpfr_set_d(r20766, x, MPFR_RNDN);
        mpfr_div(r20767, r20765, r20766, MPFR_RNDN);
        mpfr_sub(r20768, r20767, r20765, MPFR_RNDN);
        mpfr_log(r20769, r20768, MPFR_RNDN);
        mpfr_neg(r20770, r20769, MPFR_RNDN);
        return mpfr_get_d(r20770, MPFR_RNDN);
}

static mpfr_t r20771, r20772, r20773, r20774, r20775, r20776;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20771, "1", 10, MPFR_RNDN);
        mpfr_init(r20772);
        mpfr_init(r20773);
        mpfr_init(r20774);
        mpfr_init(r20775);
        mpfr_init(r20776);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r20772, x, MPFR_RNDN);
        mpfr_div(r20773, r20771, r20772, MPFR_RNDN);
        mpfr_sub(r20774, r20773, r20771, MPFR_RNDN);
        mpfr_log(r20775, r20774, MPFR_RNDN);
        mpfr_neg(r20776, r20775, MPFR_RNDN);
        return mpfr_get_d(r20776, MPFR_RNDN);
}

static mpfr_t r20777, r20778, r20779, r20780, r20781, r20782;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20777, "1", 10, MPFR_RNDN);
        mpfr_init(r20778);
        mpfr_init(r20779);
        mpfr_init(r20780);
        mpfr_init(r20781);
        mpfr_init(r20782);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r20778, x, MPFR_RNDN);
        mpfr_div(r20779, r20777, r20778, MPFR_RNDN);
        mpfr_sub(r20780, r20779, r20777, MPFR_RNDN);
        mpfr_log(r20781, r20780, MPFR_RNDN);
        mpfr_neg(r20782, r20781, MPFR_RNDN);
        return mpfr_get_d(r20782, MPFR_RNDN);
}