void o_mrqcof(x, y, sig, ndata, a, ma, lista, mfit, alpha, beta, chisq,
              funcs) double **x,
    y[], sig[], a[], **alpha, beta[], *chisq;
int ndata, ma, lista[], mfit;
void (*funcs)();
{
  int k, j, i;
  double ymod, wt, sig2i, dy, *dfda;
  dfda = (double *)dvector(1, ma);
  for (j = 1; j <= mfit; j++) {
    for (k = 1; k <= j; k++)
      alpha[j][k] = 0.0;
    beta[j] = 0.0;
  }
  *chisq = 0.0;
  for (i = 1; i <= ndata; i++) {
    (*funcs)(x[i][1], x[i][2], x[i][3], a, &ymod, dfda, ma);
    sig2i = 1.0 / (sig[i] * sig[i]);
    dy = y[i] - ymod;
    for (j = 1; j <= mfit; j++) {
      wt = dfda[lista[j]] * sig2i;
      for (k = 1; k <= j; k++)
        alpha[j][k] += wt * dfda[lista[k]];
      beta[j] += dy * wt;
    }
    (*chisq) += dy * dy * sig2i;
  }
  for (j = 2; j <= mfit; j++)
    for (k = 1; k <= j - 1; k++)
      alpha[k][j] = alpha[j][k];
  free_dvector(dfda, 1, ma);
  (*chisq) = (*chisq) / (double)ndata;
}


