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

```asm
<d_realft>:
  endbr64
  push   %r13
  pxor   %xmm0,%xmm0
  mov    %rsi,%r13
  push   %r12
  mov    %rsi,%r12
  push   %rbp
  shr    %r12
  mov    %rdi,%rbp
  push   %rbx
  cvtsi2sd %r12,%xmm0
  mov    %edx,%ebx
  sub    $0x28,%rsp
  movsd  D19(%rip),%xmm1
  divsd  %xmm0,%xmm1
  cmp    $0x1,%edx
  je     L44
  movsd  D76(%rip),%xmm7
  xorpd  D4(%rip),%xmm1
  movapd %xmm7,%xmm8
L14:
  movapd %xmm1,%xmm0
  movsd  %xmm8,0x18(%rsp)
  mulsd  %xmm7,%xmm0
  movsd  %xmm7,0x8(%rsp)
  movsd  %xmm1,0x10(%rsp)
  call   <sin@plt>
  movsd  D9(%rip),%xmm5
  movsd  0x10(%rsp),%xmm1
  mulsd  %xmm0,%xmm5
  mulsd  %xmm0,%xmm5
  movapd %xmm1,%xmm0
  movsd  %xmm5,(%rsp)
  call   <sin@plt>
  movsd  (%rsp),%xmm5
  mov    %r13,%rcx
  movsd  D36(%rip),%xmm3
  shr    $0x2,%rcx
  cmp    $0x7,%r13
  movsd  0x8(%rsp),%xmm7
  movapd %xmm0,%xmm6
  addsd  %xmm5,%xmm3
  movsd  0x18(%rsp),%xmm8
  jbe    L34
  movapd %xmm8,%xmm9
  shl    $0x4,%rcx
  lea    0x18(%rbp),%rax
  xorpd  D4(%rip),%xmm9
  lea    0x0(%rbp,%r13,8),%rdx
  lea    0x8(%rbp,%rcx,1),%rcx
  movapd %xmm0,%xmm4
  nopw   0x0(%rax,%rax,1)
L27:
  movsd  (%rdx),%xmm12
  movsd  (%rax),%xmm0
  add    $0x10,%rax
  sub    $0x10,%rdx
  movsd  -0x8(%rax),%xmm1
  movsd  0x8(%rdx),%xmm11
  movapd %xmm0,%xmm2
  movapd %xmm1,%xmm10
  addsd  %xmm12,%xmm1
  subsd  %xmm11,%xmm0
  addsd  %xmm11,%xmm2
  subsd  %xmm12,%xmm10
  mulsd  %xmm9,%xmm1
  mulsd  %xmm8,%xmm0
  mulsd  %xmm7,%xmm2
  mulsd  %xmm7,%xmm10
  movapd %xmm1,%xmm12
  mulsd  %xmm3,%xmm12
  movapd %xmm0,%xmm11
  mulsd  %xmm4,%xmm11
  mulsd  %xmm3,%xmm0
  mulsd  %xmm4,%xmm1
  movapd %xmm12,%xmm13
  addsd  %xmm2,%xmm13
  subsd  %xmm12,%xmm2
  subsd  %xmm11,%xmm13
  addsd  %xmm11,%xmm2
  movsd  %xmm13,-0x10(%rax)
  movapd %xmm0,%xmm13
  subsd  %xmm10,%xmm0
  addsd  %xmm10,%xmm13
  addsd  %xmm1,%xmm0
  addsd  %xmm1,%xmm13
  movapd %xmm6,%xmm1
  mulsd  %xmm4,%xmm1
  movsd  %xmm13,-0x8(%rax)
  movsd  %xmm0,0x10(%rdx)
  movapd %xmm5,%xmm0
  mulsd  %xmm3,%xmm0
  movsd  %xmm2,0x8(%rdx)
  subsd  %xmm1,%xmm0
  movapd %xmm3,%xmm1
  mulsd  %xmm6,%xmm1
  addsd  %xmm0,%xmm3
  movapd %xmm5,%xmm0
  mulsd  %xmm4,%xmm0
  addsd  %xmm1,%xmm0
  addsd  %xmm0,%xmm4
  cmp    %rax,%rcx
  jne    L27
L34:
  movsd  0x10(%rbp),%xmm1
  movsd  0x8(%rbp),%xmm0
  movapd %xmm1,%xmm2
  addsd  %xmm0,%xmm2
  subsd  %xmm1,%xmm0
  cmp    $0x1,%ebx
  jne    L0
  movsd  %xmm2,0x8(%rbp)
  movsd  %xmm0,0x10(%rbp)
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  ret
  nopl   0x0(%rax,%rax,1)
L0:
  mulsd  %xmm7,%xmm2
  mov    %r12,%rsi
  mov    %rbp,%rdi
  mov    $0xffffffff,%edx
  mulsd  %xmm7,%xmm0
  movsd  %xmm2,0x8(%rbp)
  movsd  %xmm0,0x10(%rbp)
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  jmp    1070 <d_four1@plt>
  nopl   0x0(%rax)
L44:
  mov    $0x1,%edx
  mov    %r12,%rsi
  movsd  %xmm1,(%rsp)
  call   <d_four1@plt>
  movsd  D76(%rip),%xmm7
  movsd  (%rsp),%xmm1
  movsd  D72(%rip),%xmm8
  jmp    L14
```

