#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 sqrt(double);
void choldc_sparse_neardiag(double **a, int N, int *Nvec, double *p) {
  int i, j, k;
  double sum;
  for (i = 0; i < N; i++) {
    for (j = i; j < N; j++) {
      if (a[i][j] == 0.) {
        sum = 0;
        break;
      }
      for (sum = a[i][j], k = i - 1; k >= 0; k--) {
        if (Nvec[k] < i || Nvec[k] < j) {
          break;
        } else {
          sum -= a[i][k] * a[j][k];
        }
      }
      if (i == j) {
        if (sum <= 0.) {
          sum = 1.e-99;
        }
        p[i] = sqrt(sum);
      } else
        a[j][i] = sum / p[i];
    }
    Nvec[i] = j;
    if (j < N)
      a[j][i] = 0.0;
  }
}


x86 assembly (clang, -O0):
<choldc_sparse_neardiag>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1303 <choldc_sparse_neardiag+0x1f3>
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    12be <choldc_sparse_neardiag+0x1ae>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1181 <choldc_sparse_neardiag+0x71>
jp     1181 <choldc_sparse_neardiag+0x71>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
jmp    12be <choldc_sparse_neardiag+0x1ae>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x24(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jl     1241 <choldc_sparse_neardiag+0x131>
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
cmp    -0x24(%rbp),%eax
jl     11d6 <choldc_sparse_neardiag+0xc6>
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
cmp    -0x28(%rbp),%eax
jge    11db <choldc_sparse_neardiag+0xcb>
jmp    1241 <choldc_sparse_neardiag+0x131>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x38(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
jmp    1233 <choldc_sparse_neardiag+0x123>
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
jmp    11a4 <choldc_sparse_neardiag+0x94>
mov    -0x24(%rbp),%eax
cmp    -0x28(%rbp),%eax
jne    1284 <choldc_sparse_neardiag+0x174>
xorps  %xmm0,%xmm0
ucomisd -0x38(%rbp),%xmm0
jb     1268 <choldc_sparse_neardiag+0x158>
movsd  0xd9d(%rip),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
call   1030 <sqrt@plt>
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    12ab <choldc_sparse_neardiag+0x19b>
movsd  -0x38(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    12b0 <choldc_sparse_neardiag+0x1a0>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1140 <choldc_sparse_neardiag+0x30>
mov    -0x28(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    12f0 <choldc_sparse_neardiag+0x1e0>
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
jmp    12f5 <choldc_sparse_neardiag+0x1e5>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    112e <choldc_sparse_neardiag+0x1e>
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<choldc_sparse_neardiag>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %esi,0xc(%rsp)
test   %esi,%esi
jle    126d <choldc_sparse_neardiag+0x15d>
mov    %rcx,%r13
mov    %rdx,%rbx
mov    %rdi,%rbp
mov    0xc(%rsp),%r9d
mov    $0x1,%r12d
xor    %r14d,%r14d
xorpd  %xmm2,%xmm2
movsd  0xeb3(%rip),%xmm3
mov    %r9,0x10(%rsp)
jmp    1185 <choldc_sparse_neardiag+0x75>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r15d,(%rbx,%r14,4)
mov    %r15d,%eax
mov    0x0(%rbp,%rax,8),%rax
movq   $0x0,(%rax,%r14,8)
add    $0x1,%r14
add    $0x1,%r12
cmp    %r9,%r14
je     126d <choldc_sparse_neardiag+0x15d>
mov    %r14,%r15
jmp    11af <choldc_sparse_neardiag+0x9f>
nopw   0x0(%rax,%rax,1)
divsd  0x0(%r13,%r14,8),%xmm1
mov    0x0(%rbp,%r15,8),%rax
movsd  %xmm1,(%rax,%r14,8)
add    $0x1,%r15
cmp    %r9,%r15
je     1260 <choldc_sparse_neardiag+0x150>
mov    0x0(%rbp,%r14,8),%rax
movsd  (%rax,%r15,8),%xmm1
ucomisd %xmm2,%xmm1
jne    11c2 <choldc_sparse_neardiag+0xb2>
jnp    1160 <choldc_sparse_neardiag+0x50>
test   %r14,%r14
je     11fe <choldc_sparse_neardiag+0xee>
mov    %r12,%rdi
nopw   0x0(%rax,%rax,1)
lea    -0x2(%rdi),%edx
movslq (%rbx,%rdx,4),%rsi
cmp    %rsi,%r14
jg     11fe <choldc_sparse_neardiag+0xee>
cmp    %rsi,%r15
jg     11fe <choldc_sparse_neardiag+0xee>
movsd  (%rax,%rdx,8),%xmm0
mov    0x0(%rbp,%r15,8),%rsi
mulsd  (%rsi,%rdx,8),%xmm0
subsd  %xmm0,%xmm1
add    $0xffffffffffffffff,%rdi
cmp    $0x1,%rdi
jg     11d0 <choldc_sparse_neardiag+0xc0>
cmp    %r15,%r14
jne    1190 <choldc_sparse_neardiag+0x80>
movapd %xmm1,%xmm0
cmpnlesd %xmm2,%xmm0
andpd  %xmm0,%xmm1
andnpd %xmm3,%xmm0
orpd   %xmm1,%xmm0
ucomisd %xmm2,%xmm0
jb     1230 <choldc_sparse_neardiag+0x120>
sqrtsd %xmm0,%xmm0
movsd  %xmm0,0x0(%r13,%r14,8)
jmp    11a2 <choldc_sparse_neardiag+0x92>
xchg   %ax,%ax
call   1030 <sqrt@plt>
movsd  0xdc3(%rip),%xmm3
xorpd  %xmm2,%xmm2
mov    0x10(%rsp),%r9
movsd  %xmm0,0x0(%r13,%r14,8)
jmp    11a2 <choldc_sparse_neardiag+0x92>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    0xc(%rsp),%eax
mov    %eax,(%rbx,%r14,4)
jmp    1174 <choldc_sparse_neardiag+0x64>
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @choldc_sparse_neardiag(double** %0, i32 %1, i32* %2, double* %3) {
%5 = alloca double**
%6 = alloca i32
%7 = alloca i32*
%8 = alloca double*
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca double
store double** %0, double*** %5
store i32 %1, i32* %6
store i32* %2, i32** %7
store double* %3, double** %8
store i32 0, i32* %9
br label %13
13: ; preds = %147, %4
%14 = load i32, i32* %9
%15 = load i32, i32* %6
%16 = icmp slt i32 %14, %15
br i1 %16, label %17, label %150
17: ; preds = %13
%18 = load i32, i32* %9
store i32 %18, i32* %10
br label %19
19: ; preds = %125, %17
%20 = load i32, i32* %10
%21 = load i32, i32* %6
%22 = icmp slt i32 %20, %21
br i1 %22, label %23, label %128
23: ; preds = %19
%24 = load double**, double*** %5
%25 = load i32, i32* %9
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds double*, double** %24, i64 %26
%28 = load double*, double** %27
%29 = load i32, i32* %10
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds double, double* %28, i64 %30
%32 = load double, double* %31
%33 = fcmp oeq double %32, 0.000000e+00
br i1 %33, label %34, label %35
34: ; preds = %23
store double 0.000000e+00, double* %12
br label %128
35: ; preds = %23
%36 = load double**, double*** %5
%37 = load i32, i32* %9
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds double*, double** %36, i64 %38
%40 = load double*, double** %39
%41 = load i32, i32* %10
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds double, double* %40, i64 %42
%44 = load double, double* %43
store double %44, double* %12
%45 = load i32, i32* %9
%46 = sub nsw i32 %45, 1
store i32 %46, i32* %11
br label %47
47: ; preds = %90, %35
%48 = load i32, i32* %11
%49 = icmp sge i32 %48, 0
br i1 %49, label %50, label %93
50: ; preds = %47
%51 = load i32*, i32** %7
%52 = load i32, i32* %11
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds i32, i32* %51, i64 %53
%55 = load i32, i32* %54
%56 = load i32, i32* %9
%57 = icmp slt i32 %55, %56
br i1 %57, label %66, label %58
58: ; preds = %50
%59 = load i32*, i32** %7
%60 = load i32, i32* %11
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds i32, i32* %59, i64 %61
%63 = load i32, i32* %62
%64 = load i32, i32* %10
%65 = icmp slt i32 %63, %64
br i1 %65, label %66, label %67
66: ; preds = %58, %50
br label %93
67: ; preds = %58
%68 = load double**, double*** %5
%69 = load i32, i32* %9
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds double*, double** %68, i64 %70
%72 = load double*, double** %71
%73 = load i32, i32* %11
%74 = sext i32 %73 to i64
%75 = getelementptr inbounds double, double* %72, i64 %74
%76 = load double, double* %75
%77 = load double**, double*** %5
%78 = load i32, i32* %10
%79 = sext i32 %78 to i64
%80 = getelementptr inbounds double*, double** %77, i64 %79
%81 = load double*, double** %80
%82 = load i32, i32* %11
%83 = sext i32 %82 to i64
%84 = getelementptr inbounds double, double* %81, i64 %83
%85 = load double, double* %84
%86 = load double, double* %12
%87 = fneg double %76
%88 = call double @llvm.fmuladd.f64(double %87, double %85, double %86)
store double %88, double* %12
br label %89
89: ; preds = %67
br label %90
90: ; preds = %89
%91 = load i32, i32* %11
%92 = add nsw i32 %91, -1
store i32 %92, i32* %11
br label %47
93: ; preds = %66, %47
%94 = load i32, i32* %9
%95 = load i32, i32* %10
%96 = icmp eq i32 %94, %95
br i1 %96, label %97, label %108
97: ; preds = %93
%98 = load double, double* %12
%99 = fcmp ole double %98, 0.000000e+00
br i1 %99, label %100, label %101
100: ; preds = %97
store double 1.000000e-99, double* %12
br label %101
101: ; preds = %100, %97
%102 = load double, double* %12
%103 = call double @sqrt(double %102)
%104 = load double*, double** %8
%105 = load i32, i32* %9
%106 = sext i32 %105 to i64
%107 = getelementptr inbounds double, double* %104, i64 %106
store double %103, double* %107
br label %124
108: ; preds = %93
%109 = load double, double* %12
%110 = load double*, double** %8
%111 = load i32, i32* %9
%112 = sext i32 %111 to i64
%113 = getelementptr inbounds double, double* %110, i64 %112
%114 = load double, double* %113
%115 = fdiv double %109, %114
%116 = load double**, double*** %5
%117 = load i32, i32* %10
%118 = sext i32 %117 to i64
%119 = getelementptr inbounds double*, double** %116, i64 %118
%120 = load double*, double** %119
%121 = load i32, i32* %9
%122 = sext i32 %121 to i64
%123 = getelementptr inbounds double, double* %120, i64 %122
store double %115, double* %123
br label %124
124: ; preds = %108, %101
br label %125
125: ; preds = %124
%126 = load i32, i32* %10
%127 = add nsw i32 %126, 1
store i32 %127, i32* %10
br label %19
128: ; preds = %34, %19
%129 = load i32, i32* %10
%130 = load i32*, i32** %7
%131 = load i32, i32* %9
%132 = sext i32 %131 to i64
%133 = getelementptr inbounds i32, i32* %130, i64 %132
store i32 %129, i32* %133
%134 = load i32, i32* %10
%135 = load i32, i32* %6
%136 = icmp slt i32 %134, %135
br i1 %136, label %137, label %146
137: ; preds = %128
%138 = load double**, double*** %5
%139 = load i32, i32* %10
%140 = sext i32 %139 to i64
%141 = getelementptr inbounds double*, double** %138, i64 %140
%142 = load double*, double** %141
%143 = load i32, i32* %9
%144 = sext i32 %143 to i64
%145 = getelementptr inbounds double, double* %142, i64 %144
store double 0.000000e+00, double* %145
br label %146
146: ; preds = %137, %128
br label %147
147: ; preds = %146
%148 = load i32, i32* %9
%149 = add nsw i32 %148, 1
store i32 %149, i32* %9
br label %13
150: ; preds = %13
ret void
}

LLVM IR (-O2):
define void @choldc_sparse_neardiag(double** nocapture %0, i32 %1, i32* nocapture %2, double* nocapture %3) {
%5 = icmp sgt i32 %1, 0
br i1 %5, label %6, label %70
6: ; preds = %4
%7 = zext i32 %1 to i64
br label %8
8: ; preds = %67, %6
%9 = phi i64 [ 0, %6 ], [ %68, %67 ]
%10 = getelementptr inbounds double*, double** %0, i64 %9
%11 = icmp eq i64 %9, 0
%12 = getelementptr inbounds double, double* %3, i64 %9
br label %13
13: ; preds = %8, %55
%14 = phi i64 [ %9, %8 ], [ %56, %55 ]
%15 = load double*, double** %10
%16 = getelementptr inbounds double, double* %15, i64 %14
%17 = load double, double* %16
%18 = fcmp oeq double %17, 0.000000e+00
br i1 %18, label %60, label %19
19: ; preds = %13
br i1 %11, label %42, label %20
20: ; preds = %19
%21 = getelementptr inbounds double*, double** %0, i64 %14
br label %22
22: ; preds = %20, %33
%23 = phi i64 [ %9, %20 ], [ %25, %33 ]
%24 = phi double [ %17, %20 ], [ %40, %33 ]
%25 = add nsw i64 %23, -1
%26 = and i64 %25, 4294967295
%27 = getelementptr inbounds i32, i32* %2, i64 %26
%28 = load i32, i32* %27
%29 = sext i32 %28 to i64
%30 = icmp sgt i64 %9, %29
%31 = icmp sgt i64 %14, %29
%32 = select i1 %30, i1 true, i1 %31
br i1 %32, label %42, label %33
33: ; preds = %22
%34 = getelementptr inbounds double, double* %15, i64 %26
%35 = load double, double* %34
%36 = load double*, double** %21
%37 = getelementptr inbounds double, double* %36, i64 %26
%38 = load double, double* %37
%39 = fneg double %35
%40 = tail call double @llvm.fmuladd.f64(double %39, double %38, double %24)
%41 = icmp sgt i64 %23, 1
br i1 %41, label %22, label %42
42: ; preds = %33, %22, %19
%43 = phi double [ %17, %19 ], [ %24, %22 ], [ %40, %33 ]
%44 = icmp eq i64 %9, %14
br i1 %44, label %45, label %49
45: ; preds = %42
%46 = fcmp ugt double %43, 0.000000e+00
%47 = select i1 %46, double %43, double 1.000000e-99
%48 = tail call double @sqrt(double %47)
store double %48, double* %12
br label %55
49: ; preds = %42
%50 = load double, double* %12
%51 = fdiv double %43, %50
%52 = getelementptr inbounds double*, double** %0, i64 %14
%53 = load double*, double** %52
%54 = getelementptr inbounds double, double* %53, i64 %9
store double %51, double* %54
br label %55
55: ; preds = %45, %49
%56 = add nuw nsw i64 %14, 1
%57 = icmp eq i64 %56, %7
br i1 %57, label %58, label %13
58: ; preds = %55
%59 = getelementptr inbounds i32, i32* %2, i64 %9
store i32 %1, i32* %59
br label %67
60: ; preds = %13
%61 = trunc i64 %14 to i32
%62 = getelementptr inbounds i32, i32* %2, i64 %9
store i32 %61, i32* %62
%63 = and i64 %14, 4294967295
%64 = getelementptr inbounds double*, double** %0, i64 %63
%65 = load double*, double** %64
%66 = getelementptr inbounds double, double* %65, i64 %9
store double 0.000000e+00, double* %66
br label %67
67: ; preds = %58, %60
%68 = add nuw nsw i64 %9, 1
%69 = icmp eq i64 %68, %7
br i1 %69, label %70, label %8
70: ; preds = %67, %4
ret void
}