void red(int iz1, int iz2, int jz1, int jz2, int jm1, int jm2, int jmf, int ic1,
         int jc1, int jcf, int kc, float ***c, float **s) {
  int loff, l, j, ic, i;
  float vx;
  loff = jc1 - jm1;
  ic = ic1;
  for (j = jz1; j <= jz2; j++) {
    for (l = jm1; l <= jm2; l++) {
      vx = c[ic][l + loff][kc];
      for (i = iz1; i <= iz2; i++)
        s[i][l] -= s[i][j] * vx;
    }
    vx = c[ic][jcf][kc];
    for (i = iz1; i <= iz2; i++)
      s[i][jmf] -= s[i][j] * vx;
    ic += 1;
  }
}


x86 assembly (clang, -O0):
<red>:
push   %rbp
mov    %rsp,%rbp
mov    0x40(%rbp),%rax
mov    0x38(%rbp),%rax
mov    0x30(%rbp),%eax
mov    0x28(%rbp),%eax
mov    0x20(%rbp),%eax
mov    0x18(%rbp),%eax
mov    0x10(%rbp),%eax
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %ecx,-0x10(%rbp)
mov    %r8d,-0x14(%rbp)
mov    %r9d,-0x18(%rbp)
mov    0x20(%rbp),%eax
sub    -0x14(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    0x18(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     12a9 <red+0x1a9>
mov    -0x14(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x18(%rbp),%eax
jg     1206 <red+0x106>
mov    0x38(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x20(%rbp),%ecx
add    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
movslq 0x30(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x30(%rbp)
mov    -0x4(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jg     11f3 <red+0xf3>
mov    0x40(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  -0x30(%rbp),%xmm2
mov    0x40(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x20(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
movd   %xmm0,%edx
xor    $0x80000000,%edx
movd   %edx,%xmm0
mulss  %xmm2,%xmm0
addss  %xmm1,%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    118f <red+0x8f>
jmp    11f8 <red+0xf8>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1156 <red+0x56>
mov    0x38(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq 0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq 0x30(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x30(%rbp)
mov    -0x4(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jg     1292 <red+0x192>
mov    0x40(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  -0x30(%rbp),%xmm2
mov    0x40(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq 0x10(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
movd   %xmm0,%edx
xor    $0x80000000,%edx
movd   %edx,%xmm0
mulss  %xmm2,%xmm0
addss  %xmm1,%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    122e <red+0x12e>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1144 <red+0x44>
pop    %rbp
ret

x86 assembly (clang, -O2):
<red>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r9,-0x30(%rsp)
mov    %r8d,-0x34(%rsp)
mov    %ecx,-0x38(%rsp)
cmp    %ecx,%edx
jle    1127 <red+0x27>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    0x68(%rsp),%rax
mov    0x48(%rsp),%ecx
mov    -0x34(%rsp),%ebp
sub    %ebp,%ecx
movslq 0x58(%rsp),%r11
movslq 0x50(%rsp),%rbx
mov    %rbx,-0x18(%rsp)
movslq 0x38(%rsp),%rbx
movslq %edi,%r9
movslq %ebp,%rbp
mov    %rbp,-0x20(%rsp)
movslq %ecx,%rcx
mov    %rcx,-0x8(%rsp)
mov    -0x30(%rsp),%rcx
lea    0x1(%rcx),%r13d
movslq 0x40(%rsp),%rbp
movslq %edx,%rdx
addl   $0x1,-0x38(%rsp)
lea    0x1(%rsi),%r14d
mov    %r14d,%r12d
sub    %r9d,%r12d
mov    %esi,%r10d
sub    %r9d,%r10d
lea    0x1(%r9),%rcx
mov    %rcx,-0x28(%rsp)
jmp    11a7 <red+0xa7>
xchg   %ax,%ax
mov    -0x10(%rsp),%rbp
add    $0x1,%rbp
add    $0x1,%rdx
cmp    %edx,-0x38(%rsp)
je     111c <red+0x1c>
mov    0x60(%rsp),%rcx
mov    %rbp,-0x10(%rsp)
mov    (%rcx,%rbp,8),%r8
mov    -0x34(%rsp),%ecx
cmp    -0x30(%rsp),%ecx
jle    1260 <red+0x160>
cmp    %edi,%esi
jl     1190 <red+0x90>
mov    -0x18(%rsp),%rcx
mov    (%r8,%rcx,8),%rcx
movss  (%rcx,%r11,4),%xmm0
mov    %r9,%rcx
test   $0x1,%r12b
je     11ff <red+0xff>
mov    (%rax,%r9,8),%rcx
movss  (%rcx,%rbx,4),%xmm1
movss  (%rcx,%rdx,4),%xmm2
mulss  %xmm0,%xmm2
subss  %xmm2,%xmm1
movss  %xmm1,(%rcx,%rbx,4)
mov    -0x28(%rsp),%rcx
test   %r10d,%r10d
je     1190 <red+0x90>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    (%rax,%rcx,8),%rbp
movss  0x0(%rbp,%rbx,4),%xmm1
movss  0x0(%rbp,%rdx,4),%xmm2
mulss  %xmm0,%xmm2
subss  %xmm2,%xmm1
movss  %xmm1,0x0(%rbp,%rbx,4)
mov    0x8(%rax,%rcx,8),%rbp
movss  0x0(%rbp,%rbx,4),%xmm1
movss  0x0(%rbp,%rdx,4),%xmm2
mulss  %xmm0,%xmm2
subss  %xmm2,%xmm1
movss  %xmm1,0x0(%rbp,%rbx,4)
add    $0x2,%rcx
cmp    %ecx,%r14d
jne    1210 <red+0x110>
jmp    1190 <red+0x90>
nopl   0x0(%rax,%rax,1)
mov    -0x20(%rsp),%rcx
jmp    127d <red+0x17d>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rcx
cmp    %ecx,%r13d
je     11c3 <red+0xc3>
cmp    %edi,%esi
jl     1270 <red+0x170>
mov    -0x8(%rsp),%rbp
add    %rcx,%rbp
mov    (%r8,%rbp,8),%rbp
movss  0x0(%rbp,%r11,4),%xmm0
mov    %r9,%r15
test   $0x1,%r12b
je     12c0 <red+0x1c0>
mov    (%rax,%r9,8),%rbp
movss  0x0(%rbp,%rcx,4),%xmm1
movss  0x0(%rbp,%rdx,4),%xmm2
mulss  %xmm0,%xmm2
subss  %xmm2,%xmm1
movss  %xmm1,0x0(%rbp,%rcx,4)
mov    -0x28(%rsp),%r15
test   %r10d,%r10d
je     1270 <red+0x170>
cs nopw 0x0(%rax,%rax,1)
nop
mov    (%rax,%r15,8),%rbp
movss  0x0(%rbp,%rcx,4),%xmm1
movss  0x0(%rbp,%rdx,4),%xmm2
mulss  %xmm0,%xmm2
subss  %xmm2,%xmm1
movss  %xmm1,0x0(%rbp,%rcx,4)
mov    0x8(%rax,%r15,8),%rbp
movss  0x0(%rbp,%rcx,4),%xmm1
movss  0x0(%rbp,%rdx,4),%xmm2
mulss  %xmm0,%xmm2
subss  %xmm2,%xmm1
movss  %xmm1,0x0(%rbp,%rcx,4)
add    $0x2,%r15
cmp    %r15d,%r14d
jne    12d0 <red+0x1d0>
jmp    1270 <red+0x170>

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

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