#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 fabs(double);
int /*<<< orphan*/ printf(char *, double, double);
int sqrt(double);
int hougenu(double *A, int lda, int index, int row, int col, double *u,
            double *beta) {
  int i;
  double yty = 0, sigma = 0;
  int iptx = lda * col;
  for (i = index; i < row; i++) {
    yty += A[i + iptx] * A[i + iptx];
  }
  printf("%lf %lf\n", yty, A[index + iptx] * A[index + iptx]);
  if (yty == 0 || fabs(yty - A[index + iptx] * A[index + iptx]) < 1E-10)
    return 0;
  sigma = (A[index + iptx] > -0 ? 1 : -1) * sqrt(yty);
  for (i = 0; i < row - index; i++) {
    if (i == 0) {
      u[i] = A[i + index + iptx] + sigma;
      A[i + index + iptx] = -1 * sigma;
    } else {
      u[i] = A[i + index + iptx];
      A[i + index + iptx] = 0;
    }
  }
  *beta = -1.0 / (sigma * u[0]);
  printf("the beta is:%lf u[0] is:%lf\n", *beta, u[0]);
  return 1;
}


x86 assembly (clang, -O0):
<hougenu>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    0x10(%rbp),%rax
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8d,-0x20(%rbp)
mov    %r9,-0x28(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x14(%rbp),%eax
imul   -0x20(%rbp),%eax
mov    %eax,-0x44(%rbp)
mov    -0x18(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    11c1 <hougenu+0x91>
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x38(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1171 <hougenu+0x41>
movsd  -0x38(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
mulsd  (%rax,%rcx,8),%xmm1
lea    0xe1f(%rip),%rdi
call   1030 <printf@plt>
movsd  -0x38(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1213 <hougenu+0xe3>
jp     1213 <hougenu+0xe3>
jmp    1276 <hougenu+0x146>
movsd  -0x38(%rbp),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
call   1040 <fabs@plt>
cvtsi2sd %eax,%xmm1
movsd  0xd94(%rip),%xmm0
ucomisd %xmm1,%xmm0
jbe    1282 <hougenu+0x152>
movl   $0x0,-0x4(%rbp)
jmp    13c7 <hougenu+0x297>
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
mov    $0xffffffff,%eax
mov    $0x1,%ecx
ucomisd %xmm1,%xmm0
cmova  %ecx,%eax
mov    %eax,-0x48(%rbp)
movsd  -0x38(%rbp),%xmm0
call   1050 <sqrt@plt>
mov    %eax,%ecx
mov    -0x48(%rbp),%eax
imul   %ecx,%eax
cvtsi2sd %eax,%xmm0
movsd  %xmm0,-0x40(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    -0x1c(%rbp),%ecx
sub    -0x18(%rbp),%ecx
cmp    %ecx,%eax
jge    1383 <hougenu+0x253>
cmpl   $0x0,-0x2c(%rbp)
jne    1336 <hougenu+0x206>
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x40(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  0xcf1(%rip),%xmm0
mulsd  -0x40(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1370 <hougenu+0x240>
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x18(%rbp),%ecx
add    -0x44(%rbp),%ecx
movslq %ecx,%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
jmp    1375 <hougenu+0x245>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    12cd <hougenu+0x19d>
movsd  -0x40(%rbp),%xmm1
mov    -0x28(%rbp),%rax
mulsd  (%rax),%xmm1
movsd  0xc70(%rip),%xmm0
divsd  %xmm1,%xmm0
mov    0x10(%rbp),%rax
movsd  %xmm0,(%rax)
mov    0x10(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x28(%rbp),%rax
movsd  (%rax),%xmm1
lea    0xc5e(%rip),%rdi
call   1030 <printf@plt>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<hougenu>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %edx,%r12d
mov    %esi,%r14d
mov    %rdi,%r13
imul   %r8d,%r14d
mov    %ecx,%r10d
xorpd  %xmm0,%xmm0
sub    %edx,%r10d
jle    1210 <hougenu+0xe0>
movslq %r12d,%rax
movslq %r14d,%r8
movslq %ecx,%rcx
mov    %rax,%rbx
not    %rbx
add    %rcx,%rbx
mov    %r10,%rdi
and    $0x3,%rdi
je     11b0 <hougenu+0x80>
lea    0x0(,%r8,8),%rbp
add    %r13,%rbp
xorpd  %xmm0,%xmm0
cs nopw 0x0(%rax,%rax,1)
nop
movsd  0x0(%rbp,%rax,8),%xmm1
mulsd  %xmm1,%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rax
add    $0xffffffffffffffff,%rdi
jne    1190 <hougenu+0x60>
cmp    $0x3,%rbx
jae    11ba <hougenu+0x8a>
jmp    1210 <hougenu+0xe0>
xorpd  %xmm0,%xmm0
cmp    $0x3,%rbx
jb     1210 <hougenu+0xe0>
lea    0x18(,%r8,8),%rdi
add    %r13,%rdi
cs nopw 0x0(%rax,%rax,1)
nop
movsd  -0x18(%rdi,%rax,8),%xmm2
movsd  -0x10(%rdi,%rax,8),%xmm1
mulsd  %xmm2,%xmm2
addsd  %xmm0,%xmm2
mulsd  %xmm1,%xmm1
addsd  %xmm2,%xmm1
movsd  -0x8(%rdi,%rax,8),%xmm2
mulsd  %xmm2,%xmm2
addsd  %xmm1,%xmm2
movsd  (%rdi,%rax,8),%xmm0
mulsd  %xmm0,%xmm0
addsd  %xmm2,%xmm0
add    $0x4,%rax
cmp    %rax,%rcx
jne    11d0 <hougenu+0xa0>
movsd  %xmm0,0x8(%rsp)
mov    %r10,0x28(%rsp)
mov    %r9,0x30(%rsp)
lea    (%r14,%r12,1),%ebx
movslq %ebx,%r15
movsd  0x0(%r13,%r15,8),%xmm1
mulsd  %xmm1,%xmm1
lea    0xde7(%rip),%rdi
call   1030 <printf@plt>
movsd  0x8(%rsp),%xmm2
xor    %ebp,%ebp
ucomisd 0xdca(%rip),%xmm2
jne    1256 <hougenu+0x126>
jnp    14c3 <hougenu+0x393>
mov    %r14,0x10(%rsp)
mov    %r12,0x18(%rsp)
movsd  0x0(%r13,%r15,8),%xmm1
mulsd  %xmm1,%xmm1
movapd %xmm2,%xmm0
subsd  %xmm1,%xmm0
call   1040 <fabs@plt>
test   %eax,%eax
jle    14c3 <hougenu+0x393>
mov    0x70(%rsp),%rbp
movsd  0x0(%r13,%r15,8),%xmm0
movsd  %xmm0,0x20(%rsp)
movsd  0x8(%rsp),%xmm0
call   1050 <sqrt@plt>
mov    %eax,%ecx
neg    %ecx
xorpd  %xmm0,%xmm0
movsd  0x20(%rsp),%xmm1
ucomisd %xmm0,%xmm1
cmova  %eax,%ecx
xorps  %xmm1,%xmm1
cvtsi2sd %ecx,%xmm1
mov    0x28(%rsp),%rcx
test   %ecx,%ecx
mov    0x30(%rsp),%rax
jle    1499 <hougenu+0x369>
movapd 0xd2d(%rip),%xmm0
xorpd  %xmm1,%xmm0
movsd  0x0(%r13,%r15,8),%xmm2
addsd  %xmm1,%xmm2
movsd  %xmm2,(%rax)
movlpd %xmm0,0x0(%r13,%r15,8)
cmp    $0x1,%ecx
je     1499 <hougenu+0x369>
mov    %ecx,%r10d
lea    -0x1(%r10),%r9
mov    $0x1,%ecx
cmp    $0x4,%r9
jb     1414 <hougenu+0x2e4>
mov    %rbp,%r11
lea    -0x2(%r10),%rsi
mov    0x18(%rsp),%r14
mov    0x10(%rsp),%rdx
lea    (%rdx,%r14,1),%edi
add    $0x1,%edi
lea    (%rsi,%rbx,1),%ebp
add    $0x1,%ebp
cmp    %edi,%ebp
jl     1411 <hougenu+0x2e1>
shr    $0x20,%rsi
jne    1411 <hougenu+0x2e1>
lea    0x8(%rax),%rdi
lea    (%rdx,%r14,1),%esi
add    $0x1,%esi
movslq %esi,%rsi
lea    (%rsi,%r10,1),%rbp
lea    -0x8(,%rbp,8),%rbp
ff
add    %r13,%rbp
cmp    %rbp,%rdi
jae    1379 <hougenu+0x249>
mov    %r11,%rbp
lea    (%rax,%r10,8),%rdi
lea    0x0(,%rsi,8),%rsi
add    %r13,%rsi
cmp    %rdi,%rsi
jb     1414 <hougenu+0x2e4>
mov    %r9,%rcx
and    $0xfffffffffffffffc,%rcx
lea    -0x4(%rcx),%rsi
mov    %rsi,%r8
shr    $0x2,%r8
add    $0x1,%r8
test   %rsi,%rsi
je     14d4 <hougenu+0x3a4>
mov    %r8,%rsi
and    $0xfffffffffffffffe,%rsi
lea    (%r14,%rdx,1),%ebp
add    $0x5,%ebp
xor    %edi,%edi
xorpd  %xmm0,%xmm0
lea    -0x4(%rbp),%edx
movslq %edx,%rdx
movups 0x0(%r13,%rdx,8),%xmm2
movups 0x10(%r13,%rdx,8),%xmm3
movups %xmm2,0x8(%rax,%rdi,8)
movups %xmm3,0x18(%rax,%rdi,8)
movupd %xmm0,0x0(%r13,%rdx,8)
movupd %xmm0,0x10(%r13,%rdx,8)
movslq %ebp,%rbp
movupd 0x0(%r13,%rbp,8),%xmm2
movups 0x10(%r13,%rbp,8),%xmm3
movupd %xmm2,0x28(%rax,%rdi,8)
movups %xmm3,0x38(%rax,%rdi,8)
movupd %xmm0,0x0(%r13,%rbp,8)
movupd %xmm0,0x10(%r13,%rbp,8)
add    $0x8,%rdi
add    $0x8,%ebp
add    $0xfffffffffffffffe,%rsi
jne    13ac <hougenu+0x27c>
jmp    14d6 <hougenu+0x3a6>
mov    %r11,%rbp
mov    %rcx,%rdx
not    %rdx
test   $0x1,%r10b
jne    143f <hougenu+0x30f>
lea    (%rbx,%rcx,1),%esi
movslq %esi,%rsi
movsd  0x0(%r13,%rsi,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movq   $0x0,0x0(%r13,%rsi,8)
add    $0x1,%rcx
neg    %r10
cmp    %r10,%rdx
je     1499 <hougenu+0x369>
lea    0x1(%rcx),%rdx
add    %ecx,%ebx
nopl   (%rax)
movslq %ebx,%rbx
movsd  0x0(%r13,%rbx,8),%xmm0
movsd  %xmm0,-0x8(%rax,%rdx,8)
movq   $0x0,0x0(%r13,%rbx,8)
lea    0x1(%rbx),%ecx
movslq %ecx,%rcx
movsd  0x0(%r13,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rdx,8)
movq   $0x0,0x0(%r13,%rcx,8)
lea    (%r10,%rdx,1),%rcx
add    $0x2,%rcx
add    $0x2,%rdx
add    $0x2,%ebx
cmp    $0x1,%rcx
jne    1450 <hougenu+0x320>
mulsd  (%rax),%xmm1
movsd  0xb6b(%rip),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,0x0(%rbp)
movsd  (%rax),%xmm1
lea    0xb70(%rip),%rdi
call   1030 <printf@plt>
mov    $0x1,%ebp
mov    %ebp,%eax
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
xor    %edi,%edi
test   $0x1,%r8b
je     151b <hougenu+0x3eb>
lea    0x0(,%rdi,8),%rdx
or     $0x1,%edi
add    %ebx,%edi
movslq %edi,%rsi
movupd 0x0(%r13,%rsi,8),%xmm0
movupd 0x10(%r13,%rsi,8),%xmm2
or     $0x8,%rdx
movupd %xmm0,(%rax,%rdx,1)
movupd %xmm2,0x10(%rax,%rdx,1)
xorpd  %xmm0,%xmm0
movupd %xmm0,0x0(%r13,%rsi,8)
movupd %xmm0,0x10(%r13,%rsi,8)
cmp    %rcx,%r9
mov    %r11,%rbp
je     1499 <hougenu+0x369>
or     $0x1,%rcx
jmp    1414 <hougenu+0x2e4>

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

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