void dup_dmatrix(double **X, long nrl, long nrh, long ncl, long nch,
                 double **Y) {
  int i, j;
  double *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_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
mov    %eax,-0x34(%rbp)
movslq -0x34(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     11a1 <dup_dmatrix+0xa1>
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     118e <dup_dmatrix+0x8e>
mov    -0x40(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x48(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1158 <dup_dmatrix+0x58>
jmp    1193 <dup_dmatrix+0x93>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1123 <dup_dmatrix+0x23>
pop    %rbp
ret

x86 assembly (clang, -O2):
<dup_dmatrix>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
movslq %esi,%rax
cmp    %rdx,%rax
jle    111d <dup_dmatrix+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    -0x4(%r14),%rcx
mov    %rcx,-0x18(%rsp)
shr    $0x2,%rcx
add    $0x1,%rcx
mov    %r14,%rsi
and    $0xfffffffffffffffc,%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    0xe(%r10),%rcx
mov    %rcx,-0x40(%rsp)
mov    %rbp,-0x30(%rsp)
shl    $0x5,%rbp
mov    %r11,-0x8(%rsp)
mov    %r14,-0x10(%rsp)
jmp    119d <dup_dmatrix+0x9d>
cs nopw 0x0(%rax,%rax,1)
add    $0x1,%rax
cmp    %rdx,%rax
jg     1112 <dup_dmatrix+0x12>
cmp    %r8,%r10
jg     1190 <dup_dmatrix+0x90>
mov    (%rdi,%rax,8),%r15
mov    (%r9,%rax,8),%r13
mov    %r10,%rcx
cmp    $0x4,%r14
jb     12f0 <dup_dmatrix+0x1f0>
lea    0x0(,%r10,8),%rcx
add    %r13,%rcx
lea    (%r15,%r11,8),%rsi
cmp    %rsi,%rcx
jae    11e6 <dup_dmatrix+0xe6>
lea    0x0(,%r11,8),%rsi
add    %r13,%rsi
lea    (%r15,%r10,8),%rbx
mov    %r10,%rcx
cmp    %rsi,%rbx
jb     12f0 <dup_dmatrix+0x1f0>
cmpq   $0xc,-0x18(%rsp)
jae    11f6 <dup_dmatrix+0xf6>
xor    %r11d,%r11d
jmp    1288 <dup_dmatrix+0x188>
mov    -0x40(%rsp),%rcx
lea    0x0(,%rcx,8),%r14
add    %r13,%r14
lea    (%r15,%rcx,8),%r12
mov    -0x38(%rsp),%rbx
xor    %r11d,%r11d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movups -0x70(%r12,%r11,8),%xmm0
movups -0x60(%r12,%r11,8),%xmm1
movups %xmm0,-0x70(%r14,%r11,8)
movups %xmm1,-0x60(%r14,%r11,8)
movups -0x50(%r12,%r11,8),%xmm0
movups -0x40(%r12,%r11,8),%xmm1
movups %xmm0,-0x50(%r14,%r11,8)
movups %xmm1,-0x40(%r14,%r11,8)
movups -0x30(%r12,%r11,8),%xmm0
movups -0x20(%r12,%r11,8),%xmm1
movups %xmm0,-0x30(%r14,%r11,8)
movups %xmm1,-0x20(%r14,%r11,8)
movups -0x10(%r12,%r11,8),%xmm0
movups (%r12,%r11,8),%xmm1
movups %xmm0,-0x10(%r14,%r11,8)
movups %xmm1,(%r14,%r11,8)
add    $0x10,%r11
add    $0xfffffffffffffffc,%rbx
jne    1220 <dup_dmatrix+0x120>
cmpq   $0x0,-0x30(%rsp)
je     12cb <dup_dmatrix+0x1cb>
add    %r10,%r11
lea    0x10(,%r11,8),%rcx
add    %r13,%rcx
lea    (%r15,%r11,8),%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_dmatrix+0x1b0>
mov    -0x28(%rsp),%rcx
mov    -0x10(%rsp),%r14
cmp    -0x20(%rsp),%r14
mov    -0x8(%rsp),%r11
je     1190 <dup_dmatrix+0x90>
cs nopw 0x0(%rax,%rax,1)
nop
movsd  (%r15,%rcx,8),%xmm0
movsd  %xmm0,0x0(%r13,%rcx,8)
add    $0x1,%rcx
cmp    %r8,%rcx
jle    12f0 <dup_dmatrix+0x1f0>
jmp    1190 <dup_dmatrix+0x90>

LLVM IR (-O0):
define void @dup_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 double*
%16 = alloca double*
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
%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 double**, double*** %7
%26 = load i32, i32* %13
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds double*, double** %25, i64 %27
%29 = load double*, double** %28
store double* %29, double** %15
%30 = load double**, double*** %12
%31 = load i32, i32* %13
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds double*, double** %30, i64 %32
%34 = load double*, double** %33
store double* %34, double** %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 double*, double** %15
%44 = load i32, i32* %14
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds double, double* %43, i64 %45
%47 = load double, double* %46
%48 = load double*, double** %16
%49 = load i32, i32* %14
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %48, i64 %50
store double %47, double* %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_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 %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, -4
%22 = lshr i64 %21, 2
%23 = add nuw nsw i64 %22, 1
%24 = icmp ult i64 %20, 4
%25 = and i64 %20, -4
%26 = add i64 %12, %25
%27 = and i64 %23, 3
%28 = icmp ult i64 %21, 12
%29 = and i64 %23, 9223372036854775804
%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 double*, double** %0, i64 %33
%35 = load double*, double** %34
%36 = getelementptr inbounds double*, double** %5, i64 %33
%37 = load double*, double** %36
br i1 %13, label %130, label %38
38: ; preds = %32
br i1 %24, label %121, label %39
39: ; preds = %38
%40 = getelementptr double, double* %37, i64 %12
%41 = getelementptr double, double* %37, i64 %16
%42 = getelementptr double, double* %35, i64 %12
%43 = getelementptr double, double* %35, i64 %16
%44 = icmp ult double* %40, %43
%45 = icmp ult double* %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 double, double* %35, i64 %51
%53 = bitcast double* %52 to <2 x double>*
%54 = load <2 x double>, <2 x double>* %53
%55 = getelementptr inbounds double, double* %52, i64 2
%56 = bitcast double* %55 to <2 x double>*
%57 = load <2 x double>, <2 x double>* %56
%58 = getelementptr inbounds double, double* %37, i64 %51
%59 = bitcast double* %58 to <2 x double>*
store <2 x double> %54, <2 x double>* %59
%60 = getelementptr inbounds double, double* %58, i64 2
%61 = bitcast double* %60 to <2 x double>*
store <2 x double> %57, <2 x double>* %61
%62 = or i64 %49, 4
%63 = add i64 %12, %62
%64 = getelementptr inbounds double, double* %35, i64 %63
%65 = bitcast double* %64 to <2 x double>*
%66 = load <2 x double>, <2 x double>* %65
%67 = getelementptr inbounds double, double* %64, i64 2
%68 = bitcast double* %67 to <2 x double>*
%69 = load <2 x double>, <2 x double>* %68
%70 = getelementptr inbounds double, double* %37, i64 %63
%71 = bitcast double* %70 to <2 x double>*
store <2 x double> %66, <2 x double>* %71
%72 = getelementptr inbounds double, double* %70, i64 2
%73 = bitcast double* %72 to <2 x double>*
store <2 x double> %69, <2 x double>* %73
%74 = or i64 %49, 8
%75 = add i64 %12, %74
%76 = getelementptr inbounds double, double* %35, i64 %75
%77 = bitcast double* %76 to <2 x double>*
%78 = load <2 x double>, <2 x double>* %77
%79 = getelementptr inbounds double, double* %76, i64 2
%80 = bitcast double* %79 to <2 x double>*
%81 = load <2 x double>, <2 x double>* %80
%82 = getelementptr inbounds double, double* %37, i64 %75
%83 = bitcast double* %82 to <2 x double>*
store <2 x double> %78, <2 x double>* %83
%84 = getelementptr inbounds double, double* %82, i64 2
%85 = bitcast double* %84 to <2 x double>*
store <2 x double> %81, <2 x double>* %85
%86 = or i64 %49, 12
%87 = add i64 %12, %86
%88 = getelementptr inbounds double, double* %35, i64 %87
%89 = bitcast double* %88 to <2 x double>*
%90 = load <2 x double>, <2 x double>* %89
%91 = getelementptr inbounds double, double* %88, i64 2
%92 = bitcast double* %91 to <2 x double>*
%93 = load <2 x double>, <2 x double>* %92
%94 = getelementptr inbounds double, double* %37, i64 %87
%95 = bitcast double* %94 to <2 x double>*
store <2 x double> %90, <2 x double>* %95
%96 = getelementptr inbounds double, double* %94, i64 2
%97 = bitcast double* %96 to <2 x double>*
store <2 x double> %93, <2 x double>* %97
%98 = add nuw i64 %49, 16
%99 = add nuw 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 double, double* %35, i64 %106
%108 = bitcast double* %107 to <2 x double>*
%109 = load <2 x double>, <2 x double>* %108
%110 = getelementptr inbounds double, double* %107, i64 2
%111 = bitcast double* %110 to <2 x double>*
%112 = load <2 x double>, <2 x double>* %111
%113 = getelementptr inbounds double, double* %37, i64 %106
%114 = bitcast double* %113 to <2 x double>*
store <2 x double> %109, <2 x double>* %114
%115 = getelementptr inbounds double, double* %113, i64 2
%116 = bitcast double* %115 to <2 x double>*
store <2 x double> %112, <2 x double>* %116
%117 = add nuw i64 %104, 4
%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 double, double* %35, i64 %124
%126 = load double, double* %125
%127 = getelementptr inbounds double, double* %37, i64 %124
store double %126, double* %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
}