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


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

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

LLVM IR (-O0):
define void @lrotate_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* %14
%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* %13
%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 @lrotate_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** %0, i64 %18
%21 = load double*, double** %20
br label %22
22: ; preds = %19, %22
%23 = phi i64 [ %13, %19 ], [ %30, %22 ]
%24 = getelementptr inbounds double, double* %21, i64 %23
%25 = load double, double* %24
%26 = sub nsw i64 %16, %23
%27 = getelementptr inbounds double*, double** %5, i64 %26
%28 = load double*, double** %27
%29 = getelementptr inbounds double, double* %28, i64 %18
store double %25, 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
}