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

char *name = "Numeric.SpecFunctions:logGamma from math-functions-0.1.5.2";

double f_if(float x, float y, float z, float t, float a, float b, float c, float i) {
        float r25611 = x;
        float r25612 = y;
        float r25613 = r25611 * r25612;
        float r25614 = z;
        float r25615 = r25613 + r25614;
        float r25616 = r25615 * r25612;
        float r25617 = 27464.7644705;
        float r25618 = r25616 + r25617;
        float r25619 = r25618 * r25612;
        float r25620 = 230661.510616;
        float r25621 = r25619 + r25620;
        float r25622 = r25621 * r25612;
        float r25623 = t;
        float r25624 = r25622 + r25623;
        float r25625 = a;
        float r25626 = r25612 + r25625;
        float r25627 = r25626 * r25612;
        float r25628 = b;
        float r25629 = r25627 + r25628;
        float r25630 = r25629 * r25612;
        float r25631 = c;
        float r25632 = r25630 + r25631;
        float r25633 = r25632 * r25612;
        float r25634 = i;
        float r25635 = r25633 + r25634;
        float r25636 = r25624 / r25635;
        return r25636;
}

double f_id(double x, double y, double z, double t, double a, double b, double c, double i) {
        double r25637 = x;
        double r25638 = y;
        double r25639 = r25637 * r25638;
        double r25640 = z;
        double r25641 = r25639 + r25640;
        double r25642 = r25641 * r25638;
        double r25643 = 27464.7644705;
        double r25644 = r25642 + r25643;
        double r25645 = r25644 * r25638;
        double r25646 = 230661.510616;
        double r25647 = r25645 + r25646;
        double r25648 = r25647 * r25638;
        double r25649 = t;
        double r25650 = r25648 + r25649;
        double r25651 = a;
        double r25652 = r25638 + r25651;
        double r25653 = r25652 * r25638;
        double r25654 = b;
        double r25655 = r25653 + r25654;
        double r25656 = r25655 * r25638;
        double r25657 = c;
        double r25658 = r25656 + r25657;
        double r25659 = r25658 * r25638;
        double r25660 = i;
        double r25661 = r25659 + r25660;
        double r25662 = r25650 / r25661;
        return r25662;
}


double f_of(float x, float y, float z, float t, float a, float b, float c, float i) {
        float r25663 = x;
        float r25664 = y;
        float r25665 = r25663 * r25664;
        float r25666 = z;
        float r25667 = r25665 + r25666;
        float r25668 = r25667 * r25664;
        float r25669 = 27464.7644705;
        float r25670 = r25668 + r25669;
        float r25671 = r25670 * r25664;
        float r25672 = 230661.510616;
        float r25673 = r25671 + r25672;
        float r25674 = r25673 * r25664;
        float r25675 = t;
        float r25676 = r25674 + r25675;
        float r25677 = -1.781451168748656e+308;
        bool r25678 = r25676 <= r25677;
        float r25679 = r25666 / r25664;
        float r25680 = r25679 + r25663;
        float r25681 = 1.7776813719529376e+308;
        bool r25682 = r25676 <= r25681;
        float r25683 = a;
        float r25684 = r25664 + r25683;
        float r25685 = r25684 * r25664;
        float r25686 = b;
        float r25687 = r25685 + r25686;
        float r25688 = r25687 * r25664;
        float r25689 = c;
        float r25690 = r25688 + r25689;
        float r25691 = r25690 * r25664;
        float r25692 = i;
        float r25693 = r25691 + r25692;
        float r25694 = r25676 / r25693;
        float r25695 = r25682 ? r25694 : r25680;
        float r25696 = r25678 ? r25680 : r25695;
        return r25696;
}

