void hc_lubksb_3x3(a, n, indx, b) double a[3][3];
int n;
int *indx;
double *b;
{
  int i, ii = 0, ip, j;
  double sum;
  int nm1;
  nm1 = n - 1;
  for (i = 0; i < n; i++) {
    ip = indx[i];
    sum = b[ip];
    b[ip] = b[i];
    if (ii)
      for (j = ii - 1; j <= i - 1; j++)
        sum -= a[i][j] * b[j];
    else if (fabs(sum) > 3e-16)
      ii = i + 1;
    b[i] = sum;
  }
  for (i = nm1; i >= 0; i--) {
    sum = b[i];
    for (j = i + 1; j < n; j++)
      sum -= a[i][j] * b[j];
    b[i] = sum / a[i][i];
  }
}


x86 assembly (clang, -O0):
<hc_lubksb_3x3>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0xc(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x3c(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1245 <hc_lubksb_3x3+0x145>
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
cmpl   $0x0,-0x28(%rbp)
je     11f5 <hc_lubksb_3x3+0xf5>
mov    -0x28(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     11f0 <hc_lubksb_3x3+0xf0>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
imul   $0x18,%rcx,%rcx
add    %rcx,%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x30(%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)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1183 <hc_lubksb_3x3+0x83>
jmp    1225 <hc_lubksb_3x3+0x125>
movsd  -0x38(%rbp),%xmm0
movaps 0xe0f(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  0xdf3(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    1220 <hc_lubksb_3x3+0x120>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1225 <hc_lubksb_3x3+0x125>
movsd  -0x38(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    112a <hc_lubksb_3x3+0x2a>
mov    -0x3c(%rbp),%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
jl     1310 <hc_lubksb_3x3+0x210>
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    12d8 <hc_lubksb_3x3+0x1d8>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
imul   $0x18,%rcx,%rcx
add    %rcx,%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x30(%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)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1270 <hc_lubksb_3x3+0x170>
movsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
imul   $0x18,%rcx,%rcx
add    %rcx,%rax
movslq -0x24(%rbp),%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
jmp    124b <hc_lubksb_3x3+0x14b>
pop    %rbp
ret

x86 assembly (clang, -O2):
<hc_lubksb_3x3>:
push   %r14
push   %rbx
test   %esi,%esi
jle    126c <hc_lubksb_3x3+0x16c>
mov    %esi,%r10d
xor    %r11d,%r11d
movapd 0xee7(%rip),%xmm0
movsd  0xeef(%rip),%xmm1
mov    %rdi,%r8
xor    %r9d,%r9d
jmp    1143 <hc_lubksb_3x3+0x43>
nopl   0x0(%rax)
movsd  %xmm2,(%rcx,%r11,8)
add    $0x1,%r11
add    $0x18,%r8
cmp    %r10,%r11
je     11a7 <hc_lubksb_3x3+0xa7>
movslq (%rdx,%r11,4),%rbx
movsd  (%rcx,%rbx,8),%xmm2
movsd  (%rcx,%r11,8),%xmm3
movsd  %xmm3,(%rcx,%rbx,8)
test   %r9d,%r9d
je     1190 <hc_lubksb_3x3+0x90>
movslq %r9d,%rbx
cmp    %rbx,%r11
jl     1130 <hc_lubksb_3x3+0x30>
lea    -0x1(%r9),%ebx
movslq %ebx,%rbx
add    $0x1,%rbx
nop
movsd  -0x8(%r8,%rbx,8),%xmm3
mulsd  -0x8(%rcx,%rbx,8),%xmm3
subsd  %xmm3,%xmm2
mov    %ebx,%eax
add    $0x1,%rbx
cmp    %r11,%rax
jne    1170 <hc_lubksb_3x3+0x70>
jmp    1130 <hc_lubksb_3x3+0x30>
xchg   %ax,%ax
movapd %xmm2,%xmm3
andpd  %xmm0,%xmm3
xor    %r9d,%r9d
ucomisd %xmm1,%xmm3
jbe    1130 <hc_lubksb_3x3+0x30>
lea    0x1(%r11),%r9d
jmp    1130 <hc_lubksb_3x3+0x30>
test   %esi,%esi
jle    126c <hc_lubksb_3x3+0x16c>
lea    0x8(%rdi),%r8
add    $0xffffffff,%esi
xor    %edx,%edx
mov    %r10,%r9
jmp    11e4 <hc_lubksb_3x3+0xe4>
nopl   (%rax)
lea    (%r14,%r14,2),%rax
lea    (%rdi,%rax,8),%rax
divsd  (%rax,%r14,8),%xmm0
movsd  %xmm0,(%rcx,%r14,8)
add    $0x1,%edx
add    $0xffffffff,%esi
cmp    $0x1,%r11
jle    126c <hc_lubksb_3x3+0x16c>
mov    %r9,%r11
add    $0xffffffffffffffff,%r9
mov    %r9d,%r14d
movsd  (%rcx,%r14,8),%xmm0
cmp    %r10,%r11
jge    11c0 <hc_lubksb_3x3+0xc0>
test   $0x1,%dl
jne    1210 <hc_lubksb_3x3+0x110>
mov    %r11,%rbx
cmp    $0x1,%edx
je     11c0 <hc_lubksb_3x3+0xc0>
jmp    1231 <hc_lubksb_3x3+0x131>
nopl   0x0(%rax,%rax,1)
lea    (%r14,%r14,2),%rax
lea    (%rdi,%rax,8),%rax
movsd  (%rax,%r11,8),%xmm1
mulsd  (%rcx,%r11,8),%xmm1
subsd  %xmm1,%xmm0
lea    0x1(%r11),%rbx
cmp    $0x1,%edx
je     11c0 <hc_lubksb_3x3+0xc0>
mov    %esi,%eax
lea    (%rax,%rax,2),%rax
lea    (%r8,%rax,8),%rax
nopl   0x0(%rax,%rax,1)
movsd  -0x8(%rax,%rbx,8),%xmm1
movsd  (%rax,%rbx,8),%xmm2
mulsd  (%rcx,%rbx,8),%xmm1
mulsd  0x8(%rcx,%rbx,8),%xmm2
subsd  %xmm1,%xmm0
subsd  %xmm2,%xmm0
add    $0x2,%rbx
cmp    %ebx,%r10d
jne    1240 <hc_lubksb_3x3+0x140>
jmp    11c0 <hc_lubksb_3x3+0xc0>
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
define void @hc_lubksb_3x3([3 x double]* nocapture %0, i32 %1, i32* nocapture %2, double* nocapture %3) {
%5 = icmp sgt i32 %1, 0
br i1 %5, label %6, label %104
6: ; preds = %4
%7 = zext i32 %1 to i64
br label %12
8: ; preds = %47
br i1 %5, label %9, label %104
9: ; preds = %8
%10 = zext i32 %1 to i64
%11 = zext i32 %1 to i64
br label %52
12: ; preds = %6, %47
%13 = phi i64 [ 0, %6 ], [ %50, %47 ]
%14 = phi i32 [ 0, %6 ], [ %48, %47 ]
%15 = getelementptr inbounds i32, i32* %2, i64 %13
%16 = load i32, i32* %15
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds double, double* %3, i64 %17
%19 = load double, double* %18
%20 = getelementptr inbounds double, double* %3, i64 %13
%21 = load double, double* %20
store double %21, double* %18
%22 = icmp eq i32 %14, 0
br i1 %22, label %41, label %23
23: ; preds = %12
%24 = sext i32 %14 to i64
%25 = icmp slt i64 %13, %24
br i1 %25, label %47, label %26
26: ; preds = %23
%27 = add i32 %14, -1
%28 = sext i32 %27 to i64
br label %29
29: ; preds = %26, %29
%30 = phi i64 [ %28, %26 ], [ %38, %29 ]
%31 = phi double [ %19, %26 ], [ %37, %29 ]
%32 = getelementptr inbounds [3 x double], [3 x double]* %0, i64 %13, i64 %30
%33 = load double, double* %32
%34 = getelementptr inbounds double, double* %3, i64 %30
%35 = load double, double* %34
%36 = fneg double %33
%37 = tail call double @llvm.fmuladd.f64(double %36, double %35, double %31)
%38 = add nsw i64 %30, 1
%39 = and i64 %38, 4294967295
%40 = icmp eq i64 %39, %13
br i1 %40, label %47, label %29
41: ; preds = %12
%42 = tail call double @llvm.fabs.f64(double %19)
%43 = fcmp ogt double %42, 3.000000e-16
br i1 %43, label %44, label %47
44: ; preds = %41
%45 = trunc i64 %13 to i32
%46 = add i32 %45, 1
br label %47
47: ; preds = %29, %23, %41, %44
%48 = phi i32 [ %46, %44 ], [ 0, %41 ], [ %14, %23 ], [ %14, %29 ]
%49 = phi double [ %19, %44 ], [ %19, %41 ], [ %19, %23 ], [ %37, %29 ]
store double %49, double* %20
%50 = add nuw nsw i64 %13, 1
%51 = icmp eq i64 %50, %7
br i1 %51, label %8, label %12
52: ; preds = %9, %96
%53 = phi i32 [ 0, %9 ], [ %103, %96 ]
%54 = phi i64 [ %11, %9 ], [ %102, %96 ]
%55 = phi i64 [ %10, %9 ], [ %56, %96 ]
%56 = add nsw i64 %55, -1
%57 = and i64 %56, 4294967295
%58 = getelementptr inbounds double, double* %3, i64 %57
%59 = load double, double* %58
%60 = icmp slt i64 %54, %10
br i1 %60, label %61, label %96
61: ; preds = %52
%62 = and i32 %53, 1
%63 = icmp eq i32 %62, 0
br i1 %63, label %72, label %64
64: ; preds = %61
%65 = getelementptr inbounds [3 x double], [3 x double]* %0, i64 %57, i64 %55
%66 = load double, double* %65
%67 = getelementptr inbounds double, double* %3, i64 %55
%68 = load double, double* %67
%69 = fneg double %66
%70 = tail call double @llvm.fmuladd.f64(double %69, double %68, double %59)
%71 = add nsw i64 %55, 1
br label %72
72: ; preds = %64, %61
%73 = phi double [ undef, %61 ], [ %70, %64 ]
%74 = phi i64 [ %55, %61 ], [ %71, %64 ]
%75 = phi double [ %59, %61 ], [ %70, %64 ]
%76 = icmp eq i32 %53, 1
br i1 %76, label %96, label %77
77: ; preds = %72, %77
%78 = phi i64 [ %93, %77 ], [ %74, %72 ]
%79 = phi double [ %92, %77 ], [ %75, %72 ]
%80 = getelementptr inbounds [3 x double], [3 x double]* %0, i64 %57, i64 %78
%81 = load double, double* %80
%82 = getelementptr inbounds double, double* %3, i64 %78
%83 = load double, double* %82
%84 = fneg double %81
%85 = tail call double @llvm.fmuladd.f64(double %84, double %83, double %79)
%86 = add nsw i64 %78, 1
%87 = getelementptr inbounds [3 x double], [3 x double]* %0, i64 %57, i64 %86
%88 = load double, double* %87
%89 = getelementptr inbounds double, double* %3, i64 %86
%90 = load double, double* %89
%91 = fneg double %88
%92 = tail call double @llvm.fmuladd.f64(double %91, double %90, double %85)
%93 = add nsw i64 %78, 2
%94 = trunc i64 %93 to i32
%95 = icmp eq i32 %94, %1
br i1 %95, label %96, label %77
96: ; preds = %72, %77, %52
%97 = phi double [ %59, %52 ], [ %73, %72 ], [ %92, %77 ]
%98 = getelementptr inbounds [3 x double], [3 x double]* %0, i64 %57, i64 %57
%99 = load double, double* %98
%100 = fdiv double %97, %99
store double %100, double* %58
%101 = icmp sgt i64 %54, 1
%102 = add nsw i64 %54, -1
%103 = add i32 %53, 1
br i1 %101, label %52, label %104
104: ; preds = %96, %4, %8
ret void
}