#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double CDFBinormal(double, double, double);
int /*<<< orphan*/ DiscreteGamma(double *, double *, double, double, int,
                                 int /*<<< orphan*/);
double PointNormal(int);
int /*<<< orphan*/ printf(char *, int, int, double);
int AutodGamma(double M[], double freqK[], double rK[], double *rho1,
               double alpha, double rho, int K) {
  int i, j, i1, i2;
  double *point = freqK;
  double x, y, large = 20, v1;
  for (i = 0; i < K - 1; i++)
    point[i] = PointNormal((i + 1.0) / K);
  for (i = 0; i < K; i++) {
    for (j = 0; j < K; j++) {
      x = (i < K - 1 ? point[i] : large);
      y = (j < K - 1 ? point[j] : large);
      M[i * K + j] = CDFBinormal(x, y, rho);
    }
  }
  for (i1 = 0; i1 < 2 * K - 1; i1++) {
    for (i2 = 0; i2 < K * K; i2++) {
      i = i2 / K;
      j = i2 % K;
      if (i + j != 2 * (K - 1) - i1)
        continue;
      y = 0;
      if (i > 0)
        y -= M[(i - 1) * K + j];
      if (j > 0)
        y -= M[i * K + (j - 1)];
      if (i > 0 && j > 0)
        y += M[(i - 1) * K + (j - 1)];
      M[i * K + j] = (M[i * K + j] + y) * K;
      if (M[i * K + j] < 0)
        printf("M(%d,%d) =%12.8f<0\n", i + 1, j + 1, M[i * K + j]);
    }
  }
  DiscreteGamma(freqK, rK, alpha, alpha, K, 0);
  for (i = 0, v1 = *rho1 = 0; i < K; i++) {
    v1 += rK[i] * rK[i] * freqK[i];
    for (j = 0; j < K; j++)
      *rho1 += freqK[i] * M[i * K + j] * rK[i] * rK[j];
  }
  v1 -= 1;
  *rho1 = (*rho1 - 1) / v1;
  return (0);
}


