user: 请将以下的汇编代码转换成C语言代码:

```asm
<radb4>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x30,%rsp
  mov    %edi,-0x84(%rbp)
  mov    %esi,-0x88(%rbp)
  mov    %rdx,-0x90(%rbp)
  mov    %rcx,-0x98(%rbp)
  mov    %r8,-0xa0(%rbp)
  mov    %r9,-0xa8(%rbp)
  movl   $0x0,-0x78(%rbp)
  jmp    L91
L73:
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  shl    $0x2,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x3,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  shl    $0x2,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x3,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x1,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm0,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x2,%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm0,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x48(%rbp),%xmm0
  addsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x78(%rbp),%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x58(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x88(%rbp),%eax
  lea    (%rax,%rax,1),%edx
  mov    -0x78(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x48(%rbp),%xmm0
  subsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x88(%rbp),%edx
  mov    %edx,%eax
  add    %eax,%eax
  add    %eax,%edx
  mov    -0x78(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x50(%rbp),%xmm0
  addsd  -0x58(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x78(%rbp)
L91:
  mov    -0x78(%rbp),%eax
  cmp    -0x88(%rbp),%eax
  jl     L73
  cmpl   $0x1,-0x84(%rbp)
  jle    L39
  cmpl   $0x2,-0x84(%rbp)
  je     L14
  movl   $0x0,-0x78(%rbp)
  jmp    L67
L16:
  movl   $0x2,-0x7c(%rbp)
  jmp    L58
L64:
  mov    -0x84(%rbp),%eax
  sub    -0x7c(%rbp),%eax
  mov    %eax,-0x74(%rbp)
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  lea    0x0(,%rax,4),%edx
  mov    -0x7c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x3,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x74(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x70(%rbp)
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  lea    0x0(,%rax,4),%edx
  mov    -0x7c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x3,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x74(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x68(%rbp)
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x2,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x7c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x1,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x74(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x2,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x7c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x1,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x74(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  mov    -0x7c(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  shl    $0x2,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x74(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x3,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  mov    -0x7c(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  shl    $0x2,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x74(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x3,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    -0x7c(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x2,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x74(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x1,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  mov    -0x7c(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x2,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x74(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x1,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0x7c(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x48(%rbp),%xmm0
  addsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x48(%rbp),%xmm0
  subsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x7c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x68(%rbp),%xmm0
  addsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x68(%rbp),%xmm0
  subsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x58(%rbp),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x50(%rbp),%xmm0
  addsd  -0x58(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x70(%rbp),%xmm0
  addsd  -0x40(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x70(%rbp),%xmm0
  subsd  -0x40(%rbp),%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x10(%rax),%rdx
  mov    -0xa0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x20(%rbp),%xmm0
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xa0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  -0x10(%rbp),%xmm1
  mov    -0x7c(%rbp),%eax
  lea    -0x1(%rax),%ecx
  mov    -0x78(%rbp),%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  add    %ecx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x10(%rax),%rdx
  mov    -0xa0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x10(%rbp),%xmm1
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xa0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x20(%rbp),%xmm0
  mov    -0x78(%rbp),%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x7c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x10(%rax),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x30(%rbp),%xmm0
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  -0x28(%rbp),%xmm1
  mov    -0x7c(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x88(%rbp),%eax
  lea    (%rax,%rax,1),%ecx
  mov    -0x78(%rbp),%eax
  add    %ecx,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x10(%rax),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x28(%rbp),%xmm1
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x30(%rbp),%xmm0
  mov    -0x88(%rbp),%eax
  lea    (%rax,%rax,1),%edx
  mov    -0x78(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x7c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x10(%rax),%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x18(%rbp),%xmm0
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  -0x8(%rbp),%xmm1
  mov    -0x7c(%rbp),%eax
  lea    -0x1(%rax),%ecx
  mov    -0x88(%rbp),%edx
  mov    %edx,%eax
  add    %eax,%eax
  add    %eax,%edx
  mov    -0x78(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  add    %ecx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x10(%rax),%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x8(%rbp),%xmm1
  mov    -0x7c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x18(%rbp),%xmm0
  mov    -0x88(%rbp),%edx
  mov    %edx,%eax
  add    %eax,%eax
  add    %eax,%edx
  mov    -0x78(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x7c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x2,-0x7c(%rbp)
L58:
  mov    -0x7c(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L64
  addl   $0x1,-0x78(%rbp)
L67:
  mov    -0x78(%rbp),%eax
  cmp    -0x88(%rbp),%eax
  jl     L16
  mov    -0x84(%rbp),%eax
  cltd
  shr    $0x1f,%edx
  add    %edx,%eax
  and    $0x1,%eax
  sub    %edx,%eax
  cmp    $0x1,%eax
  je     L99
L14:
  movl   $0x0,-0x78(%rbp)
  jmp    L107
L8:
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x1,%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x3,%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x70(%rbp)
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x3,%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x1,%eax
  imul   -0x84(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x68(%rbp)
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  shl    $0x2,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x2,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  shl    $0x2,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  shl    $0x2,%eax
  add    $0x2,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x78(%rbp),%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x48(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x50(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x70(%rbp),%xmm1
  movsd  D2(%rip),%xmm0
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%ecx
  mov    -0x78(%rbp),%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  add    %ecx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x88(%rbp),%eax
  lea    (%rax,%rax,1),%ecx
  mov    -0x78(%rbp),%eax
  add    %ecx,%eax
  imul   -0x84(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x68(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  movsd  D2(%rip),%xmm0
  movq   D27(%rip),%xmm1
  xorpd  %xmm0,%xmm1
  movsd  -0x50(%rbp),%xmm0
  addsd  -0x70(%rbp),%xmm0
  mov    -0x84(%rbp),%eax
  lea    -0x1(%rax),%ecx
  mov    -0x88(%rbp),%edx
  mov    %edx,%eax
  add    %eax,%eax
  add    %eax,%edx
  mov    -0x78(%rbp),%eax
  add    %edx,%eax
  imul   -0x84(%rbp),%eax
  add    %ecx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x78(%rbp)
L107:
  mov    -0x78(%rbp),%eax
  cmp    -0x88(%rbp),%eax
  jl     L8
  jmp    L78
L39:
  nop
  jmp    L78
L99:
  nop
L78:
  leave
  ret
```

