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

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

double f_if(float x, float y) {
        float r56079 = x;
        float r56080 = y;
        float r56081 = r56080 * r56080;
        float r56082 = exp(r56081);
        float r56083 = r56079 * r56082;
        return r56083;
}

double f_id(double x, double y) {
        double r56084 = x;
        double r56085 = y;
        double r56086 = r56085 * r56085;
        double r56087 = exp(r56086);
        double r56088 = r56084 * r56087;
        return r56088;
}


double f_of(float x, float y) {
        float r56089 = x;
        float r56090 = y;
        float r56091 = r56090 * r56090;
        float r56092 = exp(r56091);
        float r56093 = r56089 * r56092;
        return r56093;
}

double f_od(double x, double y) {
        double r56094 = x;
        double r56095 = y;
        double r56096 = r56095 * r56095;
        double r56097 = exp(r56096);
        double r56098 = r56094 * r56097;
        return r56098;
}

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 r56099, r56100, r56101, r56102, r56103;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r56099);
        mpfr_init(r56100);
        mpfr_init(r56101);
        mpfr_init(r56102);
        mpfr_init(r56103);
}

double f_im(double x, double y) {
        mpfr_set_d(r56099, x, MPFR_RNDN);
        mpfr_set_d(r56100, y, MPFR_RNDN);
        mpfr_mul(r56101, r56100, r56100, MPFR_RNDN);
        mpfr_exp(r56102, r56101, MPFR_RNDN);
        mpfr_mul(r56103, r56099, r56102, MPFR_RNDN);
        return mpfr_get_d(r56103, MPFR_RNDN);
}

static mpfr_t r56104, r56105, r56106, r56107, r56108;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r56104);
        mpfr_init(r56105);
        mpfr_init(r56106);
        mpfr_init(r56107);
        mpfr_init(r56108);
}

double f_fm(double x, double y) {
        mpfr_set_d(r56104, x, MPFR_RNDN);
        mpfr_set_d(r56105, y, MPFR_RNDN);
        mpfr_mul(r56106, r56105, r56105, MPFR_RNDN);
        mpfr_exp(r56107, r56106, MPFR_RNDN);
        mpfr_mul(r56108, r56104, r56107, MPFR_RNDN);
        return mpfr_get_d(r56108, MPFR_RNDN);
}

static mpfr_t r56109, r56110, r56111, r56112, r56113;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r56109);
        mpfr_init(r56110);
        mpfr_init(r56111);
        mpfr_init(r56112);
        mpfr_init(r56113);
}

double f_dm(double x, double y) {
        mpfr_set_d(r56109, x, MPFR_RNDN);
        mpfr_set_d(r56110, y, MPFR_RNDN);
        mpfr_mul(r56111, r56110, r56110, MPFR_RNDN);
        mpfr_exp(r56112, r56111, MPFR_RNDN);
        mpfr_mul(r56113, r56109, r56112, MPFR_RNDN);
        return mpfr_get_d(r56113, MPFR_RNDN);
}