long partitionD(long a[], long l, long r, double v[]) {
  long pivot, i, j, t;
  double td;
  t = (l + r) / 2;
  pivot = a[t];
  a[t] = a[l];
  a[l] = pivot;
  i = l;
  td = v[t];
  v[t] = v[l];
  v[l] = td;
  j = r + 1;
  while (1) {
    do
      ++i;
    while (a[i] <= pivot && i <= r);
    do
      --j;
    while (a[j] > pivot);
    if (i >= j)
      break;
    t = a[i];
    a[i] = a[j];
    a[j] = t;
    td = v[i];
    v[i] = v[j];
    v[j] = td;
  }
  t = a[l];
  a[l] = a[j];
  a[j] = t;
  td = v[l];
  v[l] = v[j];
  v[j] = td;
  return j;
}


x86 assembly (clang, -O0):
<partitionD>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x10(%rbp),%rax
add    -0x18(%rbp),%rax
mov    $0x2,%ecx
cqto
idiv   %rcx
mov    %rax,-0x40(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x8(%rbp),%rax
mov    -0x40(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x28(%rbp),%rdx
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x48(%rbp),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x10(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    11b9 <partitionD+0xb9>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rcx
xor    %eax,%eax
cmp    -0x28(%rbp),%rcx
mov    %al,-0x49(%rbp)
jg     11ee <partitionD+0xee>
mov    -0x30(%rbp),%rax
cmp    -0x18(%rbp),%rax
setle  %al
mov    %al,-0x49(%rbp)
mov    -0x49(%rbp),%al
test   $0x1,%al
jne    11b9 <partitionD+0xb9>
jmp    11fe <partitionD+0xfe>
mov    -0x38(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x38(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
cmp    -0x28(%rbp),%rax
jg     11fe <partitionD+0xfe>
mov    -0x30(%rbp),%rax
cmp    -0x38(%rbp),%rax
jl     1233 <partitionD+0x133>
jmp    12ae <partitionD+0x1ae>
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x40(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x40(%rbp),%rdx
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x48(%rbp),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    11b4 <partitionD+0xb4>
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x40(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rdx
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x40(%rbp),%rdx
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
mov    -0x10(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x10(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x48(%rbp),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<partitionD>:
lea    (%rdx,%rsi,1),%r8
mov    %r8,%r9
shr    $0x3f,%r9
add    %r8,%r9
shl    $0x2,%r9
and    $0xfffffffffffffff8,%r9
mov    (%rdi,%r9,1),%r8
mov    (%rdi,%rsi,8),%rax
mov    %rax,(%rdi,%r9,1)
mov    %r8,(%rdi,%rsi,8)
movsd  (%rcx,%r9,1),%xmm0
movsd  (%rcx,%rsi,8),%xmm1
movsd  %xmm1,(%rcx,%r9,1)
movsd  %xmm0,(%rcx,%rsi,8)
lea    0x1(%rdx),%rax
mov    %rsi,%r9
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r9,%r11
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
lea    0x1(%r11),%r9
mov    0x8(%rdi,%r11,8),%r10
cmp    %r8,%r10
jg     1180 <partitionD+0x80>
cmp    %rdx,%r11
mov    %r9,%r11
jl     1160 <partitionD+0x60>
cs nopw 0x0(%rax,%rax,1)
mov    -0x8(%rdi,%rax,8),%r11
add    $0xffffffffffffffff,%rax
cmp    %r8,%r11
jg     1180 <partitionD+0x80>
cmp    %rax,%r9
jge    11b3 <partitionD+0xb3>
mov    %r11,(%rdi,%r9,8)
mov    %r10,(%rdi,%rax,8)
movsd  (%rcx,%r9,8),%xmm0
movsd  (%rcx,%rax,8),%xmm1
movsd  %xmm1,(%rcx,%r9,8)
movsd  %xmm0,(%rcx,%rax,8)
jmp    1150 <partitionD+0x50>
mov    (%rdi,%rsi,8),%rdx
mov    %r11,(%rdi,%rsi,8)
mov    %rdx,(%rdi,%rax,8)
movsd  (%rcx,%rsi,8),%xmm0
movsd  (%rcx,%rax,8),%xmm1
movsd  %xmm1,(%rcx,%rsi,8)
movsd  %xmm0,(%rcx,%rax,8)
ret

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

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