tool_calls: name: disassemble_data
arguments: tag: D19
type: f64
name: disassemble_data
arguments: tag: D76
type: f64
name: disassemble_data
arguments: tag: D4
type: byte[16]
name: disassemble_data
arguments: tag: D9
type: byte[8]
name: disassemble_data
arguments: tag: D36
type: f64
name: disassemble_data
arguments: tag: D72
type: byte[8]

tool: D19: 3.141592653589793

tool: D76: 0.5

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

tool: {"D9": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0]}

tool: D36: 1

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

assistant: ```c
void d_realft(double data[], unsigned long n, int isign) {
  void d_four1(double data[], unsigned long nn, int isign);
  unsigned long i, i1, i2, i3, i4, np3;
  double c1 = 0.5, c2, h1r, h1i, h2r, h2i;
  double wr, wi, wpr, wpi, wtemp, theta;
  theta = 3.141592653589793 / (double)(n >> 1);
  if (isign == 1) {
    c2 = -0.5;
    d_four1(data, n >> 1, 1);
  } else {
    c2 = 0.5;
    theta = -theta;
  }
  wtemp = sin(0.5 * theta);
  wpr = -2.0 * wtemp * wtemp;
  wpi = sin(theta);
  wr = 1.0 + wpr;
  wi = wpi;
  np3 = n + 3;
  for (i = 2; i <= (n >> 2); i++) {
    i4 = 1 + (i3 = np3 - (i2 = 1 + (i1 = i + i - 1)));
    h1r = c1 * (data[i1] + data[i3]);
    h1i = c1 * (data[i2] - data[i4]);
    h2r = -c2 * (data[i2] + data[i4]);
    h2i = c2 * (data[i1] - data[i3]);
    data[i1] = h1r + wr * h2r - wi * h2i;
    data[i2] = h1i + wr * h2i + wi * h2r;
    data[i3] = h1r - wr * h2r + wi * h2i;
    data[i4] = -h1i + wr * h2i + wi * h2r;
    wr = (wtemp = wr) * wpr - wi * wpi + wr;
    wi = wi * wpr + wtemp * wpi + wi;
  }
  if (isign == 1) {
    data[1] = (h1r = data[1]) + data[2];
    data[2] = h1r - data[2];
  } else {
    data[1] = c1 * ((h1r = data[1]) + data[2]);
    data[2] = c1 * (h1r - data[2]);
    d_four1(data, n >> 1, -1);
  }
}
```