#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 r19822 = 1;
        float r19823 = x;
        float r19824 = r19822 / r19823;
        float r19825 = r19824 - r19822;
        float r19826 = log(r19825);
        float r19827 = -r19826;
        return r19827;
}

double f_id(double x) {
        double r19828 = 1;
        double r19829 = x;
        double r19830 = r19828 / r19829;
        double r19831 = r19830 - r19828;
        double r19832 = log(r19831);
        double r19833 = -r19832;
        return r19833;
}


double f_of(float x) {
        float r19834 = 1;
        float r19835 = x;
        float r19836 = r19834 / r19835;
        float r19837 = r19836 - r19834;
        float r19838 = log(r19837);
        float r19839 = -r19838;
        return r19839;
}

double f_od(double x) {
        double r19840 = 1;
        double r19841 = x;
        double r19842 = r19840 / r19841;
        double r19843 = r19842 - r19840;
        double r19844 = log(r19843);
        double r19845 = -r19844;
        return r19845;
}

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 r19846, r19847, r19848, r19849, r19850, r19851;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19846, "1", 10, MPFR_RNDN);
        mpfr_init(r19847);
        mpfr_init(r19848);
        mpfr_init(r19849);
        mpfr_init(r19850);
        mpfr_init(r19851);
}

double f_im(double x) {
        ;
        mpfr_set_d(r19847, x, MPFR_RNDN);
        mpfr_div(r19848, r19846, r19847, MPFR_RNDN);
        mpfr_sub(r19849, r19848, r19846, MPFR_RNDN);
        mpfr_log(r19850, r19849, MPFR_RNDN);
        mpfr_neg(r19851, r19850, MPFR_RNDN);
        return mpfr_get_d(r19851, MPFR_RNDN);
}

static mpfr_t r19852, r19853, r19854, r19855, r19856, r19857;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19852, "1", 10, MPFR_RNDN);
        mpfr_init(r19853);
        mpfr_init(r19854);
        mpfr_init(r19855);
        mpfr_init(r19856);
        mpfr_init(r19857);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r19853, x, MPFR_RNDN);
        mpfr_div(r19854, r19852, r19853, MPFR_RNDN);
        mpfr_sub(r19855, r19854, r19852, MPFR_RNDN);
        mpfr_log(r19856, r19855, MPFR_RNDN);
        mpfr_neg(r19857, r19856, MPFR_RNDN);
        return mpfr_get_d(r19857, MPFR_RNDN);
}

static mpfr_t r19858, r19859, r19860, r19861, r19862, r19863;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19858, "1", 10, MPFR_RNDN);
        mpfr_init(r19859);
        mpfr_init(r19860);
        mpfr_init(r19861);
        mpfr_init(r19862);
        mpfr_init(r19863);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r19859, x, MPFR_RNDN);
        mpfr_div(r19860, r19858, r19859, MPFR_RNDN);
        mpfr_sub(r19861, r19860, r19858, MPFR_RNDN);
        mpfr_log(r19862, r19861, MPFR_RNDN);
        mpfr_neg(r19863, r19862, MPFR_RNDN);
        return mpfr_get_d(r19863, MPFR_RNDN);
}