#include #include #include #include #include char *name = "Rosa's TurbineBenchmark"; double f_if(float v, float w, float r) { float r20463 = 3; float r20464 = 2; float r20465 = r; float r20466 = r20465 * r20465; float r20467 = r20464 / r20466; float r20468 = r20463 + r20467; float r20469 = 0.125; float r20470 = v; float r20471 = r20464 * r20470; float r20472 = r20463 - r20471; float r20473 = r20469 * r20472; float r20474 = w; float r20475 = r20474 * r20474; float r20476 = r20475 * r20465; float r20477 = r20476 * r20465; float r20478 = r20473 * r20477; float r20479 = 1; float r20480 = r20479 - r20470; float r20481 = r20478 / r20480; float r20482 = r20468 - r20481; float r20483 = 4.5; float r20484 = r20482 - r20483; return r20484; } double f_id(double v, double w, double r) { double r20485 = 3; double r20486 = 2; double r20487 = r; double r20488 = r20487 * r20487; double r20489 = r20486 / r20488; double r20490 = r20485 + r20489; double r20491 = 0.125; double r20492 = v; double r20493 = r20486 * r20492; double r20494 = r20485 - r20493; double r20495 = r20491 * r20494; double r20496 = w; double r20497 = r20496 * r20496; double r20498 = r20497 * r20487; double r20499 = r20498 * r20487; double r20500 = r20495 * r20499; double r20501 = 1; double r20502 = r20501 - r20492; double r20503 = r20500 / r20502; double r20504 = r20490 - r20503; double r20505 = 4.5; double r20506 = r20504 - r20505; return r20506; } double f_of(float v, float w, float r) { float r20507 = 2; float r20508 = r; float r20509 = r20507 / r20508; float r20510 = r20509 / r20508; float r20511 = 3; float r20512 = r20510 + r20511; float r20513 = 0.125; float r20514 = 1; float r20515 = v; float r20516 = r20514 - r20515; float r20517 = r20513 / r20516; float r20518 = r20511 - r20515; float r20519 = r20518 - r20515; float r20520 = r20517 * r20519; float r20521 = w; float r20522 = r20521 * r20508; float r20523 = r20522 * r20522; float r20524 = 4.5; float r20525 = fma(r20520, r20523, r20524); float r20526 = r20512 - r20525; return r20526; } double f_od(double v, double w, double r) { double r20527 = 2; double r20528 = r; double r20529 = r20527 / r20528; double r20530 = r20529 / r20528; double r20531 = 3; double r20532 = r20530 + r20531; double r20533 = 0.125; double r20534 = 1; double r20535 = v; double r20536 = r20534 - r20535; double r20537 = r20533 / r20536; double r20538 = r20531 - r20535; double r20539 = r20538 - r20535; double r20540 = r20537 * r20539; double r20541 = w; double r20542 = r20541 * r20528; double r20543 = r20542 * r20542; double r20544 = 4.5; double r20545 = fma(r20540, r20543, r20544); double r20546 = r20532 - r20545; return r20546; } 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 r20547, r20548, r20549, r20550, r20551, r20552, r20553, r20554, r20555, r20556, r20557, r20558, r20559, r20560, r20561, r20562, r20563, r20564, r20565, r20566, r20567, r20568; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init_set_str(r20547, "3", 10, MPFR_RNDN); mpfr_init_set_str(r20548, "2", 10, MPFR_RNDN); mpfr_init(r20549); mpfr_init(r20550); mpfr_init(r20551); mpfr_init(r20552); mpfr_init_set_str(r20553, "0.125", 10, MPFR_RNDN); mpfr_init(r20554); mpfr_init(r20555); mpfr_init(r20556); mpfr_init(r20557); mpfr_init(r20558); mpfr_init(r20559); mpfr_init(r20560); mpfr_init(r20561); mpfr_init(r20562); mpfr_init_set_str(r20563, "1", 10, MPFR_RNDN); mpfr_init(r20564); mpfr_init(r20565); mpfr_init(r20566); mpfr_init_set_str(r20567, "4.5", 10, MPFR_RNDN); mpfr_init(r20568); } double f_im(double v, double w, double r) { ; ; mpfr_set_d(r20549, r, MPFR_RNDN); mpfr_mul(r20550, r20549, r20549, MPFR_RNDN); mpfr_div(r20551, r20548, r20550, MPFR_RNDN); mpfr_add(r20552, r20547, r20551, MPFR_RNDN); ; mpfr_set_d(r20554, v, MPFR_RNDN); mpfr_mul(r20555, r20548, r20554, MPFR_RNDN); mpfr_sub(r20556, r20547, r20555, MPFR_RNDN); mpfr_mul(r20557, r20553, r20556, MPFR_RNDN); mpfr_set_d(r20558, w, MPFR_RNDN); mpfr_mul(r20559, r20558, r20558, MPFR_RNDN); mpfr_mul(r20560, r20559, r20549, MPFR_RNDN); mpfr_mul(r20561, r20560, r20549, MPFR_RNDN); mpfr_mul(r20562, r20557, r20561, MPFR_RNDN); ; mpfr_sub(r20564, r20563, r20554, MPFR_RNDN); mpfr_div(r20565, r20562, r20564, MPFR_RNDN); mpfr_sub(r20566, r20552, r20565, MPFR_RNDN); ; mpfr_sub(r20568, r20566, r20567, MPFR_RNDN); return mpfr_get_d(r20568, MPFR_RNDN); } static mpfr_t r20569, r20570, r20571, r20572, r20573, r20574, r20575, r20576, r20577, r20578, r20579, r20580, r20581, r20582, r20583, r20584, r20585, r20586, r20587, r20588; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init_set_str(r20569, "2", 10, MPFR_RNDN); mpfr_init(r20570); mpfr_init(r20571); mpfr_init(r20572); mpfr_init_set_str(r20573, "3", 10, MPFR_RNDN); mpfr_init(r20574); mpfr_init_set_str(r20575, "0.125", 10, MPFR_RNDN); mpfr_init_set_str(r20576, "1", 10, MPFR_RNDN); mpfr_init(r20577); mpfr_init(r20578); mpfr_init(r20579); mpfr_init(r20580); mpfr_init(r20581); mpfr_init(r20582); mpfr_init(r20583); mpfr_init(r20584); mpfr_init(r20585); mpfr_init_set_str(r20586, "4.5", 10, MPFR_RNDN); mpfr_init(r20587); mpfr_init(r20588); } double f_fm(double v, double w, double r) { ; mpfr_set_d(r20570, r, MPFR_RNDN); mpfr_div(r20571, r20569, r20570, MPFR_RNDN); mpfr_div(r20572, r20571, r20570, MPFR_RNDN); ; mpfr_add(r20574, r20572, r20573, MPFR_RNDN); ; ; mpfr_set_d(r20577, v, MPFR_RNDN); mpfr_sub(r20578, r20576, r20577, MPFR_RNDN); mpfr_div(r20579, r20575, r20578, MPFR_RNDN); mpfr_sub(r20580, r20573, r20577, MPFR_RNDN); mpfr_sub(r20581, r20580, r20577, MPFR_RNDN); mpfr_mul(r20582, r20579, r20581, MPFR_RNDN); mpfr_set_d(r20583, w, MPFR_RNDN); mpfr_mul(r20584, r20583, r20570, MPFR_RNDN); mpfr_mul(r20585, r20584, r20584, MPFR_RNDN); ; mpfr_fma(r20587, r20582, r20585, r20586, MPFR_RNDN); mpfr_sub(r20588, r20574, r20587, MPFR_RNDN); return mpfr_get_d(r20588, MPFR_RNDN); } static mpfr_t r20589, r20590, r20591, r20592, r20593, r20594, r20595, r20596, r20597, r20598, r20599, r20600, r20601, r20602, r20603, r20604, r20605, r20606, r20607, r20608; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init_set_str(r20589, "2", 10, MPFR_RNDN); mpfr_init(r20590); mpfr_init(r20591); mpfr_init(r20592); mpfr_init_set_str(r20593, "3", 10, MPFR_RNDN); mpfr_init(r20594); mpfr_init_set_str(r20595, "0.125", 10, MPFR_RNDN); mpfr_init_set_str(r20596, "1", 10, MPFR_RNDN); mpfr_init(r20597); mpfr_init(r20598); mpfr_init(r20599); mpfr_init(r20600); mpfr_init(r20601); mpfr_init(r20602); mpfr_init(r20603); mpfr_init(r20604); mpfr_init(r20605); mpfr_init_set_str(r20606, "4.5", 10, MPFR_RNDN); mpfr_init(r20607); mpfr_init(r20608); } double f_dm(double v, double w, double r) { ; mpfr_set_d(r20590, r, MPFR_RNDN); mpfr_div(r20591, r20589, r20590, MPFR_RNDN); mpfr_div(r20592, r20591, r20590, MPFR_RNDN); ; mpfr_add(r20594, r20592, r20593, MPFR_RNDN); ; ; mpfr_set_d(r20597, v, MPFR_RNDN); mpfr_sub(r20598, r20596, r20597, MPFR_RNDN); mpfr_div(r20599, r20595, r20598, MPFR_RNDN); mpfr_sub(r20600, r20593, r20597, MPFR_RNDN); mpfr_sub(r20601, r20600, r20597, MPFR_RNDN); mpfr_mul(r20602, r20599, r20601, MPFR_RNDN); mpfr_set_d(r20603, w, MPFR_RNDN); mpfr_mul(r20604, r20603, r20590, MPFR_RNDN); mpfr_mul(r20605, r20604, r20604, MPFR_RNDN); ; mpfr_fma(r20607, r20602, r20605, r20606, MPFR_RNDN); mpfr_sub(r20608, r20594, r20607, MPFR_RNDN); return mpfr_get_d(r20608, MPFR_RNDN); }