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

char *name = "Jmat.Real.erf";

double f_if(float x) {
        float r27339 = 1;
        float r27340 = 0.3275911;
        float r27341 = x;
        float r27342 = fabs(r27341);
        float r27343 = r27340 * r27342;
        float r27344 = r27339 + r27343;
        float r27345 = r27339 / r27344;
        float r27346 = 0.254829592;
        float r27347 = -0.284496736;
        float r27348 = 1.421413741;
        float r27349 = -1.453152027;
        float r27350 = 1.061405429;
        float r27351 = r27345 * r27350;
        float r27352 = r27349 + r27351;
        float r27353 = r27345 * r27352;
        float r27354 = r27348 + r27353;
        float r27355 = r27345 * r27354;
        float r27356 = r27347 + r27355;
        float r27357 = r27345 * r27356;
        float r27358 = r27346 + r27357;
        float r27359 = r27345 * r27358;
        float r27360 = r27342 * r27342;
        float r27361 = -r27360;
        float r27362 = exp(r27361);
        float r27363 = r27359 * r27362;
        float r27364 = r27339 - r27363;
        return r27364;
}

double f_id(double x) {
        double r27365 = 1;
        double r27366 = 0.3275911;
        double r27367 = x;
        double r27368 = fabs(r27367);
        double r27369 = r27366 * r27368;
        double r27370 = r27365 + r27369;
        double r27371 = r27365 / r27370;
        double r27372 = 0.254829592;
        double r27373 = -0.284496736;
        double r27374 = 1.421413741;
        double r27375 = -1.453152027;
        double r27376 = 1.061405429;
        double r27377 = r27371 * r27376;
        double r27378 = r27375 + r27377;
        double r27379 = r27371 * r27378;
        double r27380 = r27374 + r27379;
        double r27381 = r27371 * r27380;
        double r27382 = r27373 + r27381;
        double r27383 = r27371 * r27382;
        double r27384 = r27372 + r27383;
        double r27385 = r27371 * r27384;
        double r27386 = r27368 * r27368;
        double r27387 = -r27386;
        double r27388 = exp(r27387);
        double r27389 = r27385 * r27388;
        double r27390 = r27365 - r27389;
        return r27390;
}


double f_of(float x) {
        float r27391 = 1;
        float r27392 = -r27391;
        float r27393 = x;
        float r27394 = fabs(r27393);
        float r27395 = r27394 * r27394;
        float r27396 = exp(r27395);
        float r27397 = r27392 / r27396;
        float r27398 = 1.061405429;
        float r27399 = 0.3275911;
        float r27400 = fma(r27394, r27399, r27391);
        float r27401 = r27398 / r27400;
        float r27402 = -1.453152027;
        float r27403 = r27401 + r27402;
        float r27404 = r27391 / r27400;
        float r27405 = 1.421413741;
        float r27406 = fma(r27403, r27404, r27405);
        float r27407 = -0.284496736;
        float r27408 = fma(r27406, r27404, r27407);
        float r27409 = log1p(r27408);
        float r27410 = expm1(r27409);
        float r27411 = r27404 * r27404;
        float r27412 = 0.254829592;
        float r27413 = r27412 / r27400;
        float r27414 = fma(r27410, r27411, r27413);
        float r27415 = fma(r27397, r27414, r27391);
        float r27416 = exp(r27415);
        float r27417 = sqrt(r27416);
        float r27418 = log(r27417);
        float r27419 = 1/2;
        float r27420 = log(r27416);
        float r27421 = r27419 * r27420;
        float r27422 = r27418 + r27421;
        return r27422;
}

