void StatLocalMaxThDouble(double a[], int n, int s, double thre, int *pos,
                          int *num) {
  int i, j;
  double cur;
  double pre;
  double *p = a;
  int end = n - 1;
  cur = *p;
  for (i = 0, j = 0; i < end; i++) {
    pre = cur;
    p += s;
    cur = *p;
    if (cur < pre && pre >= thre) {
      pos[j++] = i;
      while (i < end) {
        pre = cur;
        p += s;
        i++;
        cur = *p;
        if (cur > pre)
          break;
      }
    }
  }
  cur = a[end * s];
  pre = a[(end - 1) * s];
  if (cur > pre && cur >= thre) {
    pos[j++] = end;
  }
  *num = j;
  return;
}


x86 assembly (clang, -O0):
<StatLocalMaxThDouble>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0xc(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x4c(%rbp)
mov    -0x48(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x4c(%rbp),%eax
jge    122e <StatLocalMaxThDouble+0x12e>
movsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x10(%rbp),%ecx
mov    -0x48(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x48(%rbp)
mov    -0x48(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm1
movsd  -0x40(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    121b <StatLocalMaxThDouble+0x11b>
movsd  -0x40(%rbp),%xmm0
ucomisd -0x18(%rbp),%xmm0
jb     121b <StatLocalMaxThDouble+0x11b>
mov    -0x2c(%rbp),%edx
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x30(%rbp)
movslq %ecx,%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x2c(%rbp),%eax
cmp    -0x4c(%rbp),%eax
jge    1216 <StatLocalMaxThDouble+0x116>
movsd  -0x38(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x10(%rbp),%ecx
mov    -0x48(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x48(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x48(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
ucomisd -0x40(%rbp),%xmm0
jbe    1211 <StatLocalMaxThDouble+0x111>
jmp    1216 <StatLocalMaxThDouble+0x116>
jmp    11bb <StatLocalMaxThDouble+0xbb>
jmp    121b <StatLocalMaxThDouble+0x11b>
jmp    1220 <StatLocalMaxThDouble+0x120>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1147 <StatLocalMaxThDouble+0x47>
mov    -0x8(%rbp),%rax
mov    -0x4c(%rbp),%ecx
imul   -0x10(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x4c(%rbp),%ecx
sub    $0x1,%ecx
imul   -0x10(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x38(%rbp),%xmm0
ucomisd -0x40(%rbp),%xmm0
jbe    1299 <StatLocalMaxThDouble+0x199>
movsd  -0x38(%rbp),%xmm0
ucomisd -0x18(%rbp),%xmm0
jb     1299 <StatLocalMaxThDouble+0x199>
mov    -0x4c(%rbp),%edx
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x30(%rbp)
movslq %ecx,%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x30(%rbp),%ecx
mov    -0x28(%rbp),%rax
mov    %ecx,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<StatLocalMaxThDouble>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
lea    -0x1(%rsi),%r10d
xor    %r9d,%r9d
cmp    $0x2,%esi
jl     11be <StatLocalMaxThDouble+0xbe>
movsd  (%rdi),%xmm1
movslq %edx,%r11
lea    0x0(,%r11,8),%r12
mov    %r11,%r14
shl    $0x4,%r14
xor    %ebp,%ebp
mov    %rdi,%rbx
xor    %r9d,%r9d
jmp    114f <StatLocalMaxThDouble+0x4f>
nopl   0x0(%rax,%rax,1)
movapd %xmm2,%xmm1
add    $0x1,%ebp
mov    %r15,%rbx
cmp    %r10d,%ebp
jge    11be <StatLocalMaxThDouble+0xbe>
lea    (%rbx,%r11,8),%r15
movsd  (%rbx,%r11,8),%xmm2
ucomisd %xmm0,%xmm1
jb     1140 <StatLocalMaxThDouble+0x40>
ucomisd %xmm2,%xmm1
jbe    1140 <StatLocalMaxThDouble+0x40>
movslq %r9d,%rax
add    $0x1,%r9d
mov    %ebp,(%rcx,%rax,4)
cmp    %r10d,%ebp
mov    %r10d,%eax
cmovg  %ebp,%eax
nopl   0x0(%rax,%rax,1)
cmp    %ebp,%eax
je     11b0 <StatLocalMaxThDouble+0xb0>
add    $0x1,%ebp
movsd  (%rbx,%r14,1),%xmm1
add    %r12,%rbx
ucomisd %xmm2,%xmm1
movapd %xmm1,%xmm2
jbe    1180 <StatLocalMaxThDouble+0x80>
add    %r12,%rbx
mov    %rbx,%r15
jmp    1144 <StatLocalMaxThDouble+0x44>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
add    %r12,%rbx
movapd %xmm2,%xmm1
mov    %rbx,%r15
mov    %eax,%ebp
jmp    1144 <StatLocalMaxThDouble+0x44>
mov    %r10d,%eax
imul   %edx,%eax
cltq
movsd  (%rdi,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jb     11ec <StatLocalMaxThDouble+0xec>
add    $0xfffffffe,%esi
imul   %edx,%esi
movslq %esi,%rax
ucomisd (%rdi,%rax,8),%xmm1
jbe    11ec <StatLocalMaxThDouble+0xec>
movslq %r9d,%rax
add    $0x1,%r9d
mov    %r10d,(%rcx,%rax,4)
mov    %r9d,(%r8)
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @StatLocalMaxThDouble(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 double
%16 = alloca double
%17 = alloca double*
%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 double*, double** %7
store double* %19, double** %17
%20 = load i32, i32* %8
%21 = sub nsw i32 %20, 1
store i32 %21, i32* %18
%22 = load double*, double** %17
%23 = load double, double* %22
store double %23, double* %15
store i32 0, i32* %13
store i32 0, i32* %14
br label %24
24: ; preds = %71, %6
%25 = load i32, i32* %13
%26 = load i32, i32* %18
%27 = icmp slt i32 %25, %26
br i1 %27, label %28, label %74
28: ; preds = %24
%29 = load double, double* %15
store double %29, double* %16
%30 = load i32, i32* %9
%31 = load double*, double** %17
%32 = sext i32 %30 to i64
%33 = getelementptr inbounds double, double* %31, i64 %32
store double* %33, double** %17
%34 = load double*, double** %17
%35 = load double, double* %34
store double %35, double* %15
%36 = load double, double* %15
%37 = load double, double* %16
%38 = fcmp olt double %36, %37
br i1 %38, label %39, label %70
39: ; preds = %28
%40 = load double, double* %16
%41 = load double, double* %10
%42 = fcmp oge double %40, %41
br i1 %42, label %43, label %70
43: ; preds = %39
%44 = load i32, i32* %13
%45 = load i32*, i32** %11
%46 = load i32, i32* %14
%47 = add nsw i32 %46, 1
store i32 %47, i32* %14
%48 = sext i32 %46 to i64
%49 = getelementptr inbounds i32, i32* %45, i64 %48
store i32 %44, i32* %49
br label %50
50: ; preds = %68, %43
%51 = load i32, i32* %13
%52 = load i32, i32* %18
%53 = icmp slt i32 %51, %52
br i1 %53, label %54, label %69
54: ; preds = %50
%55 = load double, double* %15
store double %55, double* %16
%56 = load i32, i32* %9
%57 = load double*, double** %17
%58 = sext i32 %56 to i64
%59 = getelementptr inbounds double, double* %57, i64 %58
store double* %59, double** %17
%60 = load i32, i32* %13
%61 = add nsw i32 %60, 1
store i32 %61, i32* %13
%62 = load double*, double** %17
%63 = load double, double* %62
store double %63, double* %15
%64 = load double, double* %15
%65 = load double, double* %16
%66 = fcmp ogt double %64, %65
br i1 %66, label %67, label %68
67: ; preds = %54
br label %69
68: ; preds = %54
br label %50
69: ; preds = %67, %50
br label %70
70: ; preds = %69, %39, %28
br label %71
71: ; preds = %70
%72 = load i32, i32* %13
%73 = add nsw i32 %72, 1
store i32 %73, i32* %13
br label %24
74: ; preds = %24
%75 = load double*, double** %7
%76 = load i32, i32* %18
%77 = load i32, i32* %9
%78 = mul nsw i32 %76, %77
%79 = sext i32 %78 to i64
%80 = getelementptr inbounds double, double* %75, i64 %79
%81 = load double, double* %80
store double %81, double* %15
%82 = load double*, double** %7
%83 = load i32, i32* %18
%84 = sub nsw i32 %83, 1
%85 = load i32, i32* %9
%86 = mul nsw i32 %84, %85
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds double, double* %82, i64 %87
%89 = load double, double* %88
store double %89, double* %16
%90 = load double, double* %15
%91 = load double, double* %16
%92 = fcmp ogt double %90, %91
br i1 %92, label %93, label %104
93: ; preds = %74
%94 = load double, double* %15
%95 = load double, double* %10
%96 = fcmp oge double %94, %95
br i1 %96, label %97, label %104
97: ; preds = %93
%98 = load i32, i32* %18
%99 = load i32*, i32** %11
%100 = load i32, i32* %14
%101 = add nsw i32 %100, 1
store i32 %101, i32* %14
%102 = sext i32 %100 to i64
%103 = getelementptr inbounds i32, i32* %99, i64 %102
store i32 %98, i32* %103
br label %104
104: ; preds = %97, %93, %74
%105 = load i32, i32* %14
%106 = load i32*, i32** %12
store i32 %105, i32* %106
ret void
}

LLVM IR (-O2):
define void @StatLocalMaxThDouble(double* nocapture %0, i32 %1, i32 %2, double %3, i32* nocapture writeonly %4, i32* nocapture writeonly %5) {
%7 = add i32 %1, -1
%8 = icmp sgt i32 %1, 1
br i1 %8, label %9, label %44
9: ; preds = %6
%10 = load double, double* %0
%11 = sext i32 %2 to i64
br label %12
12: ; preds = %9, %37
%13 = phi i32 [ 0, %9 ], [ %42, %37 ]
%14 = phi double* [ %0, %9 ], [ %40, %37 ]
%15 = phi double [ %10, %9 ], [ %39, %37 ]
%16 = phi i32 [ 0, %9 ], [ %38, %37 ]
%17 = getelementptr inbounds double, double* %14, i64 %11
%18 = load double, double* %17
%19 = fcmp uge double %18, %15
%20 = fcmp ult double %15, %3
%21 = or i1 %20, %19
br i1 %21, label %37, label %22
22: ; preds = %12
%23 = add nsw i32 %16, 1
%24 = sext i32 %16 to i64
%25 = getelementptr inbounds i32, i32* %4, i64 %24
store i32 %13, i32* %25
%26 = call i32 @llvm.smax.i32(i32 %13, i32 %7)
br label %27
27: ; preds = %32, %22
%28 = phi double [ %18, %22 ], [ %35, %32 ]
%29 = phi double* [ %17, %22 ], [ %33, %32 ]
%30 = phi i32 [ %13, %22 ], [ %34, %32 ]
%31 = icmp eq i32 %30, %26
br i1 %31, label %37, label %32
32: ; preds = %27
%33 = getelementptr inbounds double, double* %29, i64 %11
%34 = add i32 %30, 1
%35 = load double, double* %33
%36 = fcmp ogt double %35, %28
br i1 %36, label %37, label %27
37: ; preds = %32, %27, %12
%38 = phi i32 [ %16, %12 ], [ %23, %27 ], [ %23, %32 ]
%39 = phi double [ %18, %12 ], [ %35, %32 ], [ %28, %27 ]
%40 = phi double* [ %17, %12 ], [ %33, %32 ], [ %29, %27 ]
%41 = phi i32 [ %13, %12 ], [ %34, %32 ], [ %26, %27 ]
%42 = add nsw i32 %41, 1
%43 = icmp slt i32 %42, %7
br i1 %43, label %12, label %44
44: ; preds = %37, %6
%45 = phi i32 [ 0, %6 ], [ %38, %37 ]
%46 = mul nsw i32 %7, %2
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds double, double* %0, i64 %47
%49 = load double, double* %48
%50 = add nsw i32 %1, -2
%51 = mul nsw i32 %50, %2
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds double, double* %0, i64 %52
%54 = load double, double* %53
%55 = fcmp ule double %49, %54
%56 = fcmp ult double %49, %3
%57 = or i1 %56, %55
br i1 %57, label %62, label %58
58: ; preds = %44
%59 = add nsw i32 %45, 1
%60 = sext i32 %45 to i64
%61 = getelementptr inbounds i32, i32* %4, i64 %60
store i32 %7, i32* %61
br label %62
62: ; preds = %58, %44
%63 = phi i32 [ %59, %58 ], [ %45, %44 ]
store i32 %63, i32* %5
ret void
}