qrfac(m, n, a, lda, pivot, ipvt, lipvt, rdiag, acnorm, wa) int m, n, lda, lipvt;
int ipvt[];
int pivot;
double a[], rdiag[], acnorm[], wa[];
{
  int i, ij, jj, j, jp1, k, kmax, minmn;
  double ajnorm, sum, temp;
  static double zero = 0.0;
  static double one = 1.0;
  static double p05 = 0.05;
  extern double MACHEP;
  double enorm(), dmax1(), sqrt();
  ij = 0;
  for (j = 0; j < n; j++) {
    acnorm[j] = enorm(m, &a[ij]);
    rdiag[j] = acnorm[j];
    wa[j] = rdiag[j];
    if (pivot != 0)
      ipvt[j] = j;
    ij += m;
  }
  minmn = min0(m, n);
  for (j = 0; j < minmn; j++) {
    if (pivot == 0)
      goto L40;
    kmax = j;
    for (k = j; k < n; k++) {
      if (rdiag[k] > rdiag[kmax])
        kmax = k;
    }
    if (kmax == j)
      goto L40;
    ij = m * j;
    jj = m * kmax;
    for (i = 0; i < m; i++) {
      temp = a[ij];
      a[ij] = a[jj];
      a[jj] = temp;
      ij += 1;
      jj += 1;
    }
    rdiag[kmax] = rdiag[j];
    wa[kmax] = wa[j];
    k = ipvt[j];
    ipvt[j] = ipvt[kmax];
    ipvt[kmax] = k;
  L40:
    jj = j + m * j;
    ajnorm = enorm(m - j, &a[jj]);
    if (ajnorm == zero)
      goto L100;
    if (a[jj] < zero)
      ajnorm = -ajnorm;
    ij = jj;
    for (i = j; i < m; i++) {
      a[ij] /= ajnorm;
      ij += 1;
    }
    a[jj] += one;
    jp1 = j + 1;
    if (jp1 < n) {
      for (k = jp1; k < n; k++) {
        sum = zero;
        ij = j + m * k;
        jj = j + m * j;
        for (i = j; i < m; i++) {
          sum += a[jj] * a[ij];
          ij += 1;
          jj += 1;
        }
        temp = sum / a[j + m * j];
        ij = j + m * k;
        jj = j + m * j;
        for (i = j; i < m; i++) {
          a[ij] -= temp * a[jj];
          ij += 1;
          jj += 1;
        }
        if ((pivot != 0) && (rdiag[k] != zero)) {
          temp = a[j + m * k] / rdiag[k];
          temp = dmax1(zero, one - temp * temp);
          rdiag[k] *= sqrt(temp);
          temp = rdiag[k] / wa[k];
          if ((p05 * temp * temp) <= MACHEP) {
            rdiag[k] = enorm(m - j - 1, &a[jp1 + m * k]);
            wa[k] = rdiag[k];
          }
        }
      }
    }
  L100:
    rdiag[j] = -ajnorm;
  }
}