double f_od(double x) {
        double r27423 = 1;
        double r27424 = -r27423;
        double r27425 = x;
        double r27426 = fabs(r27425);
        double r27427 = r27426 * r27426;
        double r27428 = exp(r27427);
        double r27429 = r27424 / r27428;
        double r27430 = 1.061405429;
        double r27431 = 0.3275911;
        double r27432 = fma(r27426, r27431, r27423);
        double r27433 = r27430 / r27432;
        double r27434 = -1.453152027;
        double r27435 = r27433 + r27434;
        double r27436 = r27423 / r27432;
        double r27437 = 1.421413741;
        double r27438 = fma(r27435, r27436, r27437);
        double r27439 = -0.284496736;
        double r27440 = fma(r27438, r27436, r27439);
        double r27441 = log1p(r27440);
        double r27442 = expm1(r27441);
        double r27443 = r27436 * r27436;
        double r27444 = 0.254829592;
        double r27445 = r27444 / r27432;
        double r27446 = fma(r27442, r27443, r27445);
        double r27447 = fma(r27429, r27446, r27423);
        double r27448 = exp(r27447);
        double r27449 = sqrt(r27448);
        double r27450 = log(r27449);
        double r27451 = 1/2;
        double r27452 = log(r27448);
        double r27453 = r27451 * r27452;
        double r27454 = r27450 + r27453;
        return r27454;
}

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 r27455, r27456, r27457, r27458, r27459, r27460, r27461, r27462, r27463, r27464, r27465, r27466, r27467, r27468, r27469, r27470, r27471, r27472, r27473, r27474, r27475, r27476, r27477, r27478, r27479, r27480;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27455, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r27456, "0.3275911", 10, MPFR_RNDN);
        mpfr_init(r27457);
        mpfr_init(r27458);
        mpfr_init(r27459);
        mpfr_init(r27460);
        mpfr_init(r27461);
        mpfr_init_set_str(r27462, "0.254829592", 10, MPFR_RNDN);
        mpfr_init_set_str(r27463, "-0.284496736", 10, MPFR_RNDN);
        mpfr_init_set_str(r27464, "1.421413741", 10, MPFR_RNDN);
        mpfr_init_set_str(r27465, "-1.453152027", 10, MPFR_RNDN);
        mpfr_init_set_str(r27466, "1.061405429", 10, MPFR_RNDN);
        mpfr_init(r27467);
        mpfr_init(r27468);
        mpfr_init(r27469);
        mpfr_init(r27470);
        mpfr_init(r27471);
        mpfr_init(r27472);
        mpfr_init(r27473);
        mpfr_init(r27474);
        mpfr_init(r27475);
        mpfr_init(r27476);
        mpfr_init(r27477);
        mpfr_init(r27478);
        mpfr_init(r27479);
        mpfr_init(r27480);
}

double f_im(double x) {
        ;
        ;
        mpfr_set_d(r27457, x, MPFR_RNDN);
        mpfr_abs(r27458, r27457, MPFR_RNDN);
        mpfr_mul(r27459, r27456, r27458, MPFR_RNDN);
        mpfr_add(r27460, r27455, r27459, MPFR_RNDN);
        mpfr_div(r27461, r27455, r27460, MPFR_RNDN);
        ;
        ;
        ;
        ;
        ;
        mpfr_mul(r27467, r27461, r27466, MPFR_RNDN);
        mpfr_add(r27468, r27465, r27467, MPFR_RNDN);
        mpfr_mul(r27469, r27461, r27468, MPFR_RNDN);
        mpfr_add(r27470, r27464, r27469, MPFR_RNDN);
        mpfr_mul(r27471, r27461, r27470, MPFR_RNDN);
        mpfr_add(r27472, r27463, r27471, MPFR_RNDN);
        mpfr_mul(r27473, r27461, r27472, MPFR_RNDN);
        mpfr_add(r27474, r27462, r27473, MPFR_RNDN);
        mpfr_mul(r27475, r27461, r27474, MPFR_RNDN);
        mpfr_mul(r27476, r27458, r27458, MPFR_RNDN);
        mpfr_neg(r27477, r27476, MPFR_RNDN);
        mpfr_exp(r27478, r27477, MPFR_RNDN);
        mpfr_mul(r27479, r27475, r27478, MPFR_RNDN);
        mpfr_sub(r27480, r27455, r27479, MPFR_RNDN);
        return mpfr_get_d(r27480, MPFR_RNDN);
}

