// File: /workspace/github_c_makefile_star2_O2/c-zhou[P]yahs/binomlite.c
// Function: qbinom
double qbinom(double p, double n, double pr, int lower_tail, int log_p)
{
    double q, mu, sigma, gamma, z, y;

    if (pr == 0. || n == 0)
        return 0.;

    q = 1 - pr;
    if(q == 0.)
        return n; /* covers the full range of the distribution */
    mu = n * pr;
    sigma = sqrt(n * pr * q);
    gamma = (q - pr) / sigma;

    if(!lower_tail || log_p) {
        p = R_DT_qIv(p); /* need check again (cancellation!): */
        if (p == 0.) return 0.;
        if (p == 1.) return n;
    }
    /* temporary hack --- FIXME --- */
    if (p + 1.01 * DBL_EPSILON >= 1.)
        return n;

    /* y := approx.value (Cornish-Fisher expansion) :  */
    z = qnorm(p, 0., 1., /*lower_tail*/1, /*log_p*/0);
    y = floor(mu + sigma * (z + gamma * (z * z - 1) / 6) + 0.5);

    if (y > n) /* way off */
        y = n;

    z = pbinom(y, n, pr, /*lower_tail*/1, /*log_p*/0);

    /* fuzz to ensure left continuity: */
    p *= 1 - 64 * DBL_EPSILON;

    if (n < 1e5)
        return do_search(y, &z, p, n, pr, 1);
    /* Otherwise be a bit cleverer in the search */
    {
        double incr = floor(n * 0.001), oldincr;
        do {
            oldincr = incr;
            y = do_search(y, &z, p, n, pr, incr);
            incr = fmax2(1, floor(incr / 100));
        } while (oldincr > 1 && incr > n * 1e-15);
        return y;
    }
}

