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

char *name = "Bearing on a great circle";

double f_if(float lambda1, float lambda2, float phi1, float phi2) {
        float r26431 = lambda1;
        float r26432 = lambda2;
        float r26433 = r26431 - r26432;
        float r26434 = sin(r26433);
        float r26435 = phi2;
        float r26436 = cos(r26435);
        float r26437 = r26434 * r26436;
        float r26438 = phi1;
        float r26439 = cos(r26438);
        float r26440 = sin(r26435);
        float r26441 = r26439 * r26440;
        float r26442 = sin(r26438);
        float r26443 = r26442 * r26436;
        float r26444 = cos(r26433);
        float r26445 = r26443 * r26444;
        float r26446 = r26441 - r26445;
        float r26447 = atan2(r26437, r26446);
        return r26447;
}

double f_id(double lambda1, double lambda2, double phi1, double phi2) {
        double r26448 = lambda1;
        double r26449 = lambda2;
        double r26450 = r26448 - r26449;
        double r26451 = sin(r26450);
        double r26452 = phi2;
        double r26453 = cos(r26452);
        double r26454 = r26451 * r26453;
        double r26455 = phi1;
        double r26456 = cos(r26455);
        double r26457 = sin(r26452);
        double r26458 = r26456 * r26457;
        double r26459 = sin(r26455);
        double r26460 = r26459 * r26453;
        double r26461 = cos(r26450);
        double r26462 = r26460 * r26461;
        double r26463 = r26458 - r26462;
        double r26464 = atan2(r26454, r26463);
        return r26464;
}


double f_of(float lambda1, float lambda2, float phi1, float phi2) {
        float r26465 = lambda1;
        float r26466 = sin(r26465);
        float r26467 = lambda2;
        float r26468 = cos(r26467);
        float r26469 = r26466 * r26468;
        float r26470 = cos(r26465);
        float r26471 = -r26467;
        float r26472 = sin(r26471);
        float r26473 = r26470 * r26472;
        float r26474 = r26469 + r26473;
        float r26475 = phi2;
        float r26476 = cos(r26475);
        float r26477 = r26474 * r26476;
        float r26478 = phi1;
        float r26479 = cos(r26478);
        float r26480 = sin(r26475);
        float r26481 = r26479 * r26480;
        float r26482 = sin(r26478);
        float r26483 = r26476 * r26482;
        float r26484 = exp(r26483);
        float r26485 = sin(r26467);
        float r26486 = r26485 * r26466;
        float r26487 = fma(r26468, r26470, r26486);
        float r26488 = pow(r26484, r26487);
        float r26489 = log(r26488);
        float r26490 = r26481 - r26489;
        float r26491 = atan2(r26477, r26490);
        return r26491;
}

double f_od(double lambda1, double lambda2, double phi1, double phi2) {
        double r26492 = lambda1;
        double r26493 = sin(r26492);
        double r26494 = lambda2;
        double r26495 = cos(r26494);
        double r26496 = r26493 * r26495;
        double r26497 = cos(r26492);
        double r26498 = -r26494;
        double r26499 = sin(r26498);
        double r26500 = r26497 * r26499;
        double r26501 = r26496 + r26500;
        double r26502 = phi2;
        double r26503 = cos(r26502);
        double r26504 = r26501 * r26503;
        double r26505 = phi1;
        double r26506 = cos(r26505);
        double r26507 = sin(r26502);
        double r26508 = r26506 * r26507;
        double r26509 = sin(r26505);
        double r26510 = r26503 * r26509;
        double r26511 = exp(r26510);
        double r26512 = sin(r26494);
        double r26513 = r26512 * r26493;
        double r26514 = fma(r26495, r26497, r26513);
        double r26515 = pow(r26511, r26514);
        double r26516 = log(r26515);
        double r26517 = r26508 - r26516;
        double r26518 = atan2(r26504, r26517);
        return r26518;
}

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 r26519, r26520, r26521, r26522, r26523, r26524, r26525, r26526, r26527, r26528, r26529, r26530, r26531, r26532, r26533, r26534, r26535;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26519);
        mpfr_init(r26520);
        mpfr_init(r26521);
        mpfr_init(r26522);
        mpfr_init(r26523);
        mpfr_init(r26524);
        mpfr_init(r26525);
        mpfr_init(r26526);
        mpfr_init(r26527);
        mpfr_init(r26528);
        mpfr_init(r26529);
        mpfr_init(r26530);
        mpfr_init(r26531);
        mpfr_init(r26532);
        mpfr_init(r26533);
        mpfr_init(r26534);
        mpfr_init(r26535);
}