tool_calls: name: retrieve_data
arguments: label: D2
datatype: f64
name: retrieve_data
arguments: label: D27
datatype: byte[8]

tool: D2: 1.414213562373095

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

assistant: ```c
void radb4(int ido, int l1, const double cc[], double ch[], const double wa1[], const double wa2[], const double wa3[]) {
  static const double sqrt2 = 1.414213562373095;
  int i, k, ic;
  double ci2, ci3, ci4, cr2, cr3, cr4, ti1, ti2, ti3, ti4, tr1, tr2, tr3, tr4;
  for (k = 0; k < l1; k++) {
    tr1 = cc[4 * k * ido] - cc[ido - 1 + (4 * k + 3) * ido];
    tr2 = cc[4 * k * ido] + cc[ido - 1 + (4 * k + 3) * ido];
    tr3 = cc[ido - 1 + (4 * k + 1) * ido] + cc[ido - 1 + (4 * k + 1) * ido];
    tr4 = cc[(4 * k + 2) * ido] + cc[(4 * k + 2) * ido];
    ch[k * ido] = tr2 + tr3;
    ch[(k + l1) * ido] = tr1 - tr4;
    ch[(k + 2 * l1) * ido] = tr2 - tr3;
    ch[(k + 3 * l1) * ido] = tr1 + tr4;
  }
  if (ido < 2)
    return;
  if (ido != 2) {
    for (k = 0; k < l1; ++k) {
      for (i = 2; i < ido; i += 2) {
        ic = ido - i;
        ti1 = cc[i + 4 * k * ido] + cc[ic + (4 * k + 3) * ido];
        ti2 = cc[i + 4 * k * ido] - cc[ic + (4 * k + 3) * ido];
        ti3 = cc[i + (4 * k + 2) * ido] - cc[ic + (4 * k + 1) * ido];
        tr4 = cc[i + (4 * k + 2) * ido] + cc[ic + (4 * k + 1) * ido];
        tr1 = cc[i - 1 + 4 * k * ido] - cc[ic - 1 + (4 * k + 3) * ido];
        tr2 = cc[i - 1 + 4 * k * ido] + cc[ic - 1 + (4 * k + 3) * ido];
        ti4 = cc[i - 1 + (4 * k + 2) * ido] - cc[ic - 1 + (4 * k + 1) * ido];
        tr3 = cc[i - 1 + (4 * k + 2) * ido] + cc[ic - 1 + (4 * k + 1) * ido];
        ch[i - 1 + k * ido] = tr2 + tr3;
        cr3 = tr2 - tr3;
        ch[i + k * ido] = ti2 + ti3;
        ci3 = ti2 - ti3;
        cr2 = tr1 - tr4;
        cr4 = tr1 + tr4;
        ci2 = ti1 + ti4;
        ci4 = ti1 - ti4;
        ch[i - 1 + (k + l1) * ido] = wa1[i - 2] * cr2 - wa1[i - 1] * ci2;
        ch[i + (k + l1) * ido] = wa1[i - 2] * ci2 + wa1[i - 1] * cr2;
        ch[i - 1 + (k + 2 * l1) * ido] = wa2[i - 2] * cr3 - wa2[i - 1] * ci3;
        ch[i + (k + 2 * l1) * ido] = wa2[i - 2] * ci3 + wa2[i - 1] * cr3;
        ch[i - 1 + (k + 3 * l1) * ido] = wa3[i - 2] * cr4 - wa3[i - 1] * ci4;
        ch[i + (k + 3 * l1) * ido] = wa3[i - 2] * ci4 + wa3[i - 1] * cr4;
      }
    }
    if (ido % 2 == 1)
      return;
  }
  for (k = 0; k < l1; k++) {
    ti1 = cc[(4 * k + 1) * ido] + cc[(4 * k + 3) * ido];
    ti2 = cc[(4 * k + 3) * ido] - cc[(4 * k + 1) * ido];
    tr1 = cc[ido - 1 + 4 * k * ido] - cc[ido - 1 + (4 * k + 2) * ido];
    tr2 = cc[ido - 1 + 4 * k * ido] + cc[ido - 1 + (4 * k + 2) * ido];
    ch[ido - 1 + k * ido] = tr2 + tr2;
    ch[ido - 1 + (k + l1) * ido] = sqrt2 * (tr1 - ti1);
    ch[ido - 1 + (k + 2 * l1) * ido] = ti2 + ti2;
    ch[ido - 1 + (k + 3 * l1) * ido] = -sqrt2 * (tr1 + ti1);
  }
}
```