#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 */
float fabs(float);
int /*<<< orphan*/ free_vector(float *, int, int);
int /*<<< orphan*/ nrerror(char *);
float *vector(int, int);
void ratint(float xa[], float ya[], int n, float x, float *y, float *dy) {
  int m, i, ns = 1;
  float w, t, hh, h, dd, *c, *d;
  c = vector(1, n);
  d = vector(1, n);
  hh = fabs(x - xa[1]);
  for (i = 1; i <= n; i++) {
    h = fabs(x - xa[i]);
    if (h == 0.0) {
      *y = ya[i];
      *dy = 0.0;
      {
        free_vector(d, 1, n);
        free_vector(c, 1, n);
        return;
      }
    } else if (h < hh) {
      ns = i;
      hh = h;
    }
    c[i] = ya[i];
    d[i] = ya[i] + 1.0e-25;
  }
  *y = ya[ns--];
  for (m = 1; m < n; m++) {
    for (i = 1; i <= n - m; i++) {
      w = c[i + 1] - d[i];
      h = xa[i + m] - x;
      t = (xa[i] - x) * d[i] / h;
      dd = t - c[i + 1];
      if (dd == 0.0)
        nrerror("Error in routine ratint");
      dd = w / dd;
      d[i] = c[i + 1] * dd;
      c[i] = t * dd;
    }
    *y += (*dy = (2 * ns < (n - m) ? c[ns + 1] : d[ns--]));
  }
  {
    free_vector(d, 1, n);
    free_vector(c, 1, n);
    return;
  }
}


