user: Translate the below assembly code into C programming language:

```asm
<rfftf1>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    0x4(%r8),%eax
  mov    %edi,0x10(%rsp)
  mov    %rsi,(%rsp)
  mov    %eax,0x14(%rsp)
  test   %eax,%eax
  jle    L63
  movslq 0x14(%rsp),%rdi
  mov    0x10(%rsp),%eax
  mov    %rdx,%r11
  mov    %rcx,%r10
  mov    %r11,0x8(%rsp)
  mov    $0x1,%r13d
  mov    $0x1,%ebp
  xor    %r15d,%r15d
  add    $0x1,%rdi
  cltd
  mov    (%r8,%rdi,4),%esi
  lea    -0x4(%r8,%rdi,4),%r14
  mov    $0x1,%edi
  idiv   %esi
  mov    (%rsp),%rdx
  mov    %eax,%ecx
  mov    0x10(%rsp),%eax
  mov    %ecx,%r12d
  sub    %esi,%eax
  mov    %eax,%ebx
  mov    %r11,%rax
  jmp    L139
  nopw   0x0(%rax,%rax,1)
L132:
  cmp    $0x3,%esi
  jne    L0
  lea    (%rdi,%rbx,1),%ecx
  mov    %r12d,%esi
  mov    %r10,0x18(%rsp)
  movslq %ecx,%rcx
  lea    (%r10,%rcx,8),%r9
  mov    %rax,%rcx
  call   <radf3@plt>
  mov    0x18(%rsp),%r10
L130:
  add    $0x1,%r13d
  cmp    %r13d,0x14(%rsp)
  jl     L75
L74:
  mov    (%r14),%esi
  mov    %r12d,%eax
  mov    %r15d,%ebp
  cltd
  xor    $0x1,%ebp
  idiv   %esi
  mov    %eax,%r8d
  mov    %eax,%r9d
  mov    0x10(%rsp),%eax
  mov    %r8d,%ecx
  cltd
  idiv   %r12d
  mov    %eax,%edi
  imul   %eax,%ecx
  lea    -0x1(%rsi),%eax
  imul   %edi,%eax
  sub    %eax,%ebx
  test   %r15d,%r15d
  jne    L3
  mov    (%rsp),%rax
  mov    0x8(%rsp),%rdx
  mov    %ebp,%r15d
  mov    %r8d,%r12d
  xor    %ebp,%ebp
L207:
  sub    $0x4,%r14
L139:
  movslq %ebx,%r8
  lea    (%r10,%r8,8),%r8
  cmp    $0x4,%esi
  je     L192
  jg     L142
  cmp    $0x2,%esi
  jne    L132
  mov    %rax,%rcx
  mov    %r12d,%esi
  mov    %r10,0x18(%rsp)
  add    $0x1,%r13d
  call   <radf2@plt>
  mov    0x18(%rsp),%r10
  cmp    %r13d,0x14(%rsp)
  jge    L74
L75:
  mov    0x8(%rsp),%r11
  cmp    $0x1,%r15d
  je     L63
L14:
  mov    0x10(%rsp),%eax
  test   %eax,%eax
  jle    L63
  mov    (%rsp),%rcx
  movslq %eax,%rdx
  xor    %eax,%eax
  nopl   (%rax)
L187:
  movsd  (%r11,%rax,8),%xmm0
  movsd  %xmm0,(%rcx,%rax,8)
  add    $0x1,%rax
  cmp    %rdx,%rax
  jne    L187
L63:
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L142:
  cmp    $0x5,%esi
  jne    L0
  lea    (%rdi,%rbx,1),%ecx
  lea    (%rcx,%rdi,1),%esi
  movslq %ecx,%rcx
  lea    (%rsi,%rdi,1),%r9d
  movslq %esi,%rsi
  movslq %r9d,%r9
  lea    (%r10,%rsi,8),%rsi
  lea    (%r10,%r9,8),%r9
  push   %r9
  lea    (%r10,%rcx,8),%r9
  mov    %rax,%rcx
  push   %rsi
  mov    %r12d,%esi
  mov    %r10,0x28(%rsp)
  call   <radf5@plt>
  pop    %rdi
  pop    %r8
  mov    0x18(%rsp),%r10
  jmp    L130
  nopl   0x0(%rax)
L0:
  cmp    $0x1,%edi
  mov    %r10,0x18(%rsp)
  cmovne %r15d,%ebp
  test   %ebp,%ebp
  jne    L22
  sub    $0x8,%rsp
  mov    %r12d,%edx
  add    $0x1,%r13d
  push   %r8
  mov    0x18(%rsp),%r9
  mov    0x10(%rsp),%r8
  call   <radfg@plt>
  pop    %rcx
  pop    %rsi
  cmp    %r13d,0x14(%rsp)
  mov    0x18(%rsp),%r10
  jl     L63
  mov    (%r14),%esi
  mov    %r12d,%eax
  cltd
  idiv   %esi
  mov    %eax,%r9d
  mov    0x10(%rsp),%eax
  mov    %r9d,%ecx
  cltd
  idiv   %r12d
  mov    %eax,%edi
  imul   %eax,%ecx
  lea    -0x1(%rsi),%eax
  imul   %edi,%eax
  sub    %eax,%ebx
L3:
  mov    %ebp,%r15d
  mov    0x8(%rsp),%rax
  mov    (%rsp),%rdx
  mov    %r9d,%r12d
  mov    $0x1,%ebp
  jmp    L207
  nop
L192:
  lea    (%rdi,%rbx,1),%ecx
  sub    $0x8,%rsp
  movslq %ecx,%rsi
  add    %edi,%ecx
  movslq %ecx,%rcx
  lea    (%r10,%rsi,8),%r9
  mov    %r12d,%esi
  lea    (%r10,%rcx,8),%rcx
  push   %rcx
  mov    %rax,%rcx
  mov    %r10,0x28(%rsp)
  call   <radf4@plt>
  pop    %r9
  pop    %r10
  mov    0x18(%rsp),%r10
  jmp    L130
  cs nopw 0x0(%rax,%rax,1)
L22:
  sub    $0x8,%rsp
  mov    %r12d,%edx
  add    $0x1,%r13d
  push   %r8
  mov    0x10(%rsp),%r9
  mov    0x18(%rsp),%r8
  call   <radfg@plt>
  pop    %rax
  pop    %rdx
  cmp    0x14(%rsp),%r13d
  mov    0x18(%rsp),%r10
  jg     L77
  mov    %r12d,%eax
  mov    (%r14),%esi
  mov    %ebp,%r15d
  xor    %ebp,%ebp
  cltd
  idiv   %esi
  mov    %eax,%r8d
  mov    0x10(%rsp),%eax
  mov    %r8d,%ecx
  cltd
  idiv   %r12d
  mov    0x8(%rsp),%rdx
  mov    %r8d,%r12d
  mov    %eax,%edi
  imul   %eax,%ecx
  lea    -0x1(%rsi),%eax
  imul   %edi,%eax
  sub    %eax,%ebx
  mov    (%rsp),%rax
  jmp    L207
L77:
  mov    0x8(%rsp),%r11
  jmp    L14
```

