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

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


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

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

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

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

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

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

void setup_mpfr_f_fm() {
        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_fm(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_dm() {
        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_dm(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);
}