void zero_dmatrix(double **m, long nrl, long nrh, long ncl, long nch) {
  long i, j;
  double *mi;
  for (i = nrl; i <= nrh; i++) {
    mi = m[i];
    for (j = ncl; j <= nch; j++) {
      mi[j] = 0.0;
    }
  }
}


x86 assembly (clang, -O0):
<zero_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    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     118b <zero_dmatrix+0x8b>
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x40(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     1175 <zero_dmatrix+0x75>
mov    -0x40(%rbp),%rax
mov    -0x38(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    1146 <zero_dmatrix+0x46>
jmp    117a <zero_dmatrix+0x7a>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1120 <zero_dmatrix+0x20>
pop    %rbp
ret

x86 assembly (clang, -O2):
<zero_dmatrix>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rdi,0x8(%rsp)
mov    %rdx,(%rsp)
sub    %rsi,%rdx
jl     119f <zero_dmatrix+0x8f>
mov    %r8,%r14
mov    %rcx,%r13
mov    %rsi,%rbx
mov    %rdx,0x10(%rsp)
mov    %r8,%rax
sub    %rcx,%rax
lea    0x8(,%rax,8),%r12
mov    (%rsp),%r15
sub    %ebx,%r15d
add    $0x1,%r15d
and    $0x3,%r15
je     1197 <zero_dmatrix+0x87>
lea    0x0(,%r13,8),%rbp
jmp    117a <zero_dmatrix+0x6a>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%rbx
add    $0xffffffffffffffff,%r15
je     1197 <zero_dmatrix+0x87>
cmp    %r14,%r13
jg     1170 <zero_dmatrix+0x60>
mov    0x8(%rsp),%rax
mov    (%rax,%rbx,8),%rdi
add    %rbp,%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
jmp    1170 <zero_dmatrix+0x60>
cmpq   $0x3,0x10(%rsp)
jae    11ae <zero_dmatrix+0x9e>
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
sub    %rbx,(%rsp)
mov    0x8(%rsp),%rax
lea    (%rax,%rbx,8),%rbx
add    $0x18,%rbx
mov    $0xffffffffffffffff,%rbp
lea    0x0(,%r13,8),%r15
jmp    11da <zero_dmatrix+0xca>
add    $0x4,%rbp
cmp    %rbp,(%rsp)
je     119f <zero_dmatrix+0x8f>
cmp    %r14,%r13
jg     1214 <zero_dmatrix+0x104>
mov    -0x10(%rbx,%rbp,8),%rdi
add    %r15,%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    -0x8(%rbx,%rbp,8),%rdi
add    %r15,%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
mov    (%rbx,%rbp,8),%rdi
add    %r15,%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
cmp    %r14,%r13
jg     11d0 <zero_dmatrix+0xc0>
mov    0x8(%rbx,%rbp,8),%rdi
add    %r15,%rdi
xor    %esi,%esi
mov    %r12,%rdx
call   1030 <memset@plt>
jmp    11d0 <zero_dmatrix+0xc0>

LLVM IR (-O0):
define void @zero_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 i64
%12 = alloca i64
%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
store i64 %14, i64* %11
br label %15
15: ; preds = %37, %5
%16 = load i64, i64* %11
%17 = load i64, i64* %8
%18 = icmp sle i64 %16, %17
br i1 %18, label %19, label %40
19: ; preds = %15
%20 = load double**, double*** %6
%21 = load i64, i64* %11
%22 = getelementptr inbounds double*, double** %20, i64 %21
%23 = load double*, double** %22
store double* %23, double** %13
%24 = load i64, i64* %9
store i64 %24, i64* %12
br label %25
25: ; preds = %33, %19
%26 = load i64, i64* %12
%27 = load i64, i64* %10
%28 = icmp sle i64 %26, %27
br i1 %28, label %29, label %36
29: ; preds = %25
%30 = load double*, double** %13
%31 = load i64, i64* %12
%32 = getelementptr inbounds double, double* %30, i64 %31
store double 0.000000e+00, double* %32
br label %33
33: ; preds = %29
%34 = load i64, i64* %12
%35 = add nsw i64 %34, 1
store i64 %35, i64* %12
br label %25
36: ; preds = %25
br label %37
37: ; preds = %36
%38 = load i64, i64* %11
%39 = add nsw i64 %38, 1
store i64 %39, i64* %11
br label %15
40: ; preds = %15
ret void
}

LLVM IR (-O2):
define void @zero_dmatrix(double** nocapture %0, i64 %1, i64 %2, i64 %3, i64 %4) {
%6 = icmp slt i64 %2, %1
br i1 %6, label %59, label %7
7: ; preds = %5
%8 = icmp sgt i64 %3, %4
%9 = add i64 %4, 1
%10 = sub i64 %9, %3
%11 = shl nuw i64 %10, 3
%12 = add i64 %2, 1
%13 = sub i64 %12, %1
%14 = sub i64 %2, %1
%15 = and i64 %13, 3
%16 = icmp eq i64 %15, 0
br i1 %16, label %29, label %17
17: ; preds = %7, %25
%18 = phi i64 [ %26, %25 ], [ %1, %7 ]
%19 = phi i64 [ %27, %25 ], [ 0, %7 ]
br i1 %8, label %25, label %20
20: ; preds = %17
%21 = getelementptr inbounds double*, double** %0, i64 %18
%22 = load double*, double** %21
%23 = getelementptr double, double* %22, i64 %3
%24 = bitcast double* %23 to i8*
br label %25
25: ; preds = %20, %17
%26 = add i64 %18, 1
%27 = add i64 %19, 1
%28 = icmp eq i64 %27, %15
br i1 %28, label %29, label %17
29: ; preds = %25, %7
%30 = phi i64 [ %1, %7 ], [ %26, %25 ]
%31 = icmp ult i64 %14, 3
br i1 %31, label %59, label %32
32: ; preds = %29, %56
%33 = phi i64 [ %57, %56 ], [ %30, %29 ]
br i1 %8, label %49, label %34
34: ; preds = %32
%35 = getelementptr inbounds double*, double** %0, i64 %33
%36 = load double*, double** %35
%37 = getelementptr double, double* %36, i64 %3
%38 = bitcast double* %37 to i8*
%39 = add i64 %33, 1
%40 = getelementptr inbounds double*, double** %0, i64 %39
%41 = load double*, double** %40
%42 = getelementptr double, double* %41, i64 %3
%43 = bitcast double* %42 to i8*
%44 = add i64 %33, 2
%45 = getelementptr inbounds double*, double** %0, i64 %44
%46 = load double*, double** %45
%47 = getelementptr double, double* %46, i64 %3
%48 = bitcast double* %47 to i8*
br label %49
49: ; preds = %32, %34
%50 = add i64 %33, 3
br i1 %8, label %56, label %51
51: ; preds = %49
%52 = getelementptr inbounds double*, double** %0, i64 %50
%53 = load double*, double** %52
%54 = getelementptr double, double* %53, i64 %3
%55 = bitcast double* %54 to i8*
br label %56
56: ; preds = %51, %49
%57 = add i64 %33, 4
%58 = icmp eq i64 %50, %2
br i1 %58, label %59, label %32
59: ; preds = %29, %56, %5
ret void
}