user: 请从给定的汇编指令推导出C源代码：

```asm
<radb2>:
  endbr64
  push   %r15
  mov    %edi,%r9d
  mov    %esi,%r11d
  mov    %rdx,%r10
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %rcx,%rbp
  push   %rbx
  test   %esi,%esi
  jle    L52
  cmp    $0x1,%edi
  jne    L78
  movslq %esi,%rax
  lea    -0x1(%rsi),%ecx
  mov    %rax,%rdi
  lea    0x0(,%rax,8),%r9
  shl    $0x4,%rax
  shl    $0x4,%rdi
  lea    -0x8(%r10,%rax,1),%rbx
  lea    0x0(%rbp,%r9,1),%rsi
  lea    (%rdx,%rdi,1),%r8
  add    %rbp,%rdi
  lea    0x8(%rdx),%rdx
  cmp    $0x8,%r9
  setne  %al
  cmp    $0x1,%ecx
  seta   %r9b
  and    %r9d,%eax
  cmp    %rdi,%r10
  setae  %r9b
  cmp    %rsi,%rbx
  setbe  %r12b
  or     %r12d,%r9d
  and    %r9d,%eax
  cmp    %rsi,%r10
  setae  %r9b
  cmp    %rbx,%rbp
  setae  %bl
  or     %ebx,%r9d
  and    %r9d,%eax
  cmp    %rdi,%rdx
  setae  %dil
  cmp    %r8,%rsi
  setae  %r9b
  or     %r9d,%edi
  test   %dil,%al
  je     L140
  cmp    %rdx,%rsi
  setbe  %al
  cmp    %r8,%rbp
  setae  %dil
  or     %dil,%al
  je     L140
  mov    %ecx,%edi
  xor    %eax,%eax
  shr    %edi
  shl    $0x4,%rdi
  nopl   0x0(%rax,%rax,1)
L22:
  movupd (%rdx,%rax,2),%xmm0
  movupd (%r10,%rax,2),%xmm1
  movhpd 0x10(%rdx,%rax,2),%xmm0
  movhpd 0x10(%r10,%rax,2),%xmm1
  addpd  %xmm1,%xmm0
  movups %xmm0,0x0(%rbp,%rax,1)
  movupd (%r10,%rax,2),%xmm0
  movupd (%rdx,%rax,2),%xmm1
  movhpd 0x10(%r10,%rax,2),%xmm0
  movhpd 0x10(%rdx,%rax,2),%xmm1
  subpd  %xmm1,%xmm0
  movups %xmm0,(%rsi,%rax,1)
  add    $0x10,%rax
  cmp    %rdi,%rax
  jne    L22
  mov    %ecx,%eax
  and    $0xfffffffe,%eax
  lea    (%rax,%rax,1),%edx
  movslq %edx,%rcx
  lea    0x1(%rdx),%esi
  movslq %esi,%rsi
  shl    $0x3,%rcx
  lea    (%r10,%rsi,8),%r8
  lea    (%r10,%rcx,1),%r9
  mov    %eax,%esi
  movsd  (%r8),%xmm0
  addsd  (%r9),%xmm0
  lea    0x0(,%rsi,8),%rdi
  movsd  %xmm0,0x0(%rbp,%rsi,8)
  movsd  (%r9),%xmm0
  subsd  (%r8),%xmm0
  lea    (%r11,%rax,1),%esi
  movslq %esi,%rsi
  add    $0x1,%eax
  movsd  %xmm0,0x0(%rbp,%rsi,8)
  cmp    %eax,%r11d
  jle    L112
  add    $0x3,%edx
  lea    0x10(%r10,%rcx,1),%rcx
  add    %r11d,%eax
  movslq %edx,%rdx
  cltq
  lea    (%r10,%rdx,8),%rdx
  movsd  (%rdx),%xmm0
  addsd  (%rcx),%xmm0
  movsd  %xmm0,0x8(%rbp,%rdi,1)
  movsd  (%rcx),%xmm0
  subsd  (%rdx),%xmm0
  movsd  %xmm0,0x0(%rbp,%rax,8)
L112:
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L78:
  lea    (%rdi,%rdi,1),%ecx
  movslq %edi,%rbx
  mov    %esi,%edi
  mov    %rdx,%rax
  imul   %r9d,%edi
  movslq %ecx,%rcx
  shl    $0x3,%rbx
  mov    %rbp,%rdx
  shl    $0x3,%rcx
  xor    %esi,%esi
  movslq %edi,%rdi
  nopl   (%rax)
L50:
  movsd  (%rax),%xmm0
  addsd  -0x8(%rax,%rcx,1),%xmm0
  add    $0x1,%esi
  movsd  %xmm0,(%rdx)
  movsd  (%rax),%xmm0
  subsd  -0x8(%rax,%rcx,1),%xmm0
  add    %rcx,%rax
  movsd  %xmm0,(%rdx,%rdi,8)
  add    %rbx,%rdx
  cmp    %esi,%r11d
  jne    L50
L52:
  cmp    $0x1,%r9d
  jle    L112
  cmp    $0x2,%r9d
  je     L115
  mov    %r9d,%eax
  and    $0x1,%eax
  mov    %eax,-0xc(%rsp)
  test   %r11d,%r11d
  jle    L112
  movslq %r9d,%rax
  lea    (%r9,%r9,1),%r14d
  mov    %r10,%rbx
  mov    %rbp,%rdi
  mov    %rax,-0x18(%rsp)
  lea    0x0(,%rax,8),%r13
  mov    %r11d,%eax
  movslq %r14d,%r14
  imul   %r9d,%eax
  shl    $0x3,%r14
  xor    %r12d,%r12d
  lea    -0x18(%r14),%r15
  cltq
  lea    0x0(%rbp,%rax,8),%rsi
L111:
  lea    (%r15,%rbx,1),%rcx
  mov    %rbx,%rdx
  mov    $0x2,%eax
  nopl   0x0(%rax)
L4:
  movsd  0x8(%rdx),%xmm0
  addsd  (%rcx),%xmm0
  add    $0x10,%rdx
  sub    $0x10,%rcx
  movsd  %xmm0,-0x8(%rdi,%rax,8)
  movsd  (%rdx),%xmm0
  subsd  0x18(%rcx),%xmm0
  movsd  -0x8(%rdx),%xmm1
  subsd  0x10(%rcx),%xmm1
  movsd  %xmm0,(%rdi,%rax,8)
  movsd  (%rdx),%xmm0
  addsd  0x18(%rcx),%xmm0
  movsd  -0x10(%r8,%rax,8),%xmm2
  movsd  -0x8(%r8,%rax,8),%xmm3
  mulsd  %xmm1,%xmm2
  mulsd  %xmm0,%xmm3
  subsd  %xmm3,%xmm2
  movsd  %xmm2,-0x8(%rsi,%rax,8)
  mulsd  -0x10(%r8,%rax,8),%xmm0
  mulsd  -0x8(%r8,%rax,8),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rsi,%rax,8)
  add    $0x2,%rax
  cmp    %eax,%r9d
  jg     L4
  add    $0x1,%r12d
  add    %r14,%rbx
  add    %r13,%rdi
  add    %r13,%rsi
  cmp    %r12d,%r11d
  jne    L111
  mov    -0xc(%rsp),%eax
  test   %eax,%eax
  jne    L112
L40:
  lea    (%r9,%r9,1),%ecx
  mov    -0x18(%rsp),%rdi
  movsd  D2(%rip),%xmm1
  xor    %edx,%edx
  imul   %r11d,%r9d
  movslq %ecx,%rcx
  shl    $0x3,%rdi
  shl    $0x3,%rcx
  lea    -0x8(%rbp,%rdi,1),%rax
  add    %rdi,%r10
  movslq %r9d,%rsi
  nopw   0x0(%rax,%rax,1)
L165:
  movsd  -0x8(%r10),%xmm0
  add    $0x1,%edx
  addsd  %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  movsd  (%r10),%xmm0
  add    %rcx,%r10
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax,%rsi,8)
  add    %rdi,%rax
  cmp    %edx,%r11d
  jg     L165
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L115:
  test   %r11d,%r11d
  jle    L112
  movq   $0x2,-0x18(%rsp)
  jmp    L40
L140:
  mov    %r11d,%ecx
  xor    %eax,%eax
  shl    $0x3,%rcx
  nopw   0x0(%rax,%rax,1)
L158:
  movsd  (%rdx,%rax,2),%xmm0
  addsd  (%r10,%rax,2),%xmm0
  movsd  %xmm0,0x0(%rbp,%rax,1)
  movsd  (%r10,%rax,2),%xmm0
  subsd  (%rdx,%rax,2),%xmm0
  movsd  %xmm0,(%rsi,%rax,1)
  add    $0x8,%rax
  cmp    %rcx,%rax
  jne    L158
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: retrieve_data
arguments: data_label: D2
datatype: byte[8]

tool: {"D2": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0]}

assistant: ```c
void radb2(int ido, int l1, const double cc[], double ch[], const double wa1[]) {
  int i, k, ic;
  double ti2, tr2;
  for (k = 0; k < l1; k++) {
    ch[k * ido] = cc[2 * k * ido] + cc[ido - 1 + (2 * k + 1) * ido];
    ch[(k + l1) * ido] = cc[2 * k * ido] - cc[ido - 1 + (2 * k + 1) * ido];
  }
  if (ido < 2)
    return;
  if (ido != 2) {
    for (k = 0; k < l1; ++k) {
      for (i = 2; i < ido; i += 2) {
        ic = ido - i;
        ch[i - 1 + k * ido] = cc[i - 1 + 2 * k * ido] + cc[ic - 1 + (2 * k + 1) * ido];
        tr2 = cc[i - 1 + 2 * k * ido] - cc[ic - 1 + (2 * k + 1) * ido];
        ch[i + k * ido] = cc[i + 2 * k * ido] - cc[ic + (2 * k + 1) * ido];
        ti2 = cc[i + (2 * k) * ido] + cc[ic + (2 * k + 1) * ido];
        ch[i - 1 + (k + l1) * ido] = wa1[i - 2] * tr2 - wa1[i - 1] * ti2;
        ch[i + (k + l1) * ido] = wa1[i - 2] * ti2 + wa1[i - 1] * tr2;
      }
    }
    if (ido % 2 == 1)
      return;
  }
  for (k = 0; k < l1; k++) {
    ch[ido - 1 + k * ido] = 2 * cc[ido - 1 + 2 * k * ido];
    ch[ido - 1 + (k + l1) * ido] = -2 * cc[(2 * k + 1) * ido];
  }
}
```