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

```asm
<DFT8192>:
  endbr64
  mov    %rdi,%rcx
  lea    0x8000(%rdi),%rdx
  mov    %rdi,%rax
  nopl   0x0(%rax)
L98:
  movss  (%rax),%xmm0
  movss  0x4(%rax),%xmm3
  add    $0x10,%rax
  movss  -0x8(%rax),%xmm1
  movss  -0x4(%rax),%xmm4
  movaps %xmm0,%xmm2
  subss  %xmm3,%xmm0
  addss  %xmm3,%xmm2
  movaps %xmm1,%xmm3
  subss  %xmm4,%xmm1
  addss  %xmm4,%xmm3
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,-0x8(%rax)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm4,-0x10(%rax)
  movss  %xmm0,-0x4(%rax)
  movss  %xmm2,-0xc(%rax)
  cmp    %rax,%rdx
  jne    L98
  movss  D8(%rip),%xmm4
  mov    %rcx,%rax
  nop
L28:
  movss  0x10(%rax),%xmm1
  movss  (%rax),%xmm0
  add    $0x20,%rax
  movss  -0x4(%rax),%xmm3
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  -0x8(%rax),%xmm1
  movss  %xmm0,-0x10(%rax)
  movss  -0x18(%rax),%xmm0
  movss  %xmm2,-0x20(%rax)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  -0x1c(%rax),%xmm1
  movss  %xmm0,-0x8(%rax)
  movss  -0xc(%rax),%xmm0
  movss  %xmm2,-0x18(%rax)
  movaps %xmm0,%xmm2
  subss  %xmm3,%xmm0
  addss  %xmm3,%xmm2
  movaps %xmm1,%xmm3
  mulss  %xmm4,%xmm0
  mulss  %xmm4,%xmm2
  subss  %xmm2,%xmm1
  addss  %xmm2,%xmm3
  movaps %xmm0,%xmm2
  movss  %xmm1,-0xc(%rax)
  movss  -0x14(%rax),%xmm1
  movss  %xmm3,-0x1c(%rax)
  addss  %xmm1,%xmm2
  subss  %xmm0,%xmm1
  movss  %xmm2,-0x14(%rax)
  movss  %xmm1,-0x4(%rax)
  cmp    %rax,%rdx
  jne    L28
  mov    %rcx,%r9
  xor    %r10d,%r10d
  lea    0x2800(%rsi),%r11
  lea    0x4000(%rsi),%r8
  nop
L141:
  movss  0x20(%r9),%xmm1
  mov    %r11,%rdi
  mov    %r9,%rdx
  mov    %r9,%rax
  movss  (%r9),%xmm0
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x30(%r9),%xmm1
  movss  %xmm0,0x20(%r9)
  movss  0x10(%r9),%xmm0
  movss  %xmm2,(%r9)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x30(%r9)
  movss  %xmm2,0x10(%r9)
L108:
  movss  0x24(%rax),%xmm0
  movss  (%rdi),%xmm5
  add    $0x4,%rax
  sub    $0x4,%rdx
  movss  0x40(%rdx),%xmm4
  movss  (%rax),%xmm2
  add    $0x800,%rdi
  movss  -0x2800(%rdi),%xmm6
  movaps %xmm0,%xmm3
  movss  0x20(%rdx),%xmm1
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0x20(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,(%rax)
  movss  %xmm1,0x40(%rdx)
  movss  %xmm2,0x20(%rdx)
  cmp    %rdi,%r8
  jne    L108
  add    $0x10,%r10d
  add    $0x40,%r9
  cmp    $0x2000,%r10d
  jne    L141
  mov    %rcx,%r9
  xor    %r10d,%r10d
  lea    0x2400(%rsi),%r11
  nopl   0x0(%rax)
L122:
  movss  0x40(%r9),%xmm1
  mov    %r11,%rdi
  mov    %r9,%rdx
  mov    %r9,%rax
  movss  (%r9),%xmm0
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x60(%r9),%xmm1
  movss  %xmm0,0x40(%r9)
  movss  0x20(%r9),%xmm0
  movss  %xmm2,(%r9)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x60(%r9)
  movss  %xmm2,0x20(%r9)
  nopl   (%rax)
L196:
  movss  0x44(%rax),%xmm0
  movss  (%rdi),%xmm5
  add    $0x4,%rax
  sub    $0x4,%rdx
  movss  (%rax),%xmm2
  movss  0x80(%rdx),%xmm4
  add    $0x400,%rdi
  movss  -0x2400(%rdi),%xmm6
  movaps %xmm0,%xmm3
  movss  0x40(%rdx),%xmm1
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0x40(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,(%rax)
  movss  %xmm1,0x80(%rdx)
  movss  %xmm2,0x40(%rdx)
  cmp    %rdi,%r8
  jne    L196
  add    $0x20,%r10d
  sub    $0xffffffffffffff80,%r9
  cmp    $0x2000,%r10d
  jne    L122
  lea    0x40(%rcx),%r8
  xor    %r9d,%r9d
  lea    0x200(%rsi),%r10
  nopl   0x0(%rax,%rax,1)
L203:
  movss  0x40(%r8),%xmm1
  mov    %r10,%rdi
  lea    -0x3c(%r8),%rax
  lea    0x3c(%r8),%rdx
  movss  -0x40(%r8),%xmm0
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x80(%r8),%xmm1
  movss  %xmm0,0x40(%r8)
  movss  (%r8),%xmm0
  movss  %xmm2,-0x40(%r8)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x80(%r8)
  movss  %xmm2,(%r8)
  nopl   (%rax)
L46:
  movss  (%rdi),%xmm6
  movss  (%rax),%xmm2
  add    $0x4,%rax
  sub    $0x4,%rdx
  movss  0x7c(%rax),%xmm0
  movss  0x84(%rdx),%xmm4
  add    $0x200,%rdi
  movss  0x1e00(%rdi),%xmm5
  movss  0x4(%rdx),%xmm1
  movaps %xmm0,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm5,%xmm3
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0x7c(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,-0x4(%rax)
  movss  %xmm1,0x84(%rdx)
  movss  %xmm2,0x4(%rdx)
  cmp    %rax,%r8
  jne    L46
  add    $0x40,%r9d
  add    $0x100,%r8
  cmp    $0x2000,%r9d
  jne    L203
  lea    0x80(%rcx),%r8
  xor    %r9d,%r9d
  lea    0x100(%rsi),%r10
  xchg   %ax,%ax
L92:
  movss  0x80(%r8),%xmm1
  mov    %r10,%rdi
  lea    -0x7c(%r8),%rax
  lea    0x7c(%r8),%rdx
  movss  -0x80(%r8),%xmm0
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x100(%r8),%xmm1
  movss  %xmm0,0x80(%r8)
  movss  (%r8),%xmm0
  movss  %xmm2,-0x80(%r8)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x100(%r8)
  movss  %xmm2,(%r8)
  nopl   0x0(%rax,%rax,1)
L207:
  movss  (%rdi),%xmm6
  movss  (%rax),%xmm2
  add    $0x4,%rax
  sub    $0x4,%rdx
  movss  0xfc(%rax),%xmm0
  movss  0x104(%rdx),%xmm4
  add    $0x100,%rdi
  movss  0x1f00(%rdi),%xmm5
  movss  0x4(%rdx),%xmm1
  movaps %xmm0,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm5,%xmm3
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0xfc(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,-0x4(%rax)
  movss  %xmm1,0x104(%rdx)
  movss  %xmm2,0x4(%rdx)
  cmp    %rax,%r8
  jne    L207
  sub    $0xffffff80,%r9d
  add    $0x200,%r8
  cmp    $0x2000,%r9d
  jne    L92
  lea    0x100(%rcx),%r8
  xor    %r9d,%r9d
  lea    0x80(%rsi),%r10
  nopl   0x0(%rax)
L19:
  movss  0x100(%r8),%xmm1
  mov    %r10,%rdi
  movss  -0x100(%r8),%xmm0
  lea    -0xfc(%r8),%rax
  lea    0xfc(%r8),%rdx
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x200(%r8),%xmm1
  movss  %xmm0,0x100(%r8)
  movss  (%r8),%xmm0
  movss  %xmm2,-0x100(%r8)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x200(%r8)
  movss  %xmm2,(%r8)
  nop
L161:
  movss  (%rdi),%xmm6
  movss  (%rax),%xmm2
  add    $0x4,%rax
  sub    $0xffffffffffffff80,%rdi
  movss  0x200(%rdx),%xmm4
  movss  0x1fc(%rax),%xmm0
  sub    $0x4,%rdx
  movss  0x1f80(%rdi),%xmm5
  movss  0x4(%rdx),%xmm1
  movaps %xmm0,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm5,%xmm3
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0x1fc(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,-0x4(%rax)
  movss  %xmm1,0x204(%rdx)
  movss  %xmm2,0x4(%rdx)
  cmp    %rax,%r8
  jne    L161
  add    $0x100,%r9d
  add    $0x400,%r8
  cmp    $0x2000,%r9d
  jne    L19
  lea    0x200(%rcx),%r8
  xor    %r9d,%r9d
  lea    0x40(%rsi),%r10
L40:
  movss  0x200(%r8),%xmm1
  mov    %r10,%rdi
  movss  -0x200(%r8),%xmm0
  lea    -0x1fc(%r8),%rax
  lea    0x1fc(%r8),%rdx
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x400(%r8),%xmm1
  movss  %xmm0,0x200(%r8)
  movss  (%r8),%xmm0
  movss  %xmm2,-0x200(%r8)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x400(%r8)
  movss  %xmm2,(%r8)
  nopl   0x0(%rax,%rax,1)
L48:
  movss  (%rdi),%xmm6
  movss  (%rax),%xmm2
  add    $0x4,%rax
  add    $0x40,%rdi
  movss  0x400(%rdx),%xmm4
  movss  0x3fc(%rax),%xmm0
  sub    $0x4,%rdx
  movss  0x1fc0(%rdi),%xmm5
  movss  0x4(%rdx),%xmm1
  movaps %xmm0,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm5,%xmm3
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0x3fc(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,-0x4(%rax)
  movss  %xmm1,0x404(%rdx)
  movss  %xmm2,0x4(%rdx)
  cmp    %rax,%r8
  jne    L48
  add    $0x200,%r9d
  add    $0x800,%r8
  cmp    $0x2000,%r9d
  jne    L40
  lea    0x400(%rcx),%r8
  xor    %r9d,%r9d
  lea    0x20(%rsi),%r10
L72:
  movss  0x400(%r8),%xmm1
  mov    %r10,%rdi
  movss  -0x400(%r8),%xmm0
  lea    -0x3fc(%r8),%rax
  lea    0x3fc(%r8),%rdx
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x800(%r8),%xmm1
  movss  %xmm0,0x400(%r8)
  movss  (%r8),%xmm0
  movss  %xmm2,-0x400(%r8)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x800(%r8)
  movss  %xmm2,(%r8)
  nopl   0x0(%rax,%rax,1)
L132:
  movss  (%rdi),%xmm6
  movss  (%rax),%xmm2
  add    $0x4,%rax
  add    $0x20,%rdi
  movss  0x800(%rdx),%xmm4
  movss  0x7fc(%rax),%xmm0
  sub    $0x4,%rdx
  movss  0x1fe0(%rdi),%xmm5
  movss  0x4(%rdx),%xmm1
  movaps %xmm0,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm5,%xmm3
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0x7fc(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,-0x4(%rax)
  movss  %xmm1,0x804(%rdx)
  movss  %xmm2,0x4(%rdx)
  cmp    %rax,%r8
  jne    L132
  add    $0x400,%r9d
  add    $0x1000,%r8
  cmp    $0x2000,%r9d
  jne    L72
  lea    0x800(%rcx),%r8
  xor    %r9d,%r9d
  lea    0x10(%rsi),%r10
L123:
  movss  0x800(%r8),%xmm1
  mov    %r10,%rdi
  movss  -0x800(%r8),%xmm0
  lea    -0x7fc(%r8),%rax
  lea    0x7fc(%r8),%rdx
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x1000(%r8),%xmm1
  movss  %xmm0,0x800(%r8)
  movss  (%r8),%xmm0
  movss  %xmm2,-0x800(%r8)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x1000(%r8)
  movss  %xmm2,(%r8)
  nopl   0x0(%rax,%rax,1)
L21:
  movss  (%rdi),%xmm6
  movss  (%rax),%xmm2
  add    $0x4,%rax
  add    $0x10,%rdi
  movss  0x1000(%rdx),%xmm4
  movss  0xffc(%rax),%xmm0
  sub    $0x4,%rdx
  movss  0x1ff0(%rdi),%xmm5
  movss  0x4(%rdx),%xmm1
  movaps %xmm0,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm5,%xmm3
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0xffc(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,-0x4(%rax)
  movss  %xmm1,0x1004(%rdx)
  movss  %xmm2,0x4(%rdx)
  cmp    %rax,%r8
  jne    L21
  add    $0x800,%r9d
  add    $0x2000,%r8
  cmp    $0x2000,%r9d
  jne    L123
  lea    0x1000(%rcx),%r8
  xor    %r9d,%r9d
  lea    0x8(%rsi),%r10
L5:
  movss  0x1000(%r8),%xmm1
  mov    %r10,%rdi
  movss  -0x1000(%r8),%xmm0
  lea    -0xffc(%r8),%rax
  lea    0xffc(%r8),%rdx
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x2000(%r8),%xmm1
  movss  %xmm0,0x1000(%r8)
  movss  (%r8),%xmm0
  movss  %xmm2,-0x1000(%r8)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x2000(%r8)
  movss  %xmm2,(%r8)
  nopl   0x0(%rax,%rax,1)
L152:
  movss  (%rdi),%xmm6
  movss  (%rax),%xmm2
  add    $0x4,%rax
  add    $0x8,%rdi
  movss  0x2000(%rdx),%xmm4
  movss  0x1ffc(%rax),%xmm0
  sub    $0x4,%rdx
  movss  0x1ff8(%rdi),%xmm5
  movss  0x4(%rdx),%xmm1
  movaps %xmm0,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm5,%xmm3
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,0x1ffc(%rax)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,-0x4(%rax)
  movss  %xmm1,0x2004(%rdx)
  movss  %xmm2,0x4(%rdx)
  cmp    %rax,%r8
  jne    L152
  add    $0x1000,%r9d
  add    $0x4000,%r8
  cmp    $0x2000,%r9d
  jne    L5
  movss  0x4000(%rcx),%xmm1
  movss  (%rcx),%xmm0
  lea    0x3ffc(%rcx),%rax
  lea    0x4004(%rcx),%rdx
  add    $0x2004,%rsi
  add    $0x2000,%rcx
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  0x4000(%rcx),%xmm1
  movss  %xmm0,0x2000(%rcx)
  movss  (%rcx),%xmm0
  movss  %xmm2,-0x2000(%rcx)
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm0
  addss  %xmm1,%xmm2
  movss  %xmm0,0x4000(%rcx)
  movss  %xmm2,(%rcx)
  nopl   0x0(%rax)
L23:
  movss  (%rdx),%xmm0
  movss  (%rsi),%xmm5
  sub    $0x4,%rax
  add    $0x4,%rsi
  movss  0x4004(%rax),%xmm4
  movss  0x4(%rax),%xmm1
  add    $0x4,%rdx
  movss  -0x2004(%rsi),%xmm6
  movaps %xmm0,%xmm3
  movss  -0x4004(%rdx),%xmm2
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  mulss  %xmm5,%xmm4
  mulss  %xmm6,%xmm0
  addss  %xmm7,%xmm3
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  subss  %xmm3,%xmm2
  addss  %xmm3,%xmm4
  movss  %xmm2,-0x4(%rdx)
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm1
  addss  %xmm0,%xmm2
  movss  %xmm4,-0x4004(%rdx)
  movss  %xmm1,0x4004(%rax)
  movss  %xmm2,0x4(%rax)
  cmp    %rax,%rcx
  jne    L23
  ret
```

