void dup_smatrix(short **X, long nrl, long nrh, long ncl, long nch, short **Y) {
  int i, j;
  short *Xi, *Yi;
  for (i = nrl; i <= nrh; i++) {
    Xi = X[i];
    Yi = Y[i];
    for (j = ncl; j <= nch; j++) {
      Yi[j] = Xi[j];
    }
  }
}


x86 assembly (clang, -O0):
<dup_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    %r9,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x34(%rbp)
movslq -0x34(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     119f <dup_smatrix+0x9f>
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x40(%rbp)
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x48(%rbp)
mov    -0x20(%rbp),%rax
mov    %eax,-0x38(%rbp)
movslq -0x38(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     118c <dup_smatrix+0x8c>
mov    -0x40(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    (%rax,%rcx,2),%dx
mov    -0x48(%rbp),%rax
movslq -0x38(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1158 <dup_smatrix+0x58>
jmp    1191 <dup_smatrix+0x91>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1123 <dup_smatrix+0x23>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dup_smatrix>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
movslq %esi,%rax
cmp    %rdx,%rax
jle    111d <dup_smatrix+0x1d>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
movslq %ecx,%r10
lea    0x1(%r8),%rcx
lea    0x1(%r10),%r11
cmp    %r11,%rcx
cmovg  %rcx,%r11
mov    %r11,%r14
sub    %r10,%r14
lea    -0x10(%r14),%rcx
mov    %rcx,-0x18(%rsp)
shr    $0x4,%rcx
add    $0x1,%rcx
mov    %r14,%rsi
and    $0xfffffffffffffff0,%rsi
mov    %rsi,-0x20(%rsp)
add    %r10,%rsi
mov    %rsi,-0x28(%rsp)
mov    %ecx,%ebp
and    $0x3,%ebp
and    $0xfffffffffffffffc,%rcx
mov    %rcx,-0x38(%rsp)
lea    0x38(%r10),%rcx
mov    %rcx,-0x40(%rsp)
mov    %rbp,-0x30(%rsp)
shl    $0x5,%rbp
mov    %r11,-0x8(%rsp)
mov    %r14,-0x10(%rsp)
jmp    119d <dup_smatrix+0x9d>
cs nopw 0x0(%rax,%rax,1)
add    $0x1,%rax
cmp    %rdx,%rax
jg     1112 <dup_smatrix+0x12>
cmp    %r8,%r10
jg     1190 <dup_smatrix+0x90>
mov    (%rdi,%rax,8),%r15
mov    (%r9,%rax,8),%r13
mov    %r10,%rcx
cmp    $0x10,%r14
jb     12f0 <dup_smatrix+0x1f0>
lea    0x0(,%r10,2),%rcx
add    %r13,%rcx
lea    (%r15,%r11,2),%rsi
cmp    %rsi,%rcx
jae    11e6 <dup_smatrix+0xe6>
lea    0x0(,%r11,2),%rsi
add    %r13,%rsi
lea    (%r15,%r10,2),%rbx
mov    %r10,%rcx
cmp    %rsi,%rbx
jb     12f0 <dup_smatrix+0x1f0>
cmpq   $0x30,-0x18(%rsp)
jae    11f6 <dup_smatrix+0xf6>
xor    %r11d,%r11d
jmp    1288 <dup_smatrix+0x188>
mov    -0x40(%rsp),%rcx
lea    0x0(,%rcx,2),%r14
add    %r13,%r14
lea    (%r15,%rcx,2),%r12
mov    -0x38(%rsp),%rbx
xor    %r11d,%r11d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movups -0x70(%r12,%r11,2),%xmm0
movups -0x60(%r12,%r11,2),%xmm1
movups %xmm0,-0x70(%r14,%r11,2)
movups %xmm1,-0x60(%r14,%r11,2)
movups -0x50(%r12,%r11,2),%xmm0
movups -0x40(%r12,%r11,2),%xmm1
movups %xmm0,-0x50(%r14,%r11,2)
movups %xmm1,-0x40(%r14,%r11,2)
movups -0x30(%r12,%r11,2),%xmm0
movups -0x20(%r12,%r11,2),%xmm1
movups %xmm0,-0x30(%r14,%r11,2)
movups %xmm1,-0x20(%r14,%r11,2)
movups -0x10(%r12,%r11,2),%xmm0
movups (%r12,%r11,2),%xmm1
movups %xmm0,-0x10(%r14,%r11,2)
movups %xmm1,(%r14,%r11,2)
add    $0x40,%r11
add    $0xfffffffffffffffc,%rbx
jne    1220 <dup_smatrix+0x120>
cmpq   $0x0,-0x30(%rsp)
je     12cb <dup_smatrix+0x1cb>
add    %r10,%r11
lea    0x10(,%r11,2),%rcx
add    %r13,%rcx
lea    (%r15,%r11,2),%rbx
add    $0x10,%rbx
xor    %esi,%esi
nopl   0x0(%rax,%rax,1)
movups -0x10(%rbx,%rsi,1),%xmm0
movups (%rbx,%rsi,1),%xmm1
movups %xmm0,-0x10(%rcx,%rsi,1)
movups %xmm1,(%rcx,%rsi,1)
add    $0x20,%rsi
cmp    %rsi,%rbp
jne    12b0 <dup_smatrix+0x1b0>
mov    -0x28(%rsp),%rcx
mov    -0x10(%rsp),%r14
cmp    -0x20(%rsp),%r14
mov    -0x8(%rsp),%r11
je     1190 <dup_smatrix+0x90>
cs nopw 0x0(%rax,%rax,1)
nop
movzwl (%r15,%rcx,2),%esi
mov    %si,0x0(%r13,%rcx,2)
add    $0x1,%rcx
cmp    %r8,%rcx
jle    12f0 <dup_smatrix+0x1f0>
jmp    1190 <dup_smatrix+0x90>

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

LLVM IR (-O2):
define void @dup_smatrix(i16** nocapture %0, i64 %1, i64 %2, i64 %3, i64 %4, i16** nocapture %5) {
%7 = shl i64 %1, 32
%8 = ashr exact i64 %7, 32
%9 = icmp sgt i64 %8, %2
br i1 %9, label %133, label %10
10: ; preds = %6
%11 = shl i64 %3, 32
%12 = ashr exact i64 %11, 32
%13 = icmp sgt i64 %12, %4
%14 = add nsw i64 %4, 1
%15 = add nsw i64 %12, 1
%16 = call i64 @llvm.smax.i64(i64 %14, i64 %15)
%17 = add nsw i64 %4, 1
%18 = add nsw i64 %12, 1
%19 = call i64 @llvm.smax.i64(i64 %17, i64 %18)
%20 = sub i64 %19, %12
%21 = add i64 %20, -16
%22 = lshr i64 %21, 4
%23 = add nuw nsw i64 %22, 1
%24 = icmp ult i64 %20, 16
%25 = and i64 %20, -16
%26 = add i64 %12, %25
%27 = and i64 %23, 3
%28 = icmp ult i64 %21, 48
%29 = and i64 %23, 2305843009213693948
%30 = icmp eq i64 %27, 0
%31 = icmp eq i64 %20, %25
br label %32
32: ; preds = %10, %130
%33 = phi i64 [ %8, %10 ], [ %131, %130 ]
%34 = getelementptr inbounds i16*, i16** %0, i64 %33
%35 = load i16*, i16** %34
%36 = getelementptr inbounds i16*, i16** %5, i64 %33
%37 = load i16*, i16** %36
br i1 %13, label %130, label %38
38: ; preds = %32
br i1 %24, label %121, label %39
39: ; preds = %38
%40 = getelementptr i16, i16* %37, i64 %12
%41 = getelementptr i16, i16* %37, i64 %16
%42 = getelementptr i16, i16* %35, i64 %12
%43 = getelementptr i16, i16* %35, i64 %16
%44 = icmp ult i16* %40, %43
%45 = icmp ult i16* %42, %41
%46 = and i1 %44, %45
br i1 %46, label %121, label %47
47: ; preds = %39
br i1 %28, label %101, label %48
48: ; preds = %47, %48
%49 = phi i64 [ %98, %48 ], [ 0, %47 ]
%50 = phi i64 [ %99, %48 ], [ 0, %47 ]
%51 = add i64 %12, %49
%52 = getelementptr inbounds i16, i16* %35, i64 %51
%53 = bitcast i16* %52 to <8 x i16>*
%54 = load <8 x i16>, <8 x i16>* %53
%55 = getelementptr inbounds i16, i16* %52, i64 8
%56 = bitcast i16* %55 to <8 x i16>*
%57 = load <8 x i16>, <8 x i16>* %56
%58 = getelementptr inbounds i16, i16* %37, i64 %51
%59 = bitcast i16* %58 to <8 x i16>*
store <8 x i16> %54, <8 x i16>* %59
%60 = getelementptr inbounds i16, i16* %58, i64 8
%61 = bitcast i16* %60 to <8 x i16>*
store <8 x i16> %57, <8 x i16>* %61
%62 = or i64 %49, 16
%63 = add i64 %12, %62
%64 = getelementptr inbounds i16, i16* %35, i64 %63
%65 = bitcast i16* %64 to <8 x i16>*
%66 = load <8 x i16>, <8 x i16>* %65
%67 = getelementptr inbounds i16, i16* %64, i64 8
%68 = bitcast i16* %67 to <8 x i16>*
%69 = load <8 x i16>, <8 x i16>* %68
%70 = getelementptr inbounds i16, i16* %37, i64 %63
%71 = bitcast i16* %70 to <8 x i16>*
store <8 x i16> %66, <8 x i16>* %71
%72 = getelementptr inbounds i16, i16* %70, i64 8
%73 = bitcast i16* %72 to <8 x i16>*
store <8 x i16> %69, <8 x i16>* %73
%74 = or i64 %49, 32
%75 = add i64 %12, %74
%76 = getelementptr inbounds i16, i16* %35, i64 %75
%77 = bitcast i16* %76 to <8 x i16>*
%78 = load <8 x i16>, <8 x i16>* %77
%79 = getelementptr inbounds i16, i16* %76, i64 8
%80 = bitcast i16* %79 to <8 x i16>*
%81 = load <8 x i16>, <8 x i16>* %80
%82 = getelementptr inbounds i16, i16* %37, i64 %75
%83 = bitcast i16* %82 to <8 x i16>*
store <8 x i16> %78, <8 x i16>* %83
%84 = getelementptr inbounds i16, i16* %82, i64 8
%85 = bitcast i16* %84 to <8 x i16>*
store <8 x i16> %81, <8 x i16>* %85
%86 = or i64 %49, 48
%87 = add i64 %12, %86
%88 = getelementptr inbounds i16, i16* %35, i64 %87
%89 = bitcast i16* %88 to <8 x i16>*
%90 = load <8 x i16>, <8 x i16>* %89
%91 = getelementptr inbounds i16, i16* %88, i64 8
%92 = bitcast i16* %91 to <8 x i16>*
%93 = load <8 x i16>, <8 x i16>* %92
%94 = getelementptr inbounds i16, i16* %37, i64 %87
%95 = bitcast i16* %94 to <8 x i16>*
store <8 x i16> %90, <8 x i16>* %95
%96 = getelementptr inbounds i16, i16* %94, i64 8
%97 = bitcast i16* %96 to <8 x i16>*
store <8 x i16> %93, <8 x i16>* %97
%98 = add nuw i64 %49, 64
%99 = add i64 %50, 4
%100 = icmp eq i64 %99, %29
br i1 %100, label %101, label %48
101: ; preds = %48, %47
%102 = phi i64 [ 0, %47 ], [ %98, %48 ]
br i1 %30, label %120, label %103
103: ; preds = %101, %103
%104 = phi i64 [ %117, %103 ], [ %102, %101 ]
%105 = phi i64 [ %118, %103 ], [ 0, %101 ]
%106 = add i64 %12, %104
%107 = getelementptr inbounds i16, i16* %35, i64 %106
%108 = bitcast i16* %107 to <8 x i16>*
%109 = load <8 x i16>, <8 x i16>* %108
%110 = getelementptr inbounds i16, i16* %107, i64 8
%111 = bitcast i16* %110 to <8 x i16>*
%112 = load <8 x i16>, <8 x i16>* %111
%113 = getelementptr inbounds i16, i16* %37, i64 %106
%114 = bitcast i16* %113 to <8 x i16>*
store <8 x i16> %109, <8 x i16>* %114
%115 = getelementptr inbounds i16, i16* %113, i64 8
%116 = bitcast i16* %115 to <8 x i16>*
store <8 x i16> %112, <8 x i16>* %116
%117 = add nuw i64 %104, 16
%118 = add i64 %105, 1
%119 = icmp eq i64 %118, %27
br i1 %119, label %120, label %103
120: ; preds = %103, %101
br i1 %31, label %130, label %121
121: ; preds = %39, %38, %120
%122 = phi i64 [ %12, %39 ], [ %12, %38 ], [ %26, %120 ]
br label %123
123: ; preds = %121, %123
%124 = phi i64 [ %128, %123 ], [ %122, %121 ]
%125 = getelementptr inbounds i16, i16* %35, i64 %124
%126 = load i16, i16* %125
%127 = getelementptr inbounds i16, i16* %37, i64 %124
store i16 %126, i16* %127
%128 = add i64 %124, 1
%129 = icmp sgt i64 %128, %4
br i1 %129, label %130, label %123
130: ; preds = %123, %120, %32
%131 = add i64 %33, 1
%132 = icmp sgt i64 %131, %2
br i1 %132, label %133, label %32
133: ; preds = %130, %6
ret void
}