#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double dCompElem(double *, long, long, long);
int /*<<< orphan*/ dgemm_(char *, char *, long *, long *, long *, double *,
                          double *, long *, double *, long *, double *,
                          double *, long *);
int /*<<< orphan*/ dgeqrf_(long *, long *, double *, long *, double *, double *,
                           long *, long *);
int /*<<< orphan*/ dorgqr_(long *, long *, long *, double *, long *, double *,
                           double *, long *, long *);
int /*<<< orphan*/ dsyev_(char *, char *, long *, double *, long *, double *,
                          double *, long *, long *);
double fabs(double);
int /*<<< orphan*/ free(double *);
scalar_t__ malloc(int);
double sqrt(double);
long duchol(long m, long n, double *dA, long numvec, double *du, double *lam) {
  double *ddiag, *du2, *work, *dx, *dv;
  long i, j, cnt;
  long maxi;
  double maxa, maxx;
  char jobs;
  char uplo = 'U';
  long lwork;
  dx = (double *)malloc(sizeof(double) * numvec);
  dv = (double *)malloc(sizeof(double) * numvec * numvec);
  lwork = 3 * numvec;
  work = (double *)malloc(sizeof(double) * lwork);
  for (j = 0; j < numvec; j++)
    lam[j] = 0.0;
  du2 = (double *)malloc(sizeof(double) * n * numvec);
  ddiag = (double *)malloc(sizeof(double) * n);
  for (i = 0; i < n; i++) {
    ddiag[i] = dCompElem(dA, i, i, m);
  }
  for (cnt = 0; cnt < numvec; cnt++) {
    maxi = 0;
    maxa = 0.0;
    for (i = 0; i < n; i++) {
      if (fabs(ddiag[i]) > maxa) {
        maxi = i;
        maxa = fabs(ddiag[i]);
      }
    }
    for (i = 0; i < n; i++) {
      du[i + cnt * n] = dCompElem(dA, i, maxi, m);
      for (j = 0; j < cnt; j++) {
        du[i + cnt * n] -= du[i + j * n] * lam[j] * du[maxi + j * n];
      }
    }
    maxa = sqrt(fabs(du[maxi + cnt * n]));
    if (maxa < 1e-300) {
      break;
    }
    for (i = 0; i < n; i++) {
      du[i + cnt * n] /= maxa;
      ddiag[i] = ddiag[i] - (du[i + cnt * n] * du[i + cnt * n]);
    }
    j = cnt + 1;
    dgeqrf_(&n, &j, du, &n, du2, work, &lwork, &i);
    for (j = 0; j <= cnt; j++)
      dx[j] = du[j + cnt * n];
    dorgqr_(&n, &j, &j, du, &n, du2, work, &lwork, &i);
    for (i = 0; i <= cnt; i++) {
      for (j = 0; j <= cnt; j++) {
        if (i == j)
          dv[j + j * numvec] = lam[j];
        else
          dv[i + j * numvec] = 0.0;
      }
    }
    for (i = 0; i <= cnt; i++) {
      for (j = 0; j <= cnt; j++) {
        dv[i + j * numvec] += dx[i] * dx[j];
      }
    }
    j = cnt + 1;
    jobs = 'V';
    dsyev_(&jobs, &uplo, &j, dv, &numvec, lam, work, &lwork, &i);
    jobs = 'N';
    j = cnt + 1;
    work[0] = 1.0;
    work[1] = 0.0;
    dgemm_(&jobs, &jobs, &n, &j, &j, &work[0], du, &n, dv, &numvec, &work[1],
           du2, &n);
    for (j = 0; j <= cnt; j++) {
      for (i = 0; i < n; i++)
        du[i + j * n] = du2[i + j * n];
    }
  }
  free(ddiag);
  free(dx);
  free(dv);
  free(work);
  free(du2);
  return cnt;
}


