#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 */
int /*<<< orphan*/ cyclic(float *, float *, float *, float, float, float *,
                          float *, int);
int /*<<< orphan*/ free_ivector(int *, int, int);
int /*<<< orphan*/ free_matrix(float **, int, int, int, int);
int /*<<< orphan*/ free_vector(float *, int, int);
int *ivector(int, int);
int /*<<< orphan*/ lubksb(float **, int, int *, float *);
int /*<<< orphan*/ ludcmp(float **, int, int *, float *);
float **matrix(int, int, int, int);
int /*<<< orphan*/ printf(char *, int, float);
float ran2(long *);
float *vector(int, int);
int main(void) {
  float alpha, beta, d, *a, *b, *c, *r, *x, **aa;
  int i, j, *indx;
  long idum = (-23);
  indx = ivector(1, 20);
  a = vector(1, 20);
  b = vector(1, 20);
  c = vector(1, 20);
  r = vector(1, 20);
  x = vector(1, 20);
  aa = matrix(1, 20, 1, 20);
  for (i = 1; i <= 20; i++)
    for (j = 1; j <= 20; j++)
      aa[i][j] = 0.0;
  for (i = 1; i <= 20; i++) {
    b[i] = ran2(&idum);
    aa[i][i] = b[i];
    r[i] = ran2(&idum);
  }
  for (i = 1; i < 20; i++) {
    a[i + 1] = ran2(&idum);
    aa[i + 1][i] = a[i + 1];
    c[i] = ran2(&idum);
    aa[i][i + 1] = c[i];
  }
  alpha = ran2(&idum);
  aa[20][1] = alpha;
  beta = ran2(&idum);
  aa[1][20] = beta;
  cyclic(a, b, c, alpha, beta, r, x, 20);
  ludcmp(aa, 20, indx, &d);
  lubksb(aa, 20, indx, r);
  for (i = 1; i <= 20; i++)
    printf("%4d  %12.6e\n", i, (x[i] - r[i]) / (x[i] + r[i]));
  free_matrix(aa, 1, 20, 1, 20);
  free_vector(x, 1, 20);
  free_vector(r, 1, 20);
  free_vector(c, 1, 20);
  free_vector(b, 1, 20);
  free_vector(a, 1, 20);
  free_ivector(indx, 1, 20);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
movl   $0x0,-0x4(%rbp)
movq   $0xffffffffffffffe9,-0x58(%rbp)
ff
mov    $0x1,%edi
mov    $0x14,%esi
call   10d0 <ivector@plt>
mov    %rax,-0x50(%rbp)
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,-0x18(%rbp)
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,-0x20(%rbp)
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,-0x28(%rbp)
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,-0x30(%rbp)
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,-0x38(%rbp)
mov    $0x1,%edx
mov    $0x14,%ecx
mov    %edx,%edi
mov    %ecx,%esi
call   10a0 <matrix@plt>
mov    %rax,-0x40(%rbp)
movl   $0x1,-0x44(%rbp)
cmpl   $0x14,-0x44(%rbp)
jg     12ab <main+0xfb>
movl   $0x1,-0x48(%rbp)
cmpl   $0x14,-0x48(%rbp)
jg     1298 <main+0xe8>
mov    -0x40(%rbp),%rax
movslq -0x44(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x48(%rbp),%rcx
xorps  %xmm0,%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x48(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x48(%rbp)
jmp    1268 <main+0xb8>
jmp    129d <main+0xed>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    1257 <main+0xa7>
movl   $0x1,-0x44(%rbp)
cmpl   $0x14,-0x44(%rbp)
jg     1318 <main+0x168>
lea    -0x58(%rbp),%rdi
call   1060 <ran2@plt>
mov    -0x20(%rbp),%rax
movslq -0x44(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x20(%rbp),%rax
movslq -0x44(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x40(%rbp),%rax
movslq -0x44(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x44(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
lea    -0x58(%rbp),%rdi
call   1060 <ran2@plt>
mov    -0x30(%rbp),%rax
movslq -0x44(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    12b2 <main+0x102>
movl   $0x1,-0x44(%rbp)
cmpl   $0x14,-0x44(%rbp)
jge    13bb <main+0x20b>
lea    -0x58(%rbp),%rdi
call   1060 <ran2@plt>
mov    -0x18(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x18(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x40(%rbp),%rax
mov    -0x44(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x44(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
lea    -0x58(%rbp),%rdi
call   1060 <ran2@plt>
mov    -0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x40(%rbp),%rax
movslq -0x44(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x44(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    131f <main+0x16f>
lea    -0x58(%rbp),%rdi
call   1060 <ran2@plt>
movss  %xmm0,-0x8(%rbp)
movss  -0x8(%rbp),%xmm0
mov    -0x40(%rbp),%rax
mov    0xa0(%rax),%rax
movss  %xmm0,0x4(%rax)
lea    -0x58(%rbp),%rdi
call   1060 <ran2@plt>
movss  %xmm0,-0xc(%rbp)
movss  -0xc(%rbp),%xmm0
mov    -0x40(%rbp),%rax
mov    0x8(%rax),%rax
movss  %xmm0,0x50(%rax)
mov    -0x18(%rbp),%rdi
mov    -0x20(%rbp),%rsi
mov    -0x28(%rbp),%rdx
movss  -0x8(%rbp),%xmm0
movss  -0xc(%rbp),%xmm1
mov    -0x30(%rbp),%rcx
mov    -0x38(%rbp),%r8
mov    $0x14,%r9d
call   1050 <cyclic@plt>
mov    -0x40(%rbp),%rdi
mov    -0x50(%rbp),%rdx
mov    $0x14,%esi
lea    -0x10(%rbp),%rcx
call   1030 <ludcmp@plt>
mov    -0x40(%rbp),%rdi
mov    -0x50(%rbp),%rdx
mov    -0x30(%rbp),%rcx
mov    $0x14,%esi
call   1090 <lubksb@plt>
movl   $0x1,-0x44(%rbp)
cmpl   $0x14,-0x44(%rbp)
jg     14b9 <main+0x309>
mov    -0x44(%rbp),%esi
mov    -0x38(%rbp),%rax
movslq -0x44(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x44(%rbp),%rcx
subss  (%rax,%rcx,4),%xmm0
mov    -0x38(%rbp),%rax
movslq -0x44(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
mov    -0x30(%rbp),%rax
movslq -0x44(%rbp),%rcx
addss  (%rax,%rcx,4),%xmm1
divss  %xmm1,%xmm0
lea    0xb5a(%rip),%rdi
call   1070 <printf@plt>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    145a <main+0x2aa>
mov    -0x40(%rbp),%rdi
mov    $0x1,%ecx
mov    $0x14,%r8d
mov    %ecx,%esi
mov    %r8d,%edx
call   1040 <free_matrix@plt>
mov    -0x38(%rbp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    -0x30(%rbp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    -0x28(%rbp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    -0x20(%rbp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    -0x18(%rbp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    -0x50(%rbp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   10c0 <free_ivector@plt>
xor    %eax,%eax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x48,%rsp
movq   $0xffffffffffffffe9,0x8(%rsp)
ff ff
mov    $0x1,%edi
mov    $0x14,%esi
call   10d0 <ivector@plt>
mov    %rax,0x38(%rsp)
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,0x28(%rsp)
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,%r15
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,0x18(%rsp)
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,%r13
mov    $0x1,%edi
mov    $0x14,%esi
call   10b0 <vector@plt>
mov    %rax,0x30(%rsp)
mov    $0x1,%edi
mov    $0x14,%esi
mov    $0x1,%edx
mov    $0x14,%ecx
call   10a0 <matrix@plt>
mov    %rax,%r14
mov    0x8(%rax),%rax
xorps  %xmm0,%xmm0
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x10(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x18(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x20(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x28(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x30(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x38(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x40(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x48(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x50(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x58(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x60(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x68(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x70(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x78(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x80(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x88(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x90(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0x98(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
mov    0xa0(%r14),%rax
movups %xmm0,0x4(%rax)
movups %xmm0,0x14(%rax)
movups %xmm0,0x24(%rax)
movups %xmm0,0x34(%rax)
movups %xmm0,0x44(%rax)
xor    %ebp,%ebp
lea    0x8(%rsp),%rbx
mov    %rbx,%rdi
call   1060 <ran2@plt>
movss  %xmm0,0x4(%r15,%rbp,1)
mov    0x8(%r14,%rbp,2),%rax
movss  %xmm0,0x4(%rax,%rbp,1)
mov    %rbx,%rdi
call   1060 <ran2@plt>
movss  %xmm0,0x4(%r13,%rbp,1)
add    $0x4,%rbp
cmp    $0x50,%rbp
jne    1450 <main+0x2a0>
mov    %r15,0x20(%rsp)
xor    %ebx,%ebx
lea    0x8(%rsp),%r15
mov    0x28(%rsp),%rbp
mov    0x18(%rsp),%r12
nopl   0x0(%rax)
mov    %r15,%rdi
call   1060 <ran2@plt>
movss  %xmm0,0x8(%rbp,%rbx,1)
mov    0x10(%r14,%rbx,2),%rax
movss  %xmm0,0x4(%rax,%rbx,1)
mov    %r15,%rdi
call   1060 <ran2@plt>
movss  %xmm0,0x4(%r12,%rbx,1)
mov    0x8(%r14,%rbx,2),%rax
movss  %xmm0,0x8(%rax,%rbx,1)
add    $0x4,%rbx
cmp    $0x4c,%rbx
jne    14a0 <main+0x2f0>
lea    0x8(%rsp),%rbx
mov    %rbx,%rdi
call   1060 <ran2@plt>
movss  %xmm0,0x14(%rsp)
mov    0xa0(%r14),%rax
movss  %xmm0,0x4(%rax)
mov    %rbx,%rdi
call   1060 <ran2@plt>
movaps %xmm0,%xmm1
mov    0x8(%r14),%rax
movss  %xmm0,0x50(%rax)
mov    %rbp,%rdi
mov    0x20(%rsp),%rsi
mov    %r12,%rdx
movss  0x14(%rsp),%xmm0
mov    %r13,%rcx
mov    0x30(%rsp),%rbx
mov    %rbx,%r8
mov    $0x14,%r9d
call   1050 <cyclic@plt>
lea    0x44(%rsp),%rcx
mov    %r14,%rdi
mov    $0x14,%esi
mov    0x38(%rsp),%r15
mov    %r15,%rdx
call   1030 <ludcmp@plt>
mov    %r14,%rdi
mov    $0x14,%esi
mov    %r15,%rdx
mov    %r13,%rcx
call   1090 <lubksb@plt>
mov    $0x1,%ebp
lea    0xa90(%rip),%r12
movss  (%rbx,%rbp,4),%xmm1
movss  0x0(%r13,%rbp,4),%xmm2
movaps %xmm1,%xmm0
subss  %xmm2,%xmm0
addss  %xmm2,%xmm1
divss  %xmm1,%xmm0
mov    %r12,%rdi
mov    %ebp,%esi
call   1070 <printf@plt>
add    $0x1,%rbp
cmp    $0x15,%rbp
jne    1570 <main+0x3c0>
mov    %r14,%rdi
mov    $0x1,%esi
mov    $0x14,%edx
mov    $0x1,%ecx
mov    $0x14,%r8d
call   1040 <free_matrix@plt>
mov    %rbx,%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    %r13,%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    0x18(%rsp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    0x20(%rsp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    0x28(%rsp),%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   1080 <free_vector@plt>
mov    %r15,%rdi
mov    $0x1,%esi
mov    $0x14,%edx
call   10c0 <free_ivector@plt>
xor    %eax,%eax
add    $0x48,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [13 x i8] c"%4d %12.6e\0A\00"
define i32 @main() {
%1 = alloca float
%2 = alloca i64
%3 = bitcast float* %1 to i8*
%4 = bitcast i64* %2 to i8*
store i64 -23, i64* %2
%5 = tail call i32* @ivector(i32 1, i32 20)
%6 = tail call float* @vector(i32 1, i32 20)
%7 = tail call float* @vector(i32 1, i32 20)
%8 = tail call float* @vector(i32 1, i32 20)
%9 = tail call float* @vector(i32 1, i32 20)
%10 = tail call float* @vector(i32 1, i32 20)
%11 = tail call float** @matrix(i32 1, i32 20, i32 1, i32 20)
%12 = getelementptr inbounds float*, float** %11, i64 1
%13 = load float*, float** %12
%14 = getelementptr float, float* %13, i64 1
%15 = bitcast float* %14 to i8*
%16 = getelementptr inbounds float*, float** %11, i64 2
%17 = load float*, float** %16
%18 = getelementptr float, float* %17, i64 1
%19 = bitcast float* %18 to i8*
%20 = getelementptr inbounds float*, float** %11, i64 3
%21 = load float*, float** %20
%22 = getelementptr float, float* %21, i64 1
%23 = bitcast float* %22 to i8*
%24 = getelementptr inbounds float*, float** %11, i64 4
%25 = load float*, float** %24
%26 = getelementptr float, float* %25, i64 1
%27 = bitcast float* %26 to i8*
%28 = getelementptr inbounds float*, float** %11, i64 5
%29 = load float*, float** %28
%30 = getelementptr float, float* %29, i64 1
%31 = bitcast float* %30 to i8*
%32 = getelementptr inbounds float*, float** %11, i64 6
%33 = load float*, float** %32
%34 = getelementptr float, float* %33, i64 1
%35 = bitcast float* %34 to i8*
%36 = getelementptr inbounds float*, float** %11, i64 7
%37 = load float*, float** %36
%38 = getelementptr float, float* %37, i64 1
%39 = bitcast float* %38 to i8*
%40 = getelementptr inbounds float*, float** %11, i64 8
%41 = load float*, float** %40
%42 = getelementptr float, float* %41, i64 1
%43 = bitcast float* %42 to i8*
%44 = getelementptr inbounds float*, float** %11, i64 9
%45 = load float*, float** %44
%46 = getelementptr float, float* %45, i64 1
%47 = bitcast float* %46 to i8*
%48 = getelementptr inbounds float*, float** %11, i64 10
%49 = load float*, float** %48
%50 = getelementptr float, float* %49, i64 1
%51 = bitcast float* %50 to i8*
%52 = getelementptr inbounds float*, float** %11, i64 11
%53 = load float*, float** %52
%54 = getelementptr float, float* %53, i64 1
%55 = bitcast float* %54 to i8*
%56 = getelementptr inbounds float*, float** %11, i64 12
%57 = load float*, float** %56
%58 = getelementptr float, float* %57, i64 1
%59 = bitcast float* %58 to i8*
%60 = getelementptr inbounds float*, float** %11, i64 13
%61 = load float*, float** %60
%62 = getelementptr float, float* %61, i64 1
%63 = bitcast float* %62 to i8*
%64 = getelementptr inbounds float*, float** %11, i64 14
%65 = load float*, float** %64
%66 = getelementptr float, float* %65, i64 1
%67 = bitcast float* %66 to i8*
%68 = getelementptr inbounds float*, float** %11, i64 15
%69 = load float*, float** %68
%70 = getelementptr float, float* %69, i64 1
%71 = bitcast float* %70 to i8*
%72 = getelementptr inbounds float*, float** %11, i64 16
%73 = load float*, float** %72
%74 = getelementptr float, float* %73, i64 1
%75 = bitcast float* %74 to i8*
%76 = getelementptr inbounds float*, float** %11, i64 17
%77 = load float*, float** %76
%78 = getelementptr float, float* %77, i64 1
%79 = bitcast float* %78 to i8*
%80 = getelementptr inbounds float*, float** %11, i64 18
%81 = load float*, float** %80
%82 = getelementptr float, float* %81, i64 1
%83 = bitcast float* %82 to i8*
%84 = getelementptr inbounds float*, float** %11, i64 19
%85 = load float*, float** %84
%86 = getelementptr float, float* %85, i64 1
%87 = bitcast float* %86 to i8*
%88 = getelementptr inbounds float*, float** %11, i64 20
%89 = load float*, float** %88
%90 = getelementptr float, float* %89, i64 1
%91 = bitcast float* %90 to i8*
br label %92
92: ; preds = %0, %92
%93 = phi i64 [ 1, %0 ], [ %101, %92 ]
%94 = call float @ran2(i64* %2)
%95 = getelementptr inbounds float, float* %7, i64 %93
store float %94, float* %95
%96 = getelementptr inbounds float*, float** %11, i64 %93
%97 = load float*, float** %96
%98 = getelementptr inbounds float, float* %97, i64 %93
store float %94, float* %98
%99 = call float @ran2(i64* %2)
%100 = getelementptr inbounds float, float* %9, i64 %93
store float %99, float* %100
%101 = add nuw nsw i64 %93, 1
%102 = icmp eq i64 %101, 21
br i1 %102, label %103, label %92
103: ; preds = %92, %103
%104 = phi i64 [ %106, %103 ], [ 1, %92 ]
%105 = call float @ran2(i64* %2)
%106 = add nuw nsw i64 %104, 1
%107 = getelementptr inbounds float, float* %6, i64 %106
store float %105, float* %107
%108 = getelementptr inbounds float*, float** %11, i64 %106
%109 = load float*, float** %108
%110 = getelementptr inbounds float, float* %109, i64 %104
store float %105, float* %110
%111 = call float @ran2(i64* %2)
%112 = getelementptr inbounds float, float* %8, i64 %104
store float %111, float* %112
%113 = getelementptr inbounds float*, float** %11, i64 %104
%114 = load float*, float** %113
%115 = getelementptr inbounds float, float* %114, i64 %106
store float %111, float* %115
%116 = icmp eq i64 %106, 20
br i1 %116, label %117, label %103
117: ; preds = %103
%118 = call float @ran2(i64* %2)
%119 = load float*, float** %88
%120 = getelementptr inbounds float, float* %119, i64 1
store float %118, float* %120
%121 = call float @ran2(i64* %2)
%122 = load float*, float** %12
%123 = getelementptr inbounds float, float* %122, i64 20
store float %121, float* %123
%124 = call i32 @cyclic(float* %6, float* %7, float* %8, float %118, float %121, float* %9, float* %10, i32 20)
%125 = call i32 @ludcmp(float** %11, i32 20, i32* %5, float* %1)
%126 = call i32 @lubksb(float** %11, i32 20, i32* %5, float* %9)
br label %127
127: ; preds = %117, %127
%128 = phi i64 [ 1, %117 ], [ %138, %127 ]
%129 = getelementptr inbounds float, float* %10, i64 %128
%130 = load float, float* %129
%131 = getelementptr inbounds float, float* %9, i64 %128
%132 = load float, float* %131
%133 = fsub float %130, %132
%134 = fadd float %130, %132
%135 = fdiv float %133, %134
%136 = trunc i64 %128 to i32
%137 = call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0), i32 %136, float %135)
%138 = add nuw nsw i64 %128, 1
%139 = icmp eq i64 %138, 21
br i1 %139, label %140, label %127
140: ; preds = %127
%141 = call i32 @free_matrix(float** %11, i32 1, i32 20, i32 1, i32 20)
%142 = call i32 @free_vector(float* %10, i32 1, i32 20)
%143 = call i32 @free_vector(float* %9, i32 1, i32 20)
%144 = call i32 @free_vector(float* %8, i32 1, i32 20)
%145 = call i32 @free_vector(float* %7, i32 1, i32 20)
%146 = call i32 @free_vector(float* %6, i32 1, i32 20)
%147 = call i32 @free_ivector(i32* %5, i32 1, i32 20)
ret i32 0
}