void transpose(int i_matdim, const double *pd_B, double *B) {
  int i, j;
  for (i = 0; i < i_matdim; i++)
    for (j = 0; j < i_matdim; j++) {
      B[i * i_matdim + j] = pd_B[j * i_matdim + i];
    }
}


x86 assembly (clang, -O0):
<transpose>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1182 <transpose+0x82>
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    116f <transpose+0x6f>
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%ecx
imul   -0x4(%rbp),%ecx
add    -0x1c(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x1c(%rbp),%ecx
imul   -0x4(%rbp),%ecx
add    -0x20(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1129 <transpose+0x29>
jmp    1174 <transpose+0x74>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1116 <transpose+0x16>
pop    %rbp
ret

x86 assembly (clang, -O2):
<transpose>:
push   %r15
push   %r14
push   %r12
push   %rbx
test   %edi,%edi
jle    11b9 <transpose+0xb9>
mov    %edi,%r8d
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
lea    0x0(,%r8,8),%r15
mov    %r8,%r10
shl    $0x4,%r10
lea    0x8(%rdx),%r12
xor    %r11d,%r11d
mov    %rsi,%r14
jmp    1150 <transpose+0x50>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
add    $0x1,%r11
add    $0x8,%r14
add    %r15,%r12
cmp    %r8,%r11
je     11b9 <transpose+0xb9>
cmp    $0x1,%edi
jne    1160 <transpose+0x60>
xor    %ecx,%ecx
jmp    1193 <transpose+0x93>
nopl   0x0(%rax)
mov    %r14,%rax
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%rax),%xmm0
movsd  %xmm0,-0x8(%r12,%rcx,8)
movsd  (%rax,%r15,1),%xmm0
movsd  %xmm0,(%r12,%rcx,8)
add    $0x2,%rcx
add    %r10,%rax
cmp    %rcx,%r9
jne    1170 <transpose+0x70>
test   $0x1,%r8b
je     1140 <transpose+0x40>
mov    %r11,%rax
imul   %r8,%rax
mov    %rcx,%rbx
imul   %r8,%rbx
add    %r11,%rbx
movsd  (%rsi,%rbx,8),%xmm0
add    %rcx,%rax
movsd  %xmm0,(%rdx,%rax,8)
jmp    1140 <transpose+0x40>
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define void @transpose(i32 %0, double* %1, double* %2) {
%4 = alloca i32
%5 = alloca double*
%6 = alloca double*
%7 = alloca i32
%8 = alloca i32
store i32 %0, i32* %4
store double* %1, double** %5
store double* %2, double** %6
store i32 0, i32* %7
br label %9
9: ; preds = %40, %3
%10 = load i32, i32* %7
%11 = load i32, i32* %4
%12 = icmp slt i32 %10, %11
br i1 %12, label %13, label %43
13: ; preds = %9
store i32 0, i32* %8
br label %14
14: ; preds = %36, %13
%15 = load i32, i32* %8
%16 = load i32, i32* %4
%17 = icmp slt i32 %15, %16
br i1 %17, label %18, label %39
18: ; preds = %14
%19 = load double*, double** %5
%20 = load i32, i32* %8
%21 = load i32, i32* %4
%22 = mul nsw i32 %20, %21
%23 = load i32, i32* %7
%24 = add nsw i32 %22, %23
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds double, double* %19, i64 %25
%27 = load double, double* %26
%28 = load double*, double** %6
%29 = load i32, i32* %7
%30 = load i32, i32* %4
%31 = mul nsw i32 %29, %30
%32 = load i32, i32* %8
%33 = add nsw i32 %31, %32
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %28, i64 %34
store double %27, double* %35
br label %36
36: ; preds = %18
%37 = load i32, i32* %8
%38 = add nsw i32 %37, 1
store i32 %38, i32* %8
br label %14
39: ; preds = %14
br label %40
40: ; preds = %39
%41 = load i32, i32* %7
%42 = add nsw i32 %41, 1
store i32 %42, i32* %7
br label %9
43: ; preds = %9
ret void
}

LLVM IR (-O2):
define void @transpose(i32 %0, double* nocapture %1, double* nocapture writeonly %2) {
%4 = icmp sgt i32 %0, 0
br i1 %4, label %5, label %46
5: ; preds = %3
%6 = zext i32 %0 to i64
%7 = zext i32 %0 to i64
%8 = and i64 %7, 1
%9 = icmp eq i32 %0, 1
%10 = and i64 %7, 4294967294
%11 = icmp eq i64 %8, 0
br label %12
12: ; preds = %43, %5
%13 = phi i64 [ 0, %5 ], [ %44, %43 ]
%14 = mul nsw i64 %13, %6
br i1 %9, label %34, label %15
15: ; preds = %12, %15
%16 = phi i64 [ %31, %15 ], [ 0, %12 ]
%17 = phi i64 [ %32, %15 ], [ 0, %12 ]
%18 = mul nsw i64 %16, %6
%19 = add nuw nsw i64 %18, %13
%20 = getelementptr inbounds double, double* %1, i64 %19
%21 = load double, double* %20
%22 = add nuw nsw i64 %16, %14
%23 = getelementptr inbounds double, double* %2, i64 %22
store double %21, double* %23
%24 = or i64 %16, 1
%25 = mul nsw i64 %24, %6
%26 = add nuw nsw i64 %25, %13
%27 = getelementptr inbounds double, double* %1, i64 %26
%28 = load double, double* %27
%29 = add nuw nsw i64 %24, %14
%30 = getelementptr inbounds double, double* %2, i64 %29
store double %28, double* %30
%31 = add nuw nsw i64 %16, 2
%32 = add i64 %17, 2
%33 = icmp eq i64 %32, %10
br i1 %33, label %34, label %15
34: ; preds = %15, %12
%35 = phi i64 [ 0, %12 ], [ %31, %15 ]
br i1 %11, label %43, label %36
36: ; preds = %34
%37 = mul nsw i64 %35, %6
%38 = add nuw nsw i64 %37, %13
%39 = getelementptr inbounds double, double* %1, i64 %38
%40 = load double, double* %39
%41 = add nuw nsw i64 %35, %14
%42 = getelementptr inbounds double, double* %2, i64 %41
store double %40, double* %42
br label %43
43: ; preds = %34, %36
%44 = add nuw nsw i64 %13, 1
%45 = icmp eq i64 %44, %7
br i1 %45, label %46, label %12
46: ; preds = %43, %3
ret void
}