#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 r26437 = lambda1;
        float r26438 = lambda2;
        float r26439 = r26437 - r26438;
        float r26440 = sin(r26439);
        float r26441 = phi2;
        float r26442 = cos(r26441);
        float r26443 = r26440 * r26442;
        float r26444 = phi1;
        float r26445 = cos(r26444);
        float r26446 = sin(r26441);
        float r26447 = r26445 * r26446;
        float r26448 = sin(r26444);
        float r26449 = r26448 * r26442;
        float r26450 = cos(r26439);
        float r26451 = r26449 * r26450;
        float r26452 = r26447 - r26451;
        float r26453 = atan2(r26443, r26452);
        return r26453;
}

double f_id(double lambda1, double lambda2, double phi1, double phi2) {
        double r26454 = lambda1;
        double r26455 = lambda2;
        double r26456 = r26454 - r26455;
        double r26457 = sin(r26456);
        double r26458 = phi2;
        double r26459 = cos(r26458);
        double r26460 = r26457 * r26459;
        double r26461 = phi1;
        double r26462 = cos(r26461);
        double r26463 = sin(r26458);
        double r26464 = r26462 * r26463;
        double r26465 = sin(r26461);
        double r26466 = r26465 * r26459;
        double r26467 = cos(r26456);
        double r26468 = r26466 * r26467;
        double r26469 = r26464 - r26468;
        double r26470 = atan2(r26460, r26469);
        return r26470;
}


double f_of(float lambda1, float lambda2, float phi1, float phi2) {
        float r26471 = lambda1;
        float r26472 = sin(r26471);
        float r26473 = lambda2;
        float r26474 = cos(r26473);
        float r26475 = r26472 * r26474;
        float r26476 = cos(r26471);
        float r26477 = -r26473;
        float r26478 = sin(r26477);
        float r26479 = r26476 * r26478;
        float r26480 = r26475 + r26479;
        float r26481 = phi2;
        float r26482 = cos(r26481);
        float r26483 = r26480 * r26482;
        float r26484 = phi1;
        float r26485 = cos(r26484);
        float r26486 = sin(r26481);
        float r26487 = r26485 * r26486;
        float r26488 = sin(r26484);
        float r26489 = r26488 * r26482;
        float r26490 = r26476 * r26474;
        float r26491 = r26489 * r26490;
        float r26492 = cbrt(r26491);
        float r26493 = r26492 * r26492;
        float r26494 = r26493 * r26492;
        float r26495 = sin(r26473);
        float r26496 = r26472 * r26495;
        float r26497 = r26489 * r26496;
        float r26498 = r26494 + r26497;
        float r26499 = r26487 - r26498;
        float r26500 = atan2(r26483, r26499);
        return r26500;
}

double f_od(double lambda1, double lambda2, double phi1, double phi2) {
        double r26501 = lambda1;
        double r26502 = sin(r26501);
        double r26503 = lambda2;
        double r26504 = cos(r26503);
        double r26505 = r26502 * r26504;
        double r26506 = cos(r26501);
        double r26507 = -r26503;
        double r26508 = sin(r26507);
        double r26509 = r26506 * r26508;
        double r26510 = r26505 + r26509;
        double r26511 = phi2;
        double r26512 = cos(r26511);
        double r26513 = r26510 * r26512;
        double r26514 = phi1;
        double r26515 = cos(r26514);
        double r26516 = sin(r26511);
        double r26517 = r26515 * r26516;
        double r26518 = sin(r26514);
        double r26519 = r26518 * r26512;
        double r26520 = r26506 * r26504;
        double r26521 = r26519 * r26520;
        double r26522 = cbrt(r26521);
        double r26523 = r26522 * r26522;
        double r26524 = r26523 * r26522;
        double r26525 = sin(r26503);
        double r26526 = r26502 * r26525;
        double r26527 = r26519 * r26526;
        double r26528 = r26524 + r26527;
        double r26529 = r26517 - r26528;
        double r26530 = atan2(r26513, r26529);
        return r26530;
}

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 r26531, r26532, r26533, r26534, r26535, r26536, r26537, r26538, r26539, r26540, r26541, r26542, r26543, r26544, r26545, r26546, r26547;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26531);
        mpfr_init(r26532);
        mpfr_init(r26533);
        mpfr_init(r26534);
        mpfr_init(r26535);
        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);
}

