user: 下面的汇编指令对应的C源代码是什么：

```asm
<radb3>:
  endbr64
  test   %rsi,%rsi
  je     L45
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    %rdi,%rbx
  mov    %rdx,%r11
  mov    %rcx,%r13
  lea    (%rdi,%rdi,2),%rax
  shl    $0x3,%rax
  mov    %rax,-0x10(%rsp)
  mov    %rdi,%r15
  shl    $0x4,%r15
  lea    (%rdx,%r15,1),%rdx
  lea    0x0(,%rdi,8),%r12
  mov    %rcx,%r9
  neg    %rdi
  shl    $0x4,%rdi
  mov    %rsi,%r10
  imul   %rbx,%r10
  lea    (%r10,%r10,1),%rbp
  mov    %rcx,%rax
  mov    $0x0,%ecx
  movsd  D7(%rip),%xmm4
  movsd  D27(%rip),%xmm3
L19:
  movsd  -0x8(%rdx),%xmm1
  addsd  %xmm1,%xmm1
  movsd  (%rdx,%rdi,1),%xmm2
  movapd %xmm1,%xmm0
  mulsd  %xmm4,%xmm0
  addsd  %xmm2,%xmm0
  addsd  %xmm2,%xmm1
  movsd  %xmm1,(%rax)
  movapd %xmm3,%xmm1
  mulsd  (%rdx),%xmm1
  movapd %xmm0,%xmm2
  addsd  %xmm1,%xmm2
  movsd  %xmm2,(%rax,%rbp,8)
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax,%r10,8)
  mov    %rcx,%r14
  add    $0x1,%rcx
  add    -0x10(%rsp),%rdx
  add    %r12,%rax
  cmp    %rcx,%rsi
  jne    L19
  cmp    $0x1,%rbx
  je     L24
  lea    -0x18(%r11,%r15,1),%rbp
  imul   %r12,%rcx
  lea    0x0(%r13,%rcx,1),%r11
  lea    0x0(%r13,%rcx,2),%r10
  lea    (%r8,%r12,1),%r15
  mov    $0x0,%r13d
  lea    0x28(%rdi),%rax
  mov    %rax,-0x8(%rsp)
  movsd  D7(%rip),%xmm6
  movsd  D12(%rip),%xmm5
  jmp    L9
L69:
  lea    0x20(%rbp),%rsi
  mov    -0x8(%rsp),%rax
  lea    (%rax,%rbp,1),%rdi
  mov    %r15,%rcx
  mov    %rbp,%rdx
  mov    $0x2,%eax
L56:
  movsd  (%rsi),%xmm4
  addsd  (%rdx),%xmm4
  movsd  0x8(%rsi),%xmm2
  subsd  0x8(%rdx),%xmm2
  movsd  -0x8(%rdi),%xmm3
  movapd %xmm4,%xmm0
  mulsd  %xmm6,%xmm0
  addsd  %xmm3,%xmm0
  movapd %xmm2,%xmm1
  mulsd  %xmm6,%xmm1
  addsd  (%rdi),%xmm1
  addsd  %xmm4,%xmm3
  movsd  %xmm3,-0x8(%r9,%rax,8)
  addsd  (%rdi),%xmm2
  movsd  %xmm2,(%r9,%rax,8)
  movsd  (%rsi),%xmm3
  subsd  (%rdx),%xmm3
  mulsd  %xmm5,%xmm3
  movsd  0x8(%rsi),%xmm4
  addsd  0x8(%rdx),%xmm4
  mulsd  %xmm5,%xmm4
  movapd %xmm0,%xmm2
  addsd  %xmm4,%xmm2
  subsd  %xmm4,%xmm0
  movapd %xmm1,%xmm4
  addsd  %xmm3,%xmm4
  subsd  %xmm3,%xmm1
  movapd %xmm4,%xmm3
  mulsd  -0x10(%r8,%rax,8),%xmm3
  movapd %xmm0,%xmm7
  mulsd  -0x8(%r8,%rax,8),%xmm7
  addsd  %xmm7,%xmm3
  movsd  %xmm3,(%r11,%rax,8)
  mulsd  -0x10(%r8,%rax,8),%xmm0
  mulsd  -0x8(%r8,%rax,8),%xmm4
  subsd  %xmm4,%xmm0
  movsd  %xmm0,-0x8(%r11,%rax,8)
  movapd %xmm1,%xmm0
  mulsd  (%rcx),%xmm0
  movapd %xmm2,%xmm3
  mulsd  0x8(%rcx),%xmm3
  addsd  %xmm3,%xmm0
  movsd  %xmm0,(%r10,%rax,8)
  mulsd  (%rcx),%xmm2
  mulsd  0x8(%rcx),%xmm1
  subsd  %xmm1,%xmm2
  movsd  %xmm2,-0x8(%r10,%rax,8)
  add    $0x2,%rax
  add    $0x10,%rsi
  sub    $0x10,%rdx
  add    $0x10,%rcx
  add    $0x10,%rdi
  cmp    %rax,%rbx
  ja     L56
L71:
  lea    0x1(%r13),%rax
  add    -0x10(%rsp),%rbp
  add    %r12,%r9
  add    %r12,%r11
  add    %r12,%r10
  cmp    %r13,%r14
  je     L24
  mov    %rax,%r13
L9:
  cmp    $0x2,%rbx
  ja     L69
  jmp    L71
L24:
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L45:
  ret
```

