void rftbsub(int n, double *a, int nc, double *c) {
  int j, k, kk, ks, m;
  double wkr, wki, xr, xi, yr, yi;
  a[1] = -a[1];
  m = n >> 1;
  ks = 2 * nc / m;
  kk = 0;
  for (j = 2; j < m; j += 2) {
    k = n - j;
    kk += ks;
    wkr = 0.5 - c[nc - kk];
    wki = c[kk];
    xr = a[j] - a[k];
    xi = a[j + 1] + a[k + 1];
    yr = wkr * xr + wki * xi;
    yi = wkr * xi - wki * xr;
    a[j] -= yr;
    a[j + 1] = yi - a[j + 1];
    a[k] += yr;
    a[k + 1] = yi - a[k + 1];
  }
  a[m + 1] = -a[m + 1];
}


x86 assembly (clang, -O0):
<rftbsub>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x10(%rbp),%rax
movsd  0x8(%rax),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x10(%rbp),%rax
movsd  %xmm0,0x8(%rax)
mov    -0x4(%rbp),%eax
sar    $0x1,%eax
mov    %eax,-0x34(%rbp)
mov    -0x14(%rbp),%eax
shl    $0x1,%eax
cltd
idivl  -0x34(%rbp)
mov    %eax,-0x30(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x2,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    12e1 <rftbsub+0x1e1>
mov    -0x4(%rbp),%eax
sub    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x30(%rbp),%eax
add    -0x2c(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x20(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
movsd  0xe6e(%rip),%xmm0
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x40(%rbp),%xmm0
movsd  -0x50(%rbp),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  -0x58(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x40(%rbp),%xmm0
movsd  -0x58(%rbp),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  -0x50(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x60(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x68(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
subsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x60(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x68(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
subsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x24(%rbp)
jmp    115f <rftbsub+0x5f>
mov    -0x10(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x10(%rbp),%rax
mov    -0x34(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
pop    %rbp
ret

x86 assembly (clang, -O2):
<rftbsub>:
movsd  0x8(%rsi),%xmm0
xorpd  0xef3(%rip),%xmm0
movlpd %xmm0,0x8(%rsi)
mov    %edi,%r10d
sar    %r10d
movslq %r10d,%r9
cmp    $0x6,%edi
jl     11ff <rftbsub+0xff>
mov    %edx,%r8d
lea    (%r8,%r8,1),%eax
cltd
idiv   %r10d
mov    %edi,%edi
movslq %eax,%r10
movslq %r8d,%rax
lea    (%rcx,%r10,8),%rdx
sub    %r10,%rax
shl    $0x3,%r10
lea    (%rcx,%rax,8),%rcx
mov    %r10,%r8
neg    %r8
lea    (%rsi,%rdi,8),%rdi
add    $0xfffffffffffffff0,%rdi
mov    $0x2,%eax
movsd  0xeae(%rip),%xmm8
movapd 0xe96(%rip),%xmm1
nopw   0x0(%rax,%rax,1)
movapd %xmm8,%xmm2
subsd  (%rcx),%xmm2
movupd (%rsi,%rax,8),%xmm3
movupd (%rdi),%xmm4
movapd %xmm3,%xmm5
subpd  %xmm4,%xmm5
addpd  %xmm3,%xmm4
movapd %xmm4,%xmm6
movsd  %xmm5,%xmm6
movsd  (%rdx),%xmm7
movapd %xmm7,%xmm0
xorpd  %xmm1,%xmm0
unpcklpd %xmm5,%xmm7
shufpd $0x1,%xmm0,%xmm4
mulpd  %xmm7,%xmm4
unpcklpd %xmm2,%xmm2
mulpd  %xmm6,%xmm2
addpd  %xmm4,%xmm2
movapd %xmm2,%xmm0
movsd  %xmm3,%xmm0
movsd  %xmm2,%xmm3
subpd  %xmm3,%xmm0
movupd %xmm0,(%rsi,%rax,8)
movupd (%rdi),%xmm0
movapd %xmm2,%xmm3
addpd  %xmm0,%xmm3
subpd  %xmm0,%xmm2
movsd  %xmm3,%xmm2
movupd %xmm2,(%rdi)
add    $0x2,%rax
add    %r10,%rdx
add    %r8,%rcx
add    $0xfffffffffffffff0,%rdi
cmp    %r9,%rax
jl     1170 <rftbsub+0x70>
movsd  0x8(%rsi,%r9,8),%xmm0
xorps  0xdf3(%rip),%xmm0
movlps %xmm0,0x8(%rsi,%r9,8)
ret

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

LLVM IR (-O2):
define void @rftbsub(i32 %0, double* nocapture %1, i32 %2, double* nocapture %3) {
%5 = getelementptr inbounds double, double* %1, i64 1
%6 = load double, double* %5
%7 = fneg double %6
store double %7, double* %5
%8 = ashr i32 %0, 1
%9 = icmp sgt i32 %0, 5
br i1 %9, label %10, label %59
10: ; preds = %4
%11 = shl nsw i32 %2, 1
%12 = sdiv i32 %11, %8
%13 = zext i32 %0 to i64
%14 = sext i32 %8 to i64
%15 = sext i32 %12 to i64
%16 = sext i32 %2 to i64
br label %17
17: ; preds = %10, %17
%18 = phi i64 [ 0, %10 ], [ %21, %17 ]
%19 = phi i64 [ 2, %10 ], [ %57, %17 ]
%20 = sub nsw i64 %13, %19
%21 = add nsw i64 %18, %15
%22 = sub nsw i64 %16, %21
%23 = getelementptr inbounds double, double* %3, i64 %22
%24 = load double, double* %23
%25 = fsub double 5.000000e-01, %24
%26 = getelementptr inbounds double, double* %3, i64 %21
%27 = load double, double* %26
%28 = getelementptr inbounds double, double* %1, i64 %19
%29 = getelementptr inbounds double, double* %1, i64 %20
%30 = bitcast double* %28 to <2 x double>*
%31 = load <2 x double>, <2 x double>* %30
%32 = bitcast double* %29 to <2 x double>*
%33 = load <2 x double>, <2 x double>* %32
%34 = fsub <2 x double> %31, %33
%35 = fadd <2 x double> %31, %33
%36 = shufflevector <2 x double> %34, <2 x double> %35, <2 x i32> <i32 0, i32 3>
%37 = fneg double %27
%38 = insertelement <2 x double> poison, double %27, i64 0
%39 = shufflevector <2 x double> %38, <2 x double> %34, <2 x i32> <i32 0, i32 2>
%40 = extractelement <2 x double> %35, i64 1
%41 = insertelement <2 x double> poison, double %40, i64 0
%42 = insertelement <2 x double> %41, double %37, i64 1
%43 = fmul <2 x double> %39, %42
%44 = insertelement <2 x double> poison, double %25, i64 0
%45 = shufflevector <2 x double> %44, <2 x double> poison, <2 x i32> zeroinitializer
%46 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %45, <2 x double> %36, <2 x double> %43)
%47 = shufflevector <2 x double> %31, <2 x double> %46, <2 x i32> <i32 0, i32 3>
%48 = shufflevector <2 x double> %46, <2 x double> %31, <2 x i32> <i32 0, i32 3>
%49 = fsub <2 x double> %47, %48
%50 = bitcast double* %28 to <2 x double>*
store <2 x double> %49, <2 x double>* %50
%51 = bitcast double* %29 to <2 x double>*
%52 = load <2 x double>, <2 x double>* %51
%53 = fadd <2 x double> %46, %52
%54 = fsub <2 x double> %46, %52
%55 = shufflevector <2 x double> %53, <2 x double> %54, <2 x i32> <i32 0, i32 3>
%56 = bitcast double* %29 to <2 x double>*
store <2 x double> %55, <2 x double>* %56
%57 = add nuw nsw i64 %19, 2
%58 = icmp slt i64 %57, %14
br i1 %58, label %17, label %59
59: ; preds = %17, %4
%60 = add nsw i32 %8, 1
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds double, double* %1, i64 %61
%63 = load double, double* %62
%64 = fneg double %63
store double %64, double* %62
ret void
}