void polint(xa, ya, n, x, y, dy) double xa[], ya[], x, *y, *dy;
int n;
{
  int i, m, ns = 1;
  double den, dif, dift, ho, hp, w;
  double *c, *d, *vector();
  void nrerror(), free_vector();
  dif = fabs(x - xa[1]);
  c = vector(1, n);
  d = vector(1, n);
  for (i = 1; i <= n; i++) {
    if ((dift = fabs(x - xa[i])) < dif) {
      ns = i;
      dif = dift;
    }
    c[i] = ya[i];
    d[i] = ya[i];
  }
  *y = ya[ns--];
  for (m = 1; m < n; m++) {
    for (i = 1; i <= n - m; i++) {
      ho = xa[i] - x;
      hp = xa[i + m] - x;
      w = c[i + 1] - d[i];
      if ((den = ho - hp) == 0.0)
        nrerror("Error in routine POLINT");
      den = w / den;
      d[i] = hp * den;
      c[i] = ho * den;
    }
    *y += (*dy = (2 * ns < (n - m) ? c[ns + 1] : d[ns--]));
  }
  free_vector(d, 1, n);
  free_vector(c, 1, n);
}


x86 assembly (clang, -O0):
<polint>:
push   %rbp
mov    %rsp,%rbp
sub    $0x90,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movsd  %xmm0,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    %r8,-0x30(%rbp)
movl   $0x1,-0x3c(%rbp)
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
subsd  0x8(%rax),%xmm0
movaps 0xe91(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x14(%rbp),%esi
mov    $0x1,%edi
mov    $0x0,%al
call   1050 <vector@plt>
mov    %rax,-0x78(%rbp)
mov    -0x14(%rbp),%esi
mov    $0x1,%edi
mov    $0x0,%al
call   1050 <vector@plt>
mov    %rax,-0x80(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1234 <polint+0x104>
movsd  -0x20(%rbp),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm1
movaps 0xe36(%rip),%xmm0
pand   %xmm0,%xmm1
movsd  %xmm1,-0x58(%rbp)
movsd  -0x50(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    11f2 <polint+0xc2>
mov    -0x34(%rbp),%eax
mov    %eax,-0x3c(%rbp)
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x78(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x80(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    11a5 <polint+0x75>
mov    -0x10(%rbp),%rax
mov    -0x3c(%rbp),%ecx
mov    %ecx,%edx
add    $0xffffffff,%edx
mov    %edx,-0x3c(%rbp)
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movsd  %xmm0,(%rax)
movl   $0x1,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    13cc <polint+0x29c>
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    -0x38(%rbp),%ecx
cmp    %ecx,%eax
jg     1350 <polint+0x220>
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    -0x38(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
mov    -0x78(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x80(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x60(%rbp),%xmm0
subsd  -0x68(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1305 <polint+0x1d5>
jp     1305 <polint+0x1d5>
lea    0xd12(%rip),%rdi
mov    $0x0,%al
call   1030 <nrerror@plt>
movsd  -0x70(%rbp),%xmm0
divsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x68(%rbp),%xmm0
mulsd  -0x48(%rbp),%xmm0
mov    -0x80(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x60(%rbp),%xmm0
mulsd  -0x48(%rbp),%xmm0
mov    -0x78(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    126d <polint+0x13d>
mov    -0x3c(%rbp),%eax
shl    $0x1,%eax
mov    -0x14(%rbp),%ecx
sub    -0x38(%rbp),%ecx
cmp    %ecx,%eax
jge    1383 <polint+0x253>
mov    -0x78(%rbp),%rax
mov    -0x3c(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
jmp    13a2 <polint+0x272>
mov    -0x80(%rbp),%rax
mov    -0x3c(%rbp),%ecx
mov    %ecx,%edx
add    $0xffffffff,%edx
mov    %edx,-0x3c(%rbp)
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
movsd  -0x88(%rbp),%xmm0
ff
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
addsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    125a <polint+0x12a>
mov    -0x80(%rbp),%rdi
mov    -0x14(%rbp),%edx
mov    $0x1,%esi
mov    $0x0,%al
call   1040 <free_vector@plt>
mov    -0x78(%rbp),%rdi
mov    -0x14(%rbp),%edx
mov    $0x1,%esi
mov    $0x0,%al
call   1040 <free_vector@plt>
add    $0x90,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<polint>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x68,%rsp
mov    %r8,0x40(%rsp)
mov    %rcx,%r12
movsd  %xmm0,0x20(%rsp)
mov    %edx,%r13d
mov    %rsi,%r15
mov    %rdi,0x18(%rsp)
movsd  0x8(%rdi),%xmm0
movsd  %xmm0,0x8(%rsp)
mov    $0x1,%r14d
mov    $0x1,%edi
mov    %edx,%esi
xor    %eax,%eax
call   1050 <vector@plt>
mov    %rax,%rbx
mov    $0x1,%edi
mov    %r13d,%esi
xor    %eax,%eax
call   1050 <vector@plt>
mov    %rax,%rbp
test   %r13d,%r13d
jle    137c <polint+0x24c>
movsd  0x20(%rsp),%xmm3
movapd %xmm3,%xmm0
subsd  0x8(%rsp),%xmm0
andpd  0xe54(%rip),%xmm0
lea    0x1(%r13),%eax
mov    $0x1,%ecx
movapd 0xe43(%rip),%xmm1
mov    0x18(%rsp),%rsi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movapd %xmm3,%xmm2
subsd  (%rsi,%rcx,8),%xmm2
andpd  %xmm1,%xmm2
ucomisd %xmm2,%xmm0
cmova  %ecx,%r14d
minsd  %xmm0,%xmm2
movsd  (%r15,%rcx,8),%xmm0
movsd  %xmm0,(%rbx,%rcx,8)
movsd  (%r15,%rcx,8),%xmm0
movsd  %xmm0,0x0(%rbp,%rcx,8)
add    $0x1,%rcx
movapd %xmm2,%xmm0
cmp    %rcx,%rax
jne    11d0 <polint+0xa0>
movslq %r14d,%rax
movsd  (%r15,%rax,8),%xmm0
mov    %r12,0x38(%rsp)
movsd  %xmm0,(%r12)
cmp    $0x2,%r13d
jl     1388 <polint+0x258>
add    $0xffffffff,%r14d
mov    %r13d,%eax
mov    %rax,0x28(%rsp)
lea    0x10(%rsi),%r12
mov    $0x1,%eax
mov    %r13d,%ecx
mov    %r13d,0x4(%rsp)
mov    %r13,0x30(%rsp)
jmp    12ad <polint+0x17d>
nop
lea    (%r14,%r14,1),%eax
xor    %ecx,%ecx
cmp    0x14(%rsp),%eax
setge  %cl
movslq %r14d,%r14
lea    0x8(%rbx,%r14,8),%rax
lea    0x0(%rbp,%r14,8),%rdx
cmovl  %rax,%rdx
sub    %ecx,%r14d
movsd  (%rdx),%xmm0
mov    0x40(%rsp),%rax
movsd  %xmm0,(%rax)
mov    0x38(%rsp),%rax
addsd  (%rax),%xmm0
movsd  %xmm0,(%rax)
mov    0x48(%rsp),%rax
add    $0x1,%rax
addl   $0xffffffff,0x4(%rsp)
add    $0x8,%r12
cmp    0x28(%rsp),%rax
mov    0x30(%rsp),%r13
je     1388 <polint+0x258>
mov    %r13d,%ecx
mov    %rax,0x48(%rsp)
sub    %eax,%ecx
mov    %ecx,0x14(%rsp)
jle    1250 <polint+0x120>
mov    0x4(%rsp),%r15d
add    $0xffffffffffffffff,%r15
xor    %r13d,%r13d
jmp    12f7 <polint+0x1c7>
nopl   0x0(%rax,%rax,1)
divsd  %xmm4,%xmm2
mulsd  %xmm2,%xmm1
movsd  %xmm1,0x8(%rbp,%r13,8)
mulsd  %xmm2,%xmm0
movsd  %xmm0,0x8(%rbx,%r13,8)
add    $0x1,%r13
cmp    %r13,%r15
je     1250 <polint+0x120>
movsd  0x8(%rsi,%r13,8),%xmm0
subsd  %xmm3,%xmm0
movsd  (%r12,%r13,8),%xmm1
movsd  0x10(%rbx,%r13,8),%xmm2
subsd  0x8(%rbp,%r13,8),%xmm2
subsd  %xmm3,%xmm1
movapd %xmm0,%xmm4
subsd  %xmm1,%xmm4
ucomisd 0xce6(%rip),%xmm4
jne    12d0 <polint+0x1a0>
jp     12d0 <polint+0x1a0>
lea    0xce3(%rip),%rdi
xor    %eax,%eax
movsd  %xmm0,0x8(%rsp)
movsd  %xmm1,0x60(%rsp)
movsd  %xmm2,0x58(%rsp)
movsd  %xmm4,0x50(%rsp)
call   1030 <nrerror@plt>
movsd  0x50(%rsp),%xmm4
movsd  0x58(%rsp),%xmm2
movsd  0x60(%rsp),%xmm1
movsd  0x8(%rsp),%xmm0
mov    0x18(%rsp),%rsi
movsd  0x20(%rsp),%xmm3
jmp    12d0 <polint+0x1a0>
movsd  0x8(%r15),%xmm0
movsd  %xmm0,(%r12)
mov    %rbp,%rdi
mov    $0x1,%esi
mov    %r13d,%edx
xor    %eax,%eax
call   1040 <free_vector@plt>
mov    %rbx,%rdi
mov    $0x1,%esi
mov    %r13d,%edx
xor    %eax,%eax
add    $0x68,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1040 <free_vector@plt>

LLVM IR (-O0):
@.str = [24 x i8] c"Error in routine POLINT\00"
define void @polint(double* %0, double* %1, i32 %2, double %3, double* %4, double* %5) {
%7 = alloca double*
%8 = alloca double*
%9 = alloca i32
%10 = alloca double
%11 = alloca double*
%12 = alloca double*
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca double
%17 = alloca double
%18 = alloca double
%19 = alloca double
%20 = alloca double
%21 = alloca double
%22 = alloca double*
%23 = alloca double*
store double* %0, double** %7
store double* %1, double** %8
store i32 %2, i32* %9
store double %3, double* %10
store double* %4, double** %11
store double* %5, double** %12
store i32 1, i32* %15
%24 = load double, double* %10
%25 = load double*, double** %7
%26 = getelementptr inbounds double, double* %25, i64 1
%27 = load double, double* %26
%28 = fsub double %24, %27
%29 = call double @llvm.fabs.f64(double %28)
store double %29, double* %17
%30 = load i32, i32* %9
%31 = call double* (i32, i32, ...) bitcast (double* (...)* @vector to double* (i32, i32, ...)*)(i32 1, i32 %30)
store double* %31, double** %22
%32 = load i32, i32* %9
%33 = call double* (i32, i32, ...) bitcast (double* (...)* @vector to double* (i32, i32, ...)*)(i32 1, i32 %32)
store double* %33, double** %23
store i32 1, i32* %13
br label %34
34: ; preds = %71, %6
%35 = load i32, i32* %13
%36 = load i32, i32* %9
%37 = icmp sle i32 %35, %36
br i1 %37, label %38, label %74
38: ; preds = %34
%39 = load double, double* %10
%40 = load double*, double** %7
%41 = load i32, i32* %13
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds double, double* %40, i64 %42
%44 = load double, double* %43
%45 = fsub double %39, %44
%46 = call double @llvm.fabs.f64(double %45)
store double %46, double* %18
%47 = load double, double* %17
%48 = fcmp olt double %46, %47
br i1 %48, label %49, label %52
49: ; preds = %38
%50 = load i32, i32* %13
store i32 %50, i32* %15
%51 = load double, double* %18
store double %51, double* %17
br label %52
52: ; preds = %49, %38
%53 = load double*, double** %8
%54 = load i32, i32* %13
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds double, double* %53, i64 %55
%57 = load double, double* %56
%58 = load double*, double** %22
%59 = load i32, i32* %13
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds double, double* %58, i64 %60
store double %57, double* %61
%62 = load double*, double** %8
%63 = load i32, i32* %13
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds double, double* %62, i64 %64
%66 = load double, double* %65
%67 = load double*, double** %23
%68 = load i32, i32* %13
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds double, double* %67, i64 %69
store double %66, double* %70
br label %71
71: ; preds = %52
%72 = load i32, i32* %13
%73 = add nsw i32 %72, 1
store i32 %73, i32* %13
br label %34
74: ; preds = %34
%75 = load double*, double** %8
%76 = load i32, i32* %15
%77 = add nsw i32 %76, -1
store i32 %77, i32* %15
%78 = sext i32 %76 to i64
%79 = getelementptr inbounds double, double* %75, i64 %78
%80 = load double, double* %79
%81 = load double*, double** %11
store double %80, double* %81
store i32 1, i32* %14
br label %82
82: ; preds = %175, %74
%83 = load i32, i32* %14
%84 = load i32, i32* %9
%85 = icmp slt i32 %83, %84
br i1 %85, label %86, label %178
86: ; preds = %82
store i32 1, i32* %13
br label %87
87: ; preds = %145, %86
%88 = load i32, i32* %13
%89 = load i32, i32* %9
%90 = load i32, i32* %14
%91 = sub nsw i32 %89, %90
%92 = icmp sle i32 %88, %91
br i1 %92, label %93, label %148
93: ; preds = %87
%94 = load double*, double** %7
%95 = load i32, i32* %13
%96 = sext i32 %95 to i64
%97 = getelementptr inbounds double, double* %94, i64 %96
%98 = load double, double* %97
%99 = load double, double* %10
%100 = fsub double %98, %99
store double %100, double* %19
%101 = load double*, double** %7
%102 = load i32, i32* %13
%103 = load i32, i32* %14
%104 = add nsw i32 %102, %103
%105 = sext i32 %104 to i64
%106 = getelementptr inbounds double, double* %101, i64 %105
%107 = load double, double* %106
%108 = load double, double* %10
%109 = fsub double %107, %108
store double %109, double* %20
%110 = load double*, double** %22
%111 = load i32, i32* %13
%112 = add nsw i32 %111, 1
%113 = sext i32 %112 to i64
%114 = getelementptr inbounds double, double* %110, i64 %113
%115 = load double, double* %114
%116 = load double*, double** %23
%117 = load i32, i32* %13
%118 = sext i32 %117 to i64
%119 = getelementptr inbounds double, double* %116, i64 %118
%120 = load double, double* %119
%121 = fsub double %115, %120
store double %121, double* %21
%122 = load double, double* %19
%123 = load double, double* %20
%124 = fsub double %122, %123
store double %124, double* %16
%125 = fcmp oeq double %124, 0.000000e+00
br i1 %125, label %126, label %127
126: ; preds = %93
br label %127
127: ; preds = %126, %93
%128 = load double, double* %21
%129 = load double, double* %16
%130 = fdiv double %128, %129
store double %130, double* %16
%131 = load double, double* %20
%132 = load double, double* %16
%133 = fmul double %131, %132
%134 = load double*, double** %23
%135 = load i32, i32* %13
%136 = sext i32 %135 to i64
%137 = getelementptr inbounds double, double* %134, i64 %136
store double %133, double* %137
%138 = load double, double* %19
%139 = load double, double* %16
%140 = fmul double %138, %139
%141 = load double*, double** %22
%142 = load i32, i32* %13
%143 = sext i32 %142 to i64
%144 = getelementptr inbounds double, double* %141, i64 %143
store double %140, double* %144
br label %145
145: ; preds = %127
%146 = load i32, i32* %13
%147 = add nsw i32 %146, 1
store i32 %147, i32* %13
br label %87
148: ; preds = %87
%149 = load i32, i32* %15
%150 = mul nsw i32 2, %149
%151 = load i32, i32* %9
%152 = load i32, i32* %14
%153 = sub nsw i32 %151, %152
%154 = icmp slt i32 %150, %153
br i1 %154, label %155, label %162
155: ; preds = %148
%156 = load double*, double** %22
%157 = load i32, i32* %15
%158 = add nsw i32 %157, 1
%159 = sext i32 %158 to i64
%160 = getelementptr inbounds double, double* %156, i64 %159
%161 = load double, double* %160
br label %169
162: ; preds = %148
%163 = load double*, double** %23
%164 = load i32, i32* %15
%165 = add nsw i32 %164, -1
store i32 %165, i32* %15
%166 = sext i32 %164 to i64
%167 = getelementptr inbounds double, double* %163, i64 %166
%168 = load double, double* %167
br label %169
169: ; preds = %162, %155
%170 = phi double [ %161, %155 ], [ %168, %162 ]
%171 = load double*, double** %12
store double %170, double* %171
%172 = load double*, double** %11
%173 = load double, double* %172
%174 = fadd double %173, %170
store double %174, double* %172
br label %175
175: ; preds = %169
%176 = load i32, i32* %14
%177 = add nsw i32 %176, 1
store i32 %177, i32* %14
br label %82
178: ; preds = %82
%179 = load double*, double** %23
%180 = load i32, i32* %9
%181 = load double*, double** %22
%182 = load i32, i32* %9
ret void
}

LLVM IR (-O2):
@.str = [24 x i8] c"Error in routine POLINT\00"
define void @polint(double* nocapture %0, double* nocapture %1, i32 %2, double %3, double* nocapture %4, double* nocapture writeonly %5) {
%7 = getelementptr inbounds double, double* %0, i64 1
%8 = load double, double* %7
%9 = tail call double* (i32, i32, ...) bitcast (double* (...)* @vector to double* (i32, i32, ...)*)(i32 1, i32 %2)
%10 = tail call double* (i32, i32, ...) bitcast (double* (...)* @vector to double* (i32, i32, ...)*)(i32 1, i32 %2)
%11 = icmp slt i32 %2, 1
br i1 %11, label %12, label %15
12: ; preds = %6
%13 = getelementptr inbounds double, double* %1, i64 1
%14 = load double, double* %13
store double %14, double* %4
br label %98
15: ; preds = %6
%16 = fsub double %3, %8
%17 = tail call double @llvm.fabs.f64(double %16)
%18 = add nuw i32 %2, 1
%19 = zext i32 %18 to i64
br label %20
20: ; preds = %15, %20
%21 = phi i64 [ 1, %15 ], [ %37, %20 ]
%22 = phi i32 [ 1, %15 ], [ %31, %20 ]
%23 = phi double [ %17, %15 ], [ %29, %20 ]
%24 = getelementptr inbounds double, double* %0, i64 %21
%25 = load double, double* %24
%26 = fsub double %3, %25
%27 = tail call double @llvm.fabs.f64(double %26)
%28 = fcmp olt double %27, %23
%29 = select i1 %28, double %27, double %23
%30 = trunc i64 %21 to i32
%31 = select i1 %28, i32 %30, i32 %22
%32 = getelementptr inbounds double, double* %1, i64 %21
%33 = load double, double* %32
%34 = getelementptr inbounds double, double* %9, i64 %21
store double %33, double* %34
%35 = load double, double* %32
%36 = getelementptr inbounds double, double* %10, i64 %21
store double %35, double* %36
%37 = add nuw nsw i64 %21, 1
%38 = icmp eq i64 %37, %19
br i1 %38, label %39, label %20
39: ; preds = %20
%40 = sext i32 %31 to i64
%41 = getelementptr inbounds double, double* %1, i64 %40
%42 = load double, double* %41
store double %42, double* %4
%43 = icmp sgt i32 %2, 1
br i1 %43, label %44, label %98
44: ; preds = %39
%45 = add nsw i32 %31, -1
%46 = zext i32 %2 to i64
br label %47
47: ; preds = %44, %80
%48 = phi i64 [ 1, %44 ], [ %95, %80 ]
%49 = phi i32 [ %2, %44 ], [ %96, %80 ]
%50 = phi i32 [ %45, %44 ], [ %90, %80 ]
%51 = trunc i64 %48 to i32
%52 = sub nsw i32 %2, %51
%53 = icmp slt i32 %52, 1
br i1 %53, label %80, label %54
54: ; preds = %47
%55 = zext i32 %49 to i64
br label %56
56: ; preds = %54, %74
%57 = phi i64 [ 1, %54 ], [ %65, %74 ]
%58 = getelementptr inbounds double, double* %0, i64 %57
%59 = load double, double* %58
%60 = fsub double %59, %3
%61 = add nuw nsw i64 %57, %48
%62 = getelementptr inbounds double, double* %0, i64 %61
%63 = load double, double* %62
%64 = fsub double %63, %3
%65 = add nuw nsw i64 %57, 1
%66 = getelementptr inbounds double, double* %9, i64 %65
%67 = load double, double* %66
%68 = getelementptr inbounds double, double* %10, i64 %57
%69 = load double, double* %68
%70 = fsub double %67, %69
%71 = fsub double %60, %64
%72 = fcmp oeq double %71, 0.000000e+00
br i1 %72, label %73, label %74
73: ; preds = %56
tail call void (i8*, ...) bitcast (void (...)* @nrerror to void (i8*, ...)*)(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str, i64 0, i64 0))
br label %74
74: ; preds = %73, %56
%75 = fdiv double %70, %71
%76 = fmul double %64, %75
store double %76, double* %68
%77 = fmul double %60, %75
%78 = getelementptr inbounds double, double* %9, i64 %57
store double %77, double* %78
%79 = icmp eq i64 %65, %55
br i1 %79, label %80, label %56
80: ; preds = %74, %47
%81 = shl nsw i32 %50, 1
%82 = icmp slt i32 %81, %52
%83 = add nsw i32 %50, 1
%84 = sext i32 %83 to i64
%85 = getelementptr inbounds double, double* %9, i64 %84
%86 = sext i32 %50 to i64
%87 = getelementptr inbounds double, double* %10, i64 %86
%88 = xor i1 %82, true
%89 = sext i1 %88 to i32
%90 = add nsw i32 %50, %89
%91 = select i1 %82, double* %85, double* %87
%92 = load double, double* %91
store double %92, double* %5
%93 = load double, double* %4
%94 = fadd double %92, %93
store double %94, double* %4
%95 = add nuw nsw i64 %48, 1
%96 = add i32 %49, -1
%97 = icmp eq i64 %95, %46
br i1 %97, label %98, label %47
98: ; preds = %80, %12, %39
tail call void (double*, i32, i32, ...) bitcast (void (...)* @free_vector to void (double*, i32, i32, ...)*)(double* %10, i32 1, i32 %2)
tail call void (double*, i32, i32, ...) bitcast (void (...)* @free_vector to void (double*, i32, i32, ...)*)(double* %9, i32 1, i32 %2)
ret void
}