int mc64dd_(int *i__, int *n, int *q, double *d__, int *l, int *iway) {
  int i__1;
  double di;
  int qk, pos, idum, posk;
  --l;
  --d__;
  --q;
  di = d__[*i__];
  pos = l[*i__];
  if (*iway == 1) {
    i__1 = *n;
    for (idum = 1; idum <= i__1; ++idum) {
      if (pos <= 1) {
        goto L20;
      }
      posk = pos / 2;
      qk = q[posk];
      if (di <= d__[qk]) {
        goto L20;
      }
      q[pos] = qk;
      l[qk] = pos;
      pos = posk;
    }
  } else {
    i__1 = *n;
    for (idum = 1; idum <= i__1; ++idum) {
      if (pos <= 1) {
        goto L20;
      }
      posk = pos / 2;
      qk = q[posk];
      if (di >= d__[qk]) {
        goto L20;
      }
      q[pos] = qk;
      l[qk] = pos;
      pos = posk;
    }
  }
L20:
  q[pos] = *i__;
  l[*i__] = pos;
  return 0;
}


x86 assembly (clang, -O0):
<mc64dd_>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x28(%rbp),%rax
add    $0xfffffffffffffffc,%rax
mov    %rax,-0x28(%rbp)
mov    -0x20(%rbp),%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
add    $0xfffffffffffffffc,%rax
mov    %rax,-0x18(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x8(%rbp),%rcx
movslq (%rcx),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x28(%rbp),%rax
mov    -0x8(%rbp),%rcx
movslq (%rcx),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x48(%rbp)
mov    -0x30(%rbp),%rax
cmpl   $0x1,(%rax)
jne    1210 <mc64dd_+0x110>
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x34(%rbp)
movl   $0x1,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x34(%rbp),%eax
jg     120b <mc64dd_+0x10b>
cmpl   $0x1,-0x48(%rbp)
jg     119e <mc64dd_+0x9e>
jmp    12ae <mc64dd_+0x1ae>
mov    -0x48(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x50(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x50(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x44(%rbp)
movsd  -0x40(%rbp),%xmm1
mov    -0x20(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jb     11db <mc64dd_+0xdb>
jmp    12ae <mc64dd_+0x1ae>
mov    -0x44(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x48(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x48(%rbp),%edx
mov    -0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x50(%rbp),%eax
mov    %eax,-0x48(%rbp)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1183 <mc64dd_+0x83>
jmp    12a9 <mc64dd_+0x1a9>
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x34(%rbp)
movl   $0x1,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x34(%rbp),%eax
jg     12a4 <mc64dd_+0x1a4>
cmpl   $0x1,-0x48(%rbp)
jg     123b <mc64dd_+0x13b>
jmp    12ae <mc64dd_+0x1ae>
mov    -0x48(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x50(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x50(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x44(%rbp)
movsd  -0x40(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x44(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
jb     1274 <mc64dd_+0x174>
jmp    12ae <mc64dd_+0x1ae>
mov    -0x44(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x48(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x48(%rbp),%edx
mov    -0x28(%rbp),%rax
movslq -0x44(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x50(%rbp),%eax
mov    %eax,-0x48(%rbp)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1220 <mc64dd_+0x120>
jmp    12a9 <mc64dd_+0x1a9>
jmp    12ae <mc64dd_+0x1ae>
mov    -0x8(%rbp),%rax
mov    (%rax),%edx
mov    -0x18(%rbp),%rax
movslq -0x48(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x48(%rbp),%edx
mov    -0x28(%rbp),%rax
mov    -0x8(%rbp),%rcx
movslq (%rcx),%rcx
mov    %edx,(%rax,%rcx,4)
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<mc64dd_>:
push   %rbx
movslq (%rdi),%rax
movsd  -0x8(%rcx,%rax,8),%xmm0
mov    -0x4(%r8,%rax,4),%r11d
mov    (%rsi),%r10d
test   %r10d,%r10d
setle  %sil
cmp    $0x2,%r11d
setl   %al
or     %sil,%al
cmpl   $0x1,(%r9)
jne    1174 <mc64dd_+0x74>
test   %al,%al
jne    1178 <mc64dd_+0x78>
mov    $0x1,%r9d
mov    %r11d,%esi
cs nopw 0x0(%rax,%rax,1)
shr    %esi
mov    -0x4(%rdx,%rsi,4),%eax
cltq
movsd  -0x8(%rcx,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jae    1178 <mc64dd_+0x78>
mov    %r11d,%ebx
mov    %eax,-0x4(%rdx,%rbx,4)
mov    %r11d,-0x4(%r8,%rax,4)
cmp    %r10d,%r9d
jge    117b <mc64dd_+0x7b>
add    $0x1,%r9d
cmp    $0x4,%r11d
mov    %esi,%r11d
jae    1140 <mc64dd_+0x40>
jmp    117b <mc64dd_+0x7b>
test   %al,%al
je     1190 <mc64dd_+0x90>
mov    %r11d,%esi
mov    (%rdi),%eax
movslq %esi,%rcx
mov    %eax,-0x4(%rdx,%rcx,4)
movslq (%rdi),%rax
mov    %ecx,-0x4(%r8,%rax,4)
xor    %eax,%eax
pop    %rbx
ret
mov    $0x1,%r9d
mov    %r11d,%esi
nopl   0x0(%rax)
shr    %esi
mov    -0x4(%rdx,%rsi,4),%eax
cltq
ucomisd -0x8(%rcx,%rax,8),%xmm0
jae    1178 <mc64dd_+0x78>
mov    %r11d,%ebx
mov    %eax,-0x4(%rdx,%rbx,4)
mov    %r11d,-0x4(%r8,%rax,4)
cmp    %r10d,%r9d
jge    117b <mc64dd_+0x7b>
add    $0x1,%r9d
cmp    $0x3,%r11d
mov    %esi,%r11d
ja     11a0 <mc64dd_+0xa0>
jmp    117b <mc64dd_+0x7b>

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

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