int EigenRG(n, a, wr, wi, z, iv1, fv1)
int n;
double **a, *wr, *wi;
double **z;
int *iv1;
double *fv1;
{
  static int is1, is2;
  int ierr;
  Balanc(n, a, &is1, &is2, fv1);
  ElmHes(n, is1, is2, a, iv1);
  ElTran(n, is1, is2, a, iv1, z);
  ierr = Hqr2(n, is1, is2, a, wr, wi, z);
  if (ierr == 0)
    BalBak(n, is1, is2, fv1, n, z);
  return ierr;
}


x86 assembly (clang, -O0):
<EigenRG>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    0x10(%rbp),%rax
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x4(%rbp),%edi
mov    -0x10(%rbp),%rsi
mov    0x10(%rbp),%r8
lea    0x2ec7(%rip),%rdx
lea    0x2ec4(%rip),%rcx
mov    $0x0,%al
call   1070 <Balanc@plt>
mov    -0x4(%rbp),%edi
mov    0x2eb0(%rip),%esi
mov    0x2eae(%rip),%edx
mov    -0x10(%rbp),%rcx
mov    -0x30(%rbp),%r8
mov    $0x0,%al
call   1050 <ElmHes@plt>
mov    -0x4(%rbp),%edi
mov    0x2e92(%rip),%esi
mov    0x2e90(%rip),%edx
mov    -0x10(%rbp),%rcx
mov    -0x30(%rbp),%r8
mov    -0x28(%rbp),%r9
mov    $0x0,%al
call   1060 <ElTran@plt>
mov    -0x4(%rbp),%edi
mov    0x2e70(%rip),%esi
mov    0x2e6e(%rip),%edx
mov    -0x10(%rbp),%rcx
mov    -0x18(%rbp),%r8
mov    -0x20(%rbp),%r9
mov    -0x28(%rbp),%rax
mov    %rax,(%rsp)
mov    $0x0,%al
call   1040 <Hqr2@plt>
mov    %eax,-0x34(%rbp)
cmpl   $0x0,-0x34(%rbp)
jne    122c <EigenRG+0xdc>
mov    -0x4(%rbp),%edi
mov    0x2e39(%rip),%esi
mov    0x2e37(%rip),%edx
mov    0x10(%rbp),%rcx
mov    -0x4(%rbp),%r8d
mov    -0x28(%rbp),%r9
mov    $0x0,%al
call   1030 <BalBak@plt>
mov    -0x34(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<EigenRG>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %r9,%r14
mov    %r8,%r13
mov    %rcx,%r15
mov    %rdx,%r12
mov    %rsi,%rbx
mov    %edi,%ebp
mov    0x40(%rsp),%r8
lea    0x2ed4(%rip),%rdx
lea    0x2ed1(%rip),%rcx
xor    %eax,%eax
call   1070 <Balanc@plt>
mov    0x2ec0(%rip),%esi
mov    0x2ebe(%rip),%edx
mov    %ebp,%edi
mov    %rbx,%rcx
mov    %r14,%r8
xor    %eax,%eax
call   1050 <ElmHes@plt>
mov    0x2ea5(%rip),%esi
mov    0x2ea3(%rip),%edx
mov    %ebp,%edi
mov    %rbx,%rcx
mov    %r14,%r8
mov    %r13,%r9
xor    %eax,%eax
call   1060 <ElTran@plt>
mov    0x2e87(%rip),%esi
mov    0x2e85(%rip),%edx
mov    %r13,(%rsp)
mov    %ebp,%edi
mov    %rbx,%rcx
mov    %r12,%r8
mov    %r15,%r9
xor    %eax,%eax
call   1040 <Hqr2@plt>
mov    %eax,%ebx
test   %eax,%eax
jne    1207 <EigenRG+0xb7>
mov    0x2e5f(%rip),%esi
mov    0x2e5d(%rip),%edx
mov    %ebp,%edi
mov    0x40(%rsp),%rcx
mov    %ebp,%r8d
mov    %r13,%r9
xor    %eax,%eax
call   1030 <BalBak@plt>
mov    %ebx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@EigenRG.is1 = internal global i32 0
@EigenRG.is2 = internal global i32 0
define i32 @EigenRG(i32 %0, double** %1, double* %2, double* %3, double** %4, i32* %5, double* %6) {
%8 = alloca i32
%9 = alloca double**
%10 = alloca double*
%11 = alloca double*
%12 = alloca double**
%13 = alloca i32*
%14 = alloca double*
%15 = alloca i32
store i32 %0, i32* %8
store double** %1, double*** %9
store double* %2, double** %10
store double* %3, double** %11
store double** %4, double*** %12
store i32* %5, i32** %13
store double* %6, double** %14
%16 = load i32, i32* %8
%17 = load double**, double*** %9
%18 = load double*, double** %14
%19 = call i32 (i32, double**, i32*, i32*, double*, ...) bitcast (i32 (...)* @Balanc to i32 (i32, double**, i32*, i32*, double*, ...)*)(i32 %16, double** %17, i32* @EigenRG.is1, i32* @EigenRG.is2, double* %18)
%20 = load i32, i32* %8
%21 = load i32, i32* @EigenRG.is1
%22 = load i32, i32* @EigenRG.is2
%23 = load double**, double*** %9
%24 = load i32*, i32** %13
%25 = call i32 (i32, i32, i32, double**, i32*, ...) bitcast (i32 (...)* @ElmHes to i32 (i32, i32, i32, double**, i32*, ...)*)(i32 %20, i32 %21, i32 %22, double** %23, i32* %24)
%26 = load i32, i32* %8
%27 = load i32, i32* @EigenRG.is1
%28 = load i32, i32* @EigenRG.is2
%29 = load double**, double*** %9
%30 = load i32*, i32** %13
%31 = load double**, double*** %12
%32 = call i32 (i32, i32, i32, double**, i32*, double**, ...) bitcast (i32 (...)* @ElTran to i32 (i32, i32, i32, double**, i32*, double**, ...)*)(i32 %26, i32 %27, i32 %28, double** %29, i32* %30, double** %31)
%33 = load i32, i32* %8
%34 = load i32, i32* @EigenRG.is1
%35 = load i32, i32* @EigenRG.is2
%36 = load double**, double*** %9
%37 = load double*, double** %10
%38 = load double*, double** %11
%39 = load double**, double*** %12
%40 = call i32 (i32, i32, i32, double**, double*, double*, double**, ...) bitcast (i32 (...)* @Hqr2 to i32 (i32, i32, i32, double**, double*, double*, double**, ...)*)(i32 %33, i32 %34, i32 %35, double** %36, double* %37, double* %38, double** %39)
store i32 %40, i32* %15
%41 = load i32, i32* %15
%42 = icmp eq i32 %41, 0
br i1 %42, label %43, label %51
43: ; preds = %7
%44 = load i32, i32* %8
%45 = load i32, i32* @EigenRG.is1
%46 = load i32, i32* @EigenRG.is2
%47 = load double*, double** %14
%48 = load i32, i32* %8
%49 = load double**, double*** %12
%50 = call i32 (i32, i32, i32, double*, i32, double**, ...) bitcast (i32 (...)* @BalBak to i32 (i32, i32, i32, double*, i32, double**, ...)*)(i32 %44, i32 %45, i32 %46, double* %47, i32 %48, double** %49)
br label %51
51: ; preds = %43, %7
%52 = load i32, i32* %15
ret i32 %52
}

LLVM IR (-O2):
@EigenRG.is1 = internal global i32 0
@EigenRG.is2 = internal global i32 0
define i32 @EigenRG(i32 %0, double** %1, double* %2, double* %3, double** %4, i32* %5, double* %6) {
%8 = tail call i32 (i32, double**, i32*, i32*, double*, ...) bitcast (i32 (...)* @Balanc to i32 (i32, double**, i32*, i32*, double*, ...)*)(i32 %0, double** %1, i32* @EigenRG.is1, i32* @EigenRG.is2, double* %6)
%9 = load i32, i32* @EigenRG.is1
%10 = load i32, i32* @EigenRG.is2
%11 = tail call i32 (i32, i32, i32, double**, i32*, ...) bitcast (i32 (...)* @ElmHes to i32 (i32, i32, i32, double**, i32*, ...)*)(i32 %0, i32 %9, i32 %10, double** %1, i32* %5)
%12 = load i32, i32* @EigenRG.is1
%13 = load i32, i32* @EigenRG.is2
%14 = tail call i32 (i32, i32, i32, double**, i32*, double**, ...) bitcast (i32 (...)* @ElTran to i32 (i32, i32, i32, double**, i32*, double**, ...)*)(i32 %0, i32 %12, i32 %13, double** %1, i32* %5, double** %4)
%15 = load i32, i32* @EigenRG.is1
%16 = load i32, i32* @EigenRG.is2
%17 = tail call i32 (i32, i32, i32, double**, double*, double*, double**, ...) bitcast (i32 (...)* @Hqr2 to i32 (i32, i32, i32, double**, double*, double*, double**, ...)*)(i32 %0, i32 %15, i32 %16, double** %1, double* %2, double* %3, double** %4)
%18 = icmp eq i32 %17, 0
br i1 %18, label %19, label %23
19: ; preds = %7
%20 = load i32, i32* @EigenRG.is1
%21 = load i32, i32* @EigenRG.is2
%22 = tail call i32 (i32, i32, i32, double*, i32, double**, ...) bitcast (i32 (...)* @BalBak to i32 (i32, i32, i32, double*, i32, double**, ...)*)(i32 %0, i32 %20, i32 %21, double* %6, i32 %0, double** %4)
br label %23
23: ; preds = %19, %7
ret i32 %17
}