tool_calls: name: unpack_data
arguments: data_tag: D7
data_type: byte[8]
name: unpack_data
arguments: data_tag: D27
data_type: byte[8]
name: unpack_data
arguments: data_tag: D12
data_type: f64

tool: {"D7": [0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0xbf]}

tool: {"D27": [0xaa,0x4c,0x58,0xe8,0x7a,0xb6,0xfb,0x3f]}

tool: D12: 0.8660254037844386

assistant: ```c
void radb3(size_t ido, size_t l1, const double *cc, double *ch, const double *wa) {
  const size_t cdim = 3;
  static const double taur = -0.5, taui = 0.86602540378443864676;
  size_t i, k, ic;
  double ci2, ci3, di2, di3, cr2, cr3, dr2, dr3, ti2, tr2;
  for (k = 0; k < l1; k++) {
    tr2 = 2 * cc[(ido - 1) + ido * ((1) + cdim * (k))];
    cr2 = cc[(0) + ido * ((0) + cdim * (k))] + taur * tr2;
    ch[(0) + ido * ((k) + l1 * (0))] = cc[(0) + ido * ((0) + cdim * (k))] + tr2;
    ci3 = 2 * taui * cc[(0) + ido * ((2) + cdim * (k))];
    {
      ch[(0) + ido * ((k) + l1 * (2))] = cr2 + ci3;
      ch[(0) + ido * ((k) + l1 * (1))] = cr2 - ci3;
    };
  }
  if (ido == 1)
    return;
  for (k = 0; k < l1; k++)
    for (i = 2; i < ido; i += 2) {
      ic = ido - i;
      tr2 = cc[(i - 1) + ido * ((2) + cdim * (k))] + cc[(ic - 1) + ido * ((1) + cdim * (k))];
      ti2 = cc[(i) + ido * ((2) + cdim * (k))] - cc[(ic) + ido * ((1) + cdim * (k))];
      cr2 = cc[(i - 1) + ido * ((0) + cdim * (k))] + taur * tr2;
      ci2 = cc[(i) + ido * ((0) + cdim * (k))] + taur * ti2;
      ch[(i - 1) + ido * ((k) + l1 * (0))] = cc[(i - 1) + ido * ((0) + cdim * (k))] + tr2;
      ch[(i) + ido * ((k) + l1 * (0))] = cc[(i) + ido * ((0) + cdim * (k))] + ti2;
      cr3 = taui * (cc[(i - 1) + ido * ((2) + cdim * (k))] - cc[(ic - 1) + ido * ((1) + cdim * (k))]);
      ci3 = taui * (cc[(i) + ido * ((2) + cdim * (k))] + cc[(ic) + ido * ((1) + cdim * (k))]);
      {
        dr3 = cr2 + ci3;
        dr2 = cr2 - ci3;
      }
      {
        di2 = ci2 + cr3;
        di3 = ci2 - cr3;
      }
      {
        ch[(i) + ido * ((k) + l1 * (1))] = wa[(i - 2) + (0) * ido] * di2 + wa[(i - 1) + (0) * ido] * dr2;
        ch[(i - 1) + ido * ((k) + l1 * (1))] = wa[(i - 2) + (0) * ido] * dr2 - wa[(i - 1) + (0) * ido] * di2;
      }
      {
        ch[(i) + ido * ((k) + l1 * (2))] = wa[(i - 2) + (1) * ido] * di3 + wa[(i - 1) + (1) * ido] * dr3;
        ch[(i - 1) + ido * ((k) + l1 * (2))] = wa[(i - 2) + (1) * ido] * dr3 - wa[(i - 1) + (1) * ido] * di3;
      }
    }
}
```