double adapsimpsonf1(
    double (*f)(double, double, double (*)(), double *, void (*)(), double *,
                double (*)(int, double *, double), int, double *),
    double a, double b, double p2, double (*rho_func)(), double *ps,
    void (*lenseq_func)(), double *pl, double (*ld_func)(int, double *, double),
    int n, double *gam, double tol) {
  int l;
  double *dx, *x2, *x3, *f2, *f3, *f4, *fmp, *fbp, *est2, *est3, **pval;
  int *rtrn;
  double est, fa, fm, fb, da, sx, est1, sum, f1, absarea;
  if (b - a == 0.0)
    return (0);
  dx = vector(1, 30);
  x2 = vector(1, 30);
  x3 = vector(1, 30);
  f2 = vector(1, 30);
  f3 = vector(1, 30);
  f4 = vector(1, 30);
  fmp = vector(1, 30);
  fbp = vector(1, 30);
  est2 = vector(1, 30);
  est3 = vector(1, 30);
  rtrn = ivector(1, 30);
  pval = matrix(1, 30, 1, 3);
  l = 0;
  est = 0;
  absarea = 0;
  da = b - a;
  fa = (*f)(a, p2, rho_func, ps, lenseq_func, pl, ld_func, n, gam);
  fm = 4.0 *
       (*f)((a + b) / 2.0, p2, rho_func, ps, lenseq_func, pl, ld_func, n, gam);
  fb = (*f)(b, p2, rho_func, ps, lenseq_func, pl, ld_func, n, gam);
recur:
  l++;
  dx[l] = da / 3.0;
  sx = dx[l] / 6.0;
  f1 = 4.0 * (*f)(a + dx[l] / 2.0, p2, rho_func, ps, lenseq_func, pl, ld_func,
                  n, gam);
  x2[l] = a + dx[l];
  f2[l] = (*f)(x2[l], p2, rho_func, ps, lenseq_func, pl, ld_func, n, gam);
  x3[l] = x2[l] + dx[l];
  f3[l] = (*f)(x3[l], p2, rho_func, ps, lenseq_func, pl, ld_func, n, gam);
  f4[l] = 4.0 * (*f)(x3[l] + dx[l] / 2.0, p2, rho_func, ps, lenseq_func, pl,
                     ld_func, n, gam);
  fmp[l] = fm;
  fbp[l] = fb;
  est1 = (fa + f1 + f2[l]) * sx;
  est2[l] = (f2[l] + f3[l] + fm) * sx;
  est3[l] = (f3[l] + f4[l] + fb) * sx;
  sum = est1 + est2[l] + est3[l];
  absarea = absarea - fabs(est) + fabs(est1) + fabs(est2[l]) + fabs(est3[l]);
  if (fabs(est - sum) <= tol * fabs(absarea) || l >= 30) {
  up:
    if (l == 1)
      goto r4;
    l--;
    pval[l][rtrn[l]] = sum;
    switch (rtrn[l]) {
    case 1:
      goto r1;
    case 2:
      goto r2;
    case 3:
      goto r3;
    }
  }
  rtrn[l] = 1;
  da = dx[l];
  fm = f1;
  fb = f2[l];
  est = est1;
  goto recur;
r1:
  rtrn[l] = 2;
  da = dx[l];
  fa = f2[l];
  fm = fmp[l];
  fb = f3[l];
  est = est2[l];
  a = x2[l];
  goto recur;
r2:
  rtrn[l] = 3;
  da = dx[l];
  fa = f3[l];
  fm = f4[l];
  fb = fbp[l];
  est = est3[l];
  a = x3[l];
  goto recur;
r3:
  sum = pval[l][1] + pval[l][2] + pval[l][3];
  if (l > 1)
    goto up;
r4:
  free_vector(dx, 1, 30);
  free_vector(x2, 1, 30);
  free_vector(x3, 1, 30);
  free_vector(f2, 1, 30);
  free_vector(f3, 1, 30);
  free_vector(f4, 1, 30);
  free_vector(fmp, 1, 30);
  free_vector(fbp, 1, 30);
  free_vector(est2, 1, 30);
  free_vector(est3, 1, 30);
  free_ivector(rtrn, 1, 30);
  free_matrix(pval, 1, 30, 1, 3);
  return (sum);
}


