#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 r22507 = lambda1;
        float r22508 = theta;
        float r22509 = sin(r22508);
        float r22510 = delta;
        float r22511 = sin(r22510);
        float r22512 = r22509 * r22511;
        float r22513 = phi1;
        float r22514 = cos(r22513);
        float r22515 = r22512 * r22514;
        float r22516 = cos(r22510);
        float r22517 = sin(r22513);
        float r22518 = r22517 * r22516;
        float r22519 = r22514 * r22511;
        float r22520 = cos(r22508);
        float r22521 = r22519 * r22520;
        float r22522 = r22518 + r22521;
        float r22523 = asin(r22522);
        float r22524 = sin(r22523);
        float r22525 = r22517 * r22524;
        float r22526 = r22516 - r22525;
        float r22527 = atan2(r22515, r22526);
        float r22528 = r22507 + r22527;
        return r22528;
}

double f_id(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        double r22529 = lambda1;
        double r22530 = theta;
        double r22531 = sin(r22530);
        double r22532 = delta;
        double r22533 = sin(r22532);
        double r22534 = r22531 * r22533;
        double r22535 = phi1;
        double r22536 = cos(r22535);
        double r22537 = r22534 * r22536;
        double r22538 = cos(r22532);
        double r22539 = sin(r22535);
        double r22540 = r22539 * r22538;
        double r22541 = r22536 * r22533;
        double r22542 = cos(r22530);
        double r22543 = r22541 * r22542;
        double r22544 = r22540 + r22543;
        double r22545 = asin(r22544);
        double r22546 = sin(r22545);
        double r22547 = r22539 * r22546;
        double r22548 = r22538 - r22547;
        double r22549 = atan2(r22537, r22548);
        double r22550 = r22529 + r22549;
        return r22550;
}


double f_of(float lambda1, float phi1, float __attribute__((unused)) phi2, float delta, float theta) {
        float r22551 = lambda1;
        float r22552 = theta;
        float r22553 = sin(r22552);
        float r22554 = delta;
        float r22555 = sin(r22554);
        float r22556 = r22553 * r22555;
        float r22557 = phi1;
        float r22558 = cos(r22557);
        float r22559 = r22556 * r22558;
        float r22560 = cos(r22554);
        float r22561 = r22560 * r22560;
        float r22562 = sin(r22557);
        float r22563 = r22562 * r22560;
        float r22564 = r22558 * r22555;
        float r22565 = cos(r22552);
        float r22566 = r22564 * r22565;
        float r22567 = r22563 + r22566;
        float r22568 = asin(r22567);
        float r22569 = sin(r22568);
        float r22570 = r22562 * r22569;
        float r22571 = r22570 * r22570;
        float r22572 = r22561 - r22571;
        float r22573 = r22560 + r22570;
        float r22574 = r22572 / r22573;
        float r22575 = atan2(r22559, r22574);
        float r22576 = r22551 + r22575;
        return r22576;
}

double f_od(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        double r22577 = lambda1;
        double r22578 = theta;
        double r22579 = sin(r22578);
        double r22580 = delta;
        double r22581 = sin(r22580);
        double r22582 = r22579 * r22581;
        double r22583 = phi1;
        double r22584 = cos(r22583);
        double r22585 = r22582 * r22584;
        double r22586 = cos(r22580);
        double r22587 = r22586 * r22586;
        double r22588 = sin(r22583);
        double r22589 = r22588 * r22586;
        double r22590 = r22584 * r22581;
        double r22591 = cos(r22578);
        double r22592 = r22590 * r22591;
        double r22593 = r22589 + r22592;
        double r22594 = asin(r22593);
        double r22595 = sin(r22594);
        double r22596 = r22588 * r22595;
        double r22597 = r22596 * r22596;
        double r22598 = r22587 - r22597;
        double r22599 = r22586 + r22596;
        double r22600 = r22598 / r22599;
        double r22601 = atan2(r22585, r22600);
        double r22602 = r22577 + r22601;
        return r22602;
}

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 r22603, r22604, r22605, r22606, r22607, r22608, r22609, r22610, r22611, r22612, r22613, r22614, r22615, r22616, r22617, r22618, r22619, r22620, r22621, r22622, r22623, r22624;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r22603);
        mpfr_init(r22604);
        mpfr_init(r22605);
        mpfr_init(r22606);
        mpfr_init(r22607);
        mpfr_init(r22608);
        mpfr_init(r22609);
        mpfr_init(r22610);
        mpfr_init(r22611);
        mpfr_init(r22612);
        mpfr_init(r22613);
        mpfr_init(r22614);
        mpfr_init(r22615);
        mpfr_init(r22616);
        mpfr_init(r22617);
        mpfr_init(r22618);
        mpfr_init(r22619);
        mpfr_init(r22620);
        mpfr_init(r22621);
        mpfr_init(r22622);
        mpfr_init(r22623);
        mpfr_init(r22624);
}

