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

char *name = "Destination given bearing on a great circle";

double f_if(float lambda1, float phi1, float __attribute__((unused)) phi2, float delta, float theta) {
        float r25639 = lambda1;
        float r25640 = theta;
        float r25641 = sin(r25640);
        float r25642 = delta;
        float r25643 = sin(r25642);
        float r25644 = r25641 * r25643;
        float r25645 = phi1;
        float r25646 = cos(r25645);
        float r25647 = r25644 * r25646;
        float r25648 = cos(r25642);
        float r25649 = sin(r25645);
        float r25650 = r25649 * r25648;
        float r25651 = r25646 * r25643;
        float r25652 = cos(r25640);
        float r25653 = r25651 * r25652;
        float r25654 = r25650 + r25653;
        float r25655 = asin(r25654);
        float r25656 = sin(r25655);
        float r25657 = r25649 * r25656;
        float r25658 = r25648 - r25657;
        float r25659 = atan2(r25647, r25658);
        float r25660 = r25639 + r25659;
        return r25660;
}

double f_id(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        double r25661 = lambda1;
        double r25662 = theta;
        double r25663 = sin(r25662);
        double r25664 = delta;
        double r25665 = sin(r25664);
        double r25666 = r25663 * r25665;
        double r25667 = phi1;
        double r25668 = cos(r25667);
        double r25669 = r25666 * r25668;
        double r25670 = cos(r25664);
        double r25671 = sin(r25667);
        double r25672 = r25671 * r25670;
        double r25673 = r25668 * r25665;
        double r25674 = cos(r25662);
        double r25675 = r25673 * r25674;
        double r25676 = r25672 + r25675;
        double r25677 = asin(r25676);
        double r25678 = sin(r25677);
        double r25679 = r25671 * r25678;
        double r25680 = r25670 - r25679;
        double r25681 = atan2(r25669, r25680);
        double r25682 = r25661 + r25681;
        return r25682;
}


double f_of(float lambda1, float phi1, float __attribute__((unused)) phi2, float delta, float theta) {
        float r25683 = lambda1;
        float r25684 = theta;
        float r25685 = sin(r25684);
        float r25686 = delta;
        float r25687 = sin(r25686);
        float r25688 = r25685 * r25687;
        float r25689 = phi1;
        float r25690 = cos(r25689);
        float r25691 = r25688 * r25690;
        float r25692 = cos(r25686);
        float r25693 = 3;
        float r25694 = pow(r25692, r25693);
        float r25695 = sin(r25689);
        float r25696 = r25695 * r25692;
        float r25697 = r25690 * r25687;
        float r25698 = cos(r25684);
        float r25699 = r25697 * r25698;
        float r25700 = r25696 + r25699;
        float r25701 = asin(r25700);
        float r25702 = exp(r25701);
        float r25703 = log(r25702);
        float r25704 = sin(r25703);
        float r25705 = r25695 * r25704;
        float r25706 = pow(r25705, r25693);
        float r25707 = r25694 - r25706;
        float r25708 = r25698 * r25690;
        float r25709 = r25687 * r25708;
        float r25710 = r25692 * r25695;
        float r25711 = r25709 + r25710;
        float r25712 = asin(r25711);
        float r25713 = sin(r25712);
        float r25714 = r25713 * r25695;
        float r25715 = r25714 * r25714;
        float r25716 = r25710 * r25713;
        float r25717 = r25692 * r25692;
        float r25718 = r25716 + r25717;
        float r25719 = r25715 + r25718;
        float r25720 = r25707 / r25719;
        float r25721 = atan2(r25691, r25720);
        float r25722 = r25683 + r25721;
        return r25722;
}

