void Suggested_Param_Hamann(num_states_psp, n_psp, l_psp, e_psp, fill_psp,
                            rcut_psp) int *num_states_psp;
int n_psp[];
int l_psp[];
double e_psp[];
double fill_psp[];
double rcut_psp[];
{
  int p, npsps;
  int i, l, lmax;
  int Nc, Nv, n;
  double rcmax, emax;
  Nc = Ncore_Atom();
  Nv = Nvalence_Atom();
  lmax = lmax_Atom();
  npsps = lmax + 2;
  for (p = 0; p < npsps; ++p) {
    rcut_psp[p] = 0.0;
    fill_psp[p] = 0.0;
    n_psp[p] = 0;
    l_psp[p] = p;
  }
  emax = 0.0;
  rcmax = 0.0;
  for (i = 0; i < Nc; ++i) {
    n = n_Atom(i);
    l = l_Atom(i);
    if (n == (l + 1))
      rcut_psp[l] = 4.0 * peak_Atom(i);
    else
      rcut_psp[l] = 1.9 * peak_Atom(i);
    rcmax = ((rcmax > rcut_psp[l]) ? rcmax : rcut_psp[l]);
    fill_psp[l] = 0.0;
    n_psp[l] = ((n_psp[l] > n) ? n_psp[l] : n);
    e_psp[l] = 0.0;
  }
  if (Nv > 0) {
    rcmax = 0.0;
    emax = -100.0;
    for (i = Nc; i < (Nc + Nv); ++i) {
      n = n_Atom(i);
      l = l_Atom(i);
      if (n == (l + 1))
        rcut_psp[l] = 0.4 * peak_Atom(i);
      else
        rcut_psp[l] = 0.6 * peak_Atom(i);
      n_psp[l] = n;
      fill_psp[l] = fill_Atom(i);
      e_psp[l] = eigenvalue_Atom(i);
      emax = ((emax > e_psp[l]) ? emax : e_psp[l]);
      rcmax = ((rcmax > rcut_psp[l]) ? rcmax : rcut_psp[l]);
    }
  }
  n_psp[npsps - 1] = l_psp[npsps - 1] + 1;
  for (p = 0; p < npsps; ++p) {
    if (fill_psp[p] == 0.0) {
      rcut_psp[p] = ((rcut_psp[p] > rcmax) ? rcut_psp[p] : rcmax);
      e_psp[p] = emax;
    }
  }
  *num_states_psp = npsps;
}


