user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<cffti1>:
  endbr64
  push   %r15
  push   %r14
  mov    %rdx,%r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %edi,%ebp
  push   %rbx
  xor    %ebx,%ebx
  sub    $0x88,%rsp
  mov    %edi,0x64(%rsp)
  movq   $0x1,0x8(%rsp)
  mov    %rsi,0x10(%rsp)
L90:
  mov    0x8(%rsp),%rax
  cmp    $0x4,%rax
  ja     L71
  lea    D37(%rip),%rdx
  mov    (%rdx,%rax,4),%r15d
L118:
  movslq %ebx,%rax
  mov    %r14,%rcx
  lea    0x8(,%rax,4),%r12
  jmp    L109
  nopl   0x0(%rax,%rax,1)
L148:
  mov    %r15d,(%rcx,%r12,1)
  cmp    $0x2,%r15d
  jne    L141
  test   %al,%al
  je     L141
  lea    -0x1(%r14),%eax
  xor    %edx,%edx
  mov    $0x4,%edi
  mov    %rcx,(%rsp)
  neg    %rax
  shl    $0x2,%rax
  test   %r14d,%r14d
  cmovle %rdx,%rax
  mov    %r14d,%edx
  shl    $0x2,%rdx
  test   %r14d,%r14d
  cmovle %rdi,%rdx
  lea    -0x4(%r12,%rax,1),%rsi
  add    %r12,%rax
  add    %rcx,%rsi
  lea    (%rcx,%rax,1),%rdi
  call   <memmove@plt>
  mov    (%rsp),%rcx
  movl   $0x2,0x8(%rcx)
L141:
  add    $0x4,%r12
  cmp    $0x1,%r13d
  je     L122
L109:
  mov    %ebp,%eax
  mov    %ebx,%r14d
  add    $0x1,%ebx
  mov    %ebp,%esi
  cltd
  idiv   %r15d
  cmp    $0x1,%ebx
  mov    %eax,%r13d
  mov    %eax,%ebp
  setne  %al
  test   %edx,%edx
  je     L148
  mov    %r14d,%r13d
  addq   $0x1,0x8(%rsp)
  mov    %rcx,%r14
  mov    %esi,%ebp
  mov    %r13d,%ebx
  jmp    L90
L122:
  mov    0x64(%rsp),%eax
  movd   %ebx,%xmm4
  movslq %r14d,%r8
  movsd  D7(%rip),%xmm1
  mov    0x10(%rsp),%r14
  movl   $0x1,0x60(%rsp)
  movd   %eax,%xmm0
  movl   $0x1,0x1c(%rsp)
  punpckldq %xmm4,%xmm0
  mov    %r14,%r15
  movq   %xmm0,(%rcx)
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  lea    0x8(%rcx),%rax
  mov    %rax,0x58(%rsp)
  lea    0xc(%rcx,%r8,4),%rax
  mov    %rax,0x68(%rsp)
  lea    0x10(%r14),%rax
  mov    %rax,0x50(%rsp)
  divsd  %xmm0,%xmm1
  movsd  %xmm1,0x40(%rsp)
  nopw   0x0(%rax,%rax,1)
L82:
  mov    0x58(%rsp),%rax
  mov    (%rax),%esi
  mov    0x60(%rsp),%eax
  mov    %eax,0x48(%rsp)
  imul   %esi,%eax
  mov    %esi,0x38(%rsp)
  mov    %eax,%edi
  mov    %eax,0x60(%rsp)
  mov    0x64(%rsp),%eax
  cltd
  idiv   %edi
  lea    0x2(%rax,%rax,1),%eax
  mov    %eax,0x3c(%rsp)
  cmp    $0x1,%esi
  jle    L115
  sub    $0x4,%eax
  movl   $0x0,0x18(%rsp)
  shr    %eax
  movl   $0x1,0x10(%rsp)
  mov    %eax,%edx
  add    %eax,%eax
  add    %rdx,%rdx
  mov    %eax,0x4c(%rsp)
  mov    %rdx,0x20(%rsp)
  nopl   0x0(%rax)
