void svd_dsort2(long igap, long n, double *array1, double *array2) {
  double temp;
  long i, j, index;
  if (!igap)
    return;
  else {
    for (i = igap; i < n; i++) {
      j = i - igap;
      index = i;
      while (j >= 0 && array1[j] > array1[index]) {
        temp = array1[j];
        array1[j] = array1[index];
        array1[index] = temp;
        temp = array2[j];
        array2[j] = array2[index];
        array2[index] = temp;
        j -= igap;
        index = j + igap;
      }
    }
  }
  svd_dsort2(igap / 2, n, array1, array2);
}


x86 assembly (clang, -O0):
<svd_dsort2>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
cmpq   $0x0,-0x8(%rbp)
jne    1138 <svd_dsort2+0x28>
jmp    127b <svd_dsort2+0x16b>
mov    -0x8(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1254 <svd_dsort2+0x144>
mov    -0x30(%rbp),%rax
sub    -0x8(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,-0x40(%rbp)
xor    %eax,%eax
cmpq   $0x0,-0x38(%rbp)
mov    %al,-0x41(%rbp)
jl     1192 <svd_dsort2+0x82>
mov    -0x18(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
ucomisd (%rax,%rcx,8),%xmm0
seta   %al
mov    %al,-0x41(%rbp)
mov    -0x41(%rbp),%al
test   $0x1,%al
jne    11a2 <svd_dsort2+0x92>
jmp    123e <svd_dsort2+0x12e>
mov    -0x18(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x28(%rbp),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x28(%rbp),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x40(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x8(%rbp),%rcx
mov    -0x38(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
add    -0x8(%rbp),%rax
mov    %rax,-0x40(%rbp)
jmp    1162 <svd_dsort2+0x52>
jmp    1243 <svd_dsort2+0x133>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1140 <svd_dsort2+0x30>
jmp    1259 <svd_dsort2+0x149>
mov    -0x8(%rbp),%rax
mov    $0x2,%ecx
cqto
idiv   %rcx
mov    %rax,%rdi
mov    -0x10(%rbp),%rsi
mov    -0x18(%rbp),%rdx
mov    -0x20(%rbp),%rcx
call   1030 <svd_dsort2@plt>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<svd_dsort2>:
test   %rdi,%rdi
jne    112a <svd_dsort2+0x2a>
ret
cs nopw 0x0(%rax,%rax,1)
mov    %rdi,%rax
shr    $0x3f,%rax
add    %rdi,%rax
sar    %rax
add    $0x1,%rdi
cmp    $0x2,%rdi
mov    %rax,%rdi
jbe    1105 <svd_dsort2+0x5>
cmp    %rsi,%rdi
jge    1110 <svd_dsort2+0x10>
lea    (%rdx,%rdi,8),%r8
lea    (%rcx,%rdi,8),%r10
mov    %rdi,%r9
jmp    1149 <svd_dsort2+0x49>
nopl   0x0(%rax)
add    $0x1,%r9
cmp    %rsi,%r9
je     1110 <svd_dsort2+0x10>
mov    %r9,%rax
sub    %rdi,%rax
js     1140 <svd_dsort2+0x40>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  (%rdx,%rax,8),%xmm0
movsd  (%r8,%rax,8),%xmm1
ucomisd %xmm1,%xmm0
jbe    1140 <svd_dsort2+0x40>
movsd  %xmm1,(%rdx,%rax,8)
movsd  %xmm0,(%r8,%rax,8)
movsd  (%rcx,%rax,8),%xmm0
movsd  (%r10,%rax,8),%xmm1
movsd  %xmm1,(%rcx,%rax,8)
movsd  %xmm0,(%r10,%rax,8)
sub    %rdi,%rax
jns    1160 <svd_dsort2+0x60>
jmp    1140 <svd_dsort2+0x40>

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

LLVM IR (-O2):
define void @svd_dsort2(i64 %0, i64 %1, double* nocapture %2, double* nocapture %3) {
%5 = icmp eq i64 %0, 0
br i1 %5, label %35, label %6
6: ; preds = %4, %31
%7 = phi i64 [ %32, %31 ], [ %0, %4 ]
%8 = icmp slt i64 %7, %1
br i1 %8, label %9, label %31
9: ; preds = %6, %28
%10 = phi i64 [ %29, %28 ], [ %7, %6 ]
%11 = sub nsw i64 %10, %7
%12 = icmp sgt i64 %11, -1
br i1 %12, label %13, label %28
13: ; preds = %9, %21
%14 = phi i64 [ %26, %21 ], [ %11, %9 ]
%15 = phi i64 [ %14, %21 ], [ %10, %9 ]
%16 = getelementptr inbounds double, double* %2, i64 %14
%17 = load double, double* %16
%18 = getelementptr inbounds double, double* %2, i64 %15
%19 = load double, double* %18
%20 = fcmp ogt double %17, %19
br i1 %20, label %21, label %28
21: ; preds = %13
store double %19, double* %16
store double %17, double* %18
%22 = getelementptr inbounds double, double* %3, i64 %14
%23 = load double, double* %22
%24 = getelementptr inbounds double, double* %3, i64 %15
%25 = load double, double* %24
store double %25, double* %22
store double %23, double* %24
%26 = sub nsw i64 %14, %7
%27 = icmp sgt i64 %26, -1
br i1 %27, label %13, label %28
28: ; preds = %21, %13, %9
%29 = add nsw i64 %10, 1
%30 = icmp eq i64 %29, %1
br i1 %30, label %31, label %9
31: ; preds = %28, %6
%32 = sdiv i64 %7, 2
%33 = add i64 %7, 1
%34 = icmp ult i64 %33, 3
br i1 %34, label %35, label %6
35: ; preds = %31, %4
ret void
}