void transpose1_smatrix(short **S, long nrl, long nrh, long ncl, long nch) {
  int i, j;
  short 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_smatrix>:
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     11bd <transpose1_smatrix+0xbd>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
movslq -0x30(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     11aa <transpose1_smatrix+0xaa>
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,2),%ax
mov    %ax,-0x32(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,2),%dx
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x2c(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    -0x32(%rbp),%dx
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1136 <transpose1_smatrix+0x36>
jmp    11af <transpose1_smatrix+0xaf>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    111f <transpose1_smatrix+0x1f>
pop    %rbp
ret

x86 assembly (clang, -O2):
<transpose1_smatrix>:
push   %rbx
movslq %esi,%r11
cmp    %r8,%r11
jg     114b <transpose1_smatrix+0x4b>
add    $0x1,%esi
movslq %esi,%r9
nop
lea    0x1(%r11),%r10
cmp    %r8,%r10
jg     114b <transpose1_smatrix+0x4b>
mov    (%rdi,%r11,8),%rsi
mov    %r9,%rcx
mov    (%rdi,%rcx,8),%rdx
movzwl (%rdx,%r11,2),%eax
movzwl (%rsi,%rcx,2),%ebx
mov    %bx,(%rdx,%r11,2)
mov    %ax,(%rsi,%rcx,2)
add    $0x1,%rcx
cmp    %r8,%rcx
jle    1120 <transpose1_smatrix+0x20>
add    $0x1,%r9
mov    %r10,%r11
cmp    %r8,%r10
jle    1110 <transpose1_smatrix+0x10>
pop    %rbx
ret

LLVM IR (-O0):
define void @transpose1_smatrix(i16** %0, i64 %1, i64 %2, i64 %3, i64 %4) {
%6 = alloca i16**
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i32
%12 = alloca i32
%13 = alloca i16
store i16** %0, i16*** %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 i16**, i16*** %6
%31 = load i32, i32* %12
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i16*, i16** %30, i64 %32
%34 = load i16*, i16** %33
%35 = load i32, i32* %11
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds i16, i16* %34, i64 %36
%38 = load i16, i16* %37
store i16 %38, i16* %13
%39 = load i16**, i16*** %6
%40 = load i32, i32* %11
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds i16*, i16** %39, i64 %41
%43 = load i16*, i16** %42
%44 = load i32, i32* %12
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds i16, i16* %43, i64 %45
%47 = load i16, i16* %46
%48 = load i16**, i16*** %6
%49 = load i32, i32* %12
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds i16*, i16** %48, i64 %50
%52 = load i16*, i16** %51
%53 = load i32, i32* %11
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds i16, i16* %52, i64 %54
store i16 %47, i16* %55
%56 = load i16, i16* %13
%57 = load i16**, i16*** %6
%58 = load i32, i32* %11
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds i16*, i16** %57, i64 %59
%61 = load i16*, i16** %60
%62 = load i32, i32* %12
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds i16, i16* %61, i64 %63
store i16 %56, i16* %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_smatrix(i16** 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 i16*, i16** %0, i64 %16
%22 = load i16*, i16** %21
br label %23
23: ; preds = %20, %23
%24 = phi i64 [ %17, %20 ], [ %31, %23 ]
%25 = getelementptr inbounds i16*, i16** %0, i64 %24
%26 = load i16*, i16** %25
%27 = getelementptr inbounds i16, i16* %26, i64 %16
%28 = load i16, i16* %27
%29 = getelementptr inbounds i16, i16* %22, i64 %24
%30 = load i16, i16* %29
store i16 %30, i16* %27
store i16 %28, i16* %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
}