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

char *name = "2atan (example 3.5)";

double f_if(float N) {
        float r27537 = N;
        float r27538 = 1;
        float r27539 = r27537 + r27538;
        float r27540 = atan(r27539);
        float r27541 = atan(r27537);
        float r27542 = r27540 - r27541;
        return r27542;
}

double f_id(double N) {
        double r27543 = N;
        double r27544 = 1;
        double r27545 = r27543 + r27544;
        double r27546 = atan(r27545);
        double r27547 = atan(r27543);
        double r27548 = r27546 - r27547;
        return r27548;
}


double f_of(float N) {
        float r27549 = 1;
        float r27550 = N;
        float r27551 = r27550 + r27549;
        float r27552 = r27551 * r27550;
        float r27553 = r27549 + r27552;
        float r27554 = atan2(r27549, r27553);
        return r27554;
}

double f_od(double N) {
        double r27555 = 1;
        double r27556 = N;
        double r27557 = r27556 + r27555;
        double r27558 = r27557 * r27556;
        double r27559 = r27555 + r27558;
        double r27560 = atan2(r27555, r27559);
        return r27560;
}

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 r27561, r27562, r27563, r27564, r27565, r27566;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r27561);
        mpfr_init_set_str(r27562, "1", 10, MPFR_RNDN);
        mpfr_init(r27563);
        mpfr_init(r27564);
        mpfr_init(r27565);
        mpfr_init(r27566);
}

double f_im(double N) {
        mpfr_set_d(r27561, N, MPFR_RNDN);
        ;
        mpfr_add(r27563, r27561, r27562, MPFR_RNDN);
        mpfr_atan(r27564, r27563, MPFR_RNDN);
        mpfr_atan(r27565, r27561, MPFR_RNDN);
        mpfr_sub(r27566, r27564, r27565, MPFR_RNDN);
        return mpfr_get_d(r27566, MPFR_RNDN);
}

static mpfr_t r27567, r27568, r27569, r27570, r27571, r27572;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r27567, "1", 10, MPFR_RNDN);
        mpfr_init(r27568);
        mpfr_init(r27569);
        mpfr_init(r27570);
        mpfr_init(r27571);
        mpfr_init(r27572);
}

double f_fm(double N) {
        ;
        mpfr_set_d(r27568, N, MPFR_RNDN);
        mpfr_add(r27569, r27568, r27567, MPFR_RNDN);
        mpfr_mul(r27570, r27569, r27568, MPFR_RNDN);
        mpfr_add(r27571, r27567, r27570, MPFR_RNDN);
        mpfr_atan2(r27572, r27567, r27571, MPFR_RNDN);
        return mpfr_get_d(r27572, MPFR_RNDN);
}

static mpfr_t r27573, r27574, r27575, r27576, r27577, r27578;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r27573, "1", 10, MPFR_RNDN);
        mpfr_init(r27574);
        mpfr_init(r27575);
        mpfr_init(r27576);
        mpfr_init(r27577);
        mpfr_init(r27578);
}

double f_dm(double N) {
        ;
        mpfr_set_d(r27574, N, MPFR_RNDN);
        mpfr_add(r27575, r27574, r27573, MPFR_RNDN);
        mpfr_mul(r27576, r27575, r27574, MPFR_RNDN);
        mpfr_add(r27577, r27573, r27576, MPFR_RNDN);
        mpfr_atan2(r27578, r27573, r27577, MPFR_RNDN);
        return mpfr_get_d(r27578, MPFR_RNDN);
}