double f_im(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        mpfr_set_d(r22603, lambda1, MPFR_RNDN);
        mpfr_set_d(r22604, theta, MPFR_RNDN);
        mpfr_sin(r22605, r22604, MPFR_RNDN);
        mpfr_set_d(r22606, delta, MPFR_RNDN);
        mpfr_sin(r22607, r22606, MPFR_RNDN);
        mpfr_mul(r22608, r22605, r22607, MPFR_RNDN);
        mpfr_set_d(r22609, phi1, MPFR_RNDN);
        mpfr_cos(r22610, r22609, MPFR_RNDN);
        mpfr_mul(r22611, r22608, r22610, MPFR_RNDN);
        mpfr_cos(r22612, r22606, MPFR_RNDN);
        mpfr_sin(r22613, r22609, MPFR_RNDN);
        mpfr_mul(r22614, r22613, r22612, MPFR_RNDN);
        mpfr_mul(r22615, r22610, r22607, MPFR_RNDN);
        mpfr_cos(r22616, r22604, MPFR_RNDN);
        mpfr_mul(r22617, r22615, r22616, MPFR_RNDN);
        mpfr_add(r22618, r22614, r22617, MPFR_RNDN);
        mpfr_asin(r22619, r22618, MPFR_RNDN);
        mpfr_sin(r22620, r22619, MPFR_RNDN);
        mpfr_mul(r22621, r22613, r22620, MPFR_RNDN);
        mpfr_sub(r22622, r22612, r22621, MPFR_RNDN);
        mpfr_atan2(r22623, r22611, r22622, MPFR_RNDN);
        mpfr_add(r22624, r22603, r22623, MPFR_RNDN);
        return mpfr_get_d(r22624, MPFR_RNDN);
}

static mpfr_t r22625, r22626, r22627, r22628, r22629, r22630, r22631, r22632, r22633, r22634, r22635, r22636, r22637, r22638, r22639, r22640, r22641, r22642, r22643, r22644, r22645, r22646, r22647, r22648, r22649, r22650;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r22625);
        mpfr_init(r22626);
        mpfr_init(r22627);
        mpfr_init(r22628);
        mpfr_init(r22629);
        mpfr_init(r22630);
        mpfr_init(r22631);
        mpfr_init(r22632);
        mpfr_init(r22633);
        mpfr_init(r22634);
        mpfr_init(r22635);
        mpfr_init(r22636);
        mpfr_init(r22637);
        mpfr_init(r22638);
        mpfr_init(r22639);
        mpfr_init(r22640);
        mpfr_init(r22641);
        mpfr_init(r22642);
        mpfr_init(r22643);
        mpfr_init(r22644);
        mpfr_init(r22645);
        mpfr_init(r22646);
        mpfr_init(r22647);
        mpfr_init(r22648);
        mpfr_init(r22649);
        mpfr_init(r22650);
}