double f_od(double x, double y, double z, double t, double a, double b, double c, double i) {
        double r25697 = x;
        double r25698 = y;
        double r25699 = r25697 * r25698;
        double r25700 = z;
        double r25701 = r25699 + r25700;
        double r25702 = r25701 * r25698;
        double r25703 = 27464.7644705;
        double r25704 = r25702 + r25703;
        double r25705 = r25704 * r25698;
        double r25706 = 230661.510616;
        double r25707 = r25705 + r25706;
        double r25708 = r25707 * r25698;
        double r25709 = t;
        double r25710 = r25708 + r25709;
        double r25711 = -1.781451168748656e+308;
        bool r25712 = r25710 <= r25711;
        double r25713 = r25700 / r25698;
        double r25714 = r25713 + r25697;
        double r25715 = 1.7776813719529376e+308;
        bool r25716 = r25710 <= r25715;
        double r25717 = a;
        double r25718 = r25698 + r25717;
        double r25719 = r25718 * r25698;
        double r25720 = b;
        double r25721 = r25719 + r25720;
        double r25722 = r25721 * r25698;
        double r25723 = c;
        double r25724 = r25722 + r25723;
        double r25725 = r25724 * r25698;
        double r25726 = i;
        double r25727 = r25725 + r25726;
        double r25728 = r25710 / r25727;
        double r25729 = r25716 ? r25728 : r25714;
        double r25730 = r25712 ? r25714 : r25729;
        return r25730;
}

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 r25731, r25732, r25733, r25734, r25735, r25736, r25737, r25738, r25739, r25740, r25741, r25742, r25743, r25744, r25745, r25746, r25747, r25748, r25749, r25750, r25751, r25752, r25753, r25754, r25755, r25756;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r25731);
        mpfr_init(r25732);
        mpfr_init(r25733);
        mpfr_init(r25734);
        mpfr_init(r25735);
        mpfr_init(r25736);
        mpfr_init_set_str(r25737, "27464.7644705", 10, MPFR_RNDN);
        mpfr_init(r25738);
        mpfr_init(r25739);
        mpfr_init_set_str(r25740, "230661.510616", 10, MPFR_RNDN);
        mpfr_init(r25741);
        mpfr_init(r25742);
        mpfr_init(r25743);
        mpfr_init(r25744);
        mpfr_init(r25745);
        mpfr_init(r25746);
        mpfr_init(r25747);
        mpfr_init(r25748);
        mpfr_init(r25749);
        mpfr_init(r25750);
        mpfr_init(r25751);
        mpfr_init(r25752);
        mpfr_init(r25753);
        mpfr_init(r25754);
        mpfr_init(r25755);
        mpfr_init(r25756);
}

double f_im(double x, double y, double z, double t, double a, double b, double c, double i) {
        mpfr_set_d(r25731, x, MPFR_RNDN);
        mpfr_set_d(r25732, y, MPFR_RNDN);
        mpfr_mul(r25733, r25731, r25732, MPFR_RNDN);
        mpfr_set_d(r25734, z, MPFR_RNDN);
        mpfr_add(r25735, r25733, r25734, MPFR_RNDN);
        mpfr_mul(r25736, r25735, r25732, MPFR_RNDN);
        ;
        mpfr_add(r25738, r25736, r25737, MPFR_RNDN);
        mpfr_mul(r25739, r25738, r25732, MPFR_RNDN);
        ;
        mpfr_add(r25741, r25739, r25740, MPFR_RNDN);
        mpfr_mul(r25742, r25741, r25732, MPFR_RNDN);
        mpfr_set_d(r25743, t, MPFR_RNDN);
        mpfr_add(r25744, r25742, r25743, MPFR_RNDN);
        mpfr_set_d(r25745, a, MPFR_RNDN);
        mpfr_add(r25746, r25732, r25745, MPFR_RNDN);
        mpfr_mul(r25747, r25746, r25732, MPFR_RNDN);
        mpfr_set_d(r25748, b, MPFR_RNDN);
        mpfr_add(r25749, r25747, r25748, MPFR_RNDN);
        mpfr_mul(r25750, r25749, r25732, MPFR_RNDN);
        mpfr_set_d(r25751, c, MPFR_RNDN);
        mpfr_add(r25752, r25750, r25751, MPFR_RNDN);
        mpfr_mul(r25753, r25752, r25732, MPFR_RNDN);
        mpfr_set_d(r25754, i, MPFR_RNDN);
        mpfr_add(r25755, r25753, r25754, MPFR_RNDN);
        mpfr_div(r25756, r25744, r25755, MPFR_RNDN);
        return mpfr_get_d(r25756, MPFR_RNDN);
}

