user: What is the c source code of the assembly code below?

```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,0x10(%rsp)
  mov    %rsi,0x18(%rsp)
L22:
  mov    0x10(%rsp),%rax
  cmp    $0x4,%rax
  ja     L133
  lea    D13(%rip),%rcx
  mov    (%rcx,%rax,4),%r15d
L108:
  movslq %ebx,%rax
  mov    %r14,%rcx
  lea    0x8(,%rax,4),%r12
  jmp    L48
  nopl   0x0(%rax,%rax,1)
L85:
  mov    %r15d,(%rcx,%r12,1)
  cmp    $0x2,%r15d
  jne    L21
  test   %al,%al
  je     L21
  lea    -0x1(%r14),%eax
  xor    %edx,%edx
  mov    $0x4,%esi
  mov    %rcx,0x8(%rsp)
  neg    %rax
  shl    $0x2,%rax
  test   %r14d,%r14d
  cmovle %rdx,%rax
  mov    %r14d,%edx
  shl    $0x2,%rdx
  test   %r14d,%r14d
  cmovle %rsi,%rdx
  lea    -0x4(%r12,%rax,1),%rsi
  add    %r12,%rax
  add    %rcx,%rsi
  lea    (%rcx,%rax,1),%rdi
  call   <memmove@plt>
  mov    0x8(%rsp),%rcx
  movl   $0x2,0x8(%rcx)
L21:
  add    $0x4,%r12
  cmp    $0x1,%r13d
  je     L124
L48:
  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     L85
  mov    %r14d,%r13d
  addq   $0x1,0x10(%rsp)
  mov    %rcx,%r14
  mov    %esi,%ebp
  mov    %r13d,%ebx
  jmp    L22
L124:
  mov    0x64(%rsp),%eax
  pxor   %xmm0,%xmm0
  movslq %r14d,%r8
  mov    0x18(%rsp),%r14
  movsd  D0(%rip),%xmm1
  mov    %ebx,0x4(%rcx)
  cvtsi2sd %eax,%xmm0
  mov    %eax,(%rcx)
  lea    0x8(%rcx),%rax
  mov    %rax,0x58(%rsp)
  lea    0xc(%rcx,%r8,4),%rax
  mov    %rax,0x68(%rsp)
  lea    0x10(%r14),%rax
  movl   $0x1,0x60(%rsp)
  divsd  %xmm0,%xmm1
  movl   $0x1,0x18(%rsp)
  mov    %rax,0x50(%rsp)
  movsd  %xmm1,0x38(%rsp)
  nopw   0x0(%rax,%rax,1)
L115:
  mov    0x58(%rsp),%rax
  mov    (%rax),%edi
  mov    0x60(%rsp),%eax
  mov    %eax,0x48(%rsp)
  imul   %edi,%eax
  mov    %edi,0x30(%rsp)
  mov    %eax,%ecx
  mov    %eax,0x60(%rsp)
  mov    0x64(%rsp),%eax
  cltd
  idiv   %ecx
  lea    0x2(%rax,%rax,1),%eax
  mov    %eax,0x34(%rsp)
  cmp    $0x1,%edi
  jle    L119
  sub    $0x4,%eax
  movl   $0x0,0x24(%rsp)
  shr    %eax
  movl   $0x1,0x20(%rsp)
  mov    %eax,%edx
  add    %eax,%eax
  add    %rdx,%rdx
  mov    %eax,0x4c(%rsp)
  mov    %rdx,0x40(%rsp)
  nopl   0x0(%rax)
L38:
  movslq 0x18(%rsp),%rdx
  mov    D8(%rip),%rcx
  pxor   %xmm0,%xmm0
  lea    0x0(,%rdx,8),%r13
  lea    -0x8(%r14,%r13,1),%rax
  add    %r14,%r13
  mov    %rcx,(%rax)
  mov    0x48(%rsp),%ecx
  mov    %rax,0x28(%rsp)
  add    %ecx,0x24(%rsp)
  mov    0x24(%rsp),%eax
  cmpl   $0x3,0x34(%rsp)
  movq   $0x0,0x0(%r13)
  cvtsi2sd %eax,%xmm0
  mulsd  0x38(%rsp),%xmm0
  movsd  %xmm0,0x10(%rsp)
  jle    L131
  mov    0x50(%rsp),%rax
  add    0x40(%rsp),%rdx
  mov    %r13,%r15
  pxor   %xmm1,%xmm1
  lea    0x78(%rsp),%rbp
  lea    0x70(%rsp),%rbx
  lea    (%rax,%rdx,8),%r12
  nopw   0x0(%rax,%rax,1)
L90:
  movsd  0x10(%rsp),%xmm0
  mov    %rbx,%rsi
  mov    %rbp,%rdi
  add    $0x10,%r15
  addsd  D8(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm1,0x8(%rsp)
  call   <sincos@plt>
  movsd  0x78(%rsp),%xmm0
  movsd  0x70(%rsp),%xmm2
  movsd  0x8(%rsp),%xmm1
  movsd  %xmm2,-0x8(%r15)
  movsd  %xmm0,(%r15)
  cmp    %r15,%r12
  jne    L90
  mov    0x18(%rsp),%eax
  mov    0x4c(%rsp),%edx
  lea    0x2(%rax,%rdx,1),%eax
  mov    %eax,0x18(%rsp)
L131:
  cmpl   $0x5,0x30(%rsp)
  jle    L77
  movslq 0x18(%rsp),%rax
  mov    0x28(%rsp),%rcx
  movsd  -0x8(%r14,%rax,8),%xmm0
  movsd  %xmm0,(%rcx)
  movsd  (%r14,%rax,8),%xmm0
  movsd  %xmm0,0x0(%r13)
L77:
  addl   $0x1,0x20(%rsp)
  mov    0x20(%rsp),%eax
  cmp    %eax,0x30(%rsp)
  jne    L38
L119:
  addq   $0x4,0x58(%rsp)
  mov    0x58(%rsp),%rax
  cmp    %rax,0x68(%rsp)
  jne    L115
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L133:
  add    $0x2,%r15d
  jmp    L108
```

tool_calls: name: unpack_data
arguments: data_label: D13
type_infered: string
name: unpack_data
arguments: data_label: D0
type_infered: f64
name: unpack_data
arguments: data_label: D8
type_infered: byte[8]

tool: 

tool: D0: 6.28318530717959

tool: {"D8": [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;
  }
}
```