double f_im(double lambda1, double lambda2, double phi1, double phi2) {
        mpfr_set_d(r26531, lambda1, MPFR_RNDN);
        mpfr_set_d(r26532, lambda2, MPFR_RNDN);
        mpfr_sub(r26533, r26531, r26532, MPFR_RNDN);
        mpfr_sin(r26534, r26533, MPFR_RNDN);
        mpfr_set_d(r26535, phi2, MPFR_RNDN);
        mpfr_cos(r26536, r26535, MPFR_RNDN);
        mpfr_mul(r26537, r26534, r26536, MPFR_RNDN);
        mpfr_set_d(r26538, phi1, MPFR_RNDN);
        mpfr_cos(r26539, r26538, MPFR_RNDN);
        mpfr_sin(r26540, r26535, MPFR_RNDN);
        mpfr_mul(r26541, r26539, r26540, MPFR_RNDN);
        mpfr_sin(r26542, r26538, MPFR_RNDN);
        mpfr_mul(r26543, r26542, r26536, MPFR_RNDN);
        mpfr_cos(r26544, r26533, MPFR_RNDN);
        mpfr_mul(r26545, r26543, r26544, MPFR_RNDN);
        mpfr_sub(r26546, r26541, r26545, MPFR_RNDN);
        mpfr_atan2(r26547, r26537, r26546, MPFR_RNDN);
        return mpfr_get_d(r26547, MPFR_RNDN);
}

static mpfr_t r26548, r26549, r26550, r26551, r26552, r26553, r26554, r26555, r26556, r26557, r26558, r26559, r26560, r26561, r26562, r26563, r26564, r26565, r26566, r26567, r26568, r26569, r26570, r26571, r26572, r26573, r26574, r26575, r26576, r26577;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        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);
        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);
}

double f_fm(double lambda1, double lambda2, double phi1, double phi2) {
        mpfr_set_d(r26548, lambda1, MPFR_RNDN);
        mpfr_sin(r26549, r26548, MPFR_RNDN);
        mpfr_set_d(r26550, lambda2, MPFR_RNDN);
        mpfr_cos(r26551, r26550, MPFR_RNDN);
        mpfr_mul(r26552, r26549, r26551, MPFR_RNDN);
        mpfr_cos(r26553, r26548, MPFR_RNDN);
        mpfr_neg(r26554, r26550, MPFR_RNDN);
        mpfr_sin(r26555, r26554, MPFR_RNDN);
        mpfr_mul(r26556, r26553, r26555, MPFR_RNDN);
        mpfr_add(r26557, r26552, r26556, MPFR_RNDN);
        mpfr_set_d(r26558, phi2, MPFR_RNDN);
        mpfr_cos(r26559, r26558, MPFR_RNDN);
        mpfr_mul(r26560, r26557, r26559, MPFR_RNDN);
        mpfr_set_d(r26561, phi1, MPFR_RNDN);
        mpfr_cos(r26562, r26561, MPFR_RNDN);
        mpfr_sin(r26563, r26558, MPFR_RNDN);
        mpfr_mul(r26564, r26562, r26563, MPFR_RNDN);
        mpfr_sin(r26565, r26561, MPFR_RNDN);
        mpfr_mul(r26566, r26565, r26559, MPFR_RNDN);
        mpfr_mul(r26567, r26553, r26551, MPFR_RNDN);
        mpfr_mul(r26568, r26566, r26567, MPFR_RNDN);
        mpfr_cbrt(r26569, r26568, MPFR_RNDN);
        mpfr_mul(r26570, r26569, r26569, MPFR_RNDN);
        mpfr_mul(r26571, r26570, r26569, MPFR_RNDN);
        mpfr_sin(r26572, r26550, MPFR_RNDN);
        mpfr_mul(r26573, r26549, r26572, MPFR_RNDN);
        mpfr_mul(r26574, r26566, r26573, MPFR_RNDN);
        mpfr_add(r26575, r26571, r26574, MPFR_RNDN);
        mpfr_sub(r26576, r26564, r26575, MPFR_RNDN);
        mpfr_atan2(r26577, r26560, r26576, MPFR_RNDN);
        return mpfr_get_d(r26577, MPFR_RNDN);
}