x86 assembly (clang, -O0):
<adapsimpsonf1>:
push   %rbp
mov    %rsp,%rbp
sub    $0x120,%rsp
mov    0x18(%rbp),%rax
mov    0x10(%rbp),%eax
mov    %rdi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
movsd  %xmm2,-0x28(%rbp)
mov    %rsi,-0x30(%rbp)
mov    %rdx,-0x38(%rbp)
mov    %rcx,-0x40(%rbp)
mov    %r8,-0x48(%rbp)
mov    %r9,-0x50(%rbp)
movsd  %xmm3,-0x58(%rbp)
movsd  -0x20(%rbp),%xmm0
subsd  -0x18(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    11c8 <adapsimpsonf1+0x68>
jp     11c8 <adapsimpsonf1+0x68>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    1b76 <adapsimpsonf1+0xa16>
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0x68(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0x70(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0x78(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0x80(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0x88(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0x90(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0x98(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0xa0(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0xa8(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1060 <vector@plt>
cltq
mov    %rax,-0xb0(%rbp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x0,%al
call   1080 <ivector@plt>
cltq
mov    %rax,-0xc0(%rbp)
mov    $0x1,%edx
mov    $0x1e,%esi
mov    $0x3,%ecx
mov    %edx,%edi
mov    $0x0,%al
call   1050 <matrix@plt>
cltq
mov    %rax,-0xb8(%rbp)
movl   $0x0,-0x5c(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0xc8(%rbp)
ff
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x110(%rbp)
ff
movsd  -0x20(%rbp),%xmm0
subsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0xe8(%rbp)
ff
mov    -0x10(%rbp),%rax
movsd  -0x18(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm1
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x48(%rbp),%rcx
mov    -0x50(%rbp),%r8
mov    0x10(%rbp),%r9d
mov    0x18(%rbp),%r10
mov    %r10,(%rsp)
call   *%rax
movsd  %xmm0,-0xd0(%rbp)
ff
mov    -0x10(%rbp),%rax
movsd  -0x18(%rbp),%xmm0
addsd  -0x20(%rbp),%xmm0
movsd  0xc90(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  -0x28(%rbp),%xmm1
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x48(%rbp),%rcx
mov    -0x50(%rbp),%r8
mov    0x10(%rbp),%r9d
mov    0x18(%rbp),%r10
mov    %r10,(%rsp)
call   *%rax
movaps %xmm0,%xmm1
movsd  0xc52(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0xd8(%rbp)
ff
mov    -0x10(%rbp),%rax
movsd  -0x20(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm1
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x48(%rbp),%rcx
mov    -0x50(%rbp),%r8
mov    0x10(%rbp),%r9d
mov    0x18(%rbp),%r10
mov    %r10,(%rsp)
call   *%rax
movsd  %xmm0,-0xe0(%rbp)
ff
mov    -0x5c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x5c(%rbp)
movsd  -0xe8(%rbp),%xmm0
ff
movsd  0xc0d(%rip),%xmm1
divsd  %xmm1,%xmm0
mov    -0x68(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x68(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xbdf(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xf0(%rbp)
ff
mov    -0x10(%rbp),%rax
movsd  -0x18(%rbp),%xmm0
mov    -0x68(%rbp),%rcx
movslq -0x5c(%rbp),%rdx
movsd  (%rcx,%rdx,8),%xmm1
movsd  0xbad(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
movsd  -0x28(%rbp),%xmm1
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x48(%rbp),%rcx
mov    -0x50(%rbp),%r8
mov    0x10(%rbp),%r9d
mov    0x18(%rbp),%r10
mov    %r10,(%rsp)
call   *%rax
movaps %xmm0,%xmm1
movsd  0xb6b(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x108(%rbp)
ff
movsd  -0x18(%rbp),%xmm0
mov    -0x68(%rbp),%rax
movslq -0x5c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
mov    -0x70(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x70(%rbp),%rcx
movslq -0x5c(%rbp),%rdx
movsd  (%rcx,%rdx,8),%xmm0
movsd  -0x28(%rbp),%xmm1
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x48(%rbp),%rcx
mov    -0x50(%rbp),%r8
mov    0x10(%rbp),%r9d
mov    0x18(%rbp),%r10
mov    %r10,(%rsp)
call   *%rax
mov    -0x80(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x70(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x68(%rbp),%rax
movslq -0x5c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
mov    -0x78(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x78(%rbp),%rcx
movslq -0x5c(%rbp),%rdx
movsd  (%rcx,%rdx,8),%xmm0
movsd  -0x28(%rbp),%xmm1
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x48(%rbp),%rcx
mov    -0x50(%rbp),%r8
mov    0x10(%rbp),%r9d
mov    0x18(%rbp),%r10
mov    %r10,(%rsp)
call   *%rax
mov    -0x88(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x78(%rbp),%rcx
movslq -0x5c(%rbp),%rdx
movsd  (%rcx,%rdx,8),%xmm0
mov    -0x68(%rbp),%rcx
movslq -0x5c(%rbp),%rdx
movsd  (%rcx,%rdx,8),%xmm1
movsd  0xa6e(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
movsd  -0x28(%rbp),%xmm1
mov    -0x30(%rbp),%rdi
mov    -0x38(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x48(%rbp),%rcx
mov    -0x50(%rbp),%r8
mov    0x10(%rbp),%r9d
mov    0x18(%rbp),%r10
mov    %r10,(%rsp)
call   *%rax
movaps %xmm0,%xmm1
movsd  0xa2c(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x90(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0xd8(%rbp),%xmm0
ff
mov    -0x98(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0xe0(%rbp),%xmm0
ff
mov    -0xa0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0xd0(%rbp),%xmm0
ff
addsd  -0x108(%rbp),%xmm0
ff
mov    -0x80(%rbp),%rax
movslq -0x5c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
mulsd  -0xf0(%rbp),%xmm0
ff
movsd  %xmm0,-0xf8(%rbp)
ff
mov    -0x80(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x88(%rbp),%rax
movslq -0x5c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
addsd  -0xd8(%rbp),%xmm0
ff
mulsd  -0xf0(%rbp),%xmm0
ff
mov    -0xa8(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x88(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x90(%rbp),%rax
movslq -0x5c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
addsd  -0xe0(%rbp),%xmm0
ff
mulsd  -0xf0(%rbp),%xmm0
ff
mov    -0xb0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0xf8(%rbp),%xmm0
ff
mov    -0xa8(%rbp),%rax
movslq -0x5c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
mov    -0xb0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x100(%rbp)
ff
movsd  -0x110(%rbp),%xmm0
ff
movsd  -0xc8(%rbp),%xmm1
ff
movaps 0x917(%rip),%xmm2
pand   %xmm2,%xmm1
subsd  %xmm1,%xmm0
movsd  -0xf8(%rbp),%xmm1
ff
movaps 0x900(%rip),%xmm2
pand   %xmm2,%xmm1
addsd  %xmm1,%xmm0
mov    -0xa8(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movaps 0x8e1(%rip),%xmm2
pand   %xmm2,%xmm1
addsd  %xmm1,%xmm0
mov    -0xb0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movaps 0x8c2(%rip),%xmm2
pand   %xmm2,%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x110(%rbp)
ff
movsd  -0xc8(%rbp),%xmm1
ff
subsd  -0x100(%rbp),%xmm1
ff
movaps 0x89b(%rip),%xmm0
pand   %xmm0,%xmm1
movsd  -0x58(%rbp),%xmm0
movsd  -0x110(%rbp),%xmm2
ff
movaps 0x883(%rip),%xmm3
pand   %xmm3,%xmm2
mulsd  %xmm2,%xmm0
ucomisd %xmm1,%xmm0
jae    17b9 <adapsimpsonf1+0x659>
cmpl   $0x1e,-0x5c(%rbp)
jl     185b <adapsimpsonf1+0x6fb>
jmp    17be <adapsimpsonf1+0x65e>
cmpl   $0x1,-0x5c(%rbp)
jne    17cd <adapsimpsonf1+0x66d>
jmp    1a4d <adapsimpsonf1+0x8ed>
mov    -0x5c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x5c(%rbp)
movsd  -0x100(%rbp),%xmm0
ff
mov    -0xb8(%rbp),%rax
movslq -0x5c(%rbp),%rdx
mov    (%rax,%rdx,8),%rax
mov    -0xc0(%rbp),%rcx
movslq (%rcx,%rdx,4),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0xc0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x114(%rbp)
sub    $0x1,%eax
je     1847 <adapsimpsonf1+0x6e7>
jmp    181f <adapsimpsonf1+0x6bf>
mov    -0x114(%rbp),%eax
sub    $0x2,%eax
je     184c <adapsimpsonf1+0x6ec>
jmp    1833 <adapsimpsonf1+0x6d3>
mov    -0x114(%rbp),%eax
sub    $0x3,%eax
je     1851 <adapsimpsonf1+0x6f1>
jmp    1856 <adapsimpsonf1+0x6f6>
jmp    18bc <adapsimpsonf1+0x75c>
jmp    1957 <adapsimpsonf1+0x7f7>
jmp    19f5 <adapsimpsonf1+0x895>
jmp    185b <adapsimpsonf1+0x6fb>
mov    -0xc0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movl   $0x1,(%rax,%rcx,4)
mov    -0x68(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xe8(%rbp)
ff
movsd  -0x108(%rbp),%xmm0
ff
movsd  %xmm0,-0xd8(%rbp)
ff
mov    -0x80(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xe0(%rbp)
ff
movsd  -0xf8(%rbp),%xmm0
ff
movsd  %xmm0,-0xc8(%rbp)
ff
jmp    13f2 <adapsimpsonf1+0x292>
mov    -0xc0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movl   $0x2,(%rax,%rcx,4)
mov    -0x68(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xe8(%rbp)
ff
mov    -0x80(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xd0(%rbp)
ff
mov    -0x98(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xd8(%rbp)
ff
mov    -0x88(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xe0(%rbp)
ff
mov    -0xa8(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xc8(%rbp)
ff
mov    -0x70(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    13f2 <adapsimpsonf1+0x292>
mov    -0xc0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movl   $0x3,(%rax,%rcx,4)
mov    -0x68(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xe8(%rbp)
ff
mov    -0x88(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xd0(%rbp)
ff
mov    -0x90(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xd8(%rbp)
ff
mov    -0xa0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xe0(%rbp)
ff
mov    -0xb0(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0xc8(%rbp)
ff
mov    -0x78(%rbp),%rax
movslq -0x5c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    13f2 <adapsimpsonf1+0x292>
mov    -0xb8(%rbp),%rax
movslq -0x5c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movsd  0x8(%rax),%xmm0
mov    -0xb8(%rbp),%rax
movslq -0x5c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
addsd  0x10(%rax),%xmm0
mov    -0xb8(%rbp),%rax
movslq -0x5c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
addsd  0x18(%rax),%xmm0
movsd  %xmm0,-0x100(%rbp)
ff
cmpl   $0x1,-0x5c(%rbp)
jle    1a48 <adapsimpsonf1+0x8e8>
jmp    17be <adapsimpsonf1+0x65e>
jmp    1a4d <adapsimpsonf1+0x8ed>
mov    -0x68(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0x70(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0x78(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0x80(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0x88(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0x90(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0x98(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0xa0(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0xa8(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0xb0(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0xc0(%rbp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x0,%al
call   1070 <free_ivector@plt>
mov    -0xb8(%rbp),%rdi
mov    $0x1,%ecx
mov    $0x1e,%edx
mov    $0x3,%r8d
mov    %ecx,%esi
mov    $0x0,%al
call   1030 <free_matrix@plt>
movsd  -0x100(%rbp),%xmm0
ff
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x120,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<adapsimpsonf1>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x138,%rsp
mov    %r9,0x98(%rsp)
movapd %xmm1,%xmm5
subsd  %xmm0,%xmm5
xorpd  %xmm4,%xmm4
ucomisd %xmm4,%xmm5
jne    1191 <adapsimpsonf1+0x31>
jnp    1a31 <adapsimpsonf1+0x8d1>
mov    %rdx,%r12
mov    %rsi,%r15
movsd  %xmm3,0xe8(%rsp)
mov    %r8,0x28(%rsp)
mov    0x178(%rsp),%r14
mov    0x170(%rsp),%ebp
mov    %rdi,0x58(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
movsd  %xmm2,0x10(%rsp)
movsd  %xmm0,0x30(%rsp)
movsd  %xmm5,0x90(%rsp)
movsd  %xmm1,0x8(%rsp)
mov    %rcx,%rbx
call   1060 <vector@plt>
cltq
mov    %rax,0x38(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0x50(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0x48(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0xb0(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0x40(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0x88(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0x80(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0x78(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0x70(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1060 <vector@plt>
cltq
mov    %rax,0x68(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
xor    %eax,%eax
call   1080 <ivector@plt>
cltq
mov    %rax,0x60(%rsp)
mov    $0x1,%edi
mov    $0x1e,%esi
mov    $0x1,%edx
mov    $0x3,%ecx
xor    %eax,%eax
call   1050 <matrix@plt>
cltq
mov    %rax,0xa8(%rsp)
mov    %r14,(%rsp)
movsd  0x30(%rsp),%xmm0
movsd  0x10(%rsp),%xmm1
mov    %r15,%rdi
mov    %r12,%r13
mov    %r12,%rsi
mov    %rbx,%rdx
mov    0x28(%rsp),%rcx
mov    0x98(%rsp),%r14
mov    %r14,%r8
mov    %ebp,%r9d
mov    0x58(%rsp),%r12
call   *%r12
movaps %xmm0,0xf0(%rsp)
movsd  0x30(%rsp),%xmm0
addsd  0x8(%rsp),%xmm0
mulsd  0xca0(%rip),%xmm0
mov    0x178(%rsp),%rax
mov    %rax,(%rsp)
movsd  0x10(%rsp),%xmm1
mov    %r15,%rdi
mov    %r13,%rsi
mov    %rbx,%rdx
mov    0x28(%rsp),%rcx
mov    %r14,%r8
mov    %ebp,%r9d
call   *%r12
mulsd  0xc77(%rip),%xmm0
movapd %xmm0,0xd0(%rsp)
mov    0x178(%rsp),%rcx
mov    %rcx,(%rsp)
mov    0x28(%rsp),%rcx
movsd  0x8(%rsp),%xmm0
movsd  0x10(%rsp),%xmm1
mov    %r15,0xe0(%rsp)
mov    %r15,%rdi
mov    %r13,0xa0(%rsp)
mov    %r13,%rsi
mov    %rbx,0xb8(%rsp)
mov    %rbx,%rdx
mov    %rcx,%rbx
mov    %r14,%r8
mov    %ebp,%r9d
call   *%r12
movsd  0x90(%rsp),%xmm2
movapd 0xd0(%rsp),%xmm8
xor    %eax,%eax
mov    %rax,0x8(%rsp)
mov    0x38(%rsp),%r11
movsd  0x10(%rsp),%xmm1
movapd %xmm0,%xmm4
xorpd  %xmm3,%xmm3
xorpd  %xmm0,%xmm0
movapd %xmm0,0xc0(%rsp)
mov    0xe0(%rsp),%r13
movapd %xmm4,0x100(%rsp)
movapd %xmm3,0x110(%rsp)
movsd  %xmm8,0x90(%rsp)
movslq 0x8(%rsp),%r15
divsd  0xbc1(%rip),%xmm2
movsd  %xmm2,0x8(%r11,%r15,8)
movapd %xmm2,%xmm0
divsd  0xbb6(%rip),%xmm0
movapd %xmm0,0x120(%rsp)
movsd  0xb8d(%rip),%xmm0
mulsd  %xmm0,%xmm2
addsd  0x30(%rsp),%xmm2
mov    0x178(%rsp),%rax
mov    %rax,(%rsp)
movapd %xmm2,%xmm0
mov    %r13,%rdi
mov    0xa0(%rsp),%rbp
mov    %rbp,%rsi
mov    0xb8(%rsp),%rdx
mov    %rbx,%r12
mov    %rbx,%rcx
mov    0x98(%rsp),%rbx
mov    %rbx,%r8
mov    0x170(%rsp),%r9d
mov    %r11,%r14
call   *0x58(%rsp)
movapd %xmm0,%xmm1
movsd  0xb39(%rip),%xmm0
mulsd  %xmm0,%xmm1
movapd %xmm1,0xd0(%rsp)
movsd  0x8(%r14,%r15,8),%xmm0
addsd  0x30(%rsp),%xmm0
mov    0x50(%rsp),%rax
movsd  %xmm0,0x8(%rax,%r15,8)
mov    0x178(%rsp),%rax
mov    %rax,(%rsp)
movsd  0x10(%rsp),%xmm1
mov    %r13,%rdi
mov    %rbp,%rsi
mov    0xb8(%rsp),%rbp
mov    %rbp,%rdx
mov    %r12,%rcx
mov    %rbx,%r8
mov    0x170(%rsp),%r9d
call   *0x58(%rsp)
mov    0xb0(%rsp),%rax
movsd  %xmm0,0x8(%rax,%r15,8)
mov    0x50(%rsp),%rax
movsd  0x8(%rax,%r15,8),%xmm0
addsd  0x8(%r14,%r15,8),%xmm0
mov    0x48(%rsp),%rax
movsd  %xmm0,0x8(%rax,%r15,8)
mov    0x178(%rsp),%rax
mov    %rax,(%rsp)
movsd  0x10(%rsp),%xmm1
mov    %r13,%rdi
mov    0xa0(%rsp),%rsi
mov    %rbp,%rdx
mov    0x28(%rsp),%rcx
mov    %rbx,%r8
mov    0x170(%rsp),%r9d
mov    0x58(%rsp),%r12
call   *%r12
mov    0x40(%rsp),%rbx
movsd  %xmm0,0x8(%rbx,%r15,8)
movsd  0x8(%r14,%r15,8),%xmm0
mulsd  0xa55(%rip),%xmm0
mov    0x48(%rsp),%rax
addsd  0x8(%rax,%r15,8),%xmm0
mov    0x28(%rsp),%r14
mov    0x178(%rsp),%rax
mov    %rax,(%rsp)
movsd  0x10(%rsp),%xmm1
mov    %r13,%rdi
mov    0xa0(%rsp),%rsi
mov    %rbp,%rdx
mov    %r14,%rcx
mov    0x98(%rsp),%r8
mov    0x170(%rsp),%r9d
call   *%r12
movapd 0x120(%rsp),%xmm6
movapd 0xd0(%rsp),%xmm8
mulsd  0x9fb(%rip),%xmm0
mov    0x88(%rsp),%rax
movsd  %xmm0,0x8(%rax,%r15,8)
mov    0x80(%rsp),%rcx
movsd  0x90(%rsp),%xmm2
movsd  %xmm2,0x8(%rcx,%r15,8)
mov    0x78(%rsp),%rcx
movapd 0x100(%rsp),%xmm3
movsd  %xmm3,0x8(%rcx,%r15,8)
mov    0xb0(%rsp),%r12
movsd  0x8(%r12,%r15,8),%xmm0
movsd  0x8(%rbx,%r15,8),%xmm1
addsd  %xmm0,%xmm1
addsd  %xmm2,%xmm1
mulsd  %xmm6,%xmm1
mov    0x70(%rsp),%rcx
movsd  %xmm1,0x8(%rcx,%r15,8)
movapd 0xf0(%rsp),%xmm1
movhpd 0x8(%rbx,%r15,8),%xmm1
movapd %xmm8,%xmm2
movhpd 0x8(%rax,%r15,8),%xmm2
addpd  %xmm1,%xmm2
unpcklpd %xmm3,%xmm0
addpd  %xmm2,%xmm0
unpcklpd %xmm6,%xmm6
mulpd  %xmm0,%xmm6
movapd %xmm6,%xmm0
unpckhpd %xmm6,%xmm0
mov    0x68(%rsp),%rax
movhpd %xmm6,0x8(%rax,%r15,8)
movsd  0x8(%rcx,%r15,8),%xmm1
movapd %xmm6,%xmm7
addsd  %xmm1,%xmm7
addsd  %xmm0,%xmm7
movapd 0x110(%rsp),%xmm5
movapd %xmm5,%xmm2
movapd 0x93d(%rip),%xmm3
andpd  %xmm3,%xmm2
movapd 0xc0(%rsp),%xmm4
subsd  %xmm2,%xmm4
movapd %xmm6,%xmm2
andpd  %xmm3,%xmm2
addsd  %xmm4,%xmm2
andpd  %xmm3,%xmm1
addsd  %xmm2,%xmm1
andpd  %xmm3,%xmm0
movapd %xmm0,%xmm2
addsd  %xmm1,%xmm2
subsd  %xmm7,%xmm5
andpd  %xmm3,%xmm5
movapd %xmm2,%xmm0
andpd  %xmm3,%xmm0
mulsd  0xe8(%rsp),%xmm0
ucomisd %xmm5,%xmm0
jae    1790 <adapsimpsonf1+0x630>
cmpl   $0x1d,0x8(%rsp)
jge    1790 <adapsimpsonf1+0x630>
mov    %r14,%rbx
movapd %xmm2,0xc0(%rsp)
lea    0x1(%r15),%eax
mov    %rax,0x8(%rsp)
add    $0x1,%r15
movsd  0x10(%rsp),%xmm1
mov    0x38(%rsp),%r11
mov    0x60(%rsp),%rax
movl   $0x1,(%rax,%r15,4)
movsd  (%r11,%r15,8),%xmm2
movsd  (%r12,%r15,8),%xmm0
movapd %xmm0,0x100(%rsp)
movapd %xmm6,0x110(%rsp)
jmp    1438 <adapsimpsonf1+0x2d8>
xchg   %ax,%ax
cmpl   $0x0,0x8(%rsp)
movabs $0xffffffff00000000,%rbx
ff ff ff
je     1908 <adapsimpsonf1+0x7a8>
mov    %r14,%r10
mov    0x60(%rsp),%rax
lea    (%rax,%r15,4),%rcx
mov    %r15,%rdx
shl    $0x20,%rdx
mov    0xa8(%rsp),%rax
lea    (%rax,%r15,8),%rsi
xor    %eax,%eax
movsd  0x10(%rsp),%xmm1
mov    0x38(%rsp),%r11
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    (%rsi,%rax,8),%rdi
movslq (%rcx,%rax,4),%rbp
movsd  %xmm7,(%rdi,%rbp,8)
cmp    $0x3,%rbp
jne    1830 <adapsimpsonf1+0x6d0>
movsd  0x8(%rdi),%xmm7
addsd  0x10(%rdi),%xmm7
lea    (%r15,%rax,1),%rbp
add    $0x1,%rbp
addsd  0x18(%rdi),%xmm7
cmp    $0x3,%rbp
jl     190d <adapsimpsonf1+0x7ad>
lea    (%r15,%rax,1),%rdi
add    $0xffffffffffffffff,%rdi
add    $0xffffffffffffffff,%rax
add    %rbx,%rdx
test   %rdi,%rdi
jne    17e0 <adapsimpsonf1+0x680>
jmp    190d <adapsimpsonf1+0x7ad>
nopl   (%rax)
cmp    $0x1,%ebp
movapd %xmm2,0xc0(%rsp)
je     1860 <adapsimpsonf1+0x700>
cmp    $0x2,%ebp
je     1880 <adapsimpsonf1+0x720>
mov    0x8(%rsp),%rcx
add    %eax,%ecx
mov    %rcx,0x8(%rsp)
sar    $0x20,%rdx
mov    %rdx,%r15
mov    %r10,%rbx
jmp    175e <adapsimpsonf1+0x5fe>
xchg   %ax,%ax
mov    $0x2,%r8d
mov    0x70(%rsp),%r14
mov    0x80(%rsp),%rbx
mov    0x40(%rsp),%rbp
mov    0x50(%rsp),%rdx
jmp    18a2 <adapsimpsonf1+0x742>
nop
mov    $0x3,%r8d
mov    0x68(%rsp),%r14
mov    0x40(%rsp),%r12
mov    0x88(%rsp),%rbx
mov    0x78(%rsp),%rbp
mov    0x48(%rsp),%rdx
mov    0x8(%rsp),%rsi
add    %eax,%esi
mov    %rsi,0x8(%rsp)
mov    %r8d,(%rcx,%rax,4)
lea    (%rdx,%r15,8),%rcx
lea    0x0(,%r15,8),%rdx
add    %rbp,%rdx
lea    (%rbx,%r15,8),%rbp
lea    (%r12,%r15,8),%rdi
lea    (%r14,%r15,8),%rsi
movsd  (%rcx,%rax,8),%xmm0
movsd  %xmm0,0x30(%rsp)
lea    (%r11,%r15,8),%rcx
movsd  (%rcx,%rax,8),%xmm2
movsd  (%rdx,%rax,8),%xmm4
movsd  0x0(%rbp,%rax,8),%xmm8
movsd  (%rdi,%rax,8),%xmm0
movapd %xmm0,0xf0(%rsp)
movsd  (%rsi,%rax,8),%xmm3
mov    %r10,%rbx
jmp    1426 <adapsimpsonf1+0x2c6>
mov    0x38(%rsp),%r11
movapd %xmm7,0x10(%rsp)
mov    %r11,%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x50(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x48(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    %r12,%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x40(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x88(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x80(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x78(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x70(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x68(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    0x60(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
xor    %eax,%eax
call   1070 <free_ivector@plt>
mov    0xa8(%rsp),%rdi
mov    $0x1,%esi
mov    $0x1e,%edx
mov    $0x1,%ecx
mov    $0x3,%r8d
xor    %eax,%eax
call   1030 <free_matrix@plt>
movapd 0x10(%rsp),%xmm4
movapd %xmm4,%xmm0
add    $0x138,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define double @adapsimpsonf1(double (double, double, double (...)*, double*, void (...)*, double*, double (i32, double*, double)*, i32, double*)* nocapture %0, double %1, double %2, double %3, double (...)* %4, double* %5, void (...)* %6, double* %7, double (i32, double*, double)* %8, i32 %9, double* %10, double %11) {
%13 = fsub double %2, %1
%14 = fcmp oeq double %13, 0.000000e+00
br i1 %14, label %218, label %15
15: ; preds = %12
%16 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%17 = sext i32 %16 to i64
%18 = inttoptr i64 %17 to double*
%19 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%20 = sext i32 %19 to i64
%21 = inttoptr i64 %20 to double*
%22 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%23 = sext i32 %22 to i64
%24 = inttoptr i64 %23 to double*
%25 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%26 = sext i32 %25 to i64
%27 = inttoptr i64 %26 to double*
%28 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%29 = sext i32 %28 to i64
%30 = inttoptr i64 %29 to double*
%31 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%32 = sext i32 %31 to i64
%33 = inttoptr i64 %32 to double*
%34 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%35 = sext i32 %34 to i64
%36 = inttoptr i64 %35 to double*
%37 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%38 = sext i32 %37 to i64
%39 = inttoptr i64 %38 to double*
%40 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%41 = sext i32 %40 to i64
%42 = inttoptr i64 %41 to double*
%43 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @vector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%44 = sext i32 %43 to i64
%45 = inttoptr i64 %44 to double*
%46 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @ivector to i32 (i32, i32, ...)*)(i32 1, i32 30)
%47 = sext i32 %46 to i64
%48 = inttoptr i64 %47 to i32*
%49 = tail call i32 (i32, i32, i32, i32, ...) bitcast (i32 (...)* @matrix to i32 (i32, i32, i32, i32, ...)*)(i32 1, i32 30, i32 1, i32 3)
%50 = sext i32 %49 to i64
%51 = inttoptr i64 %50 to double**
%52 = tail call double %0(double %1, double %3, double (...)* %4, double* %5, void (...)* %6, double* %7, double (i32, double*, double)* %8, i32 %9, double* %10)
%53 = fadd double %1, %2
%54 = fmul double %53, 5.000000e-01
%55 = tail call double %0(double %54, double %3, double (...)* %4, double* %5, void (...)* %6, double* %7, double (i32, double*, double)* %8, i32 %9, double* %10)
%56 = fmul double %55, 4.000000e+00
%57 = tail call double %0(double %2, double %3, double (...)* %4, double* %5, void (...)* %6, double* %7, double (i32, double*, double)* %8, i32 %9, double* %10)
br label %58
58: ; preds = %171, %15
%59 = phi double [ 0.000000e+00, %15 ], [ %191, %171 ]
%60 = phi double [ %52, %15 ], [ %190, %171 ]
%61 = phi double [ %56, %15 ], [ %189, %171 ]
%62 = phi double [ %57, %15 ], [ %188, %171 ]
%63 = phi double [ %13, %15 ], [ %187, %171 ]
%64 = phi i32 [ 0, %15 ], [ %179, %171 ]
%65 = phi double [ %1, %15 ], [ %185, %171 ]
%66 = phi double [ 0.000000e+00, %15 ], [ %135, %171 ]
%67 = insertelement <2 x double> poison, double %60, i64 0
br label %68
68: ; preds = %58, %162
%69 = phi double [ %125, %162 ], [ %59, %58 ]
%70 = phi double [ %83, %162 ], [ %61, %58 ]
%71 = phi double [ %169, %162 ], [ %62, %58 ]
%72 = phi double [ %167, %162 ], [ %63, %58 ]
%73 = phi i32 [ %164, %162 ], [ %64, %58 ]
%74 = phi double [ %135, %162 ], [ %66, %58 ]
%75 = add nsw i32 %73, 1
%76 = fdiv double %72, 3.000000e+00
%77 = sext i32 %75 to i64
%78 = getelementptr inbounds double, double* %18, i64 %77
store double %76, double* %78
%79 = fdiv double %76, 6.000000e+00
%80 = fmul double %76, 5.000000e-01
%81 = fadd double %65, %80
%82 = tail call double %0(double %81, double %3, double (...)* %4, double* %5, void (...)* %6, double* %7, double (i32, double*, double)* %8, i32 %9, double* %10)
%83 = fmul double %82, 4.000000e+00
%84 = load double, double* %78
%85 = fadd double %65, %84
%86 = getelementptr inbounds double, double* %21, i64 %77
store double %85, double* %86
%87 = tail call double %0(double %85, double %3, double (...)* %4, double* %5, void (...)* %6, double* %7, double (i32, double*, double)* %8, i32 %9, double* %10)
%88 = getelementptr inbounds double, double* %27, i64 %77
store double %87, double* %88
%89 = load double, double* %86
%90 = load double, double* %78
%91 = fadd double %89, %90
%92 = getelementptr inbounds double, double* %24, i64 %77
store double %91, double* %92
%93 = tail call double %0(double %91, double %3, double (...)* %4, double* %5, void (...)* %6, double* %7, double (i32, double*, double)* %8, i32 %9, double* %10)
%94 = getelementptr inbounds double, double* %30, i64 %77
store double %93, double* %94
%95 = load double, double* %92
%96 = load double, double* %78
%97 = fmul double %96, 5.000000e-01
%98 = fadd double %95, %97
%99 = tail call double %0(double %98, double %3, double (...)* %4, double* %5, void (...)* %6, double* %7, double (i32, double*, double)* %8, i32 %9, double* %10)
%100 = fmul double %99, 4.000000e+00
%101 = getelementptr inbounds double, double* %33, i64 %77
store double %100, double* %101
%102 = getelementptr inbounds double, double* %36, i64 %77
store double %70, double* %102
%103 = getelementptr inbounds double, double* %39, i64 %77
store double %71, double* %103
%104 = load double, double* %88
%105 = load double, double* %94
%106 = fadd double %104, %105
%107 = fadd double %70, %106
%108 = fmul double %79, %107
%109 = getelementptr inbounds double, double* %42, i64 %77
store double %108, double* %109
%110 = load double, double* %94
%111 = load double, double* %101
%112 = insertelement <2 x double> %67, double %110, i64 1
%113 = insertelement <2 x double> poison, double %83, i64 0
%114 = insertelement <2 x double> %113, double %111, i64 1
%115 = fadd <2 x double> %112, %114
%116 = insertelement <2 x double> poison, double %104, i64 0
%117 = insertelement <2 x double> %116, double %71, i64 1
%118 = fadd <2 x double> %115, %117
%119 = insertelement <2 x double> poison, double %79, i64 0
%120 = shufflevector <2 x double> %119, <2 x double> poison, <2 x i32> zeroinitializer
%121 = fmul <2 x double> %120, %118
%122 = getelementptr inbounds double, double* %45, i64 %77
%123 = extractelement <2 x double> %121, i64 1
store double %123, double* %122
%124 = load double, double* %109
%125 = extractelement <2 x double> %121, i64 0
%126 = fadd double %125, %124
%127 = fadd double %126, %123
%128 = tail call double @llvm.fabs.f64(double %69)
%129 = fsub double %74, %128
%130 = tail call double @llvm.fabs.f64(double %125)
%131 = fadd double %129, %130
%132 = tail call double @llvm.fabs.f64(double %124)
%133 = fadd double %131, %132
%134 = tail call double @llvm.fabs.f64(double %123)
%135 = fadd double %133, %134
%136 = fsub double %69, %127
%137 = tail call double @llvm.fabs.f64(double %136)
%138 = tail call double @llvm.fabs.f64(double %135)
%139 = fmul double %138, %11
%140 = fcmp ole double %137, %139
%141 = icmp sgt i32 %73, 28
%142 = select i1 %140, i1 true, i1 %141
br i1 %142, label %143, label %162
143: ; preds = %68
%144 = icmp eq i32 %73, 0
br i1 %144, label %204, label %145
145: ; preds = %143
%146 = sext i32 %73 to i64
%147 = add nsw i64 %146, 1
br label %148
148: ; preds = %145, %192
%149 = phi i64 [ %147, %145 ], [ %151, %192 ]
%150 = phi double [ %127, %145 ], [ %200, %192 ]
%151 = add nsw i64 %149, -1
%152 = getelementptr inbounds double*, double** %51, i64 %151
%153 = load double*, double** %152
%154 = getelementptr inbounds i32, i32* %48, i64 %151
%155 = load i32, i32* %154
%156 = sext i32 %155 to i64
%157 = getelementptr inbounds double, double* %153, i64 %156
store double %150, double* %157
switch i32 %155, label %158 [
i32 1, label %170
i32 2, label %171
i32 3, label %192
]
158: ; preds = %148
%159 = trunc i64 %151 to i32
%160 = shl i64 %151, 32
%161 = ashr exact i64 %160, 32
br label %162
162: ; preds = %158, %68
%163 = phi i64 [ %161, %158 ], [ %77, %68 ]
%164 = phi i32 [ %159, %158 ], [ %75, %68 ]
%165 = getelementptr inbounds i32, i32* %48, i64 %163
store i32 1, i32* %165
%166 = getelementptr inbounds double, double* %18, i64 %163
%167 = load double, double* %166
%168 = getelementptr inbounds double, double* %27, i64 %163
%169 = load double, double* %168
br label %68
170: ; preds = %148
br label %171
171: ; preds = %148, %170
%172 = phi i32 [ 2, %170 ], [ 3, %148 ]
%173 = phi double* [ %42, %170 ], [ %45, %148 ]
%174 = phi double* [ %27, %170 ], [ %30, %148 ]
%175 = phi double* [ %36, %170 ], [ %33, %148 ]
%176 = phi double* [ %30, %170 ], [ %39, %148 ]
%177 = phi double* [ %21, %170 ], [ %24, %148 ]
%178 = getelementptr inbounds i32, i32* %48, i64 %151
%179 = trunc i64 %151 to i32
store i32 %172, i32* %178
%180 = getelementptr inbounds double, double* %177, i64 %151
%181 = getelementptr inbounds double, double* %176, i64 %151
%182 = getelementptr inbounds double, double* %175, i64 %151
%183 = getelementptr inbounds double, double* %174, i64 %151
%184 = getelementptr inbounds double, double* %173, i64 %151
%185 = load double, double* %180
%186 = getelementptr inbounds double, double* %18, i64 %151
%187 = load double, double* %186
%188 = load double, double* %181
%189 = load double, double* %182
%190 = load double, double* %183
%191 = load double, double* %184
br label %58
192: ; preds = %148
%193 = getelementptr inbounds double, double* %153, i64 1
%194 = load double, double* %193
%195 = getelementptr inbounds double, double* %153, i64 2
%196 = load double, double* %195
%197 = fadd double %194, %196
%198 = getelementptr inbounds double, double* %153, i64 3
%199 = load double, double* %198
%200 = fadd double %197, %199
%201 = icmp slt i64 %149, 3
%202 = icmp eq i64 %151, 1
%203 = select i1 %201, i1 true, i1 %202
br i1 %203, label %204, label %148
204: ; preds = %143, %192
%205 = phi double [ %200, %192 ], [ %127, %143 ]
%206 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %18, i32 1, i32 30)
%207 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %21, i32 1, i32 30)
%208 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %24, i32 1, i32 30)
%209 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %27, i32 1, i32 30)
%210 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %30, i32 1, i32 30)
%211 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %33, i32 1, i32 30)
%212 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %36, i32 1, i32 30)
%213 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %39, i32 1, i32 30)
%214 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %42, i32 1, i32 30)
%215 = tail call i32 (double*, i32, i32, ...) bitcast (i32 (...)* @free_vector to i32 (double*, i32, i32, ...)*)(double* %45, i32 1, i32 30)
%216 = tail call i32 (i32*, i32, i32, ...) bitcast (i32 (...)* @free_ivector to i32 (i32*, i32, i32, ...)*)(i32* %48, i32 1, i32 30)
%217 = tail call i32 (double**, i32, i32, i32, i32, ...) bitcast (i32 (...)* @free_matrix to i32 (double**, i32, i32, i32, i32, ...)*)(double** %51, i32 1, i32 30, i32 1, i32 3)
br label %218
218: ; preds = %12, %204
%219 = phi double [ %205, %204 ], [ 0.000000e+00, %12 ]
ret double %219
}