x86 assembly (clang, -O0):
<AutodGamma>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movsd  %xmm0,-0x28(%rbp)
movsd  %xmm1,-0x30(%rbp)
mov    %r8d,-0x34(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x50(%rbp)
movsd  0xe87(%rip),%xmm0
movsd  %xmm0,-0x68(%rbp)
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x34(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    11d4 <AutodGamma+0x94>
cvtsi2sdl -0x38(%rbp),%xmm0
movsd  0xe65(%rip),%xmm1
addsd  %xmm1,%xmm0
cvtsi2sdl -0x34(%rbp),%xmm1
divsd  %xmm1,%xmm0
cvttsd2si %xmm0,%edi
call   1060 <PointNormal@plt>
mov    -0x50(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1185 <AutodGamma+0x45>
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    12bd <AutodGamma+0x17d>
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    12aa <AutodGamma+0x16a>
mov    -0x38(%rbp),%eax
mov    -0x34(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    1222 <AutodGamma+0xe2>
mov    -0x50(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x78(%rbp)
jmp    122c <AutodGamma+0xec>
movsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x78(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x3c(%rbp),%eax
mov    -0x34(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    125e <AutodGamma+0x11e>
mov    -0x50(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x80(%rbp)
jmp    1268 <AutodGamma+0x128>
movsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x80(%rbp)
movsd  -0x80(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x58(%rbp),%xmm0
movsd  -0x60(%rbp),%xmm1
movsd  -0x30(%rbp),%xmm2
call   1050 <CDFBinormal@plt>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
imul   -0x34(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    11ee <AutodGamma+0xae>
jmp    12af <AutodGamma+0x16f>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    11db <AutodGamma+0x9b>
movl   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%eax
mov    -0x34(%rbp),%ecx
shl    $0x1,%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    1479 <AutodGamma+0x339>
movl   $0x0,-0x44(%rbp)
mov    -0x44(%rbp),%eax
mov    -0x34(%rbp),%ecx
imul   -0x34(%rbp),%ecx
cmp    %ecx,%eax
jge    1466 <AutodGamma+0x326>
mov    -0x44(%rbp),%eax
cltd
idivl  -0x34(%rbp)
mov    %eax,-0x38(%rbp)
mov    -0x44(%rbp),%eax
cltd
idivl  -0x34(%rbp)
mov    %edx,-0x3c(%rbp)
mov    -0x38(%rbp),%eax
add    -0x3c(%rbp),%eax
mov    -0x34(%rbp),%ecx
sub    $0x1,%ecx
shl    $0x1,%ecx
sub    -0x40(%rbp),%ecx
cmp    %ecx,%eax
je     1324 <AutodGamma+0x1e4>
jmp    1458 <AutodGamma+0x318>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x60(%rbp)
cmpl   $0x0,-0x38(%rbp)
jle    135d <AutodGamma+0x21d>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
sub    $0x1,%ecx
imul   -0x34(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x60(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
cmpl   $0x0,-0x3c(%rbp)
jle    1390 <AutodGamma+0x250>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
imul   -0x34(%rbp),%ecx
mov    -0x3c(%rbp),%edx
sub    $0x1,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x60(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
cmpl   $0x0,-0x38(%rbp)
jle    13cc <AutodGamma+0x28c>
cmpl   $0x0,-0x3c(%rbp)
jle    13cc <AutodGamma+0x28c>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
sub    $0x1,%ecx
imul   -0x34(%rbp),%ecx
mov    -0x3c(%rbp),%edx
sub    $0x1,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
imul   -0x34(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x60(%rbp),%xmm0
cvtsi2sdl -0x34(%rbp),%xmm1
mulsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
imul   -0x34(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
imul   -0x34(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
xorps  %xmm0,%xmm0
ucomisd (%rax,%rcx,8),%xmm0
jbe    1453 <AutodGamma+0x313>
mov    -0x38(%rbp),%esi
add    $0x1,%esi
mov    -0x3c(%rbp),%edx
add    $0x1,%edx
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
imul   -0x34(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
lea    0xbc2(%rip),%rdi
call   1030 <printf@plt>
jmp    1458 <AutodGamma+0x318>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    12df <AutodGamma+0x19f>
jmp    146b <AutodGamma+0x32b>
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    12c4 <AutodGamma+0x184>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
movsd  -0x28(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm1
mov    -0x34(%rbp),%edx
xor    %ecx,%ecx
call   1040 <DiscreteGamma@plt>
movl   $0x0,-0x38(%rbp)
mov    -0x20(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x70(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    1579 <AutodGamma+0x439>
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x70(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x70(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    1566 <AutodGamma+0x426>
mov    -0x10(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%ecx
imul   -0x34(%rbp),%ecx
add    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    14fb <AutodGamma+0x3bb>
jmp    156b <AutodGamma+0x42b>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    14af <AutodGamma+0x36f>
movsd  -0x70(%rbp),%xmm0
movsd  0xa82(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x70(%rbp)
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
movsd  0xa69(%rip),%xmm1
subsd  %xmm1,%xmm0
divsd  -0x70(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movsd  %xmm0,(%rax)
xor    %eax,%eax
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<AutodGamma>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x48,%rsp
movsd  %xmm1,0x20(%rsp)
movsd  %xmm0,0x28(%rsp)
mov    %rcx,0x38(%rsp)
mov    %rdx,0x30(%rsp)
mov    %rsi,%r15
mov    %rdi,0x10(%rsp)
lea    -0x1(%r8),%r12d
mov    %r12d,%ebp
mov    %r8,%r14
cmp    $0x2,%r8d
jl     11bd <AutodGamma+0x7d>
xorps  %xmm0,%xmm0
cvtsi2sd %r14d,%xmm0
movsd  %xmm0,0x8(%rsp)
xor    %ebx,%ebx
nopl   0x0(%rax)
xorps  %xmm0,%xmm0
cvtsi2sd %ebx,%xmm0
addsd  0xe61(%rip),%xmm0
divsd  0x8(%rsp),%xmm0
cvttsd2si %xmm0,%edi
call   1060 <PointNormal@plt>
movsd  %xmm0,(%r15,%rbx,8)
add    $0x1,%rbx
cmp    %rbx,%rbp
jne    1190 <AutodGamma+0x50>
mov    %r15,0x8(%rsp)
mov    %r14,%rbx
test   %ebx,%ebx
jle    139b <AutodGamma+0x25b>
mov    %r12d,0x4(%rsp)
mov    %ebx,%eax
lea    0x0(,%rax,8),%rcx
mov    %rcx,0x18(%rsp)
xor    %r12d,%r12d
movsd  0xe1c(%rip),%xmm1
mov    0x10(%rsp),%r13
mov    %rax,0x40(%rsp)
jmp    120e <AutodGamma+0xce>
nopl   0x0(%rax,%rax,1)
add    $0x1,%r12
add    0x18(%rsp),%r13
cmp    %rax,%r12
je     126e <AutodGamma+0x12e>
xor    %r15d,%r15d
jmp    1248 <AutodGamma+0x108>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  0x20(%rsp),%xmm2
call   1050 <CDFBinormal@plt>
movsd  %xmm0,0x0(%r13,%r15,8)
add    $0x1,%r15
mov    0x40(%rsp),%rax
cmp    %r15,%rax
movsd  0xdc2(%rip),%xmm1
je     1200 <AutodGamma+0xc0>
movapd %xmm1,%xmm0
cmp    %rbp,%r12
jae    125c <AutodGamma+0x11c>
mov    0x8(%rsp),%rcx
movsd  (%rcx,%r12,8),%xmm0
cmp    %rbp,%r15
jae    1220 <AutodGamma+0xe0>
mov    0x8(%rsp),%rax
movsd  (%rax,%r15,8),%xmm1
jmp    1220 <AutodGamma+0xe0>
mov    %r14,%rbx
test   %ebx,%ebx
mov    0x4(%rsp),%r13d
jle    139b <AutodGamma+0x25b>
mov    %ebx,%r8d
imul   %ebx,%r8d
add    %r13d,%r13d
xorps  %xmm1,%xmm1
cvtsi2sd %ebx,%xmm1
cmp    $0x2,%r8d
mov    $0x1,%ecx
cmovb  %ecx,%r8d
lea    (%rbx,%rbx,1),%eax
add    $0xffffffff,%eax
cmp    $0x2,%eax
cmovge %eax,%ecx
mov    %ecx,0x18(%rsp)
xor    %eax,%eax
xorpd  %xmm2,%xmm2
mov    0x10(%rsp),%r15
movsd  %xmm1,0x20(%rsp)
mov    %r13d,0x4(%rsp)
jmp    12e5 <AutodGamma+0x1a5>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r12d,%eax
add    $0x1,%eax
cmp    0x18(%rsp),%eax
mov    0x4(%rsp),%r13d
je     13cd <AutodGamma+0x28d>
mov    %eax,%r12d
sub    %eax,%r13d
xor    %ebp,%ebp
jmp    12f8 <AutodGamma+0x1b8>
nop
add    $0x1,%ebp
cmp    %ebp,%r8d
je     12d0 <AutodGamma+0x190>
mov    %ebp,%eax
cltd
idiv   %ebx
lea    (%rdx,%rax,1),%ecx
cmp    %r13d,%ecx
jne    12f0 <AutodGamma+0x1b0>
test   %eax,%eax
jle    1320 <AutodGamma+0x1e0>
lea    -0x1(%rax),%ecx
imul   %ebx,%ecx
add    %edx,%ecx
movslq %ecx,%rcx
xorpd  %xmm0,%xmm0
subsd  (%r15,%rcx,8),%xmm0
jmp    1324 <AutodGamma+0x1e4>
xorpd  %xmm0,%xmm0
mov    %eax,%ecx
imul   %ebx,%ecx
test   %edx,%edx
je     1354 <AutodGamma+0x214>
lea    (%rdx,%rcx,1),%esi
add    $0xffffffff,%esi
movslq %esi,%rsi
subsd  (%r15,%rsi,8),%xmm0
test   %eax,%eax
jle    1354 <AutodGamma+0x214>
lea    -0x1(%rdx),%esi
lea    -0x1(%rax),%edi
imul   %ebx,%edi
add    %esi,%edi
movslq %edi,%rsi
addsd  (%r15,%rsi,8),%xmm0
add    %edx,%ecx
movslq %ecx,%rcx
addsd  (%r15,%rcx,8),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,(%r15,%rcx,8)
ucomisd %xmm0,%xmm2
jbe    12f0 <AutodGamma+0x1b0>
add    $0x1,%eax
add    $0x1,%edx
lea    0xc9c(%rip),%rdi
mov    %eax,%esi
mov    %r8d,%ebx
call   1030 <printf@plt>
xorpd  %xmm2,%xmm2
movsd  0x20(%rsp),%xmm1
mov    %ebx,%r8d
mov    %r14,%rbx
jmp    12f0 <AutodGamma+0x1b0>
mov    0x8(%rsp),%rdi
mov    0x30(%rsp),%rsi
movsd  0x28(%rsp),%xmm0
movaps %xmm0,%xmm1
mov    %ebx,%edx
xor    %ecx,%ecx
call   1040 <DiscreteGamma@plt>
movsd  0xc51(%rip),%xmm0
movapd %xmm0,%xmm1
mov    0x38(%rsp),%rdx
jmp    1559 <AutodGamma+0x419>
mov    0x8(%rsp),%r13
mov    %r13,%rdi
mov    0x30(%rsp),%rbp
mov    %rbp,%rsi
movsd  0x28(%rsp),%xmm0
movapd %xmm0,%xmm1
mov    %ebx,%edx
xor    %ecx,%ecx
call   1040 <DiscreteGamma@plt>
mov    0x38(%rsp),%rdx
movq   $0x0,(%rdx)
test   %r14d,%r14d
jle    154d <AutodGamma+0x40d>
mov    0x40(%rsp),%r12
lea    -0x1(%r12),%r8
lea    0x8(%r15),%rcx
lea    0x0(,%r12,8),%r9
mov    %r8,%rsi
and    $0xfffffffffffffffe,%rsi
neg    %rsi
xorpd  %xmm0,%xmm0
xor    %edi,%edi
xorpd  %xmm1,%xmm1
jmp    145c <AutodGamma+0x31c>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mulsd  %xmm2,%xmm2
mulsd  %xmm3,%xmm2
addsd  %xmm2,%xmm1
add    $0x1,%rdi
add    %r9,%rcx
cmp    %r12,%rdi
je     153b <AutodGamma+0x3fb>
movapd %xmm0,%xmm4
movsd  0x0(%rbp,%rdi,8),%xmm2
movsd  0x0(%r13,%rdi,8),%xmm3
mov    %rdi,%r10
imul   %r12,%r10
movsd  (%r15,%r10,8),%xmm0
mulsd  %xmm3,%xmm0
mulsd  %xmm2,%xmm0
mulsd  0x0(%rbp),%xmm0
addsd  %xmm4,%xmm0
movsd  %xmm0,(%rdx)
cmp    $0x1,%r14d
je     1440 <AutodGamma+0x300>
mov    $0x1,%eax
cmp    $0x2,%r14d
je     1503 <AutodGamma+0x3c3>
mov    $0x1,%eax
cs nopw 0x0(%rax,%rax,1)
nop
movsd  0x0(%r13,%rdi,8),%xmm4
mulsd  -0x8(%rcx,%rax,8),%xmm4
mulsd  0x0(%rbp,%rdi,8),%xmm4
mulsd  0x0(%rbp,%rax,8),%xmm4
addsd  %xmm0,%xmm4
movsd  %xmm4,(%rdx)
movsd  0x0(%r13,%rdi,8),%xmm0
mulsd  (%rcx,%rax,8),%xmm0
mulsd  0x0(%rbp,%rdi,8),%xmm0
mulsd  0x8(%rbp,%rax,8),%xmm0
addsd  %xmm4,%xmm0
movsd  %xmm0,(%rdx)
lea    (%rsi,%rax,1),%rbx
add    $0x2,%rbx
add    $0x2,%rax
cmp    $0x1,%rbx
jne    14b0 <AutodGamma+0x370>
test   $0x1,%r8b
mov    0x10(%rsp),%r15
je     1440 <AutodGamma+0x300>
movsd  0x0(%r13,%rdi,8),%xmm4
add    %rax,%r10
mulsd  (%r15,%r10,8),%xmm4
mulsd  0x0(%rbp,%rdi,8),%xmm4
mulsd  0x0(%rbp,%rax,8),%xmm4
addsd  %xmm4,%xmm0
movsd  %xmm0,(%rdx)
jmp    1440 <AutodGamma+0x300>
movsd  0xacd(%rip),%xmm2
addsd  %xmm2,%xmm1
addsd  %xmm2,%xmm0
jmp    1559 <AutodGamma+0x419>
movsd  0xabb(%rip),%xmm0
movapd %xmm0,%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rdx)
xor    %eax,%eax
add    $0x48,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [20 x i8] c"M(%d,%d) =%12.8f<0\0A\00"
define i32 @AutodGamma(double* %0, double* %1, double* %2, double* %3, double %4, double %5, i32 %6) {
%8 = alloca double*
%9 = alloca double*
%10 = alloca double*
%11 = alloca double*
%12 = alloca double
%13 = alloca double
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca double*
%20 = alloca double
%21 = alloca double
%22 = alloca double
%23 = alloca double
store double* %0, double** %8
store double* %1, double** %9
store double* %2, double** %10
store double* %3, double** %11
store double %4, double* %12
store double %5, double* %13
store i32 %6, i32* %14
%24 = load double*, double** %9
store double* %24, double** %19
store double 2.000000e+01, double* %22
store i32 0, i32* %15
br label %25
25: ; preds = %43, %7
%26 = load i32, i32* %15
%27 = load i32, i32* %14
%28 = sub nsw i32 %27, 1
%29 = icmp slt i32 %26, %28
br i1 %29, label %30, label %46
30: ; preds = %25
%31 = load i32, i32* %15
%32 = sitofp i32 %31 to double
%33 = fadd double %32, 1.000000e+00
%34 = load i32, i32* %14
%35 = sitofp i32 %34 to double
%36 = fdiv double %33, %35
%37 = fptosi double %36 to i32
%38 = call double @PointNormal(i32 %37)
%39 = load double*, double** %19
%40 = load i32, i32* %15
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds double, double* %39, i64 %41
store double %38, double* %42
br label %43
43: ; preds = %30
%44 = load i32, i32* %15
%45 = add nsw i32 %44, 1
store i32 %45, i32* %15
br label %25
46: ; preds = %25
store i32 0, i32* %15
br label %47
47: ; preds = %101, %46
%48 = load i32, i32* %15
%49 = load i32, i32* %14
%50 = icmp slt i32 %48, %49
br i1 %50, label %51, label %104
51: ; preds = %47
store i32 0, i32* %16
br label %52
52: ; preds = %97, %51
%53 = load i32, i32* %16
%54 = load i32, i32* %14
%55 = icmp slt i32 %53, %54
br i1 %55, label %56, label %100
56: ; preds = %52
%57 = load i32, i32* %15
%58 = load i32, i32* %14
%59 = sub nsw i32 %58, 1
%60 = icmp slt i32 %57, %59
br i1 %60, label %61, label %67
61: ; preds = %56
%62 = load double*, double** %19
%63 = load i32, i32* %15
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds double, double* %62, i64 %64
%66 = load double, double* %65
br label %69
67: ; preds = %56
%68 = load double, double* %22
br label %69
69: ; preds = %67, %61
%70 = phi double [ %66, %61 ], [ %68, %67 ]
store double %70, double* %20
%71 = load i32, i32* %16
%72 = load i32, i32* %14
%73 = sub nsw i32 %72, 1
%74 = icmp slt i32 %71, %73
br i1 %74, label %75, label %81
75: ; preds = %69
%76 = load double*, double** %19
%77 = load i32, i32* %16
%78 = sext i32 %77 to i64
%79 = getelementptr inbounds double, double* %76, i64 %78
%80 = load double, double* %79
br label %83
81: ; preds = %69
%82 = load double, double* %22
br label %83
83: ; preds = %81, %75
%84 = phi double [ %80, %75 ], [ %82, %81 ]
store double %84, double* %21
%85 = load double, double* %20
%86 = load double, double* %21
%87 = load double, double* %13
%88 = call double @CDFBinormal(double %85, double %86, double %87)
%89 = load double*, double** %8
%90 = load i32, i32* %15
%91 = load i32, i32* %14
%92 = mul nsw i32 %90, %91
%93 = load i32, i32* %16
%94 = add nsw i32 %92, %93
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds double, double* %89, i64 %95
store double %88, double* %96
br label %97
97: ; preds = %83
%98 = load i32, i32* %16
%99 = add nsw i32 %98, 1
store i32 %99, i32* %16
br label %52
100: ; preds = %52
br label %101
101: ; preds = %100
%102 = load i32, i32* %15
%103 = add nsw i32 %102, 1
store i32 %103, i32* %15
br label %47
104: ; preds = %47
store i32 0, i32* %17
br label %105
105: ; preds = %240, %104
%106 = load i32, i32* %17
%107 = load i32, i32* %14
%108 = mul nsw i32 2, %107
%109 = sub nsw i32 %108, 1
%110 = icmp slt i32 %106, %109
br i1 %110, label %111, label %243
111: ; preds = %105
store i32 0, i32* %18
br label %112
112: ; preds = %236, %111
%113 = load i32, i32* %18
%114 = load i32, i32* %14
%115 = load i32, i32* %14
%116 = mul nsw i32 %114, %115
%117 = icmp slt i32 %113, %116
br i1 %117, label %118, label %239
118: ; preds = %112
%119 = load i32, i32* %18
%120 = load i32, i32* %14
%121 = sdiv i32 %119, %120
store i32 %121, i32* %15
%122 = load i32, i32* %18
%123 = load i32, i32* %14
%124 = srem i32 %122, %123
store i32 %124, i32* %16
%125 = load i32, i32* %15
%126 = load i32, i32* %16
%127 = add nsw i32 %125, %126
%128 = load i32, i32* %14
%129 = sub nsw i32 %128, 1
%130 = mul nsw i32 2, %129
%131 = load i32, i32* %17
%132 = sub nsw i32 %130, %131
%133 = icmp ne i32 %127, %132
br i1 %133, label %134, label %135
134: ; preds = %118
br label %236
135: ; preds = %118
store double 0.000000e+00, double* %21
%136 = load i32, i32* %15
%137 = icmp sgt i32 %136, 0
br i1 %137, label %138, label %151
138: ; preds = %135
%139 = load double*, double** %8
%140 = load i32, i32* %15
%141 = sub nsw i32 %140, 1
%142 = load i32, i32* %14
%143 = mul nsw i32 %141, %142
%144 = load i32, i32* %16
%145 = add nsw i32 %143, %144
%146 = sext i32 %145 to i64
%147 = getelementptr inbounds double, double* %139, i64 %146
%148 = load double, double* %147
%149 = load double, double* %21
%150 = fsub double %149, %148
store double %150, double* %21
br label %151
151: ; preds = %138, %135
%152 = load i32, i32* %16
%153 = icmp sgt i32 %152, 0
br i1 %153, label %154, label %167
154: ; preds = %151
%155 = load double*, double** %8
%156 = load i32, i32* %15
%157 = load i32, i32* %14
%158 = mul nsw i32 %156, %157
%159 = load i32, i32* %16
%160 = sub nsw i32 %159, 1
%161 = add nsw i32 %158, %160
%162 = sext i32 %161 to i64
%163 = getelementptr inbounds double, double* %155, i64 %162
%164 = load double, double* %163
%165 = load double, double* %21
%166 = fsub double %165, %164
store double %166, double* %21
br label %167
167: ; preds = %154, %151
%168 = load i32, i32* %15
%169 = icmp sgt i32 %168, 0
br i1 %169, label %170, label %187
170: ; preds = %167
%171 = load i32, i32* %16
%172 = icmp sgt i32 %171, 0
br i1 %172, label %173, label %187
173: ; preds = %170
%174 = load double*, double** %8
%175 = load i32, i32* %15
%176 = sub nsw i32 %175, 1
%177 = load i32, i32* %14
%178 = mul nsw i32 %176, %177
%179 = load i32, i32* %16
%180 = sub nsw i32 %179, 1
%181 = add nsw i32 %178, %180
%182 = sext i32 %181 to i64
%183 = getelementptr inbounds double, double* %174, i64 %182
%184 = load double, double* %183
%185 = load double, double* %21
%186 = fadd double %185, %184
store double %186, double* %21
br label %187
187: ; preds = %173, %170, %167
%188 = load double*, double** %8
%189 = load i32, i32* %15
%190 = load i32, i32* %14
%191 = mul nsw i32 %189, %190
%192 = load i32, i32* %16
%193 = add nsw i32 %191, %192
%194 = sext i32 %193 to i64
%195 = getelementptr inbounds double, double* %188, i64 %194
%196 = load double, double* %195
%197 = load double, double* %21
%198 = fadd double %196, %197
%199 = load i32, i32* %14
%200 = sitofp i32 %199 to double
%201 = fmul double %198, %200
%202 = load double*, double** %8
%203 = load i32, i32* %15
%204 = load i32, i32* %14
%205 = mul nsw i32 %203, %204
%206 = load i32, i32* %16
%207 = add nsw i32 %205, %206
%208 = sext i32 %207 to i64
%209 = getelementptr inbounds double, double* %202, i64 %208
store double %201, double* %209
%210 = load double*, double** %8
%211 = load i32, i32* %15
%212 = load i32, i32* %14
%213 = mul nsw i32 %211, %212
%214 = load i32, i32* %16
%215 = add nsw i32 %213, %214
%216 = sext i32 %215 to i64
%217 = getelementptr inbounds double, double* %210, i64 %216
%218 = load double, double* %217
%219 = fcmp olt double %218, 0.000000e+00
br i1 %219, label %220, label %235
220: ; preds = %187
%221 = load i32, i32* %15
%222 = add nsw i32 %221, 1
%223 = load i32, i32* %16
%224 = add nsw i32 %223, 1
%225 = load double*, double** %8
%226 = load i32, i32* %15
%227 = load i32, i32* %14
%228 = mul nsw i32 %226, %227
%229 = load i32, i32* %16
%230 = add nsw i32 %228, %229
%231 = sext i32 %230 to i64
%232 = getelementptr inbounds double, double* %225, i64 %231
%233 = load double, double* %232
%234 = call i32 @printf(i8* getelementptr inbounds ([20 x i8], [20 x i8]* @.str, i64 0, i64 0), i32 %222, i32 %224, double %233)
br label %235
235: ; preds = %220, %187
br label %236
236: ; preds = %235, %134
%237 = load i32, i32* %18
%238 = add nsw i32 %237, 1
store i32 %238, i32* %18
br label %112
239: ; preds = %112
br label %240
240: ; preds = %239
%241 = load i32, i32* %17
%242 = add nsw i32 %241, 1
store i32 %242, i32* %17
br label %105
243: ; preds = %105
%244 = load double*, double** %9
%245 = load double*, double** %10
%246 = load double, double* %12
%247 = load double, double* %12
%248 = load i32, i32* %14
%249 = call i32 @DiscreteGamma(double* %244, double* %245, double %246, double %247, i32 %248, i32 0)
store i32 0, i32* %15
%250 = load double*, double** %11
store double 0.000000e+00, double* %250
store double 0.000000e+00, double* %23
br label %251
251: ; preds = %312, %243
%252 = load i32, i32* %15
%253 = load i32, i32* %14
%254 = icmp slt i32 %252, %253
br i1 %254, label %255, label %315
255: ; preds = %251
%256 = load double*, double** %10
%257 = load i32, i32* %15
%258 = sext i32 %257 to i64
%259 = getelementptr inbounds double, double* %256, i64 %258
%260 = load double, double* %259
%261 = load double*, double** %10
%262 = load i32, i32* %15
%263 = sext i32 %262 to i64
%264 = getelementptr inbounds double, double* %261, i64 %263
%265 = load double, double* %264
%266 = fmul double %260, %265
%267 = load double*, double** %9
%268 = load i32, i32* %15
%269 = sext i32 %268 to i64
%270 = getelementptr inbounds double, double* %267, i64 %269
%271 = load double, double* %270
%272 = load double, double* %23
%273 = call double @llvm.fmuladd.f64(double %266, double %271, double %272)
store double %273, double* %23
store i32 0, i32* %16
br label %274
274: ; preds = %308, %255
%275 = load i32, i32* %16
%276 = load i32, i32* %14
%277 = icmp slt i32 %275, %276
br i1 %277, label %278, label %311
278: ; preds = %274
%279 = load double*, double** %9
%280 = load i32, i32* %15
%281 = sext i32 %280 to i64
%282 = getelementptr inbounds double, double* %279, i64 %281
%283 = load double, double* %282
%284 = load double*, double** %8
%285 = load i32, i32* %15
%286 = load i32, i32* %14
%287 = mul nsw i32 %285, %286
%288 = load i32, i32* %16
%289 = add nsw i32 %287, %288
%290 = sext i32 %289 to i64
%291 = getelementptr inbounds double, double* %284, i64 %290
%292 = load double, double* %291
%293 = fmul double %283, %292
%294 = load double*, double** %10
%295 = load i32, i32* %15
%296 = sext i32 %295 to i64
%297 = getelementptr inbounds double, double* %294, i64 %296
%298 = load double, double* %297
%299 = fmul double %293, %298
%300 = load double*, double** %10
%301 = load i32, i32* %16
%302 = sext i32 %301 to i64
%303 = getelementptr inbounds double, double* %300, i64 %302
%304 = load double, double* %303
%305 = load double*, double** %11
%306 = load double, double* %305
%307 = call double @llvm.fmuladd.f64(double %299, double %304, double %306)
store double %307, double* %305
br label %308
308: ; preds = %278
%309 = load i32, i32* %16
%310 = add nsw i32 %309, 1
store i32 %310, i32* %16
br label %274
311: ; preds = %274
br label %312
312: ; preds = %311
%313 = load i32, i32* %15
%314 = add nsw i32 %313, 1
store i32 %314, i32* %15
br label %251
315: ; preds = %251
%316 = load double, double* %23
%317 = fsub double %316, 1.000000e+00
store double %317, double* %23
%318 = load double*, double** %11
%319 = load double, double* %318
%320 = fsub double %319, 1.000000e+00
%321 = load double, double* %23
%322 = fdiv double %320, %321
%323 = load double*, double** %11
store double %322, double* %323
ret i32 0
}

LLVM IR (-O2):
@.str = [20 x i8] c"M(%d,%d) =%12.8f<0\0A\00"
define i32 @AutodGamma(double* nocapture %0, double* %1, double* %2, double* nocapture %3, double %4, double %5, i32 %6) {
%8 = add i32 %6, -1
%9 = icmp sgt i32 %6, 1
br i1 %9, label %10, label %13
10: ; preds = %7
%11 = sitofp i32 %6 to double
%12 = zext i32 %8 to i64
br label %19
13: ; preds = %19, %7
%14 = icmp sgt i32 %6, 0
br i1 %14, label %15, label %121
15: ; preds = %13
%16 = zext i32 %8 to i64
%17 = zext i32 %6 to i64
%18 = zext i32 %6 to i64
br label %30
19: ; preds = %10, %19
%20 = phi i64 [ 0, %10 ], [ %28, %19 ]
%21 = trunc i64 %20 to i32
%22 = sitofp i32 %21 to double
%23 = fadd double %22, 1.000000e+00
%24 = fdiv double %23, %11
%25 = fptosi double %24 to i32
%26 = tail call double @PointNormal(i32 %25)
%27 = getelementptr inbounds double, double* %1, i64 %20
store double %26, double* %27
%28 = add nuw nsw i64 %20, 1
%29 = icmp eq i64 %28, %12
br i1 %29, label %13, label %19
30: ; preds = %61, %15
%31 = phi i64 [ 0, %15 ], [ %62, %61 ]
%32 = icmp ult i64 %31, %16
%33 = getelementptr inbounds double, double* %1, i64 %31
%34 = mul nsw i64 %31, %17
br label %44
35: ; preds = %61
br i1 %14, label %36, label %121
36: ; preds = %35
%37 = shl nuw nsw i32 %6, 1
%38 = add i32 %37, -1
%39 = mul i32 %6, %6
%40 = shl nuw nsw i32 %8, 1
%41 = sitofp i32 %6 to double
%42 = call i32 @llvm.umax.i32(i32 %39, i32 1)
%43 = call i32 @llvm.smax.i32(i32 %38, i32 1)
br label %64
44: ; preds = %30, %54
%45 = phi i64 [ 0, %30 ], [ %59, %54 ]
br i1 %32, label %46, label %48
46: ; preds = %44
%47 = load double, double* %33
br label %48
48: ; preds = %44, %46
%49 = phi double [ %47, %46 ], [ 2.000000e+01, %44 ]
%50 = icmp ult i64 %45, %16
br i1 %50, label %51, label %54
51: ; preds = %48
%52 = getelementptr inbounds double, double* %1, i64 %45
%53 = load double, double* %52
br label %54
54: ; preds = %48, %51
%55 = phi double [ %53, %51 ], [ 2.000000e+01, %48 ]
%56 = tail call double @CDFBinormal(double %49, double %55, double %5)
%57 = add nuw nsw i64 %45, %34
%58 = getelementptr inbounds double, double* %0, i64 %57
store double %56, double* %58
%59 = add nuw nsw i64 %45, 1
%60 = icmp eq i64 %59, %18
br i1 %60, label %61, label %44
61: ; preds = %54
%62 = add nuw nsw i64 %31, 1
%63 = icmp eq i64 %62, %18
br i1 %63, label %35, label %30
64: ; preds = %118, %36
%65 = phi i32 [ 0, %36 ], [ %119, %118 ]
%66 = sub nsw i32 %40, %65
br label %67
67: ; preds = %64, %115
%68 = phi i32 [ 0, %64 ], [ %116, %115 ]
%69 = sdiv i32 %68, %6
%70 = srem i32 %68, %6
%71 = add nsw i32 %70, %69
%72 = icmp eq i32 %71, %66
br i1 %72, label %73, label %115
73: ; preds = %67
%74 = icmp sgt i32 %69, 0
br i1 %74, label %75, label %83
75: ; preds = %73
%76 = add nsw i32 %69, -1
%77 = mul nsw i32 %76, %6
%78 = add nsw i32 %77, %70
%79 = sext i32 %78 to i64
%80 = getelementptr inbounds double, double* %0, i64 %79
%81 = load double, double* %80
%82 = fsub double 0.000000e+00, %81
br label %83
83: ; preds = %75, %73
%84 = phi double [ %82, %75 ], [ 0.000000e+00, %73 ]
%85 = icmp eq i32 %70, 0
%86 = mul nsw i32 %69, %6
br i1 %85, label %102, label %87
87: ; preds = %83
%88 = add nsw i32 %70, -1
%89 = add nsw i32 %88, %86
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds double, double* %0, i64 %90
%92 = load double, double* %91
%93 = fsub double %84, %92
br i1 %74, label %94, label %102
94: ; preds = %87
%95 = add nsw i32 %69, -1
%96 = mul nsw i32 %95, %6
%97 = add nsw i32 %88, %96
%98 = sext i32 %97 to i64
%99 = getelementptr inbounds double, double* %0, i64 %98
%100 = load double, double* %99
%101 = fadd double %93, %100
br label %102
102: ; preds = %83, %94, %87
%103 = phi double [ %101, %94 ], [ %93, %87 ], [ %84, %83 ]
%104 = add nsw i32 %86, %70
%105 = sext i32 %104 to i64
%106 = getelementptr inbounds double, double* %0, i64 %105
%107 = load double, double* %106
%108 = fadd double %103, %107
%109 = fmul double %108, %41
store double %109, double* %106
%110 = fcmp olt double %109, 0.000000e+00
br i1 %110, label %111, label %115
111: ; preds = %102
%112 = add nsw i32 %69, 1
%113 = add nuw nsw i32 %70, 1
%114 = tail call i32 @printf(i8* getelementptr inbounds ([20 x i8], [20 x i8]* @.str, i64 0, i64 0), i32 %112, i32 %113, double %109)
br label %115
115: ; preds = %102, %111, %67
%116 = add nuw i32 %68, 1
%117 = icmp eq i32 %116, %42
br i1 %117, label %118, label %67
118: ; preds = %115
%119 = add nuw nsw i32 %65, 1
%120 = icmp eq i32 %119, %43
br i1 %120, label %123, label %64
121: ; preds = %35, %13
%122 = tail call i32 @DiscreteGamma(double* %1, double* %2, double %4, double %4, i32 %6, i32 0)
br label %200
123: ; preds = %118
%124 = tail call i32 @DiscreteGamma(double* %1, double* %2, double %4, double %4, i32 %6, i32 0)
store double 0.000000e+00, double* %3
br i1 %14, label %125, label %200
125: ; preds = %123
%126 = zext i32 %6 to i64
%127 = zext i32 %6 to i64
%128 = add nsw i64 %127, -1
%129 = and i64 %128, 1
%130 = icmp eq i32 %6, 2
%131 = and i64 %128, -2
%132 = icmp eq i64 %129, 0
br label %133
133: ; preds = %193, %125
%134 = phi double [ 0.000000e+00, %125 ], [ %194, %193 ]
%135 = phi i64 [ 0, %125 ], [ %195, %193 ]
%136 = phi double [ 0.000000e+00, %125 ], [ %142, %193 ]
%137 = getelementptr inbounds double, double* %2, i64 %135
%138 = load double, double* %137
%139 = fmul double %138, %138
%140 = getelementptr inbounds double, double* %1, i64 %135
%141 = load double, double* %140
%142 = tail call double @llvm.fmuladd.f64(double %139, double %141, double %136)
%143 = mul nsw i64 %135, %126
%144 = getelementptr inbounds double, double* %0, i64 %143
%145 = load double, double* %144
%146 = fmul double %141, %145
%147 = fmul double %146, %138
%148 = load double, double* %2
%149 = tail call double @llvm.fmuladd.f64(double %147, double %148, double %134)
store double %149, double* %3
switch i32 %6, label %150 [
i32 1, label %193
i32 2, label %178
]
150: ; preds = %133, %150
%151 = phi i64 [ %175, %150 ], [ 1, %133 ]
%152 = phi double [ %174, %150 ], [ %149, %133 ]
%153 = phi i64 [ %176, %150 ], [ 0, %133 ]
%154 = load double, double* %140
%155 = load double, double* %137
%156 = add nuw nsw i64 %151, %143
%157 = getelementptr inbounds double, double* %0, i64 %156
%158 = load double, double* %157
%159 = fmul double %154, %158
%160 = fmul double %159, %155
%161 = getelementptr inbounds double, double* %2, i64 %151
%162 = load double, double* %161
%163 = tail call double @llvm.fmuladd.f64(double %160, double %162, double %152)
store double %163, double* %3
%164 = add nuw nsw i64 %151, 1
%165 = load double, double* %140
%166 = load double, double* %137
%167 = add nuw nsw i64 %164, %143
%168 = getelementptr inbounds double, double* %0, i64 %167
%169 = load double, double* %168
%170 = fmul double %165, %169
%171 = fmul double %170, %166
%172 = getelementptr inbounds double, double* %2, i64 %164
%173 = load double, double* %172
%174 = tail call double @llvm.fmuladd.f64(double %171, double %173, double %163)
store double %174, double* %3
%175 = add nuw nsw i64 %151, 2
%176 = add i64 %153, 2
%177 = icmp eq i64 %176, %131
br i1 %177, label %178, label %150
178: ; preds = %150, %133
%179 = phi double [ undef, %133 ], [ %174, %150 ]
%180 = phi i64 [ 1, %133 ], [ %175, %150 ]
%181 = phi double [ %149, %133 ], [ %174, %150 ]
br i1 %132, label %193, label %182
182: ; preds = %178
%183 = load double, double* %140
%184 = load double, double* %137
%185 = add nuw nsw i64 %180, %143
%186 = getelementptr inbounds double, double* %0, i64 %185
%187 = load double, double* %186
%188 = fmul double %183, %187
%189 = fmul double %188, %184
%190 = getelementptr inbounds double, double* %2, i64 %180
%191 = load double, double* %190
%192 = tail call double @llvm.fmuladd.f64(double %189, double %191, double %181)
store double %192, double* %3
br label %193
193: ; preds = %182, %178, %133
%194 = phi double [ %149, %133 ], [ %179, %178 ], [ %192, %182 ]
%195 = add nuw nsw i64 %135, 1
%196 = icmp eq i64 %195, %127
br i1 %196, label %197, label %133
197: ; preds = %193
%198 = fadd double %142, -1.000000e+00
%199 = fadd double %194, -1.000000e+00
br label %200
200: ; preds = %121, %197, %123
%201 = phi double [ -1.000000e+00, %123 ], [ %199, %197 ], [ -1.000000e+00, %121 ]
%202 = phi double [ -1.000000e+00, %123 ], [ %198, %197 ], [ -1.000000e+00, %121 ]
%203 = fdiv double %201, %202
store double %203, double* %3
ret i32 0
}