double f_im(double lambda1, double lambda2, double phi1, double phi2) {
        mpfr_set_d(r26519, lambda1, MPFR_RNDN);
        mpfr_set_d(r26520, lambda2, MPFR_RNDN);
        mpfr_sub(r26521, r26519, r26520, MPFR_RNDN);
        mpfr_sin(r26522, r26521, MPFR_RNDN);
        mpfr_set_d(r26523, phi2, MPFR_RNDN);
        mpfr_cos(r26524, r26523, MPFR_RNDN);
        mpfr_mul(r26525, r26522, r26524, MPFR_RNDN);
        mpfr_set_d(r26526, phi1, MPFR_RNDN);
        mpfr_cos(r26527, r26526, MPFR_RNDN);
        mpfr_sin(r26528, r26523, MPFR_RNDN);
        mpfr_mul(r26529, r26527, r26528, MPFR_RNDN);
        mpfr_sin(r26530, r26526, MPFR_RNDN);
        mpfr_mul(r26531, r26530, r26524, MPFR_RNDN);
        mpfr_cos(r26532, r26521, MPFR_RNDN);
        mpfr_mul(r26533, r26531, r26532, MPFR_RNDN);
        mpfr_sub(r26534, r26529, r26533, MPFR_RNDN);
        mpfr_atan2(r26535, r26525, r26534, MPFR_RNDN);
        return mpfr_get_d(r26535, MPFR_RNDN);
}

static mpfr_t r26536, r26537, r26538, r26539, r26540, r26541, r26542, r26543, r26544, r26545, r26546, r26547, r26548, r26549, r26550, r26551, r26552, r26553, r26554, r26555, r26556, r26557, r26558, r26559, r26560, r26561, r26562;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26536);
        mpfr_init(r26537);
        mpfr_init(r26538);
        mpfr_init(r26539);
        mpfr_init(r26540);
        mpfr_init(r26541);
        mpfr_init(r26542);
        mpfr_init(r26543);
        mpfr_init(r26544);
        mpfr_init(r26545);
        mpfr_init(r26546);
        mpfr_init(r26547);
        mpfr_init(r26548);
        mpfr_init(r26549);
        mpfr_init(r26550);
        mpfr_init(r26551);
        mpfr_init(r26552);
        mpfr_init(r26553);
        mpfr_init(r26554);
        mpfr_init(r26555);
        mpfr_init(r26556);
        mpfr_init(r26557);
        mpfr_init(r26558);
        mpfr_init(r26559);
        mpfr_init(r26560);
        mpfr_init(r26561);
        mpfr_init(r26562);
}

double f_fm(double lambda1, double lambda2, double phi1, double phi2) {
        mpfr_set_d(r26536, lambda1, MPFR_RNDN);
        mpfr_sin(r26537, r26536, MPFR_RNDN);
        mpfr_set_d(r26538, lambda2, MPFR_RNDN);
        mpfr_cos(r26539, r26538, MPFR_RNDN);
        mpfr_mul(r26540, r26537, r26539, MPFR_RNDN);
        mpfr_cos(r26541, r26536, MPFR_RNDN);
        mpfr_neg(r26542, r26538, MPFR_RNDN);
        mpfr_sin(r26543, r26542, MPFR_RNDN);
        mpfr_mul(r26544, r26541, r26543, MPFR_RNDN);
        mpfr_add(r26545, r26540, r26544, MPFR_RNDN);
        mpfr_set_d(r26546, phi2, MPFR_RNDN);
        mpfr_cos(r26547, r26546, MPFR_RNDN);
        mpfr_mul(r26548, r26545, r26547, MPFR_RNDN);
        mpfr_set_d(r26549, phi1, MPFR_RNDN);
        mpfr_cos(r26550, r26549, MPFR_RNDN);
        mpfr_sin(r26551, r26546, MPFR_RNDN);
        mpfr_mul(r26552, r26550, r26551, MPFR_RNDN);
        mpfr_sin(r26553, r26549, MPFR_RNDN);
        mpfr_mul(r26554, r26547, r26553, MPFR_RNDN);
        mpfr_exp(r26555, r26554, MPFR_RNDN);
        mpfr_sin(r26556, r26538, MPFR_RNDN);
        mpfr_mul(r26557, r26556, r26537, MPFR_RNDN);
        mpfr_fma(r26558, r26539, r26541, r26557, MPFR_RNDN);
        mpfr_pow(r26559, r26555, r26558, MPFR_RNDN);
        mpfr_log(r26560, r26559, MPFR_RNDN);
        mpfr_sub(r26561, r26552, r26560, MPFR_RNDN);
        mpfr_atan2(r26562, r26548, r26561, MPFR_RNDN);
        return mpfr_get_d(r26562, MPFR_RNDN);
}

