extern void _get_border(double kernel_size, double *distances, double *density,
                        int *membership, int npoints, int *border_member,
                        double *border_density) {
  int i, j, o;
  double average_density;
  for (i = 0; i < npoints - 1; ++i) {
    o = i * npoints;
    for (j = i + 1; j < npoints; ++j) {
      if ((membership[i] != membership[j]) &&
          (distances[o + j] < kernel_size)) {
        average_density = 0.5 * (density[i] + density[j]);
        if (border_density[membership[i]] < average_density)
          border_density[membership[i]] = average_density;
        if (border_density[membership[j]] < average_density)
          border_density[membership[j]] = average_density;
        border_member[i] = 1;
        border_member[j] = 1;
      }
    }
  }
}


x86 assembly (clang, -O0):
<_get_border>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %ecx,-0x24(%rbp)
mov    %r8,-0x30(%rbp)
mov    %r9,-0x38(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    127f <_get_border+0x17f>
mov    -0x3c(%rbp),%eax
imul   -0x24(%rbp),%eax
mov    %eax,-0x44(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    126c <_get_border+0x16c>
mov    -0x20(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    -0x20(%rbp),%rcx
movslq -0x40(%rbp),%rdx
cmp    (%rcx,%rdx,4),%eax
je     1259 <_get_border+0x159>
mov    -0x10(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    -0x40(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x8(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    1259 <_get_border+0x159>
mov    -0x18(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm1
movsd  0xe4a(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x38(%rbp),%rax
mov    -0x20(%rbp),%rcx
movslq -0x3c(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x50(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    11fd <_get_border+0xfd>
movsd  -0x50(%rbp),%xmm0
mov    -0x38(%rbp),%rax
mov    -0x20(%rbp),%rcx
movslq -0x3c(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%rax
mov    -0x20(%rbp),%rcx
movslq -0x40(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x50(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    123b <_get_border+0x13b>
movsd  -0x50(%rbp),%xmm0
mov    -0x38(%rbp),%rax
mov    -0x20(%rbp),%rcx
movslq -0x40(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movl   $0x1,(%rax,%rcx,4)
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
movl   $0x1,(%rax,%rcx,4)
jmp    125e <_get_border+0x15e>
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    114b <_get_border+0x4b>
jmp    1271 <_get_border+0x171>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1127 <_get_border+0x27>
pop    %rbp
ret

x86 assembly (clang, -O2):
<_get_border>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
cmp    $0x2,%ecx
jl     11db <_get_border+0xdb>
mov    %ecx,%eax
add    $0xffffffff,%ecx
add    $0x8,%rdi
lea    0x8(,%rax,8),%rbp
mov    %rbp,-0x10(%rsp)
lea    0x4(%r8),%r14
lea    0x8(%rsi),%r15
lea    0x4(%rdx),%r13
mov    %rax,-0x8(%rsp)
lea    -0x1(%rax),%rbx
xor    %r12d,%r12d
movsd  0xeb7(%rip),%xmm1
jmp    116a <_get_border+0x6a>
nopl   0x0(%rax,%rax,1)
add    -0x10(%rsp),%rdi
add    $0x4,%r14
add    $0x8,%r15
add    $0x4,%r13
add    $0xffffffffffffffff,%rbx
cmp    %rcx,%r12
je     11db <_get_border+0xdb>
mov    %r12,%rax
add    $0x1,%r12
cmp    -0x8(%rsp),%r12
jae    1150 <_get_border+0x50>
xor    %ebp,%ebp
jmp    1199 <_get_border+0x99>
nopl   0x0(%rax)
movl   $0x1,(%r8,%rax,4)
movl   $0x1,(%r14,%rbp,4)
add    $0x1,%rbp
cmp    %rbp,%rbx
je     1150 <_get_border+0x50>
movslq (%rdx,%rax,4),%r11
movslq 0x0(%r13,%rbp,4),%r10
cmp    %r10d,%r11d
je     1190 <_get_border+0x90>
ucomisd (%rdi,%rbp,8),%xmm0
jbe    1190 <_get_border+0x90>
movsd  (%rsi,%rax,8),%xmm2
addsd  (%r15,%rbp,8),%xmm2
mulsd  %xmm1,%xmm2
ucomisd (%r9,%r11,8),%xmm2
jbe    11cb <_get_border+0xcb>
movsd  %xmm2,(%r9,%r11,8)
ucomisd (%r9,%r10,8),%xmm2
jbe    1180 <_get_border+0x80>
movsd  %xmm2,(%r9,%r10,8)
jmp    1180 <_get_border+0x80>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @_get_border(double %0, double* %1, double* %2, i32* %3, i32 %4, i32* %5, double* %6) {
%8 = alloca double
%9 = alloca double*
%10 = alloca double*
%11 = alloca i32*
%12 = alloca i32
%13 = alloca i32*
%14 = alloca double*
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca double
store double %0, double* %8
store double* %1, double** %9
store double* %2, double** %10
store i32* %3, i32** %11
store i32 %4, i32* %12
store i32* %5, i32** %13
store double* %6, double** %14
store i32 0, i32* %15
br label %19
19: ; preds = %126, %7
%20 = load i32, i32* %15
%21 = load i32, i32* %12
%22 = sub nsw i32 %21, 1
%23 = icmp slt i32 %20, %22
br i1 %23, label %24, label %129
24: ; preds = %19
%25 = load i32, i32* %15
%26 = load i32, i32* %12
%27 = mul nsw i32 %25, %26
store i32 %27, i32* %17
%28 = load i32, i32* %15
%29 = add nsw i32 %28, 1
store i32 %29, i32* %16
br label %30
30: ; preds = %122, %24
%31 = load i32, i32* %16
%32 = load i32, i32* %12
%33 = icmp slt i32 %31, %32
br i1 %33, label %34, label %125
34: ; preds = %30
%35 = load i32*, i32** %11
%36 = load i32, i32* %15
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds i32, i32* %35, i64 %37
%39 = load i32, i32* %38
%40 = load i32*, i32** %11
%41 = load i32, i32* %16
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds i32, i32* %40, i64 %42
%44 = load i32, i32* %43
%45 = icmp ne i32 %39, %44
br i1 %45, label %46, label %121
46: ; preds = %34
%47 = load double*, double** %9
%48 = load i32, i32* %17
%49 = load i32, i32* %16
%50 = add nsw i32 %48, %49
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds double, double* %47, i64 %51
%53 = load double, double* %52
%54 = load double, double* %8
%55 = fcmp olt double %53, %54
br i1 %55, label %56, label %121
56: ; preds = %46
%57 = load double*, double** %10
%58 = load i32, i32* %15
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds double, double* %57, i64 %59
%61 = load double, double* %60
%62 = load double*, double** %10
%63 = load i32, i32* %16
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds double, double* %62, i64 %64
%66 = load double, double* %65
%67 = fadd double %61, %66
%68 = fmul double 5.000000e-01, %67
store double %68, double* %18
%69 = load double*, double** %14
%70 = load i32*, i32** %11
%71 = load i32, i32* %15
%72 = sext i32 %71 to i64
%73 = getelementptr inbounds i32, i32* %70, i64 %72
%74 = load i32, i32* %73
%75 = sext i32 %74 to i64
%76 = getelementptr inbounds double, double* %69, i64 %75
%77 = load double, double* %76
%78 = load double, double* %18
%79 = fcmp olt double %77, %78
br i1 %79, label %80, label %90
80: ; preds = %56
%81 = load double, double* %18
%82 = load double*, double** %14
%83 = load i32*, i32** %11
%84 = load i32, i32* %15
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds i32, i32* %83, i64 %85
%87 = load i32, i32* %86
%88 = sext i32 %87 to i64
%89 = getelementptr inbounds double, double* %82, i64 %88
store double %81, double* %89
br label %90
90: ; preds = %80, %56
%91 = load double*, double** %14
%92 = load i32*, i32** %11
%93 = load i32, i32* %16
%94 = sext i32 %93 to i64
%95 = getelementptr inbounds i32, i32* %92, i64 %94
%96 = load i32, i32* %95
%97 = sext i32 %96 to i64
%98 = getelementptr inbounds double, double* %91, i64 %97
%99 = load double, double* %98
%100 = load double, double* %18
%101 = fcmp olt double %99, %100
br i1 %101, label %102, label %112
102: ; preds = %90
%103 = load double, double* %18
%104 = load double*, double** %14
%105 = load i32*, i32** %11
%106 = load i32, i32* %16
%107 = sext i32 %106 to i64
%108 = getelementptr inbounds i32, i32* %105, i64 %107
%109 = load i32, i32* %108
%110 = sext i32 %109 to i64
%111 = getelementptr inbounds double, double* %104, i64 %110
store double %103, double* %111
br label %112
112: ; preds = %102, %90
%113 = load i32*, i32** %13
%114 = load i32, i32* %15
%115 = sext i32 %114 to i64
%116 = getelementptr inbounds i32, i32* %113, i64 %115
store i32 1, i32* %116
%117 = load i32*, i32** %13
%118 = load i32, i32* %16
%119 = sext i32 %118 to i64
%120 = getelementptr inbounds i32, i32* %117, i64 %119
store i32 1, i32* %120
br label %121
121: ; preds = %112, %46, %34
br label %122
122: ; preds = %121
%123 = load i32, i32* %16
%124 = add nsw i32 %123, 1
store i32 %124, i32* %16
br label %30
125: ; preds = %30
br label %126
126: ; preds = %125
%127 = load i32, i32* %15
%128 = add nsw i32 %127, 1
store i32 %128, i32* %15
br label %19
129: ; preds = %19
ret void
}

LLVM IR (-O2):
define void @_get_border(double %0, double* nocapture %1, double* nocapture %2, i32* nocapture %3, i32 %4, i32* nocapture writeonly %5, double* nocapture %6) {
%8 = icmp sgt i32 %4, 1
br i1 %8, label %9, label %60
9: ; preds = %7
%10 = add nsw i32 %4, -1
%11 = zext i32 %4 to i64
%12 = zext i32 %10 to i64
%13 = zext i32 %4 to i64
br label %17
14: ; preds = %57, %17
%15 = add nuw nsw i64 %19, 1
%16 = icmp eq i64 %21, %12
br i1 %16, label %60, label %17
17: ; preds = %9, %14
%18 = phi i64 [ 0, %9 ], [ %21, %14 ]
%19 = phi i64 [ 1, %9 ], [ %15, %14 ]
%20 = mul nsw i64 %18, %11
%21 = add nuw nsw i64 %18, 1
%22 = icmp ult i64 %21, %11
br i1 %22, label %23, label %14
23: ; preds = %17
%24 = getelementptr inbounds i32, i32* %3, i64 %18
%25 = getelementptr inbounds double, double* %2, i64 %18
%26 = getelementptr inbounds i32, i32* %5, i64 %18
br label %27
27: ; preds = %23, %57
%28 = phi i64 [ %19, %23 ], [ %58, %57 ]
%29 = load i32, i32* %24
%30 = getelementptr inbounds i32, i32* %3, i64 %28
%31 = load i32, i32* %30
%32 = icmp eq i32 %29, %31
br i1 %32, label %57, label %33
33: ; preds = %27
%34 = add nuw nsw i64 %28, %20
%35 = getelementptr inbounds double, double* %1, i64 %34
%36 = load double, double* %35
%37 = fcmp olt double %36, %0
br i1 %37, label %38, label %57
38: ; preds = %33
%39 = load double, double* %25
%40 = getelementptr inbounds double, double* %2, i64 %28
%41 = load double, double* %40
%42 = fadd double %39, %41
%43 = fmul double %42, 5.000000e-01
%44 = sext i32 %29 to i64
%45 = getelementptr inbounds double, double* %6, i64 %44
%46 = load double, double* %45
%47 = fcmp olt double %46, %43
br i1 %47, label %48, label %49
48: ; preds = %38
store double %43, double* %45
br label %49
49: ; preds = %48, %38
%50 = sext i32 %31 to i64
%51 = getelementptr inbounds double, double* %6, i64 %50
%52 = load double, double* %51
%53 = fcmp olt double %52, %43
br i1 %53, label %54, label %55
54: ; preds = %49
store double %43, double* %51
br label %55
55: ; preds = %54, %49
store i32 1, i32* %26
%56 = getelementptr inbounds i32, i32* %5, i64 %28
store i32 1, i32* %56
br label %57
57: ; preds = %27, %33, %55
%58 = add nuw nsw i64 %28, 1
%59 = icmp eq i64 %58, %13
br i1 %59, label %14, label %27
60: ; preds = %14, %7
ret void
}