#include #include #include #include #include char *name = "Rosa's TurbineBenchmark"; double f_if(float v, float w, float r) { float r20542 = 3; float r20543 = 2; float r20544 = r; float r20545 = r20544 * r20544; float r20546 = r20543 / r20545; float r20547 = r20542 + r20546; float r20548 = 0.125; float r20549 = v; float r20550 = r20543 * r20549; float r20551 = r20542 - r20550; float r20552 = r20548 * r20551; float r20553 = w; float r20554 = r20553 * r20553; float r20555 = r20554 * r20544; float r20556 = r20555 * r20544; float r20557 = r20552 * r20556; float r20558 = 1; float r20559 = r20558 - r20549; float r20560 = r20557 / r20559; float r20561 = r20547 - r20560; float r20562 = 4.5; float r20563 = r20561 - r20562; return r20563; } double f_id(double v, double w, double r) { double r20564 = 3; double r20565 = 2; double r20566 = r; double r20567 = r20566 * r20566; double r20568 = r20565 / r20567; double r20569 = r20564 + r20568; double r20570 = 0.125; double r20571 = v; double r20572 = r20565 * r20571; double r20573 = r20564 - r20572; double r20574 = r20570 * r20573; double r20575 = w; double r20576 = r20575 * r20575; double r20577 = r20576 * r20566; double r20578 = r20577 * r20566; double r20579 = r20574 * r20578; double r20580 = 1; double r20581 = r20580 - r20571; double r20582 = r20579 / r20581; double r20583 = r20569 - r20582; double r20584 = 4.5; double r20585 = r20583 - r20584; return r20585; } double f_of(float v, float w, float r) { float r20586 = 2; float r20587 = r; float r20588 = r20586 / r20587; float r20589 = r20588 / r20587; float r20590 = 3; float r20591 = r20589 + r20590; float r20592 = 0.125; float r20593 = 1; float r20594 = v; float r20595 = r20593 - r20594; float r20596 = r20592 / r20595; float r20597 = r20590 - r20594; float r20598 = r20597 - r20594; float r20599 = r20596 * r20598; float r20600 = w; float r20601 = r20600 * r20587; float r20602 = r20601 * r20601; float r20603 = 4.5; float r20604 = fma(r20599, r20602, r20603); float r20605 = r20591 - r20604; return r20605; } double f_od(double v, double w, double r) { double r20606 = 2; double r20607 = r; double r20608 = r20606 / r20607; double r20609 = r20608 / r20607; double r20610 = 3; double r20611 = r20609 + r20610; double r20612 = 0.125; double r20613 = 1; double r20614 = v; double r20615 = r20613 - r20614; double r20616 = r20612 / r20615; double r20617 = r20610 - r20614; double r20618 = r20617 - r20614; double r20619 = r20616 * r20618; double r20620 = w; double r20621 = r20620 * r20607; double r20622 = r20621 * r20621; double r20623 = 4.5; double r20624 = fma(r20619, r20622, r20623); double r20625 = r20611 - r20624; return r20625; } 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 r20626, r20627, r20628, r20629, r20630, r20631, r20632, r20633, r20634, r20635, r20636, r20637, r20638, r20639, r20640, r20641, r20642, r20643, r20644, r20645, r20646, r20647; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init_set_str(r20626, "3", 10, MPFR_RNDN); mpfr_init_set_str(r20627, "2", 10, MPFR_RNDN); mpfr_init(r20628); mpfr_init(r20629); mpfr_init(r20630); mpfr_init(r20631); mpfr_init_set_str(r20632, "0.125", 10, MPFR_RNDN); mpfr_init(r20633); mpfr_init(r20634); mpfr_init(r20635); mpfr_init(r20636); mpfr_init(r20637); mpfr_init(r20638); mpfr_init(r20639); mpfr_init(r20640); mpfr_init(r20641); mpfr_init_set_str(r20642, "1", 10, MPFR_RNDN); mpfr_init(r20643); mpfr_init(r20644); mpfr_init(r20645); mpfr_init_set_str(r20646, "4.5", 10, MPFR_RNDN); mpfr_init(r20647); } double f_im(double v, double w, double r) { ; ; mpfr_set_d(r20628, r, MPFR_RNDN); mpfr_mul(r20629, r20628, r20628, MPFR_RNDN); mpfr_div(r20630, r20627, r20629, MPFR_RNDN); mpfr_add(r20631, r20626, r20630, MPFR_RNDN); ; mpfr_set_d(r20633, v, MPFR_RNDN); mpfr_mul(r20634, r20627, r20633, MPFR_RNDN); mpfr_sub(r20635, r20626, r20634, MPFR_RNDN); mpfr_mul(r20636, r20632, r20635, MPFR_RNDN); mpfr_set_d(r20637, w, MPFR_RNDN); mpfr_mul(r20638, r20637, r20637, MPFR_RNDN); mpfr_mul(r20639, r20638, r20628, MPFR_RNDN); mpfr_mul(r20640, r20639, r20628, MPFR_RNDN); mpfr_mul(r20641, r20636, r20640, MPFR_RNDN); ; mpfr_sub(r20643, r20642, r20633, MPFR_RNDN); mpfr_div(r20644, r20641, r20643, MPFR_RNDN); mpfr_sub(r20645, r20631, r20644, MPFR_RNDN); ; mpfr_sub(r20647, r20645, r20646, MPFR_RNDN); return mpfr_get_d(r20647, MPFR_RNDN); } static mpfr_t r20648, r20649, r20650, r20651, r20652, r20653, r20654, r20655, r20656, r20657, r20658, r20659, r20660, r20661, r20662, r20663, r20664, r20665, r20666, r20667; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init_set_str(r20648, "2", 10, MPFR_RNDN); mpfr_init(r20649); mpfr_init(r20650); mpfr_init(r20651); mpfr_init_set_str(r20652, "3", 10, MPFR_RNDN); mpfr_init(r20653); mpfr_init_set_str(r20654, "0.125", 10, MPFR_RNDN); mpfr_init_set_str(r20655, "1", 10, MPFR_RNDN); mpfr_init(r20656); mpfr_init(r20657); mpfr_init(r20658); mpfr_init(r20659); mpfr_init(r20660); mpfr_init(r20661); mpfr_init(r20662); mpfr_init(r20663); mpfr_init(r20664); mpfr_init_set_str(r20665, "4.5", 10, MPFR_RNDN); mpfr_init(r20666); mpfr_init(r20667); } double f_fm(double v, double w, double r) { ; mpfr_set_d(r20649, r, MPFR_RNDN); mpfr_div(r20650, r20648, r20649, MPFR_RNDN); mpfr_div(r20651, r20650, r20649, MPFR_RNDN); ; mpfr_add(r20653, r20651, r20652, MPFR_RNDN); ; ; mpfr_set_d(r20656, v, MPFR_RNDN); mpfr_sub(r20657, r20655, r20656, MPFR_RNDN); mpfr_div(r20658, r20654, r20657, MPFR_RNDN); mpfr_sub(r20659, r20652, r20656, MPFR_RNDN); mpfr_sub(r20660, r20659, r20656, MPFR_RNDN); mpfr_mul(r20661, r20658, r20660, MPFR_RNDN); mpfr_set_d(r20662, w, MPFR_RNDN); mpfr_mul(r20663, r20662, r20649, MPFR_RNDN); mpfr_mul(r20664, r20663, r20663, MPFR_RNDN); ; mpfr_fma(r20666, r20661, r20664, r20665, MPFR_RNDN); mpfr_sub(r20667, r20653, r20666, MPFR_RNDN); return mpfr_get_d(r20667, MPFR_RNDN); } static mpfr_t r20668, r20669, r20670, r20671, r20672, r20673, r20674, r20675, r20676, r20677, r20678, r20679, r20680, r20681, r20682, r20683, r20684, r20685, r20686, r20687; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init_set_str(r20668, "2", 10, MPFR_RNDN); mpfr_init(r20669); mpfr_init(r20670); mpfr_init(r20671); mpfr_init_set_str(r20672, "3", 10, MPFR_RNDN); mpfr_init(r20673); mpfr_init_set_str(r20674, "0.125", 10, MPFR_RNDN); mpfr_init_set_str(r20675, "1", 10, MPFR_RNDN); mpfr_init(r20676); mpfr_init(r20677); mpfr_init(r20678); mpfr_init(r20679); mpfr_init(r20680); mpfr_init(r20681); mpfr_init(r20682); mpfr_init(r20683); mpfr_init(r20684); mpfr_init_set_str(r20685, "4.5", 10, MPFR_RNDN); mpfr_init(r20686); mpfr_init(r20687); } double f_dm(double v, double w, double r) { ; mpfr_set_d(r20669, r, MPFR_RNDN); mpfr_div(r20670, r20668, r20669, MPFR_RNDN); mpfr_div(r20671, r20670, r20669, MPFR_RNDN); ; mpfr_add(r20673, r20671, r20672, MPFR_RNDN); ; ; mpfr_set_d(r20676, v, MPFR_RNDN); mpfr_sub(r20677, r20675, r20676, MPFR_RNDN); mpfr_div(r20678, r20674, r20677, MPFR_RNDN); mpfr_sub(r20679, r20672, r20676, MPFR_RNDN); mpfr_sub(r20680, r20679, r20676, MPFR_RNDN); mpfr_mul(r20681, r20678, r20680, MPFR_RNDN); mpfr_set_d(r20682, w, MPFR_RNDN); mpfr_mul(r20683, r20682, r20669, MPFR_RNDN); mpfr_mul(r20684, r20683, r20683, MPFR_RNDN); ; mpfr_fma(r20686, r20681, r20684, r20685, MPFR_RNDN); mpfr_sub(r20687, r20673, r20686, MPFR_RNDN); return mpfr_get_d(r20687, MPFR_RNDN); }