double f_od(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        double r25723 = lambda1;
        double r25724 = theta;
        double r25725 = sin(r25724);
        double r25726 = delta;
        double r25727 = sin(r25726);
        double r25728 = r25725 * r25727;
        double r25729 = phi1;
        double r25730 = cos(r25729);
        double r25731 = r25728 * r25730;
        double r25732 = cos(r25726);
        double r25733 = 3;
        double r25734 = pow(r25732, r25733);
        double r25735 = sin(r25729);
        double r25736 = r25735 * r25732;
        double r25737 = r25730 * r25727;
        double r25738 = cos(r25724);
        double r25739 = r25737 * r25738;
        double r25740 = r25736 + r25739;
        double r25741 = asin(r25740);
        double r25742 = exp(r25741);
        double r25743 = log(r25742);
        double r25744 = sin(r25743);
        double r25745 = r25735 * r25744;
        double r25746 = pow(r25745, r25733);
        double r25747 = r25734 - r25746;
        double r25748 = r25738 * r25730;
        double r25749 = r25727 * r25748;
        double r25750 = r25732 * r25735;
        double r25751 = r25749 + r25750;
        double r25752 = asin(r25751);
        double r25753 = sin(r25752);
        double r25754 = r25753 * r25735;
        double r25755 = r25754 * r25754;
        double r25756 = r25750 * r25753;
        double r25757 = r25732 * r25732;
        double r25758 = r25756 + r25757;
        double r25759 = r25755 + r25758;
        double r25760 = r25747 / r25759;
        double r25761 = atan2(r25731, r25760);
        double r25762 = r25723 + r25761;
        return r25762;
}

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 r25763, r25764, r25765, r25766, r25767, r25768, r25769, r25770, r25771, r25772, r25773, r25774, r25775, r25776, r25777, r25778, r25779, r25780, r25781, r25782, r25783, r25784;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r25763);
        mpfr_init(r25764);
        mpfr_init(r25765);
        mpfr_init(r25766);
        mpfr_init(r25767);
        mpfr_init(r25768);
        mpfr_init(r25769);
        mpfr_init(r25770);
        mpfr_init(r25771);
        mpfr_init(r25772);
        mpfr_init(r25773);
        mpfr_init(r25774);
        mpfr_init(r25775);
        mpfr_init(r25776);
        mpfr_init(r25777);
        mpfr_init(r25778);
        mpfr_init(r25779);
        mpfr_init(r25780);
        mpfr_init(r25781);
        mpfr_init(r25782);
        mpfr_init(r25783);
        mpfr_init(r25784);
}

double f_im(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        mpfr_set_d(r25763, lambda1, MPFR_RNDN);
        mpfr_set_d(r25764, theta, MPFR_RNDN);
        mpfr_sin(r25765, r25764, MPFR_RNDN);
        mpfr_set_d(r25766, delta, MPFR_RNDN);
        mpfr_sin(r25767, r25766, MPFR_RNDN);
        mpfr_mul(r25768, r25765, r25767, MPFR_RNDN);
        mpfr_set_d(r25769, phi1, MPFR_RNDN);
        mpfr_cos(r25770, r25769, MPFR_RNDN);
        mpfr_mul(r25771, r25768, r25770, MPFR_RNDN);
        mpfr_cos(r25772, r25766, MPFR_RNDN);
        mpfr_sin(r25773, r25769, MPFR_RNDN);
        mpfr_mul(r25774, r25773, r25772, MPFR_RNDN);
        mpfr_mul(r25775, r25770, r25767, MPFR_RNDN);
        mpfr_cos(r25776, r25764, MPFR_RNDN);
        mpfr_mul(r25777, r25775, r25776, MPFR_RNDN);
        mpfr_add(r25778, r25774, r25777, MPFR_RNDN);
        mpfr_asin(r25779, r25778, MPFR_RNDN);
        mpfr_sin(r25780, r25779, MPFR_RNDN);
        mpfr_mul(r25781, r25773, r25780, MPFR_RNDN);
        mpfr_sub(r25782, r25772, r25781, MPFR_RNDN);
        mpfr_atan2(r25783, r25771, r25782, MPFR_RNDN);
        mpfr_add(r25784, r25763, r25783, MPFR_RNDN);
        return mpfr_get_d(r25784, MPFR_RNDN);
}

