int trinv(int n, double *u, double *c) {
  int nullty, i, j, k, ij, ik, jj, jk;
  double uii, cij;
  for (nullty = i = ij = 0; i < n; i++) {
    uii = u[ij + i];
    if (uii != 0.0) {
      for (j = jj = 0; j < i; jj += ++j + 1) {
        for (k = j, ik = ij, jk = jj, cij = 0.0; k < i; ik++, jk += ++k)
          cij += c[jk] * u[ik];
        c[ij++] = -cij / uii;
      }
      c[ij++] = 1 / uii;
    } else {
      for (j = 0; j <= i; j++, ij++)
        c[ij] = 0.0;
      nullty++;
    }
  }
  return nullty;
}


x86 assembly (clang, -O0):
<trinv>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    12bb <trinv+0x1bb>
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x20(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1164 <trinv+0x64>
jp     1164 <trinv+0x64>
jmp    1265 <trinv+0x165>
movl   $0x0,-0x34(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    123c <trinv+0x13c>
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x38(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    11ed <trinv+0xed>
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
add    -0x38(%rbp),%eax
mov    %eax,-0x38(%rbp)
jmp    1198 <trinv+0x98>
movsd  -0x48(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
divsd  -0x40(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x2c(%rbp)
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
add    $0x1,%eax
add    -0x34(%rbp),%eax
mov    %eax,-0x34(%rbp)
jmp    1172 <trinv+0x72>
movsd  0xdbc(%rip),%xmm0
divsd  -0x40(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x2c(%rbp),%ecx
mov    %ecx,%edx
add    $0x1,%edx
mov    %edx,-0x2c(%rbp)
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    12a8 <trinv+0x1a8>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x20(%rbp),%eax
jg     129f <trinv+0x19f>
mov    -0x18(%rbp),%rax
movslq -0x2c(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    126c <trinv+0x16c>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    12ad <trinv+0x1ad>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1124 <trinv+0x24>
mov    -0x1c(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<trinv>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
test   %edi,%edi
jle    1230 <trinv+0x120>
mov    %rdx,%rbx
mov    %rsi,%r14
mov    %edi,%r10d
xor    %ebp,%ebp
mov    $0x1,%r13d
xorpd  %xmm3,%xmm3
movapd 0xec0(%rip),%xmm4
xor    %r12d,%r12d
xor    %r15d,%r15d
mov    %r10,(%rsp)
jmp    118e <trinv+0x7e>
nopl   0x0(%rax)
lea    0x8(,%rbp,8),%rdx
movslq %r15d,%rcx
lea    (%rbx,%rcx,8),%rdi
xor    %esi,%esi
call   1030 <memset@plt>
movapd 0xe92(%rip),%xmm4
mov    (%rsp),%r10
xorpd  %xmm3,%xmm3
add    %r13d,%r15d
add    $0x1,%r12d
add    $0x1,%rbp
add    $0x1,%r13
cmp    %r10,%rbp
je     1233 <trinv+0x123>
lea    (%r15,%rbp,1),%ecx
movslq %ecx,%rcx
movsd  (%r14,%rcx,8),%xmm0
ucomisd %xmm3,%xmm0
jne    11a3 <trinv+0x93>
jnp    1150 <trinv+0x40>
test   %rbp,%rbp
je     1213 <trinv+0x103>
movslq %r15d,%r15
lea    (%r14,%r15,8),%rdx
xor    %r8d,%r8d
xor    %r9d,%r9d
cs nopw 0x0(%rax,%rax,1)
nop
xorpd  %xmm1,%xmm1
mov    %r8,%rsi
mov    %r9d,%edi
nopw   0x0(%rax,%rax,1)
mov    %edi,%ecx
movsd  (%rbx,%rcx,8),%xmm2
mulsd  (%rdx,%rsi,8),%xmm2
addsd  %xmm2,%xmm1
add    $0x1,%rsi
add    %esi,%edi
cmp    %rbp,%rsi
jb     11d0 <trinv+0xc0>
xorpd  %xmm4,%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%rbx,%r15,8)
add    $0x1,%r15
add    %r8d,%r9d
add    $0x2,%r9d
mov    %r8,%rcx
add    $0x1,%rcx
mov    %rcx,%r8
cmp    %rbp,%rcx
jne    11c0 <trinv+0xb0>
movsd  0xdf5(%rip),%xmm1
divsd  %xmm0,%xmm1
movslq %r15d,%rcx
add    $0x1,%r15d
movsd  %xmm1,(%rbx,%rcx,8)
jmp    117d <trinv+0x6d>
xor    %r12d,%r12d
mov    %r12d,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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