void Calculate_Eigenvectors(double *H, double *S, double eigen_real[],
                            double eigen_imag[], int n) {
  double *pH;
  double *pS;
  double x, y;
  int i, j, k;
  for (k = n - 1; k >= 0; k--) {
    if (eigen_imag[k] < 0.0) {
      for (i = 0, pS = S; i < n; pS += n, i++) {
        x = 0.0;
        y = 0.0;
        for (j = 0, pH = H; j <= k; pH += n, j++) {
          x += pS[j] * pH[k - 1];
          y += pS[j] * pH[k];
        }
        pS[k - 1] = x;
        pS[k] = y;
      }
    } else if (eigen_imag[k] == 0.0) {
      for (i = 0, pS = S; i < n; i++, pS += n) {
        x = 0.0;
        for (j = 0, pH = H; j <= k; j++, pH += n)
          x += pS[j] * pH[k];
        pS[k] = x;
      }
    }
  }
}


x86 assembly (clang, -O0):
<Calculate_Eigenvectors>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8d,-0x24(%rbp)
mov    -0x24(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x54(%rbp)
cmpl   $0x0,-0x54(%rbp)
jl     1357 <Calculate_Eigenvectors+0x257>
mov    -0x20(%rbp),%rax
movslq -0x54(%rbp),%rcx
xorps  %xmm0,%xmm0
ucomisd (%rax,%rcx,8),%xmm0
jbe    1258 <Calculate_Eigenvectors+0x158>
movl   $0x0,-0x4c(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1253 <Calculate_Eigenvectors+0x153>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movl   $0x0,-0x50(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x50(%rbp),%eax
cmp    -0x54(%rbp),%eax
jg     1207 <Calculate_Eigenvectors+0x107>
mov    -0x38(%rbp),%rax
movslq -0x50(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
mov    -0x54(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x38(%rbp),%rax
movslq -0x50(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x54(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x24(%rbp),%ecx
mov    -0x30(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
jmp    117b <Calculate_Eigenvectors+0x7b>
movsd  -0x40(%rbp),%xmm0
mov    -0x38(%rbp),%rax
mov    -0x54(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x48(%rbp),%xmm0
mov    -0x38(%rbp),%rax
movslq -0x54(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%ecx
mov    -0x38(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1150 <Calculate_Eigenvectors+0x50>
jmp    1344 <Calculate_Eigenvectors+0x244>
mov    -0x20(%rbp),%rax
movslq -0x54(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    133f <Calculate_Eigenvectors+0x23f>
jp     133f <Calculate_Eigenvectors+0x23f>
movl   $0x0,-0x4c(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    133a <Calculate_Eigenvectors+0x23a>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
movl   $0x0,-0x50(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x50(%rbp),%eax
cmp    -0x54(%rbp),%eax
jg     1305 <Calculate_Eigenvectors+0x205>
mov    -0x38(%rbp),%rax
movslq -0x50(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x54(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
mov    -0x24(%rbp),%ecx
mov    -0x30(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
jmp    12aa <Calculate_Eigenvectors+0x1aa>
movsd  -0x40(%rbp),%xmm0
mov    -0x38(%rbp),%rax
movslq -0x54(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
mov    -0x24(%rbp),%ecx
mov    -0x38(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x38(%rbp)
jmp    1287 <Calculate_Eigenvectors+0x187>
jmp    133f <Calculate_Eigenvectors+0x23f>
jmp    1344 <Calculate_Eigenvectors+0x244>
jmp    1349 <Calculate_Eigenvectors+0x249>
mov    -0x54(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x54(%rbp)
jmp    1121 <Calculate_Eigenvectors+0x21>
pop    %rbp
ret

x86 assembly (clang, -O2):
<Calculate_Eigenvectors>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rcx,-0x18(%rsp)
mov    %rsi,-0x50(%rsp)
mov    %rdi,-0x70(%rsp)
mov    %r8d,-0x74(%rsp)
test   %r8d,%r8d
jle    146f <Calculate_Eigenvectors+0x36f>
mov    -0x74(%rsp),%ecx
lea    0x0(,%rcx,8),%rdx
lea    -0x8(,%rcx,8),%r10
ff
mov    %rcx,%rax
shl    $0x5,%rax
lea    -0x8(%rax),%rbp
lea    (%rdx,%rdx,2),%rsi
add    $0xfffffffffffffff8,%rsi
mov    %rcx,%r13
shl    $0x4,%r13
lea    -0x8(%r13),%rdi
lea    -0x1(%rcx),%rbx
mov    %rbx,-0x48(%rsp)
lea    -0x10(,%rcx,8),%r11
ff
lea    -0x10(%rax),%r14
lea    (%rdx,%rdx,2),%r9
add    $0xfffffffffffffff0,%r9
add    $0xfffffffffffffff0,%r13
lea    -0x2(%rcx),%r15
xor    %ebx,%ebx
xorpd  %xmm0,%xmm0
mov    %rcx,-0x20(%rsp)
mov    %rcx,-0x60(%rsp)
jmp    11e5 <Calculate_Eigenvectors+0xe5>
ucomisd %xmm0,%xmm1
jne    119c <Calculate_Eigenvectors+0x9c>
jnp    136e <Calculate_Eigenvectors+0x26e>
mov    -0x10(%rsp),%rbx
add    $0x1,%rbx
add    $0xfffffffffffffff8,%r10
add    $0xfffffffffffffff8,%rbp
mov    -0x38(%rsp),%rsi
add    $0xfffffffffffffff8,%rsi
mov    -0x40(%rsp),%rdi
add    $0xfffffffffffffff8,%rdi
addq   $0xffffffffffffffff,-0x48(%rsp)
add    $0xfffffffffffffff8,%r11
add    $0xfffffffffffffff8,%r14
add    $0xfffffffffffffff8,%r9
add    $0xfffffffffffffff8,%r13
add    $0xffffffffffffffff,%r15
cmpq   $0x1,-0x68(%rsp)
jle    146f <Calculate_Eigenvectors+0x36f>
mov    %rdi,-0x40(%rsp)
mov    %rsi,-0x38(%rsp)
mov    -0x60(%rsp),%rdi
mov    %edi,%ecx
and    $0x3,%ecx
mov    %rdi,%r12
and    $0xfffffffffffffffc,%r12
mov    %rbx,%rsi
not    %rsi
add    -0x20(%rsp),%rsi
mov    %rsi,-0x30(%rsp)
lea    -0x1(%rdi),%rsi
mov    %rsi,-0x60(%rsp)
mov    -0x18(%rsp),%rsi
mov    %rdi,-0x68(%rsp)
movsd  -0x8(%rsi,%rdi,8),%xmm1
ucomisd %xmm1,%xmm0
mov    %rbp,-0x28(%rsp)
mov    %rbx,-0x10(%rsp)
jbe    1190 <Calculate_Eigenvectors+0x90>
xor    %r8d,%r8d
mov    -0x50(%rsp),%rdi
mov    %r10,-0x58(%rsp)
jmp    127f <Calculate_Eigenvectors+0x17f>
nopl   0x0(%rax)
mulpd  %xmm3,%xmm4
addpd  %xmm1,%xmm4
mov    -0x68(%rsp),%rsi
movupd %xmm4,-0x10(%rdi,%rsi,8)
add    %rdx,%rdi
add    $0x1,%r8d
cmp    -0x74(%rsp),%r8d
mov    -0x58(%rsp),%r10
mov    -0x28(%rsp),%rbp
je     119c <Calculate_Eigenvectors+0x9c>
cmpq   $0x3,-0x30(%rsp)
jae    12a0 <Calculate_Eigenvectors+0x1a0>
xorpd  %xmm2,%xmm2
xor    %r10d,%r10d
mov    -0x70(%rsp),%rsi
jmp    1323 <Calculate_Eigenvectors+0x223>
nopl   0x0(%rax,%rax,1)
xorpd  %xmm2,%xmm2
mov    -0x70(%rsp),%rsi
xor    %r10d,%r10d
nopl   0x0(%rax)
movupd (%rsi,%r11,1),%xmm4
movsd  (%rdi,%r10,8),%xmm5
movsd  0x8(%rdi,%r10,8),%xmm6
movsd  0x10(%rdi,%r10,8),%xmm1
movsd  0x18(%rdi,%r10,8),%xmm3
unpcklpd %xmm5,%xmm5
mulpd  %xmm4,%xmm5
addpd  %xmm2,%xmm5
movupd (%rsi,%r13,1),%xmm2
unpcklpd %xmm6,%xmm6
mulpd  %xmm2,%xmm6
addpd  %xmm5,%xmm6
movupd (%rsi,%r9,1),%xmm2
unpcklpd %xmm1,%xmm1
mulpd  %xmm2,%xmm1
addpd  %xmm6,%xmm1
movupd (%rsi,%r14,1),%xmm4
unpcklpd %xmm3,%xmm3
movapd %xmm3,%xmm2
mulpd  %xmm4,%xmm2
addpd  %xmm1,%xmm2
add    $0x4,%r10
add    %rax,%rsi
cmp    %r10,%r12
jne    12b0 <Calculate_Eigenvectors+0x1b0>
testb  $0x3,-0x68(%rsp)
je     1250 <Calculate_Eigenvectors+0x150>
lea    (%rdi,%r10,8),%rbx
lea    (%rsi,%r15,8),%rsi
xor    %ebp,%ebp
nopl   0x0(%rax,%rax,1)
movapd %xmm2,%xmm1
movupd (%rsi),%xmm4
movsd  (%rbx,%rbp,8),%xmm3
unpcklpd %xmm3,%xmm3
movapd %xmm3,%xmm2
mulpd  %xmm4,%xmm2
addpd  %xmm1,%xmm2
add    $0x1,%rbp
add    %rdx,%rsi
cmp    %rbp,%rcx
jne    1340 <Calculate_Eigenvectors+0x240>
jmp    1250 <Calculate_Eigenvectors+0x150>
xor    %edi,%edi
mov    -0x50(%rsp),%rsi
mov    %r15,-0x8(%rsp)
jmp    13a3 <Calculate_Eigenvectors+0x2a3>
nopl   0x0(%rax)
mov    -0x60(%rsp),%rdi
movsd  %xmm1,(%rsi,%rdi,8)
mov    -0x58(%rsp),%edi
add    $0x1,%edi
add    %rdx,%rsi
cmp    -0x74(%rsp),%edi
mov    -0x28(%rsp),%rbp
je     119c <Calculate_Eigenvectors+0x9c>
cmpq   $0x3,-0x30(%rsp)
mov    %edi,-0x58(%rsp)
xorpd  %xmm1,%xmm1
jae    13c0 <Calculate_Eigenvectors+0x2c0>
xor    %edi,%edi
mov    -0x70(%rsp),%rbx
jmp    142a <Calculate_Eigenvectors+0x32a>
nopl   0x0(%rax)
mov    -0x70(%rsp),%rbx
xor    %edi,%edi
mov    -0x38(%rsp),%r15
mov    -0x40(%rsp),%r8
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  (%rsi,%rdi,8),%xmm2
mulsd  (%rbx,%r10,1),%xmm2
movsd  0x8(%rsi,%rdi,8),%xmm3
addsd  %xmm1,%xmm2
mulsd  (%rbx,%r8,1),%xmm3
addsd  %xmm2,%xmm3
movsd  0x10(%rsi,%rdi,8),%xmm2
mulsd  (%rbx,%r15,1),%xmm2
addsd  %xmm3,%xmm2
movsd  0x18(%rsi,%rdi,8),%xmm1
mulsd  (%rbx,%rbp,1),%xmm1
addsd  %xmm2,%xmm1
add    $0x4,%rdi
add    %rax,%rbx
cmp    %rdi,%r12
jne    13e0 <Calculate_Eigenvectors+0x2e0>
testb  $0x3,-0x68(%rsp)
mov    -0x8(%rsp),%r15
je     1380 <Calculate_Eigenvectors+0x280>
lea    (%rsi,%rdi,8),%rdi
mov    -0x48(%rsp),%rbp
lea    (%rbx,%rbp,8),%rbp
xor    %ebx,%ebx
nopl   0x0(%rax)
movsd  (%rdi,%rbx,8),%xmm2
mulsd  0x0(%rbp),%xmm2
addsd  %xmm2,%xmm1
add    $0x1,%rbx
add    %rdx,%rbp
cmp    %rbx,%rcx
jne    1450 <Calculate_Eigenvectors+0x350>
jmp    1380 <Calculate_Eigenvectors+0x280>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @Calculate_Eigenvectors(double* nocapture %0, double* nocapture %1, double* nocapture readnone %2, double* nocapture %3, i32 %4) {
%6 = icmp sgt i32 %4, 0
br i1 %6, label %7, label %183
7: ; preds = %5
%8 = zext i32 %4 to i64
br label %9
9: ; preds = %7, %180
%10 = phi i64 [ 0, %7 ], [ %182, %180 ]
%11 = phi i64 [ %8, %7 ], [ %16, %180 ]
%12 = xor i64 %10, -1
%13 = add i64 %12, %8
%14 = xor i64 %10, -1
%15 = add i64 %14, %8
%16 = add nsw i64 %11, -1
%17 = getelementptr inbounds double, double* %3, i64 %16
%18 = load double, double* %17
%19 = fcmp olt double %18, 0.000000e+00
br i1 %19, label %20, label %110
20: ; preds = %9
%21 = add nsw i64 %11, -2
%22 = and i64 %11, 3
%23 = icmp ult i64 %13, 3
%24 = and i64 %11, -4
%25 = icmp eq i64 %22, 0
br label %26
26: ; preds = %100, %20
%27 = phi i32 [ 0, %20 ], [ %108, %100 ]
%28 = phi double* [ %1, %20 ], [ %107, %100 ]
br i1 %23, label %76, label %29
29: ; preds = %26, %29
%30 = phi i64 [ %73, %29 ], [ 0, %26 ]
%31 = phi double* [ %72, %29 ], [ %0, %26 ]
%32 = phi <2 x double> [ %71, %29 ], [ zeroinitializer, %26 ]
%33 = phi i64 [ %74, %29 ], [ 0, %26 ]
%34 = getelementptr inbounds double, double* %28, i64 %30
%35 = load double, double* %34
%36 = getelementptr inbounds double, double* %31, i64 %21
%37 = bitcast double* %36 to <2 x double>*
%38 = load <2 x double>, <2 x double>* %37
%39 = insertelement <2 x double> poison, double %35, i64 0
%40 = shufflevector <2 x double> %39, <2 x double> poison, <2 x i32> zeroinitializer
%41 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %40, <2 x double> %38, <2 x double> %32)
%42 = getelementptr inbounds double, double* %31, i64 %8
%43 = or i64 %30, 1
%44 = getelementptr inbounds double, double* %28, i64 %43
%45 = load double, double* %44
%46 = getelementptr inbounds double, double* %42, i64 %21
%47 = bitcast double* %46 to <2 x double>*
%48 = load <2 x double>, <2 x double>* %47
%49 = insertelement <2 x double> poison, double %45, i64 0
%50 = shufflevector <2 x double> %49, <2 x double> poison, <2 x i32> zeroinitializer
%51 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %50, <2 x double> %48, <2 x double> %41)
%52 = getelementptr inbounds double, double* %42, i64 %8
%53 = or i64 %30, 2
%54 = getelementptr inbounds double, double* %28, i64 %53
%55 = load double, double* %54
%56 = getelementptr inbounds double, double* %52, i64 %21
%57 = bitcast double* %56 to <2 x double>*
%58 = load <2 x double>, <2 x double>* %57
%59 = insertelement <2 x double> poison, double %55, i64 0
%60 = shufflevector <2 x double> %59, <2 x double> poison, <2 x i32> zeroinitializer
%61 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %60, <2 x double> %58, <2 x double> %51)
%62 = getelementptr inbounds double, double* %52, i64 %8
%63 = or i64 %30, 3
%64 = getelementptr inbounds double, double* %28, i64 %63
%65 = load double, double* %64
%66 = getelementptr inbounds double, double* %62, i64 %21
%67 = bitcast double* %66 to <2 x double>*
%68 = load <2 x double>, <2 x double>* %67
%69 = insertelement <2 x double> poison, double %65, i64 0
%70 = shufflevector <2 x double> %69, <2 x double> poison, <2 x i32> zeroinitializer
%71 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %70, <2 x double> %68, <2 x double> %61)
%72 = getelementptr inbounds double, double* %62, i64 %8
%73 = add nuw nsw i64 %30, 4
%74 = add i64 %33, 4
%75 = icmp eq i64 %74, %24
br i1 %75, label %76, label %29
76: ; preds = %29, %26
%77 = phi <2 x double> [ undef, %26 ], [ %61, %29 ]
%78 = phi <2 x double> [ undef, %26 ], [ %68, %29 ]
%79 = phi <2 x double> [ undef, %26 ], [ %70, %29 ]
%80 = phi i64 [ 0, %26 ], [ %73, %29 ]
%81 = phi double* [ %0, %26 ], [ %72, %29 ]
%82 = phi <2 x double> [ zeroinitializer, %26 ], [ %71, %29 ]
br i1 %25, label %100, label %83
83: ; preds = %76, %83
%84 = phi i64 [ %97, %83 ], [ %80, %76 ]
%85 = phi double* [ %96, %83 ], [ %81, %76 ]
%86 = phi <2 x double> [ %95, %83 ], [ %82, %76 ]
%87 = phi i64 [ %98, %83 ], [ 0, %76 ]
%88 = getelementptr inbounds double, double* %28, i64 %84
%89 = load double, double* %88
%90 = getelementptr inbounds double, double* %85, i64 %21
%91 = bitcast double* %90 to <2 x double>*
%92 = load <2 x double>, <2 x double>* %91
%93 = insertelement <2 x double> poison, double %89, i64 0
%94 = shufflevector <2 x double> %93, <2 x double> poison, <2 x i32> zeroinitializer
%95 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %94, <2 x double> %92, <2 x double> %86)
%96 = getelementptr inbounds double, double* %85, i64 %8
%97 = add nuw nsw i64 %84, 1
%98 = add i64 %87, 1
%99 = icmp eq i64 %98, %22
br i1 %99, label %100, label %83
100: ; preds = %83, %76
%101 = phi <2 x double> [ %77, %76 ], [ %86, %83 ]
%102 = phi <2 x double> [ %78, %76 ], [ %92, %83 ]
%103 = phi <2 x double> [ %79, %76 ], [ %94, %83 ]
%104 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %103, <2 x double> %102, <2 x double> %101)
%105 = getelementptr inbounds double, double* %28, i64 %21
%106 = bitcast double* %105 to <2 x double>*
store <2 x double> %104, <2 x double>* %106
%107 = getelementptr inbounds double, double* %28, i64 %8
%108 = add nuw nsw i32 %27, 1
%109 = icmp eq i32 %108, %4
br i1 %109, label %180, label %26
110: ; preds = %9
%111 = fcmp une double %18, 0.000000e+00
br i1 %111, label %180, label %112
112: ; preds = %110
%113 = and i64 %11, 3
%114 = icmp ult i64 %15, 3
%115 = and i64 %11, -4
%116 = icmp eq i64 %113, 0
br label %117
117: ; preds = %112, %174
%118 = phi i32 [ %177, %174 ], [ 0, %112 ]
%119 = phi double* [ %178, %174 ], [ %1, %112 ]
br i1 %114, label %155, label %120
120: ; preds = %117, %120
%121 = phi i64 [ %151, %120 ], [ 0, %117 ]
%122 = phi double [ %150, %120 ], [ 0.000000e+00, %117 ]
%123 = phi double* [ %152, %120 ], [ %0, %117 ]
%124 = phi i64 [ %153, %120 ], [ 0, %117 ]
%125 = getelementptr inbounds double, double* %119, i64 %121
%126 = load double, double* %125
%127 = getelementptr inbounds double, double* %123, i64 %16
%128 = load double, double* %127
%129 = tail call double @llvm.fmuladd.f64(double %126, double %128, double %122)
%130 = or i64 %121, 1
%131 = getelementptr inbounds double, double* %123, i64 %8
%132 = getelementptr inbounds double, double* %119, i64 %130
%133 = load double, double* %132
%134 = getelementptr inbounds double, double* %131, i64 %16
%135 = load double, double* %134
%136 = tail call double @llvm.fmuladd.f64(double %133, double %135, double %129)
%137 = or i64 %121, 2
%138 = getelementptr inbounds double, double* %131, i64 %8
%139 = getelementptr inbounds double, double* %119, i64 %137
%140 = load double, double* %139
%141 = getelementptr inbounds double, double* %138, i64 %16
%142 = load double, double* %141
%143 = tail call double @llvm.fmuladd.f64(double %140, double %142, double %136)
%144 = or i64 %121, 3
%145 = getelementptr inbounds double, double* %138, i64 %8
%146 = getelementptr inbounds double, double* %119, i64 %144
%147 = load double, double* %146
%148 = getelementptr inbounds double, double* %145, i64 %16
%149 = load double, double* %148
%150 = tail call double @llvm.fmuladd.f64(double %147, double %149, double %143)
%151 = add nuw nsw i64 %121, 4
%152 = getelementptr inbounds double, double* %145, i64 %8
%153 = add i64 %124, 4
%154 = icmp eq i64 %153, %115
br i1 %154, label %155, label %120
155: ; preds = %120, %117
%156 = phi double [ undef, %117 ], [ %150, %120 ]
%157 = phi i64 [ 0, %117 ], [ %151, %120 ]
%158 = phi double [ 0.000000e+00, %117 ], [ %150, %120 ]
%159 = phi double* [ %0, %117 ], [ %152, %120 ]
br i1 %116, label %174, label %160
160: ; preds = %155, %160
%161 = phi i64 [ %170, %160 ], [ %157, %155 ]
%162 = phi double [ %169, %160 ], [ %158, %155 ]
%163 = phi double* [ %171, %160 ], [ %159, %155 ]
%164 = phi i64 [ %172, %160 ], [ 0, %155 ]
%165 = getelementptr inbounds double, double* %119, i64 %161
%166 = load double, double* %165
%167 = getelementptr inbounds double, double* %163, i64 %16
%168 = load double, double* %167
%169 = tail call double @llvm.fmuladd.f64(double %166, double %168, double %162)
%170 = add nuw nsw i64 %161, 1
%171 = getelementptr inbounds double, double* %163, i64 %8
%172 = add i64 %164, 1
%173 = icmp eq i64 %172, %113
br i1 %173, label %174, label %160
174: ; preds = %160, %155
%175 = phi double [ %156, %155 ], [ %169, %160 ]
%176 = getelementptr inbounds double, double* %119, i64 %16
store double %175, double* %176
%177 = add nuw nsw i32 %118, 1
%178 = getelementptr inbounds double, double* %119, i64 %8
%179 = icmp eq i32 %177, %4
br i1 %179, label %180, label %117
180: ; preds = %174, %100, %110
%181 = icmp sgt i64 %11, 1
%182 = add i64 %10, 1
br i1 %181, label %9, label %183
183: ; preds = %180, %5
ret void
}