x86 assembly (clang, -O0):
<ratint>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movss  %xmm0,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x14(%rbp),%esi
mov    $0x1,%edi
call   1060 <vector@plt>
mov    %rax,-0x50(%rbp)
mov    -0x14(%rbp),%esi
mov    $0x1,%edi
call   1060 <vector@plt>
mov    %rax,-0x58(%rbp)
movss  -0x18(%rbp),%xmm0
mov    -0x8(%rbp),%rax
subss  0x4(%rax),%xmm0
call   1050 <fabs@plt>
movss  %xmm0,-0x40(%rbp)
movl   $0x1,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     12b1 <ratint+0x171>
movss  -0x18(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
subss  (%rax,%rcx,4),%xmm0
call   1050 <fabs@plt>
movss  %xmm0,-0x44(%rbp)
movss  -0x44(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1233 <ratint+0xf3>
jp     1233 <ratint+0xf3>
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x20(%rbp),%rax
movss  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,(%rax)
mov    -0x58(%rbp),%rdi
mov    -0x14(%rbp),%edx
mov    $0x1,%esi
call   1040 <free_vector@plt>
mov    -0x50(%rbp),%rdi
mov    -0x14(%rbp),%edx
mov    $0x1,%esi
call   1040 <free_vector@plt>
jmp    1495 <ratint+0x355>
movss  -0x44(%rbp),%xmm1
movss  -0x40(%rbp),%xmm0
ucomiss %xmm1,%xmm0
jbe    1256 <ratint+0x116>
mov    -0x30(%rbp),%eax
mov    %eax,-0x34(%rbp)
movss  -0x44(%rbp),%xmm0
movss  %xmm0,-0x40(%rbp)
jmp    125b <ratint+0x11b>
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x50(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xd72(%rip),%xmm1
addsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
mov    -0x58(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    11a8 <ratint+0x68>
mov    -0x10(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    %ecx,%edx
add    $0xffffffff,%edx
mov    %edx,-0x34(%rbp)
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x20(%rbp),%rax
movss  %xmm0,(%rax)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    1473 <ratint+0x333>
movl   $0x1,-0x30(%rbp)
mov    -0x30(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    -0x2c(%rbp),%ecx
cmp    %ecx,%eax
jg     1400 <ratint+0x2c0>
mov    -0x50(%rbp),%rax
mov    -0x30(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x58(%rbp),%rax
movslq -0x30(%rbp),%rcx
subss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x38(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%ecx
add    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
subss  -0x18(%rbp),%xmm0
movss  %xmm0,-0x44(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
subss  -0x18(%rbp),%xmm0
mov    -0x58(%rbp),%rax
movslq -0x30(%rbp),%rcx
mulss  (%rax,%rcx,4),%xmm0
divss  -0x44(%rbp),%xmm0
movss  %xmm0,-0x3c(%rbp)
movss  -0x3c(%rbp),%xmm0
mov    -0x50(%rbp),%rax
mov    -0x30(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
subss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x48(%rbp)
movss  -0x48(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    13a8 <ratint+0x268>
jp     13a8 <ratint+0x268>
lea    0xc65(%rip),%rdi
call   1030 <nrerror@plt>
movss  -0x38(%rbp),%xmm0
divss  -0x48(%rbp),%xmm0
movss  %xmm0,-0x48(%rbp)
mov    -0x50(%rbp),%rax
mov    -0x30(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
mulss  -0x48(%rbp),%xmm0
mov    -0x58(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
movss  -0x3c(%rbp),%xmm0
mulss  -0x48(%rbp),%xmm0
mov    -0x50(%rbp),%rax
movslq -0x30(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    12ea <ratint+0x1aa>
mov    -0x34(%rbp),%eax
shl    $0x1,%eax
mov    -0x14(%rbp),%ecx
sub    -0x2c(%rbp),%ecx
cmp    %ecx,%eax
jge    1430 <ratint+0x2f0>
mov    -0x50(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x5c(%rbp)
jmp    144c <ratint+0x30c>
mov    -0x58(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    %ecx,%edx
add    $0xffffffff,%edx
mov    %edx,-0x34(%rbp)
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x5c(%rbp)
movss  -0x5c(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movss  %xmm0,(%rax)
mov    -0x20(%rbp),%rax
addss  (%rax),%xmm0
movss  %xmm0,(%rax)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    12d7 <ratint+0x197>
mov    -0x58(%rbp),%rdi
mov    -0x14(%rbp),%edx
mov    $0x1,%esi
call   1040 <free_vector@plt>
mov    -0x50(%rbp),%rdi
mov    -0x14(%rbp),%edx
mov    $0x1,%esi
call   1040 <free_vector@plt>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ratint>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x58,%rsp
mov    %r8,0x30(%rsp)
mov    %rcx,%r14
movss  %xmm0,0x18(%rsp)
mov    %edx,%r13d
mov    %rsi,%r12
mov    %rdi,%r15
mov    $0x1,%edi
mov    %edx,%esi
call   1050 <vector@plt>
mov    %rax,%rbx
mov    $0x1,%edi
mov    %r13d,%esi
call   1050 <vector@plt>
mov    %rax,%rbp
test   %r13d,%r13d
jle    1246 <ratint+0x116>
movss  0x18(%rsp),%xmm6
movaps %xmm6,%xmm2
subss  0x4(%r15),%xmm2
mov    $0x1,%eax
xorps  %xmm0,%xmm0
ucomiss %xmm0,%xmm2
jne    119f <ratint+0x6f>
jnp    122e <ratint+0xfe>
lea    0x1(%r13),%eax
movaps 0xe56(%rip),%xmm1
andps  %xmm1,%xmm2
mov    $0x2,%ecx
sub    %rax,%rcx
mov    $0x1,%eax
mov    $0x1,%edx
mov    %rdx,0x8(%rsp)
movsd  0xe44(%rip),%xmm3
movaps %xmm2,%xmm4
nop
ucomiss %xmm2,%xmm4
mov    0x8(%rsp),%rdx
mov    %eax,%edi
cmovbe %edx,%edi
mov    %rdi,0x8(%rsp)
movss  (%r12,%rax,4),%xmm5
movss  %xmm5,(%rbx,%rax,4)
movss  (%r12,%rax,4),%xmm5
cvtss2sd %xmm5,%xmm5
addsd  %xmm3,%xmm5
cvtsd2ss %xmm5,%xmm5
movss  %xmm5,0x0(%rbp,%rax,4)
lea    (%rcx,%rax,1),%rdx
cmp    $0x1,%rdx
je     1280 <ratint+0x150>
minss  %xmm4,%xmm2
movaps %xmm2,%xmm4
movaps %xmm6,%xmm2
subss  0x4(%r15,%rax,4),%xmm2
add    $0x1,%rax
ucomiss %xmm0,%xmm2
andps  %xmm1,%xmm2
jne    11d0 <ratint+0xa0>
jp     11d0 <ratint+0xa0>
movss  (%r12,%rax,4),%xmm0
movss  %xmm0,(%r14)
mov    0x30(%rsp),%rax
movl   $0x0,(%rax)
jmp    1252 <ratint+0x122>
movss  0x4(%r12),%xmm0
movss  %xmm0,(%r14)
mov    %rbp,%rdi
mov    $0x1,%esi
mov    %r13d,%edx
call   1040 <free_vector@plt>
mov    %rbx,%rdi
mov    $0x1,%esi
mov    %r13d,%edx
add    $0x58,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1040 <free_vector@plt>
movslq 0x8(%rsp),%rax
movss  (%r12,%rax,4),%xmm0
mov    %r14,0x48(%rsp)
movss  %xmm0,(%r14)
cmp    $0x2,%r13d
jl     1252 <ratint+0x122>
mov    0x8(%rsp),%rax
add    $0xffffffff,%eax
mov    %rax,0x8(%rsp)
mov    %r13d,%eax
mov    %rax,0x38(%rsp)
lea    0x8(%r15),%r14
mov    $0x1,%eax
mov    %r13d,%ecx
mov    %r13d,0x14(%rsp)
mov    %r13,0x40(%rsp)
jmp    1335 <ratint+0x205>
nopl   0x0(%rax,%rax,1)
mov    0x8(%rsp),%rdi
lea    (%rdi,%rdi,1),%eax
xor    %ecx,%ecx
cmp    0x1c(%rsp),%eax
setge  %cl
movslq %edi,%rdi
lea    0x4(%rbx,%rdi,4),%rax
lea    0x0(%rbp,%rdi,4),%rdx
cmovl  %rax,%rdx
sub    %ecx,%edi
mov    %rdi,0x8(%rsp)
movss  (%rdx),%xmm0
mov    0x30(%rsp),%rax
movss  %xmm0,(%rax)
mov    0x48(%rsp),%rax
addss  (%rax),%xmm0
movss  %xmm0,(%rax)
mov    0x50(%rsp),%rax
add    $0x1,%rax
addl   $0xffffffff,0x14(%rsp)
add    $0x4,%r14
cmp    0x38(%rsp),%rax
mov    0x40(%rsp),%r13
je     1252 <ratint+0x122>
mov    %r13d,%ecx
mov    %rax,0x50(%rsp)
sub    %eax,%ecx
mov    %ecx,0x1c(%rsp)
jle    12d0 <ratint+0x1a0>
mov    0x14(%rsp),%r12d
add    $0xffffffffffffffff,%r12
xor    %r13d,%r13d
jmp    138b <ratint+0x25b>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
subss  %xmm3,%xmm1
divss  %xmm4,%xmm1
mulss  %xmm1,%xmm0
movss  %xmm0,0x4(%rbp,%r13,4)
mulss  %xmm1,%xmm2
movss  %xmm2,0x4(%rbx,%r13,4)
add    $0x1,%r13
cmp    %r13,%r12
je     12d0 <ratint+0x1a0>
movss  0x8(%rbx,%r13,4),%xmm1
movss  0x4(%rbp,%r13,4),%xmm3
movss  (%r14,%r13,4),%xmm0
subss  %xmm6,%xmm0
movss  0x4(%r15,%r13,4),%xmm2
subss  %xmm6,%xmm2
mulss  %xmm3,%xmm2
divss  %xmm0,%xmm2
movaps %xmm2,%xmm4
subss  %xmm1,%xmm4
ucomiss 0xc54(%rip),%xmm4
movaps %xmm1,%xmm0
jne    1360 <ratint+0x230>
jp     1360 <ratint+0x230>
lea    0xc4a(%rip),%rdi
movss  %xmm1,0x2c(%rsp)
movss  %xmm2,0x28(%rsp)
movss  %xmm3,0x24(%rsp)
movss  %xmm4,0x20(%rsp)
call   1030 <nrerror@plt>
movss  0x20(%rsp),%xmm4
movss  0x24(%rsp),%xmm3
movss  0x28(%rsp),%xmm2
movss  0x2c(%rsp),%xmm1
movss  0x18(%rsp),%xmm6
movss  0x8(%rbx,%r13,4),%xmm0
jmp    1360 <ratint+0x230>

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

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