void hflip_dmatrix(double **S, long nrl, long nrh, long ncl, long nch,
                   double **D) {
  int i, j, n = ncl + nch;
  for (i = nrl; i <= nrh; i++) {
    for (j = ncl; j <= nch; j++) {
      D[i][n - j] = S[i][j];
    }
  }
}


x86 assembly (clang, -O0):
<hflip_dmatrix>:
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    -0x20(%rbp),%rax
add    -0x28(%rbp),%rax
mov    %eax,-0x3c(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x34(%rbp)
movslq -0x34(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     11a1 <hflip_dmatrix+0xa1>
mov    -0x20(%rbp),%rax
mov    %eax,-0x38(%rbp)
movslq -0x38(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     118e <hflip_dmatrix+0x8e>
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x3c(%rbp),%ecx
sub    -0x38(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1143 <hflip_dmatrix+0x43>
jmp    1193 <hflip_dmatrix+0x93>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    112e <hflip_dmatrix+0x2e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<hflip_dmatrix>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
movslq %esi,%rax
cmp    %rdx,%rax
jle    111d <hflip_dmatrix+0x1d>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
lea    (%r8,%rcx,1),%esi
movslq %ecx,%r11
movslq %esi,%r10
lea    0x1(%r10),%rsi
lea    0x1(%r8),%rcx
lea    0x1(%r11),%r14
cmp    %r14,%rcx
cmovg  %rcx,%r14
mov    %rsi,%r12
sub    %r14,%r12
sub    %r11,%rsi
mov    %rsi,-0x8(%rsp)
mov    %r14,%r13
sub    %r11,%r13
lea    -0x4(%r13),%rcx
mov    %rcx,-0x18(%rsp)
mov    %rcx,%rsi
shr    $0x2,%rsi
add    $0x1,%rsi
mov    %r13,%rcx
and    $0xfffffffffffffffc,%rcx
mov    %rcx,-0x28(%rsp)
add    %r11,%rcx
mov    %rcx,-0x30(%rsp)
mov    %rsi,%rcx
mov    %rsi,-0x20(%rsp)
and    $0xfffffffffffffffe,%rsi
mov    %rsi,-0x40(%rsp)
mov    %r11,%rcx
not    %rcx
add    %r10,%rcx
mov    %rcx,-0x48(%rsp)
lea    0x6(%r11),%rcx
mov    %rcx,-0x50(%rsp)
mov    %r13,-0x10(%rsp)
mov    %r12,-0x38(%rsp)
jmp    11bd <hflip_dmatrix+0xbd>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rax
cmp    %rdx,%rax
jg     1112 <hflip_dmatrix+0x12>
cmp    %r8,%r11
jg     11b0 <hflip_dmatrix+0xb0>
mov    (%rdi,%rax,8),%r15
mov    (%r9,%rax,8),%rbp
mov    %r11,%rcx
cmp    $0x4,%r13
jb     12e0 <hflip_dmatrix+0x1e0>
lea    0x0(,%r12,8),%rcx
add    %rbp,%rcx
lea    (%r15,%r14,8),%rsi
cmp    %rsi,%rcx
jae    120b <hflip_dmatrix+0x10b>
mov    -0x8(%rsp),%rcx
lea    0x0(,%rcx,8),%rsi
add    %rbp,%rsi
lea    (%r15,%r11,8),%rbx
mov    %r11,%rcx
cmp    %rsi,%rbx
jb     12e0 <hflip_dmatrix+0x1e0>
mov    %r14,%rsi
mov    %r10,%rcx
cmpq   $0x4,-0x18(%rsp)
jae    121e <hflip_dmatrix+0x11e>
xor    %r13d,%r13d
jmp    1288 <hflip_dmatrix+0x188>
mov    -0x48(%rsp),%rbx
lea    0x0(,%rbx,8),%r10
add    %rbp,%r10
mov    -0x50(%rsp),%rbx
lea    (%r15,%rbx,8),%r12
mov    -0x40(%rsp),%r14
xor    %r13d,%r13d
nop
movups -0x30(%r12,%r13,8),%xmm0
movups -0x20(%r12,%r13,8),%xmm1
shufps $0x4e,%xmm0,%xmm0
movups %xmm0,(%r10)
shufps $0x4e,%xmm1,%xmm1
movups %xmm1,-0x10(%r10)
movups -0x10(%r12,%r13,8),%xmm0
movups (%r12,%r13,8),%xmm1
shufps $0x4e,%xmm0,%xmm0
movups %xmm0,-0x20(%r10)
shufps $0x4e,%xmm1,%xmm1
movups %xmm1,-0x30(%r10)
add    $0x8,%r13
add    $0xffffffffffffffc0,%r10
add    $0xfffffffffffffffe,%r14
jne    1240 <hflip_dmatrix+0x140>
testb  $0x1,-0x20(%rsp)
mov    %rcx,%r10
mov    %rsi,%r14
mov    -0x38(%rsp),%r12
je     12c0 <hflip_dmatrix+0x1c0>
add    %r11,%r13
movups (%r15,%r13,8),%xmm0
movups 0x10(%r15,%r13,8),%xmm1
mov    %r10,%rcx
sub    %r13,%rcx
shufps $0x4e,%xmm0,%xmm0
movups %xmm0,-0x8(%rbp,%rcx,8)
shufps $0x4e,%xmm1,%xmm1
movups %xmm1,-0x18(%rbp,%rcx,8)
mov    -0x30(%rsp),%rcx
mov    -0x10(%rsp),%r13
cmp    -0x28(%rsp),%r13
je     11b0 <hflip_dmatrix+0xb0>
cs nopw 0x0(%rax,%rax,1)
nop
lea    0x0(%rbp,%r10,8),%rbp
lea    0x0(,%rcx,8),%rsi
sub    %rsi,%rbp
movsd  (%r15,%rcx,8),%xmm0
movsd  %xmm0,0x0(%rbp)
add    $0x1,%rcx
add    $0xfffffffffffffff8,%rbp
cmp    %r8,%rcx
jle    12f0 <hflip_dmatrix+0x1f0>
jmp    11b0 <hflip_dmatrix+0xb0>

LLVM IR (-O0):
define void @hflip_dmatrix(double** %0, i64 %1, i64 %2, i64 %3, i64 %4, double** %5) {
%7 = alloca double**
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
%12 = alloca double**
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
store double** %0, double*** %7
store i64 %1, i64* %8
store i64 %2, i64* %9
store i64 %3, i64* %10
store i64 %4, i64* %11
store double** %5, double*** %12
%16 = load i64, i64* %10
%17 = load i64, i64* %11
%18 = add nsw i64 %16, %17
%19 = trunc i64 %18 to i32
store i32 %19, i32* %15
%20 = load i64, i64* %8
%21 = trunc i64 %20 to i32
store i32 %21, i32* %13
br label %22
22: ; preds = %59, %6
%23 = load i32, i32* %13
%24 = sext i32 %23 to i64
%25 = load i64, i64* %9
%26 = icmp sle i64 %24, %25
br i1 %26, label %27, label %62
27: ; preds = %22
%28 = load i64, i64* %10
%29 = trunc i64 %28 to i32
store i32 %29, i32* %14
br label %30
30: ; preds = %55, %27
%31 = load i32, i32* %14
%32 = sext i32 %31 to i64
%33 = load i64, i64* %11
%34 = icmp sle i64 %32, %33
br i1 %34, label %35, label %58
35: ; preds = %30
%36 = load double**, double*** %7
%37 = load i32, i32* %13
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds double*, double** %36, i64 %38
%40 = load double*, double** %39
%41 = load i32, i32* %14
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds double, double* %40, i64 %42
%44 = load double, double* %43
%45 = load double**, double*** %12
%46 = load i32, i32* %13
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds double*, double** %45, i64 %47
%49 = load double*, double** %48
%50 = load i32, i32* %15
%51 = load i32, i32* %14
%52 = sub nsw i32 %50, %51
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds double, double* %49, i64 %53
store double %44, double* %54
br label %55
55: ; preds = %35
%56 = load i32, i32* %14
%57 = add nsw i32 %56, 1
store i32 %57, i32* %14
br label %30
58: ; preds = %30
br label %59
59: ; preds = %58
%60 = load i32, i32* %13
%61 = add nsw i32 %60, 1
store i32 %61, i32* %13
br label %22
62: ; preds = %22
ret void
}

LLVM IR (-O2):
define void @hflip_dmatrix(double** nocapture %0, i64 %1, i64 %2, i64 %3, i64 %4, double** nocapture %5) {
%7 = shl i64 %1, 32
%8 = ashr exact i64 %7, 32
%9 = icmp sgt i64 %8, %2
br i1 %9, label %126, label %10
10: ; preds = %6
%11 = add nsw i64 %4, %3
%12 = shl i64 %3, 32
%13 = ashr exact i64 %12, 32
%14 = icmp sgt i64 %13, %4
%15 = shl i64 %11, 32
%16 = ashr exact i64 %15, 32
%17 = add nsw i64 %16, 1
%18 = add nsw i64 %4, 1
%19 = add nsw i64 %13, 1
%20 = call i64 @llvm.smax.i64(i64 %18, i64 %19)
%21 = sub i64 %17, %20
%22 = sub nsw i64 %17, %13
%23 = add nsw i64 %4, 1
%24 = add nsw i64 %13, 1
%25 = call i64 @llvm.smax.i64(i64 %23, i64 %24)
%26 = sub i64 %25, %13
%27 = add i64 %26, -4
%28 = lshr i64 %27, 2
%29 = add nuw nsw i64 %28, 1
%30 = icmp ult i64 %26, 4
%31 = and i64 %26, -4
%32 = add i64 %13, %31
%33 = and i64 %29, 1
%34 = icmp ult i64 %27, 4
%35 = and i64 %29, 9223372036854775806
%36 = icmp eq i64 %33, 0
%37 = icmp eq i64 %26, %31
br label %38
38: ; preds = %10, %123
%39 = phi i64 [ %8, %10 ], [ %124, %123 ]
br i1 %14, label %123, label %40
40: ; preds = %38
%41 = getelementptr inbounds double*, double** %0, i64 %39
%42 = load double*, double** %41
%43 = getelementptr inbounds double*, double** %5, i64 %39
%44 = load double*, double** %43
br i1 %30, label %113, label %45
45: ; preds = %40
%46 = getelementptr double, double* %44, i64 %21
%47 = getelementptr double, double* %44, i64 %22
%48 = getelementptr double, double* %42, i64 %13
%49 = getelementptr double, double* %42, i64 %20
%50 = icmp ult double* %46, %49
%51 = icmp ult double* %48, %47
%52 = and i1 %50, %51
br i1 %52, label %113, label %53
53: ; preds = %45
br i1 %34, label %93, label %54
54: ; preds = %53, %54
%55 = phi i64 [ %90, %54 ], [ 0, %53 ]
%56 = phi i64 [ %91, %54 ], [ 0, %53 ]
%57 = add i64 %13, %55
%58 = getelementptr inbounds double, double* %42, i64 %57
%59 = bitcast double* %58 to <2 x double>*
%60 = load <2 x double>, <2 x double>* %59
%61 = getelementptr inbounds double, double* %58, i64 2
%62 = bitcast double* %61 to <2 x double>*
%63 = load <2 x double>, <2 x double>* %62
%64 = sub nsw i64 %16, %57
%65 = getelementptr inbounds double, double* %44, i64 %64
%66 = shufflevector <2 x double> %60, <2 x double> poison, <2 x i32> <i32 1, i32 0>
%67 = getelementptr inbounds double, double* %65, i64 -1
%68 = bitcast double* %67 to <2 x double>*
store <2 x double> %66, <2 x double>* %68
%69 = shufflevector <2 x double> %63, <2 x double> poison, <2 x i32> <i32 1, i32 0>
%70 = getelementptr inbounds double, double* %65, i64 -2
%71 = getelementptr inbounds double, double* %70, i64 -1
%72 = bitcast double* %71 to <2 x double>*
store <2 x double> %69, <2 x double>* %72
%73 = or i64 %55, 4
%74 = add i64 %13, %73
%75 = getelementptr inbounds double, double* %42, i64 %74
%76 = bitcast double* %75 to <2 x double>*
%77 = load <2 x double>, <2 x double>* %76
%78 = getelementptr inbounds double, double* %75, i64 2
%79 = bitcast double* %78 to <2 x double>*
%80 = load <2 x double>, <2 x double>* %79
%81 = sub nsw i64 %16, %74
%82 = getelementptr inbounds double, double* %44, i64 %81
%83 = shufflevector <2 x double> %77, <2 x double> poison, <2 x i32> <i32 1, i32 0>
%84 = getelementptr inbounds double, double* %82, i64 -1
%85 = bitcast double* %84 to <2 x double>*
store <2 x double> %83, <2 x double>* %85
%86 = shufflevector <2 x double> %80, <2 x double> poison, <2 x i32> <i32 1, i32 0>
%87 = getelementptr inbounds double, double* %82, i64 -2
%88 = getelementptr inbounds double, double* %87, i64 -1
%89 = bitcast double* %88 to <2 x double>*
store <2 x double> %86, <2 x double>* %89
%90 = add nuw i64 %55, 8
%91 = add i64 %56, 2
%92 = icmp eq i64 %91, %35
br i1 %92, label %93, label %54
93: ; preds = %54, %53
%94 = phi i64 [ 0, %53 ], [ %90, %54 ]
br i1 %36, label %112, label %95
95: ; preds = %93
%96 = add i64 %13, %94
%97 = getelementptr inbounds double, double* %42, i64 %96
%98 = bitcast double* %97 to <2 x double>*
%99 = load <2 x double>, <2 x double>* %98
%100 = getelementptr inbounds double, double* %97, i64 2
%101 = bitcast double* %100 to <2 x double>*
%102 = load <2 x double>, <2 x double>* %101
%103 = sub nsw i64 %16, %96
%104 = getelementptr inbounds double, double* %44, i64 %103
%105 = shufflevector <2 x double> %99, <2 x double> poison, <2 x i32> <i32 1, i32 0>
%106 = getelementptr inbounds double, double* %104, i64 -1
%107 = bitcast double* %106 to <2 x double>*
store <2 x double> %105, <2 x double>* %107
%108 = shufflevector <2 x double> %102, <2 x double> poison, <2 x i32> <i32 1, i32 0>
%109 = getelementptr inbounds double, double* %104, i64 -2
%110 = getelementptr inbounds double, double* %109, i64 -1
%111 = bitcast double* %110 to <2 x double>*
store <2 x double> %108, <2 x double>* %111
br label %112
112: ; preds = %93, %95
br i1 %37, label %123, label %113
113: ; preds = %45, %40, %112
%114 = phi i64 [ %13, %45 ], [ %13, %40 ], [ %32, %112 ]
br label %115
115: ; preds = %113, %115
%116 = phi i64 [ %121, %115 ], [ %114, %113 ]
%117 = getelementptr inbounds double, double* %42, i64 %116
%118 = load double, double* %117
%119 = sub nsw i64 %16, %116
%120 = getelementptr inbounds double, double* %44, i64 %119
store double %118, double* %120
%121 = add i64 %116, 1
%122 = icmp sgt i64 %121, %4
br i1 %122, label %123, label %115
123: ; preds = %115, %112, %38
%124 = add i64 %39, 1
%125 = icmp sgt i64 %124, %2
br i1 %125, label %126, label %38
126: ; preds = %123, %6
ret void
}