tool_calls: name: unpack_data
arguments: data_tag: D8
datatype: byte[4]

tool: {"D8": [0xf3,0x04,0x35,0x3f]}

assistant: ```c
void DFT8192(float *A, const float *sinTab) {
  int i, j, theta;
  float alpha, beta, beta1, beta2, y0, y1, y2, y3;
  for (i = 0; i < 8192; i += 4) {
    alpha = A[i];
    beta = A[i + 1];
    beta1 = A[i + 2];
    beta2 = A[i + 3];
    y0 = alpha + beta;
    y1 = alpha - beta;
    y2 = beta1 + beta2;
    y3 = beta1 - beta2;
    A[i] = y0 + y2;
    A[i + 2] = y0 - y2;
    A[i + 1] = y1 + y3;
    A[i + 3] = y1 - y3;
  }
  for (i = 0; i < 8192; i += 8) {
    alpha = A[i];
    beta = A[i + 4];
    A[i] = alpha + beta;
    A[i + 4] = alpha - beta;
    alpha = A[i + 2];
    beta = A[i + 6];
    A[i + 2] = alpha + beta;
    A[i + 6] = alpha - beta;
    alpha = A[i + 1];
    beta1 = 0.70710678118654752440084436210485f * (A[i + 5] + A[i + 7]);
    beta2 = 0.70710678118654752440084436210485f * (A[i + 5] - A[i + 7]);
    A[i + 1] = alpha + beta1;
    A[i + 5] = alpha - beta1;
    alpha = A[i + 3];
    A[i + 3] = alpha + beta2;
    A[i + 7] = alpha - beta2;
  }
  for (i = 0; i < 8192; i += 16) {
    theta = 512;
    alpha = A[i];
    beta = A[i + 8];
    A[i] = alpha + beta;
    A[i + 8] = alpha - beta;
    alpha = A[i + 4];
    beta = A[i + 12];
    A[i + 4] = alpha + beta;
    A[i + 12] = alpha - beta;
    for (j = 1; j < 4; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 8];
      beta1 = A[i + j + 8] * y1 + A[i - j + 16] * y0;
      beta2 = A[i + j + 8] * y0 - A[i - j + 16] * y1;
      theta += 512;
      A[i + j] = alpha + beta1;
      A[i + j + 8] = alpha - beta1;
      A[i - j + 8] = beta + beta2;
      A[i - j + 16] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 32) {
    theta = 256;
    alpha = A[i];
    beta = A[i + 16];
    A[i] = alpha + beta;
    A[i + 16] = alpha - beta;
    alpha = A[i + 8];
    beta = A[i + 24];
    A[i + 8] = alpha + beta;
    A[i + 24] = alpha - beta;
    for (j = 1; j < 8; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 16];
      beta1 = A[i + j + 16] * y1 + A[i - j + 32] * y0;
      beta2 = A[i + j + 16] * y0 - A[i - j + 32] * y1;
      theta += 256;
      A[i + j] = alpha + beta1;
      A[i + j + 16] = alpha - beta1;
      A[i - j + 16] = beta + beta2;
      A[i - j + 32] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 64) {
    theta = 128;
    alpha = A[i];
    beta = A[i + 32];
    A[i] = alpha + beta;
    A[i + 32] = alpha - beta;
    alpha = A[i + 16];
    beta = A[i + 48];
    A[i + 16] = alpha + beta;
    A[i + 48] = alpha - beta;
    for (j = 1; j < 16; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 32];
      beta1 = A[i + j + 32] * y1 + A[i - j + 64] * y0;
      beta2 = A[i + j + 32] * y0 - A[i - j + 64] * y1;
      theta += 128;
      A[i + j] = alpha + beta1;
      A[i + j + 32] = alpha - beta1;
      A[i - j + 32] = beta + beta2;
      A[i - j + 64] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 128) {
    theta = 64;
    alpha = A[i];
    beta = A[i + 64];
    A[i] = alpha + beta;
    A[i + 64] = alpha - beta;
    alpha = A[i + 32];
    beta = A[i + 96];
    A[i + 32] = alpha + beta;
    A[i + 96] = alpha - beta;
    for (j = 1; j < 32; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 64];
      beta1 = A[i + j + 64] * y1 + A[i - j + 128] * y0;
      beta2 = A[i + j + 64] * y0 - A[i - j + 128] * y1;
      theta += 64;
      A[i + j] = alpha + beta1;
      A[i + j + 64] = alpha - beta1;
      A[i - j + 64] = beta + beta2;
      A[i - j + 128] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 256) {
    theta = 32;
    alpha = A[i];
    beta = A[i + 128];
    A[i] = alpha + beta;
    A[i + 128] = alpha - beta;
    alpha = A[i + 64];
    beta = A[i + 192];
    A[i + 64] = alpha + beta;
    A[i + 192] = alpha - beta;
    for (j = 1; j < 64; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 128];
      beta1 = A[i + j + 128] * y1 + A[i - j + 256] * y0;
      beta2 = A[i + j + 128] * y0 - A[i - j + 256] * y1;
      theta += 32;
      A[i + j] = alpha + beta1;
      A[i + j + 128] = alpha - beta1;
      A[i - j + 128] = beta + beta2;
      A[i - j + 256] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 512) {
    theta = 16;
    alpha = A[i];
    beta = A[i + 256];
    A[i] = alpha + beta;
    A[i + 256] = alpha - beta;
    alpha = A[i + 128];
    beta = A[i + 384];
    A[i + 128] = alpha + beta;
    A[i + 384] = alpha - beta;
    for (j = 1; j < 128; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 256];
      beta1 = A[i + j + 256] * y1 + A[i - j + 512] * y0;
      beta2 = A[i + j + 256] * y0 - A[i - j + 512] * y1;
      theta += 16;
      A[i + j] = alpha + beta1;
      A[i + j + 256] = alpha - beta1;
      A[i - j + 256] = beta + beta2;
      A[i - j + 512] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 1024) {
    theta = 8;
    alpha = A[i];
    beta = A[i + 512];
    A[i] = alpha + beta;
    A[i + 512] = alpha - beta;
    alpha = A[i + 256];
    beta = A[i + 768];
    A[i + 256] = alpha + beta;
    A[i + 768] = alpha - beta;
    for (j = 1; j < 256; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 512];
      beta1 = A[i + j + 512] * y1 + A[i - j + 1024] * y0;
      beta2 = A[i + j + 512] * y0 - A[i - j + 1024] * y1;
      theta += 8;
      A[i + j] = alpha + beta1;
      A[i + j + 512] = alpha - beta1;
      A[i - j + 512] = beta + beta2;
      A[i - j + 1024] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 2048) {
    theta = 4;
    alpha = A[i];
    beta = A[i + 1024];
    A[i] = alpha + beta;
    A[i + 1024] = alpha - beta;
    alpha = A[i + 512];
    beta = A[i + 1536];
    A[i + 512] = alpha + beta;
    A[i + 1536] = alpha - beta;
    for (j = 1; j < 512; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 1024];
      beta1 = A[i + j + 1024] * y1 + A[i - j + 2048] * y0;
      beta2 = A[i + j + 1024] * y0 - A[i - j + 2048] * y1;
      theta += 4;
      A[i + j] = alpha + beta1;
      A[i + j + 1024] = alpha - beta1;
      A[i - j + 1024] = beta + beta2;
      A[i - j + 2048] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 4096) {
    theta = 2;
    alpha = A[i];
    beta = A[i + 2048];
    A[i] = alpha + beta;
    A[i + 2048] = alpha - beta;
    alpha = A[i + 1024];
    beta = A[i + 3072];
    A[i + 1024] = alpha + beta;
    A[i + 3072] = alpha - beta;
    for (j = 1; j < 1024; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 2048];
      beta1 = A[i + j + 2048] * y1 + A[i - j + 4096] * y0;
      beta2 = A[i + j + 2048] * y0 - A[i - j + 4096] * y1;
      theta += 2;
      A[i + j] = alpha + beta1;
      A[i + j + 2048] = alpha - beta1;
      A[i - j + 2048] = beta + beta2;
      A[i - j + 4096] = beta - beta2;
    }
  }
  theta = 1;
  alpha = A[0];
  beta = A[4096];
  A[0] = alpha + beta;
  A[4096] = alpha - beta;
  alpha = A[2048];
  beta = A[6144];
  A[2048] = alpha + beta;
  A[6144] = alpha - beta;
  for (j = 1; j < 2048; j++) {
    y0 = sinTab[theta];
    y1 = sinTab[theta + 2048];
    alpha = A[j];
    beta = A[-j + 4096];
    beta1 = A[j + 4096] * y1 + A[-j + 8192] * y0;
    beta2 = A[j + 4096] * y0 - A[-j + 8192] * y1;
    theta += 1;
    A[j] = alpha + beta1;
    A[j + 4096] = alpha - beta1;
    A[-j + 4096] = beta + beta2;
    A[-j + 8192] = beta - beta2;
  }
}
```