double cog(double *x, double *y, int nPts) {
  int hk, k;
  double sum, hsum, c;
  hk = 0.0;
  sum = 0.0;
  hsum = 0.0;
  for (k = 1; k <= nPts; k++) {
    if (y[k] > 0.0) {
      sum = sum + y[k];
    }
  }
  for (k = 1; k <= nPts; k++) {
    if (y[k] > 0.0) {
      if (hsum < sum / 2.0) {
        hsum = hsum + y[k];
        hk = k;
      }
    }
  }
  c = (hsum - sum / 2.0) / y[hk] + x[hk] - 0.5;
  return c;
}


x86 assembly (clang, -O0):
<cog>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0x1,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     117d <cog+0x7d>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    116a <cog+0x6a>
movsd  -0x28(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x28(%rbp)
jmp    116f <cog+0x6f>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    112d <cog+0x2d>
movl   $0x1,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     11ff <cog+0xff>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    11ec <cog+0xec>
movsd  -0x30(%rbp),%xmm1
movsd  -0x28(%rbp),%xmm0
movsd  0xe4c(%rip),%xmm2
divsd  %xmm2,%xmm0
ucomisd %xmm1,%xmm0
jbe    11e7 <cog+0xe7>
movsd  -0x30(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x18(%rbp)
jmp    11ec <cog+0xec>
jmp    11f1 <cog+0xf1>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1184 <cog+0x84>
movsd  -0x30(%rbp),%xmm0
movsd  -0x28(%rbp),%xmm1
movsd  0xdf7(%rip),%xmm2
divsd  %xmm2,%xmm1
subsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  0xdc5(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<cog>:
test   %edx,%edx
jle    112b <cog+0x2b>
mov    %edx,%r9d
lea    -0x1(%r9),%r8
mov    %r9d,%r10d
and    $0x3,%r10d
cmp    $0x3,%r8
jae    113b <cog+0x3b>
xorpd  %xmm1,%xmm1
mov    $0x1,%eax
test   %r10,%r10
jne    119a <cog+0x9a>
jmp    11c6 <cog+0xc6>
xorpd  %xmm1,%xmm1
xor    %r10d,%r10d
xorpd  %xmm0,%xmm0
jmp    12ab <cog+0x1ab>
mov    %r9d,%ecx
and    $0xfffffffc,%ecx
xorpd  %xmm1,%xmm1
xor    %eax,%eax
movsd  0xeb1(%rip),%xmm0
nop
movsd  0x8(%rsi,%rax,8),%xmm2
movsd  0x10(%rsi,%rax,8),%xmm3
maxsd  %xmm0,%xmm2
addsd  %xmm1,%xmm2
maxsd  %xmm0,%xmm3
addsd  %xmm2,%xmm3
movsd  0x18(%rsi,%rax,8),%xmm2
maxsd  %xmm0,%xmm2
addsd  %xmm3,%xmm2
movsd  0x20(%rsi,%rax,8),%xmm1
maxsd  %xmm0,%xmm1
addsd  %xmm2,%xmm1
add    $0x4,%rax
cmp    %rax,%rcx
jne    1150 <cog+0x50>
add    $0x1,%rax
test   %r10,%r10
je     11c6 <cog+0xc6>
lea    (%rsi,%rax,8),%rax
xor    %ecx,%ecx
movsd  0xe58(%rip),%xmm0
nopl   0x0(%rax,%rax,1)
movsd  (%rax,%rcx,8),%xmm2
maxsd  %xmm0,%xmm2
addsd  %xmm2,%xmm1
add    $0x1,%rcx
cmp    %rcx,%r10
jne    11b0 <cog+0xb0>
xor    %r10d,%r10d
mulsd  0xe37(%rip),%xmm1
test   %edx,%edx
jle    1268 <cog+0x168>
test   %r8,%r8
je     126e <cog+0x16e>
mov    %r9d,%r8d
and    $0xfffffffe,%r8d
xorpd  %xmm2,%xmm2
xor    %r10d,%r10d
mov    $0x1,%edx
movsd  0xe03(%rip),%xmm3
xorpd  %xmm0,%xmm0
jmp    1221 <cog+0x121>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
addsd  %xmm4,%xmm0
cmovne %eax,%r10d
add    $0x2,%rdx
cmp    %r8,%rax
je     1277 <cog+0x177>
movsd  (%rsi,%rdx,8),%xmm5
ucomisd %xmm2,%xmm5
seta   %al
ucomisd %xmm0,%xmm1
seta   %cl
test   %cl,%al
jne    123c <cog+0x13c>
movapd %xmm3,%xmm5
movsd  0x8(%rsi,%rdx,8),%xmm4
addsd  %xmm5,%xmm0
cmovne %edx,%r10d
ucomisd %xmm2,%xmm4
seta   %r11b
ucomisd %xmm0,%xmm1
seta   %cl
lea    0x1(%rdx),%rax
test   %cl,%r11b
jne    1210 <cog+0x110>
movapd %xmm3,%xmm4
jmp    1210 <cog+0x110>
xorpd  %xmm0,%xmm0
jmp    12ab <cog+0x1ab>
xorpd  %xmm0,%xmm0
mov    $0x1,%edx
test   $0x1,%r9b
je     12a8 <cog+0x1a8>
movsd  (%rsi,%rdx,8),%xmm2
xorpd  %xmm3,%xmm3
ucomisd %xmm3,%xmm2
seta   %al
ucomisd %xmm0,%xmm1
seta   %cl
test   %cl,%al
jne    12a0 <cog+0x1a0>
movsd  0xd60(%rip),%xmm2
addsd  %xmm2,%xmm0
cmovne %edx,%r10d
movslq %r10d,%r10
subsd  %xmm1,%xmm0
divsd  (%rsi,%r10,8),%xmm0
addsd  (%rdi,%r10,8),%xmm0
addsd  0xd4d(%rip),%xmm0
ret

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

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