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


x86 assembly (clang, -O0):
<dstsub>:
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
cltd
idivl  -0x4(%rbp)
mov    %eax,-0x30(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x1,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    123a <dstsub+0x13a>
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
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x14(%rbp),%ecx
sub    -0x2c(%rbp),%ecx
movslq %ecx,%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x48(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x40(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x48(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x50(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1133 <dstsub+0x33>
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,(%rax,%rcx,8)
pop    %rbp
ret

x86 assembly (clang, -O2):
<dstsub>:
push   %rbx
mov    %edi,%r9d
sar    %r9d
cmp    $0x4,%edi
jl     11b5 <dstsub+0xb5>
mov    %edx,%r8d
mov    %edx,%eax
cltd
idiv   %edi
mov    %edi,%edi
cltq
cmp    $0x3,%r9d
mov    $0x2,%r10d
cmovge %r9d,%r10d
movslq %r8d,%rdx
sub    %rax,%rdx
lea    (%rcx,%rdx,8),%rdx
lea    0x0(,%rax,8),%r8
mov    %r8,%r11
neg    %r11
lea    (%rcx,%rax,8),%rax
lea    (%rsi,%rdi,8),%rdi
add    $0xfffffffffffffff8,%rdi
mov    $0x1,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsd  (%rax),%xmm0
movsd  (%rdx),%xmm1
movapd %xmm0,%xmm2
subsd  %xmm1,%xmm2
addsd  %xmm1,%xmm0
movsd  (%rdi),%xmm1
movsd  (%rsi,%rbx,8),%xmm3
movapd %xmm0,%xmm4
mulsd  %xmm3,%xmm0
mulsd  %xmm2,%xmm3
mulsd  %xmm1,%xmm4
subsd  %xmm3,%xmm4
mulsd  %xmm1,%xmm2
addsd  %xmm0,%xmm2
movsd  %xmm2,(%rdi)
movsd  %xmm4,(%rsi,%rbx,8)
add    $0x1,%rbx
add    %r11,%rdx
add    %r8,%rax
add    $0xfffffffffffffff8,%rdi
cmp    %rbx,%r10
jne    1160 <dstsub+0x60>
movsd  (%rcx),%xmm0
movslq %r9d,%rax
mulsd  (%rsi,%rax,8),%xmm0
movsd  %xmm0,(%rsi,%rax,8)
pop    %rbx
ret

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

LLVM IR (-O2):
define void @dstsub(i32 %0, double* nocapture %1, i32 %2, double* nocapture %3) {
%5 = ashr i32 %0, 1
%6 = icmp sgt i32 %0, 3
br i1 %6, label %7, label %37
7: ; preds = %4
%8 = sdiv i32 %2, %0
%9 = zext i32 %0 to i64
%10 = sext i32 %8 to i64
%11 = sext i32 %2 to i64
%12 = call i32 @llvm.smax.i32(i32 %5, i32 2)
%13 = zext i32 %12 to i64
br label %14
14: ; preds = %7, %14
%15 = phi i64 [ 0, %7 ], [ %18, %14 ]
%16 = phi i64 [ 1, %7 ], [ %35, %14 ]
%17 = sub nsw i64 %9, %16
%18 = add nsw i64 %15, %10
%19 = getelementptr inbounds double, double* %3, i64 %18
%20 = load double, double* %19
%21 = sub nsw i64 %11, %18
%22 = getelementptr inbounds double, double* %3, i64 %21
%23 = load double, double* %22
%24 = fsub double %20, %23
%25 = fadd double %20, %23
%26 = getelementptr inbounds double, double* %1, i64 %17
%27 = load double, double* %26
%28 = getelementptr inbounds double, double* %1, i64 %16
%29 = load double, double* %28
%30 = fneg double %24
%31 = fmul double %29, %30
%32 = tail call double @llvm.fmuladd.f64(double %25, double %27, double %31)
%33 = fmul double %25, %29
%34 = tail call double @llvm.fmuladd.f64(double %24, double %27, double %33)
store double %34, double* %26
store double %32, double* %28
%35 = add nuw nsw i64 %16, 1
%36 = icmp eq i64 %35, %13
br i1 %36, label %37, label %14
37: ; preds = %14, %4
%38 = load double, double* %3
%39 = sext i32 %5 to i64
%40 = getelementptr inbounds double, double* %1, i64 %39
%41 = load double, double* %40
%42 = fmul double %38, %41
store double %42, double* %40
ret void
}