void hpsolb_(int n, double *t, int *iorder, int iheap) {
  int i, j, k;
  double out, ddum;
  int indxin, indxou;
  --iorder;
  --t;
  if (iheap == 0) {
    for (k = 2; k <= n; ++k) {
      ddum = t[k];
      indxin = iorder[k];
      i = k;
    L10:
      if (i > 1) {
        j = i / 2;
        if (ddum < t[j]) {
          t[i] = t[j];
          iorder[i] = iorder[j];
          i = j;
          goto L10;
        }
      }
      t[i] = ddum;
      iorder[i] = indxin;
    }
  }
  if (n > 1) {
    i = 1;
    out = t[1];
    indxou = iorder[1];
    ddum = t[n];
    indxin = iorder[n];
  L30:
    j = i + i;
    if (j <= n - 1) {
      if (t[j + 1] < t[j]) {
        ++j;
      }
      if (t[j] < ddum) {
        t[i] = t[j];
        iorder[i] = iorder[j];
        i = j;
        goto L30;
      }
    }
    t[i] = ddum;
    iorder[i] = indxin;
    t[n] = out;
    iorder[n] = indxou;
  }
}


x86 assembly (clang, -O0):
<hpsolb_>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    -0x18(%rbp),%rax
add    $0xfffffffffffffffc,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x10(%rbp)
cmpl   $0x0,-0x1c(%rbp)
jne    1214 <hpsolb_+0x114>
movl   $0x2,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x4(%rbp),%eax
jg     120f <hpsolb_+0x10f>
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x1,-0x20(%rbp)
jle    11e1 <hpsolb_+0xe1>
mov    -0x20(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x24(%rbp)
movsd  -0x38(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    11dc <hpsolb_+0xdc>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x24(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    116d <hpsolb_+0x6d>
jmp    11e1 <hpsolb_+0xe1>
movsd  -0x38(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x3c(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    113b <hpsolb_+0x3b>
jmp    1214 <hpsolb_+0x114>
cmpl   $0x1,-0x4(%rbp)
jle    1345 <hpsolb_+0x245>
movl   $0x1,-0x20(%rbp)
mov    -0x10(%rbp),%rax
movsd  0x8(%rax),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x18(%rbp),%rax
mov    0x4(%rax),%eax
mov    %eax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x4(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x4(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x20(%rbp),%eax
add    -0x20(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x4(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     1305 <hpsolb_+0x205>
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    12a9 <hpsolb_+0x1a9>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x38(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    1300 <hpsolb_+0x200>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%edx
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x24(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    125d <hpsolb_+0x15d>
jmp    1305 <hpsolb_+0x205>
movsd  -0x38(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x3c(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
movsd  -0x30(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x4(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x40(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x4(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
pop    %rbp
ret

x86 assembly (clang, -O2):
<hpsolb_>:
push   %r14
push   %rbx
test   %ecx,%ecx
jne    117a <hpsolb_+0x7a>
cmp    $0x2,%edi
jl     117a <hpsolb_+0x7a>
lea    0x1(%rdi),%r8d
mov    $0x2,%r10d
jmp    1138 <hpsolb_+0x38>
nopl   0x0(%rax,%rax,1)
mov    %ecx,%eax
mov    %eax,%eax
movsd  %xmm0,-0x8(%rsi,%rax,8)
mov    %r9d,-0x4(%rdx,%rax,4)
add    $0x1,%r10
cmp    %r8,%r10
je     117a <hpsolb_+0x7a>
movsd  -0x8(%rsi,%r10,8),%xmm0
mov    -0x4(%rdx,%r10,4),%r9d
mov    %r10d,%ecx
mov    %r10d,%eax
nopw   0x0(%rax,%rax,1)
shr    %eax
movsd  -0x8(%rsi,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1120 <hpsolb_+0x20>
mov    %ecx,%r11d
movsd  %xmm1,-0x8(%rsi,%r11,8)
mov    -0x4(%rdx,%rax,4),%ebx
mov    %ebx,-0x4(%rdx,%r11,4)
cmp    $0x3,%ecx
mov    %eax,%ecx
ja     1150 <hpsolb_+0x50>
jmp    1122 <hpsolb_+0x22>
cmp    $0x2,%edi
jl     1215 <hpsolb_+0x115>
movsd  (%rsi),%xmm0
mov    (%rdx),%r8d
mov    %edi,%r10d
movsd  -0x8(%rsi,%r10,8),%xmm1
mov    -0x4(%rdx,%r10,4),%r9d
mov    $0x1,%eax
je     11fc <hpsolb_+0xfc>
mov    $0x1,%r11d
mov    $0x2,%ecx
nopl   0x0(%rax,%rax,1)
mov    %ecx,%eax
or     $0x1,%eax
movslq %eax,%r14
movslq %ecx,%rbx
movsd  -0x8(%rsi,%rbx,8),%xmm2
ucomisd -0x8(%rsi,%r14,8),%xmm2
ja     11cc <hpsolb_+0xcc>
mov    %ecx,%eax
movslq %eax,%rcx
movsd  -0x8(%rsi,%rcx,8),%xmm2
ucomisd %xmm2,%xmm1
jbe    11f9 <hpsolb_+0xf9>
movslq %r11d,%r11
movsd  %xmm2,-0x8(%rsi,%r11,8)
mov    -0x4(%rdx,%rcx,4),%ebx
mov    %ebx,-0x4(%rdx,%r11,4)
add    %ecx,%ecx
mov    %eax,%r11d
cmp    %edi,%ecx
jl     11b0 <hpsolb_+0xb0>
jmp    11fc <hpsolb_+0xfc>
mov    %r11d,%eax
cltq
movsd  %xmm1,-0x8(%rsi,%rax,8)
mov    %r9d,-0x4(%rdx,%rax,4)
movsd  %xmm0,-0x8(%rsi,%r10,8)
mov    %r8d,-0x4(%rdx,%r10,4)
pop    %rbx
pop    %r14
ret

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

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