#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 = r20587 * r20587; float r20589 = r20586 / r20588; float r20590 = 3; float r20591 = 4.5; float r20592 = r20590 - r20591; float r20593 = r20589 + r20592; float r20594 = 0.125; float r20595 = 1; float r20596 = v; float r20597 = r20595 - r20596; float r20598 = r20594 / r20597; float r20599 = r20596 + r20596; float r20600 = r20590 - r20599; float r20601 = r20598 * r20600; float r20602 = w; float r20603 = r20602 * r20587; float r20604 = fabs(r20603); float r20605 = r20604 * r20604; float r20606 = r20601 * r20605; float r20607 = r20593 - r20606; return r20607; } double f_od(double v, double w, double r) { double r20608 = 2; double r20609 = r; double r20610 = r20609 * r20609; double r20611 = r20608 / r20610; double r20612 = 3; double r20613 = 4.5; double r20614 = r20612 - r20613; double r20615 = r20611 + r20614; double r20616 = 0.125; double r20617 = 1; double r20618 = v; double r20619 = r20617 - r20618; double r20620 = r20616 / r20619; double r20621 = r20618 + r20618; double r20622 = r20612 - r20621; double r20623 = r20620 * r20622; double r20624 = w; double r20625 = r20624 * r20609; double r20626 = fabs(r20625); double r20627 = r20626 * r20626; double r20628 = r20623 * r20627; double r20629 = r20615 - r20628; return r20629; } 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 r20630, r20631, r20632, r20633, r20634, r20635, r20636, r20637, r20638, r20639, r20640, r20641, r20642, r20643, r20644, r20645, r20646, r20647, r20648, r20649, r20650, r20651; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init_set_str(r20630, "3", 10, MPFR_RNDN); mpfr_init_set_str(r20631, "2", 10, MPFR_RNDN); mpfr_init(r20632); mpfr_init(r20633); mpfr_init(r20634); mpfr_init(r20635); mpfr_init_set_str(r20636, "0.125", 10, MPFR_RNDN); mpfr_init(r20637); mpfr_init(r20638); mpfr_init(r20639); mpfr_init(r20640); mpfr_init(r20641); mpfr_init(r20642); mpfr_init(r20643); mpfr_init(r20644); mpfr_init(r20645); mpfr_init_set_str(r20646, "1", 10, MPFR_RNDN); mpfr_init(r20647); mpfr_init(r20648); mpfr_init(r20649); mpfr_init_set_str(r20650, "4.5", 10, MPFR_RNDN); mpfr_init(r20651); } double f_im(double v, double w, double r) { ; ; mpfr_set_d(r20632, r, MPFR_RNDN); mpfr_mul(r20633, r20632, r20632, MPFR_RNDN); mpfr_div(r20634, r20631, r20633, MPFR_RNDN); mpfr_add(r20635, r20630, r20634, MPFR_RNDN); ; mpfr_set_d(r20637, v, MPFR_RNDN); mpfr_mul(r20638, r20631, r20637, MPFR_RNDN); mpfr_sub(r20639, r20630, r20638, MPFR_RNDN); mpfr_mul(r20640, r20636, r20639, MPFR_RNDN); mpfr_set_d(r20641, w, MPFR_RNDN); mpfr_mul(r20642, r20641, r20641, MPFR_RNDN); mpfr_mul(r20643, r20642, r20632, MPFR_RNDN); mpfr_mul(r20644, r20643, r20632, MPFR_RNDN); mpfr_mul(r20645, r20640, r20644, MPFR_RNDN); ; mpfr_sub(r20647, r20646, r20637, MPFR_RNDN); mpfr_div(r20648, r20645, r20647, MPFR_RNDN); mpfr_sub(r20649, r20635, r20648, MPFR_RNDN); ; mpfr_sub(r20651, r20649, r20650, MPFR_RNDN); return mpfr_get_d(r20651, MPFR_RNDN); } static mpfr_t r20652, r20653, r20654, r20655, r20656, r20657, r20658, r20659, r20660, r20661, r20662, r20663, r20664, r20665, r20666, r20667, r20668, r20669, r20670, r20671, r20672, r20673; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init_set_str(r20652, "2", 10, MPFR_RNDN); mpfr_init(r20653); mpfr_init(r20654); mpfr_init(r20655); mpfr_init_set_str(r20656, "3", 10, MPFR_RNDN); mpfr_init_set_str(r20657, "4.5", 10, MPFR_RNDN); mpfr_init(r20658); mpfr_init(r20659); mpfr_init_set_str(r20660, "0.125", 10, MPFR_RNDN); mpfr_init_set_str(r20661, "1", 10, MPFR_RNDN); mpfr_init(r20662); mpfr_init(r20663); mpfr_init(r20664); mpfr_init(r20665); mpfr_init(r20666); mpfr_init(r20667); mpfr_init(r20668); mpfr_init(r20669); mpfr_init(r20670); mpfr_init(r20671); mpfr_init(r20672); mpfr_init(r20673); } double f_fm(double v, double w, double r) { ; mpfr_set_d(r20653, r, MPFR_RNDN); mpfr_mul(r20654, r20653, r20653, MPFR_RNDN); mpfr_div(r20655, r20652, r20654, MPFR_RNDN); ; ; mpfr_sub(r20658, r20656, r20657, MPFR_RNDN); mpfr_add(r20659, r20655, r20658, MPFR_RNDN); ; ; mpfr_set_d(r20662, v, MPFR_RNDN); mpfr_sub(r20663, r20661, r20662, MPFR_RNDN); mpfr_div(r20664, r20660, r20663, MPFR_RNDN); mpfr_add(r20665, r20662, r20662, MPFR_RNDN); mpfr_sub(r20666, r20656, r20665, MPFR_RNDN); mpfr_mul(r20667, r20664, r20666, MPFR_RNDN); mpfr_set_d(r20668, w, MPFR_RNDN); mpfr_mul(r20669, r20668, r20653, MPFR_RNDN); mpfr_abs(r20670, r20669, MPFR_RNDN); mpfr_mul(r20671, r20670, r20670, MPFR_RNDN); mpfr_mul(r20672, r20667, r20671, MPFR_RNDN); mpfr_sub(r20673, r20659, r20672, MPFR_RNDN); return mpfr_get_d(r20673, MPFR_RNDN); } static mpfr_t r20674, r20675, r20676, r20677, r20678, r20679, r20680, r20681, r20682, r20683, r20684, r20685, r20686, r20687, r20688, r20689, r20690, r20691, r20692, r20693, r20694, r20695; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init_set_str(r20674, "2", 10, MPFR_RNDN); mpfr_init(r20675); mpfr_init(r20676); mpfr_init(r20677); mpfr_init_set_str(r20678, "3", 10, MPFR_RNDN); mpfr_init_set_str(r20679, "4.5", 10, MPFR_RNDN); mpfr_init(r20680); mpfr_init(r20681); mpfr_init_set_str(r20682, "0.125", 10, MPFR_RNDN); mpfr_init_set_str(r20683, "1", 10, MPFR_RNDN); mpfr_init(r20684); mpfr_init(r20685); mpfr_init(r20686); mpfr_init(r20687); mpfr_init(r20688); mpfr_init(r20689); mpfr_init(r20690); mpfr_init(r20691); mpfr_init(r20692); mpfr_init(r20693); mpfr_init(r20694); mpfr_init(r20695); } double f_dm(double v, double w, double r) { ; mpfr_set_d(r20675, r, MPFR_RNDN); mpfr_mul(r20676, r20675, r20675, MPFR_RNDN); mpfr_div(r20677, r20674, r20676, MPFR_RNDN); ; ; mpfr_sub(r20680, r20678, r20679, MPFR_RNDN); mpfr_add(r20681, r20677, r20680, MPFR_RNDN); ; ; mpfr_set_d(r20684, v, MPFR_RNDN); mpfr_sub(r20685, r20683, r20684, MPFR_RNDN); mpfr_div(r20686, r20682, r20685, MPFR_RNDN); mpfr_add(r20687, r20684, r20684, MPFR_RNDN); mpfr_sub(r20688, r20678, r20687, MPFR_RNDN); mpfr_mul(r20689, r20686, r20688, MPFR_RNDN); mpfr_set_d(r20690, w, MPFR_RNDN); mpfr_mul(r20691, r20690, r20675, MPFR_RNDN); mpfr_abs(r20692, r20691, MPFR_RNDN); mpfr_mul(r20693, r20692, r20692, MPFR_RNDN); mpfr_mul(r20694, r20689, r20693, MPFR_RNDN); mpfr_sub(r20695, r20681, r20694, MPFR_RNDN); return mpfr_get_d(r20695, MPFR_RNDN); }