void transpose1_dmatrix(double **S, long nrl, long nrh, long ncl, long nch) {
  int i, j;
  double t;
  for (i = nrl; i <= nch; i++) {
    for (j = i + 1; j <= nch; j++) {
      t = S[j][i];
      S[j][i] = S[i][j];
      S[i][j] = t;
    }
  }
}


x86 assembly (clang, -O0):
<transpose1_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    -0x10(%rbp),%rax
mov    %eax,-0x2c(%rbp)
movslq -0x2c(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     11c3 <transpose1_dmatrix+0xc3>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
movslq -0x30(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     11b0 <transpose1_dmatrix+0xb0>
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1136 <transpose1_dmatrix+0x36>
jmp    11b5 <transpose1_dmatrix+0xb5>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    111f <transpose1_dmatrix+0x1f>
pop    %rbp
ret

x86 assembly (clang, -O2):
<transpose1_dmatrix>:
movslq %esi,%rax
cmp    %r8,%rax
jg     114d <transpose1_dmatrix+0x4d>
add    $0x1,%esi
movslq %esi,%r9
xchg   %ax,%ax
lea    0x1(%rax),%r10
cmp    %r8,%r10
jg     114d <transpose1_dmatrix+0x4d>
mov    (%rdi,%rax,8),%rsi
mov    %r9,%rcx
mov    (%rdi,%rcx,8),%rdx
movsd  (%rdx,%rax,8),%xmm0
movsd  (%rsi,%rcx,8),%xmm1
movsd  %xmm1,(%rdx,%rax,8)
movsd  %xmm0,(%rsi,%rcx,8)
add    $0x1,%rcx
cmp    %r8,%rcx
jle    1120 <transpose1_dmatrix+0x20>
add    $0x1,%r9
mov    %r10,%rax
cmp    %r8,%r10
jle    1110 <transpose1_dmatrix+0x10>
ret

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

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