x86 assembly (clang, -O0):
<o_mrqcof>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    0x38(%rbp),%rax
mov    0x30(%rbp),%rax
mov    0x28(%rbp),%rax
mov    0x20(%rbp),%rax
mov    0x18(%rbp),%eax
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9d,-0x2c(%rbp)
mov    -0x2c(%rbp),%esi
mov    $0x1,%edi
mov    $0x0,%al
call   1030 <dvector@plt>
cltq
mov    %rax,-0x60(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    0x18(%rbp),%eax
jg     11d5 <o_mrqcof+0xb5>
movl   $0x1,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x34(%rbp),%eax
jg     11b7 <o_mrqcof+0x97>
mov    0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1185 <o_mrqcof+0x65>
mov    0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1172 <o_mrqcof+0x52>
mov    0x30(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
movl   $0x1,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     1372 <o_mrqcof+0x252>
mov    0x38(%rbp),%r8
mov    -0x8(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movsd  0x8(%rax),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movsd  0x10(%rax),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movsd  0x18(%rax),%xmm2
mov    -0x28(%rbp),%rdi
mov    -0x60(%rbp),%rdx
mov    -0x2c(%rbp),%ecx
lea    -0x40(%rbp),%rsi
mov    $0x3,%al
call   *%r8
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm1
movsd  0xda0(%rip),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    0x18(%rbp),%eax
jg     1341 <o_mrqcof+0x221>
mov    -0x60(%rbp),%rax
mov    0x10(%rbp),%rcx
movslq -0x34(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movl   $0x1,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x34(%rbp),%eax
jg     130f <o_mrqcof+0x1ef>
movsd  -0x48(%rbp),%xmm0
mov    -0x60(%rbp),%rax
mov    0x10(%rbp),%rcx
movslq -0x30(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    12b9 <o_mrqcof+0x199>
movsd  -0x58(%rbp),%xmm0
movsd  -0x48(%rbp),%xmm2
mov    0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1287 <o_mrqcof+0x167>
movsd  -0x58(%rbp),%xmm0
mulsd  -0x58(%rbp),%xmm0
movsd  -0x50(%rbp),%xmm2
mov    0x30(%rbp),%rax
movsd  (%rax),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    11e7 <o_mrqcof+0xc7>
movl   $0x2,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    0x18(%rbp),%eax
jg     13e8 <o_mrqcof+0x2c8>
movl   $0x1,-0x30(%rbp)
mov    -0x30(%rbp),%eax
mov    -0x34(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     13d5 <o_mrqcof+0x2b5>
mov    0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x20(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    138c <o_mrqcof+0x26c>
jmp    13da <o_mrqcof+0x2ba>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1379 <o_mrqcof+0x259>
mov    -0x60(%rbp),%rdi
mov    -0x2c(%rbp),%edx
mov    $0x1,%esi
mov    $0x0,%al
call   1040 <free_dvector@plt>
mov    0x30(%rbp),%rax
movsd  (%rax),%xmm0
cvtsi2sdl -0x1c(%rbp),%xmm1
divsd  %xmm1,%xmm0
mov    0x30(%rbp),%rax
movsd  %xmm0,(%rax)
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<o_mrqcof>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x48,%rsp
mov    %r8,0x38(%rsp)
mov    %rcx,0x8(%rsp)
mov    %rdx,0x30(%rsp)
mov    %rsi,0x28(%rsp)
mov    %rdi,0x20(%rsp)
mov    0x98(%rsp),%r15
mov    0x90(%rsp),%r12
mov    0x88(%rsp),%ebx
mov    $0x1,%edi
mov    %r9d,0x4(%rsp)
mov    %r9d,%esi
xor    %eax,%eax
call   1040 <dvector@plt>
mov    %eax,%r14d
mov    %rbx,0x10(%rsp)
test   %ebx,%ebx
jle    1249 <o_mrqcof+0x119>
mov    0x88(%rsp),%eax
mov    %eax,%r13d
cmp    $0x1,%eax
jne    11ba <o_mrqcof+0x8a>
mov    $0x8,%ebx
mov    $0x1,%ebp
test   $0x1,%r13b
jne    122f <o_mrqcof+0xff>
jmp    1249 <o_mrqcof+0x119>
mov    %r13,0x18(%rsp)
and    $0xfffffffe,%r13d
neg    %r13
mov    $0x1,%ebp
mov    $0x10,%ebx
lea    -0x8(%rbx),%rdx
mov    (%r12,%rbp,8),%rdi
add    $0x8,%rdi
xor    %esi,%esi
call   1030 <memset@plt>
movq   $0x0,(%r15,%rbp,8)
mov    0x8(%r12,%rbp,8),%rdi
add    $0x8,%rdi
xor    %esi,%esi
mov    %rbx,%rdx
call   1030 <memset@plt>
movq   $0x0,0x8(%r15,%rbp,8)
add    $0x10,%rbx
lea    0x2(,%rbp,1),%rax
add    %r13,%rax
add    $0x2,%rbp
cmp    $0x1,%rax
jne    11d0 <o_mrqcof+0xa0>
add    $0xfffffffffffffff8,%rbx
mov    0x18(%rsp),%r13
test   $0x1,%r13b
je     1249 <o_mrqcof+0x119>
mov    (%r12,%rbp,8),%rdi
add    $0x8,%rdi
xor    %esi,%esi
mov    %rbx,%rdx
call   1030 <memset@plt>
movq   $0x0,(%r15,%rbp,8)
movslq %r14d,%r14
mov    0xa0(%rsp),%rax
movq   $0x0,(%rax)
cmpl   $0x0,0x8(%rsp)
jle    13fb <o_mrqcof+0x2cb>
mov    0x80(%rsp),%rbx
mov    0x88(%rsp),%eax
lea    0x1(%rax),%r13d
mov    0x8(%rsp),%rax
add    $0x1,%eax
mov    %rax,0x18(%rsp)
mov    $0x1,%r8d
jmp    12b7 <o_mrqcof+0x187>
xchg   %ax,%ax
mulsd  %xmm0,%xmm0
mulsd  %xmm1,%xmm0
mov    0xa0(%rsp),%rax
addsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
add    $0x1,%r8
cmp    0x18(%rsp),%r8
je     13fb <o_mrqcof+0x2cb>
mov    0x20(%rsp),%rax
mov    (%rax,%r8,8),%rax
movsd  0x8(%rax),%xmm0
movsd  0x10(%rax),%xmm1
movsd  0x18(%rax),%xmm2
mov    0x38(%rsp),%rdi
lea    0x40(%rsp),%rsi
mov    %r14,%rdx
mov    0x4(%rsp),%ecx
mov    $0x3,%al
mov    %r8,%rbp
call   *0xa8(%rsp)
mov    %rbp,%r8
mov    0x30(%rsp),%rax
movsd  (%rax,%rbp,8),%xmm0
mulsd  %xmm0,%xmm0
movsd  0xcfb(%rip),%xmm1
divsd  %xmm0,%xmm1
mov    0x28(%rsp),%rax
movsd  (%rax,%rbp,8),%xmm0
subsd  0x40(%rsp),%xmm0
mov    0x88(%rsp),%eax
test   %eax,%eax
jle    1290 <o_mrqcof+0x160>
mov    $0x1,%eax
xor    %ecx,%ecx
jmp    135d <o_mrqcof+0x22d>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mulsd  %xmm0,%xmm2
addsd  (%r15,%rax,8),%xmm2
movsd  %xmm2,(%r15,%rax,8)
add    $0x1,%rax
cmp    %r13,%rax
je     1290 <o_mrqcof+0x160>
mov    %rcx,%rdi
add    $0x1,%rcx
movslq (%rbx,%rax,4),%rdx
movsd  (%r14,%rdx,8),%xmm2
mulsd  %xmm1,%xmm2
mov    (%r12,%rax,8),%rdx
mov    $0x1,%esi
test   %rdi,%rdi
je     13d5 <o_mrqcof+0x2a5>
mov    %rax,%rdi
and    $0xfffffffffffffffe,%rdi
neg    %rdi
mov    $0x1,%esi
nop
movslq (%rbx,%rsi,4),%rbp
movsd  (%r14,%rbp,8),%xmm3
mulsd  %xmm2,%xmm3
addsd  (%rdx,%rsi,8),%xmm3
movsd  %xmm3,(%rdx,%rsi,8)
movslq 0x4(%rbx,%rsi,4),%rbp
movsd  (%r14,%rbp,8),%xmm3
mulsd  %xmm2,%xmm3
addsd  0x8(%rdx,%rsi,8),%xmm3
movsd  %xmm3,0x8(%rdx,%rsi,8)
lea    (%rdi,%rsi,1),%rbp
add    $0x2,%rbp
add    $0x2,%rsi
cmp    $0x1,%rbp
jne    1390 <o_mrqcof+0x260>
test   $0x1,%cl
je     1340 <o_mrqcof+0x210>
movslq (%rbx,%rsi,4),%rdi
movsd  (%r14,%rdi,8),%xmm3
mulsd  %xmm2,%xmm3
addsd  (%rdx,%rsi,8),%xmm3
movsd  %xmm3,(%rdx,%rsi,8)
jmp    1340 <o_mrqcof+0x210>
mov    0x88(%rsp),%eax
cmp    $0x2,%eax
jge    1446 <o_mrqcof+0x316>
mov    %r14,%rdi
mov    $0x1,%esi
mov    0x4(%rsp),%edx
xor    %eax,%eax
call   1050 <free_dvector@plt>
mov    0xa0(%rsp),%rax
movsd  (%rax),%xmm0
xorps  %xmm1,%xmm1
cvtsi2sdl 0x8(%rsp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax)
add    $0x48,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    0x10(%rsp),%rax
add    $0x1,%eax
mov    %rax,0x10(%rsp)
mov    $0x2,%eax
mov    $0x1,%ebp
xor    %r8d,%r8d
jmp    147f <o_mrqcof+0x34f>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    $0x1,%rax
add    $0x1,%rbp
cmp    0x10(%rsp),%rax
je     1407 <o_mrqcof+0x2d7>
mov    %r8,%rcx
add    $0x1,%r8
mov    (%r12,%rax,8),%rsi
mov    $0x1,%edi
cmp    $0x3,%rcx
jb     14ed <o_mrqcof+0x3bd>
mov    %rbp,%rcx
and    $0xfffffffffffffffc,%rcx
xor    %edi,%edi
xchg   %ax,%ax
movsd  0x8(%rsi,%rdi,8),%xmm0
mov    0x8(%r12,%rdi,8),%rbx
movsd  %xmm0,(%rbx,%rax,8)
movsd  0x10(%rsi,%rdi,8),%xmm0
mov    0x10(%r12,%rdi,8),%rbx
movsd  %xmm0,(%rbx,%rax,8)
movsd  0x18(%rsi,%rdi,8),%xmm0
mov    0x18(%r12,%rdi,8),%rbx
movsd  %xmm0,(%rbx,%rax,8)
movsd  0x20(%rsi,%rdi,8),%xmm0
mov    0x20(%r12,%rdi,8),%rbx
movsd  %xmm0,(%rbx,%rax,8)
add    $0x4,%rdi
cmp    %rdi,%rcx
jne    14a0 <o_mrqcof+0x370>
add    $0x1,%rdi
test   $0x3,%r8b
je     1470 <o_mrqcof+0x340>
mov    %ebp,%ecx
and    $0x3,%ecx
lea    (%r12,%rdi,8),%rbx
lea    (%rsi,%rdi,8),%rsi
xor    %edi,%edi
cs nopw 0x0(%rax,%rax,1)
movsd  (%rsi,%rdi,8),%xmm0
mov    (%rbx,%rdi,8),%rdx
movsd  %xmm0,(%rdx,%rax,8)
add    $0x1,%rdi
cmp    %rdi,%rcx
jne    1510 <o_mrqcof+0x3e0>
jmp    1470 <o_mrqcof+0x340>

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

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