void eigens(A, RR, E, N) double A[], RR[], E[];
int N;
{
  int IND, L, LL, LM, M, MM, MQ, I, J, K, IA, LQ;
  int IQ, IM, IL, NLI, NMI;
  double ANORM, ANORMX, AIA, THR, ALM, QI, ALL, AMM, X, Y;
  double SINX, SINX2, COSX, COSX2, SINCS, AIL, AIM;
  double RLI, RMI, Q, V;
  double sqrt(), fabs();
  static double RANGE = 1.0e-10;
  for (J = 0; J < N * N; J++)
    RR[J] = 0.0;
  MM = 0;
  for (J = 0; J < N; J++) {
    RR[MM + J] = 1.0;
    MM += N;
  }
  ANORM = 0.0;
  for (I = 0; I < N; I++) {
    for (J = 0; J < N; J++) {
      if (I != J) {
        IA = I + (J * J + J) / 2;
        AIA = A[IA];
        ANORM += AIA * AIA;
      }
    }
  }
  if (ANORM <= 0.0)
    goto done;
  ANORM = sqrt(ANORM + ANORM);
  ANORMX = ANORM * RANGE / N;
  THR = ANORM;
  while (THR > ANORMX) {
    THR = THR / N;
    do {
      IND = 0;
      for (L = 0; L < N - 1; L++) {
        for (M = L + 1; M < N; M++) {
          MQ = (M * M + M) / 2;
          LM = L + MQ;
          ALM = A[LM];
          if (fabs(ALM) < THR)
            continue;
          IND = 1;
          LQ = (L * L + L) / 2;
          LL = L + LQ;
          MM = M + MQ;
          ALL = A[LL];
          AMM = A[MM];
          X = (ALL - AMM) / 2.0;
          Y = -ALM / sqrt(ALM * ALM + X * X);
          if (X < 0.0)
            Y = -Y;
          SINX = Y / sqrt(2.0 * (1.0 + sqrt(1.0 - Y * Y)));
          SINX2 = SINX * SINX;
          COSX = sqrt(1.0 - SINX2);
          COSX2 = COSX * COSX;
          SINCS = SINX * COSX;
          for (I = 0; I < N; I++) {
            IQ = (I * I + I) / 2;
            if ((I != M) && (I != L)) {
              if (I > M)
                IM = M + IQ;
              else
                IM = I + MQ;
              if (I >= L)
                IL = L + IQ;
              else
                IL = I + LQ;
              AIL = A[IL];
              AIM = A[IM];
              X = AIL * COSX - AIM * SINX;
              A[IM] = AIL * SINX + AIM * COSX;
              A[IL] = X;
            }
            NLI = N * L + I;
            NMI = N * M + I;
            RLI = RR[NLI];
            RMI = RR[NMI];
            RR[NLI] = RLI * COSX - RMI * SINX;
            RR[NMI] = RLI * SINX + RMI * COSX;
          }
          X = 2.0 * ALM * SINCS;
          A[LL] = ALL * COSX2 + AMM * SINX2 - X;
          A[MM] = ALL * SINX2 + AMM * COSX2 + X;
          A[LM] = (ALL - AMM) * SINCS + ALM * (COSX2 - SINX2);
        }
      }
    } while (IND != 0);
  }
done:;
  L = 0;
  for (J = 1; J <= N; J++) {
    L = L + J;
    E[J - 1] = A[L - 1];
  }
}