double f_fm(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        mpfr_set_d(r22625, lambda1, MPFR_RNDN);
        mpfr_set_d(r22626, theta, MPFR_RNDN);
        mpfr_sin(r22627, r22626, MPFR_RNDN);
        mpfr_set_d(r22628, delta, MPFR_RNDN);
        mpfr_sin(r22629, r22628, MPFR_RNDN);
        mpfr_mul(r22630, r22627, r22629, MPFR_RNDN);
        mpfr_set_d(r22631, phi1, MPFR_RNDN);
        mpfr_cos(r22632, r22631, MPFR_RNDN);
        mpfr_mul(r22633, r22630, r22632, MPFR_RNDN);
        mpfr_cos(r22634, r22628, MPFR_RNDN);
        mpfr_mul(r22635, r22634, r22634, MPFR_RNDN);
        mpfr_sin(r22636, r22631, MPFR_RNDN);
        mpfr_mul(r22637, r22636, r22634, MPFR_RNDN);
        mpfr_mul(r22638, r22632, r22629, MPFR_RNDN);
        mpfr_cos(r22639, r22626, MPFR_RNDN);
        mpfr_mul(r22640, r22638, r22639, MPFR_RNDN);
        mpfr_add(r22641, r22637, r22640, MPFR_RNDN);
        mpfr_asin(r22642, r22641, MPFR_RNDN);
        mpfr_sin(r22643, r22642, MPFR_RNDN);
        mpfr_mul(r22644, r22636, r22643, MPFR_RNDN);
        mpfr_mul(r22645, r22644, r22644, MPFR_RNDN);
        mpfr_sub(r22646, r22635, r22645, MPFR_RNDN);
        mpfr_add(r22647, r22634, r22644, MPFR_RNDN);
        mpfr_div(r22648, r22646, r22647, MPFR_RNDN);
        mpfr_atan2(r22649, r22633, r22648, MPFR_RNDN);
        mpfr_add(r22650, r22625, r22649, MPFR_RNDN);
        return mpfr_get_d(r22650, MPFR_RNDN);
}

static mpfr_t r22651, r22652, r22653, r22654, r22655, r22656, r22657, r22658, r22659, r22660, r22661, r22662, r22663, r22664, r22665, r22666, r22667, r22668, r22669, r22670, r22671, r22672, r22673, r22674, r22675, r22676;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r22651);
        mpfr_init(r22652);
        mpfr_init(r22653);
        mpfr_init(r22654);
        mpfr_init(r22655);
        mpfr_init(r22656);
        mpfr_init(r22657);
        mpfr_init(r22658);
        mpfr_init(r22659);
        mpfr_init(r22660);
        mpfr_init(r22661);
        mpfr_init(r22662);
        mpfr_init(r22663);
        mpfr_init(r22664);
        mpfr_init(r22665);
        mpfr_init(r22666);
        mpfr_init(r22667);
        mpfr_init(r22668);
        mpfr_init(r22669);
        mpfr_init(r22670);
        mpfr_init(r22671);
        mpfr_init(r22672);
        mpfr_init(r22673);
        mpfr_init(r22674);
        mpfr_init(r22675);
        mpfr_init(r22676);
}

double f_dm(double lambda1, double phi1, double __attribute__((unused)) phi2, double delta, double theta) {
        mpfr_set_d(r22651, lambda1, MPFR_RNDN);
        mpfr_set_d(r22652, theta, MPFR_RNDN);
        mpfr_sin(r22653, r22652, MPFR_RNDN);
        mpfr_set_d(r22654, delta, MPFR_RNDN);
        mpfr_sin(r22655, r22654, MPFR_RNDN);
        mpfr_mul(r22656, r22653, r22655, MPFR_RNDN);
        mpfr_set_d(r22657, phi1, MPFR_RNDN);
        mpfr_cos(r22658, r22657, MPFR_RNDN);
        mpfr_mul(r22659, r22656, r22658, MPFR_RNDN);
        mpfr_cos(r22660, r22654, MPFR_RNDN);
        mpfr_mul(r22661, r22660, r22660, MPFR_RNDN);
        mpfr_sin(r22662, r22657, MPFR_RNDN);
        mpfr_mul(r22663, r22662, r22660, MPFR_RNDN);
        mpfr_mul(r22664, r22658, r22655, MPFR_RNDN);
        mpfr_cos(r22665, r22652, MPFR_RNDN);
        mpfr_mul(r22666, r22664, r22665, MPFR_RNDN);
        mpfr_add(r22667, r22663, r22666, MPFR_RNDN);
        mpfr_asin(r22668, r22667, MPFR_RNDN);
        mpfr_sin(r22669, r22668, MPFR_RNDN);
        mpfr_mul(r22670, r22662, r22669, MPFR_RNDN);
        mpfr_mul(r22671, r22670, r22670, MPFR_RNDN);
        mpfr_sub(r22672, r22661, r22671, MPFR_RNDN);
        mpfr_add(r22673, r22660, r22670, MPFR_RNDN);
        mpfr_div(r22674, r22672, r22673, MPFR_RNDN);
        mpfr_atan2(r22675, r22659, r22674, MPFR_RNDN);
        mpfr_add(r22676, r22651, r22675, MPFR_RNDN);
        return mpfr_get_d(r22676, MPFR_RNDN);
}