float curve_weight(map, a, coords, data, point, ivars, map_winner, total_units,
                   map_dim)
float **map, **a, **data;
int **coords, point, ivars, map_winner, total_units, map_dim;
{
  float bestf, diffx, diffy, goodf, xsum, ysum, slopem;
  int i, j, k, count, ma = ivars + 1, besti, diffi, disti;
  slopem = 0;
  count = 0;
  for (i = 1; i <= total_units; i++) {
    disti = 0;
    k = 1;
    while (k <= map_dim && disti <= 1) {
      disti += abs(coords[map_winner][k] - coords[i][k]);
      k++;
    }
    if (disti == 1) {
      xsum = ysum = 0;
      count++;
      for (j = 2; j <= ma; j++) {
        diffy = a[i][j] - a[map_winner][j];
        ysum += diffy * diffy;
      }
      slopem += sqrt(ysum);
    }
  }
  slopem = slopem / ((float)count);
  slopem = slopem * slopem;
  return (slopem);
}


x86 assembly (clang, -O0):
<curve_weight>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
mov    0x20(%rbp),%eax
mov    0x18(%rbp),%eax
mov    0x10(%rbp),%eax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8d,-0x24(%rbp)
mov    %r9d,-0x28(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x58(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x44(%rbp)
movl   $0x0,-0x54(%rbp)
movl   $0x1,-0x48(%rbp)
mov    -0x48(%rbp),%eax
cmp    0x18(%rbp),%eax
jg     12b5 <curve_weight+0x195>
movl   $0x0,-0x64(%rbp)
movl   $0x1,-0x50(%rbp)
mov    -0x50(%rbp),%ecx
xor    %eax,%eax
cmp    0x20(%rbp),%ecx
mov    %al,-0x65(%rbp)
jg     119d <curve_weight+0x7d>
cmpl   $0x1,-0x64(%rbp)
setle  %al
mov    %al,-0x65(%rbp)
mov    -0x65(%rbp),%al
test   $0x1,%al
jne    11ad <curve_weight+0x8d>
jmp    11ec <curve_weight+0xcc>
mov    -0x18(%rbp),%rax
movslq 0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x50(%rbp),%rcx
mov    (%rax,%rcx,4),%edi
mov    -0x18(%rbp),%rax
movslq -0x48(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x50(%rbp),%rcx
sub    (%rax,%rcx,4),%edi
call   1030 <abs@plt>
add    -0x64(%rbp),%eax
mov    %eax,-0x64(%rbp)
mov    -0x50(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x50(%rbp)
jmp    1182 <curve_weight+0x62>
cmpl   $0x1,-0x64(%rbp)
jne    12a2 <curve_weight+0x182>
xorps  %xmm0,%xmm0
movss  %xmm0,-0x40(%rbp)
xorps  %xmm0,%xmm0
movss  %xmm0,-0x3c(%rbp)
mov    -0x54(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x54(%rbp)
movl   $0x2,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x58(%rbp),%eax
jg     127b <curve_weight+0x15b>
mov    -0x10(%rbp),%rax
movslq -0x48(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x4c(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x10(%rbp),%rax
movslq 0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x4c(%rbp),%rcx
subss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x34(%rbp)
movss  -0x34(%rbp),%xmm0
movss  -0x34(%rbp),%xmm2
movss  -0x40(%rbp),%xmm1
mulss  %xmm2,%xmm0
addss  %xmm1,%xmm0
movss  %xmm0,-0x40(%rbp)
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    1216 <curve_weight+0xf6>
movss  -0x40(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
call   1040 <sqrt@plt>
movaps %xmm0,%xmm1
movss  -0x44(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
addsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x44(%rbp)
jmp    12a7 <curve_weight+0x187>
mov    -0x48(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x48(%rbp)
jmp    1168 <curve_weight+0x48>
movss  -0x44(%rbp),%xmm0
cvtsi2ssl -0x54(%rbp),%xmm1
divss  %xmm1,%xmm0
movss  %xmm0,-0x44(%rbp)
movss  -0x44(%rbp),%xmm0
mulss  -0x44(%rbp),%xmm0
movss  %xmm0,-0x44(%rbp)
movss  -0x44(%rbp),%xmm0
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<curve_weight>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rsi,0x30(%rsp)
mov    0x78(%rsp),%ebx
test   %ebx,%ebx
jle    1302 <curve_weight+0x1f2>
mov    0x80(%rsp),%r10d
movslq 0x70(%rsp),%r11
movslq %r10d,%r14
cmp    $0x2,%r9d
mov    $0x1,%r12d
cmovge %r9d,%r12d
add    $0x1,%ebx
lea    -0x1(%r12),%rax
mov    %rax,0x28(%rsp)
mov    %r12d,%r15d
and    $0x3,%r15d
and    $0x7ffffffc,%r12d
neg    %r12
xor    %eax,%eax
mov    %rax,0x8(%rsp)
xorps  %xmm3,%xmm3
mov    $0x1,%r13d
xorpd  %xmm4,%xmm4
mov    %rdx,0x20(%rsp)
mov    %r9d,0x10(%rsp)
mov    %r11,0x18(%rsp)
jmp    11e6 <curve_weight+0xd6>
mov    %r10d,%ebp
movss  %xmm3,0x14(%rsp)
call   1030 <sqrt@plt>
xorpd  %xmm4,%xmm4
movss  0x14(%rsp),%xmm3
mov    0x18(%rsp),%r11
mov    %ebp,%r10d
mov    0x20(%rsp),%rdx
mov    0x10(%rsp),%r9d
mov    0x8(%rsp),%rax
add    $0x1,%eax
mov    %rax,0x8(%rsp)
xorps  %xmm1,%xmm1
cvtss2sd %xmm3,%xmm1
addsd  %xmm0,%xmm1
xorps  %xmm3,%xmm3
cvtsd2ss %xmm1,%xmm3
add    $0x1,%r13
cmp    %rbx,%r13
je     130c <curve_weight+0x1fc>
test   %r10d,%r10d
jle    11d9 <curve_weight+0xc9>
mov    (%rdx,%r11,8),%r8
mov    (%rdx,%r13,8),%rcx
xor    %esi,%esi
mov    $0x1,%eax
nopw   0x0(%rax,%rax,1)
mov    %esi,%edi
mov    (%r8,%rax,4),%ebp
sub    (%rcx,%rax,4),%ebp
mov    %ebp,%esi
neg    %esi
cmovs  %ebp,%esi
add    %edi,%esi
cmp    %r14,%rax
jge    1220 <curve_weight+0x110>
add    $0x1,%rax
cmp    $0x2,%esi
jb     1200 <curve_weight+0xf0>
cmp    $0x1,%esi
jne    11d9 <curve_weight+0xc9>
test   %r9d,%r9d
jle    1249 <curve_weight+0x139>
mov    0x30(%rsp),%rcx
mov    (%rcx,%r13,8),%rax
mov    (%rcx,%r11,8),%rcx
cmpq   $0x3,0x28(%rsp)
jae    1251 <curve_weight+0x141>
xorps  %xmm0,%xmm0
mov    $0x2,%edi
jmp    12c0 <curve_weight+0x1b0>
xorps  %xmm0,%xmm0
jmp    12eb <curve_weight+0x1db>
xorps  %xmm0,%xmm0
mov    $0x2,%edi
nopl   0x0(%rax)
movss  (%rax,%rdi,4),%xmm1
subss  (%rcx,%rdi,4),%xmm1
movss  0x4(%rax,%rdi,4),%xmm2
mulss  %xmm1,%xmm1
subss  0x4(%rcx,%rdi,4),%xmm2
addss  %xmm0,%xmm1
mulss  %xmm2,%xmm2
addss  %xmm1,%xmm2
movss  0x8(%rax,%rdi,4),%xmm1
subss  0x8(%rcx,%rdi,4),%xmm1
mulss  %xmm1,%xmm1
addss  %xmm2,%xmm1
movss  0xc(%rax,%rdi,4),%xmm0
subss  0xc(%rcx,%rdi,4),%xmm0
mulss  %xmm0,%xmm0
addss  %xmm1,%xmm0
lea    (%r12,%rdi,1),%rsi
add    $0x4,%rsi
add    $0x4,%rdi
cmp    $0x2,%rsi
jne    1260 <curve_weight+0x150>
test   %r15,%r15
je     12eb <curve_weight+0x1db>
lea    (%rcx,%rdi,4),%rcx
lea    (%rax,%rdi,4),%rax
xor    %esi,%esi
nop
movss  (%rax,%rsi,4),%xmm1
subss  (%rcx,%rsi,4),%xmm1
mulss  %xmm1,%xmm1
addss  %xmm1,%xmm0
add    $0x1,%rsi
cmp    %rsi,%r15
jne    12d0 <curve_weight+0x1c0>
cvtss2sd %xmm0,%xmm0
ucomisd %xmm4,%xmm0
jb     1190 <curve_weight+0x80>
sqrtsd %xmm0,%xmm0
jmp    11ba <curve_weight+0xaa>
xorps  %xmm3,%xmm3
xor    %eax,%eax
mov    %rax,0x8(%rsp)
xorps  %xmm0,%xmm0
cvtsi2ssl 0x8(%rsp),%xmm0
divss  %xmm0,%xmm3
mulss  %xmm3,%xmm3
movaps %xmm3,%xmm0
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define float @curve_weight(float** %0, float** %1, i32** %2, float** %3, i32 %4, i32 %5, i32 %6, i32 %7, i32 %8) {
%10 = alloca float**
%11 = alloca float**
%12 = alloca i32**
%13 = alloca float**
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca float
%20 = alloca float
%21 = alloca float
%22 = alloca float
%23 = alloca float
%24 = alloca float
%25 = alloca float
%26 = alloca i32
%27 = alloca i32
%28 = alloca i32
%29 = alloca i32
%30 = alloca i32
%31 = alloca i32
%32 = alloca i32
%33 = alloca i32
store float** %0, float*** %10
store float** %1, float*** %11
store i32** %2, i32*** %12
store float** %3, float*** %13
store i32 %4, i32* %14
store i32 %5, i32* %15
store i32 %6, i32* %16
store i32 %7, i32* %17
store i32 %8, i32* %18
%34 = load i32, i32* %15
%35 = add nsw i32 %34, 1
store i32 %35, i32* %30
store float 0.000000e+00, float* %25
store i32 0, i32* %29
store i32 1, i32* %26
br label %36
36: ; preds = %121, %9
%37 = load i32, i32* %26
%38 = load i32, i32* %17
%39 = icmp sle i32 %37, %38
br i1 %39, label %40, label %124
40: ; preds = %36
store i32 0, i32* %33
store i32 1, i32* %28
br label %41
41: ; preds = %50, %40
%42 = load i32, i32* %28
%43 = load i32, i32* %18
%44 = icmp sle i32 %42, %43
br i1 %44, label %45, label %48
45: ; preds = %41
%46 = load i32, i32* %33
%47 = icmp sle i32 %46, 1
br label %48
48: ; preds = %45, %41
%49 = phi i1 [ false, %41 ], [ %47, %45 ]
br i1 %49, label %50, label %75
50: ; preds = %48
%51 = load i32**, i32*** %12
%52 = load i32, i32* %16
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds i32*, i32** %51, i64 %53
%55 = load i32*, i32** %54
%56 = load i32, i32* %28
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds i32, i32* %55, i64 %57
%59 = load i32, i32* %58
%60 = load i32**, i32*** %12
%61 = load i32, i32* %26
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds i32*, i32** %60, i64 %62
%64 = load i32*, i32** %63
%65 = load i32, i32* %28
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds i32, i32* %64, i64 %66
%68 = load i32, i32* %67
%69 = sub nsw i32 %59, %68
%70 = call i32 @abs(i32 %69)
%71 = load i32, i32* %33
%72 = add nsw i32 %71, %70
store i32 %72, i32* %33
%73 = load i32, i32* %28
%74 = add nsw i32 %73, 1
store i32 %74, i32* %28
br label %41
75: ; preds = %48
%76 = load i32, i32* %33
%77 = icmp eq i32 %76, 1
br i1 %77, label %78, label %120
78: ; preds = %75
store float 0.000000e+00, float* %24
store float 0.000000e+00, float* %23
%79 = load i32, i32* %29
%80 = add nsw i32 %79, 1
store i32 %80, i32* %29
store i32 2, i32* %27
br label %81
81: ; preds = %109, %78
%82 = load i32, i32* %27
%83 = load i32, i32* %30
%84 = icmp sle i32 %82, %83
br i1 %84, label %85, label %112
85: ; preds = %81
%86 = load float**, float*** %11
%87 = load i32, i32* %26
%88 = sext i32 %87 to i64
%89 = getelementptr inbounds float*, float** %86, i64 %88
%90 = load float*, float** %89
%91 = load i32, i32* %27
%92 = sext i32 %91 to i64
%93 = getelementptr inbounds float, float* %90, i64 %92
%94 = load float, float* %93
%95 = load float**, float*** %11
%96 = load i32, i32* %16
%97 = sext i32 %96 to i64
%98 = getelementptr inbounds float*, float** %95, i64 %97
%99 = load float*, float** %98
%100 = load i32, i32* %27
%101 = sext i32 %100 to i64
%102 = getelementptr inbounds float, float* %99, i64 %101
%103 = load float, float* %102
%104 = fsub float %94, %103
store float %104, float* %21
%105 = load float, float* %21
%106 = load float, float* %21
%107 = load float, float* %24
%108 = call float @llvm.fmuladd.f32(float %105, float %106, float %107)
store float %108, float* %24
br label %109
109: ; preds = %85
%110 = load i32, i32* %27
%111 = add nsw i32 %110, 1
store i32 %111, i32* %27
br label %81
112: ; preds = %81
%113 = load float, float* %24
%114 = fpext float %113 to double
%115 = call double @sqrt(double %114)
%116 = load float, float* %25
%117 = fpext float %116 to double
%118 = fadd double %117, %115
%119 = fptrunc double %118 to float
store float %119, float* %25
br label %120
120: ; preds = %112, %75
br label %121
121: ; preds = %120
%122 = load i32, i32* %26
%123 = add nsw i32 %122, 1
store i32 %123, i32* %26
br label %36
124: ; preds = %36
%125 = load float, float* %25
%126 = load i32, i32* %29
%127 = sitofp i32 %126 to float
%128 = fdiv float %125, %127
store float %128, float* %25
%129 = load float, float* %25
%130 = load float, float* %25
%131 = fmul float %129, %130
store float %131, float* %25
%132 = load float, float* %25
ret float %132
}

LLVM IR (-O2):
define float @curve_weight(float** nocapture readnone %0, float** nocapture %1, i32** nocapture %2, float** nocapture readnone %3, i32 %4, i32 %5, i32 %6, i32 %7, i32 %8) {
%10 = icmp slt i32 %7, 1
br i1 %10, label %120, label %11
11: ; preds = %9
%12 = icmp sgt i32 %8, 0
%13 = sext i32 %6 to i64
%14 = getelementptr inbounds i32*, i32** %2, i64 %13
%15 = icmp slt i32 %5, 1
%16 = getelementptr inbounds float*, float** %1, i64 %13
%17 = sext i32 %8 to i64
%18 = call i32 @llvm.smax.i32(i32 %5, i32 1)
%19 = add nuw i32 %7, 1
%20 = zext i32 %19 to i64
%21 = zext i32 %18 to i64
%22 = add nsw i64 %21, -1
%23 = and i64 %21, 3
%24 = icmp ult i64 %22, 3
%25 = and i64 %21, 2147483644
%26 = icmp eq i64 %23, 0
br label %27
27: ; preds = %11, %115
%28 = phi i64 [ 1, %11 ], [ %118, %115 ]
%29 = phi float [ 0.000000e+00, %11 ], [ %117, %115 ]
%30 = phi i32 [ 0, %11 ], [ %116, %115 ]
br i1 %12, label %31, label %115
31: ; preds = %27
%32 = load i32*, i32** %14
%33 = getelementptr inbounds i32*, i32** %2, i64 %28
%34 = load i32*, i32** %33
br label %35
35: ; preds = %31, %35
%36 = phi i64 [ 1, %31 ], [ %45, %35 ]
%37 = phi i32 [ 0, %31 ], [ %44, %35 ]
%38 = getelementptr inbounds i32, i32* %32, i64 %36
%39 = load i32, i32* %38
%40 = getelementptr inbounds i32, i32* %34, i64 %36
%41 = load i32, i32* %40
%42 = sub nsw i32 %39, %41
%43 = tail call i32 @llvm.abs.i32(i32 %42, i1 true)
%44 = add nuw nsw i32 %43, %37
%45 = add nuw nsw i64 %36, 1
%46 = icmp slt i64 %36, %17
%47 = icmp ult i32 %44, 2
%48 = select i1 %46, i1 %47, i1 false
br i1 %48, label %35, label %49
49: ; preds = %35
%50 = icmp eq i32 %44, 1
br i1 %50, label %51, label %115
51: ; preds = %49
%52 = add nsw i32 %30, 1
br i1 %15, label %108, label %53
53: ; preds = %51
%54 = getelementptr inbounds float*, float** %1, i64 %28
%55 = load float*, float** %54
%56 = load float*, float** %16
br i1 %24, label %91, label %57
57: ; preds = %53, %57
%58 = phi i64 [ %88, %57 ], [ 2, %53 ]
%59 = phi float [ %87, %57 ], [ 0.000000e+00, %53 ]
%60 = phi i64 [ %89, %57 ], [ 0, %53 ]
%61 = getelementptr inbounds float, float* %55, i64 %58
%62 = load float, float* %61
%63 = getelementptr inbounds float, float* %56, i64 %58
%64 = load float, float* %63
%65 = fsub float %62, %64
%66 = tail call float @llvm.fmuladd.f32(float %65, float %65, float %59)
%67 = or i64 %58, 1
%68 = getelementptr inbounds float, float* %55, i64 %67
%69 = load float, float* %68
%70 = getelementptr inbounds float, float* %56, i64 %67
%71 = load float, float* %70
%72 = fsub float %69, %71
%73 = tail call float @llvm.fmuladd.f32(float %72, float %72, float %66)
%74 = add nuw nsw i64 %58, 2
%75 = getelementptr inbounds float, float* %55, i64 %74
%76 = load float, float* %75
%77 = getelementptr inbounds float, float* %56, i64 %74
%78 = load float, float* %77
%79 = fsub float %76, %78
%80 = tail call float @llvm.fmuladd.f32(float %79, float %79, float %73)
%81 = add nuw nsw i64 %58, 3
%82 = getelementptr inbounds float, float* %55, i64 %81
%83 = load float, float* %82
%84 = getelementptr inbounds float, float* %56, i64 %81
%85 = load float, float* %84
%86 = fsub float %83, %85
%87 = tail call float @llvm.fmuladd.f32(float %86, float %86, float %80)
%88 = add nuw nsw i64 %58, 4
%89 = add nuw i64 %60, 4
%90 = icmp eq i64 %89, %25
br i1 %90, label %91, label %57
91: ; preds = %57, %53
%92 = phi float [ undef, %53 ], [ %87, %57 ]
%93 = phi i64 [ 2, %53 ], [ %88, %57 ]
%94 = phi float [ 0.000000e+00, %53 ], [ %87, %57 ]
br i1 %26, label %108, label %95
95: ; preds = %91, %95
%96 = phi i64 [ %105, %95 ], [ %93, %91 ]
%97 = phi float [ %104, %95 ], [ %94, %91 ]
%98 = phi i64 [ %106, %95 ], [ 0, %91 ]
%99 = getelementptr inbounds float, float* %55, i64 %96
%100 = load float, float* %99
%101 = getelementptr inbounds float, float* %56, i64 %96
%102 = load float, float* %101
%103 = fsub float %100, %102
%104 = tail call float @llvm.fmuladd.f32(float %103, float %103, float %97)
%105 = add nuw nsw i64 %96, 1
%106 = add i64 %98, 1
%107 = icmp eq i64 %106, %23
br i1 %107, label %108, label %95
108: ; preds = %91, %95, %51
%109 = phi float [ 0.000000e+00, %51 ], [ %92, %91 ], [ %104, %95 ]
%110 = fpext float %109 to double
%111 = tail call double @sqrt(double %110)
%112 = fpext float %29 to double
%113 = fadd double %111, %112
%114 = fptrunc double %113 to float
br label %115
115: ; preds = %27, %49, %108
%116 = phi i32 [ %52, %108 ], [ %30, %49 ], [ %30, %27 ]
%117 = phi float [ %114, %108 ], [ %29, %49 ], [ %29, %27 ]
%118 = add nuw nsw i64 %28, 1
%119 = icmp eq i64 %118, %20
br i1 %119, label %120, label %27
120: ; preds = %115, %9
%121 = phi i32 [ 0, %9 ], [ %116, %115 ]
%122 = phi float [ 0.000000e+00, %9 ], [ %117, %115 ]
%123 = sitofp i32 %121 to float
%124 = fdiv float %122, %123
%125 = fmul float %124, %124
ret float %125
}