#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "Data.Number.Erf:$cinvnormcdf from erf-2.0.0.0, B";

double f_if(float x, float y) {
        float r56262 = x;
        float r56263 = y;
        float r56264 = 1.0;
        float r56265 = r56262 * r56263;
        float r56266 = 2.0;
        float r56267 = r56265 / r56266;
        float r56268 = r56264 + r56267;
        float r56269 = r56263 / r56268;
        float r56270 = r56262 - r56269;
        return r56270;
}

double f_id(double x, double y) {
        double r56271 = x;
        double r56272 = y;
        double r56273 = 1.0;
        double r56274 = r56271 * r56272;
        double r56275 = 2.0;
        double r56276 = r56274 / r56275;
        double r56277 = r56273 + r56276;
        double r56278 = r56272 / r56277;
        double r56279 = r56271 - r56278;
        return r56279;
}


double f_of(float x, float y) {
        float r56280 = x;
        float r56281 = y;
        float r56282 = 1.0;
        float r56283 = r56280 * r56281;
        float r56284 = 2.0;
        float r56285 = r56283 / r56284;
        float r56286 = r56282 + r56285;
        float r56287 = r56281 / r56286;
        float r56288 = r56280 - r56287;
        return r56288;
}

double f_od(double x, double y) {
        double r56289 = x;
        double r56290 = y;
        double r56291 = 1.0;
        double r56292 = r56289 * r56290;
        double r56293 = 2.0;
        double r56294 = r56292 / r56293;
        double r56295 = r56291 + r56294;
        double r56296 = r56290 / r56295;
        double r56297 = r56289 - r56296;
        return r56297;
}

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 r56298, r56299, r56300, r56301, r56302, r56303, r56304, r56305, r56306;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r56298);
        mpfr_init(r56299);
        mpfr_init_set_str(r56300, "1.0", 10, MPFR_RNDN);
        mpfr_init(r56301);
        mpfr_init_set_str(r56302, "2.0", 10, MPFR_RNDN);
        mpfr_init(r56303);
        mpfr_init(r56304);
        mpfr_init(r56305);
        mpfr_init(r56306);
}

double f_im(double x, double y) {
        mpfr_set_d(r56298, x, MPFR_RNDN);
        mpfr_set_d(r56299, y, MPFR_RNDN);
        ;
        mpfr_mul(r56301, r56298, r56299, MPFR_RNDN);
        ;
        mpfr_div(r56303, r56301, r56302, MPFR_RNDN);
        mpfr_add(r56304, r56300, r56303, MPFR_RNDN);
        mpfr_div(r56305, r56299, r56304, MPFR_RNDN);
        mpfr_sub(r56306, r56298, r56305, MPFR_RNDN);
        return mpfr_get_d(r56306, MPFR_RNDN);
}

static mpfr_t r56307, r56308, r56309, r56310, r56311, r56312, r56313, r56314, r56315;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r56307);
        mpfr_init(r56308);
        mpfr_init_set_str(r56309, "1.0", 10, MPFR_RNDN);
        mpfr_init(r56310);
        mpfr_init_set_str(r56311, "2.0", 10, MPFR_RNDN);
        mpfr_init(r56312);
        mpfr_init(r56313);
        mpfr_init(r56314);
        mpfr_init(r56315);
}

double f_fm(double x, double y) {
        mpfr_set_d(r56307, x, MPFR_RNDN);
        mpfr_set_d(r56308, y, MPFR_RNDN);
        ;
        mpfr_mul(r56310, r56307, r56308, MPFR_RNDN);
        ;
        mpfr_div(r56312, r56310, r56311, MPFR_RNDN);
        mpfr_add(r56313, r56309, r56312, MPFR_RNDN);
        mpfr_div(r56314, r56308, r56313, MPFR_RNDN);
        mpfr_sub(r56315, r56307, r56314, MPFR_RNDN);
        return mpfr_get_d(r56315, MPFR_RNDN);
}

static mpfr_t r56316, r56317, r56318, r56319, r56320, r56321, r56322, r56323, r56324;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r56316);
        mpfr_init(r56317);
        mpfr_init_set_str(r56318, "1.0", 10, MPFR_RNDN);
        mpfr_init(r56319);
        mpfr_init_set_str(r56320, "2.0", 10, MPFR_RNDN);
        mpfr_init(r56321);
        mpfr_init(r56322);
        mpfr_init(r56323);
        mpfr_init(r56324);
}

double f_dm(double x, double y) {
        mpfr_set_d(r56316, x, MPFR_RNDN);
        mpfr_set_d(r56317, y, MPFR_RNDN);
        ;
        mpfr_mul(r56319, r56316, r56317, MPFR_RNDN);
        ;
        mpfr_div(r56321, r56319, r56320, MPFR_RNDN);
        mpfr_add(r56322, r56318, r56321, MPFR_RNDN);
        mpfr_div(r56323, r56317, r56322, MPFR_RNDN);
        mpfr_sub(r56324, r56316, r56323, MPFR_RNDN);
        return mpfr_get_d(r56324, MPFR_RNDN);
}