x86 assembly (clang, -O0):
<qrfac>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    0x28(%rbp),%rax
mov    0x20(%rbp),%rax
mov    0x18(%rbp),%rax
mov    0x10(%rbp),%eax
mov    %edi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8d,-0x20(%rbp)
mov    %r9,-0x28(%rbp)
movl   $0x0,-0x30(%rbp)
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    120f <qrfac+0xcf>
mov    -0x8(%rbp),%edi
mov    -0x18(%rbp),%rsi
movslq -0x30(%rbp),%rax
shl    $0x3,%rax
add    %rax,%rsi
mov    $0x0,%al
call   1030 <enorm@plt>
mov    0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x28(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
cmpl   $0x0,-0x20(%rbp)
je     11f8 <qrfac+0xb8>
mov    -0x38(%rbp),%edx
mov    -0x28(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x8(%rbp),%eax
add    -0x30(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    117a <qrfac+0x3a>
mov    -0x8(%rbp),%edi
mov    -0xc(%rbp),%esi
mov    $0x0,%al
call   1060 <min0@plt>
mov    %eax,-0x48(%rbp)
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x48(%rbp),%eax
jge    178f <qrfac+0x64f>
cmpl   $0x0,-0x20(%rbp)
jne    1241 <qrfac+0x101>
jmp    138e <qrfac+0x24e>
mov    -0x38(%rbp),%eax
mov    %eax,-0x44(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1292 <qrfac+0x152>
mov    0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x18(%rbp),%rax
movslq -0x44(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    127f <qrfac+0x13f>
mov    -0x40(%rbp),%eax
mov    %eax,-0x44(%rbp)
jmp    1284 <qrfac+0x144>
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    124d <qrfac+0x10d>
mov    -0x44(%rbp),%eax
cmp    -0x38(%rbp),%eax
jne    12a3 <qrfac+0x163>
jmp    138e <qrfac+0x24e>
mov    -0x8(%rbp),%eax
imul   -0x38(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x8(%rbp),%eax
imul   -0x44(%rbp),%eax
mov    %eax,-0x34(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1328 <qrfac+0x1e8>
mov    -0x18(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x60(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    12be <qrfac+0x17e>
mov    0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x18(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x28(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x40(%rbp)
mov    -0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x28(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x40(%rbp),%edx
mov    -0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x38(%rbp),%eax
mov    -0x8(%rbp),%ecx
imul   -0x38(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x34(%rbp)
mov    -0x8(%rbp),%edi
sub    -0x38(%rbp),%edi
mov    -0x18(%rbp),%rsi
movslq -0x34(%rbp),%rax
shl    $0x3,%rax
add    %rax,%rsi
mov    $0x0,%al
call   1030 <enorm@plt>
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
ucomisd 0x2c8d(%rip),%xmm0
jne    13dc <qrfac+0x29c>
jp     13dc <qrfac+0x29c>
jmp    1758 <qrfac+0x618>
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  0x2c67(%rip),%xmm0
ucomisd %xmm1,%xmm0
jbe    141c <qrfac+0x2dc>
movsd  -0x50(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x34(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1466 <qrfac+0x326>
movsd  -0x50(%rbp),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1428 <qrfac+0x2e8>
movsd  0x2bd2(%rip),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1753 <qrfac+0x613>
mov    -0x3c(%rbp),%eax
mov    %eax,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    174e <qrfac+0x60e>
movsd  0x2ba9(%rip),%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x8(%rbp),%ecx
imul   -0x40(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x30(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x8(%rbp),%ecx
imul   -0x38(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x34(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1530 <qrfac+0x3f0>
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x58(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    14d8 <qrfac+0x398>
movsd  -0x58(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x38(%rbp),%ecx
mov    -0x8(%rbp),%edx
imul   -0x38(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
divsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x8(%rbp),%ecx
imul   -0x40(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x30(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x8(%rbp),%ecx
imul   -0x38(%rbp),%ecx
add    %ecx,%eax
mov    %eax,-0x34(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    15e5 <qrfac+0x4a5>
movsd  -0x60(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x18(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movq   %xmm0,%rdx
movabs $0x8000000000000000,%rsi
xor    %rsi,%rdx
movq   %rdx,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1576 <qrfac+0x436>
cmpl   $0x0,-0x20(%rbp)
je     173b <qrfac+0x5fb>
mov    0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd 0x2a54(%rip),%xmm0
jne    1615 <qrfac+0x4d5>
jp     1615 <qrfac+0x4d5>
jmp    173b <qrfac+0x5fb>
mov    -0x18(%rbp),%rax
mov    -0x38(%rbp),%ecx
mov    -0x8(%rbp),%edx
imul   -0x40(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
divsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  0x2a11(%rip),%xmm0
movsd  0x29f1(%rip),%xmm2
movsd  -0x60(%rbp),%xmm1
movsd  -0x60(%rbp),%xmm3
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm3,%xmm1
addsd  %xmm2,%xmm1
mov    $0x2,%al
call   1040 <dmax1@plt>
movsd  %xmm0,-0x60(%rbp)
movsd  -0x60(%rbp),%xmm0
call   1050 <sqrt@plt>
mov    0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x28(%rbp),%rax
movslq -0x40(%rbp),%rcx
divsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  0x2981(%rip),%xmm1
mulsd  -0x60(%rbp),%xmm1
mulsd  -0x60(%rbp),%xmm1
mov    0x2910(%rip),%rax
movsd  (%rax),%xmm0
ucomisd %xmm1,%xmm0
jb     1736 <qrfac+0x5f6>
mov    -0x8(%rbp),%edi
sub    -0x38(%rbp),%edi
sub    $0x1,%edi
mov    -0x18(%rbp),%rsi
mov    -0x3c(%rbp),%eax
mov    -0x8(%rbp),%ecx
imul   -0x40(%rbp),%ecx
add    %ecx,%eax
cltq
shl    $0x3,%rax
add    %rax,%rsi
mov    $0x0,%al
call   1030 <enorm@plt>
mov    0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x28(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    173b <qrfac+0x5fb>
jmp    1740 <qrfac+0x600>
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    149b <qrfac+0x35b>
jmp    1753 <qrfac+0x613>
jmp    1758 <qrfac+0x618>
movsd  -0x50(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1226 <qrfac+0xe6>
mov    -0x4(%rbp),%eax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<qrfac>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x158,%rsp
mov    %r9,0x90(%rsp)
mov    %r8d,0x2c(%rsp)
mov    %rdx,0x10(%rsp)
mov    %esi,%r13d
mov    0x198(%rsp),%r15
movslq %edi,%rax
mov    %rax,0x38(%rsp)
mov    %esi,%eax
mov    %rax,0x30(%rsp)
test   %esi,%esi
mov    %rdi,0x18(%rsp)
jle    11fa <qrfac+0xba>
mov    0x1a0(%rsp),%r14
mov    0x38(%rsp),%rax
lea    0x0(,%rax,8),%r12
mov    0x10(%rsp),%rbx
xor    %ebp,%ebp
jmp    11c3 <qrfac+0x83>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x1,%rbp
add    %r12,%rbx
cmp    %rbp,0x30(%rsp)
mov    0x18(%rsp),%rdi
je     11fa <qrfac+0xba>
mov    %rbx,%rsi
xor    %eax,%eax
call   1030 <enorm@plt>
movsd  %xmm0,(%r14,%rbp,8)
movsd  %xmm0,(%r15,%rbp,8)
mov    0x1a8(%rsp),%rax
movsd  %xmm0,(%rax,%rbp,8)
cmpl   $0x0,0x2c(%rsp)
je     11b0 <qrfac+0x70>
mov    0x90(%rsp),%rax
mov    %ebp,(%rax,%rbp,4)
jmp    11b0 <qrfac+0x70>
mov    %r13d,%esi
xor    %eax,%eax
call   1060 <min0@plt>
mov    0x18(%rsp),%r9
test   %eax,%eax
mov    0x10(%rsp),%r8
mov    0x38(%rsp),%r10
jle    1d04 <qrfac+0xbc4>
lea    0x1(%r9),%ecx
mov    %ecx,0x6c(%rsp)
movslq %r13d,%rcx
mov    %rcx,0x98(%rsp)
mov    %eax,%eax
mov    %rax,0x120(%rsp)
lea    0x8(%r8),%rax
mov    %rax,0x48(%rsp)
lea    -0x1(%r9),%eax
lea    0x8(%r8,%rax,8),%r11
mov    %rax,0x80(%rsp)
add    $0x1,%rax
mov    %rax,0xc8(%rsp)
and    $0xfffffffffffffffc,%rax
mov    %rax,0x78(%rsp)
add    $0xfffffffffffffffc,%rax
mov    %rax,0xc0(%rsp)
mov    %rax,%rcx
shr    $0x2,%rcx
add    $0x1,%rcx
mov    %rcx,%rax
mov    %rcx,0xb8(%rsp)
and    $0xfffffffffffffffe,%rcx
mov    %rcx,0xb0(%rsp)
mov    %r9d,%eax
neg    %eax
mov    %eax,0x28(%rsp)
lea    0x30(%r8),%rax
mov    %rax,0x50(%rsp)
lea    0x10(%r8),%rax
mov    %rax,0xd0(%rsp)
mov    $0x1,%r12d
mov    %r9d,%eax
mov    %r9d,0x44(%rsp)
xor    %eax,%eax
mov    %rax,0x8(%rsp)
xor    %ebx,%ebx
xor    %r14d,%r14d
mov    %r11,0x58(%rsp)
jmp    133a <qrfac+0x1fa>
mov    0x58(%rsp),%r11
mov    0xe0(%rsp),%r12
mov    0x24(%rsp),%ebx
movapd 0x140(%rsp),%xmm0
mov    0xa0(%rsp),%rdx
cs nopw 0x0(%rax,%rax,1)
xorpd  0xcf8(%rip),%xmm0
movlpd %xmm0,(%r15,%r14,8)
add    %r9d,%ebx
mov    0x6c(%rsp),%eax
mov    0x8(%rsp),%rcx
add    %eax,%ecx
mov    %rcx,0x8(%rsp)
add    %eax,0x44(%rsp)
add    $0x1,%r12
mov    %rdx,%r14
cmp    0x120(%rsp),%rdx
je     1d04 <qrfac+0xbc4>
cmpl   $0x0,0x2c(%rsp)
mov    %ebx,0x24(%rsp)
je     162b <qrfac+0x4eb>
mov    %r12,%r13
mov    %r14d,%eax
cmp    0x98(%rsp),%r14
mov    0x30(%rsp),%rbp
jge    13b8 <qrfac+0x278>
mov    %ebp,%eax
sub    %r14d,%eax
mov    %r14,%rdx
not    %rdx
add    %rbp,%rdx
mov    %r14,%rcx
mov    %r14d,%esi
and    $0x3,%rax
je     13b0 <qrfac+0x270>
mov    %r14,%rcx
mov    %r14d,%edi
jmp    138c <qrfac+0x24c>
add    $0x1,%rcx
mov    %esi,%edi
add    $0xffffffffffffffff,%rax
je     13b0 <qrfac+0x270>
movsd  (%r15,%rcx,8),%xmm0
movslq %edi,%rsi
ucomisd (%r15,%rsi,8),%xmm0
mov    %ecx,%esi
ja     1380 <qrfac+0x240>
mov    %edi,%esi
jmp    1380 <qrfac+0x240>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %esi,%eax
cmp    $0x3,%rdx
jae    141b <qrfac+0x2db>
mov    %eax,%ecx
cmp    %rcx,%r14
mov    %r13,%r12
je     162b <qrfac+0x4eb>
test   %r9d,%r9d
jle    15f4 <qrfac+0x4b4>
movslq %ebx,%rcx
mov    %eax,%edx
imul   %r9d,%edx
xor    %esi,%esi
movslq %edx,%rdx
cmpl   $0x3,0x80(%rsp)
03
jb     1566 <qrfac+0x426>
lea    (%r8,%rcx,8),%rdi
lea    (%r11,%rdx,8),%rbp
cmp    %rbp,%rdi
jae    1471 <qrfac+0x331>
lea    (%r11,%rcx,8),%rdi
lea    (%r8,%rdx,8),%rbp
cmp    %rdi,%rbp
jae    1471 <qrfac+0x331>
mov    %r13,%r12
jmp    1566 <qrfac+0x426>
nopl   (%rax)
add    $0x4,%rcx
mov    %eax,%esi
cmp    %rbp,%rcx
je     13b8 <qrfac+0x278>
movslq %esi,%rax
movsd  (%r15,%rcx,8),%xmm0
ucomisd (%r15,%rax,8),%xmm0
mov    %ecx,%eax
ja     1430 <qrfac+0x2f0>
mov    %esi,%eax
movsd  0x8(%r15,%rcx,8),%xmm0
movslq %eax,%rdx
ucomisd (%r15,%rdx,8),%xmm0
jbe    1445 <qrfac+0x305>
lea    0x1(%rcx),%eax
movsd  0x10(%r15,%rcx,8),%xmm0
movslq %eax,%rdx
ucomisd (%r15,%rdx,8),%xmm0
jbe    145a <qrfac+0x31a>
lea    0x2(%rcx),%eax
movsd  0x18(%r15,%rcx,8),%xmm0
movslq %eax,%rdx
ucomisd (%r15,%rdx,8),%xmm0
jbe    1410 <qrfac+0x2d0>
lea    0x3(%rcx),%eax
jmp    1410 <qrfac+0x2d0>
cmpq   $0x0,0xc0(%rsp)
je     1cef <qrfac+0xbaf>
mov    0x50(%rsp),%rsi
lea    (%rsi,%rcx,8),%rdi
lea    (%rsi,%rdx,8),%rbp
mov    0xb0(%rsp),%rbx
xor    %esi,%esi
nopw   0x0(%rax,%rax,1)
movups -0x30(%rdi,%rsi,8),%xmm0
movups -0x20(%rdi,%rsi,8),%xmm1
movups -0x30(%rbp,%rsi,8),%xmm2
movups -0x20(%rbp,%rsi,8),%xmm3
movups %xmm2,-0x30(%rdi,%rsi,8)
movups %xmm3,-0x20(%rdi,%rsi,8)
movups %xmm0,-0x30(%rbp,%rsi,8)
movups %xmm1,-0x20(%rbp,%rsi,8)
movupd -0x10(%rdi,%rsi,8),%xmm0
movupd (%rdi,%rsi,8),%xmm1
movupd -0x10(%rbp,%rsi,8),%xmm2
movupd 0x0(%rbp,%rsi,8),%xmm3
movupd %xmm2,-0x10(%rdi,%rsi,8)
movupd %xmm3,(%rdi,%rsi,8)
movupd %xmm0,-0x10(%rbp,%rsi,8)
movupd %xmm1,0x0(%rbp,%rsi,8)
add    $0x8,%rsi
add    $0xfffffffffffffffe,%rbx
jne    14a0 <qrfac+0x360>
testb  $0x1,0xb8(%rsp)
01
je     1545 <qrfac+0x405>
lea    (%rsi,%rdx,1),%rdi
add    %rcx,%rsi
movupd (%r8,%rsi,8),%xmm0
movupd 0x10(%r8,%rsi,8),%xmm1
movupd (%r8,%rdi,8),%xmm2
movupd 0x10(%r8,%rdi,8),%xmm3
movupd %xmm2,(%r8,%rsi,8)
movupd %xmm3,0x10(%r8,%rsi,8)
movupd %xmm0,(%r8,%rdi,8)
movupd %xmm1,0x10(%r8,%rdi,8)
mov    0x78(%rsp),%rsi
cmp    %rsi,0xc8(%rsp)
mov    %r13,%r12
je     15f4 <qrfac+0x4b4>
mov    0x78(%rsp),%rsi
add    %rsi,%rdx
add    %rsi,%rcx
mov    %r9d,%edi
sub    %esi,%edi
test   $0x1,%dil
jne    1575 <qrfac+0x435>
mov    %esi,%edi
jmp    1598 <qrfac+0x458>
movsd  (%r8,%rcx,8),%xmm0
movsd  (%r8,%rdx,8),%xmm1
movsd  %xmm1,(%r8,%rcx,8)
movsd  %xmm0,(%r8,%rdx,8)
add    $0x1,%rcx
add    $0x1,%rdx
lea    0x1(%rsi),%edi
not    %esi
cmp    0x28(%rsp),%esi
je     15f4 <qrfac+0x4b4>
mov    0x48(%rsp),%rsi
lea    (%rsi,%rdx,8),%rdx
lea    (%rsi,%rcx,8),%rcx
mov    %r9d,%esi
sub    %edi,%esi
xor    %edi,%edi
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsd  -0x8(%rcx,%rdi,8),%xmm0
movsd  -0x8(%rdx,%rdi,8),%xmm1
movsd  %xmm1,-0x8(%rcx,%rdi,8)
movsd  %xmm0,-0x8(%rdx,%rdi,8)
movsd  (%rcx,%rdi,8),%xmm0
movsd  (%rdx,%rdi,8),%xmm1
movsd  %xmm1,(%rcx,%rdi,8)
movsd  %xmm0,(%rdx,%rdi,8)
add    $0x2,%rdi
cmp    %edi,%esi
jne    15c0 <qrfac+0x480>
movsd  (%r15,%r14,8),%xmm0
cltq
movsd  %xmm0,(%r15,%rax,8)
mov    0x1a8(%rsp),%rcx
movsd  (%rcx,%r14,8),%xmm0
movsd  %xmm0,(%rcx,%rax,8)
mov    0x90(%rsp),%rsi
mov    (%rsi,%r14,4),%ecx
mov    (%rsi,%rax,4),%edx
mov    %edx,(%rsi,%r14,4)
mov    %ecx,(%rsi,%rax,4)
mov    0x8(%rsp),%rax
cltq
mov    %rax,0x8(%rsp)
mov    %r14d,%eax
imul   %r9d,%eax
cltq
add    %r14,%rax
mov    %r10,%rbp
sub    %r14,%rbp
lea    (%r8,%rax,8),%r13
mov    %ebp,%edi
mov    %r13,%rsi
xor    %eax,%eax
mov    %r10,%rbx
call   1030 <enorm@plt>
xorpd  %xmm7,%xmm7
ucomisd %xmm7,%xmm0
jne    1680 <qrfac+0x540>
jp     1680 <qrfac+0x540>
lea    0x1(%r14),%rdx
mov    0x10(%rsp),%r8
mov    0x18(%rsp),%r9
mov    %rbx,%r10
jmp    1cd0 <qrfac+0xb90>
xchg   %ax,%ax
mov    %rbp,0x60(%rsp)
movsd  0x0(%r13),%xmm3
movapd %xmm0,%xmm1
xorpd  0x969(%rip),%xmm1
movapd %xmm3,%xmm2
cmpltsd %xmm7,%xmm2
andpd  %xmm2,%xmm1
andnpd %xmm0,%xmm2
orpd   %xmm1,%xmm2
movapd %xmm2,%xmm0
cmp    %rbx,%r14
mov    0x10(%rsp),%r8
mov    0x18(%rsp),%r9
mov    %rbx,%r10
mov    0x30(%rsp),%r11
mov    %r13,0xa8(%rsp)
jge    17cc <qrfac+0x68c>
mov    0x80(%rsp),%rcx
mov    0x8(%rsp),%rdx
mov    %r14d,%eax
sub    %r14d,%ecx
je     179c <qrfac+0x65c>
add    $0x1,%rcx
movabs $0x1fffffffc,%rax
add    $0x2,%rax
and    %rcx,%rax
movapd %xmm0,%xmm3
unpcklpd %xmm0,%xmm3
lea    -0x2(%rax),%rdx
mov    %rdx,%rbp
shr    %rbp
add    $0x1,%rbp
test   %rdx,%rdx
je     1cde <qrfac+0xb9e>
mov    0xd0(%rsp),%rdx
mov    0x8(%rsp),%rsi
lea    (%rdx,%rsi,8),%rdi
mov    %rbp,%rdx
and    $0xfffffffffffffffe,%rdx
xor    %esi,%esi
nopw   0x0(%rax,%rax,1)
movupd -0x10(%rdi,%rsi,8),%xmm1
movupd (%rdi,%rsi,8),%xmm2
divpd  %xmm3,%xmm1
movupd %xmm1,-0x10(%rdi,%rsi,8)
divpd  %xmm3,%xmm2
movupd %xmm2,(%rdi,%rsi,8)
add    $0x4,%rsi
add    $0xfffffffffffffffe,%rdx
jne    1740 <qrfac+0x600>
test   $0x1,%bpl
je     1783 <qrfac+0x643>
add    0x8(%rsp),%rsi
movupd (%r8,%rsi,8),%xmm1
divpd  %xmm3,%xmm1
movupd %xmm1,(%r8,%rsi,8)
cmp    %rax,%rcx
mov    0xa8(%rsp),%r13
je     17c6 <qrfac+0x686>
mov    0x8(%rsp),%rcx
lea    (%rax,%rcx,1),%rdx
add    %r14d,%eax
lea    (%r8,%rdx,8),%rcx
mov    %r9d,%edx
sub    %eax,%edx
xor    %eax,%eax
nopw   0x0(%rax,%rax,1)
movsd  (%rcx,%rax,8),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx,%rax,8)
add    $0x1,%rax
cmp    %eax,%edx
jne    17b0 <qrfac+0x670>
movsd  0x0(%r13),%xmm3
addsd  0x83c(%rip),%xmm3
movsd  %xmm3,0x0(%r13)
lea    0x1(%r14),%rdx
cmp    0x98(%rsp),%rdx
mov    0x60(%rsp),%rcx
jge    1cd0 <qrfac+0xb90>
mov    %rdx,0xa0(%rsp)
movapd %xmm0,0x140(%rsp)
mov    0x50(%rsp),%rax
mov    0x8(%rsp),%rdx
lea    (%rax,%rdx,8),%r13
lea    (%r8,%rdx,8),%rax
mov    %rax,0x110(%rsp)
add    $0xffffffff,%ecx
mov    %rcx,0x60(%rsp)
mov    %r14d,%eax
not    %eax
mov    %rax,0x138(%rsp)
lea    (%rax,%r9,1),%esi
mov    0x48(%rsp),%rcx
lea    (%rcx,%rsi,8),%rax
mov    %rax,0x108(%rsp)
lea    (%rdx,%rsi,1),%rax
lea    (%rcx,%rax,8),%rax
mov    %rax,0x118(%rsp)
mov    %rsi,0x130(%rsp)
lea    0x1(%rsi),%rax
mov    %r9d,%ecx
sub    %r14d,%ecx
mov    %ecx,0x74(%rsp)
mov    %rax,0x100(%rsp)
mov    %rax,%rcx
movabs $0x1fffffffc,%rax
and    %rax,%rcx
lea    -0x4(%rcx),%rax
mov    %rax,0xf8(%rsp)
mov    %rax,%rsi
shr    $0x2,%rsi
add    $0x1,%rsi
lea    0x1(%rdx),%rax
mov    %rax,0x128(%rsp)
lea    0x1(%r14),%eax
mov    %eax,0x70(%rsp)
lea    (%rcx,%rdx,1),%rax
mov    %rax,0xd8(%rsp)
mov    %rsi,%rax
mov    %rsi,0xf0(%rsp)
movabs $0x7ffffffffffffffe,%rax
ff ff 7f
and    %rax,%rsi
mov    %rsi,0xe8(%rsp)
mov    %rcx,0x88(%rsp)
lea    (%rcx,%r14,1),%eax
mov    %eax,0x68(%rsp)
mov    %r12,0xe0(%rsp)
mov    %r12,%rbx
mov    0x44(%rsp),%ebp
jmp    1910 <qrfac+0x7d0>
nopl   0x0(%rax)
add    $0x1,%rbx
add    %r9d,%ebp
cmp    %r11,%rbx
je     12d4 <qrfac+0x194>
cmp    %r10,%r14
jge    1ba0 <qrfac+0xa60>
movslq %ebp,%rax
xorpd  %xmm1,%xmm1
mov    0x8(%rsp),%rcx
mov    %rax,%rdx
mov    %r14d,%edi
testb  $0x1,0x74(%rsp)
je     195b <qrfac+0x81b>
mov    0x8(%rsp),%rcx
movsd  (%r8,%rcx,8),%xmm0
mulsd  (%r8,%rax,8),%xmm0
addsd  %xmm7,%xmm0
lea    0x1(%rax),%rdx
mov    0x128(%rsp),%rcx
movapd %xmm0,%xmm1
mov    0x70(%rsp),%edi
mov    0x138(%rsp),%rsi
cmp    0x28(%rsp),%esi
je     19aa <qrfac+0x86a>
mov    0x48(%rsp),%rsi
lea    (%rsi,%rcx,8),%rcx
lea    (%rsi,%rdx,8),%rdx
mov    %r9d,%esi
sub    %edi,%esi
xor    %edi,%edi
nopl   (%rax)
movsd  -0x8(%rcx,%rdi,8),%xmm2
movsd  (%rcx,%rdi,8),%xmm0
mulsd  -0x8(%rdx,%rdi,8),%xmm2
mulsd  (%rdx,%rdi,8),%xmm0
addsd  %xmm1,%xmm2
addsd  %xmm2,%xmm0
add    $0x2,%rdi
movapd %xmm0,%xmm1
cmp    %edi,%esi
jne    1980 <qrfac+0x840>
cmp    %r10,%r14
jge    1ba0 <qrfac+0xa60>
xorpd  0x645(%rip),%xmm0
mov    0xa8(%rsp),%rcx
divsd  (%rcx),%xmm0
cmpl   $0x3,0x130(%rsp)
03
jb     19fd <qrfac+0x8bd>
lea    (%r8,%rax,8),%rcx
cmp    0x118(%rsp),%rcx
jae    1a96 <qrfac+0x956>
mov    0x108(%rsp),%rcx
lea    (%rcx,%rax,8),%rcx
cmp    %rcx,0x110(%rsp)
jae    1a96 <qrfac+0x956>
mov    0x8(%rsp),%rcx
mov    %r14d,%edx
mov    %r9d,%esi
sub    %edx,%esi
test   $0x1,%sil
jne    1a14 <qrfac+0x8d4>
mov    %edx,%esi
jmp    1a35 <qrfac+0x8f5>
movsd  (%r8,%rcx,8),%xmm1
mulsd  %xmm0,%xmm1
addsd  (%r8,%rax,8),%xmm1
movsd  %xmm1,(%r8,%rax,8)
add    $0x1,%rax
add    $0x1,%rcx
lea    0x1(%rdx),%esi
not    %edx
cmp    0x28(%rsp),%edx
je     1ba0 <qrfac+0xa60>
mov    0x48(%rsp),%rdx
lea    (%rdx,%rcx,8),%rcx
lea    (%rdx,%rax,8),%rax
mov    %r9d,%edx
sub    %esi,%edx
xor    %esi,%esi
cs nopw 0x0(%rax,%rax,1)
nop
movsd  -0x8(%rcx,%rsi,8),%xmm1
mulsd  %xmm0,%xmm1
addsd  -0x8(%rax,%rsi,8),%xmm1
movsd  %xmm1,-0x8(%rax,%rsi,8)
movsd  (%rcx,%rsi,8),%xmm1
mulsd  %xmm0,%xmm1
addsd  (%rax,%rsi,8),%xmm1
movsd  %xmm1,(%rax,%rsi,8)
add    $0x2,%rsi
cmp    %esi,%edx
jne    1a60 <qrfac+0x920>
jmp    1ba0 <qrfac+0xa60>
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
cmpq   $0x0,0xf8(%rsp)
je     1cb9 <qrfac+0xb79>
mov    0x50(%rsp),%rcx
lea    (%rcx,%rax,8),%rdx
mov    0xe8(%rsp),%rsi
xor    %ecx,%ecx
movupd -0x30(%r13,%rcx,8),%xmm2
movupd -0x20(%r13,%rcx,8),%xmm3
mulpd  %xmm1,%xmm2
movupd -0x30(%rdx,%rcx,8),%xmm4
addpd  %xmm2,%xmm4
movupd -0x20(%rdx,%rcx,8),%xmm2
movupd -0x10(%rdx,%rcx,8),%xmm5
movupd (%rdx,%rcx,8),%xmm6
mulpd  %xmm1,%xmm3
addpd  %xmm2,%xmm3
movupd %xmm4,-0x30(%rdx,%rcx,8)
movupd %xmm3,-0x20(%rdx,%rcx,8)
movupd -0x10(%r13,%rcx,8),%xmm2
movupd 0x0(%r13,%rcx,8),%xmm3
mulpd  %xmm1,%xmm2
addpd  %xmm5,%xmm2
mulpd  %xmm1,%xmm3
addpd  %xmm6,%xmm3
movupd %xmm2,-0x10(%rdx,%rcx,8)
movupd %xmm3,(%rdx,%rcx,8)
add    $0x8,%rcx
add    $0xfffffffffffffffe,%rsi
jne    1ac0 <qrfac+0x980>
testb  $0x1,0xf0(%rsp)
01
je     1b80 <qrfac+0xa40>
mov    0x8(%rsp),%rdx
add    %rcx,%rdx
add    %rax,%rcx
movupd (%r8,%rdx,8),%xmm2
movupd 0x10(%r8,%rdx,8),%xmm3
movupd (%r8,%rcx,8),%xmm4
movupd 0x10(%r8,%rcx,8),%xmm5
mulpd  %xmm1,%xmm2
addpd  %xmm4,%xmm2
mulpd  %xmm1,%xmm3
addpd  %xmm5,%xmm3
movupd %xmm2,(%r8,%rcx,8)
movupd %xmm3,0x10(%r8,%rcx,8)
mov    0x88(%rsp),%rcx
cmp    %rcx,0x100(%rsp)
jne    1ca0 <qrfac+0xb60>
cs nopw 0x0(%rax,%rax,1)
cmpl   $0x0,0x2c(%rsp)
je     1900 <qrfac+0x7c0>
movsd  (%r15,%rbx,8),%xmm0
ucomisd %xmm7,%xmm0
jne    1bbd <qrfac+0xa7d>
jnp    1900 <qrfac+0x7c0>
mov    %rbx,%r12
imul   %r10,%r12
lea    (%r12,%r14,1),%rax
movsd  (%r8,%rax,8),%xmm2
divsd  %xmm0,%xmm2
mulsd  %xmm2,%xmm2
movsd  0x432(%rip),%xmm1
subsd  %xmm2,%xmm1
xorpd  %xmm0,%xmm0
mov    $0x2,%al
call   1040 <dmax1@plt>
xorpd  %xmm7,%xmm7
ucomisd %xmm7,%xmm0
jb     1bfd <qrfac+0xabd>
sqrtsd %xmm0,%xmm0
jmp    1c06 <qrfac+0xac6>
call   1050 <sqrt@plt>
xorpd  %xmm7,%xmm7
mov    0x10(%rsp),%r8
mov    0x18(%rsp),%r9
mov    0x38(%rsp),%r10
mov    0x30(%rsp),%r11
mulsd  (%r15,%rbx,8),%xmm0
movsd  %xmm0,(%r15,%rbx,8)
mov    0x1a8(%rsp),%rax
divsd  (%rax,%rbx,8),%xmm0
movapd %xmm0,%xmm1
mulsd  0x3d9(%rip),%xmm1
mulsd  %xmm0,%xmm1
mov    0x239e(%rip),%rax
movsd  (%rax),%xmm0
ucomisd %xmm1,%xmm0
jb     1900 <qrfac+0x7c0>
add    0xa0(%rsp),%r12
lea    (%r8,%r12,8),%rsi
mov    0x60(%rsp),%rdi
xor    %eax,%eax
call   1030 <enorm@plt>
xorpd  %xmm7,%xmm7
mov    0x30(%rsp),%r11
mov    0x38(%rsp),%r10
mov    0x18(%rsp),%r9
mov    0x10(%rsp),%r8
movsd  %xmm0,(%r15,%rbx,8)
mov    0x1a8(%rsp),%rax
movsd  %xmm0,(%rax,%rbx,8)
jmp    1900 <qrfac+0x7c0>
add    0x88(%rsp),%rax
mov    0xd8(%rsp),%rcx
mov    0x68(%rsp),%edx
jmp    1a05 <qrfac+0x8c5>
xor    %ecx,%ecx
testb  $0x1,0xf0(%rsp)
01
jne    1b3e <qrfac+0x9fe>
jmp    1b80 <qrfac+0xa40>
xchg   %ax,%ax
mov    0x58(%rsp),%r11
mov    0x24(%rsp),%ebx
jmp    1300 <qrfac+0x1c0>
xor    %esi,%esi
test   $0x1,%bpl
jne    176e <qrfac+0x62e>
jmp    1783 <qrfac+0x643>
xor    %esi,%esi
testb  $0x1,0xb8(%rsp)
01
jne    150a <qrfac+0x3ca>
jmp    1545 <qrfac+0x405>
add    $0x158,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@MACHEP = external global double
define i32 @qrfac(i32 %0, i32 %1, double* %2, i32 %3, i32 %4, i32* nocapture %5, i32 %6, double* nocapture %7, double* nocapture writeonly %8, double* nocapture %9) {
%11 = icmp sgt i32 %1, 0
br i1 %11, label %12, label %31
12: ; preds = %10
%13 = icmp eq i32 %4, 0
%14 = sext i32 %0 to i64
%15 = zext i32 %1 to i64
br label %16
16: ; preds = %12, %27
%17 = phi i64 [ 0, %12 ], [ %29, %27 ]
%18 = phi i64 [ 0, %12 ], [ %28, %27 ]
%19 = getelementptr inbounds double, double* %2, i64 %18
%20 = tail call double (i32, double*, ...) bitcast (double (...)* @enorm to double (i32, double*, ...)*)(i32 %0, double* %19)
%21 = getelementptr inbounds double, double* %8, i64 %17
store double %20, double* %21
%22 = getelementptr inbounds double, double* %7, i64 %17
store double %20, double* %22
%23 = getelementptr inbounds double, double* %9, i64 %17
store double %20, double* %23
br i1 %13, label %27, label %24
24: ; preds = %16
%25 = getelementptr inbounds i32, i32* %5, i64 %17
%26 = trunc i64 %17 to i32
store i32 %26, i32* %25
br label %27
27: ; preds = %24, %16
%28 = add nsw i64 %18, %14
%29 = add nuw nsw i64 %17, 1
%30 = icmp eq i64 %29, %15
br i1 %30, label %31, label %16
31: ; preds = %27, %10
%32 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @min0 to i32 (i32, i32, ...)*)(i32 %0, i32 %1)
%33 = icmp sgt i32 %32, 0
br i1 %33, label %34, label %609
34: ; preds = %31
%35 = icmp eq i32 %4, 0
%36 = icmp sgt i32 %0, 0
%37 = add i32 %0, 1
%38 = sext i32 %0 to i64
%39 = sext i32 %1 to i64
%40 = zext i32 %32 to i64
%41 = zext i32 %1 to i64
%42 = zext i32 %1 to i64
%43 = getelementptr double, double* %2, i64 1
%44 = getelementptr double, double* %2, i64 1
%45 = add i32 %0, -1
%46 = zext i32 %45 to i64
%47 = add nuw nsw i64 %46, 1
%48 = getelementptr double, double* %2, i64 %47
%49 = getelementptr double, double* %2, i64 %47
%50 = zext i32 %45 to i64
%51 = add nuw nsw i64 %50, 1
%52 = and i64 %51, 8589934588
%53 = add nsw i64 %52, -4
%54 = lshr exact i64 %53, 2
%55 = add nuw nsw i64 %54, 1
%56 = icmp ult i32 %45, 3
%57 = and i64 %51, 8589934588
%58 = trunc i64 %57 to i32
%59 = and i64 %55, 1
%60 = icmp eq i64 %53, 0
%61 = and i64 %55, 9223372036854775806
%62 = icmp eq i64 %59, 0
%63 = icmp eq i64 %51, %57
%64 = sub i32 0, %0
%65 = sub i32 0, %0
%66 = sub i32 0, %0
br label %67
67: ; preds = %34, %599
%68 = phi i64 [ 1, %34 ], [ %607, %599 ]
%69 = phi i32 [ %0, %34 ], [ %606, %599 ]
%70 = phi i32 [ 0, %34 ], [ %605, %599 ]
%71 = phi i32 [ 0, %34 ], [ %604, %599 ]
%72 = phi i64 [ 0, %34 ], [ %600, %599 ]
%73 = sext i32 %71 to i64
%74 = getelementptr double, double* %2, i64 %73
%75 = getelementptr double, double* %48, i64 %73
%76 = sext i32 %70 to i64
%77 = getelementptr double, double* %2, i64 %76
%78 = trunc i64 %72 to i32
%79 = sext i32 %70 to i64
%80 = sext i32 %71 to i64
br i1 %35, label %282, label %81
81: ; preds = %67
%82 = icmp slt i64 %72, %39
br i1 %82, label %83, label %149
83: ; preds = %81
%84 = sub i64 %42, %72
%85 = xor i64 %72, -1
%86 = add i64 %85, %42
%87 = and i64 %84, 3
%88 = icmp eq i64 %87, 0
br i1 %88, label %104, label %89
89: ; preds = %83, %89
%90 = phi i64 [ %101, %89 ], [ %72, %83 ]
%91 = phi i32 [ %100, %89 ], [ %78, %83 ]
%92 = phi i64 [ %102, %89 ], [ 0, %83 ]
%93 = getelementptr inbounds double, double* %7, i64 %90
%94 = load double, double* %93
%95 = sext i32 %91 to i64
%96 = getelementptr inbounds double, double* %7, i64 %95
%97 = load double, double* %96
%98 = fcmp ogt double %94, %97
%99 = trunc i64 %90 to i32
%100 = select i1 %98, i32 %99, i32 %91
%101 = add nuw nsw i64 %90, 1
%102 = add i64 %92, 1
%103 = icmp eq i64 %102, %87
br i1 %103, label %104, label %89
104: ; preds = %89, %83
%105 = phi i32 [ undef, %83 ], [ %100, %89 ]
%106 = phi i64 [ %72, %83 ], [ %101, %89 ]
%107 = phi i32 [ %78, %83 ], [ %100, %89 ]
%108 = icmp ult i64 %86, 3
br i1 %108, label %149, label %109
109: ; preds = %104, %109
%110 = phi i64 [ %147, %109 ], [ %106, %104 ]
%111 = phi i32 [ %146, %109 ], [ %107, %104 ]
%112 = getelementptr inbounds double, double* %7, i64 %110
%113 = load double, double* %112
%114 = sext i32 %111 to i64
%115 = getelementptr inbounds double, double* %7, i64 %114
%116 = load double, double* %115
%117 = fcmp ogt double %113, %116
%118 = trunc i64 %110 to i32
%119 = select i1 %117, i32 %118, i32 %111
%120 = add nuw nsw i64 %110, 1
%121 = getelementptr inbounds double, double* %7, i64 %120
%122 = load double, double* %121
%123 = sext i32 %119 to i64
%124 = getelementptr inbounds double, double* %7, i64 %123
%125 = load double, double* %124
%126 = fcmp ogt double %122, %125
%127 = trunc i64 %120 to i32
%128 = select i1 %126, i32 %127, i32 %119
%129 = add nuw nsw i64 %110, 2
%130 = getelementptr inbounds double, double* %7, i64 %129
%131 = load double, double* %130
%132 = sext i32 %128 to i64
%133 = getelementptr inbounds double, double* %7, i64 %132
%134 = load double, double* %133
%135 = fcmp ogt double %131, %134
%136 = trunc i64 %129 to i32
%137 = select i1 %135, i32 %136, i32 %128
%138 = add nuw nsw i64 %110, 3
%139 = getelementptr inbounds double, double* %7, i64 %138
%140 = load double, double* %139
%141 = sext i32 %137 to i64
%142 = getelementptr inbounds double, double* %7, i64 %141
%143 = load double, double* %142
%144 = fcmp ogt double %140, %143
%145 = trunc i64 %138 to i32
%146 = select i1 %144, i32 %145, i32 %137
%147 = add nuw nsw i64 %110, 4
%148 = icmp eq i64 %147, %41
br i1 %148, label %149, label %109
149: ; preds = %104, %109, %81
%150 = phi i32 [ %78, %81 ], [ %105, %104 ], [ %146, %109 ]
%151 = zext i32 %150 to i64
%152 = icmp eq i64 %72, %151
br i1 %152, label %282, label %153
153: ; preds = %149
br i1 %36, label %154, label %270
154: ; preds = %153
%155 = mul i32 %150, %0
%156 = sext i32 %155 to i64
br i1 %56, label %231, label %157
157: ; preds = %154
%158 = getelementptr double, double* %2, i64 %156
%159 = getelementptr double, double* %49, i64 %156
%160 = icmp ult double* %74, %159
%161 = icmp ult double* %158, %75
%162 = and i1 %160, %161
br i1 %162, label %231, label %163
163: ; preds = %157
%164 = add nsw i64 %57, %156
%165 = add nsw i64 %57, %80
br i1 %60, label %209, label %166
166: ; preds = %163, %166
%167 = phi i64 [ %206, %166 ], [ 0, %163 ]
%168 = phi i64 [ %207, %166 ], [ 0, %163 ]
%169 = add i64 %167, %156
%170 = add i64 %167, %80
%171 = getelementptr inbounds double, double* %2, i64 %170
%172 = bitcast double* %171 to <2 x double>*
%173 = load <2 x double>, <2 x double>* %172
%174 = getelementptr inbounds double, double* %171, i64 2
%175 = bitcast double* %174 to <2 x double>*
%176 = load <2 x double>, <2 x double>* %175
%177 = getelementptr inbounds double, double* %2, i64 %169
%178 = bitcast double* %177 to <2 x double>*
%179 = load <2 x double>, <2 x double>* %178
%180 = getelementptr inbounds double, double* %177, i64 2
%181 = bitcast double* %180 to <2 x double>*
%182 = load <2 x double>, <2 x double>* %181
%183 = bitcast double* %171 to <2 x double>*
store <2 x double> %179, <2 x double>* %183
%184 = bitcast double* %174 to <2 x double>*
store <2 x double> %182, <2 x double>* %184
%185 = bitcast double* %177 to <2 x double>*
store <2 x double> %173, <2 x double>* %185
%186 = bitcast double* %180 to <2 x double>*
store <2 x double> %176, <2 x double>* %186
%187 = or i64 %167, 4
%188 = add i64 %187, %156
%189 = add i64 %187, %80
%190 = getelementptr inbounds double, double* %2, i64 %189
%191 = bitcast double* %190 to <2 x double>*
%192 = load <2 x double>, <2 x double>* %191
%193 = getelementptr inbounds double, double* %190, i64 2
%194 = bitcast double* %193 to <2 x double>*
%195 = load <2 x double>, <2 x double>* %194
%196 = getelementptr inbounds double, double* %2, i64 %188
%197 = bitcast double* %196 to <2 x double>*
%198 = load <2 x double>, <2 x double>* %197
%199 = getelementptr inbounds double, double* %196, i64 2
%200 = bitcast double* %199 to <2 x double>*
%201 = load <2 x double>, <2 x double>* %200
%202 = bitcast double* %190 to <2 x double>*
store <2 x double> %198, <2 x double>* %202
%203 = bitcast double* %193 to <2 x double>*
store <2 x double> %201, <2 x double>* %203
%204 = bitcast double* %196 to <2 x double>*
store <2 x double> %192, <2 x double>* %204
%205 = bitcast double* %199 to <2 x double>*
store <2 x double> %195, <2 x double>* %205
%206 = add nuw i64 %167, 8
%207 = add i64 %168, 2
%208 = icmp eq i64 %207, %61
br i1 %208, label %209, label %166
209: ; preds = %166, %163
%210 = phi i64 [ 0, %163 ], [ %206, %166 ]
br i1 %62, label %230, label %211
211: ; preds = %209
%212 = add i64 %210, %156
%213 = add i64 %210, %80
%214 = getelementptr inbounds double, double* %2, i64 %213
%215 = bitcast double* %214 to <2 x double>*
%216 = load <2 x double>, <2 x double>* %215
%217 = getelementptr inbounds double, double* %214, i64 2
%218 = bitcast double* %217 to <2 x double>*
%219 = load <2 x double>, <2 x double>* %218
%220 = getelementptr inbounds double, double* %2, i64 %212
%221 = bitcast double* %220 to <2 x double>*
%222 = load <2 x double>, <2 x double>* %221
%223 = getelementptr inbounds double, double* %220, i64 2
%224 = bitcast double* %223 to <2 x double>*
%225 = load <2 x double>, <2 x double>* %224
%226 = bitcast double* %214 to <2 x double>*
store <2 x double> %222, <2 x double>* %226
%227 = bitcast double* %217 to <2 x double>*
store <2 x double> %225, <2 x double>* %227
%228 = bitcast double* %220 to <2 x double>*
store <2 x double> %216, <2 x double>* %228
%229 = bitcast double* %223 to <2 x double>*
store <2 x double> %219, <2 x double>* %229
br label %230
230: ; preds = %209, %211
br i1 %63, label %270, label %231
231: ; preds = %157, %154, %230
%232 = phi i64 [ %156, %157 ], [ %156, %154 ], [ %164, %230 ]
%233 = phi i64 [ %80, %157 ], [ %80, %154 ], [ %165, %230 ]
%234 = phi i32 [ 0, %157 ], [ 0, %154 ], [ %58, %230 ]
%235 = sub i32 %0, %234
%236 = xor i32 %234, -1
%237 = and i32 %235, 1
%238 = icmp eq i32 %237, 0
br i1 %238, label %247, label %239
239: ; preds = %231
%240 = getelementptr inbounds double, double* %2, i64 %233
%241 = load double, double* %240
%242 = getelementptr inbounds double, double* %2, i64 %232
%243 = load double, double* %242
store double %243, double* %240
store double %241, double* %242
%244 = add nsw i64 %233, 1
%245 = add nsw i64 %232, 1
%246 = add nuw nsw i32 %234, 1
br label %247
247: ; preds = %239, %231
%248 = phi i64 [ %232, %231 ], [ %245, %239 ]
%249 = phi i64 [ %233, %231 ], [ %244, %239 ]
%250 = phi i32 [ %234, %231 ], [ %246, %239 ]
%251 = icmp eq i32 %236, %64
br i1 %251, label %270, label %252
252: ; preds = %247, %252
%253 = phi i64 [ %267, %252 ], [ %248, %247 ]
%254 = phi i64 [ %266, %252 ], [ %249, %247 ]
%255 = phi i32 [ %268, %252 ], [ %250, %247 ]
%256 = getelementptr inbounds double, double* %2, i64 %254
%257 = load double, double* %256
%258 = getelementptr inbounds double, double* %2, i64 %253
%259 = load double, double* %258
store double %259, double* %256
store double %257, double* %258
%260 = add nsw i64 %254, 1
%261 = add nsw i64 %253, 1
%262 = getelementptr inbounds double, double* %2, i64 %260
%263 = load double, double* %262
%264 = getelementptr inbounds double, double* %2, i64 %261
%265 = load double, double* %264
store double %265, double* %262
store double %263, double* %264
%266 = add nsw i64 %254, 2
%267 = add nsw i64 %253, 2
%268 = add nuw nsw i32 %255, 2
%269 = icmp eq i32 %268, %0
br i1 %269, label %270, label %252
270: ; preds = %247, %252, %230, %153
%271 = getelementptr inbounds double, double* %7, i64 %72
%272 = load double, double* %271
%273 = sext i32 %150 to i64
%274 = getelementptr inbounds double, double* %7, i64 %273
store double %272, double* %274
%275 = getelementptr inbounds double, double* %9, i64 %72
%276 = load double, double* %275
%277 = getelementptr inbounds double, double* %9, i64 %273
store double %276, double* %277
%278 = getelementptr inbounds i32, i32* %5, i64 %72
%279 = load i32, i32* %278
%280 = getelementptr inbounds i32, i32* %5, i64 %273
%281 = load i32, i32* %280
store i32 %281, i32* %278
store i32 %279, i32* %280
br label %282
282: ; preds = %149, %67, %270
%283 = mul nsw i32 %78, %0
%284 = sext i32 %283 to i64
%285 = add nsw i64 %72, %284
%286 = sub nsw i64 %38, %72
%287 = getelementptr inbounds double, double* %2, i64 %285
%288 = trunc i64 %286 to i32
%289 = tail call double (i32, double*, ...) bitcast (double (...)* @enorm to double (i32, double*, ...)*)(i32 %288, double* %287)
%290 = fcmp oeq double %289, 0.000000e+00
br i1 %290, label %291, label %293
291: ; preds = %282
%292 = add nuw nsw i64 %72, 1
br label %599
293: ; preds = %282
%294 = load double, double* %287
%295 = fcmp olt double %294, 0.000000e+00
%296 = fneg double %289
%297 = select i1 %295, double %296, double %289
%298 = icmp slt i64 %72, %38
br i1 %298, label %299, label %363
299: ; preds = %293
%300 = sub i32 %45, %78
%301 = zext i32 %300 to i64
%302 = add nuw nsw i64 %301, 1
%303 = icmp eq i32 %300, 0
br i1 %303, label %349, label %304
304: ; preds = %299
%305 = and i64 %302, 8589934590
%306 = add nsw i64 %305, %79
%307 = trunc i64 %305 to i32
%308 = add i32 %78, %307
%309 = insertelement <2 x double> poison, double %297, i64 0
%310 = shufflevector <2 x double> %309, <2 x double> poison, <2 x i32> zeroinitializer
%311 = add nsw i64 %305, -2
%312 = lshr exact i64 %311, 1
%313 = add nuw i64 %312, 1
%314 = and i64 %313, 1
%315 = icmp eq i64 %311, 0
br i1 %315, label %337, label %316
316: ; preds = %304
%317 = and i64 %313, -2
br label %318
318: ; preds = %318, %316
%319 = phi i64 [ 0, %316 ], [ %334, %318 ]
%320 = phi i64 [ 0, %316 ], [ %335, %318 ]
%321 = add i64 %319, %79
%322 = getelementptr inbounds double, double* %2, i64 %321
%323 = bitcast double* %322 to <2 x double>*
%324 = load <2 x double>, <2 x double>* %323
%325 = fdiv <2 x double> %324, %310
%326 = bitcast double* %322 to <2 x double>*
store <2 x double> %325, <2 x double>* %326
%327 = or i64 %319, 2
%328 = add i64 %327, %79
%329 = getelementptr inbounds double, double* %2, i64 %328
%330 = bitcast double* %329 to <2 x double>*
%331 = load <2 x double>, <2 x double>* %330
%332 = fdiv <2 x double> %331, %310
%333 = bitcast double* %329 to <2 x double>*
store <2 x double> %332, <2 x double>* %333
%334 = add nuw i64 %319, 4
%335 = add nuw i64 %320, 2
%336 = icmp eq i64 %335, %317
br i1 %336, label %337, label %318
337: ; preds = %318, %304
%338 = phi i64 [ 0, %304 ], [ %334, %318 ]
%339 = icmp eq i64 %314, 0
br i1 %339, label %347, label %340
340: ; preds = %337
%341 = add i64 %338, %79
%342 = getelementptr inbounds double, double* %2, i64 %341
%343 = bitcast double* %342 to <2 x double>*
%344 = load <2 x double>, <2 x double>* %343
%345 = fdiv <2 x double> %344, %310
%346 = bitcast double* %342 to <2 x double>*
store <2 x double> %345, <2 x double>* %346
br label %347
347: ; preds = %337, %340
%348 = icmp eq i64 %302, %305
br i1 %348, label %361, label %349
349: ; preds = %299, %347
%350 = phi i64 [ %79, %299 ], [ %306, %347 ]
%351 = phi i32 [ %78, %299 ], [ %308, %347 ]
br label %352
352: ; preds = %349, %352
%353 = phi i64 [ %358, %352 ], [ %350, %349 ]
%354 = phi i32 [ %359, %352 ], [ %351, %349 ]
%355 = getelementptr inbounds double, double* %2, i64 %353
%356 = load double, double* %355
%357 = fdiv double %356, %297
store double %357, double* %355
%358 = add nsw i64 %353, 1
%359 = add nuw nsw i32 %354, 1
%360 = icmp eq i32 %359, %0
br i1 %360, label %361, label %352
361: ; preds = %352, %347
%362 = load double, double* %287
br label %363
363: ; preds = %361, %293
%364 = phi double [ %362, %361 ], [ %294, %293 ]
%365 = fadd double %364, 1.000000e+00
store double %365, double* %287
%366 = add nuw nsw i64 %72, 1
%367 = icmp slt i64 %366, %39
br i1 %367, label %368, label %599
368: ; preds = %363
%369 = trunc i64 %286 to i32
%370 = add i32 %369, -1
%371 = xor i32 %78, -1
%372 = add i32 %371, %0
%373 = zext i32 %372 to i64
%374 = getelementptr double, double* %43, i64 %373
%375 = add nsw i64 %76, %373
%376 = getelementptr double, double* %44, i64 %375
%377 = xor i32 %78, -1
%378 = add i32 %377, %0
%379 = zext i32 %378 to i64
%380 = add nuw nsw i64 %379, 1
%381 = sub i32 %0, %78
%382 = xor i32 %78, -1
%383 = and i64 %380, 8589934588
%384 = add nsw i64 %383, -4
%385 = lshr exact i64 %384, 2
%386 = add nuw nsw i64 %385, 1
%387 = and i32 %381, 1
%388 = icmp eq i32 %387, 0
%389 = getelementptr inbounds double, double* %2, i64 %79
%390 = add nsw i64 %79, 1
%391 = add nuw nsw i32 %78, 1
%392 = icmp eq i32 %382, %65
%393 = icmp ult i32 %378, 3
%394 = and i64 %380, 8589934588
%395 = add nsw i64 %394, %79
%396 = trunc i64 %394 to i32
%397 = add i32 %78, %396
%398 = and i64 %386, 1
%399 = icmp eq i64 %384, 0
%400 = and i64 %386, 9223372036854775806
%401 = icmp eq i64 %398, 0
%402 = icmp eq i64 %380, %394
br label %403
403: ; preds = %368, %595
%404 = phi i64 [ %68, %368 ], [ %596, %595 ]
%405 = phi i32 [ %69, %368 ], [ %597, %595 ]
%406 = sext i32 %405 to i64
%407 = getelementptr double, double* %2, i64 %406
%408 = getelementptr double, double* %374, i64 %406
%409 = sext i32 %405 to i64
%410 = mul nsw i64 %404, %38
%411 = add nsw i64 %410, %72
br i1 %298, label %412, label %569
412: ; preds = %403
br i1 %388, label %419, label %413
413: ; preds = %412
%414 = load double, double* %389
%415 = getelementptr inbounds double, double* %2, i64 %409
%416 = load double, double* %415
%417 = tail call double @llvm.fmuladd.f64(double %414, double %416, double 0.000000e+00)
%418 = add nsw i64 %409, 1
br label %419
419: ; preds = %413, %412
%420 = phi double [ undef, %412 ], [ %417, %413 ]
%421 = phi i64 [ %79, %412 ], [ %390, %413 ]
%422 = phi i64 [ %409, %412 ], [ %418, %413 ]
%423 = phi double [ 0.000000e+00, %412 ], [ %417, %413 ]
%424 = phi i32 [ %78, %412 ], [ %391, %413 ]
br i1 %392, label %446, label %425
425: ; preds = %419, %425
%426 = phi i64 [ %443, %425 ], [ %421, %419 ]
%427 = phi i64 [ %442, %425 ], [ %422, %419 ]
%428 = phi double [ %441, %425 ], [ %423, %419 ]
%429 = phi i32 [ %444, %425 ], [ %424, %419 ]
%430 = getelementptr inbounds double, double* %2, i64 %426
%431 = load double, double* %430
%432 = getelementptr inbounds double, double* %2, i64 %427
%433 = load double, double* %432
%434 = tail call double @llvm.fmuladd.f64(double %431, double %433, double %428)
%435 = add nsw i64 %427, 1
%436 = add nsw i64 %426, 1
%437 = getelementptr inbounds double, double* %2, i64 %436
%438 = load double, double* %437
%439 = getelementptr inbounds double, double* %2, i64 %435
%440 = load double, double* %439
%441 = tail call double @llvm.fmuladd.f64(double %438, double %440, double %434)
%442 = add nsw i64 %427, 2
%443 = add nsw i64 %426, 2
%444 = add nuw nsw i32 %429, 2
%445 = icmp eq i32 %444, %0
br i1 %445, label %446, label %425
446: ; preds = %425, %419
%447 = phi double [ %420, %419 ], [ %441, %425 ]
br i1 %298, label %448, label %569
448: ; preds = %446
%449 = load double, double* %287
%450 = fneg double %447
%451 = fdiv double %450, %449
br i1 %393, label %527, label %452
452: ; preds = %448
%453 = icmp ult double* %407, %376
%454 = icmp ult double* %77, %408
%455 = and i1 %453, %454
br i1 %455, label %527, label %456
456: ; preds = %452
%457 = add nsw i64 %394, %409
%458 = insertelement <2 x double> poison, double %451, i64 0
%459 = shufflevector <2 x double> %458, <2 x double> poison, <2 x i32> zeroinitializer
%460 = insertelement <2 x double> poison, double %451, i64 0
%461 = shufflevector <2 x double> %460, <2 x double> poison, <2 x i32> zeroinitializer
br i1 %399, label %505, label %462
462: ; preds = %456, %462
%463 = phi i64 [ %502, %462 ], [ 0, %456 ]
%464 = phi i64 [ %503, %462 ], [ 0, %456 ]
%465 = add i64 %463, %79
%466 = add i64 %463, %409
%467 = getelementptr inbounds double, double* %2, i64 %465
%468 = bitcast double* %467 to <2 x double>*
%469 = load <2 x double>, <2 x double>* %468
%470 = getelementptr inbounds double, double* %467, i64 2
%471 = bitcast double* %470 to <2 x double>*
%472 = load <2 x double>, <2 x double>* %471
%473 = getelementptr inbounds double, double* %2, i64 %466
%474 = bitcast double* %473 to <2 x double>*
%475 = load <2 x double>, <2 x double>* %474
%476 = getelementptr inbounds double, double* %473, i64 2
%477 = bitcast double* %476 to <2 x double>*
%478 = load <2 x double>, <2 x double>* %477
%479 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %459, <2 x double> %469, <2 x double> %475)
%480 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %461, <2 x double> %472, <2 x double> %478)
%481 = bitcast double* %473 to <2 x double>*
store <2 x double> %479, <2 x double>* %481
%482 = bitcast double* %476 to <2 x double>*
store <2 x double> %480, <2 x double>* %482
%483 = or i64 %463, 4
%484 = add i64 %483, %79
%485 = add i64 %483, %409
%486 = getelementptr inbounds double, double* %2, i64 %484
%487 = bitcast double* %486 to <2 x double>*
%488 = load <2 x double>, <2 x double>* %487
%489 = getelementptr inbounds double, double* %486, i64 2
%490 = bitcast double* %489 to <2 x double>*
%491 = load <2 x double>, <2 x double>* %490
%492 = getelementptr inbounds double, double* %2, i64 %485
%493 = bitcast double* %492 to <2 x double>*
%494 = load <2 x double>, <2 x double>* %493
%495 = getelementptr inbounds double, double* %492, i64 2
%496 = bitcast double* %495 to <2 x double>*
%497 = load <2 x double>, <2 x double>* %496
%498 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %459, <2 x double> %488, <2 x double> %494)
%499 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %461, <2 x double> %491, <2 x double> %497)
%500 = bitcast double* %492 to <2 x double>*
store <2 x double> %498, <2 x double>* %500
%501 = bitcast double* %495 to <2 x double>*
store <2 x double> %499, <2 x double>* %501
%502 = add nuw i64 %463, 8
%503 = add i64 %464, 2
%504 = icmp eq i64 %503, %400
br i1 %504, label %505, label %462
505: ; preds = %462, %456
%506 = phi i64 [ 0, %456 ], [ %502, %462 ]
br i1 %401, label %526, label %507
507: ; preds = %505
%508 = add i64 %506, %79
%509 = add i64 %506, %409
%510 = getelementptr inbounds double, double* %2, i64 %508
%511 = bitcast double* %510 to <2 x double>*
%512 = load <2 x double>, <2 x double>* %511
%513 = getelementptr inbounds double, double* %510, i64 2
%514 = bitcast double* %513 to <2 x double>*
%515 = load <2 x double>, <2 x double>* %514
%516 = getelementptr inbounds double, double* %2, i64 %509
%517 = bitcast double* %516 to <2 x double>*
%518 = load <2 x double>, <2 x double>* %517
%519 = getelementptr inbounds double, double* %516, i64 2
%520 = bitcast double* %519 to <2 x double>*
%521 = load <2 x double>, <2 x double>* %520
%522 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %459, <2 x double> %512, <2 x double> %518)
%523 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %461, <2 x double> %515, <2 x double> %521)
%524 = bitcast double* %516 to <2 x double>*
store <2 x double> %522, <2 x double>* %524
%525 = bitcast double* %519 to <2 x double>*
store <2 x double> %523, <2 x double>* %525
br label %526
526: ; preds = %505, %507
br i1 %402, label %569, label %527
527: ; preds = %452, %448, %526
%528 = phi i64 [ %79, %452 ], [ %79, %448 ], [ %395, %526 ]
%529 = phi i64 [ %409, %452 ], [ %409, %448 ], [ %457, %526 ]
%530 = phi i32 [ %78, %452 ], [ %78, %448 ], [ %397, %526 ]
%531 = sub i32 %0, %530
%532 = xor i32 %530, -1
%533 = and i32 %531, 1
%534 = icmp eq i32 %533, 0
br i1 %534, label %544, label %535
535: ; preds = %527
%536 = getelementptr inbounds double, double* %2, i64 %528
%537 = load double, double* %536
%538 = getelementptr inbounds double, double* %2, i64 %529
%539 = load double, double* %538
%540 = tail call double @llvm.fmuladd.f64(double %451, double %537, double %539)
store double %540, double* %538
%541 = add nsw i64 %529, 1
%542 = add nsw i64 %528, 1
%543 = add nuw nsw i32 %530, 1
br label %544
544: ; preds = %535, %527
%545 = phi i64 [ %528, %527 ], [ %542, %535 ]
%546 = phi i64 [ %529, %527 ], [ %541, %535 ]
%547 = phi i32 [ %530, %527 ], [ %543, %535 ]
%548 = icmp eq i32 %532, %66
br i1 %548, label %569, label %549
549: ; preds = %544, %549
%550 = phi i64 [ %566, %549 ], [ %545, %544 ]
%551 = phi i64 [ %565, %549 ], [ %546, %544 ]
%552 = phi i32 [ %567, %549 ], [ %547, %544 ]
%553 = getelementptr inbounds double, double* %2, i64 %550
%554 = load double, double* %553
%555 = getelementptr inbounds double, double* %2, i64 %551
%556 = load double, double* %555
%557 = tail call double @llvm.fmuladd.f64(double %451, double %554, double %556)
store double %557, double* %555
%558 = add nsw i64 %551, 1
%559 = add nsw i64 %550, 1
%560 = getelementptr inbounds double, double* %2, i64 %559
%561 = load double, double* %560
%562 = getelementptr inbounds double, double* %2, i64 %558
%563 = load double, double* %562
%564 = tail call double @llvm.fmuladd.f64(double %451, double %561, double %563)
store double %564, double* %562
%565 = add nsw i64 %551, 2
%566 = add nsw i64 %550, 2
%567 = add nuw nsw i32 %552, 2
%568 = icmp eq i32 %567, %0
br i1 %568, label %569, label %549
569: ; preds = %544, %549, %526, %403, %446
br i1 %35, label %595, label %570
570: ; preds = %569
%571 = getelementptr inbounds double, double* %7, i64 %404
%572 = load double, double* %571
%573 = fcmp une double %572, 0.000000e+00
br i1 %573, label %574, label %595
574: ; preds = %570
%575 = getelementptr inbounds double, double* %2, i64 %411
%576 = load double, double* %575
%577 = fdiv double %576, %572
%578 = fneg double %577
%579 = tail call double @llvm.fmuladd.f64(double %578, double %577, double 1.000000e+00)
%580 = tail call double (double, double, ...) bitcast (double (...)* @dmax1 to double (double, double, ...)*)(double 0.000000e+00, double %579)
%581 = tail call double @sqrt(double %580)
%582 = load double, double* %571
%583 = fmul double %581, %582
store double %583, double* %571
%584 = getelementptr inbounds double, double* %9, i64 %404
%585 = load double, double* %584
%586 = fdiv double %583, %585
%587 = fmul double %586, 5.000000e-02
%588 = fmul double %586, %587
%589 = load double, double* @MACHEP
%590 = fcmp ugt double %588, %589
br i1 %590, label %595, label %591
591: ; preds = %574
%592 = add nsw i64 %410, %366
%593 = getelementptr inbounds double, double* %2, i64 %592
%594 = tail call double (i32, double*, ...) bitcast (double (...)* @enorm to double (i32, double*, ...)*)(i32 %370, double* %593)
store double %594, double* %571
store double %594, double* %584
br label %595
595: ; preds = %569, %570, %591, %574
%596 = add nuw nsw i64 %404, 1
%597 = add i32 %405, %0
%598 = icmp eq i64 %596, %42
br i1 %598, label %599, label %403
599: ; preds = %595, %291, %363
%600 = phi i64 [ %292, %291 ], [ %366, %363 ], [ %366, %595 ]
%601 = phi double [ %289, %291 ], [ %297, %363 ], [ %297, %595 ]
%602 = fneg double %601
%603 = getelementptr inbounds double, double* %7, i64 %72
store double %602, double* %603
%604 = add i32 %71, %0
%605 = add i32 %70, %37
%606 = add i32 %69, %37
%607 = add nuw nsw i64 %68, 1
%608 = icmp eq i64 %600, %40
br i1 %608, label %609, label %67
609: ; preds = %599, %31
ret i32 undef
}