void select_top_n(double *selcrit, long int range, long int *select,
                  long int n) {
  register long i, j;
  for (i = 0; (i < n) && (i < range); i++) {
    for (j = i; j >= 0; j--) {
      if ((j > 0) && (selcrit[select[j - 1]] < selcrit[i])) {
        select[j] = select[j - 1];
      } else {
        select[j] = i;
        j = -1;
      }
    }
  }
  if (n > 0) {
    for (i = n; i < range; i++) {
      if (selcrit[i] > selcrit[select[n - 1]]) {
        for (j = n - 1; j >= 0; j--) {
          if ((j > 0) && (selcrit[select[j - 1]] < selcrit[i])) {
            select[j] = select[j - 1];
          } else {
            select[j] = i;
            j = -1;
          }
        }
      }
    }
  }
}


x86 assembly (clang, -O0):
<select_top_n>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%rcx
xor    %eax,%eax
cmp    -0x20(%rbp),%rcx
mov    %al,-0x31(%rbp)
jge    113d <select_top_n+0x3d>
mov    -0x28(%rbp),%rax
cmp    -0x10(%rbp),%rax
setl   %al
mov    %al,-0x31(%rbp)
mov    -0x31(%rbp),%al
test   $0x1,%al
jne    114d <select_top_n+0x4d>
jmp    1200 <select_top_n+0x100>
mov    -0x28(%rbp),%rax
mov    %rax,-0x30(%rbp)
cmpq   $0x0,-0x30(%rbp)
jl     11ea <select_top_n+0xea>
cmpq   $0x0,-0x30(%rbp)
jle    11bc <select_top_n+0xbc>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    -0x30(%rbp),%rdx
sub    $0x1,%rdx
mov    (%rcx,%rdx,8),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    11bc <select_top_n+0xbc>
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
sub    $0x1,%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
jmp    11d4 <select_top_n+0xd4>
mov    -0x28(%rbp),%rdx
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
movq   $0xffffffffffffffff,-0x30(%rbp)
ff
jmp    11d9 <select_top_n+0xd9>
mov    -0x30(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x30(%rbp)
jmp    1155 <select_top_n+0x55>
jmp    11ef <select_top_n+0xef>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    111c <select_top_n+0x1c>
cmpq   $0x0,-0x20(%rbp)
jle    130e <select_top_n+0x20e>
mov    -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1309 <select_top_n+0x209>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    -0x20(%rbp),%rdx
sub    $0x1,%rdx
mov    (%rcx,%rdx,8),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jbe    12f3 <select_top_n+0x1f3>
mov    -0x20(%rbp),%rax
sub    $0x1,%rax
mov    %rax,-0x30(%rbp)
cmpq   $0x0,-0x30(%rbp)
jl     12ee <select_top_n+0x1ee>
cmpq   $0x0,-0x30(%rbp)
jle    12c0 <select_top_n+0x1c0>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    -0x30(%rbp),%rdx
sub    $0x1,%rdx
mov    (%rcx,%rdx,8),%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    12c0 <select_top_n+0x1c0>
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
sub    $0x1,%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
jmp    12d8 <select_top_n+0x1d8>
mov    -0x28(%rbp),%rdx
mov    -0x18(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
movq   $0xffffffffffffffff,-0x30(%rbp)
ff
jmp    12dd <select_top_n+0x1dd>
mov    -0x30(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x30(%rbp)
jmp    1259 <select_top_n+0x159>
jmp    12f3 <select_top_n+0x1f3>
jmp    12f8 <select_top_n+0x1f8>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1213 <select_top_n+0x113>
jmp    130e <select_top_n+0x20e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<select_top_n>:
test   %rcx,%rcx
jle    1176 <select_top_n+0x76>
test   %rsi,%rsi
jle    1176 <select_top_n+0x76>
lea    -0x1(%rcx),%rax
lea    -0x1(%rsi),%r8
cmp    %r8,%rax
cmovb  %rax,%r8
mov    $0x1,%r9d
xor    %r10d,%r10d
jmp    1145 <select_top_n+0x45>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r10,-0x8(%rdx,%rax,8)
lea    0x1(%r10),%rax
add    $0x1,%r9
cmp    %r8,%r10
mov    %rax,%r10
je     1176 <select_top_n+0x76>
mov    %r9,%rax
nopl   0x0(%rax,%rax,1)
cmp    $0x1,%rax
je     1130 <select_top_n+0x30>
mov    -0x10(%rdx,%rax,8),%r11
movsd  (%rdi,%r10,8),%xmm0
ucomisd (%rdi,%r11,8),%xmm0
jbe    1130 <select_top_n+0x30>
mov    %r11,-0x8(%rdx,%rax,8)
add    $0xffffffffffffffff,%rax
jg     1150 <select_top_n+0x50>
jmp    1135 <select_top_n+0x35>
test   %rcx,%rcx
jle    11e0 <select_top_n+0xe0>
cmp    %rsi,%rcx
jge    11e0 <select_top_n+0xe0>
mov    %rcx,%r8
jmp    119e <select_top_n+0x9e>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %r8,-0x8(%rdx,%rax,8)
add    $0x1,%r8
cmp    %rsi,%r8
je     11e0 <select_top_n+0xe0>
movsd  (%rdi,%r8,8),%xmm0
mov    -0x8(%rdx,%rcx,8),%rax
ucomisd (%rdi,%rax,8),%xmm0
jbe    1195 <select_top_n+0x95>
mov    %rcx,%rax
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
cmp    $0x1,%rax
je     1190 <select_top_n+0x90>
mov    -0x10(%rdx,%rax,8),%r9
ucomisd (%rdi,%r9,8),%xmm0
jbe    1190 <select_top_n+0x90>
mov    %r9,-0x8(%rdx,%rax,8)
add    $0xffffffffffffffff,%rax
jg     11c0 <select_top_n+0xc0>
jmp    1195 <select_top_n+0x95>
ret

LLVM IR (-O0):
define void @select_top_n(double* %0, i64 %1, i64* %2, i64 %3) {
%5 = alloca double*
%6 = alloca i64
%7 = alloca i64*
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
store double* %0, double** %5
store i64 %1, i64* %6
store i64* %2, i64** %7
store i64 %3, i64* %8
store i64 0, i64* %9
br label %11
11: ; preds = %62, %4
%12 = load i64, i64* %9
%13 = load i64, i64* %8
%14 = icmp slt i64 %12, %13
br i1 %14, label %15, label %19
15: ; preds = %11
%16 = load i64, i64* %9
%17 = load i64, i64* %6
%18 = icmp slt i64 %16, %17
br label %19
19: ; preds = %15, %11
%20 = phi i1 [ false, %11 ], [ %18, %15 ]
br i1 %20, label %21, label %65
21: ; preds = %19
%22 = load i64, i64* %9
store i64 %22, i64* %10
br label %23
23: ; preds = %58, %21
%24 = load i64, i64* %10
%25 = icmp sge i64 %24, 0
br i1 %25, label %26, label %61
26: ; preds = %23
%27 = load i64, i64* %10
%28 = icmp sgt i64 %27, 0
br i1 %28, label %29, label %52
29: ; preds = %26
%30 = load double*, double** %5
%31 = load i64*, i64** %7
%32 = load i64, i64* %10
%33 = sub nsw i64 %32, 1
%34 = getelementptr inbounds i64, i64* %31, i64 %33
%35 = load i64, i64* %34
%36 = getelementptr inbounds double, double* %30, i64 %35
%37 = load double, double* %36
%38 = load double*, double** %5
%39 = load i64, i64* %9
%40 = getelementptr inbounds double, double* %38, i64 %39
%41 = load double, double* %40
%42 = fcmp olt double %37, %41
br i1 %42, label %43, label %52
43: ; preds = %29
%44 = load i64*, i64** %7
%45 = load i64, i64* %10
%46 = sub nsw i64 %45, 1
%47 = getelementptr inbounds i64, i64* %44, i64 %46
%48 = load i64, i64* %47
%49 = load i64*, i64** %7
%50 = load i64, i64* %10
%51 = getelementptr inbounds i64, i64* %49, i64 %50
store i64 %48, i64* %51
br label %57
52: ; preds = %29, %26
%53 = load i64, i64* %9
%54 = load i64*, i64** %7
%55 = load i64, i64* %10
%56 = getelementptr inbounds i64, i64* %54, i64 %55
store i64 %53, i64* %56
store i64 -1, i64* %10
br label %57
57: ; preds = %52, %43
br label %58
58: ; preds = %57
%59 = load i64, i64* %10
%60 = add nsw i64 %59, -1
store i64 %60, i64* %10
br label %23
61: ; preds = %23
br label %62
62: ; preds = %61
%63 = load i64, i64* %9
%64 = add nsw i64 %63, 1
store i64 %64, i64* %9
br label %11
65: ; preds = %19
%66 = load i64, i64* %8
%67 = icmp sgt i64 %66, 0
br i1 %67, label %68, label %135
68: ; preds = %65
%69 = load i64, i64* %8
store i64 %69, i64* %9
br label %70
70: ; preds = %131, %68
%71 = load i64, i64* %9
%72 = load i64, i64* %6
%73 = icmp slt i64 %71, %72
br i1 %73, label %74, label %134
74: ; preds = %70
%75 = load double*, double** %5
%76 = load i64, i64* %9
%77 = getelementptr inbounds double, double* %75, i64 %76
%78 = load double, double* %77
%79 = load double*, double** %5
%80 = load i64*, i64** %7
%81 = load i64, i64* %8
%82 = sub nsw i64 %81, 1
%83 = getelementptr inbounds i64, i64* %80, i64 %82
%84 = load i64, i64* %83
%85 = getelementptr inbounds double, double* %79, i64 %84
%86 = load double, double* %85
%87 = fcmp ogt double %78, %86
br i1 %87, label %88, label %130
88: ; preds = %74
%89 = load i64, i64* %8
%90 = sub nsw i64 %89, 1
store i64 %90, i64* %10
br label %91
91: ; preds = %126, %88
%92 = load i64, i64* %10
%93 = icmp sge i64 %92, 0
br i1 %93, label %94, label %129
94: ; preds = %91
%95 = load i64, i64* %10
%96 = icmp sgt i64 %95, 0
br i1 %96, label %97, label %120
97: ; preds = %94
%98 = load double*, double** %5
%99 = load i64*, i64** %7
%100 = load i64, i64* %10
%101 = sub nsw i64 %100, 1
%102 = getelementptr inbounds i64, i64* %99, i64 %101
%103 = load i64, i64* %102
%104 = getelementptr inbounds double, double* %98, i64 %103
%105 = load double, double* %104
%106 = load double*, double** %5
%107 = load i64, i64* %9
%108 = getelementptr inbounds double, double* %106, i64 %107
%109 = load double, double* %108
%110 = fcmp olt double %105, %109
br i1 %110, label %111, label %120
111: ; preds = %97
%112 = load i64*, i64** %7
%113 = load i64, i64* %10
%114 = sub nsw i64 %113, 1
%115 = getelementptr inbounds i64, i64* %112, i64 %114
%116 = load i64, i64* %115
%117 = load i64*, i64** %7
%118 = load i64, i64* %10
%119 = getelementptr inbounds i64, i64* %117, i64 %118
store i64 %116, i64* %119
br label %125
120: ; preds = %97, %94
%121 = load i64, i64* %9
%122 = load i64*, i64** %7
%123 = load i64, i64* %10
%124 = getelementptr inbounds i64, i64* %122, i64 %123
store i64 %121, i64* %124
store i64 -1, i64* %10
br label %125
125: ; preds = %120, %111
br label %126
126: ; preds = %125
%127 = load i64, i64* %10
%128 = add nsw i64 %127, -1
store i64 %128, i64* %10
br label %91
129: ; preds = %91
br label %130
130: ; preds = %129, %74
br label %131
131: ; preds = %130
%132 = load i64, i64* %9
%133 = add nsw i64 %132, 1
store i64 %133, i64* %9
br label %70
134: ; preds = %70
br label %135
135: ; preds = %134, %65
ret void
}

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