#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 r19791 = 1;
        float r19792 = x;
        float r19793 = r19791 / r19792;
        float r19794 = r19793 - r19791;
        float r19795 = log(r19794);
        float r19796 = -r19795;
        return r19796;
}

double f_id(double x) {
        double r19797 = 1;
        double r19798 = x;
        double r19799 = r19797 / r19798;
        double r19800 = r19799 - r19797;
        double r19801 = log(r19800);
        double r19802 = -r19801;
        return r19802;
}


double f_of(float x) {
        float r19803 = 1;
        float r19804 = x;
        float r19805 = r19803 / r19804;
        float r19806 = r19805 - r19803;
        float r19807 = log(r19806);
        float r19808 = -r19807;
        return r19808;
}

double f_od(double x) {
        double r19809 = 1;
        double r19810 = x;
        double r19811 = r19809 / r19810;
        double r19812 = r19811 - r19809;
        double r19813 = log(r19812);
        double r19814 = -r19813;
        return r19814;
}

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 r19815, r19816, r19817, r19818, r19819, r19820;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19815, "1", 10, MPFR_RNDN);
        mpfr_init(r19816);
        mpfr_init(r19817);
        mpfr_init(r19818);
        mpfr_init(r19819);
        mpfr_init(r19820);
}

double f_im(double x) {
        ;
        mpfr_set_d(r19816, x, MPFR_RNDN);
        mpfr_div(r19817, r19815, r19816, MPFR_RNDN);
        mpfr_sub(r19818, r19817, r19815, MPFR_RNDN);
        mpfr_log(r19819, r19818, MPFR_RNDN);
        mpfr_neg(r19820, r19819, MPFR_RNDN);
        return mpfr_get_d(r19820, MPFR_RNDN);
}

static mpfr_t r19821, r19822, r19823, r19824, r19825, r19826;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19821, "1", 10, MPFR_RNDN);
        mpfr_init(r19822);
        mpfr_init(r19823);
        mpfr_init(r19824);
        mpfr_init(r19825);
        mpfr_init(r19826);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r19822, x, MPFR_RNDN);
        mpfr_div(r19823, r19821, r19822, MPFR_RNDN);
        mpfr_sub(r19824, r19823, r19821, MPFR_RNDN);
        mpfr_log(r19825, r19824, MPFR_RNDN);
        mpfr_neg(r19826, r19825, MPFR_RNDN);
        return mpfr_get_d(r19826, MPFR_RNDN);
}

static mpfr_t r19827, r19828, r19829, r19830, r19831, r19832;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r19827, "1", 10, MPFR_RNDN);
        mpfr_init(r19828);
        mpfr_init(r19829);
        mpfr_init(r19830);
        mpfr_init(r19831);
        mpfr_init(r19832);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r19828, x, MPFR_RNDN);
        mpfr_div(r19829, r19827, r19828, MPFR_RNDN);
        mpfr_sub(r19830, r19829, r19827, MPFR_RNDN);
        mpfr_log(r19831, r19830, MPFR_RNDN);
        mpfr_neg(r19832, r19831, MPFR_RNDN);
        return mpfr_get_d(r19832, MPFR_RNDN);
}