static mpfr_t r26578, r26579, r26580, r26581, r26582, r26583, r26584, r26585, r26586, r26587, r26588, r26589, r26590, r26591, r26592, r26593, r26594, r26595, r26596, r26597, r26598, r26599, r26600, r26601, r26602, r26603, r26604, r26605, r26606, r26607;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        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);
        mpfr_init(r26590);
        mpfr_init(r26591);
        mpfr_init(r26592);
        mpfr_init(r26593);
        mpfr_init(r26594);
        mpfr_init(r26595);
        mpfr_init(r26596);
        mpfr_init(r26597);
        mpfr_init(r26598);
        mpfr_init(r26599);
        mpfr_init(r26600);
        mpfr_init(r26601);
        mpfr_init(r26602);
        mpfr_init(r26603);
        mpfr_init(r26604);
        mpfr_init(r26605);
        mpfr_init(r26606);
        mpfr_init(r26607);
}

double f_dm(double lambda1, double lambda2, double phi1, double phi2) {
        mpfr_set_d(r26578, lambda1, MPFR_RNDN);
        mpfr_sin(r26579, r26578, MPFR_RNDN);
        mpfr_set_d(r26580, lambda2, MPFR_RNDN);
        mpfr_cos(r26581, r26580, MPFR_RNDN);
        mpfr_mul(r26582, r26579, r26581, MPFR_RNDN);
        mpfr_cos(r26583, r26578, MPFR_RNDN);
        mpfr_neg(r26584, r26580, MPFR_RNDN);
        mpfr_sin(r26585, r26584, MPFR_RNDN);
        mpfr_mul(r26586, r26583, r26585, MPFR_RNDN);
        mpfr_add(r26587, r26582, r26586, MPFR_RNDN);
        mpfr_set_d(r26588, phi2, MPFR_RNDN);
        mpfr_cos(r26589, r26588, MPFR_RNDN);
        mpfr_mul(r26590, r26587, r26589, MPFR_RNDN);
        mpfr_set_d(r26591, phi1, MPFR_RNDN);
        mpfr_cos(r26592, r26591, MPFR_RNDN);
        mpfr_sin(r26593, r26588, MPFR_RNDN);
        mpfr_mul(r26594, r26592, r26593, MPFR_RNDN);
        mpfr_sin(r26595, r26591, MPFR_RNDN);
        mpfr_mul(r26596, r26595, r26589, MPFR_RNDN);
        mpfr_mul(r26597, r26583, r26581, MPFR_RNDN);
        mpfr_mul(r26598, r26596, r26597, MPFR_RNDN);
        mpfr_cbrt(r26599, r26598, MPFR_RNDN);
        mpfr_mul(r26600, r26599, r26599, MPFR_RNDN);
        mpfr_mul(r26601, r26600, r26599, MPFR_RNDN);
        mpfr_sin(r26602, r26580, MPFR_RNDN);
        mpfr_mul(r26603, r26579, r26602, MPFR_RNDN);
        mpfr_mul(r26604, r26596, r26603, MPFR_RNDN);
        mpfr_add(r26605, r26601, r26604, MPFR_RNDN);
        mpfr_sub(r26606, r26594, r26605, MPFR_RNDN);
        mpfr_atan2(r26607, r26590, r26606, MPFR_RNDN);
        return mpfr_get_d(r26607, MPFR_RNDN);
}