#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double M_PI;
int cos(double);
void taper(double *x, int npts, int nbeg, int nend) {
  int i, iend;
  double ang, xi, cs;
  ang = M_PI / ((double)nbeg);
  for (i = 0; i < nbeg; i++) {
    xi = (double)(i + 1);
    cs = (1.0 - cos(xi * ang)) / 2.0;
    x[i] = x[i] * cs;
  }
  iend = npts - nend;
  ang = M_PI / ((double)nend);
  for (i = iend; i < npts; i++) {
    xi = (double)(i - npts);
    cs = (1.0 - cos(xi * ang) / 2);
    x[i] = x[i] * cs;
  }
}


x86 assembly (clang, -O0):
<taper>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    0x2ebc(%rip),%rax
movsd  (%rax),%xmm0
cvtsi2sdl -0x10(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    11bd <taper+0xad>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
cvtsi2sd %eax,%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x30(%rbp),%xmm0
mulsd  -0x28(%rbp),%xmm0
call   1030 <cos@plt>
cvtsi2sd %eax,%xmm1
movsd  0xe85(%rip),%xmm0
subsd  %xmm1,%xmm0
movsd  0xe81(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1145 <taper+0x35>
mov    -0xc(%rbp),%eax
sub    -0x14(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    0x2e1b(%rip),%rax
movsd  (%rax),%xmm0
cvtsi2sdl -0x14(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1259 <taper+0x149>
mov    -0x18(%rbp),%eax
sub    -0xc(%rbp),%eax
cvtsi2sd %eax,%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x30(%rbp),%xmm0
mulsd  -0x28(%rbp),%xmm0
call   1030 <cos@plt>
mov    $0x2,%ecx
cltd
idiv   %ecx
cvtsi2sd %eax,%xmm1
movsd  0xddd(%rip),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mulsd  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    11e5 <taper+0xd5>
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<taper>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %ecx,%ebx
mov    %esi,%r13d
mov    %rdi,%r14
mov    0x2ebb(%rip),%rax
movsd  (%rax),%xmm0
test   %edx,%edx
jle    124f <taper+0x13f>
movapd %xmm0,%xmm1
xorps  %xmm0,%xmm0
cvtsi2sd %edx,%xmm0
divsd  %xmm0,%xmm1
movsd  %xmm1,0x8(%rsp)
mov    %edx,%r12d
cmp    $0x1,%edx
mov    %r12,0x10(%rsp)
jne    1163 <taper+0x53>
xor    %r15d,%r15d
jmp    11fc <taper+0xec>
and    $0xfffffffe,%r12d
xor    %ebp,%ebp
nopl   0x0(%rax)
lea    0x1(%rbp),%eax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
mulsd  0x8(%rsp),%xmm0
call   1030 <cos@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  0xe6c(%rip),%xmm1
subsd  %xmm0,%xmm1
movsd  0xe68(%rip),%xmm0
mulsd  %xmm0,%xmm1
mulsd  (%r14,%rbp,8),%xmm1
movsd  %xmm1,(%r14,%rbp,8)
lea    0x2(%rbp),%r15
xorps  %xmm0,%xmm0
cvtsi2sd %r15d,%xmm0
mulsd  0x8(%rsp),%xmm0
call   1030 <cos@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  0xe2a(%rip),%xmm1
subsd  %xmm0,%xmm1
mulsd  0xe26(%rip),%xmm1
mulsd  0x8(%r14,%rbp,8),%xmm1
movsd  %xmm1,0x8(%r14,%rbp,8)
mov    %r15,%rbp
cmp    %r15,%r12
jne    1170 <taper+0x60>
testb  $0x1,0x10(%rsp)
je     1244 <taper+0x134>
lea    0x1(%r15),%eax
xorps  %xmm1,%xmm1
cvtsi2sd %eax,%xmm1
movsd  0x8(%rsp),%xmm0
mulsd  %xmm1,%xmm0
call   1030 <cos@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movsd  0xdd4(%rip),%xmm1
subsd  %xmm0,%xmm1
mulsd  0xdd0(%rip),%xmm1
mulsd  (%r14,%r15,8),%xmm1
movsd  %xmm1,(%r14,%r15,8)
mov    0x2d9d(%rip),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,0x8(%rsp)
test   %ebx,%ebx
jle    12c6 <taper+0x1b6>
xorps  %xmm0,%xmm0
cvtsi2sd %ebx,%xmm0
movsd  0x8(%rsp),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,0x8(%rsp)
movslq %r13d,%r15
sub    %ebx,%r13d
movslq %r13d,%rbp
neg    %ebx
nopl   0x0(%rax,%rax,1)
xorps  %xmm0,%xmm0
cvtsi2sd %ebx,%xmm0
mulsd  0x8(%rsp),%xmm0
call   1030 <cos@plt>
mov    %eax,%ecx
shr    $0x1f,%ecx
add    %eax,%ecx
sar    %ecx
xorps  %xmm0,%xmm0
cvtsi2sd %ecx,%xmm0
movsd  0xd56(%rip),%xmm1
subsd  %xmm0,%xmm1
mulsd  (%r14,%rbp,8),%xmm1
movsd  %xmm1,(%r14,%rbp,8)
add    $0x1,%rbp
add    $0x1,%ebx
cmp    %r15,%rbp
jl     1280 <taper+0x170>
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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