#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 r18911 = 1.0f;
        float r18912 = x;
        float r18913 = r18911 / r18912;
        float r18914 = r18913 - r18911;
        float r18915 = log(r18914);
        float r18916 = -r18915;
        return r18916;
}

double f_id(double x) {
        double r18917 = 1.0;
        double r18918 = x;
        double r18919 = r18917 / r18918;
        double r18920 = r18919 - r18917;
        double r18921 = log(r18920);
        double r18922 = -r18921;
        return r18922;
}


double f_of(float x) {
        float r18923 = 1.0f;
        float r18924 = x;
        float r18925 = r18923 / r18924;
        float r18926 = r18925 - r18923;
        float r18927 = log(r18926);
        float r18928 = -r18927;
        return r18928;
}

double f_od(double x) {
        double r18929 = 1.0;
        double r18930 = x;
        double r18931 = r18929 / r18930;
        double r18932 = r18931 - r18929;
        double r18933 = log(r18932);
        double r18934 = -r18933;
        return r18934;
}

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 r18935, r18936, r18937, r18938, r18939, r18940;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r18935, "1", 10, MPFR_RNDN);
        mpfr_init(r18936);
        mpfr_init(r18937);
        mpfr_init(r18938);
        mpfr_init(r18939);
        mpfr_init(r18940);
}

double f_im(double x) {
        ;
        mpfr_set_d(r18936, x, MPFR_RNDN);
        mpfr_div(r18937, r18935, r18936, MPFR_RNDN);
        mpfr_sub(r18938, r18937, r18935, MPFR_RNDN);
        mpfr_log(r18939, r18938, MPFR_RNDN);
        mpfr_neg(r18940, r18939, MPFR_RNDN);
        return mpfr_get_d(r18940, MPFR_RNDN);
}

static mpfr_t r18941, r18942, r18943, r18944, r18945, r18946;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r18941, "1", 10, MPFR_RNDN);
        mpfr_init(r18942);
        mpfr_init(r18943);
        mpfr_init(r18944);
        mpfr_init(r18945);
        mpfr_init(r18946);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r18942, x, MPFR_RNDN);
        mpfr_div(r18943, r18941, r18942, MPFR_RNDN);
        mpfr_sub(r18944, r18943, r18941, MPFR_RNDN);
        mpfr_log(r18945, r18944, MPFR_RNDN);
        mpfr_neg(r18946, r18945, MPFR_RNDN);
        return mpfr_get_d(r18946, MPFR_RNDN);
}

static mpfr_t r18947, r18948, r18949, r18950, r18951, r18952;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r18947, "1", 10, MPFR_RNDN);
        mpfr_init(r18948);
        mpfr_init(r18949);
        mpfr_init(r18950);
        mpfr_init(r18951);
        mpfr_init(r18952);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r18948, x, MPFR_RNDN);
        mpfr_div(r18949, r18947, r18948, MPFR_RNDN);
        mpfr_sub(r18950, r18949, r18947, MPFR_RNDN);
        mpfr_log(r18951, r18950, MPFR_RNDN);
        mpfr_neg(r18952, r18951, MPFR_RNDN);
        return mpfr_get_d(r18952, MPFR_RNDN);
}