void rrotate_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[i][j] = S[n - j][i];
    }
  }
}


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

x86 assembly (clang, -O2):
<rrotate_dmatrix>:
push   %rbx
movslq %esi,%rax
cmp    %rdx,%rax
jle    110b <rrotate_dmatrix+0xb>
pop    %rbx
ret
add    %edx,%esi
movslq %ecx,%r11
movslq %esi,%rcx
sub    %r11,%rcx
lea    (%rdi,%rcx,8),%r10
jmp    1129 <rrotate_dmatrix+0x29>
nopl   0x0(%rax)
add    $0x1,%rax
cmp    %rdx,%rax
jg     1109 <rrotate_dmatrix+0x9>
cmp    %r8,%r11
jg     1120 <rrotate_dmatrix+0x20>
mov    (%r9,%rax,8),%rdi
mov    %r10,%rsi
mov    %r11,%rcx
nopl   0x0(%rax,%rax,1)
mov    (%rsi),%rbx
movsd  (%rbx,%rax,8),%xmm0
movsd  %xmm0,(%rdi,%rcx,8)
add    $0x1,%rcx
add    $0xfffffffffffffff8,%rsi
cmp    %r8,%rcx
jle    1140 <rrotate_dmatrix+0x40>
jmp    1120 <rrotate_dmatrix+0x20>

LLVM IR (-O0):
define void @rrotate_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* %15
%38 = load i32, i32* %14
%39 = sub nsw i32 %37, %38
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds double*, double** %36, i64 %40
%42 = load double*, double** %41
%43 = load i32, i32* %13
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds double, double* %42, i64 %44
%46 = load double, double* %45
%47 = load double**, double*** %12
%48 = load i32, i32* %13
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds double*, double** %47, 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 %46, 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 @rrotate_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 %35, 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
br label %17
17: ; preds = %10, %32
%18 = phi i64 [ %8, %10 ], [ %33, %32 ]
br i1 %14, label %32, label %19
19: ; preds = %17
%20 = getelementptr inbounds double*, double** %5, i64 %18
%21 = load double*, double** %20
br label %22
22: ; preds = %19, %22
%23 = phi i64 [ %13, %19 ], [ %30, %22 ]
%24 = sub nsw i64 %16, %23
%25 = getelementptr inbounds double*, double** %0, i64 %24
%26 = load double*, double** %25
%27 = getelementptr inbounds double, double* %26, i64 %18
%28 = load double, double* %27
%29 = getelementptr inbounds double, double* %21, i64 %23
store double %28, double* %29
%30 = add i64 %23, 1
%31 = icmp sgt i64 %30, %4
br i1 %31, label %32, label %22
32: ; preds = %22, %17
%33 = add i64 %18, 1
%34 = icmp sgt i64 %33, %2
br i1 %34, label %35, label %17
35: ; preds = %32, %6
ret void
}