void ave_dmatrix(double **d, long nr, long nc, double *avedm) {
  long i, j;
  for (i = 1; i <= nc; i++) {
    avedm[i] = 0.0;
    for (j = 1; j <= nr; j++)
      avedm[i] += d[j][i];
    avedm[i] /= nr;
  }
}


x86 assembly (clang, -O0):
<ave_dmatrix>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movq   $0x1,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     11b5 <ave_dmatrix+0xb5>
mov    -0x20(%rbp),%rax
mov    -0x28(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movq   $0x1,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x10(%rbp),%rax
jg     1188 <ave_dmatrix+0x88>
mov    -0x8(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x28(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1142 <ave_dmatrix+0x42>
cvtsi2sdq -0x10(%rbp),%xmm1
mov    -0x20(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    111c <ave_dmatrix+0x1c>
pop    %rbp
ret

x86 assembly (clang, -O2):
<ave_dmatrix>:
push   %r14
push   %rbx
test   %rdx,%rdx
jle    120e <ave_dmatrix+0x10e>
cvtsi2sd %rsi,%xmm0
lea    -0x1(%rsi),%r8
mov    %esi,%r10d
and    $0x3,%r10d
mov    %rsi,%r9
and    $0xfffffffffffffffc,%r9
mov    $0x1,%r11d
jmp    114e <ave_dmatrix+0x4e>
nopl   0x0(%rax,%rax,1)
xorpd  %xmm1,%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%rcx,%r11,8)
lea    0x1(%r11),%rax
cmp    %rdx,%r11
mov    %rax,%r11
je     120e <ave_dmatrix+0x10e>
movq   $0x0,(%rcx,%r11,8)
test   %rsi,%rsi
jle    1130 <ave_dmatrix+0x30>
cmp    $0x3,%r8
jae    1180 <ave_dmatrix+0x80>
mov    $0x1,%eax
xorpd  %xmm1,%xmm1
test   %r10,%r10
jne    11ea <ave_dmatrix+0xea>
jmp    1134 <ave_dmatrix+0x34>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xorpd  %xmm1,%xmm1
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
mov    0x8(%rdi,%rax,8),%rbx
addsd  (%rbx,%r11,8),%xmm1
movsd  %xmm1,(%rcx,%r11,8)
mov    0x10(%rdi,%rax,8),%rbx
addsd  (%rbx,%r11,8),%xmm1
movsd  %xmm1,(%rcx,%r11,8)
mov    0x18(%rdi,%rax,8),%rbx
addsd  (%rbx,%r11,8),%xmm1
movsd  %xmm1,(%rcx,%r11,8)
mov    0x20(%rdi,%rax,8),%rbx
addsd  (%rbx,%r11,8),%xmm1
movsd  %xmm1,(%rcx,%r11,8)
add    $0x4,%rax
cmp    %rax,%r9
jne    1190 <ave_dmatrix+0x90>
add    $0x1,%rax
test   %r10,%r10
je     1134 <ave_dmatrix+0x34>
lea    (%rdi,%rax,8),%r14
xor    %ebx,%ebx
mov    (%r14,%rbx,8),%rax
addsd  (%rax,%r11,8),%xmm1
movsd  %xmm1,(%rcx,%r11,8)
add    $0x1,%rbx
cmp    %rbx,%r10
jne    11f0 <ave_dmatrix+0xf0>
jmp    1134 <ave_dmatrix+0x34>
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @ave_dmatrix(double** %0, i64 %1, i64 %2, double* %3) {
%5 = alloca double**
%6 = alloca i64
%7 = alloca i64
%8 = alloca double*
%9 = alloca i64
%10 = alloca i64
store double** %0, double*** %5
store i64 %1, i64* %6
store i64 %2, i64* %7
store double* %3, double** %8
store i64 1, i64* %9
br label %11
11: ; preds = %47, %4
%12 = load i64, i64* %9
%13 = load i64, i64* %7
%14 = icmp sle i64 %12, %13
br i1 %14, label %15, label %50
15: ; preds = %11
%16 = load double*, double** %8
%17 = load i64, i64* %9
%18 = getelementptr inbounds double, double* %16, i64 %17
store double 0.000000e+00, double* %18
store i64 1, i64* %10
br label %19
19: ; preds = %36, %15
%20 = load i64, i64* %10
%21 = load i64, i64* %6
%22 = icmp sle i64 %20, %21
br i1 %22, label %23, label %39
23: ; preds = %19
%24 = load double**, double*** %5
%25 = load i64, i64* %10
%26 = getelementptr inbounds double*, double** %24, i64 %25
%27 = load double*, double** %26
%28 = load i64, i64* %9
%29 = getelementptr inbounds double, double* %27, i64 %28
%30 = load double, double* %29
%31 = load double*, double** %8
%32 = load i64, i64* %9
%33 = getelementptr inbounds double, double* %31, i64 %32
%34 = load double, double* %33
%35 = fadd double %34, %30
store double %35, double* %33
br label %36
36: ; preds = %23
%37 = load i64, i64* %10
%38 = add nsw i64 %37, 1
store i64 %38, i64* %10
br label %19
39: ; preds = %19
%40 = load i64, i64* %6
%41 = sitofp i64 %40 to double
%42 = load double*, double** %8
%43 = load i64, i64* %9
%44 = getelementptr inbounds double, double* %42, i64 %43
%45 = load double, double* %44
%46 = fdiv double %45, %41
store double %46, double* %44
br label %47
47: ; preds = %39
%48 = load i64, i64* %9
%49 = add nsw i64 %48, 1
store i64 %49, i64* %9
br label %11
50: ; preds = %11
ret void
}

LLVM IR (-O2):
define void @ave_dmatrix(double** nocapture %0, i64 %1, i64 %2, double* nocapture %3) {
%5 = icmp slt i64 %2, 1
br i1 %5, label %69, label %6
6: ; preds = %4
%7 = icmp slt i64 %1, 1
%8 = sitofp i64 %1 to double
%9 = add i64 %1, -1
%10 = and i64 %1, 3
%11 = icmp ult i64 %9, 3
%12 = and i64 %1, -4
%13 = icmp eq i64 %10, 0
br label %14
14: ; preds = %6, %64
%15 = phi i64 [ 1, %6 ], [ %67, %64 ]
%16 = getelementptr inbounds double, double* %3, i64 %15
store double 0.000000e+00, double* %16
br i1 %7, label %64, label %17
17: ; preds = %14
br i1 %11, label %48, label %18
18: ; preds = %17, %18
%19 = phi double [ %44, %18 ], [ 0.000000e+00, %17 ]
%20 = phi i64 [ %45, %18 ], [ 1, %17 ]
%21 = phi i64 [ %46, %18 ], [ 0, %17 ]
%22 = getelementptr inbounds double*, double** %0, i64 %20
%23 = load double*, double** %22
%24 = getelementptr inbounds double, double* %23, i64 %15
%25 = load double, double* %24
%26 = fadd double %25, %19
store double %26, double* %16
%27 = add nuw nsw i64 %20, 1
%28 = getelementptr inbounds double*, double** %0, i64 %27
%29 = load double*, double** %28
%30 = getelementptr inbounds double, double* %29, i64 %15
%31 = load double, double* %30
%32 = fadd double %31, %26
store double %32, double* %16
%33 = add nuw nsw i64 %20, 2
%34 = getelementptr inbounds double*, double** %0, i64 %33
%35 = load double*, double** %34
%36 = getelementptr inbounds double, double* %35, i64 %15
%37 = load double, double* %36
%38 = fadd double %37, %32
store double %38, double* %16
%39 = add nuw i64 %20, 3
%40 = getelementptr inbounds double*, double** %0, i64 %39
%41 = load double*, double** %40
%42 = getelementptr inbounds double, double* %41, i64 %15
%43 = load double, double* %42
%44 = fadd double %43, %38
store double %44, double* %16
%45 = add nuw i64 %20, 4
%46 = add i64 %21, 4
%47 = icmp eq i64 %46, %12
br i1 %47, label %48, label %18
48: ; preds = %18, %17
%49 = phi double [ undef, %17 ], [ %44, %18 ]
%50 = phi double [ 0.000000e+00, %17 ], [ %44, %18 ]
%51 = phi i64 [ 1, %17 ], [ %45, %18 ]
br i1 %13, label %64, label %52
52: ; preds = %48, %52
%53 = phi double [ %60, %52 ], [ %50, %48 ]
%54 = phi i64 [ %61, %52 ], [ %51, %48 ]
%55 = phi i64 [ %62, %52 ], [ 0, %48 ]
%56 = getelementptr inbounds double*, double** %0, i64 %54
%57 = load double*, double** %56
%58 = getelementptr inbounds double, double* %57, i64 %15
%59 = load double, double* %58
%60 = fadd double %59, %53
store double %60, double* %16
%61 = add nuw i64 %54, 1
%62 = add i64 %55, 1
%63 = icmp eq i64 %62, %10
br i1 %63, label %64, label %52
64: ; preds = %48, %52, %14
%65 = phi double [ 0.000000e+00, %14 ], [ %49, %48 ], [ %60, %52 ]
%66 = fdiv double %65, %8
store double %66, double* %16
%67 = add nuw i64 %15, 1
%68 = icmp eq i64 %15, %2
br i1 %68, label %69, label %14
69: ; preds = %64, %4
ret void
}