// File: /workspace/github_c_makefile_star2_O3/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 0x85902(%rip), %xmm5    # 0xa5520
testl %edi, %edi
jle 0x1fe18
movapd %xmm0, %xmm1
xorpd %xmm0, %xmm0
ucomisd %xmm1, %xmm0
jae 0x1fe18
movl %edi, %ebx
movsd 0x860d6(%rip), %xmm4    # 0xa5d18
mulsd %xmm1, %xmm4
cmpl $0x2, %edi
movapd %xmm4, 0x20(%rsp)
jb 0x1fc86
xorpd %xmm8, %xmm8
ucomisd 0x87e6a(%rip), %xmm4    # 0xa7ac8
ja 0x1fc86
movapd 0x86568(%rip), %xmm0    # 0xa61d0
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 0x1fcd5
movsd %xmm8, 0x8(%rsp)
xorpd %xmm0, %xmm0
ucomisd %xmm0, %xmm1
jb 0x1fcaa
xorps %xmm0, %xmm0
sqrtsd %xmm1, %xmm0
jmp 0x1fcb3
movapd %xmm1, %xmm0
callq 0x4300
xorpd 0x86515(%rip), %xmm0    # 0xa61d0
callq 0x1feb4
movapd %xmm0, %xmm5
addsd %xmm0, %xmm5
movapd 0x20(%rsp), %xmm4
movsd 0x8(%rsp), %xmm8
cmpl $0x3, %ebx
jb 0x1fe18
xorl %eax, %eax
testb $0x1, %bl
cvtsi2sd %ebx, %xmm6
addsd 0x860b9(%rip), %xmm6    # 0xa5da8
sete %al
mulsd 0x8601e(%rip), %xmm6    # 0xa5d18
leaq 0x87d6f(%rip), %rcx     # 0xa7a70
movsd (%rcx,%rax,8), %xmm7
ucomisd 0x87dba(%rip), %xmm4    # 0xa7ac8
movsd %xmm6, 0x18(%rsp)
jbe 0x1fd4c
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 0x1fd62
movsd 0x10(%rsp), %xmm5
jmp 0x1fe18
testb $0x1, %bl
jne 0x1fe22
movsd 0x857c3(%rip), %xmm1    # 0xa5520
jmp 0x1fe7a
xorpd %xmm3, %xmm3
testb $0x1, %bl
movsd 0x10(%rsp), %xmm5
je 0x1fd79
movsd 0x87d5f(%rip), %xmm3    # 0xa7ad8
movapd 0x20(%rsp), %xmm0
xorpd 0x86449(%rip), %xmm0    # 0xa61d0
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 0x87d0a(%rip), %xmm4    # 0xa7ae0
ucomisd %xmm0, %xmm4
ja 0x1fdf6
movsd %xmm3, 0x8(%rsp)
callq 0x4060
movsd 0x8(%rsp), %xmm3
movsd (%rsp), %xmm2
movapd %xmm0, %xmm1
movsd 0x10(%rsp), %xmm5
addsd %xmm1, %xmm5
addsd 0x85718(%rip), %xmm2    # 0xa5520
movsd 0x18(%rsp), %xmm0
ucomisd %xmm2, %xmm0
jae 0x1fd8d
movapd %xmm5, %xmm0
addq $0x40, %rsp
popq %rbx
retq
xorpd %xmm0, %xmm0
ucomisd %xmm0, %xmm4
jb 0x1fe35
xorps %xmm0, %xmm0
sqrtsd %xmm4, %xmm0
jmp 0x1fe6e
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 0x87c5a(%rip), %xmm1    # 0xa7ad0
divsd %xmm0, %xmm1
xorpd %xmm0, %xmm0
ucomisd %xmm7, %xmm6
jb 0x1fea6
movsd 0x85694(%rip), %xmm2    # 0xa5520
movapd %xmm4, %xmm3
divsd %xmm7, %xmm3
mulsd %xmm3, %xmm1
addsd %xmm1, %xmm0
addsd %xmm2, %xmm7
ucomisd %xmm7, %xmm6
jae 0x1fe8c
mulsd %xmm8, %xmm0
addsd %xmm5, %xmm0
jmp 0x1fe1c