static mpfr_t r27481, r27482, r27483, r27484, r27485, r27486, r27487, r27488, r27489, r27490, r27491, r27492, r27493, r27494, r27495, r27496, r27497, r27498, r27499, r27500, r27501, r27502, r27503, r27504, r27505, r27506, r27507, r27508, r27509, r27510, r27511, r27512;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27481, "1", 10, MPFR_RNDN);
        mpfr_init(r27482);
        mpfr_init(r27483);
        mpfr_init(r27484);
        mpfr_init(r27485);
        mpfr_init(r27486);
        mpfr_init(r27487);
        mpfr_init_set_str(r27488, "1.061405429", 10, MPFR_RNDN);
        mpfr_init_set_str(r27489, "0.3275911", 10, MPFR_RNDN);
        mpfr_init(r27490);
        mpfr_init(r27491);
        mpfr_init_set_str(r27492, "-1.453152027", 10, MPFR_RNDN);
        mpfr_init(r27493);
        mpfr_init(r27494);
        mpfr_init_set_str(r27495, "1.421413741", 10, MPFR_RNDN);
        mpfr_init(r27496);
        mpfr_init_set_str(r27497, "-0.284496736", 10, MPFR_RNDN);
        mpfr_init(r27498);
        mpfr_init(r27499);
        mpfr_init(r27500);
        mpfr_init(r27501);
        mpfr_init_set_str(r27502, "0.254829592", 10, MPFR_RNDN);
        mpfr_init(r27503);
        mpfr_init(r27504);
        mpfr_init(r27505);
        mpfr_init(r27506);
        mpfr_init(r27507);
        mpfr_init(r27508);
        mpfr_init_set_str(r27509, "1/2", 10, MPFR_RNDN);
        mpfr_init(r27510);
        mpfr_init(r27511);
        mpfr_init(r27512);
}

double f_fm(double x) {
        ;
        mpfr_neg(r27482, r27481, MPFR_RNDN);
        mpfr_set_d(r27483, x, MPFR_RNDN);
        mpfr_abs(r27484, r27483, MPFR_RNDN);
        mpfr_mul(r27485, r27484, r27484, MPFR_RNDN);
        mpfr_exp(r27486, r27485, MPFR_RNDN);
        mpfr_div(r27487, r27482, r27486, MPFR_RNDN);
        ;
        ;
        mpfr_fma(r27490, r27484, r27489, r27481, MPFR_RNDN);
        mpfr_div(r27491, r27488, r27490, MPFR_RNDN);
        ;
        mpfr_add(r27493, r27491, r27492, MPFR_RNDN);
        mpfr_div(r27494, r27481, r27490, MPFR_RNDN);
        ;
        mpfr_fma(r27496, r27493, r27494, r27495, MPFR_RNDN);
        ;
        mpfr_fma(r27498, r27496, r27494, r27497, MPFR_RNDN);
        mpfr_log1p(r27499, r27498, MPFR_RNDN);
        mpfr_expm1(r27500, r27499, MPFR_RNDN);
        mpfr_mul(r27501, r27494, r27494, MPFR_RNDN);
        ;
        mpfr_div(r27503, r27502, r27490, MPFR_RNDN);
        mpfr_fma(r27504, r27500, r27501, r27503, MPFR_RNDN);
        mpfr_fma(r27505, r27487, r27504, r27481, MPFR_RNDN);
        mpfr_exp(r27506, r27505, MPFR_RNDN);
        mpfr_sqrt(r27507, r27506, MPFR_RNDN);
        mpfr_log(r27508, r27507, MPFR_RNDN);
        ;
        mpfr_log(r27510, r27506, MPFR_RNDN);
        mpfr_mul(r27511, r27509, r27510, MPFR_RNDN);
        mpfr_add(r27512, r27508, r27511, MPFR_RNDN);
        return mpfr_get_d(r27512, MPFR_RNDN);
}