x86 assembly (clang, -O0):
<eigens>:
push   %rbp
mov    %rsp,%rbp
sub    $0x120,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movl   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%eax
mov    -0x1c(%rbp),%ecx
imul   -0x1c(%rbp),%ecx
cmp    %ecx,%eax
jge    1161 <eigens+0x51>
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    1131 <eigens+0x21>
movl   $0x0,-0x34(%rbp)
movl   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    11ac <eigens+0x9c>
mov    -0x10(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    -0x40(%rbp),%ecx
movslq %ecx,%rcx
movsd  0xe88(%rip),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    -0x34(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    116f <eigens+0x5f>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x68(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1262 <eigens+0x152>
movl   $0x0,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    124f <eigens+0x13f>
mov    -0x3c(%rbp),%eax
cmp    -0x40(%rbp),%eax
je     123c <eigens+0x12c>
mov    -0x3c(%rbp),%eax
mov    %eax,-0x10c(%rbp)
mov    -0x40(%rbp),%eax
imul   -0x40(%rbp),%eax
add    -0x40(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x10c(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x48(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x48(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x78(%rbp),%xmm0
movsd  -0x78(%rbp),%xmm2
movsd  -0x68(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
jmp    1241 <eigens+0x131>
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    11ce <eigens+0xbe>
jmp    1254 <eigens+0x144>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    11bb <eigens+0xab>
xorps  %xmm0,%xmm0
ucomisd -0x68(%rbp),%xmm0
jb     1275 <eigens+0x165>
jmp    1894 <eigens+0x784>
movsd  -0x68(%rbp),%xmm0
addsd  -0x68(%rbp),%xmm0
call   1030 <sqrt@plt>
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm0
mulsd  0x2d92(%rip),%xmm0
cvtsi2sdl -0x1c(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x80(%rbp)
movsd  -0x80(%rbp),%xmm0
ucomisd -0x70(%rbp),%xmm0
jbe    188f <eigens+0x77f>
movsd  -0x80(%rbp),%xmm0
cvtsi2sdl -0x1c(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x80(%rbp)
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    187b <eigens+0x76b>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1868 <eigens+0x758>
mov    -0x30(%rbp),%eax
imul   -0x30(%rbp),%eax
add    -0x30(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x38(%rbp)
mov    -0x24(%rbp),%eax
add    -0x38(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
movsd  -0x88(%rbp),%xmm1
ff
movaps 0xcb9(%rip),%xmm0
pand   %xmm0,%xmm1
movsd  -0x80(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    135f <eigens+0x24f>
jmp    185a <eigens+0x74a>
movl   $0x1,-0x20(%rbp)
mov    -0x24(%rbp),%eax
imul   -0x24(%rbp),%eax
add    -0x24(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x4c(%rbp)
mov    -0x24(%rbp),%eax
add    -0x4c(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x30(%rbp),%eax
add    -0x38(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x98(%rbp)
ff
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xa0(%rbp)
ff
movsd  -0x98(%rbp),%xmm0
ff
subsd  -0xa0(%rbp),%xmm0
ff
movsd  0xc41(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xa8(%rbp)
ff
movsd  -0x88(%rbp),%xmm0
ff
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x118(%rbp)
ff
movsd  -0x88(%rbp),%xmm0
ff
movsd  -0x88(%rbp),%xmm2
ff
movsd  -0xa8(%rbp),%xmm1
ff
mulsd  -0xa8(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
call   1030 <sqrt@plt>
movaps %xmm0,%xmm1
movsd  -0x118(%rbp),%xmm0
ff
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xb0(%rbp)
ff
xorps  %xmm0,%xmm0
ucomisd -0xa8(%rbp),%xmm0
ff
jbe    147e <eigens+0x36e>
movsd  -0xb0(%rbp),%xmm0
ff
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0xb0(%rbp)
ff
movsd  -0xb0(%rbp),%xmm0
ff
movsd  %xmm0,-0x120(%rbp)
ff
movsd  -0xb0(%rbp),%xmm0
ff
movsd  -0xb0(%rbp),%xmm1
ff
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm1,%xmm0
movsd  0xb57(%rip),%xmm1
addsd  %xmm1,%xmm0
call   1030 <sqrt@plt>
movsd  0xb46(%rip),%xmm1
addsd  %xmm0,%xmm1
movsd  0xb32(%rip),%xmm0
mulsd  %xmm1,%xmm0
call   1030 <sqrt@plt>
movaps %xmm0,%xmm1
movsd  -0x120(%rbp),%xmm0
ff
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xb8(%rbp)
ff
movsd  -0xb8(%rbp),%xmm0
ff
mulsd  -0xb8(%rbp),%xmm0
ff
movsd  %xmm0,-0xc0(%rbp)
ff
movsd  0xafa(%rip),%xmm0
subsd  -0xc0(%rbp),%xmm0
ff
call   1030 <sqrt@plt>
movsd  %xmm0,-0xc8(%rbp)
ff
movsd  -0xc8(%rbp),%xmm0
ff
mulsd  -0xc8(%rbp),%xmm0
ff
movsd  %xmm0,-0xd0(%rbp)
ff
movsd  -0xb8(%rbp),%xmm0
ff
mulsd  -0xc8(%rbp),%xmm0
ff
movsd  %xmm0,-0xd8(%rbp)
ff
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1777 <eigens+0x667>
mov    -0x3c(%rbp),%eax
imul   -0x3c(%rbp),%eax
add    -0x3c(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x50(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x30(%rbp),%eax
je     16a4 <eigens+0x594>
mov    -0x3c(%rbp),%eax
cmp    -0x24(%rbp),%eax
je     16a4 <eigens+0x594>
mov    -0x3c(%rbp),%eax
cmp    -0x30(%rbp),%eax
jle    15bd <eigens+0x4ad>
mov    -0x30(%rbp),%eax
add    -0x50(%rbp),%eax
mov    %eax,-0x54(%rbp)
jmp    15c6 <eigens+0x4b6>
mov    -0x3c(%rbp),%eax
add    -0x38(%rbp),%eax
mov    %eax,-0x54(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jl     15e0 <eigens+0x4d0>
mov    -0x24(%rbp),%eax
add    -0x50(%rbp),%eax
mov    %eax,-0x58(%rbp)
jmp    15e9 <eigens+0x4d9>
mov    -0x3c(%rbp),%eax
add    -0x4c(%rbp),%eax
mov    %eax,-0x58(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x58(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xe0(%rbp)
ff
mov    -0x8(%rbp),%rax
movslq -0x54(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xe8(%rbp)
ff
movsd  -0xe0(%rbp),%xmm0
ff
movsd  -0xc8(%rbp),%xmm2
ff
movsd  -0xe8(%rbp),%xmm1
ff
mulsd  -0xb8(%rbp),%xmm1
ff
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0xa8(%rbp)
ff
movsd  -0xe0(%rbp),%xmm0
ff
movsd  -0xb8(%rbp),%xmm2
ff
movsd  -0xe8(%rbp),%xmm1
ff
mulsd  -0xc8(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x54(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0xa8(%rbp),%xmm0
ff
mov    -0x8(%rbp),%rax
movslq -0x58(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
imul   -0x24(%rbp),%eax
add    -0x3c(%rbp),%eax
mov    %eax,-0x5c(%rbp)
mov    -0x1c(%rbp),%eax
imul   -0x30(%rbp),%eax
add    -0x3c(%rbp),%eax
mov    %eax,-0x60(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xf0(%rbp)
ff
mov    -0x10(%rbp),%rax
movslq -0x60(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xf8(%rbp)
ff
movsd  -0xf0(%rbp),%xmm0
ff
movsd  -0xc8(%rbp),%xmm2
ff
movsd  -0xf8(%rbp),%xmm1
ff
mulsd  -0xb8(%rbp),%xmm1
ff
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0xf0(%rbp),%xmm0
ff
movsd  -0xb8(%rbp),%xmm2
ff
movsd  -0xf8(%rbp),%xmm1
ff
mulsd  -0xc8(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
movslq -0x60(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    156a <eigens+0x45a>
movsd  0x891(%rip),%xmm0
mulsd  -0x88(%rbp),%xmm0
ff
mulsd  -0xd8(%rbp),%xmm0
ff
movsd  %xmm0,-0xa8(%rbp)
ff
movsd  -0x98(%rbp),%xmm0
ff
movsd  -0xd0(%rbp),%xmm2
ff
movsd  -0xa0(%rbp),%xmm1
ff
mulsd  -0xc0(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
subsd  -0xa8(%rbp),%xmm0
ff
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x98(%rbp),%xmm0
ff
movsd  -0xc0(%rbp),%xmm2
ff
movsd  -0xa0(%rbp),%xmm1
ff
mulsd  -0xd0(%rbp),%xmm1
ff
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
addsd  -0xa8(%rbp),%xmm0
ff
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x98(%rbp),%xmm0
ff
subsd  -0xa0(%rbp),%xmm0
ff
movsd  -0xd8(%rbp),%xmm2
ff
movsd  -0x88(%rbp),%xmm1
ff
movsd  -0xd0(%rbp),%xmm3
ff
subsd  -0xc0(%rbp),%xmm3
ff
mulsd  %xmm3,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    12f9 <eigens+0x1e9>
jmp    186d <eigens+0x75d>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    12df <eigens+0x1cf>
jmp    1880 <eigens+0x770>
cmpl   $0x0,-0x20(%rbp)
jne    12d1 <eigens+0x1c1>
jmp    12ae <eigens+0x19e>
jmp    1894 <eigens+0x784>
movl   $0x0,-0x24(%rbp)
movl   $0x1,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     18e9 <eigens+0x7d9>
mov    -0x24(%rbp),%eax
add    -0x40(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    18a2 <eigens+0x792>
add    $0x120,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<eigens>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xe8,%rsp
mov    %rdx,%r14
mov    %rsi,%rbp
mov    %rdi,0x18(%rsp)
mov    %ecx,%eax
imul   %ecx,%eax
test   %eax,%eax
mov    %rcx,0x8(%rsp)
je     115f <eigens+0x3f>
mov    %eax,%edx
shl    $0x3,%rdx
mov    %rbp,%rdi
xor    %esi,%esi
call   1030 <memset@plt>
mov    0x8(%rsp),%rcx
test   %ecx,%ecx
jle    1860 <eigens+0x740>
mov    %ecx,%r11d
lea    -0x1(%r11),%rdx
mov    %r11d,%eax
and    $0x3,%eax
movabs $0x3ff0000000000000,%rcx
cmp    $0x3,%rdx
mov    %rbp,0x40(%rsp)
jae    118f <eigens+0x6f>
xor    %edx,%edx
xor    %ebx,%ebx
jmp    11eb <eigens+0xcb>
mov    %r11d,%r8d
and    $0xfffffffc,%r8d
mov    %r11,%r9
shl    $0x4,%r9
mov    %r11,%rsi
shl    $0x5,%rsi
add    $0x20,%rsi
lea    0x0(,%r11,8),%rdx
lea    (%rdx,%rdx,2),%r10
xor    %edx,%edx
xor    %ebx,%ebx
nopl   0x0(%rax,%rax,1)
mov    %rcx,0x0(%rbp)
add    %r11,%rbx
mov    %rcx,0x8(%rbp,%r11,8)
add    %r11,%rbx
mov    %rcx,0x10(%rbp,%r9,1)
add    %r11,%rbx
mov    %rcx,0x18(%rbp,%r10,1)
add    %r11,%rbx
add    $0x4,%rdx
add    %rsi,%rbp
cmp    %rdx,%r8
jne    11c0 <eigens+0xa0>
test   %rax,%rax
mov    0x18(%rsp),%rbp
je     121c <eigens+0xfc>
add    %rdx,%rbx
mov    0x40(%rsp),%rdx
lea    (%rdx,%rbx,8),%rdx
lea    0x8(,%r11,8),%rsi
nopl   0x0(%rax)
mov    %rcx,(%rdx)
add    %rsi,%rdx
add    $0xffffffffffffffff,%rax
jne    1210 <eigens+0xf0>
mov    0x8(%rsp),%r8
test   %r8d,%r8d
jle    1860 <eigens+0x740>
mov    %r8d,%eax
and    $0xfffffffe,%eax
xorpd  %xmm0,%xmm0
xor    %ecx,%ecx
jmp    1265 <eigens+0x145>
nopl   0x0(%rax,%rax,1)
mov    %edx,%esi
imul   %esi,%esi
add    %edx,%esi
shr    %esi
add    %ecx,%esi
movsd  0x0(%rbp,%rsi,8),%xmm0
mulsd  %xmm0,%xmm0
addsd  %xmm1,%xmm0
add    $0x1,%ecx
cmp    %r8d,%ecx
je     12f2 <eigens+0x1d2>
cmp    $0x1,%r8d
jne    1270 <eigens+0x150>
xor    %edx,%edx
jmp    12d3 <eigens+0x1b3>
nop
xor    %esi,%esi
jmp    1287 <eigens+0x167>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x1,%esi
cmp    %eax,%esi
je     12d0 <eigens+0x1b0>
mov    %esi,%edx
cmp    %esi,%ecx
je     12a6 <eigens+0x186>
mov    %edx,%esi
imul   %esi,%esi
add    %edx,%esi
shr    %esi
add    %ecx,%esi
movsd  0x0(%rbp,%rsi,8),%xmm1
mulsd  %xmm1,%xmm1
addsd  %xmm1,%xmm0
lea    0x1(%rdx),%esi
cmp    %esi,%ecx
je     1280 <eigens+0x160>
mov    %esi,%edi
imul   %edi,%edi
add    %esi,%edi
shr    %edi
add    %ecx,%edi
movsd  0x0(%rbp,%rdi,8),%xmm1
mulsd  %xmm1,%xmm1
addsd  %xmm1,%xmm0
jmp    1280 <eigens+0x160>
nopl   0x0(%rax,%rax,1)
add    $0x2,%edx
movapd %xmm0,%xmm1
test   $0x1,%r8b
je     1259 <eigens+0x139>
cmp    %edx,%ecx
jne    1240 <eigens+0x120>
movapd %xmm1,%xmm0
jmp    1259 <eigens+0x139>
mov    %r14,0x60(%rsp)
xorpd  %xmm1,%xmm1
ucomisd %xmm0,%xmm1
jae    17df <eigens+0x6bf>
addsd  %xmm0,%xmm0
ucomisd %xmm1,%xmm0
mov    %r11,0x20(%rsp)
jb     131a <eigens+0x1fa>
sqrtsd %xmm0,%xmm0
jmp    132e <eigens+0x20e>
call   1040 <sqrt@plt>
mov    0x18(%rsp),%rbp
mov    0x8(%rsp),%r8
mov    0x20(%rsp),%r11
movsd  0xcca(%rip),%xmm1
cvtsi2sd %r8d,%xmm2
mulsd  %xmm0,%xmm1
movsd  %xmm2,0x68(%rsp)
divsd  %xmm2,%xmm1
movsd  %xmm1,0x70(%rsp)
ucomisd %xmm1,%xmm0
jbe    17df <eigens+0x6bf>
lea    -0x1(%r8),%eax
mov    %rax,0x80(%rsp)
movslq %r8d,%rsi
lea    0x0(,%rsi,8),%r9
movapd 0xca8(%rip),%xmm2
xorpd  %xmm8,%xmm8
mov    %rsi,0x78(%rsp)
mov    %r9,0x48(%rsp)
jmp    139c <eigens+0x27c>
nopl   0x0(%rax)
ucomisd 0x70(%rsp),%xmm0
jbe    17df <eigens+0x6bf>
divsd  0x68(%rsp),%xmm0
cmp    $0x2,%r8d
jl     1390 <eigens+0x270>
xor    %r14d,%r14d
mov    $0x1,%r12d
xor    %eax,%eax
movsd  %xmm0,0xa0(%rsp)
nopl   0x0(%rax)
lea    0x1(%r14),%rcx
mov    %rcx,0x88(%rsp)
cmp    %rsi,%rcx
mov    %r12,0x90(%rsp)
jge    1790 <eigens+0x670>
mov    %r14d,%edx
imul   %edx,%edx
add    %r14d,%edx
mov    %edx,%r10d
shr    %r10d
add    %r14d,%r10d
mov    %r14,%rcx
imul   %rsi,%rcx
shr    %rdx
mov    %rdx,0x58(%rsp)
lea    0x1(%r12),%ebx
imul   %r12d,%ebx
lea    (%r12,%r12,1),%edi
add    $0x2,%edi
mov    0x40(%rsp),%rdx
lea    (%rdx,%rcx,8),%r13
mov    %rsi,%rcx
imul   %r12,%rcx
lea    (%rdx,%rcx,8),%r15
mov    %edi,%ecx
mov    %r10,0x50(%rsp)
jmp    14fd <eigens+0x3dd>
xchg   %ax,%ax
movapd %xmm0,%xmm1
mulsd  %xmm0,%xmm1
mulsd  %xmm0,%xmm5
movapd 0xd0(%rsp),%xmm4
movapd %xmm4,%xmm0
addsd  %xmm4,%xmm0
mulsd  %xmm5,%xmm0
movsd  0xa8(%rsp),%xmm7
movapd %xmm7,%xmm2
mulsd  %xmm9,%xmm2
movsd  0xb0(%rsp),%xmm6
movapd %xmm6,%xmm3
mulsd  %xmm1,%xmm3
addsd  %xmm2,%xmm3
subsd  %xmm0,%xmm3
movsd  %xmm3,0x0(%rbp,%r10,8)
mulsd  %xmm1,%xmm7
mulsd  %xmm9,%xmm6
addsd  %xmm7,%xmm6
addsd  %xmm0,%xmm6
mov    0xc0(%rsp),%rax
movsd  %xmm6,0x0(%rbp,%rax,8)
subsd  %xmm9,%xmm1
mulsd  %xmm4,%xmm1
movsd  0xb8(%rsp),%xmm0
mulsd  %xmm5,%xmm0
addsd  %xmm1,%xmm0
mov    0xc8(%rsp),%rax
movsd  %xmm0,0x0(%rbp,%rax,8)
mov    $0x1,%eax
movsd  0xa0(%rsp),%xmm0
movapd 0xb40(%rip),%xmm2
mov    0x14(%rsp),%ebx
mov    0x2c(%rsp),%ecx
add    $0x1,%r12
add    %ecx,%ebx
add    $0x2,%ecx
add    %r9,%r15
cmp    %r11,%r12
je     1790 <eigens+0x670>
mov    %r12d,%esi
imul   %esi,%esi
add    %r12d,%esi
shr    %esi
lea    (%rsi,%r14,1),%edx
mov    %rdx,0xc8(%rsp)
movsd  0x0(%rbp,%rdx,8),%xmm3
movapd %xmm3,%xmm1
andpd  %xmm2,%xmm1
ucomisd %xmm1,%xmm0
ja     14e8 <eigens+0x3c8>
add    %r12d,%esi
movsd  0x0(%rbp,%r10,8),%xmm0
movsd  0x0(%rbp,%rsi,8),%xmm1
movsd  %xmm0,0xb0(%rsp)
movsd  %xmm1,0xa8(%rsp)
subsd  %xmm1,%xmm0
movsd  %xmm0,0xb8(%rsp)
movapd %xmm0,%xmm2
mulsd  0xaa5(%rip),%xmm2
movapd %xmm2,%xmm1
mulsd  %xmm2,%xmm1
movapd %xmm3,%xmm0
mulsd  %xmm3,%xmm0
addsd  %xmm1,%xmm0
ucomisd %xmm8,%xmm0
movapd %xmm3,0xd0(%rsp)
mov    %ecx,0x2c(%rsp)
mov    %rsi,0xc0(%rsp)
jb     15a0 <eigens+0x480>
sqrtsd %xmm0,%xmm0
jmp    15bf <eigens+0x49f>
nopl   0x0(%rax)
movapd %xmm2,0x30(%rsp)
call   1040 <sqrt@plt>
movapd 0x30(%rsp),%xmm2
movapd 0xd0(%rsp),%xmm3
xorpd  %xmm8,%xmm8
movapd 0xa69(%rip),%xmm1
xorpd  %xmm1,%xmm3
divsd  %xmm0,%xmm3
cmpltsd %xmm8,%xmm2
movapd %xmm2,%xmm0
andnpd %xmm3,%xmm0
xorpd  %xmm1,%xmm3
andpd  %xmm2,%xmm3
orpd   %xmm0,%xmm3
movapd %xmm3,%xmm1
mulsd  %xmm3,%xmm1
movsd  0xa17(%rip),%xmm0
subsd  %xmm1,%xmm0
ucomisd %xmm8,%xmm0
movapd %xmm3,0x30(%rsp)
jb     1610 <eigens+0x4f0>
sqrtsd %xmm0,%xmm0
jmp    161a <eigens+0x4fa>
call   1040 <sqrt@plt>
xorpd  %xmm8,%xmm8
addsd  0x9ee(%rip),%xmm0
addsd  %xmm0,%xmm0
ucomisd %xmm8,%xmm0
jb     1640 <eigens+0x520>
sqrtsd %xmm0,%xmm0
jmp    164a <eigens+0x52a>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
call   1040 <sqrt@plt>
xorpd  %xmm8,%xmm8
movapd 0x30(%rsp),%xmm5
mov    %ebx,0x14(%rsp)
divsd  %xmm0,%xmm5
movapd %xmm5,%xmm9
mulsd  %xmm5,%xmm9
movsd  0x9a6(%rip),%xmm0
subsd  %xmm9,%xmm0
ucomisd %xmm8,%xmm0
jb     1680 <eigens+0x560>
sqrtsd %xmm0,%xmm0
jmp    16aa <eigens+0x58a>
nopl   0x0(%rax)
movapd %xmm5,0x30(%rsp)
movsd  %xmm9,0x98(%rsp)
call   1040 <sqrt@plt>
movsd  0x98(%rsp),%xmm9
movapd 0x30(%rsp),%xmm5
xorpd  %xmm8,%xmm8
mov    0x20(%rsp),%r11
mov    0x8(%rsp),%r8
mov    0x48(%rsp),%r9
mov    0x58(%rsp),%rbx
mov    0x18(%rsp),%rbp
mov    0x50(%rsp),%r10
test   %r8d,%r8d
jle    1430 <eigens+0x310>
mov    0x14(%rsp),%eax
shr    %rax
xor    %ecx,%ecx
jmp    1727 <eigens+0x607>
nopl   0x0(%rax)
movsd  0x0(%r13,%rcx,8),%xmm1
movsd  (%r15,%rcx,8),%xmm2
movapd %xmm5,%xmm3
mulsd  %xmm2,%xmm3
movapd %xmm1,%xmm4
mulsd  %xmm0,%xmm4
subsd  %xmm3,%xmm4
movsd  %xmm4,0x0(%r13,%rcx,8)
mulsd  %xmm0,%xmm2
mulsd  %xmm5,%xmm1
addsd  %xmm2,%xmm1
movsd  %xmm1,(%r15,%rcx,8)
add    $0x1,%rcx
cmp    %rcx,%r11
je     1430 <eigens+0x310>
cmp    %rcx,%r12
je     16e0 <eigens+0x5c0>
cmp    %rcx,%r14
je     16e0 <eigens+0x5c0>
mov    %ecx,%edx
imul   %edx,%edx
add    %ecx,%edx
shr    %edx
lea    (%rdx,%r12,1),%esi
lea    (%rax,%rcx,1),%edi
cmp    %r12,%rcx
cmova  %esi,%edi
add    %r14d,%edx
lea    (%rbx,%rcx,1),%esi
cmp    %r14,%rcx
cmovae %edx,%esi
movsd  0x0(%rbp,%rsi,8),%xmm1
movsd  0x0(%rbp,%rdi,8),%xmm2
movapd %xmm5,%xmm3
mulsd  %xmm2,%xmm3
movapd %xmm1,%xmm4
mulsd  %xmm0,%xmm4
subsd  %xmm3,%xmm4
mulsd  %xmm0,%xmm2
mulsd  %xmm5,%xmm1
addsd  %xmm2,%xmm1
movsd  %xmm1,0x0(%rbp,%rdi,8)
movsd  %xmm4,0x0(%rbp,%rsi,8)
jmp    16e0 <eigens+0x5c0>
mov    0x90(%rsp),%r12
add    $0x1,%r12
mov    0x88(%rsp),%rcx
mov    %rcx,%r14
cmp    0x80(%rsp),%rcx
mov    0x78(%rsp),%rsi
jne    13c0 <eigens+0x2a0>
cmp    $0x2,%r8d
jl     1390 <eigens+0x270>
xor    %r14d,%r14d
mov    $0x1,%r12d
test   %eax,%eax
mov    $0x0,%eax
jne    13c0 <eigens+0x2a0>
jmp    1390 <eigens+0x270>
test   %r8d,%r8d
mov    0x60(%rsp),%rdi
jle    1860 <eigens+0x740>
cmp    $0x1,%r8d
jne    17f8 <eigens+0x6d8>
xor    %ecx,%ecx
mov    $0x1,%eax
jmp    1849 <eigens+0x729>
mov    %r11d,%edx
and    $0xfffffffe,%edx
neg    %rdx
xor    %ecx,%ecx
mov    $0x1,%eax
nopl   0x0(%rax,%rax,1)
add    %eax,%ecx
movslq %ecx,%rsi
movsd  -0x8(%rbp,%rsi,8),%xmm0
movsd  %xmm0,-0x8(%rdi,%rax,8)
lea    (%rax,%rsi,1),%ecx
add    $0x1,%ecx
add    %eax,%esi
movslq %esi,%rsi
movsd  0x0(%rbp,%rsi,8),%xmm0
movsd  %xmm0,(%rdi,%rax,8)
lea    (%rdx,%rax,1),%rsi
add    $0x2,%rsi
add    $0x2,%rax
cmp    $0x1,%rsi
jne    1810 <eigens+0x6f0>
test   $0x1,%r11b
je     1860 <eigens+0x740>
add    %eax,%ecx
movslq %ecx,%rcx
movsd  -0x8(%rbp,%rcx,8),%xmm0
movsd  %xmm0,-0x8(%rdi,%rax,8)
add    $0xe8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@eigens.RANGE = internal global double 1.000000e-10
define void @eigens(double* %0, double* %1, double* %2, i32 %3) {
%5 = alloca double*
%6 = alloca double*
%7 = alloca double*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%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 i32
%26 = alloca double
%27 = alloca double
%28 = alloca double
%29 = alloca double
%30 = alloca double
%31 = alloca double
%32 = alloca double
%33 = alloca double
%34 = alloca double
%35 = alloca double
%36 = alloca double
%37 = alloca double
%38 = alloca double
%39 = alloca double
%40 = alloca double
%41 = alloca double
%42 = alloca double
%43 = alloca double
%44 = alloca double
%45 = alloca double
%46 = alloca double
store double* %0, double** %5
store double* %1, double** %6
store double* %2, double** %7
store i32 %3, i32* %8
store i32 0, i32* %17
br label %47
47: ; preds = %58, %4
%48 = load i32, i32* %17
%49 = load i32, i32* %8
%50 = load i32, i32* %8
%51 = mul nsw i32 %49, %50
%52 = icmp slt i32 %48, %51
br i1 %52, label %53, label %61
53: ; preds = %47
%54 = load double*, double** %6
%55 = load i32, i32* %17
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds double, double* %54, i64 %56
store double 0.000000e+00, double* %57
br label %58
58: ; preds = %53
%59 = load i32, i32* %17
%60 = add nsw i32 %59, 1
store i32 %60, i32* %17
br label %47
61: ; preds = %47
store i32 0, i32* %14
store i32 0, i32* %17
br label %62
62: ; preds = %76, %61
%63 = load i32, i32* %17
%64 = load i32, i32* %8
%65 = icmp slt i32 %63, %64
br i1 %65, label %66, label %79
66: ; preds = %62
%67 = load double*, double** %6
%68 = load i32, i32* %14
%69 = load i32, i32* %17
%70 = add nsw i32 %68, %69
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds double, double* %67, i64 %71
store double 1.000000e+00, double* %72
%73 = load i32, i32* %8
%74 = load i32, i32* %14
%75 = add nsw i32 %74, %73
store i32 %75, i32* %14
br label %76
76: ; preds = %66
%77 = load i32, i32* %17
%78 = add nsw i32 %77, 1
store i32 %78, i32* %17
br label %62
79: ; preds = %62
store double 0.000000e+00, double* %26
store i32 0, i32* %16
br label %80
80: ; preds = %116, %79
%81 = load i32, i32* %16
%82 = load i32, i32* %8
%83 = icmp slt i32 %81, %82
br i1 %83, label %84, label %119
84: ; preds = %80
store i32 0, i32* %17
br label %85
85: ; preds = %112, %84
%86 = load i32, i32* %17
%87 = load i32, i32* %8
%88 = icmp slt i32 %86, %87
br i1 %88, label %89, label %115
89: ; preds = %85
%90 = load i32, i32* %16
%91 = load i32, i32* %17
%92 = icmp ne i32 %90, %91
br i1 %92, label %93, label %111
93: ; preds = %89
%94 = load i32, i32* %16
%95 = load i32, i32* %17
%96 = load i32, i32* %17
%97 = mul nsw i32 %95, %96
%98 = load i32, i32* %17
%99 = add nsw i32 %97, %98
%100 = sdiv i32 %99, 2
%101 = add nsw i32 %94, %100
store i32 %101, i32* %19
%102 = load double*, double** %5
%103 = load i32, i32* %19
%104 = sext i32 %103 to i64
%105 = getelementptr inbounds double, double* %102, i64 %104
%106 = load double, double* %105
store double %106, double* %28
%107 = load double, double* %28
%108 = load double, double* %28
%109 = load double, double* %26
%110 = call double @llvm.fmuladd.f64(double %107, double %108, double %109)
store double %110, double* %26
br label %111
111: ; preds = %93, %89
br label %112
112: ; preds = %111
%113 = load i32, i32* %17
%114 = add nsw i32 %113, 1
store i32 %114, i32* %17
br label %85
115: ; preds = %85
br label %116
116: ; preds = %115
%117 = load i32, i32* %16
%118 = add nsw i32 %117, 1
store i32 %118, i32* %16
br label %80
119: ; preds = %80
%120 = load double, double* %26
%121 = fcmp ole double %120, 0.000000e+00
br i1 %121, label %122, label %123
122: ; preds = %119
br label %418
123: ; preds = %119
%124 = load double, double* %26
%125 = load double, double* %26
%126 = fadd double %124, %125
%127 = call double @sqrt(double %126)
store double %127, double* %26
%128 = load double, double* %26
%129 = load double, double* @eigens.RANGE
%130 = fmul double %128, %129
%131 = load i32, i32* %8
%132 = sitofp i32 %131 to double
%133 = fdiv double %130, %132
store double %133, double* %27
%134 = load double, double* %26
store double %134, double* %29
br label %135
135: ; preds = %416, %123
%136 = load double, double* %29
%137 = load double, double* %27
%138 = fcmp ogt double %136, %137
br i1 %138, label %139, label %417
139: ; preds = %135
%140 = load double, double* %29
%141 = load i32, i32* %8
%142 = sitofp i32 %141 to double
%143 = fdiv double %140, %142
store double %143, double* %29
br label %144
144: ; preds = %413, %139
store i32 0, i32* %9
store i32 0, i32* %10
br label %145
145: ; preds = %409, %144
%146 = load i32, i32* %10
%147 = load i32, i32* %8
%148 = sub nsw i32 %147, 1
%149 = icmp slt i32 %146, %148
br i1 %149, label %150, label %412
150: ; preds = %145
%151 = load i32, i32* %10
%152 = add nsw i32 %151, 1
store i32 %152, i32* %13
br label %153
153: ; preds = %405, %150
%154 = load i32, i32* %13
%155 = load i32, i32* %8
%156 = icmp slt i32 %154, %155
br i1 %156, label %157, label %408
157: ; preds = %153
%158 = load i32, i32* %13
%159 = load i32, i32* %13
%160 = mul nsw i32 %158, %159
%161 = load i32, i32* %13
%162 = add nsw i32 %160, %161
%163 = sdiv i32 %162, 2
store i32 %163, i32* %15
%164 = load i32, i32* %10
%165 = load i32, i32* %15
%166 = add nsw i32 %164, %165
store i32 %166, i32* %12
%167 = load double*, double** %5
%168 = load i32, i32* %12
%169 = sext i32 %168 to i64
%170 = getelementptr inbounds double, double* %167, i64 %169
%171 = load double, double* %170
store double %171, double* %30
%172 = load double, double* %30
%173 = call double @llvm.fabs.f64(double %172)
%174 = load double, double* %29
%175 = fcmp olt double %173, %174
br i1 %175, label %176, label %177
176: ; preds = %157
br label %405
177: ; preds = %157
store i32 1, i32* %9
%178 = load i32, i32* %10
%179 = load i32, i32* %10
%180 = mul nsw i32 %178, %179
%181 = load i32, i32* %10
%182 = add nsw i32 %180, %181
%183 = sdiv i32 %182, 2
store i32 %183, i32* %20
%184 = load i32, i32* %10
%185 = load i32, i32* %20
%186 = add nsw i32 %184, %185
store i32 %186, i32* %11
%187 = load i32, i32* %13
%188 = load i32, i32* %15
%189 = add nsw i32 %187, %188
store i32 %189, i32* %14
%190 = load double*, double** %5
%191 = load i32, i32* %11
%192 = sext i32 %191 to i64
%193 = getelementptr inbounds double, double* %190, i64 %192
%194 = load double, double* %193
store double %194, double* %32
%195 = load double*, double** %5
%196 = load i32, i32* %14
%197 = sext i32 %196 to i64
%198 = getelementptr inbounds double, double* %195, i64 %197
%199 = load double, double* %198
store double %199, double* %33
%200 = load double, double* %32
%201 = load double, double* %33
%202 = fsub double %200, %201
%203 = fdiv double %202, 2.000000e+00
store double %203, double* %34
%204 = load double, double* %30
%205 = fneg double %204
%206 = load double, double* %30
%207 = load double, double* %30
%208 = load double, double* %34
%209 = load double, double* %34
%210 = fmul double %208, %209
%211 = call double @llvm.fmuladd.f64(double %206, double %207, double %210)
%212 = call double @sqrt(double %211)
%213 = fdiv double %205, %212
store double %213, double* %35
%214 = load double, double* %34
%215 = fcmp olt double %214, 0.000000e+00
br i1 %215, label %216, label %219
216: ; preds = %177
%217 = load double, double* %35
%218 = fneg double %217
store double %218, double* %35
br label %219
219: ; preds = %216, %177
%220 = load double, double* %35
%221 = load double, double* %35
%222 = load double, double* %35
%223 = fneg double %221
%224 = call double @llvm.fmuladd.f64(double %223, double %222, double 1.000000e+00)
%225 = call double @sqrt(double %224)
%226 = fadd double 1.000000e+00, %225
%227 = fmul double 2.000000e+00, %226
%228 = call double @sqrt(double %227)
%229 = fdiv double %220, %228
store double %229, double* %36
%230 = load double, double* %36
%231 = load double, double* %36
%232 = fmul double %230, %231
store double %232, double* %37
%233 = load double, double* %37
%234 = fsub double 1.000000e+00, %233
%235 = call double @sqrt(double %234)
store double %235, double* %38
%236 = load double, double* %38
%237 = load double, double* %38
%238 = fmul double %236, %237
store double %238, double* %39
%239 = load double, double* %36
%240 = load double, double* %38
%241 = fmul double %239, %240
store double %241, double* %40
store i32 0, i32* %16
br label %242
242: ; preds = %359, %219
%243 = load i32, i32* %16
%244 = load i32, i32* %8
%245 = icmp slt i32 %243, %244
br i1 %245, label %246, label %362
246: ; preds = %242
%247 = load i32, i32* %16
%248 = load i32, i32* %16
%249 = mul nsw i32 %247, %248
%250 = load i32, i32* %16
%251 = add nsw i32 %249, %250
%252 = sdiv i32 %251, 2
store i32 %252, i32* %21
%253 = load i32, i32* %16
%254 = load i32, i32* %13
%255 = icmp ne i32 %253, %254
br i1 %255, label %256, label %317
256: ; preds = %246
%257 = load i32, i32* %16
%258 = load i32, i32* %10
%259 = icmp ne i32 %257, %258
br i1 %259, label %260, label %317
260: ; preds = %256
%261 = load i32, i32* %16
%262 = load i32, i32* %13
%263 = icmp sgt i32 %261, %262
br i1 %263, label %264, label %268
264: ; preds = %260
%265 = load i32, i32* %13
%266 = load i32, i32* %21
%267 = add nsw i32 %265, %266
store i32 %267, i32* %22
br label %272
268: ; preds = %260
%269 = load i32, i32* %16
%270 = load i32, i32* %15
%271 = add nsw i32 %269, %270
store i32 %271, i32* %22
br label %272
272: ; preds = %268, %264
%273 = load i32, i32* %16
%274 = load i32, i32* %10
%275 = icmp sge i32 %273, %274
br i1 %275, label %276, label %280
276: ; preds = %272
%277 = load i32, i32* %10
%278 = load i32, i32* %21
%279 = add nsw i32 %277, %278
store i32 %279, i32* %23
br label %284
280: ; preds = %272
%281 = load i32, i32* %16
%282 = load i32, i32* %20
%283 = add nsw i32 %281, %282
store i32 %283, i32* %23
br label %284
284: ; preds = %280, %276
%285 = load double*, double** %5
%286 = load i32, i32* %23
%287 = sext i32 %286 to i64
%288 = getelementptr inbounds double, double* %285, i64 %287
%289 = load double, double* %288
store double %289, double* %41
%290 = load double*, double** %5
%291 = load i32, i32* %22
%292 = sext i32 %291 to i64
%293 = getelementptr inbounds double, double* %290, i64 %292
%294 = load double, double* %293
store double %294, double* %42
%295 = load double, double* %41
%296 = load double, double* %38
%297 = load double, double* %42
%298 = load double, double* %36
%299 = fmul double %297, %298
%300 = fneg double %299
%301 = call double @llvm.fmuladd.f64(double %295, double %296, double %300)
store double %301, double* %34
%302 = load double, double* %41
%303 = load double, double* %36
%304 = load double, double* %42
%305 = load double, double* %38
%306 = fmul double %304, %305
%307 = call double @llvm.fmuladd.f64(double %302, double %303, double %306)
%308 = load double*, double** %5
%309 = load i32, i32* %22
%310 = sext i32 %309 to i64
%311 = getelementptr inbounds double, double* %308, i64 %310
store double %307, double* %311
%312 = load double, double* %34
%313 = load double*, double** %5
%314 = load i32, i32* %23
%315 = sext i32 %314 to i64
%316 = getelementptr inbounds double, double* %313, i64 %315
store double %312, double* %316
br label %317
317: ; preds = %284, %256, %246
%318 = load i32, i32* %8
%319 = load i32, i32* %10
%320 = mul nsw i32 %318, %319
%321 = load i32, i32* %16
%322 = add nsw i32 %320, %321
store i32 %322, i32* %24
%323 = load i32, i32* %8
%324 = load i32, i32* %13
%325 = mul nsw i32 %323, %324
%326 = load i32, i32* %16
%327 = add nsw i32 %325, %326
store i32 %327, i32* %25
%328 = load double*, double** %6
%329 = load i32, i32* %24
%330 = sext i32 %329 to i64
%331 = getelementptr inbounds double, double* %328, i64 %330
%332 = load double, double* %331
store double %332, double* %43
%333 = load double*, double** %6
%334 = load i32, i32* %25
%335 = sext i32 %334 to i64
%336 = getelementptr inbounds double, double* %333, i64 %335
%337 = load double, double* %336
store double %337, double* %44
%338 = load double, double* %43
%339 = load double, double* %38
%340 = load double, double* %44
%341 = load double, double* %36
%342 = fmul double %340, %341
%343 = fneg double %342
%344 = call double @llvm.fmuladd.f64(double %338, double %339, double %343)
%345 = load double*, double** %6
%346 = load i32, i32* %24
%347 = sext i32 %346 to i64
%348 = getelementptr inbounds double, double* %345, i64 %347
store double %344, double* %348
%349 = load double, double* %43
%350 = load double, double* %36
%351 = load double, double* %44
%352 = load double, double* %38
%353 = fmul double %351, %352
%354 = call double @llvm.fmuladd.f64(double %349, double %350, double %353)
%355 = load double*, double** %6
%356 = load i32, i32* %25
%357 = sext i32 %356 to i64
%358 = getelementptr inbounds double, double* %355, i64 %357
store double %354, double* %358
br label %359
359: ; preds = %317
%360 = load i32, i32* %16
%361 = add nsw i32 %360, 1
store i32 %361, i32* %16
br label %242
362: ; preds = %242
%363 = load double, double* %30
%364 = fmul double 2.000000e+00, %363
%365 = load double, double* %40
%366 = fmul double %364, %365
store double %366, double* %34
%367 = load double, double* %32
%368 = load double, double* %39
%369 = load double, double* %33
%370 = load double, double* %37
%371 = fmul double %369, %370
%372 = call double @llvm.fmuladd.f64(double %367, double %368, double %371)
%373 = load double, double* %34
%374 = fsub double %372, %373
%375 = load double*, double** %5
%376 = load i32, i32* %11
%377 = sext i32 %376 to i64
%378 = getelementptr inbounds double, double* %375, i64 %377
store double %374, double* %378
%379 = load double, double* %32
%380 = load double, double* %37
%381 = load double, double* %33
%382 = load double, double* %39
%383 = fmul double %381, %382
%384 = call double @llvm.fmuladd.f64(double %379, double %380, double %383)
%385 = load double, double* %34
%386 = fadd double %384, %385
%387 = load double*, double** %5
%388 = load i32, i32* %14
%389 = sext i32 %388 to i64
%390 = getelementptr inbounds double, double* %387, i64 %389
store double %386, double* %390
%391 = load double, double* %32
%392 = load double, double* %33
%393 = fsub double %391, %392
%394 = load double, double* %40
%395 = load double, double* %30
%396 = load double, double* %39
%397 = load double, double* %37
%398 = fsub double %396, %397
%399 = fmul double %395, %398
%400 = call double @llvm.fmuladd.f64(double %393, double %394, double %399)
%401 = load double*, double** %5
%402 = load i32, i32* %12
%403 = sext i32 %402 to i64
%404 = getelementptr inbounds double, double* %401, i64 %403
store double %400, double* %404
br label %405
405: ; preds = %362, %176
%406 = load i32, i32* %13
%407 = add nsw i32 %406, 1
store i32 %407, i32* %13
br label %153
408: ; preds = %153
br label %409
409: ; preds = %408
%410 = load i32, i32* %10
%411 = add nsw i32 %410, 1
store i32 %411, i32* %10
br label %145
412: ; preds = %145
br label %413
413: ; preds = %412
%414 = load i32, i32* %9
%415 = icmp ne i32 %414, 0
br i1 %415, label %144, label %416
416: ; preds = %413
br label %135
417: ; preds = %135
br label %418
418: ; preds = %417, %122
store i32 0, i32* %10
store i32 1, i32* %17
br label %419
419: ; preds = %438, %418
%420 = load i32, i32* %17
%421 = load i32, i32* %8
%422 = icmp sle i32 %420, %421
br i1 %422, label %423, label %441
423: ; preds = %419
%424 = load i32, i32* %10
%425 = load i32, i32* %17
%426 = add nsw i32 %424, %425
store i32 %426, i32* %10
%427 = load double*, double** %5
%428 = load i32, i32* %10
%429 = sub nsw i32 %428, 1
%430 = sext i32 %429 to i64
%431 = getelementptr inbounds double, double* %427, i64 %430
%432 = load double, double* %431
%433 = load double*, double** %7
%434 = load i32, i32* %17
%435 = sub nsw i32 %434, 1
%436 = sext i32 %435 to i64
%437 = getelementptr inbounds double, double* %433, i64 %436
store double %432, double* %437
br label %438
438: ; preds = %423
%439 = load i32, i32* %17
%440 = add nsw i32 %439, 1
store i32 %440, i32* %17
br label %419
441: ; preds = %419
ret void
}

LLVM IR (-O2):
define void @eigens(double* nocapture %0, double* nocapture %1, double* nocapture writeonly %2, i32 %3) {
%5 = mul i32 %3, %3
%6 = icmp eq i32 %5, 0
br i1 %6, label %11, label %7
7: ; preds = %4
%8 = bitcast double* %1 to i8*
%9 = zext i32 %5 to i64
%10 = shl nuw nsw i64 %9, 3
br label %11
11: ; preds = %7, %4
%12 = icmp sgt i32 %3, 0
br i1 %12, label %13, label %311
13: ; preds = %11
%14 = zext i32 %3 to i64
%15 = zext i32 %3 to i64
%16 = add nsw i64 %15, -1
%17 = and i64 %15, 3
%18 = icmp ult i64 %16, 3
br i1 %18, label %21, label %19
19: ; preds = %13
%20 = and i64 %15, 4294967292
br label %41
21: ; preds = %41, %13
%22 = phi i64 [ 0, %13 ], [ %60, %41 ]
%23 = phi i64 [ 0, %13 ], [ %59, %41 ]
%24 = icmp eq i64 %17, 0
br i1 %24, label %35, label %25
25: ; preds = %21, %25
%26 = phi i64 [ %32, %25 ], [ %22, %21 ]
%27 = phi i64 [ %31, %25 ], [ %23, %21 ]
%28 = phi i64 [ %33, %25 ], [ 0, %21 ]
%29 = add nuw nsw i64 %27, %26
%30 = getelementptr inbounds double, double* %1, i64 %29
store double 1.000000e+00, double* %30
%31 = add nuw nsw i64 %27, %14
%32 = add nuw nsw i64 %26, 1
%33 = add i64 %28, 1
%34 = icmp eq i64 %33, %17
br i1 %34, label %35, label %25
35: ; preds = %25, %21
br i1 %12, label %36, label %311
36: ; preds = %35
%37 = and i32 %3, 1
%38 = icmp eq i32 %3, 1
%39 = and i32 %3, -2
%40 = icmp eq i32 %37, 0
br label %63
41: ; preds = %41, %19
%42 = phi i64 [ 0, %19 ], [ %60, %41 ]
%43 = phi i64 [ 0, %19 ], [ %59, %41 ]
%44 = phi i64 [ 0, %19 ], [ %61, %41 ]
%45 = add nuw nsw i64 %43, %42
%46 = getelementptr inbounds double, double* %1, i64 %45
store double 1.000000e+00, double* %46
%47 = add nuw nsw i64 %43, %14
%48 = or i64 %42, 1
%49 = add nuw nsw i64 %47, %48
%50 = getelementptr inbounds double, double* %1, i64 %49
store double 1.000000e+00, double* %50
%51 = add nuw nsw i64 %47, %14
%52 = or i64 %42, 2
%53 = add nuw nsw i64 %51, %52
%54 = getelementptr inbounds double, double* %1, i64 %53
store double 1.000000e+00, double* %54
%55 = add nuw nsw i64 %51, %14
%56 = or i64 %42, 3
%57 = add nuw nsw i64 %55, %56
%58 = getelementptr inbounds double, double* %1, i64 %57
store double 1.000000e+00, double* %58
%59 = add nuw nsw i64 %55, %14
%60 = add nuw nsw i64 %42, 4
%61 = add i64 %44, 4
%62 = icmp eq i64 %61, %20
br i1 %62, label %21, label %41
63: ; preds = %36, %113
%64 = phi i32 [ %115, %113 ], [ 0, %36 ]
%65 = phi double [ %114, %113 ], [ 0.000000e+00, %36 ]
br i1 %38, label %98, label %66
66: ; preds = %63, %93
%67 = phi i32 [ %95, %93 ], [ 0, %63 ]
%68 = phi double [ %94, %93 ], [ %65, %63 ]
%69 = phi i32 [ %96, %93 ], [ 0, %63 ]
%70 = icmp eq i32 %64, %67
br i1 %70, label %80, label %71
71: ; preds = %66
%72 = mul nsw i32 %67, %67
%73 = add nuw nsw i32 %72, %67
%74 = lshr exact i32 %73, 1
%75 = add nuw nsw i32 %74, %64
%76 = zext i32 %75 to i64
%77 = getelementptr inbounds double, double* %0, i64 %76
%78 = load double, double* %77
%79 = tail call double @llvm.fmuladd.f64(double %78, double %78, double %68)
br label %80
80: ; preds = %66, %71
%81 = phi double [ %79, %71 ], [ %68, %66 ]
%82 = or i32 %67, 1
%83 = icmp eq i32 %64, %82
br i1 %83, label %93, label %84
84: ; preds = %80
%85 = mul nsw i32 %82, %82
%86 = add nuw nsw i32 %85, %82
%87 = lshr exact i32 %86, 1
%88 = add nuw nsw i32 %87, %64
%89 = zext i32 %88 to i64
%90 = getelementptr inbounds double, double* %0, i64 %89
%91 = load double, double* %90
%92 = tail call double @llvm.fmuladd.f64(double %91, double %91, double %81)
br label %93
93: ; preds = %84, %80
%94 = phi double [ %92, %84 ], [ %81, %80 ]
%95 = add nuw nsw i32 %67, 2
%96 = add i32 %69, 2
%97 = icmp eq i32 %96, %39
br i1 %97, label %98, label %66
98: ; preds = %93, %63
%99 = phi double [ undef, %63 ], [ %94, %93 ]
%100 = phi i32 [ 0, %63 ], [ %95, %93 ]
%101 = phi double [ %65, %63 ], [ %94, %93 ]
br i1 %40, label %113, label %102
102: ; preds = %98
%103 = icmp eq i32 %64, %100
br i1 %103, label %113, label %104
104: ; preds = %102
%105 = mul nsw i32 %100, %100
%106 = add nuw nsw i32 %105, %100
%107 = lshr i32 %106, 1
%108 = add nuw nsw i32 %107, %64
%109 = zext i32 %108 to i64
%110 = getelementptr inbounds double, double* %0, i64 %109
%111 = load double, double* %110
%112 = tail call double @llvm.fmuladd.f64(double %111, double %111, double %101)
br label %113
113: ; preds = %102, %104, %98
%114 = phi double [ %99, %98 ], [ %112, %104 ], [ %101, %102 ]
%115 = add nuw nsw i32 %64, 1
%116 = icmp eq i32 %115, %3
br i1 %116, label %117, label %63
117: ; preds = %113
%118 = fcmp ugt double %114, 0.000000e+00
br i1 %118, label %119, label %267
119: ; preds = %117
%120 = fadd double %114, %114
%121 = tail call double @sqrt(double %120)
%122 = fmul double %121, 1.000000e-10
%123 = sitofp i32 %3 to double
%124 = fdiv double %122, %123
%125 = fcmp ogt double %121, %124
br i1 %125, label %126, label %267
126: ; preds = %119
%127 = add i32 %3, -1
%128 = icmp sgt i32 %3, 1
%129 = sext i32 %3 to i64
%130 = zext i32 %127 to i64
%131 = zext i32 %3 to i64
br label %134
132: ; preds = %264, %134
%133 = fcmp ogt double %136, %124
br i1 %133, label %134, label %267
134: ; preds = %126, %132
%135 = phi double [ %121, %126 ], [ %136, %132 ]
%136 = fdiv double %135, %123
br i1 %128, label %145, label %132
137: ; preds = %260, %145
%138 = phi i32 [ %148, %145 ], [ %261, %260 ]
%139 = add nuw nsw i64 %147, 1
%140 = icmp eq i64 %150, %130
br i1 %140, label %264, label %141
141: ; preds = %137, %264
%142 = phi i64 [ %150, %137 ], [ 0, %264 ]
%143 = phi i64 [ %139, %137 ], [ 1, %264 ]
%144 = phi i32 [ %138, %137 ], [ 0, %264 ]
br label %145
145: ; preds = %134, %141
%146 = phi i64 [ %142, %141 ], [ 0, %134 ]
%147 = phi i64 [ %143, %141 ], [ 1, %134 ]
%148 = phi i32 [ %144, %141 ], [ 0, %134 ]
%149 = trunc i64 %146 to i32
%150 = add nuw nsw i64 %146, 1
%151 = icmp slt i64 %150, %129
br i1 %151, label %152, label %137
152: ; preds = %145
%153 = mul nsw i32 %149, %149
%154 = add nuw nsw i32 %153, %149
%155 = lshr i32 %154, 1
%156 = add nuw nsw i32 %155, %149
%157 = zext i32 %156 to i64
%158 = getelementptr inbounds double, double* %0, i64 %157
%159 = mul nsw i64 %146, %129
br label %160
160: ; preds = %152, %260
%161 = phi i64 [ %147, %152 ], [ %262, %260 ]
%162 = phi i32 [ %148, %152 ], [ %261, %260 ]
%163 = trunc i64 %161 to i32
%164 = mul nsw i32 %163, %163
%165 = add nuw nsw i32 %164, %163
%166 = lshr i32 %165, 1
%167 = add nuw nsw i32 %166, %149
%168 = zext i32 %167 to i64
%169 = getelementptr inbounds double, double* %0, i64 %168
%170 = load double, double* %169
%171 = tail call double @llvm.fabs.f64(double %170)
%172 = fcmp olt double %171, %136
br i1 %172, label %260, label %173
173: ; preds = %160
%174 = add nuw nsw i32 %166, %163
%175 = load double, double* %158
%176 = zext i32 %174 to i64
%177 = getelementptr inbounds double, double* %0, i64 %176
%178 = load double, double* %177
%179 = fsub double %175, %178
%180 = fmul double %179, 5.000000e-01
%181 = fneg double %170
%182 = fmul double %180, %180
%183 = tail call double @llvm.fmuladd.f64(double %170, double %170, double %182)
%184 = tail call double @sqrt(double %183)
%185 = fdiv double %181, %184
%186 = fcmp olt double %180, 0.000000e+00
%187 = fneg double %185
%188 = select i1 %186, double %187, double %185
%189 = fneg double %188
%190 = tail call double @llvm.fmuladd.f64(double %189, double %188, double 1.000000e+00)
%191 = tail call double @sqrt(double %190)
%192 = fadd double %191, 1.000000e+00
%193 = fmul double %192, 2.000000e+00
%194 = tail call double @sqrt(double %193)
%195 = fdiv double %188, %194
%196 = fmul double %195, %195
%197 = fsub double 1.000000e+00, %196
%198 = tail call double @sqrt(double %197)
%199 = fmul double %198, %198
%200 = fmul double %198, %195
br i1 %12, label %201, label %248
201: ; preds = %173
%202 = mul nsw i64 %161, %129
br label %203
203: ; preds = %201, %234
%204 = phi i64 [ 0, %201 ], [ %246, %234 ]
%205 = trunc i64 %204 to i32
%206 = mul nsw i32 %205, %205
%207 = add nuw nsw i32 %206, %205
%208 = lshr i32 %207, 1
%209 = icmp eq i64 %204, %161
%210 = icmp eq i64 %204, %146
%211 = select i1 %209, i1 true, i1 %210
br i1 %211, label %234, label %212
212: ; preds = %203
%213 = icmp ugt i64 %204, %161
%214 = add nuw nsw i32 %208, %163
%215 = trunc i64 %204 to i32
%216 = add i32 %166, %215
%217 = select i1 %213, i32 %214, i32 %216
%218 = icmp ult i64 %204, %146
%219 = add nuw nsw i32 %208, %149
%220 = trunc i64 %204 to i32
%221 = add i32 %155, %220
%222 = select i1 %218, i32 %221, i32 %219
%223 = zext i32 %222 to i64
%224 = getelementptr inbounds double, double* %0, i64 %223
%225 = load double, double* %224
%226 = zext i32 %217 to i64
%227 = getelementptr inbounds double, double* %0, i64 %226
%228 = load double, double* %227
%229 = fneg double %228
%230 = fmul double %195, %229
%231 = tail call double @llvm.fmuladd.f64(double %225, double %198, double %230)
%232 = fmul double %198, %228
%233 = tail call double @llvm.fmuladd.f64(double %225, double %195, double %232)
store double %233, double* %227
store double %231, double* %224
br label %234
234: ; preds = %212, %203
%235 = add nsw i64 %204, %159
%236 = add nsw i64 %204, %202
%237 = getelementptr inbounds double, double* %1, i64 %235
%238 = load double, double* %237
%239 = getelementptr inbounds double, double* %1, i64 %236
%240 = load double, double* %239
%241 = fneg double %240
%242 = fmul double %195, %241
%243 = tail call double @llvm.fmuladd.f64(double %238, double %198, double %242)
store double %243, double* %237
%244 = fmul double %198, %240
%245 = tail call double @llvm.fmuladd.f64(double %238, double %195, double %244)
store double %245, double* %239
%246 = add nuw nsw i64 %204, 1
%247 = icmp eq i64 %246, %131
br i1 %247, label %248, label %203
248: ; preds = %234, %173
%249 = fmul double %170, 2.000000e+00
%250 = fmul double %249, %200
%251 = fmul double %178, %196
%252 = tail call double @llvm.fmuladd.f64(double %175, double %199, double %251)
%253 = fsub double %252, %250
store double %253, double* %158
%254 = fmul double %178, %199
%255 = tail call double @llvm.fmuladd.f64(double %175, double %196, double %254)
%256 = fadd double %255, %250
store double %256, double* %177
%257 = fsub double %199, %196
%258 = fmul double %170, %257
%259 = tail call double @llvm.fmuladd.f64(double %179, double %200, double %258)
store double %259, double* %169
br label %260
260: ; preds = %160, %248
%261 = phi i32 [ %162, %160 ], [ 1, %248 ]
%262 = add nuw nsw i64 %161, 1
%263 = icmp eq i64 %262, %131
br i1 %263, label %137, label %160
264: ; preds = %137
%265 = icmp ne i32 %138, 0
%266 = and i1 %128, %265
br i1 %266, label %141, label %132
267: ; preds = %132, %119, %117
%268 = icmp slt i32 %3, 1
br i1 %268, label %311, label %269
269: ; preds = %267
%270 = zext i32 %3 to i64
%271 = and i64 %270, 1
%272 = icmp eq i32 %3, 1
br i1 %272, label %298, label %273
273: ; preds = %269
%274 = and i64 %270, 4294967294
br label %275
275: ; preds = %275, %273
%276 = phi i64 [ 1, %273 ], [ %295, %275 ]
%277 = phi i32 [ 0, %273 ], [ %289, %275 ]
%278 = phi i64 [ 0, %273 ], [ %296, %275 ]
%279 = trunc i64 %276 to i32
%280 = add nuw nsw i32 %277, %279
%281 = add nsw i32 %280, -1
%282 = sext i32 %281 to i64
%283 = getelementptr inbounds double, double* %0, i64 %282
%284 = load double, double* %283
%285 = add nsw i64 %276, -1
%286 = getelementptr inbounds double, double* %2, i64 %285
store double %284, double* %286
%287 = trunc i64 %276 to i32
%288 = add i32 %287, 1
%289 = add nuw nsw i32 %280, %288
%290 = add i32 %280, %287
%291 = sext i32 %290 to i64
%292 = getelementptr inbounds double, double* %0, i64 %291
%293 = load double, double* %292
%294 = getelementptr inbounds double, double* %2, i64 %276
store double %293, double* %294
%295 = add nuw nsw i64 %276, 2
%296 = add i64 %278, 2
%297 = icmp eq i64 %296, %274
br i1 %297, label %298, label %275
298: ; preds = %275, %269
%299 = phi i64 [ 1, %269 ], [ %295, %275 ]
%300 = phi i32 [ 0, %269 ], [ %289, %275 ]
%301 = icmp eq i64 %271, 0
br i1 %301, label %311, label %302
302: ; preds = %298
%303 = trunc i64 %299 to i32
%304 = add nuw nsw i32 %300, %303
%305 = add nsw i32 %304, -1
%306 = sext i32 %305 to i64
%307 = getelementptr inbounds double, double* %0, i64 %306
%308 = load double, double* %307
%309 = add nsw i64 %299, -1
%310 = getelementptr inbounds double, double* %2, i64 %309
store double %308, double* %310
br label %311
311: ; preds = %302, %298, %35, %11, %267
ret void
}