#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 r14915 = 1.0f;
        float r14916 = x;
        float r14917 = r14915 / r14916;
        float r14918 = r14917 - r14915;
        float r14919 = log(r14918);
        float r14920 = -r14919;
        return r14920;
}

double f_id(double x) {
        double r14921 = 1.0;
        double r14922 = x;
        double r14923 = r14921 / r14922;
        double r14924 = r14923 - r14921;
        double r14925 = log(r14924);
        double r14926 = -r14925;
        return r14926;
}


double f_of(float x) {
        float r14927 = 1.0f;
        float r14928 = x;
        float r14929 = r14927 / r14928;
        float r14930 = r14929 - r14927;
        float r14931 = log(r14930);
        float r14932 = -r14931;
        return r14932;
}

double f_od(double x) {
        double r14933 = 1.0;
        double r14934 = x;
        double r14935 = r14933 / r14934;
        double r14936 = r14935 - r14933;
        double r14937 = log(r14936);
        double r14938 = -r14937;
        return r14938;
}

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 r14939, r14940, r14941, r14942, r14943, r14944;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r14939, "1", 10, MPFR_RNDN);
        mpfr_init(r14940);
        mpfr_init(r14941);
        mpfr_init(r14942);
        mpfr_init(r14943);
        mpfr_init(r14944);
}

double f_im(double x) {
        ;
        mpfr_set_d(r14940, x, MPFR_RNDN);
        mpfr_div(r14941, r14939, r14940, MPFR_RNDN);
        mpfr_sub(r14942, r14941, r14939, MPFR_RNDN);
        mpfr_log(r14943, r14942, MPFR_RNDN);
        mpfr_neg(r14944, r14943, MPFR_RNDN);
        return mpfr_get_d(r14944, MPFR_RNDN);
}

static mpfr_t r14945, r14946, r14947, r14948, r14949, r14950;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r14945, "1", 10, MPFR_RNDN);
        mpfr_init(r14946);
        mpfr_init(r14947);
        mpfr_init(r14948);
        mpfr_init(r14949);
        mpfr_init(r14950);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r14946, x, MPFR_RNDN);
        mpfr_div(r14947, r14945, r14946, MPFR_RNDN);
        mpfr_sub(r14948, r14947, r14945, MPFR_RNDN);
        mpfr_log(r14949, r14948, MPFR_RNDN);
        mpfr_neg(r14950, r14949, MPFR_RNDN);
        return mpfr_get_d(r14950, MPFR_RNDN);
}

static mpfr_t r14951, r14952, r14953, r14954, r14955, r14956;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r14951, "1", 10, MPFR_RNDN);
        mpfr_init(r14952);
        mpfr_init(r14953);
        mpfr_init(r14954);
        mpfr_init(r14955);
        mpfr_init(r14956);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r14952, x, MPFR_RNDN);
        mpfr_div(r14953, r14951, r14952, MPFR_RNDN);
        mpfr_sub(r14954, r14953, r14951, MPFR_RNDN);
        mpfr_log(r14955, r14954, MPFR_RNDN);
        mpfr_neg(r14956, r14955, MPFR_RNDN);
        return mpfr_get_d(r14956, MPFR_RNDN);
}