x86 assembly (clang, -O0):
<Suggested_Param_Hamann>:
push   %rbp
mov    %rsp,%rbp
sub    $0x90,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    $0x0,%al
call   1070 <Ncore_Atom@plt>
mov    %eax,-0x48(%rbp)
mov    $0x0,%al
call   1060 <Nvalence_Atom@plt>
mov    %eax,-0x4c(%rbp)
mov    $0x0,%al
call   1080 <lmax_Atom@plt>
mov    %eax,-0x44(%rbp)
mov    -0x44(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x38(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x38(%rbp),%eax
jge    1228 <Suggested_Param_Hamann+0xa8>
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movl   $0x0,(%rax,%rcx,4)
mov    -0x34(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    11d1 <Suggested_Param_Hamann+0x51>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x60(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x58(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x48(%rbp),%eax
jge    1375 <Suggested_Param_Hamann+0x1f5>
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   10a0 <n_Atom@plt>
mov    %eax,-0x50(%rbp)
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   1040 <l_Atom@plt>
mov    %eax,-0x40(%rbp)
mov    -0x50(%rbp),%eax
mov    -0x40(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jne    12a2 <Suggested_Param_Hamann+0x122>
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   1050 <peak_Atom@plt>
cvtsi2sd %eax,%xmm1
movsd  0xd94(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    12c9 <Suggested_Param_Hamann+0x149>
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   1050 <peak_Atom@plt>
cvtsi2sd %eax,%xmm1
movsd  0xd60(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x58(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    12f0 <Suggested_Param_Hamann+0x170>
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
jmp    1302 <Suggested_Param_Hamann+0x182>
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x28(%rbp),%rax
movslq -0x40(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
cmp    -0x50(%rbp),%eax
jle    1343 <Suggested_Param_Hamann+0x1c3>
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x6c(%rbp)
jmp    1349 <Suggested_Param_Hamann+0x1c9>
mov    -0x50(%rbp),%eax
mov    %eax,-0x6c(%rbp)
mov    -0x6c(%rbp),%edx
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x20(%rbp),%rax
movslq -0x40(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    123f <Suggested_Param_Hamann+0xbf>
cmpl   $0x0,-0x4c(%rbp)
jle    1506 <Suggested_Param_Hamann+0x386>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  0xc71(%rip),%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0x48(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    -0x48(%rbp),%ecx
add    -0x4c(%rbp),%ecx
cmp    %ecx,%eax
jge    1501 <Suggested_Param_Hamann+0x381>
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   10a0 <n_Atom@plt>
mov    %eax,-0x50(%rbp)
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   1040 <l_Atom@plt>
mov    %eax,-0x40(%rbp)
mov    -0x50(%rbp),%eax
mov    -0x40(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jne    1402 <Suggested_Param_Hamann+0x282>
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   1050 <peak_Atom@plt>
cvtsi2sd %eax,%xmm1
movsd  0xc24(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1429 <Suggested_Param_Hamann+0x2a9>
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   1050 <peak_Atom@plt>
cvtsi2sd %eax,%xmm1
movsd  0xbf0(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x50(%rbp),%edx
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   1030 <fill_Atom@plt>
cvtsi2sd %eax,%xmm0
mov    -0x28(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x3c(%rbp),%edi
mov    $0x0,%al
call   1090 <eigenvalue_Atom@plt>
cvtsi2sd %eax,%xmm0
mov    -0x20(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x60(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x40(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    1494 <Suggested_Param_Hamann+0x314>
movsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x78(%rbp)
jmp    14a6 <Suggested_Param_Hamann+0x326>
mov    -0x20(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x78(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x58(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    14d7 <Suggested_Param_Hamann+0x357>
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x80(%rbp)
jmp    14e9 <Suggested_Param_Hamann+0x369>
mov    -0x30(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x80(%rbp)
movsd  -0x80(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    139a <Suggested_Param_Hamann+0x21a>
jmp    1506 <Suggested_Param_Hamann+0x386>
mov    -0x18(%rbp),%rax
mov    -0x38(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,4),%edx
add    $0x1,%edx
mov    -0x10(%rbp),%rax
mov    -0x38(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    %edx,(%rax,%rcx,4)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x38(%rbp),%eax
jge    15d5 <Suggested_Param_Hamann+0x455>
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    15c2 <Suggested_Param_Hamann+0x442>
jp     15c2 <Suggested_Param_Hamann+0x442>
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x58(%rbp),%xmm0
jbe    158e <Suggested_Param_Hamann+0x40e>
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
jmp    159b <Suggested_Param_Hamann+0x41b>
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
movsd  -0x88(%rbp),%xmm0
ff
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x60(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    15c7 <Suggested_Param_Hamann+0x447>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1530 <Suggested_Param_Hamann+0x3b0>
mov    -0x38(%rbp),%ecx
mov    -0x8(%rbp),%rax
mov    %ecx,(%rax)
add    $0x90,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Suggested_Param_Hamann>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x48,%rsp
mov    %r9,%r14
mov    %r8,(%rsp)
mov    %rcx,%r12
mov    %rdx,0x8(%rsp)
mov    %rsi,%r13
mov    %rdi,0x40(%rsp)
xor    %eax,%eax
call   1070 <Ncore_Atom@plt>
mov    %eax,%r15d
xor    %eax,%eax
call   1060 <Nvalence_Atom@plt>
mov    %eax,0x10(%rsp)
xor    %eax,%eax
call   1080 <lmax_Atom@plt>
lea    0x2(%rax),%r9d
mov    %rax,0x38(%rsp)
cmp    $0xffffffff,%eax
jl     1436 <Suggested_Param_Hamann+0x2b6>
cmp    $0x2,%r9d
mov    $0x1,%r8d
cmovge %r9d,%r8d
cmp    $0x4,%r8d
jae    12b6 <Suggested_Param_Hamann+0x136>
xor    %ecx,%ecx
mov    %rcx,%rdx
not    %rdx
test   $0x1,%r8b
je     1222 <Suggested_Param_Hamann+0xa2>
movq   $0x0,(%r14,%rcx,8)
mov    (%rsp),%rax
movq   $0x0,(%rax,%rcx,8)
movl   $0x0,0x0(%r13,%rcx,4)
mov    0x8(%rsp),%rax
mov    %ecx,(%rax,%rcx,4)
or     $0x1,%rcx
add    %r8,%rdx
je     1436 <Suggested_Param_Hamann+0x2b6>
mov    0x8(%rsp),%rax
lea    (%rax,%rcx,4),%rdx
add    $0x4,%rdx
lea    0x4(%r13,%rcx,4),%rsi
mov    (%rsp),%rax
lea    (%rax,%rcx,8),%rdi
add    $0x8,%rdi
lea    (%r14,%rcx,8),%rbp
add    $0x8,%rbp
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movq   $0x0,-0x8(%rbp,%rbx,8)
movq   $0x0,-0x8(%rdi,%rbx,8)
movl   $0x0,-0x4(%rsi,%rbx,4)
lea    (%rcx,%rbx,1),%rax
mov    %eax,-0x4(%rdx,%rbx,4)
movq   $0x0,0x0(%rbp,%rbx,8)
movq   $0x0,(%rdi,%rbx,8)
movl   $0x0,(%rsi,%rbx,4)
add    $0x1,%eax
mov    %eax,(%rdx,%rbx,4)
lea    (%rcx,%rbx,1),%rax
add    $0x2,%rax
add    $0x2,%rbx
cmp    %r8,%rax
jne    1260 <Suggested_Param_Hamann+0xe0>
jmp    1436 <Suggested_Param_Hamann+0x2b6>
lea    (%r14,%r8,8),%rcx
mov    (%rsp),%rax
lea    (%rax,%r8,8),%rdx
lea    0x0(,%r8,4),%rsi
add    %r13,%rsi
cmp    %r14,%rdx
seta   %dil
mov    0x8(%rsp),%rbp
lea    0x0(,%r8,4),%rdx
add    %rbp,%rdx
cmp    %rax,%rcx
seta   %bl
cmp    %r13,%rdx
seta   %dl
cmp    %rbp,%rsi
seta   %sil
xor    %ecx,%ecx
test   %bl,%dil
jne    11ed <Suggested_Param_Hamann+0x6d>
and    %sil,%dl
jne    11ed <Suggested_Param_Hamann+0x6d>
mov    %r8d,%ecx
and    $0x7ffffffc,%ecx
lea    -0x4(%rcx),%rdx
mov    %rdx,%rsi
shr    $0x2,%rsi
add    $0x1,%rsi
test   %rdx,%rdx
je     16d7 <Suggested_Param_Hamann+0x557>
mov    %rsi,%rdi
and    $0xfffffffffffffffe,%rdi
movdqa 0xcc5(%rip),%xmm0
xor    %edx,%edx
movdqa 0xccb(%rip),%xmm1
xorpd  %xmm2,%xmm2
movdqa 0xccf(%rip),%xmm3
movdqa 0xcd7(%rip),%xmm4
movdqa 0xcdf(%rip),%xmm5
mov    (%rsp),%rax
mov    0x8(%rsp),%rbp
nopw   0x0(%rax,%rax,1)
movdqa %xmm0,%xmm6
paddd  %xmm1,%xmm6
movupd %xmm2,(%r14,%rdx,8)
movupd %xmm2,0x10(%r14,%rdx,8)
movupd %xmm2,(%rax,%rdx,8)
movupd %xmm2,0x10(%rax,%rdx,8)
movupd %xmm2,0x0(%r13,%rdx,4)
movdqa %xmm0,%xmm7
punpcklqdq %xmm6,%xmm7
movdqu %xmm7,0x0(%rbp,%rdx,4)
movdqa %xmm0,%xmm6
paddd  %xmm3,%xmm6
movdqa %xmm0,%xmm7
paddd  %xmm4,%xmm7
punpcklqdq %xmm7,%xmm6
movupd %xmm2,0x20(%r14,%rdx,8)
movupd %xmm2,0x30(%r14,%rdx,8)
movupd %xmm2,0x20(%rax,%rdx,8)
movupd %xmm2,0x30(%rax,%rdx,8)
movupd %xmm2,0x10(%r13,%rdx,4)
movdqu %xmm6,0x10(%rbp,%rdx,4)
add    $0x8,%rdx
paddd  %xmm5,%xmm0
add    $0xfffffffffffffffe,%rdi
jne    1370 <Suggested_Param_Hamann+0x1f0>
test   $0x1,%sil
je     142d <Suggested_Param_Hamann+0x2ad>
movdqa 0xc14(%rip),%xmm1
paddd  %xmm0,%xmm1
xorpd  %xmm2,%xmm2
movupd %xmm2,(%r14,%rdx,8)
movupd %xmm2,0x10(%r14,%rdx,8)
movupd %xmm2,(%rax,%rdx,8)
movupd %xmm2,0x10(%rax,%rdx,8)
movupd %xmm2,0x0(%r13,%rdx,4)
punpcklqdq %xmm1,%xmm0
movdqu %xmm0,0x0(%rbp,%rdx,4)
cmp    %r8,%rcx
jne    11ed <Suggested_Param_Hamann+0x6d>
mov    %r9d,0x2c(%rsp)
pxor   %xmm3,%xmm3
test   %r15d,%r15d
mov    %r12,0x30(%rsp)
mov    %r13,0x18(%rsp)
mov    %r14,%rsi
mov    %r14,%r13
jle    14f6 <Suggested_Param_Hamann+0x376>
pxor   %xmm3,%xmm3
xor    %ebp,%ebp
xchg   %ax,%ax
movq   %xmm3,0x20(%rsp)
mov    %ebp,%edi
xor    %eax,%eax
call   10a0 <n_Atom@plt>
mov    %eax,%r14d
mov    %ebp,%edi
xor    %eax,%eax
call   1040 <l_Atom@plt>
mov    %eax,%r12d
lea    0x1(%r12),%eax
xor    %ebx,%ebx
cmp    %eax,%r14d
sete   %bl
mov    %ebp,%edi
xor    %eax,%eax
call   1050 <peak_Atom@plt>
mov    %r13,%rsi
movsd  0x20(%rsp),%xmm3
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
lea    0xba5(%rip),%rax
mulsd  (%rax,%rbx,8),%xmm0
movslq %r12d,%rax
mov    0x30(%rsp),%r12
movsd  %xmm0,0x0(%r13,%rax,8)
maxsd  %xmm0,%xmm3
mov    (%rsp),%rcx
movq   $0x0,(%rcx,%rax,8)
mov    0x18(%rsp),%rdx
mov    (%rdx,%rax,4),%ecx
cmp    %r14d,%ecx
cmovg  %ecx,%r14d
mov    %r14d,(%rdx,%rax,4)
movq   $0x0,(%r12,%rax,8)
add    $0x1,%ebp
cmp    %ebp,%r15d
jne    1460 <Suggested_Param_Hamann+0x2e0>
mov    0x10(%rsp),%r14d
test   %r14d,%r14d
xorpd  %xmm2,%xmm2
jle    15de <Suggested_Param_Hamann+0x45e>
add    %r15d,%r14d
pxor   %xmm3,%xmm3
movsd  0xb59(%rip),%xmm2
nopw   0x0(%rax,%rax,1)
movq   %xmm3,0x20(%rsp)
movsd  %xmm2,0x10(%rsp)
mov    %r15d,%edi
xor    %eax,%eax
call   10a0 <n_Atom@plt>
mov    %eax,%r12d
mov    %r15d,%edi
xor    %eax,%eax
call   1040 <l_Atom@plt>
mov    %eax,%ebx
lea    0x1(%rbx),%eax
xor    %ebp,%ebp
cmp    %eax,%r12d
sete   %bpl
mov    %r15d,%edi
xor    %eax,%eax
call   1050 <peak_Atom@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
lea    0xaf7(%rip),%rax
mulsd  (%rax,%rbp,8),%xmm0
movslq %ebx,%rbx
movsd  %xmm0,0x0(%r13,%rbx,8)
mov    0x18(%rsp),%rax
mov    %r12d,(%rax,%rbx,4)
mov    0x30(%rsp),%r12
mov    %r15d,%edi
xor    %eax,%eax
call   1030 <fill_Atom@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
mov    (%rsp),%rax
movsd  %xmm0,(%rax,%rbx,8)
mov    %r15d,%edi
xor    %eax,%eax
call   1090 <eigenvalue_Atom@plt>
mov    %r13,%rsi
movsd  0x20(%rsp),%xmm3
movsd  0x10(%rsp),%xmm2
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  %xmm0,(%r12,%rbx,8)
maxsd  %xmm0,%xmm2
maxsd  0x0(%r13,%rbx,8),%xmm3
add    $0x1,%r15d
cmp    %r14d,%r15d
jl     1520 <Suggested_Param_Hamann+0x3a0>
mov    0x38(%rsp),%rdx
movslq %edx,%rax
mov    0x8(%rsp),%rcx
mov    0x4(%rcx,%rax,4),%ecx
add    $0x1,%ecx
mov    0x18(%rsp),%rdi
mov    %ecx,0x4(%rdi,%rax,4)
cmp    $0xffffffff,%edx
mov    %rsi,%r13
mov    (%rsp),%rsi
mov    0x2c(%rsp),%edi
jl     164e <Suggested_Param_Hamann+0x4ce>
cmp    $0x2,%edi
mov    $0x1,%ecx
cmovge %edi,%ecx
cmp    $0x7ffffffd,%edx
jbe    1664 <Suggested_Param_Hamann+0x4e4>
xor    %eax,%eax
test   $0x1,%cl
je     164e <Suggested_Param_Hamann+0x4ce>
movsd  (%rsi,%rax,8),%xmm0
pxor   %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    164e <Suggested_Param_Hamann+0x4ce>
jp     164e <Suggested_Param_Hamann+0x4ce>
movsd  0x0(%r13,%rax,8),%xmm0
maxsd  %xmm3,%xmm0
movsd  %xmm0,0x0(%r13,%rax,8)
movsd  %xmm2,(%r12,%rax,8)
mov    0x40(%rsp),%rax
mov    %edi,(%rax)
add    $0x48,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    %ecx,%edx
and    $0x7ffffffe,%edx
xor    %eax,%eax
pxor   %xmm0,%xmm0
jmp    1689 <Suggested_Param_Hamann+0x509>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x2,%rax
cmp    %rax,%rdx
je     1620 <Suggested_Param_Hamann+0x4a0>
movsd  (%rsi,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jne    16ae <Suggested_Param_Hamann+0x52e>
jp     16ae <Suggested_Param_Hamann+0x52e>
movsd  0x0(%r13,%rax,8),%xmm1
maxsd  %xmm3,%xmm1
movsd  %xmm1,0x0(%r13,%rax,8)
movsd  %xmm2,(%r12,%rax,8)
movsd  0x8(%rsi,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jne    1680 <Suggested_Param_Hamann+0x500>
jp     1680 <Suggested_Param_Hamann+0x500>
movsd  0x8(%r13,%rax,8),%xmm1
maxsd  %xmm3,%xmm1
movsd  %xmm1,0x8(%r13,%rax,8)
movsd  %xmm2,0x8(%r12,%rax,8)
jmp    1680 <Suggested_Param_Hamann+0x500>
movdqa 0x921(%rip),%xmm0
xor    %edx,%edx
mov    (%rsp),%rax
mov    0x8(%rsp),%rbp
test   $0x1,%sil
jne    13f4 <Suggested_Param_Hamann+0x274>
jmp    142d <Suggested_Param_Hamann+0x2ad>

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

LLVM IR (-O2):
define void @Suggested_Param_Hamann(i32* nocapture writeonly %0, i32* nocapture %1, i32* nocapture %2, double* nocapture writeonly %3, double* nocapture %4, double* nocapture %5) {
%7 = tail call i32 (...) @Ncore_Atom()
%8 = tail call i32 (...) @Nvalence_Atom()
%9 = tail call i32 (...) @lmax_Atom()
%10 = add i32 %9, 2
%11 = icmp sgt i32 %9, -2
br i1 %11, label %12, label %121
12: ; preds = %6
%13 = tail call i32 @llvm.smax.i32(i32 %10, i32 1)
%14 = zext i32 %13 to i64
%15 = icmp ult i32 %13, 4
br i1 %15, label %105, label %16
16: ; preds = %12
%17 = getelementptr double, double* %5, i64 %14
%18 = getelementptr double, double* %4, i64 %14
%19 = getelementptr i32, i32* %1, i64 %14
%20 = getelementptr i32, i32* %2, i64 %14
%21 = icmp ugt double* %18, %5
%22 = icmp ugt double* %17, %4
%23 = and i1 %21, %22
%24 = icmp ugt i32* %20, %1
%25 = icmp ugt i32* %19, %2
%26 = and i1 %24, %25
%27 = or i1 %23, %26
br i1 %27, label %105, label %28
28: ; preds = %16
%29 = and i64 %14, 2147483644
%30 = add nsw i64 %29, -4
%31 = lshr exact i64 %30, 2
%32 = add nuw nsw i64 %31, 1
%33 = and i64 %32, 1
%34 = icmp eq i64 %30, 0
br i1 %34, label %81, label %35
35: ; preds = %28
%36 = and i64 %32, 9223372036854775806
br label %37
37: ; preds = %37, %35
%38 = phi i64 [ 0, %35 ], [ %77, %37 ]
%39 = phi <2 x i32> [ <i32 0, i32 1>, %35 ], [ %78, %37 ]
%40 = phi i64 [ 0, %35 ], [ %79, %37 ]
%41 = add <2 x i32> %39, <i32 2, i32 2>
%42 = getelementptr inbounds double, double* %5, i64 %38
%43 = bitcast double* %42 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %43
%44 = getelementptr inbounds double, double* %42, i64 2
%45 = bitcast double* %44 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %45
%46 = getelementptr inbounds double, double* %4, i64 %38
%47 = bitcast double* %46 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %47
%48 = getelementptr inbounds double, double* %46, i64 2
%49 = bitcast double* %48 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %49
%50 = getelementptr inbounds i32, i32* %1, i64 %38
%51 = bitcast i32* %50 to <2 x i32>*
store <2 x i32> zeroinitializer, <2 x i32>* %51
%52 = getelementptr inbounds i32, i32* %50, i64 2
%53 = bitcast i32* %52 to <2 x i32>*
store <2 x i32> zeroinitializer, <2 x i32>* %53
%54 = getelementptr inbounds i32, i32* %2, i64 %38
%55 = bitcast i32* %54 to <2 x i32>*
store <2 x i32> %39, <2 x i32>* %55
%56 = getelementptr inbounds i32, i32* %54, i64 2
%57 = bitcast i32* %56 to <2 x i32>*
store <2 x i32> %41, <2 x i32>* %57
%58 = or i64 %38, 4
%59 = add <2 x i32> %39, <i32 4, i32 4>
%60 = add <2 x i32> %39, <i32 6, i32 6>
%61 = getelementptr inbounds double, double* %5, i64 %58
%62 = bitcast double* %61 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %62
%63 = getelementptr inbounds double, double* %61, i64 2
%64 = bitcast double* %63 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %64
%65 = getelementptr inbounds double, double* %4, i64 %58
%66 = bitcast double* %65 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %66
%67 = getelementptr inbounds double, double* %65, i64 2
%68 = bitcast double* %67 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %68
%69 = getelementptr inbounds i32, i32* %1, i64 %58
%70 = bitcast i32* %69 to <2 x i32>*
store <2 x i32> zeroinitializer, <2 x i32>* %70
%71 = getelementptr inbounds i32, i32* %69, i64 2
%72 = bitcast i32* %71 to <2 x i32>*
store <2 x i32> zeroinitializer, <2 x i32>* %72
%73 = getelementptr inbounds i32, i32* %2, i64 %58
%74 = bitcast i32* %73 to <2 x i32>*
store <2 x i32> %59, <2 x i32>* %74
%75 = getelementptr inbounds i32, i32* %73, i64 2
%76 = bitcast i32* %75 to <2 x i32>*
store <2 x i32> %60, <2 x i32>* %76
%77 = add nuw i64 %38, 8
%78 = add <2 x i32> %39, <i32 8, i32 8>
%79 = add i64 %40, 2
%80 = icmp eq i64 %79, %36
br i1 %80, label %81, label %37
81: ; preds = %37, %28
%82 = phi i64 [ 0, %28 ], [ %77, %37 ]
%83 = phi <2 x i32> [ <i32 0, i32 1>, %28 ], [ %78, %37 ]
%84 = icmp eq i64 %33, 0
br i1 %84, label %103, label %85
85: ; preds = %81
%86 = add <2 x i32> %83, <i32 2, i32 2>
%87 = getelementptr inbounds double, double* %5, i64 %82
%88 = bitcast double* %87 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %88
%89 = getelementptr inbounds double, double* %87, i64 2
%90 = bitcast double* %89 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %90
%91 = getelementptr inbounds double, double* %4, i64 %82
%92 = bitcast double* %91 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %92
%93 = getelementptr inbounds double, double* %91, i64 2
%94 = bitcast double* %93 to <2 x double>*
store <2 x double> zeroinitializer, <2 x double>* %94
%95 = getelementptr inbounds i32, i32* %1, i64 %82
%96 = bitcast i32* %95 to <2 x i32>*
store <2 x i32> zeroinitializer, <2 x i32>* %96
%97 = getelementptr inbounds i32, i32* %95, i64 2
%98 = bitcast i32* %97 to <2 x i32>*
store <2 x i32> zeroinitializer, <2 x i32>* %98
%99 = getelementptr inbounds i32, i32* %2, i64 %82
%100 = bitcast i32* %99 to <2 x i32>*
store <2 x i32> %83, <2 x i32>* %100
%101 = getelementptr inbounds i32, i32* %99, i64 2
%102 = bitcast i32* %101 to <2 x i32>*
store <2 x i32> %86, <2 x i32>* %102
br label %103
103: ; preds = %81, %85
%104 = icmp eq i64 %29, %14
br i1 %104, label %121, label %105
105: ; preds = %16, %12, %103
%106 = phi i64 [ 0, %16 ], [ 0, %12 ], [ %29, %103 ]
%107 = xor i64 %106, -1
%108 = and i64 %14, 1
%109 = icmp eq i64 %108, 0
br i1 %109, label %117, label %110
110: ; preds = %105
%111 = getelementptr inbounds double, double* %5, i64 %106
store double 0.000000e+00, double* %111
%112 = getelementptr inbounds double, double* %4, i64 %106
store double 0.000000e+00, double* %112
%113 = getelementptr inbounds i32, i32* %1, i64 %106
store i32 0, i32* %113
%114 = getelementptr inbounds i32, i32* %2, i64 %106
%115 = trunc i64 %106 to i32
store i32 %115, i32* %114
%116 = or i64 %106, 1
br label %117
117: ; preds = %110, %105
%118 = phi i64 [ %106, %105 ], [ %116, %110 ]
%119 = sub nsw i64 0, %14
%120 = icmp eq i64 %107, %119
br i1 %120, label %121, label %123
121: ; preds = %117, %123, %103, %6
%122 = icmp sgt i32 %7, 0
br i1 %122, label %138, label %161
123: ; preds = %117, %123
%124 = phi i64 [ %136, %123 ], [ %118, %117 ]
%125 = getelementptr inbounds double, double* %5, i64 %124
store double 0.000000e+00, double* %125
%126 = getelementptr inbounds double, double* %4, i64 %124
store double 0.000000e+00, double* %126
%127 = getelementptr inbounds i32, i32* %1, i64 %124
store i32 0, i32* %127
%128 = getelementptr inbounds i32, i32* %2, i64 %124
%129 = trunc i64 %124 to i32
store i32 %129, i32* %128
%130 = add nuw nsw i64 %124, 1
%131 = getelementptr inbounds double, double* %5, i64 %130
store double 0.000000e+00, double* %131
%132 = getelementptr inbounds double, double* %4, i64 %130
store double 0.000000e+00, double* %132
%133 = getelementptr inbounds i32, i32* %1, i64 %130
store i32 0, i32* %133
%134 = getelementptr inbounds i32, i32* %2, i64 %130
%135 = trunc i64 %130 to i32
store i32 %135, i32* %134
%136 = add nuw nsw i64 %124, 2
%137 = icmp eq i64 %136, %14
br i1 %137, label %121, label %123
138: ; preds = %121, %138
%139 = phi double [ %152, %138 ], [ 0.000000e+00, %121 ]
%140 = phi i32 [ %159, %138 ], [ 0, %121 ]
%141 = tail call i32 (i32, ...) bitcast (i32 (...)* @n_Atom to i32 (i32, ...)*)(i32 %140)
%142 = tail call i32 (i32, ...) bitcast (i32 (...)* @l_Atom to i32 (i32, ...)*)(i32 %140)
%143 = add nsw i32 %142, 1
%144 = icmp eq i32 %141, %143
%145 = tail call i32 (i32, ...) bitcast (i32 (...)* @peak_Atom to i32 (i32, ...)*)(i32 %140)
%146 = sitofp i32 %145 to double
%147 = select i1 %144, double 4.000000e+00, double 1.900000e+00
%148 = fmul double %147, %146
%149 = sext i32 %142 to i64
%150 = getelementptr inbounds double, double* %5, i64 %149
store double %148, double* %150
%151 = fcmp ogt double %139, %148
%152 = select i1 %151, double %139, double %148
%153 = getelementptr inbounds double, double* %4, i64 %149
store double 0.000000e+00, double* %153
%154 = getelementptr inbounds i32, i32* %1, i64 %149
%155 = load i32, i32* %154
%156 = icmp sgt i32 %155, %141
%157 = select i1 %156, i32 %155, i32 %141
store i32 %157, i32* %154
%158 = getelementptr inbounds double, double* %3, i64 %149
store double 0.000000e+00, double* %158
%159 = add nuw nsw i32 %140, 1
%160 = icmp eq i32 %159, %7
br i1 %160, label %161, label %138
161: ; preds = %138, %121
%162 = phi double [ 0.000000e+00, %121 ], [ %152, %138 ]
%163 = icmp sgt i32 %8, 0
br i1 %163, label %164, label %194
164: ; preds = %161
%165 = add nsw i32 %8, %7
br label %166
166: ; preds = %164, %166
%167 = phi double [ %188, %166 ], [ -1.000000e+02, %164 ]
%168 = phi double [ %191, %166 ], [ 0.000000e+00, %164 ]
%169 = phi i32 [ %192, %166 ], [ %7, %164 ]
%170 = tail call i32 (i32, ...) bitcast (i32 (...)* @n_Atom to i32 (i32, ...)*)(i32 %169)
%171 = tail call i32 (i32, ...) bitcast (i32 (...)* @l_Atom to i32 (i32, ...)*)(i32 %169)
%172 = add nsw i32 %171, 1
%173 = icmp eq i32 %170, %172
%174 = tail call i32 (i32, ...) bitcast (i32 (...)* @peak_Atom to i32 (i32, ...)*)(i32 %169)
%175 = sitofp i32 %174 to double
%176 = select i1 %173, double 4.000000e-01, double 6.000000e-01
%177 = fmul double %176, %175
%178 = sext i32 %171 to i64
%179 = getelementptr inbounds double, double* %5, i64 %178
store double %177, double* %179
%180 = getelementptr inbounds i32, i32* %1, i64 %178
store i32 %170, i32* %180
%181 = tail call i32 (i32, ...) bitcast (i32 (...)* @fill_Atom to i32 (i32, ...)*)(i32 %169)
%182 = sitofp i32 %181 to double
%183 = getelementptr inbounds double, double* %4, i64 %178
store double %182, double* %183
%184 = tail call i32 (i32, ...) bitcast (i32 (...)* @eigenvalue_Atom to i32 (i32, ...)*)(i32 %169)
%185 = sitofp i32 %184 to double
%186 = getelementptr inbounds double, double* %3, i64 %178
store double %185, double* %186
%187 = fcmp ogt double %167, %185
%188 = select i1 %187, double %167, double %185
%189 = load double, double* %179
%190 = fcmp ogt double %168, %189
%191 = select i1 %190, double %168, double %189
%192 = add nsw i32 %169, 1
%193 = icmp slt i32 %192, %165
br i1 %193, label %166, label %194
194: ; preds = %166, %161
%195 = phi double [ %162, %161 ], [ %191, %166 ]
%196 = phi double [ 0.000000e+00, %161 ], [ %188, %166 ]
%197 = add nsw i32 %9, 1
%198 = sext i32 %197 to i64
%199 = getelementptr inbounds i32, i32* %2, i64 %198
%200 = load i32, i32* %199
%201 = add nsw i32 %200, 1
%202 = getelementptr inbounds i32, i32* %1, i64 %198
store i32 %201, i32* %202
br i1 %11, label %203, label %250
203: ; preds = %194
%204 = tail call i32 @llvm.smax.i32(i32 %10, i32 1)
%205 = zext i32 %204 to i64
%206 = and i64 %205, 1
%207 = icmp ugt i32 %9, 2147483645
br i1 %207, label %237, label %208
208: ; preds = %203
%209 = and i64 %205, 2147483646
br label %210
210: ; preds = %233, %208
%211 = phi i64 [ 0, %208 ], [ %234, %233 ]
%212 = phi i64 [ 0, %208 ], [ %235, %233 ]
%213 = getelementptr inbounds double, double* %4, i64 %211
%214 = load double, double* %213
%215 = fcmp oeq double %214, 0.000000e+00
br i1 %215, label %216, label %222
216: ; preds = %210
%217 = getelementptr inbounds double, double* %5, i64 %211
%218 = load double, double* %217
%219 = fcmp ogt double %218, %195
%220 = select i1 %219, double %218, double %195
store double %220, double* %217
%221 = getelementptr inbounds double, double* %3, i64 %211
store double %196, double* %221
br label %222
222: ; preds = %210, %216
%223 = or i64 %211, 1
%224 = getelementptr inbounds double, double* %4, i64 %223
%225 = load double, double* %224
%226 = fcmp oeq double %225, 0.000000e+00
br i1 %226, label %227, label %233
227: ; preds = %222
%228 = getelementptr inbounds double, double* %5, i64 %223
%229 = load double, double* %228
%230 = fcmp ogt double %229, %195
%231 = select i1 %230, double %229, double %195
store double %231, double* %228
%232 = getelementptr inbounds double, double* %3, i64 %223
store double %196, double* %232
br label %233
233: ; preds = %227, %222
%234 = add nuw nsw i64 %211, 2
%235 = add i64 %212, 2
%236 = icmp eq i64 %235, %209
br i1 %236, label %237, label %210
237: ; preds = %233, %203
%238 = phi i64 [ 0, %203 ], [ %234, %233 ]
%239 = icmp eq i64 %206, 0
br i1 %239, label %250, label %240
240: ; preds = %237
%241 = getelementptr inbounds double, double* %4, i64 %238
%242 = load double, double* %241
%243 = fcmp oeq double %242, 0.000000e+00
br i1 %243, label %244, label %250
244: ; preds = %240
%245 = getelementptr inbounds double, double* %5, i64 %238
%246 = load double, double* %245
%247 = fcmp ogt double %246, %195
%248 = select i1 %247, double %246, double %195
store double %248, double* %245
%249 = getelementptr inbounds double, double* %3, i64 %238
store double %196, double* %249
br label %250
250: ; preds = %237, %244, %240, %194
store i32 %10, i32* %0
ret void
}