#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 fabs(double);
int floor(double);
int dlacon_(int *n, double *v, double *x, int *isgn, double *est, int *kase) {
  int c__1 = 1;
  double zero = 0.0;
  double one = 1.0;
  static int iter;
  static int jump, jlast;
  static double altsgn, estold;
  static int i, j;
  double temp;
  extern int idamax_(int *, double *, int *);
  extern double dasum_(int *, double *, int *);
  extern int dcopy_(int *, double *, int *, double *, int *);
  if (*kase == 0) {
    for (i = 0; i < *n; ++i) {
      x[i] = 1. / (double)(*n);
    }
    *kase = 1;
    jump = 1;
    return 0;
  }
  switch (jump) {
  case 1:
    goto L20;
  case 2:
    goto L40;
  case 3:
    goto L70;
  case 4:
    goto L110;
  case 5:
    goto L140;
  }
L20:
  if (*n == 1) {
    v[0] = x[0];
    *est = fabs(v[0]);
    goto L150;
  }
  *est = dasum_(n, x, &c__1);
  for (i = 0; i < *n; ++i) {
    x[i] = (x[i] >= 0 ? fabs(one) : -fabs(one));
    isgn[i] = (x[i] >= 0 ? floor(x[i] + .5) : -floor(.5 - x[i]));
  }
  *kase = 2;
  jump = 2;
  return 0;
L40:
  j = idamax_(n, &x[0], &c__1);
  --j;
  iter = 2;
L50:
  for (i = 0; i < *n; ++i)
    x[i] = zero;
  x[j] = one;
  *kase = 1;
  jump = 3;
  return 0;
L70:
  dcopy_(n, x, &c__1, v, &c__1);
  estold = *est;
  *est = dasum_(n, v, &c__1);
  for (i = 0; i < *n; ++i)
    if (((x[i] >= 0 ? fabs(one) : -fabs(one)) >= 0
             ? floor((x[i] >= 0 ? fabs(one) : -fabs(one)) + .5)
             : -floor(.5 - (x[i] >= 0 ? fabs(one) : -fabs(one)))) != isgn[i])
      goto L90;
  goto L120;
L90:
  if (*est <= estold)
    goto L120;
  for (i = 0; i < *n; ++i) {
    x[i] = (x[i] >= 0 ? fabs(one) : -fabs(one));
    isgn[i] = (x[i] >= 0 ? floor(x[i] + .5) : -floor(.5 - x[i]));
  }
  *kase = 2;
  jump = 4;
  return 0;
L110:
  jlast = j;
  j = idamax_(n, &x[0], &c__1);
  --j;
  if (x[jlast] != fabs(x[j]) && iter < 5) {
    ++iter;
    goto L50;
  }
L120:
  altsgn = 1.;
  for (i = 1; i <= *n; ++i) {
    x[i - 1] = altsgn * ((double)(i - 1) / (double)(*n - 1) + 1.);
    altsgn = -altsgn;
  }
  *kase = 1;
  jump = 5;
  return 0;
L140:
  temp = dasum_(n, x, &c__1) / (double)(*n * 3) * 2.;
  if (temp > *est) {
    dcopy_(n, &x[0], &c__1, &v[0], &c__1);
    *est = temp;
  }
L150:
  *kase = 0;
  return 0;
}


