#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 */
scalar_t__ calloc(int, int);
int /*<<< orphan*/ fast_inverse(double *, int, double *);
int /*<<< orphan*/ free(double *);
void create_inv_cov_beta(double *inv_cov_beta, double *alpha_beta,
                         double alpha_R, int D, double *cov) {
  int d1, d2;
  double *tmp = (double *)calloc(D * D, sizeof(double));
  for (d1 = 0; d1 < D; d1++) {
    for (d2 = 0; d2 < D; d2++) {
      tmp[d1 * D + d2] = alpha_R * cov[d1 * D + d2];
      if (d1 == d2)
        tmp[d1 * (D + 1)] += alpha_beta[d1];
    }
  }
  if (D == 1) {
    inv_cov_beta[0] = 1.0 / tmp[0];
  } else {
    fast_inverse(tmp, D, inv_cov_beta);
  }
  free(tmp);
}


x86 assembly (clang, -O0):
<create_inv_cov_beta>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
mov    %rcx,-0x28(%rbp)
mov    -0x1c(%rbp),%edi
imul   -0x1c(%rbp),%edi
mov    $0x8,%esi
call   1050 <calloc@plt>
mov    %rax,-0x38(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1214 <create_inv_cov_beta+0xe4>
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1201 <create_inv_cov_beta+0xd1>
movsd  -0x18(%rbp),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x1c(%rbp),%ecx
add    -0x30(%rbp),%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x38(%rbp),%rax
mov    -0x2c(%rbp),%ecx
imul   -0x1c(%rbp),%ecx
add    -0x30(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
cmp    -0x30(%rbp),%eax
jne    11ee <create_inv_cov_beta+0xbe>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x38(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    -0x1c(%rbp),%edx
add    $0x1,%edx
imul   %edx,%ecx
movslq %ecx,%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
jmp    11f3 <create_inv_cov_beta+0xc3>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    117b <create_inv_cov_beta+0x4b>
jmp    1206 <create_inv_cov_beta+0xd6>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1168 <create_inv_cov_beta+0x38>
cmpl   $0x1,-0x1c(%rbp)
jne    123b <create_inv_cov_beta+0x10b>
mov    -0x38(%rbp),%rax
movsd  0xdd6(%rip),%xmm0
divsd  (%rax),%xmm0
mov    -0x8(%rbp),%rax
movsd  %xmm0,(%rax)
jmp    124b <create_inv_cov_beta+0x11b>
mov    -0x38(%rbp),%rdi
mov    -0x1c(%rbp),%esi
mov    -0x8(%rbp),%rdx
call   1040 <fast_inverse@plt>
mov    -0x38(%rbp),%rdi
call   1030 <free@plt>
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<create_inv_cov_beta>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x10,%rsp
mov    %rcx,%rbx
mov    %edx,%r15d
movsd  %xmm0,0x8(%rsp)
mov    %rsi,%r13
mov    %rdi,%r14
mov    %edx,%edi
imul   %edx,%edi
mov    $0x8,%esi
call   1050 <calloc@plt>
mov    %rax,%r12
test   %r15d,%r15d
jle    11fc <create_inv_cov_beta+0xcc>
lea    0x1(%r15),%r8d
mov    %r15d,%ecx
lea    0x0(,%rcx,8),%r9
xor    %esi,%esi
mov    %r12,%rdi
movsd  0x8(%rsp),%xmm1
jmp    119f <create_inv_cov_beta+0x6f>
cs nopw 0x0(%rax,%rax,1)
add    $0x1,%rsi
add    %r9,%rbx
add    %r9,%rdi
cmp    %rcx,%rsi
je     11e1 <create_inv_cov_beta+0xb1>
mov    %rsi,%rax
imul   %r8,%rax
xor    %edx,%edx
jmp    11b9 <create_inv_cov_beta+0x89>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rdx
cmp    %rdx,%rcx
je     1190 <create_inv_cov_beta+0x60>
movsd  (%rbx,%rdx,8),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,(%rdi,%rdx,8)
cmp    %rdx,%rsi
jne    11b0 <create_inv_cov_beta+0x80>
movsd  0x0(%r13,%rsi,8),%xmm0
addsd  (%r12,%rax,8),%xmm0
movsd  %xmm0,(%r12,%rax,8)
jmp    11b0 <create_inv_cov_beta+0x80>
cmp    $0x1,%r15d
jne    11fc <create_inv_cov_beta+0xcc>
movsd  0xe11(%rip),%xmm0
divsd  (%r12),%xmm0
movsd  %xmm0,(%r14)
jmp    120a <create_inv_cov_beta+0xda>
mov    %r12,%rdi
mov    %r15d,%esi
mov    %r14,%rdx
call   1040 <fast_inverse@plt>
mov    %r12,%rdi
add    $0x10,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
jmp    1030 <free@plt>

LLVM IR (-O0):
define void @create_inv_cov_beta(double* %0, double* %1, double %2, i32 %3, double* %4) {
%6 = alloca double*
%7 = alloca double*
%8 = alloca double
%9 = alloca i32
%10 = alloca double*
%11 = alloca i32
%12 = alloca i32
%13 = alloca double*
store double* %0, double** %6
store double* %1, double** %7
store double %2, double* %8
store i32 %3, i32* %9
store double* %4, double** %10
%14 = load i32, i32* %9
%15 = load i32, i32* %9
%16 = mul nsw i32 %14, %15
%17 = call i64 @calloc(i32 %16, i32 8)
%18 = inttoptr i64 %17 to double*
store double* %18, double** %13
store i32 0, i32* %11
br label %19
19: ; preds = %71, %5
%20 = load i32, i32* %11
%21 = load i32, i32* %9
%22 = icmp slt i32 %20, %21
br i1 %22, label %23, label %74
23: ; preds = %19
store i32 0, i32* %12
br label %24
24: ; preds = %67, %23
%25 = load i32, i32* %12
%26 = load i32, i32* %9
%27 = icmp slt i32 %25, %26
br i1 %27, label %28, label %70
28: ; preds = %24
%29 = load double, double* %8
%30 = load double*, double** %10
%31 = load i32, i32* %11
%32 = load i32, i32* %9
%33 = mul nsw i32 %31, %32
%34 = load i32, i32* %12
%35 = add nsw i32 %33, %34
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double, double* %30, i64 %36
%38 = load double, double* %37
%39 = fmul double %29, %38
%40 = load double*, double** %13
%41 = load i32, i32* %11
%42 = load i32, i32* %9
%43 = mul nsw i32 %41, %42
%44 = load i32, i32* %12
%45 = add nsw i32 %43, %44
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds double, double* %40, i64 %46
store double %39, double* %47
%48 = load i32, i32* %11
%49 = load i32, i32* %12
%50 = icmp eq i32 %48, %49
br i1 %50, label %51, label %66
51: ; preds = %28
%52 = load double*, double** %7
%53 = load i32, i32* %11
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds double, double* %52, i64 %54
%56 = load double, double* %55
%57 = load double*, double** %13
%58 = load i32, i32* %11
%59 = load i32, i32* %9
%60 = add nsw i32 %59, 1
%61 = mul nsw i32 %58, %60
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds double, double* %57, i64 %62
%64 = load double, double* %63
%65 = fadd double %64, %56
store double %65, double* %63
br label %66
66: ; preds = %51, %28
br label %67
67: ; preds = %66
%68 = load i32, i32* %12
%69 = add nsw i32 %68, 1
store i32 %69, i32* %12
br label %24
70: ; preds = %24
br label %71
71: ; preds = %70
%72 = load i32, i32* %11
%73 = add nsw i32 %72, 1
store i32 %73, i32* %11
br label %19
74: ; preds = %19
%75 = load i32, i32* %9
%76 = icmp eq i32 %75, 1
br i1 %76, label %77, label %84
77: ; preds = %74
%78 = load double*, double** %13
%79 = getelementptr inbounds double, double* %78, i64 0
%80 = load double, double* %79
%81 = fdiv double 1.000000e+00, %80
%82 = load double*, double** %6
%83 = getelementptr inbounds double, double* %82, i64 0
store double %81, double* %83
br label %89
84: ; preds = %74
%85 = load double*, double** %13
%86 = load i32, i32* %9
%87 = load double*, double** %6
%88 = call i32 @fast_inverse(double* %85, i32 %86, double* %87)
br label %89
89: ; preds = %84, %77
%90 = load double*, double** %13
%91 = call i32 @free(double* %90)
ret void
}

LLVM IR (-O2):
define void @create_inv_cov_beta(double* %0, double* nocapture %1, double %2, i32 %3, double* nocapture %4) {
%6 = mul nsw i32 %3, %3
%7 = tail call i64 @calloc(i32 %6, i32 8)
%8 = inttoptr i64 %7 to double*
%9 = icmp sgt i32 %3, 0
br i1 %9, label %10, label %44
10: ; preds = %5
%11 = add nuw nsw i32 %3, 1
%12 = zext i32 %11 to i64
%13 = zext i32 %3 to i64
%14 = zext i32 %3 to i64
br label %15
15: ; preds = %36, %10
%16 = phi i64 [ 0, %10 ], [ %37, %36 ]
%17 = mul nsw i64 %16, %13
%18 = getelementptr inbounds double, double* %1, i64 %16
%19 = mul nsw i64 %16, %12
%20 = getelementptr inbounds double, double* %8, i64 %19
br label %21
21: ; preds = %15, %33
%22 = phi i64 [ 0, %15 ], [ %34, %33 ]
%23 = add nuw nsw i64 %22, %17
%24 = getelementptr inbounds double, double* %4, i64 %23
%25 = load double, double* %24
%26 = fmul double %25, %2
%27 = getelementptr inbounds double, double* %8, i64 %23
store double %26, double* %27
%28 = icmp eq i64 %16, %22
br i1 %28, label %29, label %33
29: ; preds = %21
%30 = load double, double* %18
%31 = load double, double* %20
%32 = fadd double %30, %31
store double %32, double* %20
br label %33
33: ; preds = %21, %29
%34 = add nuw nsw i64 %22, 1
%35 = icmp eq i64 %34, %14
br i1 %35, label %36, label %21
36: ; preds = %33
%37 = add nuw nsw i64 %16, 1
%38 = icmp eq i64 %37, %14
br i1 %38, label %39, label %15
39: ; preds = %36
%40 = icmp eq i32 %3, 1
br i1 %40, label %41, label %44
41: ; preds = %39
%42 = load double, double* %8
%43 = fdiv double 1.000000e+00, %42
store double %43, double* %0
br label %46
44: ; preds = %5, %39
%45 = tail call i32 @fast_inverse(double* %8, i32 %3, double* %0)
br label %46
46: ; preds = %44, %41
%47 = tail call i32 @free(double* %8)
ret void
}