void sort_index_ivector_selection_kmax(int *key, long nl, long nh, int *index,
                                       int k) {
  int i, j, pos, tmp, il, ih;
  int x, max;
  il = nl;
  ih = il + k;
  for (i = il; i < ih; i++) {
    max = key[i];
    pos = i;
    for (j = i + 1; j <= nh; j++) {
      x = key[j];
      if (x > max) {
        max = x;
        pos = j;
      }
    }
    key[pos] = key[i];
    key[i] = max;
    tmp = index[i];
    index[i] = index[pos];
    index[pos] = tmp;
  }
}


x86 assembly (clang, -O0):
<sort_index_ivector_selection_kmax>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8d,-0x24(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
add    -0x24(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x3c(%rbp),%eax
jge    1202 <sort_index_ivector_selection_kmax+0x102>
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x44(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
movslq -0x2c(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     119e <sort_index_ivector_selection_kmax+0x9e>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x40(%rbp)
mov    -0x40(%rbp),%eax
cmp    -0x44(%rbp),%eax
jle    118b <sort_index_ivector_selection_kmax+0x8b>
mov    -0x40(%rbp),%eax
mov    %eax,-0x44(%rbp)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x30(%rbp)
jmp    1190 <sort_index_ivector_selection_kmax+0x90>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1157 <sort_index_ivector_selection_kmax+0x57>
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x44(%rbp),%edx
mov    -0x8(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x20(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x34(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x20(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x34(%rbp),%edx
mov    -0x20(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    112e <sort_index_ivector_selection_kmax+0x2e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<sort_index_ivector_selection_kmax>:
push   %rbp
push   %r14
push   %rbx
test   %r8d,%r8d
jle    1186 <sort_index_ivector_selection_kmax+0x86>
add    %esi,%r8d
lea    0x1(%rsi),%eax
movslq %eax,%r11
movslq %esi,%r14
movslq %r8d,%r8
jmp    114b <sort_index_ivector_selection_kmax+0x4b>
nopw   0x0(%rax,%rax,1)
mov    %r14d,%ebx
mov    %r10d,%eax
movslq %ebx,%rsi
mov    %r10d,(%rdi,%rsi,4)
mov    %eax,(%rdi,%r14,4)
mov    (%rcx,%r14,4),%eax
mov    (%rcx,%rsi,4),%ebp
mov    %ebp,(%rcx,%r14,4)
mov    %eax,(%rcx,%rsi,4)
add    $0x1,%r11
mov    %r9,%r14
cmp    %r8,%r9
jge    1186 <sort_index_ivector_selection_kmax+0x86>
mov    (%rdi,%r14,4),%r10d
lea    0x1(%r14),%r9
cmp    %rdx,%r14
jge    1120 <sort_index_ivector_selection_kmax+0x20>
mov    %r11,%rsi
mov    %r10d,%eax
mov    %r14d,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    (%rdi,%rsi,4),%ebp
cmp    %eax,%ebp
cmovg  %esi,%ebx
cmovg  %ebp,%eax
add    $0x1,%rsi
cmp    %rdx,%rsi
jle    1170 <sort_index_ivector_selection_kmax+0x70>
jmp    1126 <sort_index_ivector_selection_kmax+0x26>
pop    %rbx
pop    %r14
pop    %rbp
ret

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

LLVM IR (-O2):
define void @sort_index_ivector_selection_kmax(i32* nocapture %0, i64 %1, i64 %2, i32* nocapture %3, i32 %4) {
%6 = icmp sgt i32 %4, 0
br i1 %6, label %7, label %47
7: ; preds = %5
%8 = trunc i64 %1 to i32
%9 = add nsw i32 %8, %4
%10 = shl i64 %1, 32
%11 = add i64 %10, 4294967296
%12 = ashr exact i64 %11, 32
%13 = shl i64 %1, 32
%14 = ashr exact i64 %13, 32
%15 = sext i32 %9 to i64
br label %16
16: ; preds = %7, %36
%17 = phi i64 [ %14, %7 ], [ %21, %36 ]
%18 = phi i64 [ %12, %7 ], [ %46, %36 ]
%19 = getelementptr inbounds i32, i32* %0, i64 %17
%20 = load i32, i32* %19
%21 = add nsw i64 %17, 1
%22 = icmp slt i64 %17, %2
%23 = trunc i64 %17 to i32
br i1 %22, label %24, label %36
24: ; preds = %16, %24
%25 = phi i64 [ %34, %24 ], [ %18, %16 ]
%26 = phi i32 [ %33, %24 ], [ %20, %16 ]
%27 = phi i32 [ %32, %24 ], [ %23, %16 ]
%28 = getelementptr inbounds i32, i32* %0, i64 %25
%29 = load i32, i32* %28
%30 = icmp sgt i32 %29, %26
%31 = trunc i64 %25 to i32
%32 = select i1 %30, i32 %31, i32 %27
%33 = select i1 %30, i32 %29, i32 %26
%34 = add i64 %25, 1
%35 = icmp sgt i64 %34, %2
br i1 %35, label %36, label %24
36: ; preds = %24, %16
%37 = phi i32 [ %23, %16 ], [ %32, %24 ]
%38 = phi i32 [ %20, %16 ], [ %33, %24 ]
%39 = sext i32 %37 to i64
%40 = getelementptr inbounds i32, i32* %0, i64 %39
store i32 %20, i32* %40
store i32 %38, i32* %19
%41 = getelementptr inbounds i32, i32* %3, i64 %17
%42 = load i32, i32* %41
%43 = getelementptr inbounds i32, i32* %3, i64 %39
%44 = load i32, i32* %43
store i32 %44, i32* %41
store i32 %42, i32* %43
%45 = icmp slt i64 %21, %15
%46 = add nsw i64 %18, 1
br i1 %45, label %16, label %47
47: ; preds = %36, %5
ret void
}