user: 这段汇编代码用C语言表示是什么样的:

```asm
<cftbsub>:
  endbr64
  push   %r14
  push   %r13
  mov    %rdx,%r13
  push   %r12
  mov    %edi,%r12d
  push   %rbp
  push   %rbx
  mov    %rsi,%rbx
  sub    $0x20,%rsp
  cmp    $0x10,%edi
  jg     L236
  cmp    $0x8,%edi
  jle    L136
  movsd  0x10(%rdx),%xmm14
  mov    $0x2,%ebp
L225:
  movslq %ebp,%rdi
  movapd %xmm14,%xmm6
  movapd %xmm14,%xmm15
  xor    %eax,%eax
  shl    $0x3,%rdi
  unpcklpd %xmm6,%xmm6
  lea    (%rbx,%rdi,1),%rdx
  movaps %xmm6,(%rsp)
  movq   D63(%rip),%xmm6
  lea    (%rdx,%rdi,1),%r10
  lea    (%r10,%rdi,1),%r9
  movaps %xmm6,0x10(%rsp)
  lea    (%r9,%rdi,1),%rsi
  lea    (%rsi,%rdi,1),%rcx
  lea    (%rcx,%rdi,1),%r8
  add    %r8,%rdi
  nopl   0x0(%rax)
L281:
  movsd  0x8(%rbx,%rax,8),%xmm0
  movapd 0x10(%rsp),%xmm5
  add    $0x10,%rdx
  add    $0x10,%r10
  movsd  (%rbx,%rax,8),%xmm3
  movsd  -0x8(%rdx),%xmm2
  add    $0x10,%r9
  add    $0x10,%rsi
  movsd  -0x10(%rdx),%xmm1
  xorpd  %xmm0,%xmm5
  add    $0x10,%rcx
  movupd -0x10(%r9),%xmm14
  subsd  %xmm2,%xmm5
  movapd %xmm3,%xmm4
  subsd  %xmm0,%xmm2
  movupd -0x10(%r10),%xmm0
  movupd -0x10(%r9),%xmm7
  addsd  %xmm1,%xmm4
  subsd  %xmm1,%xmm3
  movupd -0x10(%r10),%xmm1
  addpd  %xmm14,%xmm0
  movsd  -0x10(%rsi),%xmm13
  movsd  (%r8),%xmm12
  add    $0x10,%rdi
  subpd  %xmm7,%xmm1
  movapd %xmm2,%xmm7
  movsd  -0x8(%rdi),%xmm10
  add    $0x10,%r8
  movapd %xmm4,%xmm6
  unpcklpd %xmm3,%xmm7
  movapd %xmm0,%xmm9
  unpcklpd %xmm5,%xmm6
  addsd  %xmm4,%xmm9
  movapd %xmm1,%xmm4
  subsd  %xmm1,%xmm2
  unpckhpd %xmm4,%xmm4
  addpd  %xmm1,%xmm7
  movapd %xmm6,%xmm8
  movupd -0x10(%rcx),%xmm1
  subsd  %xmm4,%xmm3
  movupd -0x10(%rsi),%xmm4
  subpd  %xmm0,%xmm8
  addpd  %xmm0,%xmm6
  unpckhpd %xmm0,%xmm0
  subsd  %xmm1,%xmm13
  addpd  %xmm1,%xmm4
  subsd  %xmm0,%xmm5
  movsd  -0x8(%rsi),%xmm1
  movsd  -0x8(%rcx),%xmm0
  shufpd $0x1,%xmm7,%xmm7
  subsd  %xmm0,%xmm1
  movsd  %xmm8,%xmm6
  movupd -0x10(%rdi),%xmm0
  movupd -0x10(%r8),%xmm8
  movapd %xmm13,%xmm11
  addpd  %xmm0,%xmm8
  movapd %xmm4,%xmm0
  subpd  %xmm8,%xmm0
  shufpd $0x1,%xmm0,%xmm0
  movapd %xmm0,%xmm14
  movsd  -0x10(%rdi),%xmm0
  subsd  %xmm0,%xmm12
  movsd  -0x8(%r8),%xmm0
  subsd  %xmm10,%xmm0
  movapd %xmm4,%xmm10
  unpckhpd %xmm4,%xmm4
  addsd  %xmm8,%xmm10
  unpckhpd %xmm8,%xmm8
  addsd  %xmm8,%xmm4
  movapd %xmm1,%xmm8
  subsd  %xmm12,%xmm1
  subsd  %xmm0,%xmm11
  addsd  %xmm12,%xmm8
  addsd  %xmm13,%xmm0
  movapd %xmm11,%xmm12
  subsd  %xmm8,%xmm12
  movapd %xmm0,%xmm13
  addsd  %xmm11,%xmm8
  subsd  %xmm1,%xmm0
  addsd  %xmm1,%xmm13
  movapd %xmm3,%xmm1
  mulsd  %xmm15,%xmm12
  mulsd  %xmm15,%xmm8
  unpcklpd %xmm0,%xmm13
  movapd %xmm7,%xmm0
  mulpd  (%rsp),%xmm13
  addsd  %xmm12,%xmm1
  subsd  %xmm12,%xmm3
  subpd  %xmm13,%xmm0
  addpd  %xmm13,%xmm7
  movsd  %xmm1,-0x10(%rdx)
  movapd %xmm2,%xmm1
  addsd  %xmm8,%xmm2
  subsd  %xmm8,%xmm1
  movsd  %xmm1,-0x8(%rdx)
  movsd  %xmm3,-0x10(%rcx)
  movsd  %xmm2,-0x8(%rcx)
  movups %xmm0,-0x10(%r9)
  movapd %xmm9,%xmm0
  subsd  %xmm10,%xmm9
  addsd  %xmm10,%xmm0
  movups %xmm7,-0x10(%rdi)
  movsd  %xmm0,(%rbx,%rax,8)
  movapd %xmm5,%xmm0
  addsd  %xmm4,%xmm5
  subsd  %xmm4,%xmm0
  movsd  %xmm0,0x8(%rbx,%rax,8)
  movapd %xmm6,%xmm0
  addpd  %xmm14,%xmm6
  add    $0x2,%rax
  subpd  %xmm14,%xmm0
  movsd  %xmm9,-0x10(%rsi)
  movsd  %xmm5,-0x8(%rsi)
  movups %xmm0,-0x10(%r10)
  movups %xmm6,-0x10(%r8)
  cmp    %eax,%ebp
  jg     L281
L88:
  add    $0x20,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
  nopl   0x0(%rax)
L136:
  lea    0x10(%rsi),%rax
  mov    $0x2,%ebp
  je     L100
L48:
  movq   D63(%rip),%xmm7
  add    $0x8,%rbx
  xor    %edx,%edx
  movapd %xmm7,%xmm5
  nopl   0x0(%rax)
L267:
  movsd  (%rax),%xmm4
  movsd  -0x8(%rbx),%xmm1
  add    $0x2,%edx
  add    $0x10,%rax
  movsd  (%rbx),%xmm0
  movsd  -0x8(%rax),%xmm3
  add    $0x10,%rbx
  movapd %xmm1,%xmm2
  addsd  %xmm4,%xmm1
  subsd  %xmm0,%xmm3
  subsd  %xmm4,%xmm2
  xorpd  %xmm5,%xmm0
  movsd  %xmm1,-0x18(%rbx)
  subsd  -0x8(%rax),%xmm0
  unpcklpd %xmm3,%xmm2
  movsd  %xmm0,-0x10(%rbx)
  movups %xmm2,-0x10(%rax)
  cmp    %edx,%ebp
  jg     L267
  jmp    L88
  nopl   0x0(%rax)
L236:
  xor    %eax,%eax
  call   <cft1st@plt>
  cmp    $0x80,%r12d
  jle    L63
  mov    $0x10,%esi
  mov    $0x80,%ebp
  jmp    L222
L173:
  mov    %eax,%ebp
L222:
  mov    %r13,%rcx
  mov    %rbx,%rdx
  mov    %r12d,%edi
  xor    %eax,%eax
  call   <cftmdl@plt>
  lea    0x0(,%rbp,8),%eax
  mov    %ebp,%esi
  cmp    %r12d,%eax
  jl     L173
  lea    0x0(,%rbp,4),%eax
  cmp    %r12d,%eax
  jl     L21
  je     L133
  test   %ebp,%ebp
  jle    L88
L73:
  movslq %ebp,%rax
  lea    0x20(%rbx),%rdx
  lea    0x20(,%rax,8),%rcx
  lea    (%rbx,%rax,8),%rax
  cmp    %rdx,%rax
  jb     L48
  cmp    $0x4,%ebp
  jle    L48
  lea    -0x1(%rbp),%edx
  xor    %edi,%edi
  lea    -0x18(%rbx,%rcx,1),%rcx
  movapd D45(%rip),%xmm4
  shr    %edx
  test   %ebp,%ebp
  setg   %dil
  imul   %edx,%edi
  mov    %rbx,%rdx
  mov    %edi,%esi
  shr    %esi
  sub    $0x1,%esi
  shl    $0x5,%rsi
  lea    0x20(%rax,%rsi,1),%rsi
  nopl   0x0(%rax,%rax,1)
L275:
  movupd (%rdx),%xmm5
  movupd (%rax),%xmm2
  add    $0x20,%rax
  add    $0x20,%rdx
  movupd -0x10(%rax),%xmm1
  movupd -0x10(%rdx),%xmm0
  add    $0x20,%rcx
  movlpd -0x18(%rdx),%xmm0
  movlpd -0x18(%rax),%xmm1
  movhpd -0x10(%rdx),%xmm5
  movhpd -0x10(%rax),%xmm2
  movapd %xmm5,%xmm3
  subpd  %xmm0,%xmm1
  movupd -0x18(%rdx),%xmm0
  subpd  %xmm2,%xmm3
  addpd  %xmm5,%xmm2
  movupd -0x20(%rcx),%xmm5
  movhpd -0x8(%rdx),%xmm0
  movhpd -0x10(%rcx),%xmm5
  xorpd  %xmm4,%xmm0
  subpd  %xmm5,%xmm0
  movapd %xmm2,%xmm5
  unpcklpd %xmm0,%xmm5
  unpckhpd %xmm0,%xmm2
  movapd %xmm3,%xmm0
  unpcklpd %xmm1,%xmm0
  unpckhpd %xmm1,%xmm3
  movups %xmm5,-0x20(%rdx)
  movups %xmm2,-0x10(%rdx)
  movups %xmm0,-0x20(%rax)
  movups %xmm3,-0x10(%rax)
  cmp    %rax,%rsi
  jne    L275
  and    $0xfffffffe,%edi
  lea    (%rdi,%rdi,1),%eax
  lea    0x0(%rbp,%rax,1),%edx
  movslq %eax,%r9
  movslq %edx,%rdx
  lea    0x0(,%r9,8),%rsi
  shl    $0x3,%rdx
  lea    (%rbx,%rsi,1),%r8
  lea    (%rbx,%rdx,1),%rcx
  movsd  (%r8),%xmm0
  lea    0x8(%rbx,%rdx,1),%rdi
  movsd  (%rcx),%xmm3
  lea    0x8(%rbx,%r9,8),%rdx
  movsd  (%rdi),%xmm2
  movapd %xmm0,%xmm1
  subsd  (%rdx),%xmm2
  addsd  %xmm3,%xmm0
  subsd  %xmm3,%xmm1
  movq   D63(%rip),%xmm3
  movsd  %xmm0,(%r8)
  movsd  (%rdx),%xmm0
  unpcklpd %xmm2,%xmm1
  xorpd  %xmm3,%xmm0
  subsd  (%rdi),%xmm0
  movsd  %xmm0,(%rdx)
  lea    0x2(%rax),%edx
  movups %xmm1,(%rcx)
  cmp    %ebp,%edx
  jge    L88
  add    %ebp,%edx
  lea    0x10(%rbx,%rsi,1),%rsi
  add    $0x3,%eax
  movslq %edx,%rdx
  movsd  (%rsi),%xmm4
  cltq
  shl    $0x3,%rdx
  lea    (%rbx,%rax,8),%rax
  lea    (%rbx,%rdx,1),%rcx
  movapd %xmm4,%xmm1
  lea    0x8(%rbx,%rdx,1),%rdx
  movsd  (%rcx),%xmm0
  movsd  (%rdx),%xmm2
  subsd  (%rax),%xmm2
  subsd  %xmm0,%xmm1
  addsd  %xmm4,%xmm0
  movsd  %xmm0,(%rsi)
  movsd  (%rax),%xmm0
  unpcklpd %xmm2,%xmm1
  xorpd  %xmm3,%xmm0
  subsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  movups %xmm1,(%rcx)
  add    $0x20,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
  nopl   (%rax)
L21:
  test   %ebp,%ebp
  jle    L88
  movsd  0x10(%r13),%xmm14
  jmp    L225
  nopl   0x0(%rax,%rax,1)
L133:
  test   %ebp,%ebp
  jle    L88
L186:
  movslq %ebp,%rax
  lea    0x20(%rbx),%r10
  lea    (%rax,%rax,2),%r8
  lea    0x0(,%rax,8),%rdi
  mov    %rax,%r9
  shl    $0x3,%r8
  lea    0x20(,%rax,8),%r14
  shl    $0x4,%r9
  lea    (%rbx,%rdi,1),%rsi
  lea    0x20(%r8),%r12
  lea    0x20(%r9),%r11
  cmp    %rdi,%r12
  lea    (%rsi,%rdi,1),%rcx
  setle  %al
  cmp    %r14,%r8
  lea    (%rcx,%rdi,1),%rdx
  setge  %r13b
  or     %r13d,%eax
  cmp    %r11,%rdi
  setge  %r13b
  cmp    %r14,%r9
  setge  %r14b
  or     %r14d,%r13d
  and    %r13d,%eax
  cmp    $0x2,%ebp
  setg   %r13b
  and    %r13d,%eax
  cmp    %r10,%rsi
  setae  %r13b
  and    %r13d,%eax
  cmp    %r9,%r12
  setle  %r12b
  cmp    %r11,%r8
  setge  %r8b
  or     %r12d,%r8d
  and    %r8d,%eax
  cmp    %r10,%rcx
  setae  %r8b
  test   %r8b,%al
  je     L159
  cmp    %r10,%rdx
  jb     L159
  lea    -0x1(%rbp),%r8d
  mov    $0x1,%eax
  movapd D45(%rip),%xmm4
  shr    %r8d
  add    $0x1,%r8d
  test   %ebp,%ebp
  cmovle %eax,%r8d
  xor    %eax,%eax
  mov    %r8d,%edi
  shr    %edi
  shl    $0x5,%rdi
L43:
  movupd 0x10(%rbx,%rax,1),%xmm0
  movlpd 0x8(%rbx,%rax,1),%xmm0
  movupd (%rsi,%rax,1),%xmm2
  movupd (%rdx,%rax,1),%xmm10
  movupd (%rbx,%rax,1),%xmm7
  movupd 0x10(%rsi,%rax,1),%xmm6
  movapd %xmm0,%xmm8
  movlpd 0x8(%rsi,%rax,1),%xmm6
  movupd (%rcx,%rax,1),%xmm5
  movhpd 0x10(%rsi,%rax,1),%xmm2
  movhpd 0x10(%rdx,%rax,1),%xmm10
  movupd 0x10(%rdx,%rax,1),%xmm3
  xorpd  %xmm4,%xmm8
  movlpd 0x8(%rdx,%rax,1),%xmm3
  movhpd 0x10(%rbx,%rax,1),%xmm7
  movhpd 0x10(%rcx,%rax,1),%xmm5
  subpd  %xmm6,%xmm8
  movapd %xmm2,%xmm1
  subpd  %xmm0,%xmm6
  movapd %xmm10,%xmm9
  movupd 0x10(%rcx,%rax,1),%xmm0
  addpd  %xmm7,%xmm1
  movlpd 0x8(%rcx,%rax,1),%xmm0
  subpd  %xmm2,%xmm7
  addpd  %xmm5,%xmm9
  movapd %xmm3,%xmm2
  subpd  %xmm10,%xmm5
  movapd %xmm8,%xmm10
  addpd  %xmm0,%xmm2
  subpd  %xmm3,%xmm0
  movapd %xmm9,%xmm3
  addpd  %xmm1,%xmm3
  subpd  %xmm9,%xmm1
  subpd  %xmm2,%xmm10
  addpd  %xmm8,%xmm2
  movapd %xmm3,%xmm11
  unpckhpd %xmm10,%xmm3
  unpcklpd %xmm10,%xmm11
  movups %xmm3,0x10(%rbx,%rax,1)
  movapd %xmm1,%xmm3
  unpckhpd %xmm2,%xmm1
  movups %xmm11,(%rbx,%rax,1)
  unpcklpd %xmm2,%xmm3
  movapd %xmm6,%xmm2
  movups %xmm1,0x10(%rcx,%rax,1)
  movapd %xmm7,%xmm1
  subpd  %xmm5,%xmm2
  addpd  %xmm6,%xmm5
  subpd  %xmm0,%xmm1
  addpd  %xmm7,%xmm0
  movups %xmm3,(%rcx,%rax,1)
  movapd %xmm1,%xmm3
  unpckhpd %xmm2,%xmm1
  unpcklpd %xmm2,%xmm3
  movapd %xmm0,%xmm2
  unpckhpd %xmm5,%xmm0
  movups %xmm1,0x10(%rsi,%rax,1)
  unpcklpd %xmm5,%xmm2
  movups %xmm3,(%rsi,%rax,1)
  movups %xmm2,(%rdx,%rax,1)
  movups %xmm0,0x10(%rdx,%rax,1)
  add    $0x20,%rax
  cmp    %rax,%rdi
  jne    L43
  mov    %r8d,%eax
  and    $0xfffffffe,%eax
  lea    (%rax,%rax,1),%ecx
  cmp    %r8d,%eax
  je     L88
  lea    0x0(%rbp,%rcx,1),%edx
  movslq %ecx,%rcx
  lea    0x0(%rbp,%rdx,1),%eax
  movslq %edx,%rdx
  lea    (%rbx,%rcx,8),%rsi
  shl    $0x3,%rdx
  lea    0x8(%rbx,%rcx,8),%rcx
  movsd  (%rsi),%xmm5
  movsd  0x8(%rbx,%rdx,1),%xmm4
  lea    (%rbx,%rdx,1),%rdi
  movslq %eax,%rdx
  add    %ebp,%eax
  cltq
  movsd  (%rcx),%xmm0
  lea    (%rbx,%rdx,8),%r8
  movsd  (%rdi),%xmm2
  shl    $0x3,%rax
  movupd (%r8),%xmm1
  lea    (%rbx,%rax,1),%rdx
  movapd %xmm0,%xmm3
  xorpd  D63(%rip),%xmm3
  movupd (%rdx),%xmm6
  movapd %xmm2,%xmm7
  addsd  %xmm5,%xmm7
  subsd  %xmm4,%xmm3
  addpd  %xmm6,%xmm1
  subsd  %xmm0,%xmm4
  movupd (%r8),%xmm0
  subsd  %xmm2,%xmm5
  subpd  %xmm6,%xmm0
  movapd %xmm7,%xmm8
  movapd %xmm1,%xmm6
  unpcklpd %xmm3,%xmm8
  movapd %xmm4,%xmm2
  addsd  %xmm7,%xmm6
  unpcklpd %xmm5,%xmm2
  movapd %xmm0,%xmm7
  subpd  %xmm0,%xmm2
  addsd  %xmm4,%xmm0
  unpckhpd %xmm7,%xmm7
  movsd  %xmm6,(%rsi)
  movapd %xmm1,%xmm6
  unpckhpd %xmm6,%xmm6
  shufpd $0x1,%xmm2,%xmm2
  subsd  %xmm6,%xmm3
  movsd  %xmm3,(%rcx)
  movapd %xmm8,%xmm3
  subpd  %xmm1,%xmm3
  addpd  %xmm8,%xmm1
  movsd  %xmm3,%xmm1
  movups %xmm1,(%r8)
  movapd %xmm7,%xmm1
  addsd  %xmm5,%xmm1
  movups %xmm2,(%rdi)
  movsd  %xmm1,(%rdx)
  movsd  %xmm0,0x8(%rbx,%rax,1)
  add    $0x20,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
L63:
  cmp    $0x40,%r12d
  jle    L7
  movsd  0x10(%r13),%xmm14
  mov    $0x10,%ebp
  jmp    L225
  nopl   0x0(%rax,%rax,1)
L100:
  lea    0x30(%rsi),%rdx
  mov    $0x20,%r9d
  mov    $0x10,%edi
  mov    $0x2,%ebp
L159:
  movq   D63(%rip),%xmm7
  sub    %r9,%rdx
  xor    %eax,%eax
  lea    (%rdx,%rdi,1),%rcx
  lea    (%rcx,%rdi,1),%rsi
  movapd %xmm7,%xmm8
  cs nopw 0x0(%rax,%rax,1)
L75:
  movupd (%rcx),%xmm5
  movsd  (%rdx),%xmm4
  add    $0x10,%rcx
  add    $0x10,%rdx
  movsd  0x8(%rbx,%rax,8),%xmm2
  movsd  -0x8(%rdx),%xmm0
  add    $0x10,%rsi
  movsd  (%rbx,%rax,8),%xmm1
  movupd -0x10(%rsi),%xmm15
  movapd %xmm4,%xmm7
  movapd %xmm2,%xmm3
  xorpd  %xmm8,%xmm3
  addsd  %xmm1,%xmm7
  subsd  %xmm4,%xmm1
  subsd  %xmm0,%xmm3
  subsd  %xmm2,%xmm0
  movupd -0x10(%rsi),%xmm2
  subpd  %xmm2,%xmm5
  movupd -0x10(%rcx),%xmm2
  movapd %xmm7,%xmm6
  unpcklpd %xmm3,%xmm6
  movapd %xmm0,%xmm4
  addpd  %xmm15,%xmm2
  unpcklpd %xmm1,%xmm4
  addpd  %xmm5,%xmm4
  subsd  %xmm5,%xmm0
  addsd  %xmm2,%xmm7
  shufpd $0x1,%xmm4,%xmm4
  movsd  %xmm7,(%rbx,%rax,8)
  movapd %xmm2,%xmm7
  unpckhpd %xmm7,%xmm7
  subsd  %xmm7,%xmm3
  movapd %xmm5,%xmm7
  unpckhpd %xmm7,%xmm7
  subsd  %xmm7,%xmm1
  movsd  %xmm3,0x8(%rbx,%rax,8)
  movapd %xmm6,%xmm3
  addpd  %xmm2,%xmm6
  add    $0x2,%rax
  subpd  %xmm2,%xmm3
  movsd  %xmm3,%xmm6
  movups %xmm6,-0x10(%rcx)
  movsd  %xmm1,-0x10(%rdx)
  movsd  %xmm0,-0x8(%rdx)
  movups %xmm4,-0x10(%rsi)
  cmp    %eax,%ebp
  jg     L75
  jmp    L88
L7:
  mov    $0x10,%ebp
  jne    L73
  jmp    L186
```

