#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 r20734 = 1;
        float r20735 = x;
        float r20736 = r20734 / r20735;
        float r20737 = r20736 - r20734;
        float r20738 = log(r20737);
        float r20739 = -r20738;
        return r20739;
}

double f_id(double x) {
        double r20740 = 1;
        double r20741 = x;
        double r20742 = r20740 / r20741;
        double r20743 = r20742 - r20740;
        double r20744 = log(r20743);
        double r20745 = -r20744;
        return r20745;
}


double f_of(float x) {
        float r20746 = 1;
        float r20747 = x;
        float r20748 = r20746 / r20747;
        float r20749 = r20748 - r20746;
        float r20750 = log(r20749);
        float r20751 = -r20750;
        return r20751;
}

double f_od(double x) {
        double r20752 = 1;
        double r20753 = x;
        double r20754 = r20752 / r20753;
        double r20755 = r20754 - r20752;
        double r20756 = log(r20755);
        double r20757 = -r20756;
        return r20757;
}

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 r20758, r20759, r20760, r20761, r20762, r20763;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20758, "1", 10, MPFR_RNDN);
        mpfr_init(r20759);
        mpfr_init(r20760);
        mpfr_init(r20761);
        mpfr_init(r20762);
        mpfr_init(r20763);
}

double f_im(double x) {
        ;
        mpfr_set_d(r20759, x, MPFR_RNDN);
        mpfr_div(r20760, r20758, r20759, MPFR_RNDN);
        mpfr_sub(r20761, r20760, r20758, MPFR_RNDN);
        mpfr_log(r20762, r20761, MPFR_RNDN);
        mpfr_neg(r20763, r20762, MPFR_RNDN);
        return mpfr_get_d(r20763, MPFR_RNDN);
}

static mpfr_t r20764, r20765, r20766, r20767, r20768, r20769;

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

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

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

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

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