static mpfr_t r25757, r25758, r25759, r25760, r25761, r25762, r25763, r25764, r25765, r25766, r25767, r25768, r25769, r25770, r25771, r25772, r25773, r25774, r25775, r25776, r25777, r25778, r25779, r25780, r25781, r25782, r25783, r25784, r25785, r25786, r25787, r25788, r25789, r25790;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r25757);
        mpfr_init(r25758);
        mpfr_init(r25759);
        mpfr_init(r25760);
        mpfr_init(r25761);
        mpfr_init(r25762);
        mpfr_init_set_str(r25763, "27464.7644705", 10, MPFR_RNDN);
        mpfr_init(r25764);
        mpfr_init(r25765);
        mpfr_init_set_str(r25766, "230661.510616", 10, MPFR_RNDN);
        mpfr_init(r25767);
        mpfr_init(r25768);
        mpfr_init(r25769);
        mpfr_init(r25770);
        mpfr_init_set_str(r25771, "-1.781451168748656e+308", 10, MPFR_RNDN);
        mpfr_init(r25772);
        mpfr_init(r25773);
        mpfr_init(r25774);
        mpfr_init_set_str(r25775, "1.7776813719529376e+308", 10, MPFR_RNDN);
        mpfr_init(r25776);
        mpfr_init(r25777);
        mpfr_init(r25778);
        mpfr_init(r25779);
        mpfr_init(r25780);
        mpfr_init(r25781);
        mpfr_init(r25782);
        mpfr_init(r25783);
        mpfr_init(r25784);
        mpfr_init(r25785);
        mpfr_init(r25786);
        mpfr_init(r25787);
        mpfr_init(r25788);
        mpfr_init(r25789);
        mpfr_init(r25790);
}

double f_fm(double x, double y, double z, double t, double a, double b, double c, double i) {
        mpfr_set_d(r25757, x, MPFR_RNDN);
        mpfr_set_d(r25758, y, MPFR_RNDN);
        mpfr_mul(r25759, r25757, r25758, MPFR_RNDN);
        mpfr_set_d(r25760, z, MPFR_RNDN);
        mpfr_add(r25761, r25759, r25760, MPFR_RNDN);
        mpfr_mul(r25762, r25761, r25758, MPFR_RNDN);
        ;
        mpfr_add(r25764, r25762, r25763, MPFR_RNDN);
        mpfr_mul(r25765, r25764, r25758, MPFR_RNDN);
        ;
        mpfr_add(r25767, r25765, r25766, MPFR_RNDN);
        mpfr_mul(r25768, r25767, r25758, MPFR_RNDN);
        mpfr_set_d(r25769, t, MPFR_RNDN);
        mpfr_add(r25770, r25768, r25769, MPFR_RNDN);
        ;
        mpfr_set_si(r25772, mpfr_cmp(r25770, r25771) <= 0, MPFR_RNDN);
        mpfr_div(r25773, r25760, r25758, MPFR_RNDN);
        mpfr_add(r25774, r25773, r25757, MPFR_RNDN);
        ;
        mpfr_set_si(r25776, mpfr_cmp(r25770, r25775) <= 0, MPFR_RNDN);
        mpfr_set_d(r25777, a, MPFR_RNDN);
        mpfr_add(r25778, r25758, r25777, MPFR_RNDN);
        mpfr_mul(r25779, r25778, r25758, MPFR_RNDN);
        mpfr_set_d(r25780, b, MPFR_RNDN);
        mpfr_add(r25781, r25779, r25780, MPFR_RNDN);
        mpfr_mul(r25782, r25781, r25758, MPFR_RNDN);
        mpfr_set_d(r25783, c, MPFR_RNDN);
        mpfr_add(r25784, r25782, r25783, MPFR_RNDN);
        mpfr_mul(r25785, r25784, r25758, MPFR_RNDN);
        mpfr_set_d(r25786, i, MPFR_RNDN);
        mpfr_add(r25787, r25785, r25786, MPFR_RNDN);
        mpfr_div(r25788, r25770, r25787, MPFR_RNDN);
        if (mpfr_get_si(r25776, MPFR_RNDN)) { mpfr_set(r25789, r25788, MPFR_RNDN); } else { mpfr_set(r25789, r25774, MPFR_RNDN); };
        if (mpfr_get_si(r25772, MPFR_RNDN)) { mpfr_set(r25790, r25774, MPFR_RNDN); } else { mpfr_set(r25790, r25789, MPFR_RNDN); };
        return mpfr_get_d(r25790, MPFR_RNDN);
}