x86 assembly (clang, -O0):
<duchol>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %rbx
sub    $0xd8,%rsp
mov    %rdi,-0x20(%rbp)
mov    %rsi,-0x28(%rbp)
mov    %rdx,-0x30(%rbp)
mov    %rcx,-0x38(%rbp)
mov    %r8,-0x40(%rbp)
mov    %r9,-0x48(%rbp)
movb   $0x55,-0xa2(%rbp)
mov    -0x38(%rbp),%rax
shl    $0x3,%rax
mov    %eax,%edi
call   1060 <malloc@plt>
mov    %rax,-0x68(%rbp)
mov    -0x38(%rbp),%rax
shl    $0x3,%rax
imul   -0x38(%rbp),%rax
mov    %eax,%edi
call   1060 <malloc@plt>
mov    %rax,-0x70(%rbp)
imul   $0x3,-0x38(%rbp),%rax
mov    %rax,-0xb0(%rbp)
mov    -0xb0(%rbp),%rax
shl    $0x3,%rax
mov    %eax,%edi
call   1060 <malloc@plt>
mov    %rax,-0x60(%rbp)
movq   $0x0,-0x80(%rbp)
mov    -0x80(%rbp),%rax
cmp    -0x38(%rbp),%rax
jge    1233 <duchol+0xb3>
mov    -0x48(%rbp),%rax
mov    -0x80(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x80(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
jmp    1204 <duchol+0x84>
mov    -0x28(%rbp),%rax
shl    $0x3,%rax
imul   -0x38(%rbp),%rax
mov    %eax,%edi
call   1060 <malloc@plt>
mov    %rax,-0x58(%rbp)
mov    -0x28(%rbp),%rax
shl    $0x3,%rax
mov    %eax,%edi
call   1060 <malloc@plt>
mov    %rax,-0x50(%rbp)
movq   $0x0,-0x78(%rbp)
mov    -0x78(%rbp),%rax
cmp    -0x28(%rbp),%rax
jge    12a7 <duchol+0x127>
mov    -0x30(%rbp),%rdi
mov    -0x78(%rbp),%rsi
mov    -0x78(%rbp),%rdx
mov    -0x20(%rbp),%rcx
call   1070 <dCompElem@plt>
mov    -0x50(%rbp),%rax
mov    -0x78(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x78(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x78(%rbp)
jmp    1266 <duchol+0xe6>
movq   $0x0,-0x88(%rbp)
mov    -0x88(%rbp),%rax
cmp    -0x38(%rbp),%rax
jge    1916 <duchol+0x796>
movq   $0x0,-0x90(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x98(%rbp)
ff
movq   $0x0,-0x78(%rbp)
mov    -0x78(%rbp),%rax
cmp    -0x28(%rbp),%rax
jge    1356 <duchol+0x1d6>
mov    -0x50(%rbp),%rax
mov    -0x78(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movaps 0xd0d(%rip),%xmm1
pand   %xmm1,%xmm0
ucomisd -0x98(%rbp),%xmm0
ff
jbe    1340 <duchol+0x1c0>
mov    -0x78(%rbp),%rax
mov    %rax,-0x90(%rbp)
mov    -0x50(%rbp),%rax
mov    -0x78(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movaps 0xcdc(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x98(%rbp)
ff
jmp    1345 <duchol+0x1c5>
mov    -0x78(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x78(%rbp)
jmp    12e1 <duchol+0x161>
movq   $0x0,-0x78(%rbp)
mov    -0x78(%rbp),%rax
cmp    -0x28(%rbp),%rax
jge    1462 <duchol+0x2e2>
mov    -0x30(%rbp),%rdi
mov    -0x78(%rbp),%rsi
mov    -0x90(%rbp),%rdx
mov    -0x20(%rbp),%rcx
call   1070 <dCompElem@plt>
mov    -0x40(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x88(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
movq   $0x0,-0x80(%rbp)
mov    -0x80(%rbp),%rax
cmp    -0x88(%rbp),%rax
jge    144c <duchol+0x2cc>
mov    -0x40(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x80(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x48(%rbp),%rax
mov    -0x80(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x40(%rbp),%rax
mov    -0x90(%rbp),%rcx
mov    -0x80(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x40(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x88(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%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    -0x80(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
jmp    13a8 <duchol+0x228>
jmp    1451 <duchol+0x2d1>
mov    -0x78(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x78(%rbp)
jmp    135e <duchol+0x1de>
mov    -0x40(%rbp),%rax
mov    -0x90(%rbp),%rcx
mov    -0x88(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movaps 0xb88(%rip),%xmm1
pand   %xmm1,%xmm0
call   1080 <sqrt@plt>
movsd  %xmm0,-0x98(%rbp)
ff
movsd  0xb5f(%rip),%xmm0
ucomisd -0x98(%rbp),%xmm0
ff
jbe    14b4 <duchol+0x334>
jmp    1916 <duchol+0x796>
movq   $0x0,-0x78(%rbp)
mov    -0x78(%rbp),%rax
cmp    -0x28(%rbp),%rax
jge    1579 <duchol+0x3f9>
movsd  -0x98(%rbp),%xmm1
ff
mov    -0x40(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x88(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x50(%rbp),%rax
mov    -0x78(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x40(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x88(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x40(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x88(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x50(%rbp),%rax
mov    -0x78(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x78(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x78(%rbp)
jmp    14bc <duchol+0x33c>
mov    -0x88(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
mov    -0x40(%rbp),%rdx
mov    -0x58(%rbp),%r8
mov    -0x60(%rbp),%r9
lea    -0x28(%rbp),%rcx
lea    -0x80(%rbp),%rsi
lea    -0xb0(%rbp),%r10
lea    -0x78(%rbp),%rax
mov    %rcx,%rdi
mov    %r10,(%rsp)
mov    %rax,0x8(%rsp)
call   1040 <dgeqrf_@plt>
movq   $0x0,-0x80(%rbp)
mov    -0x80(%rbp),%rax
cmp    -0x88(%rbp),%rax
jg     160b <duchol+0x48b>
mov    -0x40(%rbp),%rax
mov    -0x80(%rbp),%rcx
mov    -0x88(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x68(%rbp),%rax
mov    -0x80(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x80(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
jmp    15c0 <duchol+0x440>
mov    -0x40(%rbp),%rcx
mov    -0x58(%rbp),%r9
mov    -0x60(%rbp),%r11
lea    -0x28(%rbp),%r8
lea    -0x80(%rbp),%rdx
lea    -0xb0(%rbp),%r10
lea    -0x78(%rbp),%rax
mov    %r8,%rdi
mov    %rdx,%rsi
mov    %r11,(%rsp)
mov    %r10,0x8(%rsp)
mov    %rax,0x10(%rsp)
call   10a0 <dorgqr_@plt>
movq   $0x0,-0x78(%rbp)
mov    -0x78(%rbp),%rax
cmp    -0x88(%rbp),%rax
jg     16f6 <duchol+0x576>
movq   $0x0,-0x80(%rbp)
mov    -0x80(%rbp),%rax
cmp    -0x88(%rbp),%rax
jg     16e0 <duchol+0x560>
mov    -0x78(%rbp),%rax
cmp    -0x80(%rbp),%rax
jne    16ae <duchol+0x52e>
mov    -0x48(%rbp),%rax
mov    -0x80(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x70(%rbp),%rax
mov    -0x80(%rbp),%rcx
mov    -0x80(%rbp),%rdx
imul   -0x38(%rbp),%rdx
add    %rdx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    16ca <duchol+0x54a>
mov    -0x70(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x80(%rbp),%rdx
imul   -0x38(%rbp),%rdx
add    %rdx,%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
jmp    16cf <duchol+0x54f>
mov    -0x80(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
jmp    1664 <duchol+0x4e4>
jmp    16e5 <duchol+0x565>
mov    -0x78(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x78(%rbp)
jmp    164b <duchol+0x4cb>
movq   $0x0,-0x78(%rbp)
mov    -0x78(%rbp),%rax
cmp    -0x88(%rbp),%rax
jg     178f <duchol+0x60f>
movq   $0x0,-0x80(%rbp)
mov    -0x80(%rbp),%rax
cmp    -0x88(%rbp),%rax
jg     1779 <duchol+0x5f9>
mov    -0x68(%rbp),%rax
mov    -0x78(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x68(%rbp),%rax
mov    -0x80(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x70(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x80(%rbp),%rdx
imul   -0x38(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x80(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
jmp    1717 <duchol+0x597>
jmp    177e <duchol+0x5fe>
mov    -0x78(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x78(%rbp)
jmp    16fe <duchol+0x57e>
mov    -0x88(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
movb   $0x56,-0xa1(%rbp)
mov    -0x70(%rbp),%rcx
mov    -0x48(%rbp),%r9
mov    -0x60(%rbp),%r11
lea    -0xa1(%rbp),%rdi
lea    -0xa2(%rbp),%rsi
lea    -0x80(%rbp),%rdx
lea    -0x38(%rbp),%r8
lea    -0xb0(%rbp),%r10
lea    -0x78(%rbp),%rax
mov    %r11,(%rsp)
mov    %r10,0x8(%rsp)
mov    %rax,0x10(%rsp)
call   1090 <dsyev_@plt>
movb   $0x4e,-0xa1(%rbp)
mov    -0x88(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
mov    -0x60(%rbp),%rax
movsd  0x801(%rip),%xmm0
movsd  %xmm0,(%rax)
mov    -0x60(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,0x8(%rax)
mov    -0x60(%rbp),%r9
mov    -0x40(%rbp),%r15
mov    -0x70(%rbp),%r14
mov    -0x60(%rbp),%r11
add    $0x8,%r11
mov    -0x58(%rbp),%r10
lea    -0xa1(%rbp),%rsi
lea    -0x28(%rbp),%rax
lea    -0x80(%rbp),%r8
lea    -0x38(%rbp),%rbx
mov    %rsi,%rdi
mov    %rax,%rdx
mov    %r8,%rcx
mov    %r15,(%rsp)
mov    %rax,0x8(%rsp)
mov    %r14,0x10(%rsp)
mov    %rbx,0x18(%rsp)
mov    %r11,0x20(%rsp)
mov    %r10,0x28(%rsp)
mov    %rax,0x30(%rsp)
call   1050 <dgemm_@plt>
movq   $0x0,-0x80(%rbp)
mov    -0x80(%rbp),%rax
cmp    -0x88(%rbp),%rax
jg     18fa <duchol+0x77a>
movq   $0x0,-0x78(%rbp)
mov    -0x78(%rbp),%rax
cmp    -0x28(%rbp),%rax
jge    18e4 <duchol+0x764>
mov    -0x58(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x80(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x40(%rbp),%rax
mov    -0x78(%rbp),%rcx
mov    -0x80(%rbp),%rdx
imul   -0x28(%rbp),%rdx
add    %rdx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x78(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x78(%rbp)
jmp    1893 <duchol+0x713>
jmp    18e9 <duchol+0x769>
mov    -0x80(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x80(%rbp)
jmp    187a <duchol+0x6fa>
jmp    18ff <duchol+0x77f>
mov    -0x88(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x88(%rbp)
jmp    12b2 <duchol+0x132>
mov    -0x50(%rbp),%rdi
call   1030 <free@plt>
mov    -0x68(%rbp),%rdi
call   1030 <free@plt>
mov    -0x70(%rbp),%rdi
call   1030 <free@plt>
mov    -0x60(%rbp),%rdi
call   1030 <free@plt>
mov    -0x58(%rbp),%rdi
call   1030 <free@plt>
mov    -0x88(%rbp),%rax
add    $0xd8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

x86 assembly (clang, -O2):
<duchol>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x118,%rsp
mov    %r9,0x78(%rsp)
mov    %r8,0x28(%rsp)
mov    %rcx,%rbp
mov    %rdx,0xa0(%rsp)
mov    %rsi,%r12
mov    %rdi,0x98(%rsp)
mov    %rsi,0x50(%rsp)
mov    %rcx,0x68(%rsp)
movb   $0x55,0xf(%rsp)
lea    0x0(,%rcx,8),%ebx
mov    %ebx,%edi
call   1070 <malloc@plt>
mov    %rax,%r14
lea    0x0(,%rbp,8),%r13
mov    %r13d,%edi
imul   %ebp,%edi
call   1070 <malloc@plt>
mov    %rax,%r15
lea    0x0(,%rbp,2),%rax
add    %rbp,%rax
mov    %rax,0xb0(%rsp)
lea    (%rbx,%rbx,2),%edi
call   1070 <malloc@plt>
mov    0x78(%rsp),%rdi
mov    %rax,0x60(%rsp)
test   %rbp,%rbp
mov    %rbp,0x10(%rsp)
jle    1232 <duchol+0xa2>
xor    %esi,%esi
mov    %r13,%rdx
call   1060 <memset@plt>
jmp    1234 <duchol+0xa4>
xor    %ebp,%ebp
mov    %rbp,0x20(%rsp)
imul   %r12d,%r13d
mov    %r13d,%edi
call   1070 <malloc@plt>
mov    %rax,0x30(%rsp)
lea    0x0(,%r12,8),%edi
call   1070 <malloc@plt>
test   %r12,%r12
mov    0xa0(%rsp),%rbx
mov    0x98(%rsp),%rbp
mov    %rax,0x70(%rsp)
jle    12a5 <duchol+0x115>
xor    %r13d,%r13d
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %rbx,%rdi
mov    %r13,%rsi
mov    %r13,%rdx
mov    %rbp,%rcx
call   1080 <dCompElem@plt>
mov    0x70(%rsp),%rax
movsd  %xmm0,(%rax,%r13,8)
add    $0x1,%r13
cmp    %r13,%r12
jne    1280 <duchol+0xf0>
cmpq   $0x0,0x10(%rsp)
jle    20ba <duchol+0xf2a>
mov    %rbx,%rdi
mov    %rbp,%rcx
mov    0x60(%rsp),%rdx
add    $0x8,%rdx
mov    %rdx,0x100(%rsp)
mov    0x28(%rsp),%rdx
lea    0x8(%rdx),%rsi
mov    %rsi,0xe0(%rsp)
lea    0x10(%rdx),%rsi
mov    %rsi,0x88(%rsp)
lea    0x70(%rdx),%rsi
mov    %rsi,0xb8(%rsp)
lea    0x10(%r14),%rsi
mov    %rsi,0xd0(%rsp)
lea    0x18(%rdx),%rsi
mov    %rsi,0xd8(%rsp)
lea    0x10(%r15),%rsi
mov    %rsi,0xf8(%rsp)
mov    0x30(%rsp),%rsi
lea    0x70(%rsi),%rbp
mov    %rbp,0xf0(%rsp)
add    $0x10,%rsi
mov    %rsi,0xe8(%rsp)
mov    $0x1,%r8d
movq   $0xfffffffffffffffd,0xc0(%rsp)
xor    %esi,%esi
mov    %rsi,0x40(%rsp)
movapd 0x1cad(%rip),%xmm2
xor    %ebp,%ebp
mov    %r15,0x48(%rsp)
jmp    13be <duchol+0x22e>
nopl   0x0(%rax)
test   %r12,%r12
mov    $0x0,%eax
cmovg  %r12,%rax
mov    0x10(%rsp),%r8
mov    %r8,0x20(%rsp)
mov    %rax,0x38(%rsp)
add    $0x1,%r8
addq   $0x8,0x40(%rsp)
addq   $0x1,0xc0(%rsp)
mov    0xc8(%rsp),%rbx
mov    %rbx,%rbp
cmp    0x68(%rsp),%rbx
mov    0x28(%rsp),%rdx
mov    0xa0(%rsp),%rdi
mov    0x98(%rsp),%rcx
mov    0x70(%rsp),%rax
jge    20c6 <duchol+0xf36>
test   %r12,%r12
mov    %r8,0x10(%rsp)
mov    %rbp,0x18(%rsp)
jle    13f0 <duchol+0x260>
cmp    $0x1,%r12
jne    1400 <duchol+0x270>
xorpd  %xmm0,%xmm0
xor    %r13d,%r13d
xor    %ebx,%ebx
test   $0x1,%r12b
jne    1456 <duchol+0x2c6>
jmp    146b <duchol+0x2db>
nopw   0x0(%rax,%rax,1)
xor    %r13d,%r13d
jmp    15a0 <duchol+0x410>
nopl   0x0(%rax,%rax,1)
mov    %r12,%rbp
and    $0xfffffffffffffffe,%rbp
xorpd  %xmm0,%xmm0
xor    %r13d,%r13d
xor    %ebx,%ebx
movsd  (%rax,%rbx,8),%xmm1
andpd  %xmm2,%xmm1
ucomisd %xmm0,%xmm1
mov    %r13,%rsi
cmova  %rbx,%rsi
maxsd  %xmm0,%xmm1
movsd  0x8(%rax,%rbx,8),%xmm0
andpd  %xmm2,%xmm0
ucomisd %xmm1,%xmm0
lea    0x1(%rbx),%r13
cmovbe %rsi,%r13
maxsd  %xmm1,%xmm0
add    $0x2,%rbx
cmp    %rbp,%rbx
jne    1410 <duchol+0x280>
mov    0x18(%rsp),%rbp
test   $0x1,%r12b
je     146b <duchol+0x2db>
movsd  (%rax,%rbx,8),%xmm1
andpd  0x1b9d(%rip),%xmm1
ucomisd %xmm0,%xmm1
cmova  %rbx,%r13
movq   $0x0,0x38(%rsp)
test   %r12,%r12
jle    15a0 <duchol+0x410>
mov    %rbp,%r15
and    $0xfffffffffffffffe,%r15
xor    %esi,%esi
jmp    14b7 <duchol+0x327>
nopl   0x0(%rax,%rax,1)
mov    %rbp,0x20(%rsp)
add    $0x1,%rsi
mov    %rsi,0x38(%rsp)
cmp    %r8,%rsi
mov    0xa0(%rsp),%rdi
mov    0x98(%rsp),%rcx
jge    15b0 <duchol+0x420>
mov    %r13,%rdx
call   1080 <dCompElem@plt>
mov    0x28(%rsp),%rdx
mov    0x38(%rsp),%rsi
mov    0x50(%rsp),%r8
mov    %r8,%r12
imul   %rbp,%r12
lea    (%r12,%rsi,1),%rcx
movsd  %xmm0,(%rdx,%rcx,8)
test   %rbp,%rbp
mov    0x78(%rsp),%rdi
je     1490 <duchol+0x300>
cmp    $0x1,%rbp
jne    1500 <duchol+0x370>
xor    %eax,%eax
jmp    1560 <duchol+0x3d0>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
lea    (%r8,%r13,1),%r9
mov    %r8,%rbp
shl    $0x4,%rbp
lea    (%r8,%rsi,1),%r10
mov    %rdx,%rbx
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsd  (%rdi,%rax,8),%xmm1
mulsd  (%rbx,%rsi,8),%xmm1
mulsd  (%rbx,%r13,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rdx,%rcx,8)
movsd  0x8(%rdi,%rax,8),%xmm1
mulsd  (%rbx,%r10,8),%xmm1
mulsd  (%rbx,%r9,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rdx,%rcx,8)
add    $0x2,%rax
add    %rbp,%rbx
cmp    %rax,%r15
jne    1520 <duchol+0x390>
mov    0x18(%rsp),%rbp
test   $0x1,%bpl
je     1490 <duchol+0x300>
mov    %rax,%rbx
imul   %r8,%rbx
lea    (%rbx,%rsi,1),%rbp
movsd  (%rdi,%rax,8),%xmm1
add    %r13,%rbx
mulsd  (%rdx,%rbp,8),%xmm1
mov    0x18(%rsp),%rbp
mulsd  (%rdx,%rbx,8),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rdx,%rcx,8)
jmp    1490 <duchol+0x300>
nop
imul   %rbp,%r12
jmp    15bf <duchol+0x42f>
cs nopw 0x0(%rax,%rax,1)
mov    0x48(%rsp),%r15
mov    0x70(%rsp),%rax
mov    0x10(%rsp),%r8
add    %r12,%r13
movsd  (%rdx,%r13,8),%xmm0
andpd  0x1a30(%rip),%xmm0
ucomisd 0x1a48(%rip),%xmm0
jb     15e0 <duchol+0x450>
sqrtsd %xmm0,%xmm0
jmp    15f4 <duchol+0x464>
call   1090 <sqrt@plt>
mov    0x10(%rsp),%r8
mov    0x70(%rsp),%rax
mov    0x28(%rsp),%rdx
mov    0x30(%rsp),%r13
movsd  0x1a0f(%rip),%xmm1
ucomisd %xmm0,%xmm1
ja     20c3 <duchol+0xf33>
lea    0x0(,%rbp,8),%rcx
mov    0x50(%rsp),%rbx
test   %rbx,%rbx
mov    %rcx,0x58(%rsp)
jle    16a0 <duchol+0x510>
cmp    $0x1,%rbx
je     1657 <duchol+0x4c7>
mov    %rbx,%rsi
imul   %rcx,%rsi
add    %rdx,%rsi
lea    (%rax,%rbx,8),%rcx
cmp    %rcx,%rsi
jae    178c <duchol+0x5fc>
lea    0x8(,%rbp,8),%rcx
imul   %rbx,%rcx
add    %rdx,%rcx
cmp    %rax,%rcx
jbe    178c <duchol+0x5fc>
xor    %ecx,%ecx
mov    %rbx,%rsi
imul   0x40(%rsp),%rsi
add    %rdx,%rsi
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%rsi,%rcx,8),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%rcx,8)
movsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm1,%xmm1
subsd  %xmm1,%xmm2
movsd  %xmm2,(%rax,%rcx,8)
add    $0x1,%rcx
cmp    %rcx,%rbx
jne    1670 <duchol+0x4e0>
jmp    16a2 <duchol+0x512>
nopl   0x0(%rax,%rax,1)
xor    %ebx,%ebx
mov    %r8,%r12
and    $0xfffffffffffffffc,%r12
lea    (%r14,%r8,8),%rax
mov    %rax,0x80(%rsp)
mov    %rbx,0x38(%rsp)
lea    0x1(%rbp),%rax
mov    %rax,0xc8(%rsp)
mov    %rax,0x20(%rsp)
lea    0x50(%rsp),%rcx
mov    %rcx,%rdi
lea    0x20(%rsp),%rsi
mov    %r13,%r8
mov    0x60(%rsp),%r9
lea    0x38(%rsp),%rax
push   %rax
lea    0xb8(%rsp),%rax
push   %rax
call   1040 <dgeqrf_@plt>
mov    0x20(%rsp),%rbx
add    $0x10,%rsp
mov    %rbp,%rcx
mov    0x50(%rsp),%rbp
cmp    $0x4,%rbx
jae    1720 <duchol+0x590>
xor    %edi,%edi
mov    0x28(%rsp),%rcx
jmp    1910 <duchol+0x780>
nopw   0x0(%rax,%rax,1)
lea    0x1(%rbp),%rax
imul   %rcx,%rax
mov    0xe0(%rsp),%rcx
lea    (%rcx,%rax,8),%rax
cmp    %rax,%r14
mov    0x28(%rsp),%rcx
jae    1760 <duchol+0x5d0>
mov    0x58(%rsp),%rax
imul   %rbp,%rax
add    %rcx,%rax
cmp    0x80(%rsp),%rax
jae    1760 <duchol+0x5d0>
xor    %edi,%edi
jmp    1910 <duchol+0x780>
nopl   0x0(%rax,%rax,1)
mov    0xc0(%rsp),%r8
shr    $0x2,%r8
lea    -0x4(%rbx),%rax
mov    %rax,%rdx
shr    $0x2,%rdx
add    $0x1,%rdx
cmp    $0xc,%rax
jae    1825 <duchol+0x695>
xor    %esi,%esi
jmp    18a4 <duchol+0x714>
mov    %rbx,%rcx
and    $0xfffffffffffffffe,%rcx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x2(%rcx),%rsi
mov    %rsi,%r8
shr    %r8
add    $0x1,%r8
test   %rsi,%rsi
je     2070 <duchol+0xee0>
mov    %r8,%rdi
and    $0xfffffffffffffffe,%rdi
mov    %rbx,%rbp
imul   0x40(%rsp),%rbp
add    0x88(%rsp),%rbp
xor    %esi,%esi
nopl   0x0(%rax)
movupd -0x10(%rbp,%rsi,8),%xmm2
divpd  %xmm1,%xmm2
movupd %xmm2,-0x10(%rbp,%rsi,8)
movupd (%rax,%rsi,8),%xmm3
mulpd  %xmm2,%xmm2
subpd  %xmm2,%xmm3
movupd %xmm3,(%rax,%rsi,8)
movupd 0x0(%rbp,%rsi,8),%xmm2
divpd  %xmm1,%xmm2
movupd %xmm2,0x0(%rbp,%rsi,8)
movupd 0x10(%rax,%rsi,8),%xmm3
mulpd  %xmm2,%xmm2
subpd  %xmm2,%xmm3
movupd %xmm3,0x10(%rax,%rsi,8)
add    $0x4,%rsi
add    $0xfffffffffffffffe,%rdi
jne    17d0 <duchol+0x640>
jmp    2072 <duchol+0xee2>
lea    0x1(%r8),%rdi
and    $0xfffffffffffffffc,%rdi
mov    %rbp,%rax
imul   0x40(%rsp),%rax
add    0xb8(%rsp),%rax
xor    %esi,%esi
movups -0x70(%rax,%rsi,8),%xmm0
movups -0x60(%rax,%rsi,8),%xmm1
movups %xmm0,(%r14,%rsi,8)
movups %xmm1,0x10(%r14,%rsi,8)
movups -0x50(%rax,%rsi,8),%xmm0
movups -0x40(%rax,%rsi,8),%xmm1
movups %xmm0,0x20(%r14,%rsi,8)
movups %xmm1,0x30(%r14,%rsi,8)
movups -0x30(%rax,%rsi,8),%xmm0
movups -0x20(%rax,%rsi,8),%xmm1
movups %xmm0,0x40(%r14,%rsi,8)
movups %xmm1,0x50(%r14,%rsi,8)
movupd -0x10(%rax,%rsi,8),%xmm0
movupd (%rax,%rsi,8),%xmm1
movupd %xmm0,0x60(%r14,%rsi,8)
movupd %xmm1,0x70(%r14,%rsi,8)
add    $0x10,%rsi
add    $0xfffffffffffffffc,%rdi
jne    1840 <duchol+0x6b0>
test   $0x3,%dl
je     18ff <duchol+0x76f>
add    $0x1,%r8b
movzbl %r8b,%eax
and    $0x3,%eax
shl    $0x5,%rax
mov    0xd0(%rsp),%rdx
lea    (%rdx,%rsi,8),%rdi
mov    0x88(%rsp),%rdx
lea    (%rdx,%rsi,8),%rsi
mov    %rbp,%rdx
imul   0x40(%rsp),%rdx
add    %rsi,%rdx
xor    %esi,%esi
xchg   %ax,%ax
movupd -0x10(%rdx,%rsi,1),%xmm0
movupd (%rdx,%rsi,1),%xmm1
movupd %xmm0,-0x10(%rdi,%rsi,1)
movupd %xmm1,(%rdi,%rsi,1)
add    $0x20,%rsi
cmp    %rsi,%rax
jne    18e0 <duchol+0x750>
mov    %r12,%rdi
cmp    %r12,%rbx
je     199c <duchol+0x80c>
nopl   0x0(%rax,%rax,1)
mov    0x18(%rsp),%rdx
sub    %rdi,%rdx
test   $0x3,%bl
je     1945 <duchol+0x7b5>
mov    %ebx,%eax
and    $0x3,%eax
mov    %rbp,%rsi
imul   0x40(%rsp),%rsi
add    %rcx,%rsi
xchg   %ax,%ax
movsd  (%rsi,%rdi,8),%xmm0
movsd  %xmm0,(%r14,%rdi,8)
add    $0x1,%rdi
add    $0xffffffffffffffff,%rax
jne    1930 <duchol+0x7a0>
cmp    $0x3,%rdx
jb     199c <duchol+0x80c>
imul   0x40(%rsp),%rbp
add    0xd8(%rsp),%rbp
nopl   0x0(%rax)
movsd  -0x18(%rbp,%rdi,8),%xmm0
movsd  %xmm0,(%r14,%rdi,8)
movsd  -0x10(%rbp,%rdi,8),%xmm0
movsd  %xmm0,0x8(%r14,%rdi,8)
movsd  -0x8(%rbp,%rdi,8),%xmm0
movsd  %xmm0,0x10(%r14,%rdi,8)
movsd  0x0(%rbp,%rdi,8),%xmm0
movsd  %xmm0,0x18(%r14,%rdi,8)
add    $0x4,%rdi
cmp    %rdi,%rbx
jne    1960 <duchol+0x7d0>
mov    %rbx,0x20(%rsp)
sub    $0x8,%rsp
lea    0x58(%rsp),%rdi
lea    0x28(%rsp),%rdx
mov    %rdx,%rsi
mov    %rdi,%r8
mov    %r13,%r9
lea    0x40(%rsp),%rax
push   %rax
lea    0xc0(%rsp),%rax
push   %rax
push   0x78(%rsp)
call   10b0 <dorgqr_@plt>
add    $0x20,%rsp
mov    0x10(%rsp),%r11
and    $0xfffffffffffffffe,%r11
xor    %r9d,%r9d
xor    %edx,%edx
mov    0x78(%rsp),%rax
mov    0x18(%rsp),%rcx
jmp    1a11 <duchol+0x881>
xchg   %ax,%ax
movsd  (%rax,%rdx,8),%xmm0
movsd  %xmm0,(%r15,%rdi,8)
add    $0x1,%rdx
add    $0x8,%r9
mov    0x10(%rsp),%rsi
cmp    %rsi,%rdx
je     1ae0 <duchol+0x950>
mov    0x68(%rsp),%r8
mov    %r8,%rdi
imul   %rdx,%rdi
add    %rdx,%rdi
test   %rcx,%rcx
je     1ab0 <duchol+0x920>
lea    (%r8,%rdx,1),%r10
mov    %r8,%rbx
shl    $0x4,%rbx
mov    %r15,%rcx
xor    %ebp,%ebp
jmp    1a57 <duchol+0x8c7>
nopl   0x0(%rax,%rax,1)
movsd  (%rax,%rdx,8),%xmm0
movsd  %xmm0,(%r15,%rdi,8)
add    %rbx,%rcx
add    $0x1,%rbp
cmp    %r11,%rbp
je     1a90 <duchol+0x900>
mov    %rbp,%rsi
cmp    %rbp,%rdx
jne    1a70 <duchol+0x8e0>
movsd  (%rax,%rdx,8),%xmm0
movsd  %xmm0,(%r15,%rdi,8)
jmp    1a78 <duchol+0x8e8>
nopl   0x0(%rax)
movq   $0x0,(%rcx,%r9,1)
lea    0x1(%rsi),%rbp
cmp    %rbp,%rdx
je     1a40 <duchol+0x8b0>
movq   $0x0,(%rcx,%r10,8)
jmp    1a4b <duchol+0x8bb>
nopl   0x0(%rax,%rax,1)
add    $0x2,%rsi
mov    0x18(%rsp),%rcx
testb  $0x1,0x10(%rsp)
je     19fb <duchol+0x86b>
jmp    1abd <duchol+0x92d>
cs nopw 0x0(%rax,%rax,1)
xor    %esi,%esi
testb  $0x1,0x10(%rsp)
je     19fb <duchol+0x86b>
cmp    %rsi,%rdx
je     19f0 <duchol+0x860>
imul   %rsi,%r8
add    %rdx,%r8
movq   $0x0,(%r15,%r8,8)
jmp    19fb <duchol+0x86b>
nopw   0x0(%rax,%rax,1)
mov    0x68(%rsp),%rcx
cmp    $0x4,%rsi
setae  %al
cmp    $0x1,%rcx
sete   %r11b
and    %al,%r11b
mov    %rsi,%rax
and    $0xfffffffffffffffc,%rax
mov    %rax,0x90(%rsp)
mov    %rcx,%r10
shl    $0x5,%r10
mov    %rcx,%rdi
shl    $0x4,%rdi
mov    %rcx,0x58(%rsp)
lea    0x0(,%rcx,8),%rax
mov    %rax,0xa8(%rsp)
xor    %edx,%edx
mov    0xf8(%rsp),%r15
xor    %ecx,%ecx
jmp    1b55 <duchol+0x9c5>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rcx
add    $0x8,%r15
add    $0x8,%rdx
cmp    %rsi,%rcx
je     1d10 <duchol+0xb80>
test   %r11b,%r11b
je     1c40 <duchol+0xab0>
mov    0x48(%rsp),%rbp
lea    0x0(,%rcx,8),%rax
add    %rbp,%rax
lea    (%rsi,%rcx,1),%rbx
lea    0x0(,%rbx,8),%rbx
add    %rbp,%rbx
lea    (%r14,%rcx,8),%rbp
add    $0x8,%rbp
lea    (%r14,%rcx,8),%r13
cmp    0x80(%rsp),%rax
setb   %r8b
cmp    %rbx,%r14
setb   %r9b
cmp    %rbp,%rax
setb   %al
cmp    %rbx,%r13
setb   %bpl
test   %r9b,%r8b
jne    1c44 <duchol+0xab4>
mov    $0x0,%ebx
and    %bpl,%al
mov    0x10(%rsp),%rsi
jne    1c50 <duchol+0xac0>
movsd  (%r14,%rcx,8),%xmm0
unpcklpd %xmm0,%xmm0
mov    %r15,%rax
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movupd (%r14,%rbx,8),%xmm1
movupd 0x10(%r14,%rbx,8),%xmm2
movupd -0x10(%rax),%xmm3
movupd (%rax),%xmm4
mulpd  %xmm0,%xmm1
addpd  %xmm3,%xmm1
mulpd  %xmm0,%xmm2
addpd  %xmm4,%xmm2
movupd %xmm1,-0x10(%rax)
movupd %xmm2,(%rax)
add    $0x4,%rbx
add    %r10,%rax
cmp    %rbx,%r12
jne    1be0 <duchol+0xa50>
mov    0x90(%rsp),%rax
mov    %rax,%rbx
cmp    %rax,%rsi
je     1b40 <duchol+0x9b0>
jmp    1c50 <duchol+0xac0>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xor    %ebx,%ebx
jmp    1c50 <duchol+0xac0>
xor    %ebx,%ebx
mov    0x10(%rsp),%rsi
nopl   0x0(%rax,%rax,1)
mov    %rbx,%rbp
test   $0x1,%sil
je     1c89 <duchol+0xaf9>
movsd  (%r14,%rcx,8),%xmm0
mov    0x58(%rsp),%rax
imul   %rbx,%rax
add    %rcx,%rax
mulsd  (%r14,%rbx,8),%xmm0
mov    0x48(%rsp),%rbp
addsd  0x0(%rbp,%rax,8),%xmm0
movsd  %xmm0,0x0(%rbp,%rax,8)
mov    %rbx,%rbp
or     $0x1,%rbp
cmp    %rbx,0x18(%rsp)
je     1b40 <duchol+0x9b0>
mov    0x58(%rsp),%rbx
imul   %rbp,%rbx
add    %rcx,%rbx
lea    0x1(%rbp),%rax
imul   0xa8(%rsp),%rax
add    %rdx,%rax
mov    0x48(%rsp),%r13
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%r14,%rcx,8),%xmm0
mulsd  (%r14,%rbp,8),%xmm0
addsd  0x0(%r13,%rbx,8),%xmm0
movsd  %xmm0,0x0(%r13,%rbx,8)
movsd  (%r14,%rcx,8),%xmm0
mulsd  0x8(%r14,%rbp,8),%xmm0
addsd  0x0(%r13,%rax,1),%xmm0
movsd  %xmm0,0x0(%r13,%rax,1)
add    $0x2,%rbp
add    %rdi,%r13
cmp    %rbp,%rsi
jne    1cc0 <duchol+0xb30>
jmp    1b40 <duchol+0x9b0>
cs nopw 0x0(%rax,%rax,1)
mov    %rsi,0x38(%rsp)
mov    0xc8(%rsp),%r13
mov    %r13,0x20(%rsp)
movb   $0x56,0xe(%rsp)
sub    $0x8,%rsp
lea    0x16(%rsp),%r12
mov    %r12,%rdi
lea    0x17(%rsp),%rsi
lea    0x28(%rsp),%rbp
mov    %rbp,%rdx
mov    0x50(%rsp),%r15
mov    %r15,%rcx
lea    0x70(%rsp),%r8
mov    0x80(%rsp),%r9
lea    0x40(%rsp),%rax
push   %rax
lea    0xc0(%rsp),%rax
push   %rax
mov    0x78(%rsp),%rbx
push   %rbx
call   10a0 <dsyev_@plt>
add    $0x20,%rsp
movb   $0x4e,0xe(%rsp)
mov    %r13,0x20(%rsp)
movsd  0x1293(%rip),%xmm0
movupd %xmm0,(%rbx)
sub    $0x8,%rsp
mov    %r12,%rdi
mov    %r12,%rsi
lea    0x58(%rsp),%rdx
mov    %rbp,%rcx
mov    %rbp,%r8
mov    %rbx,%r9
push   %rdx
mov    0x40(%rsp),%r13
push   %r13
push   0x118(%rsp)
lea    0x88(%rsp),%rax
push   %rax
push   %r15
push   %rdx
mov    0x60(%rsp),%rbx
push   %rbx
call   1050 <dgemm_@plt>
add    $0x40,%rsp
mov    0x50(%rsp),%r12
lea    -0x4(%r12),%rax
mov    %rax,0x80(%rsp)
shr    $0x2,%rax
add    $0x1,%rax
mov    %r12,%rcx
and    $0xfffffffffffffffc,%rcx
mov    %rcx,0xa8(%rsp)
mov    %eax,%ecx
and    $0x3,%ecx
and    $0xfffffffffffffffc,%rax
mov    %rax,0x108(%rsp)
mov    %r12d,%ebp
and    $0x3,%ebp
lea    0x0(,%r12,8),%rax
mov    %rcx,0x90(%rsp)
shl    $0x5,%rcx
mov    %rcx,0x110(%rsp)
mov    %r13,%rcx
mov    %rbx,%rdx
mov    0xe8(%rsp),%rdi
mov    0x88(%rsp),%r8
mov    0xf0(%rsp),%r9
mov    0xb8(%rsp),%r10
xor    %r11d,%r11d
movapd 0x11a8(%rip),%xmm2
mov    %rbp,0x18(%rsp)
jmp    1e81 <duchol+0xcf1>
nop
add    $0x1,%r11
add    %rax,%r10
add    %rax,%r9
add    %rax,%r8
add    %rax,%rdi
add    %rax,%rdx
add    %rax,%rcx
cmp    0x10(%rsp),%r11
je     1360 <duchol+0x1d0>
test   %r12,%r12
jle    1e60 <duchol+0xcd0>
cmp    $0x4,%r12
jae    1ea0 <duchol+0xd10>
xor    %esi,%esi
jmp    1ff0 <duchol+0xe60>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r12,%rsi
imul   %r11,%rsi
lea    (%r12,%rsi,1),%rbx
mov    0x28(%rsp),%r15
lea    (%r15,%rsi,8),%rbp
mov    %rbp,0x58(%rsp)
mov    0x30(%rsp),%rbp
lea    0x0(,%rbx,8),%r13
add    %rbp,%r13
cmp    %r13,0x58(%rsp)
mov    0x30(%rsp),%r13
jae    1efa <duchol+0xd6a>
lea    (%r15,%rbx,8),%rbx
lea    0x0(,%rsi,8),%rsi
add    %r13,%rsi
cmp    %rbx,%rsi
jae    1efa <duchol+0xd6a>
xor    %esi,%esi
mov    0x48(%rsp),%r15
mov    0x18(%rsp),%rbp
jmp    1ff0 <duchol+0xe60>
cmpq   $0xc,0x80(%rsp)
jae    1f0c <duchol+0xd7c>
xor    %esi,%esi
jmp    1f8c <duchol+0xdfc>
mov    0x108(%rsp),%rbx
xor    %esi,%esi
cs nopw 0x0(%rax,%rax,1)
movups -0x70(%r9,%rsi,8),%xmm0
movups -0x60(%r9,%rsi,8),%xmm1
movups %xmm0,-0x70(%r10,%rsi,8)
movups %xmm1,-0x60(%r10,%rsi,8)
movups -0x50(%r9,%rsi,8),%xmm0
movups -0x40(%r9,%rsi,8),%xmm1
movups %xmm0,-0x50(%r10,%rsi,8)
movups %xmm1,-0x40(%r10,%rsi,8)
movups -0x30(%r9,%rsi,8),%xmm0
movups -0x20(%r9,%rsi,8),%xmm1
movups %xmm0,-0x30(%r10,%rsi,8)
movups %xmm1,-0x20(%r10,%rsi,8)
movupd -0x10(%r9,%rsi,8),%xmm0
movupd (%r9,%rsi,8),%xmm1
movupd %xmm0,-0x10(%r10,%rsi,8)
movupd %xmm1,(%r10,%rsi,8)
add    $0x10,%rsi
add    $0xfffffffffffffffc,%rbx
jne    1f20 <duchol+0xd90>
cmpq   $0x0,0x90(%rsp)
mov    0x48(%rsp),%r15
mov    0x110(%rsp),%r13
je     1fcf <duchol+0xe3f>
lea    (%r8,%rsi,8),%rbx
lea    (%rdi,%rsi,8),%rsi
xor    %ebp,%ebp
xchg   %ax,%ax
movupd -0x10(%rsi,%rbp,1),%xmm0
movupd (%rsi,%rbp,1),%xmm1
movupd %xmm0,-0x10(%rbx,%rbp,1)
movupd %xmm1,(%rbx,%rbp,1)
add    $0x20,%rbp
cmp    %rbp,%r13
jne    1fb0 <duchol+0xe20>
mov    0xa8(%rsp),%rbx
mov    %rbx,%rsi
cmp    %rbx,%r12
mov    0x18(%rsp),%rbp
mov    0x30(%rsp),%r13
je     1e60 <duchol+0xcd0>
nopl   (%rax)
mov    %rsi,%rbx
not    %rbx
add    %r12,%rbx
test   %rbp,%rbp
je     2014 <duchol+0xe84>
xchg   %ax,%ax
movsd  (%rcx,%rsi,8),%xmm0
movsd  %xmm0,(%rdx,%rsi,8)
add    $0x1,%rsi
add    $0xffffffffffffffff,%rbp
jne    2000 <duchol+0xe70>
cmp    $0x3,%rbx
mov    0x18(%rsp),%rbp
jb     1e60 <duchol+0xcd0>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  (%rcx,%rsi,8),%xmm0
movsd  %xmm0,-0x10(%r8,%rsi,8)
movsd  0x8(%rcx,%rsi,8),%xmm0
movsd  %xmm0,-0x8(%r8,%rsi,8)
movsd  0x10(%rcx,%rsi,8),%xmm0
movsd  %xmm0,(%r8,%rsi,8)
movsd  0x18(%rcx,%rsi,8),%xmm0
movsd  %xmm0,0x8(%r8,%rsi,8)
add    $0x4,%rsi
cmp    %rsi,%r12
jne    2030 <duchol+0xea0>
jmp    1e60 <duchol+0xcd0>
xor    %esi,%esi
test   $0x1,%r8b
mov    0x18(%rsp),%rbp
je     20a7 <duchol+0xf17>
mov    %rbx,%rdi
imul   %rbp,%rdi
add    %rsi,%rdi
movupd (%rdx,%rdi,8),%xmm2
divpd  %xmm1,%xmm2
movupd %xmm2,(%rdx,%rdi,8)
movupd (%rax,%rsi,8),%xmm1
mulpd  %xmm2,%xmm2
subpd  %xmm2,%xmm1
movupd %xmm1,(%rax,%rsi,8)
cmp    %rcx,%rbx
mov    0x10(%rsp),%r8
je     16a2 <duchol+0x512>
jmp    1659 <duchol+0x4c9>
xor    %ebx,%ebx
mov    0x30(%rsp),%r13
jmp    20c6 <duchol+0xf36>
mov    %rbp,%rbx
mov    %rax,%rdi
call   1030 <free@plt>
mov    %r14,%rdi
call   1030 <free@plt>
mov    %r15,%rdi
call   1030 <free@plt>
mov    0x60(%rsp),%rdi
call   1030 <free@plt>
mov    %r13,%rdi
call   1030 <free@plt>
mov    %rbx,%rax
add    $0x118,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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