// File: /workspace/github_c_makefile_star2_O1/olcaytaner[P]Isell/distributions.c
// Function: chi_square
double chi_square(int freedom, double x)
{
 double  a, y, s;
 double  e, c, z;
 int even;     /* true if df is an even number */
 if (x <= 0.0 || freedom < 1)
   return (1.0);
 a = 0.5 * x;
 even = (2*(freedom/2)) == freedom;
 if (freedom > 1)
   y = ex (-a);
 if (even)
   s = y;
 else
   s = (2.0 * z_normal (-sqrt (x)));
 if (freedom > 2)
  {
   x = 0.5 * (freedom - 1.0);
   if (even)
     z=1.0;
   else
     z=0.5;
   if (a > BIGX)
    {
     if (even)
       e=0.0;
     else
       e=LOG_SQRT_PI;
     c = log (a);
     while (z <= x)
      {
       e = log (z) + e;
       s += ex (c*z-a-e);
       z += 1.0;
      }
     return (s);
    }
   else
    {
     if (even)
       e = 1.0;
     else
       e=(I_SQRT_PI / sqrt (a));
     c = 0.0;
     while (z <= x)
      {
       e = e * (a / z);
       c = c + e;
       z += 1.0;
      }
     return (c * y + s);
    }
  }
 else
   return (s);
}

// Assembly:
pushq %rbx
subq $0x40, %rsp
movsd 0x83046(%rip), %xmm5    # 0xa2520
testl %edi, %edi
jle 0x1f6d4
movapd %xmm0, %xmm1
xorpd %xmm0, %xmm0
ucomisd %xmm1, %xmm0
jae 0x1f6d4
movl %edi, %ebx
movsd 0x8381a(%rip), %xmm4    # 0xa2d18
mulsd %xmm1, %xmm4
cmpl $0x2, %edi
movapd %xmm4, 0x20(%rsp)
jl 0x1f542
xorpd %xmm8, %xmm8
ucomisd 0x854f6(%rip), %xmm4    # 0xa4a10
ja 0x1f542
movapd 0x83cac(%rip), %xmm0    # 0xa31d0
xorpd %xmm4, %xmm0
movsd %xmm1, (%rsp)
callq 0x4060
movsd (%rsp), %xmm1
movapd 0x20(%rsp), %xmm4
movapd %xmm0, %xmm8
movapd %xmm8, %xmm5
testb $0x1, %bl
je 0x1f591
movsd %xmm8, 0x8(%rsp)
xorpd %xmm0, %xmm0
ucomisd %xmm0, %xmm1
jb 0x1f566
xorps %xmm0, %xmm0
sqrtsd %xmm1, %xmm0
jmp 0x1f56f
movapd %xmm1, %xmm0
callq 0x4300
xorpd 0x83c59(%rip), %xmm0    # 0xa31d0
callq 0x1f770
movapd %xmm0, %xmm5
addsd %xmm0, %xmm5
movapd 0x20(%rsp), %xmm4
movsd 0x8(%rsp), %xmm8
cmpl $0x3, %ebx
jl 0x1f6d4
xorl %eax, %eax
testb $0x1, %bl
cvtsi2sd %ebx, %xmm6
addsd 0x837fd(%rip), %xmm6    # 0xa2da8
sete %al
mulsd 0x83762(%rip), %xmm6    # 0xa2d18
leaq 0x85733(%rip), %rcx     # 0xa4cf0
movsd (%rcx,%rax,8), %xmm7
ucomisd 0x85446(%rip), %xmm4    # 0xa4a10
movsd %xmm6, 0x18(%rsp)
jbe 0x1f608
movsd %xmm5, 0x10(%rsp)
movapd %xmm4, %xmm0
movsd %xmm7, (%rsp)
callq 0x4160
movsd (%rsp), %xmm2
movsd %xmm0, 0x38(%rsp)
movsd 0x18(%rsp), %xmm0
ucomisd %xmm2, %xmm0
jae 0x1f61e
movsd 0x10(%rsp), %xmm5
jmp 0x1f6d4
testb $0x1, %bl
jne 0x1f6de
movsd 0x82f07(%rip), %xmm1    # 0xa2520
jmp 0x1f736
xorpd %xmm3, %xmm3
testb $0x1, %bl
movsd 0x10(%rsp), %xmm5
je 0x1f635
movsd 0x853eb(%rip), %xmm3    # 0xa4a20
movapd 0x20(%rsp), %xmm0
xorpd 0x83b8d(%rip), %xmm0    # 0xa31d0
movapd %xmm0, 0x20(%rsp)
movsd %xmm2, (%rsp)
movsd %xmm5, 0x10(%rsp)
movsd %xmm3, 0x8(%rsp)
movapd %xmm2, %xmm0
callq 0x4160
movsd (%rsp), %xmm2
movapd %xmm0, %xmm3
addsd 0x8(%rsp), %xmm3
movsd 0x38(%rsp), %xmm0
mulsd %xmm2, %xmm0
addsd 0x20(%rsp), %xmm0
subsd %xmm3, %xmm0
xorpd %xmm1, %xmm1
movsd 0x85396(%rip), %xmm4    # 0xa4a28
ucomisd %xmm0, %xmm4
ja 0x1f6b2
movsd %xmm3, 0x8(%rsp)
callq 0x4060
movsd 0x8(%rsp), %xmm3
movsd (%rsp), %xmm2
movapd %xmm0, %xmm1
movsd 0x10(%rsp), %xmm5
addsd %xmm1, %xmm5
addsd 0x82e5c(%rip), %xmm2    # 0xa2520
movsd 0x18(%rsp), %xmm0
ucomisd %xmm2, %xmm0
jae 0x1f649
movapd %xmm5, %xmm0
addq $0x40, %rsp
popq %rbx
retq
xorpd %xmm0, %xmm0
ucomisd %xmm0, %xmm4
jb 0x1f6f1
xorps %xmm0, %xmm0
sqrtsd %xmm4, %xmm0
jmp 0x1f72a
movapd %xmm4, %xmm0
movsd %xmm5, 0x10(%rsp)
movsd %xmm7, (%rsp)
movsd %xmm8, 0x8(%rsp)
callq 0x4300
movsd 0x8(%rsp), %xmm8
movsd (%rsp), %xmm7
movsd 0x18(%rsp), %xmm6
movsd 0x10(%rsp), %xmm5
movapd 0x20(%rsp), %xmm4
movsd 0x852e6(%rip), %xmm1    # 0xa4a18
divsd %xmm0, %xmm1
xorpd %xmm0, %xmm0
ucomisd %xmm7, %xmm6
jb 0x1f762
movsd 0x82dd8(%rip), %xmm2    # 0xa2520
movapd %xmm4, %xmm3
divsd %xmm7, %xmm3
mulsd %xmm3, %xmm1
addsd %xmm1, %xmm0
addsd %xmm2, %xmm7
ucomisd %xmm7, %xmm6
jae 0x1f748
mulsd %xmm8, %xmm0
addsd %xmm5, %xmm0
jmp 0x1f6d8