#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*/ free_vector(float *, int, unsigned long);
int /*<<< orphan*/ nrerror(char *);
float *vector(int, unsigned long);
void tridag(float a[], float b[], float c[], float r[], float u[],
            unsigned long n) {
  unsigned long j;
  float bet, *gam;
  gam = vector(1, n);
  if (b[1] == 0.0)
    nrerror("Error 1 in tridag");
  u[1] = r[1] / (bet = b[1]);
  for (j = 2; j <= n; j++) {
    gam[j] = c[j - 1] / bet;
    bet = b[j] - a[j] * gam[j];
    if (bet == 0.0)
      nrerror("Error 2 in tridag");
    u[j] = (r[j] - a[j] * u[j - 1]) / bet;
  }
  for (j = (n - 1); j >= 1; j--)
    u[j] -= gam[j + 1] * u[j + 1];
  free_vector(gam, 1, n);
}


x86 assembly (clang, -O0):
<tridag>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x30(%rbp),%rsi
mov    $0x1,%edi
call   1050 <vector@plt>
mov    %rax,-0x48(%rbp)
mov    -0x10(%rbp),%rax
movss  0x4(%rax),%xmm0
cvtss2sd %xmm0,%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    118e <tridag+0x5e>
jp     118e <tridag+0x5e>
lea    0xe77(%rip),%rdi
call   1030 <nrerror@plt>
mov    -0x20(%rbp),%rax
movss  0x4(%rax),%xmm0
mov    -0x10(%rbp),%rax
movss  0x4(%rax),%xmm1
movss  %xmm1,-0x3c(%rbp)
divss  %xmm1,%xmm0
mov    -0x28(%rbp),%rax
movss  %xmm0,0x4(%rax)
movq   $0x2,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x30(%rbp),%rax
ja     12b7 <tridag+0x187>
mov    -0x18(%rbp),%rax
mov    -0x38(%rbp),%rcx
sub    $0x1,%rcx
movss  (%rax,%rcx,4),%xmm0
divss  -0x3c(%rbp),%xmm0
mov    -0x48(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x10(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x48(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm2
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
mulss  %xmm2,%xmm0
addss  %xmm1,%xmm0
movss  %xmm0,-0x3c(%rbp)
movss  -0x3c(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1254 <tridag+0x124>
jp     1254 <tridag+0x124>
lea    0xdc3(%rip),%rdi
call   1030 <nrerror@plt>
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
sub    $0x1,%rcx
movss  (%rax,%rcx,4),%xmm2
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
mulss  %xmm2,%xmm0
addss  %xmm1,%xmm0
divss  -0x3c(%rbp),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    11ba <tridag+0x8a>
mov    -0x30(%rbp),%rax
sub    $0x1,%rax
mov    %rax,-0x38(%rbp)
cmpq   $0x1,-0x38(%rbp)
jb     1323 <tridag+0x1f3>
mov    -0x48(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  0x4(%rax,%rcx,4),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  0x4(%rax,%rcx,4),%xmm2
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
movd   %xmm0,%edx
xor    $0x80000000,%edx
movd   %edx,%xmm0
mulss  %xmm2,%xmm0
addss  %xmm1,%xmm0
movss  %xmm0,(%rax,%rcx,4)
mov    -0x38(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x38(%rbp)
jmp    12c3 <tridag+0x193>
mov    -0x48(%rbp),%rdi
mov    -0x30(%rbp),%rdx
mov    $0x1,%esi
call   1040 <free_vector@plt>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<tridag>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %r8,%rbx
mov    %rcx,%r12
mov    %rdx,0x10(%rsp)
mov    %rsi,%rbp
mov    %rdi,%r14
mov    $0x1,%edi
mov    %r9,0x8(%rsp)
mov    %r9,%rsi
call   1050 <vector@plt>
mov    %rax,%r15
movss  0x4(%rbp),%xmm2
xorps  %xmm0,%xmm0
ucomiss %xmm0,%xmm2
jne    1184 <tridag+0x54>
jp     1184 <tridag+0x54>
lea    0xe9a(%rip),%rdi
call   1030 <nrerror@plt>
movss  0x4(%rbp),%xmm2
movss  0x4(%r12),%xmm0
divss  %xmm2,%xmm0
movss  %xmm0,0x4(%rbx)
mov    0x8(%rsp),%rdx
cmp    $0x2,%rdx
jae    11ce <tridag+0x9e>
mov    %rdx,%rax
add    $0xffffffffffffffff,%rax
je     12cb <tridag+0x19b>
movss  (%rbx,%rdx,4),%xmm0
test   $0x1,%al
jne    1265 <tridag+0x135>
mov    %rax,%rcx
mov    %rdx,%rax
cmp    $0x2,%rdx
jne    1288 <tridag+0x158>
jmp    12cb <tridag+0x19b>
mov    $0x2,%r13d
jmp    1207 <tridag+0xd7>
cs nopw 0x0(%rax,%rax,1)
xorps  0xe19(%rip),%xmm0
mulss  -0x4(%rbx,%r13,4),%xmm0
addss  (%r12,%r13,4),%xmm0
divss  %xmm2,%xmm0
movss  %xmm0,(%rbx,%r13,4)
add    $0x1,%r13
cmp    %rdx,%r13
ja     119f <tridag+0x6f>
mov    0x10(%rsp),%rax
movss  -0x4(%rax,%r13,4),%xmm1
divss  %xmm2,%xmm1
movss  %xmm1,(%r15,%r13,4)
movss  0x0(%rbp,%r13,4),%xmm2
movss  (%r14,%r13,4),%xmm0
mulss  %xmm0,%xmm1
subss  %xmm1,%xmm2
ucomiss 0xdd7(%rip),%xmm2
jne    11e0 <tridag+0xb0>
jp     11e0 <tridag+0xb0>
lea    0xde2(%rip),%rdi
movss  %xmm2,0x4(%rsp)
call   1030 <nrerror@plt>
movss  0x4(%rsp),%xmm2
mov    0x8(%rsp),%rdx
movss  (%r14,%r13,4),%xmm0
jmp    11e0 <tridag+0xb0>
mulss  (%r15,%rdx,4),%xmm0
movss  -0x4(%rbx,%rdx,4),%xmm1
subss  %xmm0,%xmm1
movss  %xmm1,-0x4(%rbx,%rdx,4)
lea    -0x2(%rdx),%rcx
movaps %xmm1,%xmm0
cmp    $0x2,%rdx
je     12cb <tridag+0x19b>
add    $0xffffffffffffffff,%rcx
nopl   0x0(%rax)
movss  (%rbx,%rcx,4),%xmm1
movss  0x4(%rbx,%rcx,4),%xmm2
mulss  (%r15,%rax,4),%xmm0
subss  %xmm0,%xmm2
movss  %xmm2,0x4(%rbx,%rcx,4)
mulss  0x4(%r15,%rcx,4),%xmm2
subss  %xmm2,%xmm1
movss  %xmm1,(%rbx,%rcx,4)
mov    %rcx,%rax
add    $0xfffffffffffffffe,%rcx
movaps %xmm1,%xmm0
cmp    $0xffffffffffffffff,%rcx
jne    1290 <tridag+0x160>
mov    %r15,%rdi
mov    $0x1,%esi
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1040 <free_vector@plt>

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

LLVM IR (-O2):
@.str = [18 x i8] c"Error 1 in tridag\00"
@.str.1 = [18 x i8] c"Error 2 in tridag\00"
define void @tridag(float* nocapture %0, float* nocapture %1, float* nocapture %2, float* nocapture %3, float* nocapture %4, i64 %5) {
%7 = tail call float* @vector(i32 1, i64 %5)
%8 = getelementptr inbounds float, float* %1, i64 1
%9 = load float, float* %8
%10 = fcmp oeq float %9, 0.000000e+00
br i1 %10, label %11, label %14
11: ; preds = %6
%12 = tail call i32 @nrerror(i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str, i64 0, i64 0))
%13 = load float, float* %8
br label %14
14: ; preds = %11, %6
%15 = phi float [ %13, %11 ], [ %9, %6 ]
%16 = getelementptr inbounds float, float* %3, i64 1
%17 = load float, float* %16
%18 = fdiv float %17, %15
%19 = getelementptr inbounds float, float* %4, i64 1
store float %18, float* %19
%20 = icmp ult i64 %5, 2
br i1 %20, label %21, label %42
21: ; preds = %61, %14
%22 = add i64 %5, -1
%23 = icmp eq i64 %22, 0
br i1 %23, label %91, label %24
24: ; preds = %21
%25 = getelementptr inbounds float, float* %4, i64 %5
%26 = load float, float* %25
%27 = and i64 %22, 1
%28 = icmp eq i64 %27, 0
br i1 %28, label %37, label %29
29: ; preds = %24
%30 = getelementptr inbounds float, float* %7, i64 %5
%31 = load float, float* %30
%32 = getelementptr inbounds float, float* %4, i64 %22
%33 = load float, float* %32
%34 = fneg float %31
%35 = tail call float @llvm.fmuladd.f32(float %34, float %26, float %33)
store float %35, float* %32
%36 = add i64 %5, -2
br label %37
37: ; preds = %29, %24
%38 = phi float [ %26, %24 ], [ %35, %29 ]
%39 = phi i64 [ %22, %24 ], [ %36, %29 ]
%40 = phi i64 [ %5, %24 ], [ %22, %29 ]
%41 = icmp eq i64 %5, 2
br i1 %41, label %91, label %72
42: ; preds = %14, %61
%43 = phi i64 [ %70, %61 ], [ 2, %14 ]
%44 = phi float [ %55, %61 ], [ %15, %14 ]
%45 = add i64 %43, -1
%46 = getelementptr inbounds float, float* %2, i64 %45
%47 = load float, float* %46
%48 = fdiv float %47, %44
%49 = getelementptr inbounds float, float* %7, i64 %43
store float %48, float* %49
%50 = getelementptr inbounds float, float* %1, i64 %43
%51 = load float, float* %50
%52 = getelementptr inbounds float, float* %0, i64 %43
%53 = load float, float* %52
%54 = fneg float %53
%55 = tail call float @llvm.fmuladd.f32(float %54, float %48, float %51)
%56 = fcmp oeq float %55, 0.000000e+00
br i1 %56, label %57, label %61
57: ; preds = %42
%58 = tail call i32 @nrerror(i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.1, i64 0, i64 0))
%59 = load float, float* %52
%60 = fneg float %59
br label %61
61: ; preds = %57, %42
%62 = phi float [ %60, %57 ], [ %54, %42 ]
%63 = getelementptr inbounds float, float* %3, i64 %43
%64 = load float, float* %63
%65 = getelementptr inbounds float, float* %4, i64 %45
%66 = load float, float* %65
%67 = tail call float @llvm.fmuladd.f32(float %62, float %66, float %64)
%68 = fdiv float %67, %55
%69 = getelementptr inbounds float, float* %4, i64 %43
store float %68, float* %69
%70 = add i64 %43, 1
%71 = icmp ugt i64 %70, %5
br i1 %71, label %21, label %42
72: ; preds = %37, %72
%73 = phi float [ %88, %72 ], [ %38, %37 ]
%74 = phi i64 [ %89, %72 ], [ %39, %37 ]
%75 = phi i64 [ %82, %72 ], [ %40, %37 ]
%76 = getelementptr inbounds float, float* %7, i64 %75
%77 = load float, float* %76
%78 = getelementptr inbounds float, float* %4, i64 %74
%79 = load float, float* %78
%80 = fneg float %77
%81 = tail call float @llvm.fmuladd.f32(float %80, float %73, float %79)
store float %81, float* %78
%82 = add i64 %74, -1
%83 = getelementptr inbounds float, float* %7, i64 %74
%84 = load float, float* %83
%85 = getelementptr inbounds float, float* %4, i64 %82
%86 = load float, float* %85
%87 = fneg float %84
%88 = tail call float @llvm.fmuladd.f32(float %87, float %81, float %86)
store float %88, float* %85
%89 = add i64 %74, -2
%90 = icmp eq i64 %89, 0
br i1 %90, label %91, label %72
91: ; preds = %37, %72, %21
%92 = tail call i32 @free_vector(float* %7, i32 1, i64 %5)
ret void
}