static mpfr_t r26563, r26564, r26565, r26566, r26567, r26568, r26569, r26570, r26571, r26572, r26573, r26574, r26575, r26576, r26577, r26578, r26579, r26580, r26581, r26582, r26583, r26584, r26585, r26586, r26587, r26588, r26589;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26563);
        mpfr_init(r26564);
        mpfr_init(r26565);
        mpfr_init(r26566);
        mpfr_init(r26567);
        mpfr_init(r26568);
        mpfr_init(r26569);
        mpfr_init(r26570);
        mpfr_init(r26571);
        mpfr_init(r26572);
        mpfr_init(r26573);
        mpfr_init(r26574);
        mpfr_init(r26575);
        mpfr_init(r26576);
        mpfr_init(r26577);
        mpfr_init(r26578);
        mpfr_init(r26579);
        mpfr_init(r26580);
        mpfr_init(r26581);
        mpfr_init(r26582);
        mpfr_init(r26583);
        mpfr_init(r26584);
        mpfr_init(r26585);
        mpfr_init(r26586);
        mpfr_init(r26587);
        mpfr_init(r26588);
        mpfr_init(r26589);
}

double f_dm(double lambda1, double lambda2, double phi1, double phi2) {
        mpfr_set_d(r26563, lambda1, MPFR_RNDN);
        mpfr_sin(r26564, r26563, MPFR_RNDN);
        mpfr_set_d(r26565, lambda2, MPFR_RNDN);
        mpfr_cos(r26566, r26565, MPFR_RNDN);
        mpfr_mul(r26567, r26564, r26566, MPFR_RNDN);
        mpfr_cos(r26568, r26563, MPFR_RNDN);
        mpfr_neg(r26569, r26565, MPFR_RNDN);
        mpfr_sin(r26570, r26569, MPFR_RNDN);
        mpfr_mul(r26571, r26568, r26570, MPFR_RNDN);
        mpfr_add(r26572, r26567, r26571, MPFR_RNDN);
        mpfr_set_d(r26573, phi2, MPFR_RNDN);
        mpfr_cos(r26574, r26573, MPFR_RNDN);
        mpfr_mul(r26575, r26572, r26574, MPFR_RNDN);
        mpfr_set_d(r26576, phi1, MPFR_RNDN);
        mpfr_cos(r26577, r26576, MPFR_RNDN);
        mpfr_sin(r26578, r26573, MPFR_RNDN);
        mpfr_mul(r26579, r26577, r26578, MPFR_RNDN);
        mpfr_sin(r26580, r26576, MPFR_RNDN);
        mpfr_mul(r26581, r26574, r26580, MPFR_RNDN);
        mpfr_exp(r26582, r26581, MPFR_RNDN);
        mpfr_sin(r26583, r26565, MPFR_RNDN);
        mpfr_mul(r26584, r26583, r26564, MPFR_RNDN);
        mpfr_fma(r26585, r26566, r26568, r26584, MPFR_RNDN);
        mpfr_pow(r26586, r26582, r26585, MPFR_RNDN);
        mpfr_log(r26587, r26586, MPFR_RNDN);
        mpfr_sub(r26588, r26579, r26587, MPFR_RNDN);
        mpfr_atan2(r26589, r26575, r26588, MPFR_RNDN);
        return mpfr_get_d(r26589, MPFR_RNDN);
}