static mpfr_t r25785, r25786, r25787, r25788, r25789, r25790, r25791, r25792, r25793, r25794, r25795, r25796, r25797, r25798, r25799, r25800, r25801, r25802, r25803, r25804, r25805, r25806, r25807, r25808, r25809, r25810, r25811, r25812, r25813, r25814, r25815, r25816, r25817, r25818, r25819, r25820, r25821, r25822, r25823, r25824;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r25785);
        mpfr_init(r25786);
        mpfr_init(r25787);
        mpfr_init(r25788);
        mpfr_init(r25789);
        mpfr_init(r25790);
        mpfr_init(r25791);
        mpfr_init(r25792);
        mpfr_init(r25793);
        mpfr_init(r25794);
        mpfr_init_set_str(r25795, "3", 10, MPFR_RNDN);
        mpfr_init(r25796);
        mpfr_init(r25797);
        mpfr_init(r25798);
        mpfr_init(r25799);
        mpfr_init(r25800);
        mpfr_init(r25801);
        mpfr_init(r25802);
        mpfr_init(r25803);
        mpfr_init(r25804);
        mpfr_init(r25805);
        mpfr_init(r25806);
        mpfr_init(r25807);
        mpfr_init(r25808);
        mpfr_init(r25809);
        mpfr_init(r25810);
        mpfr_init(r25811);
        mpfr_init(r25812);
        mpfr_init(r25813);
        mpfr_init(r25814);
        mpfr_init(r25815);
        mpfr_init(r25816);
        mpfr_init(r25817);
        mpfr_init(r25818);
        mpfr_init(r25819);
        mpfr_init(r25820);
        mpfr_init(r25821);
        mpfr_init(r25822);
        mpfr_init(r25823);
        mpfr_init(r25824);
}

double f_fm(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        mpfr_set_d(r25785, lambda1, MPFR_RNDN);
        mpfr_set_d(r25786, theta, MPFR_RNDN);
        mpfr_sin(r25787, r25786, MPFR_RNDN);
        mpfr_set_d(r25788, delta, MPFR_RNDN);
        mpfr_sin(r25789, r25788, MPFR_RNDN);
        mpfr_mul(r25790, r25787, r25789, MPFR_RNDN);
        mpfr_set_d(r25791, phi1, MPFR_RNDN);
        mpfr_cos(r25792, r25791, MPFR_RNDN);
        mpfr_mul(r25793, r25790, r25792, MPFR_RNDN);
        mpfr_cos(r25794, r25788, MPFR_RNDN);
        ;
        mpfr_pow(r25796, r25794, r25795, MPFR_RNDN);
        mpfr_sin(r25797, r25791, MPFR_RNDN);
        mpfr_mul(r25798, r25797, r25794, MPFR_RNDN);
        mpfr_mul(r25799, r25792, r25789, MPFR_RNDN);
        mpfr_cos(r25800, r25786, MPFR_RNDN);
        mpfr_mul(r25801, r25799, r25800, MPFR_RNDN);
        mpfr_add(r25802, r25798, r25801, MPFR_RNDN);
        mpfr_asin(r25803, r25802, MPFR_RNDN);
        mpfr_exp(r25804, r25803, MPFR_RNDN);
        mpfr_log(r25805, r25804, MPFR_RNDN);
        mpfr_sin(r25806, r25805, MPFR_RNDN);
        mpfr_mul(r25807, r25797, r25806, MPFR_RNDN);
        mpfr_pow(r25808, r25807, r25795, MPFR_RNDN);
        mpfr_sub(r25809, r25796, r25808, MPFR_RNDN);
        mpfr_mul(r25810, r25800, r25792, MPFR_RNDN);
        mpfr_mul(r25811, r25789, r25810, MPFR_RNDN);
        mpfr_mul(r25812, r25794, r25797, MPFR_RNDN);
        mpfr_add(r25813, r25811, r25812, MPFR_RNDN);
        mpfr_asin(r25814, r25813, MPFR_RNDN);
        mpfr_sin(r25815, r25814, MPFR_RNDN);
        mpfr_mul(r25816, r25815, r25797, MPFR_RNDN);
        mpfr_mul(r25817, r25816, r25816, MPFR_RNDN);
        mpfr_mul(r25818, r25812, r25815, MPFR_RNDN);
        mpfr_mul(r25819, r25794, r25794, MPFR_RNDN);
        mpfr_add(r25820, r25818, r25819, MPFR_RNDN);
        mpfr_add(r25821, r25817, r25820, MPFR_RNDN);
        mpfr_div(r25822, r25809, r25821, MPFR_RNDN);
        mpfr_atan2(r25823, r25793, r25822, MPFR_RNDN);
        mpfr_add(r25824, r25785, r25823, MPFR_RNDN);
        return mpfr_get_d(r25824, MPFR_RNDN);
}

