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


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

x86 assembly (clang, -O2):
<vflip_dmatrix>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
movslq %esi,%rax
cmp    %rdx,%rax
jle    111d <vflip_dmatrix+0x1d>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
add    %edx,%esi
movslq %ecx,%r11
movslq %esi,%r10
lea    0x1(%r8),%rcx
lea    0x1(%r11),%r15
cmp    %r15,%rcx
cmovg  %rcx,%r15
mov    %r15,%r12
sub    %r11,%r12
lea    -0x4(%r12),%rcx
mov    %rcx,-0x18(%rsp)
shr    $0x2,%rcx
add    $0x1,%rcx
mov    %r12,%rsi
and    $0xfffffffffffffffc,%rsi
mov    %rsi,-0x20(%rsp)
add    %r11,%rsi
mov    %rsi,-0x28(%rsp)
mov    %ecx,%r13d
and    $0x3,%r13d
and    $0xfffffffffffffffc,%rcx
mov    %rcx,-0x38(%rsp)
lea    0xe(%r11),%rcx
mov    %rcx,-0x40(%rsp)
mov    %r13,-0x30(%rsp)
shl    $0x5,%r13
mov    %r15,-0x8(%rsp)
mov    %r12,-0x10(%rsp)
jmp    119d <vflip_dmatrix+0x9d>
xchg   %ax,%ax
add    $0x1,%rax
cmp    %rdx,%rax
jg     1112 <vflip_dmatrix+0x12>
cmp    %r8,%r11
jg     1190 <vflip_dmatrix+0x90>
mov    %r10,%rcx
sub    %rax,%rcx
mov    (%rdi,%rax,8),%rbp
mov    (%r9,%rcx,8),%r14
mov    %r11,%rcx
cmp    $0x4,%r12
jb     12f0 <vflip_dmatrix+0x1f0>
lea    (%r14,%r11,8),%rcx
lea    0x0(,%r15,8),%rsi
add    %rbp,%rsi
cmp    %rsi,%rcx
jae    11ec <vflip_dmatrix+0xec>
lea    (%r14,%r15,8),%rsi
lea    0x0(,%r11,8),%rbx
add    %rbp,%rbx
mov    %r11,%rcx
cmp    %rsi,%rbx
jb     12f0 <vflip_dmatrix+0x1f0>
mov    %r10,%rcx
cmpq   $0xc,-0x18(%rsp)
jae    11ff <vflip_dmatrix+0xff>
xor    %r15d,%r15d
jmp    1288 <vflip_dmatrix+0x188>
mov    -0x40(%rsp),%rsi
lea    (%r14,%rsi,8),%r12
lea    0x0(,%rsi,8),%rbx
add    %rbp,%rbx
mov    -0x38(%rsp),%r10
xor    %r15d,%r15d
nopl   0x0(%rax,%rax,1)
movups -0x70(%rbx,%r15,8),%xmm0
movups -0x60(%rbx,%r15,8),%xmm1
movups %xmm0,-0x70(%r12,%r15,8)
movups %xmm1,-0x60(%r12,%r15,8)
movups -0x50(%rbx,%r15,8),%xmm0
movups -0x40(%rbx,%r15,8),%xmm1
movups %xmm0,-0x50(%r12,%r15,8)
movups %xmm1,-0x40(%r12,%r15,8)
movups -0x30(%rbx,%r15,8),%xmm0
movups -0x20(%rbx,%r15,8),%xmm1
movups %xmm0,-0x30(%r12,%r15,8)
movups %xmm1,-0x20(%r12,%r15,8)
movups -0x10(%rbx,%r15,8),%xmm0
movups (%rbx,%r15,8),%xmm1
movups %xmm0,-0x10(%r12,%r15,8)
movups %xmm1,(%r12,%r15,8)
add    $0x10,%r15
add    $0xfffffffffffffffc,%r10
jne    1220 <vflip_dmatrix+0x120>
cmpq   $0x0,-0x30(%rsp)
mov    %rcx,%r10
je     12cb <vflip_dmatrix+0x1cb>
add    %r11,%r15
lea    (%r14,%r15,8),%rcx
add    $0x10,%rcx
lea    0x10(,%r15,8),%rbx
add    %rbp,%rbx
xor    %esi,%esi
nopl   0x0(%rax,%rax,1)
movups -0x10(%rbx,%rsi,1),%xmm0
movups (%rbx,%rsi,1),%xmm1
movups %xmm0,-0x10(%rcx,%rsi,1)
movups %xmm1,(%rcx,%rsi,1)
add    $0x20,%rsi
cmp    %rsi,%r13
jne    12b0 <vflip_dmatrix+0x1b0>
mov    -0x28(%rsp),%rcx
mov    -0x10(%rsp),%r12
cmp    -0x20(%rsp),%r12
mov    -0x8(%rsp),%r15
je     1190 <vflip_dmatrix+0x90>
cs nopw 0x0(%rax,%rax,1)
nop
movsd  0x0(%rbp,%rcx,8),%xmm0
movsd  %xmm0,(%r14,%rcx,8)
add    $0x1,%rcx
cmp    %r8,%rcx
jle    12f0 <vflip_dmatrix+0x1f0>
jmp    1190 <vflip_dmatrix+0x90>

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