static mpfr_t r25791, r25792, r25793, r25794, r25795, r25796, r25797, r25798, r25799, r25800, r25801, r25802, r25803, r25804, r25805, r25806, r25807, r25808, r25809, r25810, r25811, r25812, r25813, r25814, r25815, r25816, r25817, r25818, r25819, r25820, r25821, r25822, r25823, r25824;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r25791);
        mpfr_init(r25792);
        mpfr_init(r25793);
        mpfr_init(r25794);
        mpfr_init(r25795);
        mpfr_init(r25796);
        mpfr_init_set_str(r25797, "27464.7644705", 10, MPFR_RNDN);
        mpfr_init(r25798);
        mpfr_init(r25799);
        mpfr_init_set_str(r25800, "230661.510616", 10, MPFR_RNDN);
        mpfr_init(r25801);
        mpfr_init(r25802);
        mpfr_init(r25803);
        mpfr_init(r25804);
        mpfr_init_set_str(r25805, "-1.781451168748656e+308", 10, MPFR_RNDN);
        mpfr_init(r25806);
        mpfr_init(r25807);
        mpfr_init(r25808);
        mpfr_init_set_str(r25809, "1.7776813719529376e+308", 10, MPFR_RNDN);
        mpfr_init(r25810);
        mpfr_init(r25811);
        mpfr_init(r25812);
        mpfr_init(r25813);
        mpfr_init(r25814);
        mpfr_init(r25815);
        mpfr_init(r25816);
        mpfr_init(r25817);
        mpfr_init(r25818);
        mpfr_init(r25819);
        mpfr_init(r25820);
        mpfr_init(r25821);
        mpfr_init(r25822);
        mpfr_init(r25823);
        mpfr_init(r25824);
}

double f_dm(double x, double y, double z, double t, double a, double b, double c, double i) {
        mpfr_set_d(r25791, x, MPFR_RNDN);
        mpfr_set_d(r25792, y, MPFR_RNDN);
        mpfr_mul(r25793, r25791, r25792, MPFR_RNDN);
        mpfr_set_d(r25794, z, MPFR_RNDN);
        mpfr_add(r25795, r25793, r25794, MPFR_RNDN);
        mpfr_mul(r25796, r25795, r25792, MPFR_RNDN);
        ;
        mpfr_add(r25798, r25796, r25797, MPFR_RNDN);
        mpfr_mul(r25799, r25798, r25792, MPFR_RNDN);
        ;
        mpfr_add(r25801, r25799, r25800, MPFR_RNDN);
        mpfr_mul(r25802, r25801, r25792, MPFR_RNDN);
        mpfr_set_d(r25803, t, MPFR_RNDN);
        mpfr_add(r25804, r25802, r25803, MPFR_RNDN);
        ;
        mpfr_set_si(r25806, mpfr_cmp(r25804, r25805) <= 0, MPFR_RNDN);
        mpfr_div(r25807, r25794, r25792, MPFR_RNDN);
        mpfr_add(r25808, r25807, r25791, MPFR_RNDN);
        ;
        mpfr_set_si(r25810, mpfr_cmp(r25804, r25809) <= 0, MPFR_RNDN);
        mpfr_set_d(r25811, a, MPFR_RNDN);
        mpfr_add(r25812, r25792, r25811, MPFR_RNDN);
        mpfr_mul(r25813, r25812, r25792, MPFR_RNDN);
        mpfr_set_d(r25814, b, MPFR_RNDN);
        mpfr_add(r25815, r25813, r25814, MPFR_RNDN);
        mpfr_mul(r25816, r25815, r25792, MPFR_RNDN);
        mpfr_set_d(r25817, c, MPFR_RNDN);
        mpfr_add(r25818, r25816, r25817, MPFR_RNDN);
        mpfr_mul(r25819, r25818, r25792, MPFR_RNDN);
        mpfr_set_d(r25820, i, MPFR_RNDN);
        mpfr_add(r25821, r25819, r25820, MPFR_RNDN);
        mpfr_div(r25822, r25804, r25821, MPFR_RNDN);
        if (mpfr_get_si(r25810, MPFR_RNDN)) { mpfr_set(r25823, r25822, MPFR_RNDN); } else { mpfr_set(r25823, r25808, MPFR_RNDN); };
        if (mpfr_get_si(r25806, MPFR_RNDN)) { mpfr_set(r25824, r25808, MPFR_RNDN); } else { mpfr_set(r25824, r25823, MPFR_RNDN); };
        return mpfr_get_d(r25824, MPFR_RNDN);
}