static mpfr_t r27513, r27514, r27515, r27516, r27517, r27518, r27519, r27520, r27521, r27522, r27523, r27524, r27525, r27526, r27527, r27528, r27529, r27530, r27531, r27532, r27533, r27534, r27535, r27536, r27537, r27538, r27539, r27540, r27541, r27542, r27543, r27544;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r27513, "1", 10, MPFR_RNDN);
        mpfr_init(r27514);
        mpfr_init(r27515);
        mpfr_init(r27516);
        mpfr_init(r27517);
        mpfr_init(r27518);
        mpfr_init(r27519);
        mpfr_init_set_str(r27520, "1.061405429", 10, MPFR_RNDN);
        mpfr_init_set_str(r27521, "0.3275911", 10, MPFR_RNDN);
        mpfr_init(r27522);
        mpfr_init(r27523);
        mpfr_init_set_str(r27524, "-1.453152027", 10, MPFR_RNDN);
        mpfr_init(r27525);
        mpfr_init(r27526);
        mpfr_init_set_str(r27527, "1.421413741", 10, MPFR_RNDN);
        mpfr_init(r27528);
        mpfr_init_set_str(r27529, "-0.284496736", 10, MPFR_RNDN);
        mpfr_init(r27530);
        mpfr_init(r27531);
        mpfr_init(r27532);
        mpfr_init(r27533);
        mpfr_init_set_str(r27534, "0.254829592", 10, MPFR_RNDN);
        mpfr_init(r27535);
        mpfr_init(r27536);
        mpfr_init(r27537);
        mpfr_init(r27538);
        mpfr_init(r27539);
        mpfr_init(r27540);
        mpfr_init_set_str(r27541, "1/2", 10, MPFR_RNDN);
        mpfr_init(r27542);
        mpfr_init(r27543);
        mpfr_init(r27544);
}

double f_dm(double x) {
        ;
        mpfr_neg(r27514, r27513, MPFR_RNDN);
        mpfr_set_d(r27515, x, MPFR_RNDN);
        mpfr_abs(r27516, r27515, MPFR_RNDN);
        mpfr_mul(r27517, r27516, r27516, MPFR_RNDN);
        mpfr_exp(r27518, r27517, MPFR_RNDN);
        mpfr_div(r27519, r27514, r27518, MPFR_RNDN);
        ;
        ;
        mpfr_fma(r27522, r27516, r27521, r27513, MPFR_RNDN);
        mpfr_div(r27523, r27520, r27522, MPFR_RNDN);
        ;
        mpfr_add(r27525, r27523, r27524, MPFR_RNDN);
        mpfr_div(r27526, r27513, r27522, MPFR_RNDN);
        ;
        mpfr_fma(r27528, r27525, r27526, r27527, MPFR_RNDN);
        ;
        mpfr_fma(r27530, r27528, r27526, r27529, MPFR_RNDN);
        mpfr_log1p(r27531, r27530, MPFR_RNDN);
        mpfr_expm1(r27532, r27531, MPFR_RNDN);
        mpfr_mul(r27533, r27526, r27526, MPFR_RNDN);
        ;
        mpfr_div(r27535, r27534, r27522, MPFR_RNDN);
        mpfr_fma(r27536, r27532, r27533, r27535, MPFR_RNDN);
        mpfr_fma(r27537, r27519, r27536, r27513, MPFR_RNDN);
        mpfr_exp(r27538, r27537, MPFR_RNDN);
        mpfr_sqrt(r27539, r27538, MPFR_RNDN);
        mpfr_log(r27540, r27539, MPFR_RNDN);
        ;
        mpfr_log(r27542, r27538, MPFR_RNDN);
        mpfr_mul(r27543, r27541, r27542, MPFR_RNDN);
        mpfr_add(r27544, r27540, r27543, MPFR_RNDN);
        return mpfr_get_d(r27544, MPFR_RNDN);
}