void centroid(double *vm, double **v, int n, int vg) {
  int j, m;
  double cent;
  for (j = 0; j <= n - 1; j++) {
    cent = 0.0;
    for (m = 0; m <= n; m++) {
      if (m != vg) {
        cent += v[m][j];
      }
    }
    vm[j] = cent / n;
  }
}


x86 assembly (clang, -O0):
<centroid>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     11ac <centroid+0xac>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1183 <centroid+0x83>
mov    -0x20(%rbp),%eax
cmp    -0x18(%rbp),%eax
je     1170 <centroid+0x70>
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
jmp    1175 <centroid+0x75>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1139 <centroid+0x39>
movsd  -0x28(%rbp),%xmm0
cvtsi2sdl -0x14(%rbp),%xmm1
divsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1119 <centroid+0x19>
pop    %rbp
ret

x86 assembly (clang, -O2):
<centroid>:
push   %rbx
test   %edx,%edx
jle    11ab <centroid+0xab>
cvtsi2sd %edx,%xmm0
mov    %ecx,%r11d
mov    %edx,%r8d
add    $0x1,%edx
mov    %edx,%r9d
and    $0xfffffffe,%r9d
xor    %r10d,%r10d
jmp    1143 <centroid+0x43>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
divsd  %xmm0,%xmm1
movsd  %xmm1,(%rdi,%r10,8)
add    $0x1,%r10
cmp    %r8,%r10
je     11ab <centroid+0xab>
xorpd  %xmm1,%xmm1
xor    %ecx,%ecx
jmp    1159 <centroid+0x59>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rcx
cmp    %r9,%rcx
je     1190 <centroid+0x90>
mov    %rcx,%rax
cmp    %rcx,%r11
je     116b <centroid+0x6b>
mov    (%rsi,%rax,8),%rcx
addsd  (%rcx,%r10,8),%xmm1
lea    0x1(%rax),%rcx
cmp    %r11,%rcx
je     1150 <centroid+0x50>
mov    0x8(%rsi,%rax,8),%rbx
addsd  (%rbx,%r10,8),%xmm1
jmp    1150 <centroid+0x50>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
test   $0x1,%dl
je     1130 <centroid+0x30>
lea    0x2(%rax),%rcx
cmp    %rcx,%r11
je     1130 <centroid+0x30>
mov    0x10(%rsi,%rax,8),%rax
addsd  (%rax,%r10,8),%xmm1
jmp    1130 <centroid+0x30>
pop    %rbx
ret

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

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