#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double *dvector(int, int);
double fabs(double);
int /*<<< orphan*/ free_dvector(double *, int, int);
int /*<<< orphan*/ nrerror(char *);
void polint(double xa[], double ya[], int n, double x, double *y, double *dy) {
  int i, m, ns = 1;
  double den, dif, dift, ho, hp, w;
  double *c, *d;
  dif = fabs(x - xa[1]);
  c = dvector(1, n);
  d = dvector(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_dvector(d, 1, n);
  free_dvector(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
call   1040 <dvector@plt>
mov    %rax,-0x78(%rbp)
mov    -0x14(%rbp),%esi
mov    $0x1,%edi
call   1040 <dvector@plt>
mov    %rax,-0x80(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1230 <polint+0x100>
movsd  -0x20(%rbp),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm1
movaps 0xe3a(%rip),%xmm0
pand   %xmm0,%xmm1
movsd  %xmm1,-0x58(%rbp)
movsd  -0x50(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    11ee <polint+0xbe>
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    11a1 <polint+0x71>
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    13c6 <polint+0x296>
movl   $0x1,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    -0x38(%rbp),%ecx
cmp    %ecx,%eax
jg     134a <polint+0x21a>
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    12ff <polint+0x1cf>
jp     12ff <polint+0x1cf>
lea    0xd16(%rip),%rdi
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    1269 <polint+0x139>
mov    -0x3c(%rbp),%eax
shl    $0x1,%eax
mov    -0x14(%rbp),%ecx
sub    -0x38(%rbp),%ecx
cmp    %ecx,%eax
jge    137d <polint+0x24d>
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    139c <polint+0x26c>
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    1256 <polint+0x126>
mov    -0x80(%rbp),%rdi
mov    -0x14(%rbp),%edx
mov    $0x1,%esi
call   1050 <free_dvector@plt>
mov    -0x78(%rbp),%rdi
mov    -0x14(%rbp),%edx
mov    $0x1,%esi
call   1050 <free_dvector@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
call   1040 <dvector@plt>
mov    %rax,%rbx
mov    $0x1,%edi
mov    %r13d,%esi
call   1040 <dvector@plt>
mov    %rax,%rbp
test   %r13d,%r13d
jle    136a <polint+0x23a>
movsd  0x20(%rsp),%xmm3
movapd %xmm3,%xmm0
subsd  0x8(%rsp),%xmm0
andpd  0xe58(%rip),%xmm0
lea    0x1(%r13),%eax
mov    $0x1,%ecx
movapd 0xe47(%rip),%xmm1
mov    0x18(%rsp),%rsi
xchg   %ax,%ax
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    11c0 <polint+0x90>
movslq %r14d,%rax
movsd  (%r15,%rax,8),%xmm0
mov    %r12,0x38(%rsp)
movsd  %xmm0,(%r12)
cmp    $0x2,%r13d
jl     1376 <polint+0x246>
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    129d <polint+0x16d>
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     1376 <polint+0x246>
mov    %r13d,%ecx
mov    %rax,0x48(%rsp)
sub    %eax,%ecx
mov    %ecx,0x14(%rsp)
jle    1240 <polint+0x110>
mov    0x4(%rsp),%r15d
add    $0xffffffffffffffff,%r15
xor    %r13d,%r13d
jmp    12e7 <polint+0x1b7>
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     1240 <polint+0x110>
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 0xcf6(%rip),%xmm4
jne    12c0 <polint+0x190>
jp     12c0 <polint+0x190>
lea    0xcf3(%rip),%rdi
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    12c0 <polint+0x190>
movsd  0x8(%r15),%xmm0
movsd  %xmm0,(%r12)
mov    %rbp,%rdi
mov    $0x1,%esi
mov    %r13d,%edx
call   1050 <free_dvector@plt>
mov    %rbx,%rdi
mov    $0x1,%esi
mov    %r13d,%edx
add    $0x68,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1050 <free_dvector@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* @dvector(i32 1, i32 %30)
store double* %31, double** %22
%32 = load i32, i32* %9
%33 = call double* @dvector(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 = %176, %74
%83 = load i32, i32* %14
%84 = load i32, i32* %9
%85 = icmp slt i32 %83, %84
br i1 %85, label %86, label %179
86: ; preds = %82
store i32 1, i32* %13
br label %87
87: ; preds = %146, %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 %149
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 %128
126: ; preds = %93
%127 = call i32 @nrerror(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str, i64 0, i64 0))
br label %128
128: ; preds = %126, %93
%129 = load double, double* %21
%130 = load double, double* %16
%131 = fdiv double %129, %130
store double %131, double* %16
%132 = load double, double* %20
%133 = load double, double* %16
%134 = fmul double %132, %133
%135 = load double*, double** %23
%136 = load i32, i32* %13
%137 = sext i32 %136 to i64
%138 = getelementptr inbounds double, double* %135, i64 %137
store double %134, double* %138
%139 = load double, double* %19
%140 = load double, double* %16
%141 = fmul double %139, %140
%142 = load double*, double** %22
%143 = load i32, i32* %13
%144 = sext i32 %143 to i64
%145 = getelementptr inbounds double, double* %142, i64 %144
store double %141, double* %145
br label %146
146: ; preds = %128
%147 = load i32, i32* %13
%148 = add nsw i32 %147, 1
store i32 %148, i32* %13
br label %87
149: ; preds = %87
%150 = load i32, i32* %15
%151 = mul nsw i32 2, %150
%152 = load i32, i32* %9
%153 = load i32, i32* %14
%154 = sub nsw i32 %152, %153
%155 = icmp slt i32 %151, %154
br i1 %155, label %156, label %163
156: ; preds = %149
%157 = load double*, double** %22
%158 = load i32, i32* %15
%159 = add nsw i32 %158, 1
%160 = sext i32 %159 to i64
%161 = getelementptr inbounds double, double* %157, i64 %160
%162 = load double, double* %161
br label %170
163: ; preds = %149
%164 = load double*, double** %23
%165 = load i32, i32* %15
%166 = add nsw i32 %165, -1
store i32 %166, i32* %15
%167 = sext i32 %165 to i64
%168 = getelementptr inbounds double, double* %164, i64 %167
%169 = load double, double* %168
br label %170
170: ; preds = %163, %156
%171 = phi double [ %162, %156 ], [ %169, %163 ]
%172 = load double*, double** %12
store double %171, double* %172
%173 = load double*, double** %11
%174 = load double, double* %173
%175 = fadd double %174, %171
store double %175, double* %173
br label %176
176: ; preds = %170
%177 = load i32, i32* %14
%178 = add nsw i32 %177, 1
store i32 %178, i32* %14
br label %82
179: ; preds = %82
%180 = load double*, double** %23
%181 = load i32, i32* %9
%182 = call i32 @free_dvector(double* %180, i32 1, i32 %181)
%183 = load double*, double** %22
%184 = load i32, i32* %9
%185 = call i32 @free_dvector(double* %183, i32 1, i32 %184)
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* @dvector(i32 1, i32 %2)
%10 = tail call double* @dvector(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 %99
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 %99
44: ; preds = %39
%45 = add nsw i32 %31, -1
%46 = zext i32 %2 to i64
br label %47
47: ; preds = %44, %81
%48 = phi i64 [ 1, %44 ], [ %96, %81 ]
%49 = phi i32 [ %2, %44 ], [ %97, %81 ]
%50 = phi i32 [ %45, %44 ], [ %91, %81 ]
%51 = trunc i64 %48 to i32
%52 = sub nsw i32 %2, %51
%53 = icmp slt i32 %52, 1
br i1 %53, label %81, label %54
54: ; preds = %47
%55 = zext i32 %49 to i64
br label %56
56: ; preds = %54, %75
%57 = phi i64 [ 1, %54 ], [ %65, %75 ]
%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 %75
73: ; preds = %56
%74 = tail call i32 @nrerror(i8* getelementptr inbounds ([24 x i8], [24 x i8]* @.str, i64 0, i64 0))
br label %75
75: ; preds = %73, %56
%76 = fdiv double %70, %71
%77 = fmul double %64, %76
store double %77, double* %68
%78 = fmul double %60, %76
%79 = getelementptr inbounds double, double* %9, i64 %57
store double %78, double* %79
%80 = icmp eq i64 %65, %55
br i1 %80, label %81, label %56
81: ; preds = %75, %47
%82 = shl nsw i32 %50, 1
%83 = icmp slt i32 %82, %52
%84 = add nsw i32 %50, 1
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds double, double* %9, i64 %85
%87 = sext i32 %50 to i64
%88 = getelementptr inbounds double, double* %10, i64 %87
%89 = xor i1 %83, true
%90 = sext i1 %89 to i32
%91 = add nsw i32 %50, %90
%92 = select i1 %83, double* %86, double* %88
%93 = load double, double* %92
store double %93, double* %5
%94 = load double, double* %4
%95 = fadd double %93, %94
store double %95, double* %4
%96 = add nuw nsw i64 %48, 1
%97 = add i32 %49, -1
%98 = icmp eq i64 %96, %46
br i1 %98, label %99, label %47
99: ; preds = %81, %12, %39
%100 = tail call i32 @free_dvector(double* %10, i32 1, i32 %2)
%101 = tail call i32 @free_dvector(double* %9, i32 1, i32 %2)
ret void
}