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

char *name = "math.exp on complex, imaginary part";

double f_if(float re, float im) {
        float r9326 = re;
        float r9327 = exp(r9326);
        float r9328 = im;
        float r9329 = sin(r9328);
        float r9330 = r9327 * r9329;
        return r9330;
}

double f_id(double re, double im) {
        double r9331 = re;
        double r9332 = exp(r9331);
        double r9333 = im;
        double r9334 = sin(r9333);
        double r9335 = r9332 * r9334;
        return r9335;
}


double f_of(float re, float im) {
        float r9336 = re;
        float r9337 = exp(r9336);
        float r9338 = im;
        float r9339 = sin(r9338);
        float r9340 = r9337 * r9339;
        return r9340;
}

double f_od(double re, double im) {
        double r9341 = re;
        double r9342 = exp(r9341);
        double r9343 = im;
        double r9344 = sin(r9343);
        double r9345 = r9342 * r9344;
        return r9345;
}

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 r9346, r9347, r9348, r9349, r9350;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r9346);
        mpfr_init(r9347);
        mpfr_init(r9348);
        mpfr_init(r9349);
        mpfr_init(r9350);
}

double f_im(double re, double im) {
        mpfr_set_d(r9346, re, MPFR_RNDN);
        mpfr_exp(r9347, r9346, MPFR_RNDN);
        mpfr_set_d(r9348, im, MPFR_RNDN);
        mpfr_sin(r9349, r9348, MPFR_RNDN);
        mpfr_mul(r9350, r9347, r9349, MPFR_RNDN);
        return mpfr_get_d(r9350, MPFR_RNDN);
}

static mpfr_t r9351, r9352, r9353, r9354, r9355;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9351);
        mpfr_init(r9352);
        mpfr_init(r9353);
        mpfr_init(r9354);
        mpfr_init(r9355);
}

double f_fm(double re, double im) {
        mpfr_set_d(r9351, re, MPFR_RNDN);
        mpfr_exp(r9352, r9351, MPFR_RNDN);
        mpfr_set_d(r9353, im, MPFR_RNDN);
        mpfr_sin(r9354, r9353, MPFR_RNDN);
        mpfr_mul(r9355, r9352, r9354, MPFR_RNDN);
        return mpfr_get_d(r9355, MPFR_RNDN);
}

static mpfr_t r9356, r9357, r9358, r9359, r9360;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9356);
        mpfr_init(r9357);
        mpfr_init(r9358);
        mpfr_init(r9359);
        mpfr_init(r9360);
}

double f_dm(double re, double im) {
        mpfr_set_d(r9356, re, MPFR_RNDN);
        mpfr_exp(r9357, r9356, MPFR_RNDN);
        mpfr_set_d(r9358, im, MPFR_RNDN);
        mpfr_sin(r9359, r9358, MPFR_RNDN);
        mpfr_mul(r9360, r9357, r9359, MPFR_RNDN);
        return mpfr_get_d(r9360, MPFR_RNDN);
}