assistant: ```c
void rfftf1(int n, double c[], double ch[], const double wa[], const int ifac[13 + 2]) {
  int i;
  int k1, l1, l2, na, kh, nf, ip, iw, ix2, ix3, ix4, ido, idl1;
  double *cinput, *coutput;
  nf = ifac[1];
  na = 1;
  l2 = n;
  iw = n - 1;
  for (k1 = 1; k1 <= nf; ++k1) {
    kh = nf - k1;
    ip = ifac[kh + 2];
    l1 = l2 / ip;
    ido = n / l2;
    idl1 = ido * l1;
    iw -= (ip - 1) * ido;
    na = !na;
    if (na) {
      cinput = ch;
      coutput = c;
    } else {
      cinput = c;
      coutput = ch;
    }
    switch (ip) {
    case 4:
      ix2 = iw + ido;
      ix3 = ix2 + ido;
      radf4(ido, l1, cinput, coutput, &wa[iw], &wa[ix2], &wa[ix3]);
      break;
    case 2:
      radf2(ido, l1, cinput, coutput, &wa[iw]);
      break;
    case 3:
      ix2 = iw + ido;
      radf3(ido, l1, cinput, coutput, &wa[iw], &wa[ix2]);
      break;
    case 5:
      ix2 = iw + ido;
      ix3 = ix2 + ido;
      ix4 = ix3 + ido;
      radf5(ido, l1, cinput, coutput, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4]);
      break;
    default:
      if (ido == 1)
        na = !na;
      if (na == 0) {
        radfg(ido, ip, l1, idl1, c, ch, &wa[iw]);
        na = 1;
      } else {
        radfg(ido, ip, l1, idl1, ch, c, &wa[iw]);
        na = 0;
      }
    }
    l2 = l1;
  }
  if (na == 1)
    return;
  for (i = 0; i < n; i++)
    c[i] = ch[i];
}
```