int coarsen(double *uold, unsigned oldx, unsigned oldy, double *unew,
            unsigned newx, unsigned newy) {
  int i, j;
  int stepx;
  int stepy;
  int stopx = newx;
  int stopy = newy;
  if (oldx > newx)
    stepx = oldx / newx;
  else {
    stepx = 1;
    stopx = oldx;
  }
  if (oldy > newy)
    stepy = oldy / newy;
  else {
    stepy = 1;
    stopy = oldy;
  }
  for (i = 0; i < stopy - 1; i++) {
    for (j = 0; j < stopx - 1; j++) {
      unew[i * newx + j] = uold[i * oldx * stepy + j * stepx];
    }
  }
  return 1;
}


x86 assembly (clang, -O0):
<coarsen>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
mov    %r8d,-0x1c(%rbp)
mov    %r9d,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x20(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jbe    1142 <coarsen+0x42>
mov    -0xc(%rbp),%eax
xor    %edx,%edx
divl   -0x1c(%rbp)
mov    %eax,-0x2c(%rbp)
jmp    114f <coarsen+0x4f>
movl   $0x1,-0x2c(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0x20(%rbp),%eax
jbe    116b <coarsen+0x6b>
mov    -0x10(%rbp),%eax
xor    %edx,%edx
divl   -0x20(%rbp)
mov    %eax,-0x30(%rbp)
jmp    1178 <coarsen+0x78>
movl   $0x1,-0x30(%rbp)
mov    -0x10(%rbp),%eax
mov    %eax,-0x38(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x38(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    11fd <coarsen+0xfd>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    -0x34(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    11ea <coarsen+0xea>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0xc(%rbp),%ecx
imul   -0x30(%rbp),%ecx
mov    -0x28(%rbp),%edx
imul   -0x2c(%rbp),%edx
add    %edx,%ecx
mov    %ecx,%ecx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x1c(%rbp),%ecx
add    -0x28(%rbp),%ecx
mov    %ecx,%ecx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1197 <coarsen+0x97>
jmp    11ef <coarsen+0xef>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    117f <coarsen+0x7f>
mov    $0x1,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<coarsen>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r8d,%r12d
mov    %edx,%r11d
mov    $0x1,%r8d
mov    %esi,%eax
mov    %rax,-0x18(%rsp)
cmp    %r12d,%esi
jbe    1134 <coarsen+0x34>
mov    %esi,%eax
xor    %edx,%edx
div    %r12d
mov    %eax,%r8d
mov    %r12d,%eax
mov    %rax,-0x18(%rsp)
mov    $0x1,%eax
cmp    %r9d,%r11d
jbe    1151 <coarsen+0x51>
mov    %r11d,%eax
xor    %edx,%edx
div    %r9d
cmp    $0x2,%r9d
jge    115e <coarsen+0x5e>
jmp    124d <coarsen+0x14d>
mov    %r11d,%r9d
cmp    $0x2,%r9d
jl     124d <coarsen+0x14d>
add    $0xffffffff,%r9d
mov    -0x18(%rsp),%rdx
lea    -0x1(%rdx),%r10d
imul   %esi,%eax
mov    %r10,-0x8(%rsp)
and    $0xfffffffe,%r10d
lea    (%r8,%r8,1),%ebx
xor    %r14d,%r14d
mov    $0x1,%r15d
xor    %r13d,%r13d
mov    %r12d,-0xc(%rsp)
mov    %r9d,-0x10(%rsp)
jmp    11b3 <coarsen+0xb3>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%r13d
add    %eax,%r14d
add    %r12d,%r15d
cmp    %r9d,%r13d
je     124d <coarsen+0x14d>
cmpl   $0x2,-0x18(%rsp)
jl     11a0 <coarsen+0xa0>
cmpl   $0x1,-0x8(%rsp)
jne    11d0 <coarsen+0xd0>
xor    %edx,%edx
jmp    1210 <coarsen+0x110>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %r15d,%ebp
mov    %r14d,%r12d
xor    %edx,%edx
nopl   0x0(%rax,%rax,1)
mov    %r12d,%r11d
movsd  (%rdi,%r11,8),%xmm0
lea    -0x1(%rbp),%esi
movsd  %xmm0,(%rcx,%rsi,8)
lea    (%r8,%r12,1),%esi
movsd  (%rdi,%rsi,8),%xmm0
mov    %ebp,%esi
movsd  %xmm0,(%rcx,%rsi,8)
add    $0x2,%rdx
add    %ebx,%r12d
add    $0x2,%ebp
cmp    %rdx,%r10
jne    11e0 <coarsen+0xe0>
testb  $0x1,-0x8(%rsp)
mov    -0xc(%rsp),%r12d
mov    -0x10(%rsp),%r9d
je     11a0 <coarsen+0xa0>
mov    %eax,%r11d
imul   %r13d,%r11d
mov    %r13d,%ebp
imul   %r12d,%ebp
add    %edx,%ebp
mov    %r8d,%esi
imul   %edx,%esi
add    %r11d,%esi
movsd  (%rdi,%rsi,8),%xmm0
movsd  %xmm0,(%rcx,%rbp,8)
jmp    11a0 <coarsen+0xa0>
mov    $0x1,%eax
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @coarsen(double* %0, i32 %1, i32 %2, double* %3, i32 %4, i32 %5) {
%7 = alloca double*
%8 = alloca i32
%9 = alloca i32
%10 = alloca double*
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
store double* %0, double** %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store double* %3, double** %10
store i32 %4, i32* %11
store i32 %5, i32* %12
%19 = load i32, i32* %11
store i32 %19, i32* %17
%20 = load i32, i32* %12
store i32 %20, i32* %18
%21 = load i32, i32* %8
%22 = load i32, i32* %11
%23 = icmp ugt i32 %21, %22
br i1 %23, label %24, label %28
24: ; preds = %6
%25 = load i32, i32* %8
%26 = load i32, i32* %11
%27 = udiv i32 %25, %26
store i32 %27, i32* %15
br label %30
28: ; preds = %6
store i32 1, i32* %15
%29 = load i32, i32* %8
store i32 %29, i32* %17
br label %30
30: ; preds = %28, %24
%31 = load i32, i32* %9
%32 = load i32, i32* %12
%33 = icmp ugt i32 %31, %32
br i1 %33, label %34, label %38
34: ; preds = %30
%35 = load i32, i32* %9
%36 = load i32, i32* %12
%37 = udiv i32 %35, %36
store i32 %37, i32* %16
br label %40
38: ; preds = %30
store i32 1, i32* %16
%39 = load i32, i32* %9
store i32 %39, i32* %18
br label %40
40: ; preds = %38, %34
store i32 0, i32* %13
br label %41
41: ; preds = %78, %40
%42 = load i32, i32* %13
%43 = load i32, i32* %18
%44 = sub nsw i32 %43, 1
%45 = icmp slt i32 %42, %44
br i1 %45, label %46, label %81
46: ; preds = %41
store i32 0, i32* %14
br label %47
47: ; preds = %74, %46
%48 = load i32, i32* %14
%49 = load i32, i32* %17
%50 = sub nsw i32 %49, 1
%51 = icmp slt i32 %48, %50
br i1 %51, label %52, label %77
52: ; preds = %47
%53 = load double*, double** %7
%54 = load i32, i32* %13
%55 = load i32, i32* %8
%56 = mul i32 %54, %55
%57 = load i32, i32* %16
%58 = mul i32 %56, %57
%59 = load i32, i32* %14
%60 = load i32, i32* %15
%61 = mul nsw i32 %59, %60
%62 = add i32 %58, %61
%63 = zext i32 %62 to i64
%64 = getelementptr inbounds double, double* %53, i64 %63
%65 = load double, double* %64
%66 = load double*, double** %10
%67 = load i32, i32* %13
%68 = load i32, i32* %11
%69 = mul i32 %67, %68
%70 = load i32, i32* %14
%71 = add i32 %69, %70
%72 = zext i32 %71 to i64
%73 = getelementptr inbounds double, double* %66, i64 %72
store double %65, double* %73
br label %74
74: ; preds = %52
%75 = load i32, i32* %14
%76 = add nsw i32 %75, 1
store i32 %76, i32* %14
br label %47
77: ; preds = %47
br label %78
78: ; preds = %77
%79 = load i32, i32* %13
%80 = add nsw i32 %79, 1
store i32 %80, i32* %13
br label %41
81: ; preds = %41
ret i32 1
}

LLVM IR (-O2):
define i32 @coarsen(double* nocapture %0, i32 %1, i32 %2, double* nocapture writeonly %3, i32 %4, i32 %5) {
%7 = icmp ugt i32 %1, %4
br i1 %7, label %8, label %11
8: ; preds = %6
%9 = udiv i32 %1, %4
%10 = zext i32 %9 to i64
br label %11
11: ; preds = %6, %8
%12 = phi i64 [ %10, %8 ], [ 1, %6 ]
%13 = phi i32 [ %4, %8 ], [ %1, %6 ]
%14 = icmp ugt i32 %2, %5
br i1 %14, label %15, label %17
15: ; preds = %11
%16 = udiv i32 %2, %5
br label %17
17: ; preds = %11, %15
%18 = phi i32 [ %16, %15 ], [ 1, %11 ]
%19 = phi i32 [ %5, %15 ], [ %2, %11 ]
%20 = add i32 %19, -1
%21 = icmp sgt i32 %19, 1
br i1 %21, label %22, label %79
22: ; preds = %17
%23 = add i32 %13, -1
%24 = icmp sgt i32 %13, 1
%25 = mul i32 %18, %1
%26 = zext i32 %23 to i64
%27 = and i64 %26, 1
%28 = icmp eq i32 %23, 1
%29 = and i64 %26, 4294967294
%30 = icmp eq i64 %27, 0
br label %31
31: ; preds = %22, %76
%32 = phi i32 [ 0, %22 ], [ %77, %76 ]
br i1 %24, label %33, label %76
33: ; preds = %31
%34 = mul i32 %25, %32
%35 = mul i32 %32, %4
br i1 %28, label %63, label %36
36: ; preds = %33, %36
%37 = phi i64 [ %60, %36 ], [ 0, %33 ]
%38 = phi i64 [ %61, %36 ], [ 0, %33 ]
%39 = mul i64 %37, %12
%40 = trunc i64 %39 to i32
%41 = add i32 %34, %40
%42 = zext i32 %41 to i64
%43 = getelementptr inbounds double, double* %0, i64 %42
%44 = load double, double* %43
%45 = trunc i64 %37 to i32
%46 = add i32 %35, %45
%47 = zext i32 %46 to i64
%48 = getelementptr inbounds double, double* %3, i64 %47
store double %44, double* %48
%49 = or i64 %37, 1
%50 = mul i64 %49, %12
%51 = trunc i64 %50 to i32
%52 = add i32 %34, %51
%53 = zext i32 %52 to i64
%54 = getelementptr inbounds double, double* %0, i64 %53
%55 = load double, double* %54
%56 = trunc i64 %49 to i32
%57 = add i32 %35, %56
%58 = zext i32 %57 to i64
%59 = getelementptr inbounds double, double* %3, i64 %58
store double %55, double* %59
%60 = add nuw nsw i64 %37, 2
%61 = add i64 %38, 2
%62 = icmp eq i64 %61, %29
br i1 %62, label %63, label %36
63: ; preds = %36, %33
%64 = phi i64 [ 0, %33 ], [ %60, %36 ]
br i1 %30, label %76, label %65
65: ; preds = %63
%66 = mul i64 %64, %12
%67 = trunc i64 %66 to i32
%68 = add i32 %34, %67
%69 = zext i32 %68 to i64
%70 = getelementptr inbounds double, double* %0, i64 %69
%71 = load double, double* %70
%72 = trunc i64 %64 to i32
%73 = add i32 %35, %72
%74 = zext i32 %73 to i64
%75 = getelementptr inbounds double, double* %3, i64 %74
store double %71, double* %75
br label %76
76: ; preds = %65, %63, %31
%77 = add nuw nsw i32 %32, 1
%78 = icmp eq i32 %77, %20
br i1 %78, label %79, label %31
79: ; preds = %76, %17
ret i32 1
}