void eigsrt(float d[], float **v, int n) {
  int k, j, i;
  float p;
  for (i = 1; i < n; i++) {
    p = d[k = i];
    for (j = i + 1; j <= n; j++) {
      if (d[j] >= p)
        p = d[k = j];
    }
    if (k != i) {
      d[k] = d[i];
      d[i] = p;
      for (j = 1; j <= n; j++) {
        p = v[j][i];
        v[j][i] = v[j][k];
        v[j][k] = p;
      }
    }
  }
}


x86 assembly (clang, -O0):
<eigsrt>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movl   $0x1,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    125e <eigsrt+0x15e>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%ecx
mov    %ecx,-0x18(%rbp)
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x24(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     118f <eigsrt+0x8f>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
ucomiss -0x24(%rbp),%xmm0
jb     117c <eigsrt+0x7c>
mov    -0x8(%rbp),%rax
mov    -0x1c(%rbp),%ecx
mov    %ecx,-0x18(%rbp)
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x24(%rbp)
jmp    1181 <eigsrt+0x81>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1142 <eigsrt+0x42>
mov    -0x18(%rbp),%eax
cmp    -0x20(%rbp),%eax
je     124b <eigsrt+0x14b>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
movss  -0x24(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
movl   $0x1,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1246 <eigsrt+0x146>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x20(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x24(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x18(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x20(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
movss  -0x24(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x18(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11ce <eigsrt+0xce>
jmp    124b <eigsrt+0x14b>
jmp    1250 <eigsrt+0x150>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1116 <eigsrt+0x16>
pop    %rbp
ret

x86 assembly (clang, -O2):
<eigsrt>:
push   %r14
push   %rbx
cmp    $0x2,%edx
jl     121a <eigsrt+0x11a>
mov    %edx,%r8d
lea    0x1(%r8),%r14
mov    %r8d,%r11d
and    $0xfffffffe,%r11d
neg    %r11
mov    $0x2,%r10d
mov    $0x1,%r9d
jmp    113d <eigsrt+0x3d>
nopl   0x0(%rax,%rax,1)
add    $0x1,%r10
cmp    %r8,%r9
je     121a <eigsrt+0x11a>
mov    %r9,%rax
movss  (%rdi,%r9,4),%xmm0
add    $0x1,%r9
mov    %r10,%rbx
movaps %xmm0,%xmm1
mov    %eax,%edx
movaps %xmm0,%xmm2
cs nopw 0x0(%rax,%rax,1)
nop
movss  (%rdi,%rbx,4),%xmm3
ucomiss %xmm1,%xmm3
cmovae %ebx,%edx
cmpnless %xmm3,%xmm2
movaps %xmm2,%xmm4
andnps %xmm3,%xmm4
andps  %xmm1,%xmm2
orps   %xmm4,%xmm2
movaps %xmm2,%xmm1
add    $0x1,%rbx
cmp    %rbx,%r14
jne    1160 <eigsrt+0x60>
mov    %edx,%ebx
cmp    %rbx,%rax
je     1130 <eigsrt+0x30>
movslq %edx,%rdx
movss  %xmm0,(%rdi,%rdx,4)
movss  %xmm1,(%rdi,%rax,4)
mov    $0x1,%ebx
cmp    $0x2,%r14d
je     11f3 <eigsrt+0xf3>
mov    $0x1,%ebx
nopl   0x0(%rax)
mov    (%rsi,%rbx,8),%rcx
movss  (%rcx,%rax,4),%xmm0
movss  (%rcx,%rdx,4),%xmm1
movss  %xmm1,(%rcx,%rax,4)
movss  %xmm0,(%rcx,%rdx,4)
mov    0x8(%rsi,%rbx,8),%rcx
movss  (%rcx,%rax,4),%xmm0
movss  (%rcx,%rdx,4),%xmm1
movss  %xmm1,(%rcx,%rax,4)
movss  %xmm0,(%rcx,%rdx,4)
lea    (%r11,%rbx,1),%rcx
add    $0x2,%rcx
add    $0x2,%rbx
cmp    $0x1,%rcx
jne    11b0 <eigsrt+0xb0>
test   $0x1,%r8b
je     1130 <eigsrt+0x30>
mov    (%rsi,%rbx,8),%rcx
movss  (%rcx,%rax,4),%xmm0
movss  (%rcx,%rdx,4),%xmm1
movss  %xmm1,(%rcx,%rax,4)
movss  %xmm0,(%rcx,%rdx,4)
jmp    1130 <eigsrt+0x30>
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @eigsrt(float* %0, float** %1, i32 %2) {
%4 = alloca float*
%5 = alloca float**
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca float
store float* %0, float** %4
store float** %1, float*** %5
store i32 %2, i32* %6
store i32 1, i32* %9
br label %11
11: ; preds = %109, %3
%12 = load i32, i32* %9
%13 = load i32, i32* %6
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %112
15: ; preds = %11
%16 = load float*, float** %4
%17 = load i32, i32* %9
store i32 %17, i32* %7
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds float, float* %16, i64 %18
%20 = load float, float* %19
store float %20, float* %10
%21 = load i32, i32* %9
%22 = add nsw i32 %21, 1
store i32 %22, i32* %8
br label %23
23: ; preds = %42, %15
%24 = load i32, i32* %8
%25 = load i32, i32* %6
%26 = icmp sle i32 %24, %25
br i1 %26, label %27, label %45
27: ; preds = %23
%28 = load float*, float** %4
%29 = load i32, i32* %8
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds float, float* %28, i64 %30
%32 = load float, float* %31
%33 = load float, float* %10
%34 = fcmp oge float %32, %33
br i1 %34, label %35, label %41
35: ; preds = %27
%36 = load float*, float** %4
%37 = load i32, i32* %8
store i32 %37, i32* %7
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds float, float* %36, i64 %38
%40 = load float, float* %39
store float %40, float* %10
br label %41
41: ; preds = %35, %27
br label %42
42: ; preds = %41
%43 = load i32, i32* %8
%44 = add nsw i32 %43, 1
store i32 %44, i32* %8
br label %23
45: ; preds = %23
%46 = load i32, i32* %7
%47 = load i32, i32* %9
%48 = icmp ne i32 %46, %47
br i1 %48, label %49, label %108
49: ; preds = %45
%50 = load float*, float** %4
%51 = load i32, i32* %9
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds float, float* %50, i64 %52
%54 = load float, float* %53
%55 = load float*, float** %4
%56 = load i32, i32* %7
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds float, float* %55, i64 %57
store float %54, float* %58
%59 = load float, float* %10
%60 = load float*, float** %4
%61 = load i32, i32* %9
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds float, float* %60, i64 %62
store float %59, float* %63
store i32 1, i32* %8
br label %64
64: ; preds = %104, %49
%65 = load i32, i32* %8
%66 = load i32, i32* %6
%67 = icmp sle i32 %65, %66
br i1 %67, label %68, label %107
68: ; preds = %64
%69 = load float**, float*** %5
%70 = load i32, i32* %8
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds float*, float** %69, i64 %71
%73 = load float*, float** %72
%74 = load i32, i32* %9
%75 = sext i32 %74 to i64
%76 = getelementptr inbounds float, float* %73, i64 %75
%77 = load float, float* %76
store float %77, float* %10
%78 = load float**, float*** %5
%79 = load i32, i32* %8
%80 = sext i32 %79 to i64
%81 = getelementptr inbounds float*, float** %78, i64 %80
%82 = load float*, float** %81
%83 = load i32, i32* %7
%84 = sext i32 %83 to i64
%85 = getelementptr inbounds float, float* %82, i64 %84
%86 = load float, float* %85
%87 = load float**, float*** %5
%88 = load i32, i32* %8
%89 = sext i32 %88 to i64
%90 = getelementptr inbounds float*, float** %87, i64 %89
%91 = load float*, float** %90
%92 = load i32, i32* %9
%93 = sext i32 %92 to i64
%94 = getelementptr inbounds float, float* %91, i64 %93
store float %86, float* %94
%95 = load float, float* %10
%96 = load float**, float*** %5
%97 = load i32, i32* %8
%98 = sext i32 %97 to i64
%99 = getelementptr inbounds float*, float** %96, i64 %98
%100 = load float*, float** %99
%101 = load i32, i32* %7
%102 = sext i32 %101 to i64
%103 = getelementptr inbounds float, float* %100, i64 %102
store float %95, float* %103
br label %104
104: ; preds = %68
%105 = load i32, i32* %8
%106 = add nsw i32 %105, 1
store i32 %106, i32* %8
br label %64
107: ; preds = %64
br label %108
108: ; preds = %107, %45
br label %109
109: ; preds = %108
%110 = load i32, i32* %9
%111 = add nsw i32 %110, 1
store i32 %111, i32* %9
br label %11
112: ; preds = %11
ret void
}

LLVM IR (-O2):
define void @eigsrt(float* nocapture %0, float** nocapture %1, i32 %2) {
%4 = icmp sgt i32 %2, 1
br i1 %4, label %5, label %70
5: ; preds = %3
%6 = add nuw i32 %2, 1
%7 = zext i32 %2 to i64
%8 = zext i32 %6 to i64
%9 = add nsw i64 %8, -1
%10 = and i64 %9, 1
%11 = icmp eq i32 %6, 2
%12 = and i64 %9, -2
%13 = icmp eq i64 %10, 0
br label %14
14: ; preds = %67, %5
%15 = phi i64 [ 1, %5 ], [ %19, %67 ]
%16 = phi i64 [ 2, %5 ], [ %68, %67 ]
%17 = getelementptr inbounds float, float* %0, i64 %15
%18 = load float, float* %17
%19 = add nuw nsw i64 %15, 1
%20 = trunc i64 %15 to i32
br label %21
21: ; preds = %14, %21
%22 = phi i64 [ %16, %14 ], [ %31, %21 ]
%23 = phi float [ %18, %14 ], [ %30, %21 ]
%24 = phi i32 [ %20, %14 ], [ %29, %21 ]
%25 = getelementptr inbounds float, float* %0, i64 %22
%26 = load float, float* %25
%27 = fcmp ult float %26, %23
%28 = trunc i64 %22 to i32
%29 = select i1 %27, i32 %24, i32 %28
%30 = select i1 %27, float %23, float %26
%31 = add nuw nsw i64 %22, 1
%32 = icmp eq i64 %31, %8
br i1 %32, label %33, label %21
33: ; preds = %21
%34 = zext i32 %29 to i64
%35 = icmp eq i64 %15, %34
br i1 %35, label %67, label %36
36: ; preds = %33
%37 = sext i32 %29 to i64
%38 = getelementptr inbounds float, float* %0, i64 %37
store float %18, float* %38
store float %30, float* %17
br i1 %11, label %58, label %39
39: ; preds = %36, %39
%40 = phi i64 [ %55, %39 ], [ 1, %36 ]
%41 = phi i64 [ %56, %39 ], [ 0, %36 ]
%42 = getelementptr inbounds float*, float** %1, i64 %40
%43 = load float*, float** %42
%44 = getelementptr inbounds float, float* %43, i64 %15
%45 = load float, float* %44
%46 = getelementptr inbounds float, float* %43, i64 %37
%47 = load float, float* %46
store float %47, float* %44
store float %45, float* %46
%48 = add nuw nsw i64 %40, 1
%49 = getelementptr inbounds float*, float** %1, i64 %48
%50 = load float*, float** %49
%51 = getelementptr inbounds float, float* %50, i64 %15
%52 = load float, float* %51
%53 = getelementptr inbounds float, float* %50, i64 %37
%54 = load float, float* %53
store float %54, float* %51
store float %52, float* %53
%55 = add nuw nsw i64 %40, 2
%56 = add i64 %41, 2
%57 = icmp eq i64 %56, %12
br i1 %57, label %58, label %39
58: ; preds = %39, %36
%59 = phi i64 [ 1, %36 ], [ %55, %39 ]
br i1 %13, label %67, label %60
60: ; preds = %58
%61 = getelementptr inbounds float*, float** %1, i64 %59
%62 = load float*, float** %61
%63 = getelementptr inbounds float, float* %62, i64 %15
%64 = load float, float* %63
%65 = getelementptr inbounds float, float* %62, i64 %37
%66 = load float, float* %65
store float %66, float* %63
store float %64, float* %65
br label %67
67: ; preds = %60, %58, %33
%68 = add nuw nsw i64 %16, 1
%69 = icmp eq i64 %19, %7
br i1 %69, label %70, label %14
70: ; preds = %67, %3
ret void
}