L10:
  movslq 0x1c(%rsp),%r13
  mov    0x48(%rsp),%edx
  pxor   %xmm0,%xmm0
  add    %edx,0x18(%rsp)
  movq   D25(%rip),%xmm2
  lea    0x0(,%r13,8),%rax
  cmpl   $0x3,0x3c(%rsp)
  lea    -0x8(%r15,%rax,1),%rcx
  lea    (%r15,%rax,1),%r14
  mov    0x18(%rsp),%eax
  mov    %rcx,0x28(%rsp)
  cvtsi2sd %eax,%xmm0
  mulsd  0x40(%rsp),%xmm0
  mov    %r14,0x30(%rsp)
  movups %xmm2,(%rcx)
  movsd  %xmm0,0x8(%rsp)
  jle    L15
  mov    0x20(%rsp),%rax
  pxor   %xmm1,%xmm1
  lea    0x78(%rsp),%rbp
  lea    0x70(%rsp),%rbx
  lea    (%rax,%r13,1),%rdx
  mov    0x50(%rsp),%rax
  lea    (%rax,%rdx,8),%r12
  cs nopw 0x0(%rax,%rax,1)
L106:
  movsd  0x8(%rsp),%xmm0
  mov    %rbx,%rsi
  mov    %rbp,%rdi
  add    $0x10,%r14
  addsd  D25(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm1,(%rsp)
  call   <sincos@plt>
  movupd 0x70(%rsp),%xmm0
  movsd  (%rsp),%xmm1
  movups %xmm0,-0x8(%r14)
  cmp    %r14,%r12
  jne    L106
  mov    0x1c(%rsp),%edi
  mov    0x4c(%rsp),%esi
  mov    0x20(%rsp),%rax
  lea    0x2(%rdi,%rsi,1),%ecx
  lea    0x2(%rax,%r13,1),%rax
  mov    %ecx,0x1c(%rsp)
  shl    $0x3,%rax
  lea    -0x8(%r15,%rax,1),%rdx
  add    %r15,%rax
L140:
  cmpl   $0x5,0x38(%rsp)
  jle    L24
  movsd  (%rdx),%xmm0
  mov    0x28(%rsp),%rdx
  movsd  %xmm0,(%rdx)
  movsd  (%rax),%xmm0
  mov    0x30(%rsp),%rax
  movsd  %xmm0,(%rax)
L24:
  addl   $0x1,0x10(%rsp)
  mov    0x10(%rsp),%eax
  cmp    %eax,0x38(%rsp)
  jne    L10
L115:
  addq   $0x4,0x58(%rsp)
  mov    0x58(%rsp),%rax
  cmp    0x68(%rsp),%rax
  jne    L82
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   (%rax)
L15:
  mov    %r14,%rax
  mov    %rcx,%rdx
  jmp    L140
L71:
  add    $0x2,%r15d
  jmp    L118
```

tool_calls: name: parse_data
arguments: tag: D37
data_type: string
name: parse_data
arguments: tag: D7
data_type: f64
name: parse_data
arguments: tag: D25
data_type: byte[8]

tool: 

tool: D7: 6.28318530717959

tool: {"D25": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

assistant: ```c
void cffti1(int n, double wa[], int ifac[]) {
  static const int ntryh[4] = {3, 4, 2, 5};
  static const double twopi = 6.28318530717959;
  double argh;
  int idot, ntry, i, j;
  double argld;
  int i1, k1, l1, l2, ib;
  double fi;
  int ld, ii, nf, ip, nl, nq, nr;
  double arg;
  int ido, ipm;
  nl = n;
  nf = 0;
  j = 0;
startloop:
  j++;
  if (j <= 4)
    ntry = ntryh[j - 1];
  else
    ntry += 2;
  do {
    nq = nl / ntry;
    nr = nl - ntry * nq;
    if (nr != 0)
      goto startloop;
    nf++;
    ifac[nf + 1] = ntry;
    nl = nq;
    if (ntry == 2 && nf != 1) {
      for (i = 2; i <= nf; i++) {
        ib = nf - i + 2;
        ifac[ib + 1] = ifac[ib];
      }
      ifac[2] = 2;
    }
  } while (nl != 1);
  ifac[0] = n;
  ifac[1] = nf;
  argh = twopi / (double)n;
  i = 1;
  l1 = 1;
  for (k1 = 1; k1 <= nf; k1++) {
    ip = ifac[k1 + 1];
    ld = 0;
    l2 = l1 * ip;
    ido = n / l2;
    idot = ido + ido + 2;
    ipm = ip - 1;
    for (j = 1; j <= ipm; j++) {
      i1 = i;
      wa[i - 1] = 1;
      wa[i] = 0;
      ld += l1;
      fi = 0;
      argld = ld * argh;
      for (ii = 4; ii <= idot; ii += 2) {
        i += 2;
        fi += 1;
        arg = fi * argld;
        wa[i - 1] = cos(arg);
        wa[i] = sin(arg);
      }
      if (ip > 5) {
        wa[i1 - 1] = wa[i - 1];
        wa[i1] = wa[i];
      }
    }
    l1 = l2;
  }
}
```