void perm_tri_square(const double *L, double *H, const int *P, const int n) {
  int r, c, i, r_, c_, i_;
  for (c = 0; c < n; c++) {
    for (r = 0; r <= c; r++) {
      c_ = P[c];
      r_ = P[r];
      if (r_ > c_) {
        i_ = r_;
        r_ = c_;
        c_ = i_;
      }
      H[(((c_) * ((c_) + 1)) / 2 + (r_))] = 0.0;
      for (i = 0; i <= r; i++)
        H[(((c_) * ((c_) + 1)) / 2 + (r_))] +=
            L[(((c) * ((c) + 1)) / 2 + (i))] * L[(((r) * ((r) + 1)) / 2 + (i))];
    }
  }
}


x86 assembly (clang, -O0):
<perm_tri_square>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    127e <perm_tri_square+0x17e>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x24(%rbp),%eax
jg     126b <perm_tri_square+0x16b>
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x30(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x30(%rbp),%eax
jle    1173 <perm_tri_square+0x73>
mov    -0x2c(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x30(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x30(%rbp),%eax
mov    -0x30(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x40(%rbp),%rax
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x20(%rbp),%eax
jg     1258 <perm_tri_square+0x158>
mov    -0x8(%rbp),%rax
mov    %rax,-0x58(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x58(%rbp),%rax
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x20(%rbp),%eax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x50(%rbp),%rax
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x10(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x30(%rbp),%eax
mov    -0x30(%rbp),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x48(%rbp),%rax
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    11aa <perm_tri_square+0xaa>
jmp    125d <perm_tri_square+0x15d>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    112d <perm_tri_square+0x2d>
jmp    1270 <perm_tri_square+0x170>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    111a <perm_tri_square+0x1a>
pop    %rbp
ret

x86 assembly (clang, -O2):
<perm_tri_square>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rdx,-0x30(%rsp)
mov    %rdi,-0x40(%rsp)
test   %ecx,%ecx
jle    12b6 <perm_tri_square+0x1b6>
mov    %ecx,%eax
mov    %rax,-0x28(%rsp)
mov    -0x40(%rsp),%rax
add    $0x8,%rax
mov    %rax,-0x38(%rsp)
mov    $0x1,%edx
mov    $0x2,%eax
xor    %ecx,%ecx
xor    %edi,%edi
jmp    1175 <perm_tri_square+0x75>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x1,%rdx
mov    -0x10(%rsp),%rax
mov    -0x18(%rsp),%rcx
add    %rax,%rcx
add    $0x2,%rax
mov    -0x20(%rsp),%rdi
cmp    -0x28(%rsp),%rdi
je     12b6 <perm_tri_square+0x1b6>
mov    %rax,-0x10(%rsp)
mov    %rcx,-0x18(%rsp)
mov    %ecx,%eax
and    $0xfffffffe,%eax
mov    -0x38(%rsp),%rcx
lea    (%rcx,%rax,4),%rcx
mov    -0x30(%rsp),%rax
mov    (%rax,%rdi,4),%r13d
lea    0x1(%rdi),%rax
mov    %rax,-0x20(%rsp)
imul   %eax,%edi
shr    %edi
mov    %rdi,-0x8(%rsp)
xor    %r14d,%r14d
mov    $0x2,%r12d
xor    %r8d,%r8d
mov    $0x1,%r15d
jmp    11d7 <perm_tri_square+0xd7>
nopl   (%rax)
add    $0x1,%r15
add    %r12,%r14
add    $0x2,%r12
mov    %r10,%r8
cmp    %rdx,%r10
je     1150 <perm_tri_square+0x50>
mov    -0x30(%rsp),%rax
mov    (%rax,%r8,4),%ebp
cmp    %r13d,%ebp
mov    %ebp,%ebx
cmovg  %r13d,%ebx
cmovle %r13d,%ebp
lea    0x1(%rbp),%edi
imul   %ebp,%edi
mov    %edi,%eax
shr    $0x1f,%eax
add    %edi,%eax
sar    %eax
add    %ebx,%eax
movslq %eax,%r11
movq   $0x0,(%rsi,%r11,8)
test   %r8,%r8
je     1270 <perm_tri_square+0x170>
mov    %r14d,%eax
and    $0xfffffffe,%eax
mov    -0x38(%rsp),%rdi
lea    (%rdi,%rax,4),%rbx
mov    %r15,%rbp
and    $0xfffffffffffffffe,%rbp
xorpd  %xmm0,%xmm0
xor    %r9d,%r9d
nopl   0x0(%rax,%rax,1)
movsd  -0x8(%rcx,%r9,8),%xmm1
mulsd  -0x8(%rbx,%r9,8),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%r11,8)
movsd  (%rcx,%r9,8),%xmm0
mulsd  (%rbx,%r9,8),%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rsi,%r11,8)
add    $0x2,%r9
cmp    %r9,%rbp
jne    1230 <perm_tri_square+0x130>
jmp    1277 <perm_tri_square+0x177>
nopl   0x0(%rax)
xorpd  %xmm0,%xmm0
xor    %r9d,%r9d
lea    0x1(%r8),%r10
test   $0x1,%r15b
je     11c0 <perm_tri_square+0xc0>
imul   %r10d,%r8d
shr    %r8d
mov    -0x8(%rsp),%rax
add    %r9,%rax
mov    -0x40(%rsp),%rdi
movsd  (%rdi,%rax,8),%xmm1
add    %r9,%r8
mulsd  (%rdi,%r8,8),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%r11,8)
jmp    11c0 <perm_tri_square+0xc0>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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