// Assembly:
movapd %xmm0, %xmm4
xorpd %xmm0, %xmm0
ucomisd %xmm0, %xmm1
jne 0x1737e
jnp 0x173b2
movapd %xmm2, %xmm3
xorpd %xmm2, %xmm2
ucomisd %xmm2, %xmm3
jne 0x1738e
jnp 0x173b2
pushq %rbp
pushq %rbx
subq $0x48, %rsp
movsd 0x727c(%rip), %xmm5     # 0x1e618
subsd %xmm3, %xmm5
ucomisd %xmm2, %xmm5
jne 0x173b3
jp 0x173b3
movapd %xmm1, %xmm0
addq $0x48, %rsp
popq %rbx
popq %rbp
retq
movl %esi, %ebp
movl %edi, %ebx
movapd %xmm1, %xmm0
mulsd %xmm3, %xmm0
movsd %xmm0, 0x20(%rsp)
mulsd %xmm5, %xmm0
xorpd %xmm2, %xmm2
ucomisd %xmm2, %xmm0
movsd %xmm1, 0x10(%rsp)
movsd %xmm3, 0x18(%rsp)
jb 0x173e5
sqrtsd %xmm0, %xmm6
jmp 0x17412
movapd %xmm4, 0x30(%rsp)
movsd %xmm5, 0x8(%rsp)
callq 0x24f0
movsd 0x8(%rsp), %xmm5
movapd 0x30(%rsp), %xmm4
movsd 0x18(%rsp), %xmm3
movsd 0x10(%rsp), %xmm1
movapd %xmm0, %xmm6
testl %ebx, %ebx
setne %al
testl %ebp, %ebp
sete %cl
testb %cl, %al
jne 0x174ae
testl %ebp, %ebp
je 0x17447
movsd %xmm6, 0x28(%rsp)
movsd %xmm5, 0x8(%rsp)
movapd %xmm4, %xmm0
testl %ebx, %ebx
je 0x17465
callq 0x2550
movapd %xmm0, %xmm4
jmp 0x17476
testl %ebx, %ebx
jne 0x1748e
movsd 0x6d8d(%rip), %xmm0     # 0x1e1e0
movapd %xmm0, %xmm2
subsd %xmm4, %xmm2
addsd %xmm0, %xmm2
movapd %xmm2, %xmm4
jmp 0x1748e
callq 0x22f0
movapd %xmm0, %xmm4
xorpd 0x885a(%rip), %xmm4     # 0x1fcd0
movsd 0x10(%rsp), %xmm1
movsd 0x18(%rsp), %xmm3
movsd 0x8(%rsp), %xmm5
movsd 0x28(%rsp), %xmm6
xorpd %xmm0, %xmm0
ucomisd %xmm0, %xmm4
jne 0x1749e
jnp 0x173ac
ucomisd 0x7172(%rip), %xmm4     # 0x1e618
jne 0x174ae
jnp 0x173a8
movsd 0x868a(%rip), %xmm0     # 0x1fb40
addsd %xmm4, %xmm0
ucomisd 0x7156(%rip), %xmm0     # 0x1e618
jae 0x173a8
subsd %xmm3, %xmm5
divsd %xmm6, %xmm5
movsd %xmm5, 0x8(%rsp)
movsd 0x713a(%rip), %xmm2     # 0x1e618
pushq $0x1
popq %rbx
xorpd %xmm1, %xmm1
movapd %xmm4, %xmm0
movl %ebx, %edi
xorl %esi, %esi
movapd %xmm4, 0x30(%rsp)
movsd %xmm6, 0x28(%rsp)
callq 0x16dc2
movapd %xmm0, %xmm1
mulsd %xmm0, %xmm1
addsd 0x82a2(%rip), %xmm1     # 0x1f7b0
mulsd 0x8(%rsp), %xmm1
divsd 0x842c(%rip), %xmm1     # 0x1f948
addsd %xmm1, %xmm0
mulsd 0x28(%rsp), %xmm0
addsd 0x20(%rsp), %xmm0
addsd 0x6cac(%rip), %xmm0     # 0x1e1e0
callq 0x2470
movsd 0x10(%rsp), %xmm1
minsd %xmm0, %xmm1
movsd %xmm1, 0x20(%rsp)
movapd %xmm1, %xmm0
movsd 0x10(%rsp), %xmm1
movsd 0x18(%rsp), %xmm2
movl %ebx, %edi
xorl %esi, %esi
callq 0x172b4
movapd 0x30(%rsp), %xmm1
movsd 0x10(%rsp), %xmm2
mulsd 0x85d2(%rip), %xmm1     # 0x1fb48
movsd %xmm0, 0x40(%rsp)
movsd 0x85cc(%rip), %xmm0     # 0x1fb50
ucomisd %xmm2, %xmm0
jbe 0x175ad
leaq 0x40(%rsp), %rdi
movsd 0x7081(%rip), %xmm4     # 0x1e618
movsd 0x20(%rsp), %xmm0
movsd 0x18(%rsp), %xmm3
callq 0x1766a
jmp 0x173ac
movsd 0x85a3(%rip), %xmm0     # 0x1fb58
mulsd %xmm2, %xmm0
movapd %xmm1, 0x30(%rsp)
callq 0x2470
movapd 0x30(%rsp), %xmm1
movsd 0x10(%rsp), %xmm2
movapd %xmm0, %xmm4
movsd 0x81bc(%rip), %xmm0     # 0x1f798
mulsd %xmm2, %xmm0
movsd %xmm0, 0x28(%rsp)
leaq 0x40(%rsp), %rbx
movsd 0x18(%rsp), %xmm3
movsd 0x20(%rsp), %xmm0
movq %rbx, %rdi
movsd %xmm4, 0x8(%rsp)
callq 0x1766a
movsd %xmm0, 0x20(%rsp)
movsd 0x8(%rsp), %xmm0
divsd 0x8257(%rip), %xmm0     # 0x1f870
callq 0x2470
movsd 0x6ff2(%rip), %xmm1     # 0x1e618
movsd 0x8(%rsp), %xmm2
ucomisd %xmm1, %xmm2
jbe 0x1765f
movapd %xmm1, %xmm4
maxsd %xmm0, %xmm4
ucomisd 0x28(%rsp), %xmm4
movsd 0x10(%rsp), %xmm2
movsd 0x18(%rsp), %xmm3
movapd 0x30(%rsp), %xmm1
movsd 0x20(%rsp), %xmm0
ja 0x175f7
jmp 0x173ac
movsd 0x20(%rsp), %xmm0
jmp 0x173ac