void uplopbs(x, n, lpf, m, y) double x[], lpf[], y[];
int n, m;
{
  int meven, modd, pos, i, h, j, k;
  double s;
  meven = (m + 1) / 2;
  modd = m / 2;
  k = meven - 1;
  j = (int)(k / 2);
  pos = k - 2 * j;
  k = j;
  for (i = 0; i < n; i++) {
    s = 0;
    j = k;
    for (h = 0; h < (meven - pos); h++) {
      while (j < 0)
        j += n;
      while (j >= n)
        j -= n;
      s += lpf[2 * h + pos] * x[j];
      j--;
    }
    y[2 * i] = s;
    s = 0;
    j = k + pos;
    for (h = 0; h < (modd + pos); h++) {
      while (j < 0)
        j += n;
      while (j >= n)
        j -= n;
      s += lpf[2 * h + 1 - pos] * x[j];
      j--;
    }
    y[2 * i + 1] = s;
    k++;
  }
}


x86 assembly (clang, -O0):
<uplopbs>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    %r8,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x2c(%rbp)
mov    -0x1c(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x44(%rbp)
mov    -0x44(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,-0x40(%rbp)
mov    -0x44(%rbp),%eax
mov    -0x40(%rbp),%ecx
shl    $0x1,%ecx
sub    %ecx,%eax
mov    %eax,-0x34(%rbp)
mov    -0x40(%rbp),%eax
mov    %eax,-0x44(%rbp)
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    131f <uplopbs+0x21f>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x44(%rbp),%eax
mov    %eax,-0x40(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    -0x2c(%rbp),%ecx
sub    -0x34(%rbp),%ecx
cmp    %ecx,%eax
jge    1222 <uplopbs+0x122>
jmp    119e <uplopbs+0x9e>
cmpl   $0x0,-0x40(%rbp)
jge    11b6 <uplopbs+0xb6>
mov    -0xc(%rbp),%eax
add    -0x40(%rbp),%eax
mov    %eax,-0x40(%rbp)
jmp    119e <uplopbs+0x9e>
jmp    11bb <uplopbs+0xbb>
mov    -0x40(%rbp),%eax
cmp    -0xc(%rbp),%eax
jl     11d7 <uplopbs+0xd7>
mov    -0xc(%rbp),%ecx
mov    -0x40(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x40(%rbp)
jmp    11bb <uplopbs+0xbb>
mov    -0x18(%rbp),%rax
mov    -0x3c(%rbp),%ecx
shl    $0x1,%ecx
add    -0x34(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x50(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x40(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x40(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1188 <uplopbs+0x88>
movsd  -0x50(%rbp),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x44(%rbp),%eax
add    -0x34(%rbp),%eax
mov    %eax,-0x40(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    -0x30(%rbp),%ecx
add    -0x34(%rbp),%ecx
cmp    %ecx,%eax
jge    12ee <uplopbs+0x1ee>
jmp    1267 <uplopbs+0x167>
cmpl   $0x0,-0x40(%rbp)
jge    127f <uplopbs+0x17f>
mov    -0xc(%rbp),%eax
add    -0x40(%rbp),%eax
mov    %eax,-0x40(%rbp)
jmp    1267 <uplopbs+0x167>
jmp    1284 <uplopbs+0x184>
mov    -0x40(%rbp),%eax
cmp    -0xc(%rbp),%eax
jl     12a0 <uplopbs+0x1a0>
mov    -0xc(%rbp),%ecx
mov    -0x40(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x40(%rbp)
jmp    1284 <uplopbs+0x184>
mov    -0x18(%rbp),%rax
mov    -0x3c(%rbp),%ecx
shl    $0x1,%ecx
add    $0x1,%ecx
sub    -0x34(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x50(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x40(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x40(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1251 <uplopbs+0x151>
movsd  -0x50(%rbp),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%ecx
shl    $0x1,%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    1167 <uplopbs+0x67>
pop    %rbp
ret

x86 assembly (clang, -O2):
<uplopbs>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %esi,%esi
jle    12a3 <uplopbs+0x1a3>
lea    0x1(%rcx),%eax
shr    $0x1f,%eax
lea    (%rcx,%rax,1),%r10d
add    $0x1,%r10d
sar    %r10d
lea    -0x1(%r10),%eax
shr    $0x1f,%eax
add    %r10d,%eax
add    $0xffffffff,%eax
mov    %eax,%r14d
sar    %r14d
and    $0xfffffffe,%eax
neg    %eax
lea    (%r10,%rax,1),%r11d
add    $0xffffffff,%r11d
mov    %ecx,%r9d
shr    $0x1f,%r9d
add    %ecx,%r9d
sar    %r9d
sub    %r11d,%r10d
add    %r11d,%r9d
mov    $0x1,%r13d
sub    %r11d,%r13d
mov    %esi,%eax
mov    %rax,-0x18(%rsp)
mov    %esi,%r15d
neg    %r15d
xor    %r12d,%r12d
mov    %r8,-0x10(%rsp)
jmp    11ae <uplopbs+0xae>
cs nopw 0x0(%rax,%rax,1)
shl    $0x3,%r12
or     $0x8,%r12
mov    -0x10(%rsp),%r8
movsd  %xmm0,(%r8,%r12,1)
mov    %rbp,%r14
add    $0x1,%r14d
mov    -0x8(%rsp),%r12
add    $0x1,%r12
cmp    -0x18(%rsp),%r12
je     12a3 <uplopbs+0x1a3>
xorpd  %xmm0,%xmm0
xorpd  %xmm1,%xmm1
test   %r10d,%r10d
jle    121c <uplopbs+0x11c>
xorpd  %xmm1,%xmm1
xor    %ecx,%ecx
mov    %r14d,%ebp
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
lea    (%r15,%rbp,1),%ebx
add    %esi,%ebp
cs nopw 0x0(%rax,%rax,1)
mov    %ebp,%eax
lea    (%rax,%rsi,1),%ebp
add    %esi,%ebx
js     11e0 <uplopbs+0xe0>
nopl   0x0(%rax)
sub    %esi,%eax
cmp    %esi,%eax
jge    11f0 <uplopbs+0xf0>
lea    (%r11,%rcx,2),%ebx
movslq %ebx,%rbx
movsd  (%rdx,%rbx,8),%xmm2
movslq %eax,%rbx
mulsd  (%rdi,%rbx,8),%xmm2
addsd  %xmm2,%xmm1
add    $0xffffffff,%eax
add    $0x1,%rcx
mov    %eax,%ebp
cmp    %r10,%rcx
jne    11d0 <uplopbs+0xd0>
mov    %r14,%rbp
mov    %r12,%rax
add    %r12,%r12
mov    %rax,-0x8(%rsp)
shl    $0x4,%rax
movsd  %xmm1,(%r8,%rax,1)
test   %r9d,%r9d
jle    1180 <uplopbs+0x80>
lea    (%r11,%rbp,1),%r14d
xorpd  %xmm0,%xmm0
xor    %ecx,%ecx
nopw   0x0(%rax,%rax,1)
lea    (%r15,%r14,1),%ebx
add    %esi,%r14d
nopw   0x0(%rax,%rax,1)
mov    %r14d,%eax
lea    (%rax,%rsi,1),%r14d
add    %esi,%ebx
js     1260 <uplopbs+0x160>
nopl   0x0(%rax,%rax,1)
sub    %esi,%eax
cmp    %esi,%eax
jge    1270 <uplopbs+0x170>
lea    0x0(%r13,%rcx,2),%ebx
movslq %ebx,%rbx
movsd  (%rdx,%rbx,8),%xmm1
movslq %eax,%rbx
mulsd  (%rdi,%rbx,8),%xmm1
addsd  %xmm1,%xmm0
add    $0xffffffff,%eax
add    $0x1,%rcx
mov    %eax,%r14d
cmp    %r9,%rcx
jne    1250 <uplopbs+0x150>
jmp    1180 <uplopbs+0x80>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @uplopbs(double* nocapture %0, i32 %1, double* nocapture %2, i32 %3, double* nocapture writeonly %4) {
%6 = add nsw i32 %3, 1
%7 = sdiv i32 %6, 2
%8 = add nsw i32 %7, -1
%9 = sdiv i32 %8, 2
%10 = mul nsw i32 %9, -2
%11 = add nsw i32 %10, %8
%12 = icmp sgt i32 %1, 0
br i1 %12, label %13, label %91
13: ; preds = %5
%14 = sdiv i32 %3, 2
%15 = sub i32 %7, %11
%16 = icmp sgt i32 %15, 0
%17 = add i32 %11, %14
%18 = icmp sgt i32 %17, 0
%19 = sub nsw i32 1, %11
%20 = zext i32 %1 to i64
%21 = zext i32 %15 to i64
%22 = zext i32 %17 to i64
br label %23
23: ; preds = %13, %84
%24 = phi i64 [ 0, %13 ], [ %89, %84 ]
%25 = phi i32 [ %9, %13 ], [ %88, %84 ]
br i1 %16, label %26, label %52
26: ; preds = %23, %38
%27 = phi i64 [ %50, %38 ], [ 0, %23 ]
%28 = phi double [ %48, %38 ], [ 0.000000e+00, %23 ]
%29 = phi i32 [ %49, %38 ], [ %25, %23 ]
br label %30
30: ; preds = %30, %26
%31 = phi i32 [ %33, %30 ], [ %29, %26 ]
%32 = icmp slt i32 %31, 0
%33 = add nsw i32 %31, %1
br i1 %32, label %30, label %34
34: ; preds = %30, %34
%35 = phi i32 [ %37, %34 ], [ %31, %30 ]
%36 = icmp slt i32 %35, %1
%37 = sub nsw i32 %35, %1
br i1 %36, label %38, label %34
38: ; preds = %34
%39 = trunc i64 %27 to i32
%40 = shl i32 %39, 1
%41 = add nsw i32 %40, %11
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds double, double* %2, i64 %42
%44 = load double, double* %43
%45 = sext i32 %35 to i64
%46 = getelementptr inbounds double, double* %0, i64 %45
%47 = load double, double* %46
%48 = tail call double @llvm.fmuladd.f64(double %44, double %47, double %28)
%49 = add nsw i32 %35, -1
%50 = add nuw nsw i64 %27, 1
%51 = icmp eq i64 %50, %21
br i1 %51, label %52, label %26
52: ; preds = %38, %23
%53 = phi double [ 0.000000e+00, %23 ], [ %48, %38 ]
%54 = shl nuw nsw i64 %24, 1
%55 = getelementptr inbounds double, double* %4, i64 %54
store double %53, double* %55
br i1 %18, label %56, label %84
56: ; preds = %52
%57 = add nsw i32 %25, %11
br label %58
58: ; preds = %56, %70
%59 = phi i64 [ 0, %56 ], [ %82, %70 ]
%60 = phi double [ 0.000000e+00, %56 ], [ %80, %70 ]
%61 = phi i32 [ %57, %56 ], [ %81, %70 ]
br label %62
62: ; preds = %62, %58
%63 = phi i32 [ %65, %62 ], [ %61, %58 ]
%64 = icmp slt i32 %63, 0
%65 = add nsw i32 %63, %1
br i1 %64, label %62, label %66
66: ; preds = %62, %66
%67 = phi i32 [ %69, %66 ], [ %63, %62 ]
%68 = icmp slt i32 %67, %1
%69 = sub nsw i32 %67, %1
br i1 %68, label %70, label %66
70: ; preds = %66
%71 = trunc i64 %59 to i32
%72 = shl i32 %71, 1
%73 = add i32 %19, %72
%74 = sext i32 %73 to i64
%75 = getelementptr inbounds double, double* %2, i64 %74
%76 = load double, double* %75
%77 = sext i32 %67 to i64
%78 = getelementptr inbounds double, double* %0, i64 %77
%79 = load double, double* %78
%80 = tail call double @llvm.fmuladd.f64(double %76, double %79, double %60)
%81 = add nsw i32 %67, -1
%82 = add nuw nsw i64 %59, 1
%83 = icmp eq i64 %82, %22
br i1 %83, label %84, label %58
84: ; preds = %70, %52
%85 = phi double [ 0.000000e+00, %52 ], [ %80, %70 ]
%86 = or i64 %54, 1
%87 = getelementptr inbounds double, double* %4, i64 %86
store double %85, double* %87
%88 = add nsw i32 %25, 1
%89 = add nuw nsw i64 %24, 1
%90 = icmp eq i64 %89, %20
br i1 %90, label %91, label %23
91: ; preds = %84, %5
ret void
}