void rftfsub(int n, double *a, int nc, double const *c) {
  int j, k, kk, ks, m;
  double wkr, wki, xr, xi, yr, yi;
  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[k] += yr;
    a[k + 1] -= yi;
  }
}


x86 assembly (clang, -O0):
<rftfsub>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
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    12a6 <rftfsub+0x1a6>
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  0xe97(%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
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%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
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),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  %xmm1,%xmm0
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),%xmm1
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x24(%rbp)
jmp    1136 <rftfsub+0x36>
pop    %rbp
ret

x86 assembly (clang, -O2):
<rftfsub>:
cmp    $0x6,%edi
jl     11da <rftfsub+0xda>
mov    %edx,%r8d
mov    %edi,%r9d
sar    %r9d
lea    (%r8,%r8,1),%eax
cltd
idiv   %r9d
mov    %edi,%edx
movslq %r9d,%r9
movslq %eax,%r10
movslq %r8d,%rax
lea    (%rcx,%r10,8),%rdi
sub    %r10,%rax
shl    $0x3,%r10
lea    (%rcx,%rax,8),%rcx
mov    %r10,%r8
neg    %r8
lea    (%rsi,%rdx,8),%rdx
add    $0xfffffffffffffff0,%rdx
mov    $0x2,%eax
movsd  0xeb1(%rip),%xmm0
movapd 0xeb9(%rip),%xmm1
nopw   0x0(%rax,%rax,1)
movapd %xmm0,%xmm2
subsd  (%rcx),%xmm2
movupd (%rsi,%rax,8),%xmm3
movupd (%rdx),%xmm4
movapd %xmm3,%xmm5
subpd  %xmm4,%xmm5
addpd  %xmm3,%xmm4
movapd %xmm4,%xmm6
movsd  %xmm5,%xmm6
movsd  (%rdi),%xmm7
shufpd $0x1,%xmm7,%xmm4
xorpd  %xmm1,%xmm7
unpcklpd %xmm5,%xmm7
mulpd  %xmm4,%xmm7
unpcklpd %xmm2,%xmm2
mulpd  %xmm6,%xmm2
addpd  %xmm7,%xmm2
subpd  %xmm2,%xmm3
movupd %xmm3,(%rsi,%rax,8)
movupd (%rdx),%xmm3
movapd %xmm3,%xmm4
addpd  %xmm2,%xmm4
subpd  %xmm2,%xmm3
movsd  %xmm4,%xmm3
movupd %xmm3,(%rdx)
add    $0x2,%rax
add    %r10,%rdi
add    %r8,%rcx
add    $0xfffffffffffffff0,%rdx
cmp    %r9,%rax
jl     1160 <rftfsub+0x60>
ret

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

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