static mpfr_t r25825, r25826, r25827, r25828, r25829, r25830, r25831, r25832, r25833, r25834, r25835, r25836, r25837, r25838, r25839, r25840, r25841, r25842, r25843, r25844, r25845, r25846, r25847, r25848, r25849, r25850, r25851, r25852, r25853, r25854, r25855, r25856, r25857, r25858, r25859, r25860, r25861, r25862, r25863, r25864;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r25825);
        mpfr_init(r25826);
        mpfr_init(r25827);
        mpfr_init(r25828);
        mpfr_init(r25829);
        mpfr_init(r25830);
        mpfr_init(r25831);
        mpfr_init(r25832);
        mpfr_init(r25833);
        mpfr_init(r25834);
        mpfr_init_set_str(r25835, "3", 10, MPFR_RNDN);
        mpfr_init(r25836);
        mpfr_init(r25837);
        mpfr_init(r25838);
        mpfr_init(r25839);
        mpfr_init(r25840);
        mpfr_init(r25841);
        mpfr_init(r25842);
        mpfr_init(r25843);
        mpfr_init(r25844);
        mpfr_init(r25845);
        mpfr_init(r25846);
        mpfr_init(r25847);
        mpfr_init(r25848);
        mpfr_init(r25849);
        mpfr_init(r25850);
        mpfr_init(r25851);
        mpfr_init(r25852);
        mpfr_init(r25853);
        mpfr_init(r25854);
        mpfr_init(r25855);
        mpfr_init(r25856);
        mpfr_init(r25857);
        mpfr_init(r25858);
        mpfr_init(r25859);
        mpfr_init(r25860);
        mpfr_init(r25861);
        mpfr_init(r25862);
        mpfr_init(r25863);
        mpfr_init(r25864);
}

double f_dm(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        mpfr_set_d(r25825, lambda1, MPFR_RNDN);
        mpfr_set_d(r25826, theta, MPFR_RNDN);
        mpfr_sin(r25827, r25826, MPFR_RNDN);
        mpfr_set_d(r25828, delta, MPFR_RNDN);
        mpfr_sin(r25829, r25828, MPFR_RNDN);
        mpfr_mul(r25830, r25827, r25829, MPFR_RNDN);
        mpfr_set_d(r25831, phi1, MPFR_RNDN);
        mpfr_cos(r25832, r25831, MPFR_RNDN);
        mpfr_mul(r25833, r25830, r25832, MPFR_RNDN);
        mpfr_cos(r25834, r25828, MPFR_RNDN);
        ;
        mpfr_pow(r25836, r25834, r25835, MPFR_RNDN);
        mpfr_sin(r25837, r25831, MPFR_RNDN);
        mpfr_mul(r25838, r25837, r25834, MPFR_RNDN);
        mpfr_mul(r25839, r25832, r25829, MPFR_RNDN);
        mpfr_cos(r25840, r25826, MPFR_RNDN);
        mpfr_mul(r25841, r25839, r25840, MPFR_RNDN);
        mpfr_add(r25842, r25838, r25841, MPFR_RNDN);
        mpfr_asin(r25843, r25842, MPFR_RNDN);
        mpfr_exp(r25844, r25843, MPFR_RNDN);
        mpfr_log(r25845, r25844, MPFR_RNDN);
        mpfr_sin(r25846, r25845, MPFR_RNDN);
        mpfr_mul(r25847, r25837, r25846, MPFR_RNDN);
        mpfr_pow(r25848, r25847, r25835, MPFR_RNDN);
        mpfr_sub(r25849, r25836, r25848, MPFR_RNDN);
        mpfr_mul(r25850, r25840, r25832, MPFR_RNDN);
        mpfr_mul(r25851, r25829, r25850, MPFR_RNDN);
        mpfr_mul(r25852, r25834, r25837, MPFR_RNDN);
        mpfr_add(r25853, r25851, r25852, MPFR_RNDN);
        mpfr_asin(r25854, r25853, MPFR_RNDN);
        mpfr_sin(r25855, r25854, MPFR_RNDN);
        mpfr_mul(r25856, r25855, r25837, MPFR_RNDN);
        mpfr_mul(r25857, r25856, r25856, MPFR_RNDN);
        mpfr_mul(r25858, r25852, r25855, MPFR_RNDN);
        mpfr_mul(r25859, r25834, r25834, MPFR_RNDN);
        mpfr_add(r25860, r25858, r25859, MPFR_RNDN);
        mpfr_add(r25861, r25857, r25860, MPFR_RNDN);
        mpfr_div(r25862, r25849, r25861, MPFR_RNDN);
        mpfr_atan2(r25863, r25833, r25862, MPFR_RNDN);
        mpfr_add(r25864, r25825, r25863, MPFR_RNDN);
        return mpfr_get_d(r25864, MPFR_RNDN);
}