void rmean(double *x, const int npts, int *jbeg, int *jend) {
  double ave;
  int j;
  if (*jbeg < 0)
    *jbeg = 0;
  if (*jend > npts - 1)
    *jend = npts - 1;
  ave = 0.0;
  for (j = *jbeg; j <= *jend; j++)
    ave += x[j];
  ave /= (double)(*jend - *jbeg + 1);
  for (j = 0; j < npts; j++)
    x[j] -= ave;
}


x86 assembly (clang, -O0):
<rmean>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x18(%rbp),%rax
cmpl   $0x0,(%rax)
jge    112a <rmean+0x2a>
mov    -0x18(%rbp),%rax
movl   $0x0,(%rax)
mov    -0x20(%rbp),%rax
mov    (%rax),%eax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jle    114a <rmean+0x4a>
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    -0x20(%rbp),%rcx
cmp    (%rcx),%eax
jg     118f <rmean+0x8f>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
addsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    115b <rmean+0x5b>
mov    -0x20(%rbp),%rax
mov    (%rax),%eax
mov    -0x18(%rbp),%rcx
sub    (%rcx),%eax
add    $0x1,%eax
cvtsi2sd %eax,%xmm1
movsd  -0x28(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11ec <rmean+0xec>
movsd  -0x28(%rbp),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    11b7 <rmean+0xb7>
pop    %rbp
ret

x86 assembly (clang, -O2):
<rmean>:
mov    (%rdx),%eax
test   %eax,%eax
jns    110e <rmean+0xe>
movl   $0x0,(%rdx)
xor    %eax,%eax
mov    (%rcx),%r8d
cmp    %esi,%r8d
jl     111f <rmean+0x1f>
lea    -0x1(%rsi),%r8d
mov    %r8d,(%rcx)
mov    (%rdx),%eax
xorpd  %xmm0,%xmm0
mov    %r8d,%r9d
sub    %eax,%r9d
jl     1197 <rmean+0x97>
movslq %eax,%rcx
add    $0x1,%r8d
mov    %r8d,%edx
sub    %eax,%edx
xorpd  %xmm0,%xmm0
and    $0x7,%edx
je     114e <rmean+0x4e>
addsd  (%rdi,%rcx,8),%xmm0
add    $0x1,%rcx
add    $0xffffffff,%edx
jne    1140 <rmean+0x40>
cmp    $0x7,%r9d
jb     1197 <rmean+0x97>
mov    %r8d,%eax
nopw   0x0(%rax,%rax,1)
addsd  (%rdi,%rcx,8),%xmm0
addsd  0x8(%rdi,%rcx,8),%xmm0
addsd  0x10(%rdi,%rcx,8),%xmm0
addsd  0x18(%rdi,%rcx,8),%xmm0
addsd  0x20(%rdi,%rcx,8),%xmm0
addsd  0x28(%rdi,%rcx,8),%xmm0
addsd  0x30(%rdi,%rcx,8),%xmm0
addsd  0x38(%rdi,%rcx,8),%xmm0
add    $0x8,%rcx
cmp    %ecx,%eax
jne    1160 <rmean+0x60>
test   %esi,%esi
jle    1287 <rmean+0x187>
add    $0x1,%r9d
cvtsi2sd %r9d,%xmm1
divsd  %xmm1,%xmm0
mov    %esi,%eax
cmp    $0x4,%esi
jae    11ba <rmean+0xba>
xor    %ecx,%ecx
jmp    1270 <rmean+0x170>
mov    %eax,%ecx
and    $0xfffffffc,%ecx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x4(%rcx),%rdx
mov    %rdx,%r8
shr    $0x2,%r8
add    $0x1,%r8
test   %rdx,%rdx
je     1288 <rmean+0x188>
mov    %r8,%rsi
and    $0xfffffffffffffffe,%rsi
xor    %edx,%edx
nopl   0x0(%rax,%rax,1)
movupd (%rdi,%rdx,8),%xmm2
movupd 0x10(%rdi,%rdx,8),%xmm3
movupd 0x20(%rdi,%rdx,8),%xmm4
movupd 0x30(%rdi,%rdx,8),%xmm5
subpd  %xmm1,%xmm2
subpd  %xmm1,%xmm3
movupd %xmm2,(%rdi,%rdx,8)
movupd %xmm3,0x10(%rdi,%rdx,8)
subpd  %xmm1,%xmm4
subpd  %xmm1,%xmm5
movupd %xmm4,0x20(%rdi,%rdx,8)
movupd %xmm5,0x30(%rdi,%rdx,8)
add    $0x8,%rdx
add    $0xfffffffffffffffe,%rsi
jne    11f0 <rmean+0xf0>
test   $0x1,%r8b
je     125c <rmean+0x15c>
movupd (%rdi,%rdx,8),%xmm2
movupd 0x10(%rdi,%rdx,8),%xmm3
subpd  %xmm1,%xmm2
subpd  %xmm1,%xmm3
movupd %xmm2,(%rdi,%rdx,8)
movupd %xmm3,0x10(%rdi,%rdx,8)
cmp    %rax,%rcx
je     1287 <rmean+0x187>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  (%rdi,%rcx,8),%xmm1
subsd  %xmm0,%xmm1
movsd  %xmm1,(%rdi,%rcx,8)
add    $0x1,%rcx
cmp    %rcx,%rax
jne    1270 <rmean+0x170>
ret
xor    %edx,%edx
test   $0x1,%r8b
jne    123e <rmean+0x13e>
jmp    125c <rmean+0x15c>

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

LLVM IR (-O2):
define void @rmean(double* nocapture %0, i32 %1, i32* nocapture %2, i32* nocapture %3) {
%5 = load i32, i32* %2
%6 = icmp slt i32 %5, 0
br i1 %6, label %7, label %8
7: ; preds = %4
store i32 0, i32* %2
br label %8
8: ; preds = %7, %4
%9 = phi i32 [ 0, %7 ], [ %5, %4 ]
%10 = load i32, i32* %3
%11 = icmp slt i32 %10, %1
br i1 %11, label %15, label %12
12: ; preds = %8
%13 = add nsw i32 %1, -1
store i32 %13, i32* %3
%14 = load i32, i32* %2
br label %15
15: ; preds = %12, %8
%16 = phi i32 [ %13, %12 ], [ %10, %8 ]
%17 = phi i32 [ %14, %12 ], [ %9, %8 ]
%18 = icmp slt i32 %16, %17
br i1 %18, label %79, label %19
19: ; preds = %15
%20 = sext i32 %17 to i64
%21 = add nsw i32 %16, 1
%22 = add i32 %16, 1
%23 = sub i32 %22, %17
%24 = sub i32 %16, %17
%25 = and i32 %23, 7
%26 = icmp eq i32 %25, 0
br i1 %26, label %37, label %27
27: ; preds = %19, %27
%28 = phi i64 [ %34, %27 ], [ %20, %19 ]
%29 = phi double [ %33, %27 ], [ 0.000000e+00, %19 ]
%30 = phi i32 [ %35, %27 ], [ 0, %19 ]
%31 = getelementptr inbounds double, double* %0, i64 %28
%32 = load double, double* %31
%33 = fadd double %29, %32
%34 = add nsw i64 %28, 1
%35 = add i32 %30, 1
%36 = icmp eq i32 %35, %25
br i1 %36, label %37, label %27
37: ; preds = %27, %19
%38 = phi double [ undef, %19 ], [ %33, %27 ]
%39 = phi i64 [ %20, %19 ], [ %34, %27 ]
%40 = phi double [ 0.000000e+00, %19 ], [ %33, %27 ]
%41 = icmp ult i32 %24, 7
br i1 %41, label %79, label %42
42: ; preds = %37, %42
%43 = phi i64 [ %76, %42 ], [ %39, %37 ]
%44 = phi double [ %75, %42 ], [ %40, %37 ]
%45 = getelementptr inbounds double, double* %0, i64 %43
%46 = load double, double* %45
%47 = fadd double %44, %46
%48 = add nsw i64 %43, 1
%49 = getelementptr inbounds double, double* %0, i64 %48
%50 = load double, double* %49
%51 = fadd double %47, %50
%52 = add nsw i64 %43, 2
%53 = getelementptr inbounds double, double* %0, i64 %52
%54 = load double, double* %53
%55 = fadd double %51, %54
%56 = add nsw i64 %43, 3
%57 = getelementptr inbounds double, double* %0, i64 %56
%58 = load double, double* %57
%59 = fadd double %55, %58
%60 = add nsw i64 %43, 4
%61 = getelementptr inbounds double, double* %0, i64 %60
%62 = load double, double* %61
%63 = fadd double %59, %62
%64 = add nsw i64 %43, 5
%65 = getelementptr inbounds double, double* %0, i64 %64
%66 = load double, double* %65
%67 = fadd double %63, %66
%68 = add nsw i64 %43, 6
%69 = getelementptr inbounds double, double* %0, i64 %68
%70 = load double, double* %69
%71 = fadd double %67, %70
%72 = add nsw i64 %43, 7
%73 = getelementptr inbounds double, double* %0, i64 %72
%74 = load double, double* %73
%75 = fadd double %71, %74
%76 = add nsw i64 %43, 8
%77 = trunc i64 %76 to i32
%78 = icmp eq i32 %21, %77
br i1 %78, label %79, label %42
79: ; preds = %37, %42, %15
%80 = phi double [ 0.000000e+00, %15 ], [ %38, %37 ], [ %75, %42 ]
%81 = sub i32 1, %17
%82 = add i32 %81, %16
%83 = sitofp i32 %82 to double
%84 = fdiv double %80, %83
%85 = icmp sgt i32 %1, 0
br i1 %85, label %86, label %154
86: ; preds = %79
%87 = zext i32 %1 to i64
%88 = icmp ult i32 %1, 4
br i1 %88, label %145, label %89
89: ; preds = %86
%90 = and i64 %87, 4294967292
%91 = insertelement <2 x double> poison, double %84, i64 0
%92 = shufflevector <2 x double> %91, <2 x double> poison, <2 x i32> zeroinitializer
%93 = insertelement <2 x double> poison, double %84, i64 0
%94 = shufflevector <2 x double> %93, <2 x double> poison, <2 x i32> zeroinitializer
%95 = add nsw i64 %90, -4
%96 = lshr exact i64 %95, 2
%97 = add nuw nsw i64 %96, 1
%98 = and i64 %97, 1
%99 = icmp eq i64 %95, 0
br i1 %99, label %129, label %100
100: ; preds = %89
%101 = and i64 %97, 9223372036854775806
br label %102
102: ; preds = %102, %100
%103 = phi i64 [ 0, %100 ], [ %126, %102 ]
%104 = phi i64 [ 0, %100 ], [ %127, %102 ]
%105 = getelementptr inbounds double, double* %0, i64 %103
%106 = bitcast double* %105 to <2 x double>*
%107 = load <2 x double>, <2 x double>* %106
%108 = getelementptr inbounds double, double* %105, i64 2
%109 = bitcast double* %108 to <2 x double>*
%110 = load <2 x double>, <2 x double>* %109
%111 = fsub <2 x double> %107, %92
%112 = fsub <2 x double> %110, %94
%113 = bitcast double* %105 to <2 x double>*
store <2 x double> %111, <2 x double>* %113
%114 = bitcast double* %108 to <2 x double>*
store <2 x double> %112, <2 x double>* %114
%115 = or i64 %103, 4
%116 = getelementptr inbounds double, double* %0, i64 %115
%117 = bitcast double* %116 to <2 x double>*
%118 = load <2 x double>, <2 x double>* %117
%119 = getelementptr inbounds double, double* %116, i64 2
%120 = bitcast double* %119 to <2 x double>*
%121 = load <2 x double>, <2 x double>* %120
%122 = fsub <2 x double> %118, %92
%123 = fsub <2 x double> %121, %94
%124 = bitcast double* %116 to <2 x double>*
store <2 x double> %122, <2 x double>* %124
%125 = bitcast double* %119 to <2 x double>*
store <2 x double> %123, <2 x double>* %125
%126 = add nuw i64 %103, 8
%127 = add i64 %104, 2
%128 = icmp eq i64 %127, %101
br i1 %128, label %129, label %102
129: ; preds = %102, %89
%130 = phi i64 [ 0, %89 ], [ %126, %102 ]
%131 = icmp eq i64 %98, 0
br i1 %131, label %143, label %132
132: ; preds = %129
%133 = getelementptr inbounds double, double* %0, i64 %130
%134 = bitcast double* %133 to <2 x double>*
%135 = load <2 x double>, <2 x double>* %134
%136 = getelementptr inbounds double, double* %133, i64 2
%137 = bitcast double* %136 to <2 x double>*
%138 = load <2 x double>, <2 x double>* %137
%139 = fsub <2 x double> %135, %92
%140 = fsub <2 x double> %138, %94
%141 = bitcast double* %133 to <2 x double>*
store <2 x double> %139, <2 x double>* %141
%142 = bitcast double* %136 to <2 x double>*
store <2 x double> %140, <2 x double>* %142
br label %143
143: ; preds = %129, %132
%144 = icmp eq i64 %90, %87
br i1 %144, label %154, label %145
145: ; preds = %86, %143
%146 = phi i64 [ 0, %86 ], [ %90, %143 ]
br label %147
147: ; preds = %145, %147
%148 = phi i64 [ %152, %147 ], [ %146, %145 ]
%149 = getelementptr inbounds double, double* %0, i64 %148
%150 = load double, double* %149
%151 = fsub double %150, %84
store double %151, double* %149
%152 = add nuw nsw i64 %148, 1
%153 = icmp eq i64 %152, %87
br i1 %153, label %154, label %147
154: ; preds = %147, %143, %79
ret void
}