tool_calls: name: disassemble_data
arguments: tag: D63
type: byte[16]
name: disassemble_data
arguments: tag: D45
type: byte[16]

tool: {"D63": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

tool: {"D45": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80]}

assistant: ```c
void cftbsub(int n, double *a, double *w) {
  int j, j1, j2, j3, j4, j5, j6, j7, l;
  double wn4r, x0r, x0i, x1r, x1i, x2r, x2i, x3r, x3i, y0r, y0i, y1r, y1i, y2r, y2i, y3r, y3i, y4r, y4i, y5r, y5i, y6r, y6i, y7r, y7i;
  l = 2;
  if (n > 16) {
    cft1st(n, a, w);
    l = 16;
    while ((l << 3) < n) {
      cftmdl(n, l, a, w);
      l <<= 3;
    }
  }
  if ((l << 2) < n) {
    wn4r = w[2];
    for (j = 0; j < l; j += 2) {
      j1 = j + l;
      j2 = j1 + l;
      j3 = j2 + l;
      j4 = j3 + l;
      j5 = j4 + l;
      j6 = j5 + l;
      j7 = j6 + l;
      x0r = a[j] + a[j1];
      x0i = -a[j + 1] - a[j1 + 1];
      x1r = a[j] - a[j1];
      x1i = -a[j + 1] + a[j1 + 1];
      x2r = a[j2] + a[j3];
      x2i = a[j2 + 1] + a[j3 + 1];
      x3r = a[j2] - a[j3];
      x3i = a[j2 + 1] - a[j3 + 1];
      y0r = x0r + x2r;
      y0i = x0i - x2i;
      y2r = x0r - x2r;
      y2i = x0i + x2i;
      y1r = x1r - x3i;
      y1i = x1i - x3r;
      y3r = x1r + x3i;
      y3i = x1i + x3r;
      x0r = a[j4] + a[j5];
      x0i = a[j4 + 1] + a[j5 + 1];
      x1r = a[j4] - a[j5];
      x1i = a[j4 + 1] - a[j5 + 1];
      x2r = a[j6] + a[j7];
      x2i = a[j6 + 1] + a[j7 + 1];
      x3r = a[j6] - a[j7];
      x3i = a[j6 + 1] - a[j7 + 1];
      y4r = x0r + x2r;
      y4i = x0i + x2i;
      y6r = x0r - x2r;
      y6i = x0i - x2i;
      x0r = x1r - x3i;
      x0i = x1i + x3r;
      x2r = x1r + x3i;
      x2i = x1i - x3r;
      y5r = wn4r * (x0r - x0i);
      y5i = wn4r * (x0r + x0i);
      y7r = wn4r * (x2r - x2i);
      y7i = wn4r * (x2r + x2i);
      a[j1] = y1r + y5r;
      a[j1 + 1] = y1i - y5i;
      a[j5] = y1r - y5r;
      a[j5 + 1] = y1i + y5i;
      a[j3] = y3r - y7i;
      a[j3 + 1] = y3i - y7r;
      a[j7] = y3r + y7i;
      a[j7 + 1] = y3i + y7r;
      a[j] = y0r + y4r;
      a[j + 1] = y0i - y4i;
      a[j4] = y0r - y4r;
      a[j4 + 1] = y0i + y4i;
      a[j2] = y2r - y6i;
      a[j2 + 1] = y2i - y6r;
      a[j6] = y2r + y6i;
      a[j6 + 1] = y2i + y6r;
    }
  } else if ((l << 2) == n) {
    for (j = 0; j < l; j += 2) {
      j1 = j + l;
      j2 = j1 + l;
      j3 = j2 + l;
      x0r = a[j] + a[j1];
      x0i = -a[j + 1] - a[j1 + 1];
      x1r = a[j] - a[j1];
      x1i = -a[j + 1] + a[j1 + 1];
      x2r = a[j2] + a[j3];
      x2i = a[j2 + 1] + a[j3 + 1];
      x3r = a[j2] - a[j3];
      x3i = a[j2 + 1] - a[j3 + 1];
      a[j] = x0r + x2r;
      a[j + 1] = x0i - x2i;
      a[j2] = x0r - x2r;
      a[j2 + 1] = x0i + x2i;
      a[j1] = x1r - x3i;
      a[j1 + 1] = x1i - x3r;
      a[j3] = x1r + x3i;
      a[j3 + 1] = x1i + x3r;
    }
  } else {
    for (j = 0; j < l; j += 2) {
      j1 = j + l;
      x0r = a[j] - a[j1];
      x0i = -a[j + 1] + a[j1 + 1];
      a[j] += a[j1];
      a[j + 1] = -a[j + 1] - a[j1 + 1];
      a[j1] = x0r;
      a[j1 + 1] = x0i;
    }
  }
}
```