x86 assembly (clang, -O0):
<dlacon_>:
push   %rbp
mov    %rsp,%rbp
sub    $0xa0,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    %r8,-0x30(%rbp)
mov    %r9,-0x38(%rbp)
movl   $0x1,-0x3c(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xe86(%rip),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x38(%rbp),%rax
cmpl   $0x0,(%rax)
jne    1200 <dlacon_+0xc0>
movl   $0x0,0x2ed2(%rip)
mov    0x2ecc(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    11e0 <dlacon_+0xa0>
mov    -0x10(%rbp),%rax
cvtsi2sdl (%rax),%xmm1
movsd  0xe48(%rip),%xmm0
divsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
movslq 0x2ea1(%rip),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x2e96(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2e8d(%rip)
jmp    1196 <dlacon_+0x56>
mov    -0x38(%rbp),%rax
movl   $0x1,(%rax)
movl   $0x1,0x2e58(%rip)
movl   $0x0,-0x4(%rbp)
jmp    1a07 <dlacon_+0x8c7>
mov    0x2e46(%rip),%eax
add    $0xffffffff,%eax
mov    %eax,%ecx
mov    %rcx,-0x60(%rbp)
sub    $0x4,%eax
ja     1245 <dlacon_+0x105>
mov    -0x60(%rbp),%rax
lea    0xe0d(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
jmp    124a <dlacon_+0x10a>
jmp    13e1 <dlacon_+0x2a1>
jmp    148b <dlacon_+0x34b>
jmp    181e <dlacon_+0x6de>
jmp    1988 <dlacon_+0x848>
jmp    124a <dlacon_+0x10a>
mov    -0x10(%rbp),%rax
cmpl   $0x1,(%rax)
jne    1287 <dlacon_+0x147>
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
movaps 0xdaa(%rip),%xmm1
pand   %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
jmp    19f6 <dlacon_+0x8b6>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1050 <dasum_@plt>
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x0,0x2dbe(%rip)
mov    0x2db8(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    13c1 <dlacon_+0x281>
mov    -0x20(%rbp),%rax
movslq 0x2da1(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     12f3 <dlacon_+0x1b3>
movsd  -0x50(%rbp),%xmm0
movaps 0xd3b(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
jmp    131f <dlacon_+0x1df>
movsd  -0x50(%rbp),%xmm0
movaps 0xd21(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq 0x2d39(%rip),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
movslq 0x2d29(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1376 <dlacon_+0x236>
mov    -0x20(%rbp),%rax
movslq 0x2d0c(%rip),%rcx
movsd  0xcac(%rip),%xmm0
addsd  (%rax,%rcx,8),%xmm0
call   1060 <floor@plt>
mov    %eax,-0x6c(%rbp)
jmp    139c <dlacon_+0x25c>
mov    -0x20(%rbp),%rax
movslq 0x2ce7(%rip),%rcx
movsd  0xc87(%rip),%xmm0
subsd  (%rax,%rcx,8),%xmm0
call   1060 <floor@plt>
mov    %eax,%ecx
xor    %eax,%eax
sub    %ecx,%eax
mov    %eax,-0x6c(%rbp)
mov    -0x6c(%rbp),%edx
mov    -0x28(%rbp),%rax
movslq 0x2cbe(%rip),%rcx
mov    %edx,(%rax,%rcx,4)
mov    0x2cb5(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2cac(%rip)
jmp    12aa <dlacon_+0x16a>
mov    -0x38(%rbp),%rax
movl   $0x2,(%rax)
movl   $0x2,0x2c77(%rip)
movl   $0x0,-0x4(%rbp)
jmp    1a07 <dlacon_+0x8c7>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1040 <idamax_@plt>
mov    %eax,0x2c74(%rip)
mov    0x2c6e(%rip),%eax
add    $0xffffffff,%eax
mov    %eax,0x2c65(%rip)
movl   $0x2,0x2c37(%rip)
movl   $0x0,0x2c4d(%rip)
mov    0x2c47(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    1456 <dlacon_+0x316>
movsd  -0x48(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq 0x2c2b(%rip),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    0x2c20(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2c17(%rip)
jmp    141b <dlacon_+0x2db>
movsd  -0x50(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq 0x2c06(%rip),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%rax
movl   $0x1,(%rax)
movl   $0x3,0x2bcd(%rip)
movl   $0x0,-0x4(%rbp)
jmp    1a07 <dlacon_+0x8c7>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
mov    -0x18(%rbp),%rcx
lea    -0x3c(%rbp),%r8
mov    %r8,%rdx
call   1030 <dcopy_@plt>
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,0x2bad(%rip)
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1050 <dasum_@plt>
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x0,0x2b92(%rip)
mov    0x2b8c(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    16a7 <dlacon_+0x567>
mov    -0x20(%rbp),%rax
movslq 0x2b75(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     151f <dlacon_+0x3df>
movsd  -0x50(%rbp),%xmm0
movaps 0xb0f(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x78(%rbp)
jmp    154b <dlacon_+0x40b>
movsd  -0x50(%rbp),%xmm0
movaps 0xaf5(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x78(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     15e1 <dlacon_+0x4a1>
mov    -0x20(%rbp),%rax
movslq 0x2b00(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1594 <dlacon_+0x454>
movsd  -0x50(%rbp),%xmm0
movaps 0xa9a(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x80(%rbp)
jmp    15c0 <dlacon_+0x480>
movsd  -0x50(%rbp),%xmm0
movaps 0xa80(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x80(%rbp)
movsd  -0x80(%rbp),%xmm0
movsd  0xa43(%rip),%xmm1
addsd  %xmm1,%xmm0
call   1060 <floor@plt>
mov    %eax,-0x84(%rbp)
jmp    166f <dlacon_+0x52f>
mov    -0x20(%rbp),%rax
movslq 0x2a7c(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     161b <dlacon_+0x4db>
movsd  -0x50(%rbp),%xmm0
movaps 0xa16(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x90(%rbp)
ff
jmp    164a <dlacon_+0x50a>
movsd  -0x50(%rbp),%xmm0
movaps 0x9f9(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x90(%rbp)
ff
movsd  -0x90(%rbp),%xmm1
ff
movsd  0x9b6(%rip),%xmm0
subsd  %xmm1,%xmm0
call   1060 <floor@plt>
mov    %eax,%ecx
xor    %eax,%eax
sub    %ecx,%eax
mov    %eax,-0x84(%rbp)
mov    -0x84(%rbp),%eax
mov    -0x28(%rbp),%rcx
movslq 0x29e8(%rip),%rdx
cmp    (%rcx,%rdx,4),%eax
je     168e <dlacon_+0x54e>
jmp    16ac <dlacon_+0x56c>
jmp    1693 <dlacon_+0x553>
mov    0x29cf(%rip),%eax
add    $0x1,%eax
mov    %eax,0x29c6(%rip)
jmp    14d6 <dlacon_+0x396>
jmp    18b6 <dlacon_+0x776>
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm1
movsd  0x29a4(%rip),%xmm0
ucomisd %xmm1,%xmm0
jb     16cb <dlacon_+0x58b>
jmp    18b6 <dlacon_+0x776>
movl   $0x0,0x2993(%rip)
mov    0x298d(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jge    17fe <dlacon_+0x6be>
mov    -0x20(%rbp),%rax
movslq 0x2976(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1721 <dlacon_+0x5e1>
movsd  -0x50(%rbp),%xmm0
movaps 0x910(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x98(%rbp)
ff
jmp    1750 <dlacon_+0x610>
movsd  -0x50(%rbp),%xmm0
movaps 0x8f3(%rip),%xmm1
pand   %xmm1,%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x98(%rbp)
ff
movsd  -0x98(%rbp),%xmm0
ff
mov    -0x20(%rbp),%rax
movslq 0x2905(%rip),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
movslq 0x28f5(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     17ad <dlacon_+0x66d>
mov    -0x20(%rbp),%rax
movslq 0x28d8(%rip),%rcx
movsd  0x878(%rip),%xmm0
addsd  (%rax,%rcx,8),%xmm0
call   1060 <floor@plt>
mov    %eax,-0x9c(%rbp)
jmp    17d6 <dlacon_+0x696>
mov    -0x20(%rbp),%rax
movslq 0x28b0(%rip),%rcx
movsd  0x850(%rip),%xmm0
subsd  (%rax,%rcx,8),%xmm0
call   1060 <floor@plt>
mov    %eax,%ecx
xor    %eax,%eax
sub    %ecx,%eax
mov    %eax,-0x9c(%rbp)
mov    -0x9c(%rbp),%edx
mov    -0x28(%rbp),%rax
movslq 0x2881(%rip),%rcx
mov    %edx,(%rax,%rcx,4)
mov    0x2878(%rip),%eax
add    $0x1,%eax
mov    %eax,0x286f(%rip)
jmp    16d5 <dlacon_+0x595>
mov    -0x38(%rbp),%rax
movl   $0x2,(%rax)
movl   $0x4,0x283a(%rip)
movl   $0x0,-0x4(%rbp)
jmp    1a07 <dlacon_+0x8c7>
mov    0x2848(%rip),%eax
mov    %eax,0x2826(%rip)
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1040 <idamax_@plt>
mov    %eax,0x282b(%rip)
mov    0x2825(%rip),%eax
add    $0xffffffff,%eax
mov    %eax,0x281c(%rip)
mov    -0x20(%rbp),%rax
movslq 0x27f5(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq 0x2801(%rip),%rcx
movsd  (%rax,%rcx,8),%xmm1
movaps 0x7a9(%rip),%xmm2
pand   %xmm2,%xmm1
ucomisd %xmm1,%xmm0
jne    1890 <dlacon_+0x750>
jp     1890 <dlacon_+0x750>
jmp    18b1 <dlacon_+0x771>
cmpl   $0x5,0x27b1(%rip)
jge    18b1 <dlacon_+0x771>
mov    0x27a5(%rip),%eax
add    $0x1,%eax
mov    %eax,0x279c(%rip)
jmp    1411 <dlacon_+0x2d1>
jmp    18b6 <dlacon_+0x776>
movsd  0x742(%rip),%xmm0
movsd  %xmm0,0x2792(%rip)
movl   $0x1,0x2798(%rip)
mov    0x2792(%rip),%eax
mov    -0x10(%rbp),%rcx
cmp    (%rcx),%eax
jg     1968 <dlacon_+0x828>
movsd  0x276e(%rip),%xmm0
mov    0x2778(%rip),%eax
sub    $0x1,%eax
cvtsi2sd %eax,%xmm1
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
sub    $0x1,%eax
cvtsi2sd %eax,%xmm2
divsd  %xmm2,%xmm1
movsd  0x6f0(%rip),%xmm2
addsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
mov    0x2746(%rip),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  0x2723(%rip),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,0x2704(%rip)
mov    0x270e(%rip),%eax
add    $0x1,%eax
mov    %eax,0x2705(%rip)
jmp    18d0 <dlacon_+0x790>
mov    -0x38(%rbp),%rax
movl   $0x1,(%rax)
movl   $0x5,0x26d0(%rip)
movl   $0x0,-0x4(%rbp)
jmp    1a07 <dlacon_+0x8c7>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
lea    -0x3c(%rbp),%rdx
call   1050 <dasum_@plt>
mov    -0x10(%rbp),%rax
imul   $0x3,(%rax),%eax
cvtsi2sd %eax,%xmm1
divsd  %xmm1,%xmm0
movsd  0x658(%rip),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
mov    -0x30(%rbp),%rax
ucomisd (%rax),%xmm0
jbe    19f1 <dlacon_+0x8b1>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
mov    -0x18(%rbp),%rcx
lea    -0x3c(%rbp),%r8
mov    %r8,%rdx
call   1030 <dcopy_@plt>
movsd  -0x58(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
jmp    19f6 <dlacon_+0x8b6>
mov    -0x38(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0xa0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<dlacon_>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %r9,%r14
mov    %rdx,%rbx
mov    %rdi,%r15
movl   $0x1,0x4(%rsp)
cmpl   $0x0,(%r9)
je     11c9 <dlacon_+0x79>
mov    %r8,%r13
mov    %rcx,%r12
mov    %rsi,%rbp
mov    0x2ed0(%rip),%eax
add    $0xfffffffe,%eax
cmp    $0x3,%eax
ja     11f7 <dlacon_+0xa7>
lea    0xebd(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
mov    %r14,0x8(%rsp)
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1040 <idamax_@plt>
mov    %eax,%r14d
add    $0xffffffff,%r14d
mov    %r14d,0x2ead(%rip)
mov    $0x2,%eax
jmp    1353 <dlacon_+0x203>
mov    (%r15),%eax
test   %eax,%eax
jle    11f0 <dlacon_+0xa0>
cvtsi2sd %eax,%xmm1
movsd  0xe64(%rip),%xmm0
divsd  %xmm1,%xmm0
cmp    $0x4,%eax
jae    13d9 <dlacon_+0x289>
xor    %ecx,%ecx
jmp    15b0 <dlacon_+0x460>
xor    %eax,%eax
jmp    15be <dlacon_+0x46e>
cmpl   $0x1,(%r15)
jne    143e <dlacon_+0x2ee>
movsd  (%rbx),%xmm0
movsd  %xmm0,0x0(%rbp)
andpd  0xdee(%rip),%xmm0
jmp    13c7 <dlacon_+0x277>
mov    %r14,0x8(%rsp)
lea    0x4(%rsp),%r14
mov    %r15,%rdi
mov    %rbx,%rsi
mov    %r14,%rdx
mov    %rbp,%rcx
mov    %r14,%r8
call   1030 <dcopy_@plt>
movsd  0x0(%r13),%xmm0
movsd  %xmm0,0x2e1d(%rip)
mov    %r15,%rdi
mov    %rbp,%rsi
mov    %r14,%rdx
call   1060 <dasum_@plt>
movsd  %xmm0,0x0(%r13)
movl   $0x0,0x2e07(%rip)
cmpl   $0x0,(%r15)
jle    1681 <dlacon_+0x531>
xor    %ecx,%ecx
nopl   (%rax)
movslq %ecx,%rax
movsd  (%rbx,%rax,8),%xmm0
movsd  %xmm0,0x10(%rsp)
movsd  0xdaa(%rip),%xmm0
call   1070 <floor@plt>
mov    %eax,%edx
neg    %edx
movsd  0x10(%rsp),%xmm0
ucomisd 0xdab(%rip),%xmm0
cmovae %eax,%edx
movslq 0x2dc1(%rip),%rcx
cmp    (%r12,%rcx,4),%edx
jne    15da <dlacon_+0x48a>
add    $0x1,%ecx
mov    %ecx,0x2dae(%rip)
mov    (%r15),%eax
cmp    %eax,%ecx
jl     1270 <dlacon_+0x120>
test   %eax,%eax
jle    1681 <dlacon_+0x531>
lea    -0x1(%rax),%ecx
xorps  %xmm0,%xmm0
cvtsi2sd %ecx,%xmm0
mov    %eax,%ecx
add    $0x1,%eax
cmp    $0x2,%eax
mov    0x8(%rsp),%rbp
jne    168d <dlacon_+0x53d>
xor    %edx,%edx
jmp    16e9 <dlacon_+0x599>
mov    %r14,0x8(%rsp)
mov    0x2d74(%rip),%eax
mov    %eax,0x2d5a(%rip)
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1040 <idamax_@plt>
lea    -0x1(%rax),%r14d
mov    %r14d,0x2d53(%rip)
movslq 0x2d38(%rip),%rcx
movsd  (%rbx,%rcx,8),%xmm0
cltq
movsd  -0x8(%rbx,%rax,8),%xmm1
andpd  0xccb(%rip),%xmm1
ucomisd %xmm1,%xmm0
jne    1341 <dlacon_+0x1f1>
jnp    1676 <dlacon_+0x526>
mov    0x2d09(%rip),%eax
cmp    $0x4,%eax
jg     1676 <dlacon_+0x526>
add    $0x1,%eax
mov    %eax,0x2cf7(%rip)
mov    (%r15),%ebp
test   %ebp,%ebp
jle    140b <dlacon_+0x2bb>
lea    0x0(,%rbp,8),%rdx
mov    %rbx,%rdi
xor    %esi,%esi
call   1050 <memset@plt>
jmp    140d <dlacon_+0x2bd>
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1060 <dasum_@plt>
mov    (%r15),%eax
lea    (%rax,%rax,2),%eax
cvtsi2sd %eax,%xmm1
divsd  %xmm1,%xmm0
addsd  %xmm0,%xmm0
ucomisd 0x0(%r13),%xmm0
jbe    13cd <dlacon_+0x27d>
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
mov    %rbp,%rcx
mov    %rdx,%r8
movapd %xmm0,0x10(%rsp)
call   1030 <dcopy_@plt>
movapd 0x10(%rsp),%xmm0
movsd  %xmm0,0x0(%r13)
movl   $0x0,(%r14)
jmp    171d <dlacon_+0x5cd>
mov    %eax,%ecx
and    $0xfffffffc,%ecx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%rcx),%rdi
mov    %rdi,%rsi
shr    $0x2,%rsi
add    $0x1,%rsi
mov    %esi,%edx
and    $0x7,%edx
cmp    $0x1c,%rdi
jae    14e6 <dlacon_+0x396>
xor    %edi,%edi
jmp    1575 <dlacon_+0x425>
xor    %ebp,%ebp
mov    %ebp,0x2c55(%rip)
movslq %r14d,%rax
movabs $0x3ff0000000000000,%rcx
mov    %rcx,(%rbx,%rax,8)
mov    0x8(%rsp),%rax
movl   $0x1,(%rax)
movl   $0x3,0x2c1b(%rip)
jmp    171d <dlacon_+0x5cd>
lea    0x4(%rsp),%rdx
mov    %r15,%rdi
mov    %rbx,%rsi
call   1060 <dasum_@plt>
movsd  %xmm0,0x0(%r13)
movl   $0x0,0x2c0a(%rip)
cmpl   $0x0,(%r15)
jle    14d0 <dlacon_+0x380>
xor    %eax,%eax
lea    0xba3(%rip),%rbp
jmp    14a0 <dlacon_+0x350>
nop
movsd  0xbc0(%rip),%xmm1
subsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
call   1070 <floor@plt>
neg    %eax
movslq 0x2bda(%rip),%rcx
mov    %eax,(%r12,%rcx,4)
lea    0x1(%rcx),%eax
mov    %eax,0x2bcd(%rip)
cmp    (%r15),%eax
jge    14d0 <dlacon_+0x380>
cltq
movsd  (%rbx,%rax,8),%xmm0
xor    %ecx,%ecx
ucomisd 0xb97(%rip),%xmm0
setb   %cl
movsd  0x0(%rbp,%rcx,8),%xmm0
movsd  %xmm0,(%rbx,%rax,8)
jb     1470 <dlacon_+0x320>
addsd  0xb6f(%rip),%xmm0
call   1070 <floor@plt>
jmp    1487 <dlacon_+0x337>
movl   $0x2,(%r14)
movl   $0x2,0x2b73(%rip)
jmp    171d <dlacon_+0x5cd>
and    $0xfffffffffffffff8,%rsi
xor    %edi,%edi
nopl   0x0(%rax)
movupd %xmm1,(%rbx,%rdi,8)
movupd %xmm1,0x10(%rbx,%rdi,8)
movupd %xmm1,0x20(%rbx,%rdi,8)
movupd %xmm1,0x30(%rbx,%rdi,8)
movupd %xmm1,0x40(%rbx,%rdi,8)
movupd %xmm1,0x50(%rbx,%rdi,8)
movupd %xmm1,0x60(%rbx,%rdi,8)
movupd %xmm1,0x70(%rbx,%rdi,8)
movupd %xmm1,0x80(%rbx,%rdi,8)
movupd %xmm1,0x90(%rbx,%rdi,8)
movupd %xmm1,0xa0(%rbx,%rdi,8)
movupd %xmm1,0xb0(%rbx,%rdi,8)
movupd %xmm1,0xc0(%rbx,%rdi,8)
movupd %xmm1,0xd0(%rbx,%rdi,8)
movupd %xmm1,0xe0(%rbx,%rdi,8)
movupd %xmm1,0xf0(%rbx,%rdi,8)
add    $0x20,%rdi
add    $0xfffffffffffffff8,%rsi
jne    14f0 <dlacon_+0x3a0>
test   %rdx,%rdx
je     15a4 <dlacon_+0x454>
lea    (%rbx,%rdi,8),%rsi
add    $0x10,%rsi
shl    $0x5,%rdx
xor    %edi,%edi
nopl   0x0(%rax,%rax,1)
movupd %xmm1,-0x10(%rsi,%rdi,1)
movupd %xmm1,(%rsi,%rdi,1)
add    $0x20,%rdi
cmp    %rdi,%rdx
jne    1590 <dlacon_+0x440>
cmp    %rax,%rcx
je     15be <dlacon_+0x46e>
nopl   0x0(%rax)
movsd  %xmm0,(%rbx,%rcx,8)
add    $0x1,%rcx
cmp    %rcx,%rax
jne    15b0 <dlacon_+0x460>
mov    %eax,0x2aa4(%rip)
movl   $0x1,(%r14)
movl   $0x1,0x2a7f(%rip)
jmp    171d <dlacon_+0x5cd>
movsd  0x2a7e(%rip),%xmm0
ucomisd 0x0(%r13),%xmm0
jae    1676 <dlacon_+0x526>
movl   $0x0,0x2a70(%rip)
cmpl   $0x0,(%r15)
mov    0x8(%rsp),%r14
jle    172e <dlacon_+0x5de>
xor    %eax,%eax
lea    0xa00(%rip),%rbp
jmp    1646 <dlacon_+0x4f6>
movsd  0xa1e(%rip),%xmm1
subsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
call   1070 <floor@plt>
neg    %eax
movslq 0x2a38(%rip),%rcx
mov    %eax,(%r12,%rcx,4)
lea    0x1(%rcx),%eax
mov    %eax,0x2a2b(%rip)
cmp    (%r15),%eax
jge    172e <dlacon_+0x5de>
cltq
movsd  (%rbx,%rax,8),%xmm0
xor    %ecx,%ecx
ucomisd 0x9f1(%rip),%xmm0
setb   %cl
movsd  0x0(%rbp,%rcx,8),%xmm0
movsd  %xmm0,(%rbx,%rax,8)
jb     1612 <dlacon_+0x4c2>
addsd  0x9c9(%rip),%xmm0
call   1070 <floor@plt>
jmp    1629 <dlacon_+0x4d9>
mov    (%r15),%eax
test   %eax,%eax
jg     12c9 <dlacon_+0x179>
mov    $0x1,%eax
mov    0x8(%rsp),%rbp
jmp    1706 <dlacon_+0x5b6>
mov    %ecx,%esi
and    $0xfffffffe,%esi
xor    %edx,%edx
movsd  0x9a4(%rip),%xmm1
movapd 0x97c(%rip),%xmm2
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
xorps  %xmm3,%xmm3
cvtsi2sd %edx,%xmm3
divsd  %xmm0,%xmm3
addsd  %xmm1,%xmm3
movsd  %xmm3,(%rbx,%rdx,8)
lea    0x1(%rdx),%edi
xorps  %xmm3,%xmm3
cvtsi2sd %edi,%xmm3
divsd  %xmm0,%xmm3
addsd  %xmm1,%xmm3
xorpd  %xmm2,%xmm3
movlpd %xmm3,0x8(%rbx,%rdx,8)
add    $0x2,%rdx
cmp    %rdx,%rsi
jne    16b0 <dlacon_+0x560>
test   $0x1,%cl
je     1706 <dlacon_+0x5b6>
xorps  %xmm1,%xmm1
cvtsi2sd %edx,%xmm1
divsd  %xmm0,%xmm1
addsd  0x93f(%rip),%xmm1
movsd  %xmm1,(%rbx,%rdx,8)
mov    %eax,0x295c(%rip)
movl   $0x1,0x0(%rbp)
movl   $0x5,0x2937(%rip)
xor    %eax,%eax
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
movl   $0x2,(%r14)
movl   $0x4,0x2915(%rip)
jmp    171d <dlacon_+0x5cd>

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

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