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

```asm
<makehanning>:
  endbr64
  push   %r15
  mov    %rsi,%r15
  push   %r14
  push   %r13
  mov    %rdx,%r13
  push   %r12
  mov    %r8d,%r12d
  push   %rbp
  mov    %rdi,%rbp
  push   %rbx
  mov    %ecx,%ebx
  sub    $0x48,%rsp
  mov    0x80(%rsp),%ecx
  mov    %r9d,0x3c(%rsp)
  test   %ecx,%ecx
  jne    L234
  test   %ebx,%ebx
  jle    L553
  lea    -0x1(%rbx),%eax
  pxor   %xmm7,%xmm7
  xor    %r14d,%r14d
  movsd  D29(%rip),%xmm5
  cvtsi2sd %eax,%xmm7
  movslq %ebx,%rax
  movsd  D79(%rip),%xmm6
  movsd  %xmm5,0x18(%rsp)
  movsd  D56(%rip),%xmm5
  mov    %rax,0x28(%rsp)
  movsd  %xmm6,0x8(%rsp)
  movsd  %xmm7,0x30(%rsp)
  movsd  D78(%rip),%xmm7
  movsd  %xmm5,0x10(%rsp)
  movsd  %xmm7,0x20(%rsp)
L344:
  pxor   %xmm0,%xmm0
  cvtsi2sd %r14d,%xmm0
  mulsd  0x18(%rsp),%xmm0
  divsd  0x30(%rsp),%xmm0
  addsd  0x8(%rsp),%xmm0
  call   <cos@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  addsd  0x20(%rsp),%xmm0
  mulsd  0x10(%rsp),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x0(%r13,%r14,4)
  movss  %xmm0,(%r15,%r14,4)
  movss  %xmm0,0x0(%rbp,%r14,4)
  add    $0x1,%r14
  cmp    %r14,0x28(%rsp)
  jne    L344
L136:
  pxor   %xmm2,%xmm2
  cmp    %r12d,%ebx
  jle    L579
  mov    $0x1,%eax
  pxor   %xmm1,%xmm1
  pxor   %xmm2,%xmm2
  xor    %ebp,%ebp
  sub    %ebx,%eax
  movss  D16(%rip),%xmm4
  cvtsi2sd %eax,%xmm1
  mulsd  0x10(%rsp),%xmm1
  mov    0x3c(%rsp),%eax
  cvtsd2ss %xmm1,%xmm1
  test   %eax,%eax
  jne    L39
  nopl   0x0(%rax,%rax,1)
L224:
  ucomiss %xmm2,%xmm1
  jp     L436
  jne    L436
  add    $0x1,%rbp
  addss  %xmm4,%xmm1
  cmp    %ebp,%ebx
  jg     L224
L579:
  test   %ebx,%ebx
  mov    $0x1,%ecx
  cmovg  %ebx,%ecx
  cmp    $0x3,%ebx
  jle    L525
  mov    %ecx,%esi
  movaps %xmm2,%xmm1
  mov    %r15,%rax
  shr    $0x2,%esi
  sub    $0x1,%esi
  shl    $0x4,%rsi
  lea    0x10(%r15,%rsi,1),%rsi
  nopl   (%rax)
L132:
  movups (%rax),%xmm0
  add    $0x10,%rax
  addss  %xmm0,%xmm1
  movaps %xmm0,%xmm3
  shufps $0x55,%xmm0,%xmm3
  addss  %xmm3,%xmm1
  movaps %xmm0,%xmm3
  unpckhps %xmm0,%xmm3
  shufps $0xff,%xmm0,%xmm0
  addss  %xmm3,%xmm1
  addss  %xmm0,%xmm1
  cmp    %rsi,%rax
  jne    L132
  mov    %ecx,%eax
  and    $0xfffffffc,%eax
  test   $0x3,%cl
  je     L434
L199:
  movslq %eax,%rsi
  addss  (%r15,%rsi,4),%xmm1
  lea    0x0(,%rsi,4),%rdi
  lea    0x1(%rax),%esi
  cmp    %esi,%ebx
  jle    L434
  add    $0x2,%eax
  addss  0x4(%r15,%rdi,1),%xmm1
  cmp    %eax,%ebx
  jle    L434
  addss  0x8(%r15,%rdi,1),%xmm1
L434:
  movss  D99(%rip),%xmm0
  lea    0xf(%r13),%rax
  sub    %r15,%rax
  divss  %xmm1,%xmm0
  cmp    %r12d,%ebx
  jg     L502
  cmp    $0x1e,%rax
  jbe    L560
  cmp    $0x1,%ebx
  jle    L560
  cmp    $0x3,%ebx
  jle    L33
  mov    %ecx,%esi
  movaps %xmm0,%xmm3
  xor    %eax,%eax
  shr    $0x2,%esi
  shufps $0x0,%xmm3,%xmm3
  shl    $0x4,%rsi
  xchg   %ax,%ax
L140:
  movups (%r15,%rax,1),%xmm1
  mulps  %xmm3,%xmm1
  movups %xmm1,(%r15,%rax,1)
  movups 0x0(%r13,%rax,1),%xmm1
  mulps  %xmm3,%xmm1
  movups %xmm1,0x0(%r13,%rax,1)
  add    $0x10,%rax
  cmp    %rax,%rsi
  jne    L140
  mov    %ecx,%esi
  and    $0xfffffffc,%esi
  mov    %esi,%eax
  cmp    %ecx,%esi
  je     L539
L250:
  sub    %esi,%ecx
  cmp    $0x1,%ecx
  je     L167
  shl    $0x2,%rsi
  movaps %xmm0,%xmm1
  lea    (%r15,%rsi,1),%rdi
  shufps $0xe0,%xmm1,%xmm1
  add    %r13,%rsi
  movq   (%rdi),%xmm3
  mulps  %xmm1,%xmm3
  movlps %xmm3,(%rdi)
  movq   (%rsi),%xmm3
  mulps  %xmm1,%xmm3
  movlps %xmm3,(%rsi)
  mov    %ecx,%esi
  and    $0xfffffffe,%esi
  add    %esi,%eax
  cmp    %esi,%ecx
  je     L539
L167:
  cltq
  shl    $0x2,%rax
  add    %rax,%r15
  add    %r13,%rax
  movss  (%r15),%xmm1
  mulss  %xmm0,%xmm1
  movss  %xmm1,(%r15)
  mulss  (%rax),%xmm0
  movss  %xmm0,(%rax)
L539:
  mov    0x3c(%rsp),%edx
  test   %edx,%edx
  je     L553
  cmpl   $0x1,0x3c(%rsp)
  jne    L308
  mov    0x3c(%rsp),%r12d
  test   %ebx,%ebx
  cmovg  %ebx,%r12d
  cmp    $0x3,%ebx
  jle    L208
  mov    %r12d,%ecx
  lea    0x10(%r13),%rdi
  mov    %r13,%rax
  shr    $0x2,%ecx
  sub    $0x1,%ecx
  shl    $0x4,%rcx
  add    %rdi,%rcx
  nopl   0x0(%rax)
L339:
  movups (%rax),%xmm0
  add    $0x10,%rax
  mulps  %xmm0,%xmm0
  addss  %xmm0,%xmm2
  movaps %xmm0,%xmm1
  shufps $0x55,%xmm0,%xmm1
  addss  %xmm1,%xmm2
  movaps %xmm0,%xmm1
  unpckhps %xmm0,%xmm1
  shufps $0xff,%xmm0,%xmm0
  addss  %xmm1,%xmm2
  addss  %xmm0,%xmm2
  cmp    %rax,%rcx
  jne    L339
  mov    %r12d,%eax
  and    $0xfffffffc,%eax
  cmp    %eax,%r12d
  je     L487
L154:
  movslq %eax,%rcx
  movss  0x0(%r13,%rcx,4),%xmm0
  lea    0x0(,%rcx,4),%rsi
  lea    0x1(%rax),%ecx
  mulss  %xmm0,%xmm0
  addss  %xmm0,%xmm2
  cmp    %ebx,%ecx
  jge    L300
  movss  0x4(%r13,%rsi,1),%xmm0
  add    $0x2,%eax
  mulss  %xmm0,%xmm0
  addss  %xmm0,%xmm2
  cmp    %eax,%ebx
  jle    L300
  movss  0x8(%r13,%rsi,1),%xmm0
  mulss  %xmm0,%xmm0
  addss  %xmm0,%xmm2
L300:
  movss  D16(%rip),%xmm0
  test   %ebx,%ebx
  mov    $0x1,%ecx
  cmovg  %ebx,%ecx
  movaps %xmm0,%xmm1
  divss  %xmm2,%xmm1
  cmp    $0x3,%ebx
  jle    L53
  lea    0x10(%r13),%rdi
L87:
  mov    %ecx,%esi
  movaps %xmm1,%xmm2
  mov    %r13,%rax
  shr    $0x2,%esi
  shufps $0x0,%xmm2,%xmm2
  sub    $0x1,%esi
  shl    $0x4,%rsi
  add    %rdi,%rsi
  nopl   0x0(%rax)
L372:
  movups (%rax),%xmm0
  add    $0x10,%rax
  mulps  %xmm2,%xmm0
  movups %xmm0,-0x10(%rax)
  cmp    %rax,%rsi
  jne    L372
  mov    %ecx,%esi
  and    $0xfffffffc,%esi
  mov    %esi,%eax
  cmp    %esi,%ecx
  je     L553
L476:
  sub    %esi,%ecx
  cmp    $0x1,%ecx
  je     L42
  lea    0x0(%r13,%rsi,4),%rsi
  movaps %xmm1,%xmm2
  movq   (%rsi),%xmm0
  shufps $0xe0,%xmm2,%xmm2
  mulps  %xmm2,%xmm0
  movlps %xmm0,(%rsi)
  mov    %ecx,%esi
  and    $0xfffffffe,%esi
  add    %esi,%eax
  cmp    %ecx,%esi
  je     L553
L42:
  cltq
  lea    0x0(%r13,%rax,4),%rax
  mulss  (%rax),%xmm1
  movss  %xmm1,(%rax)
L553:
  add    $0x48,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L234:
  test   %ebx,%ebx
  jle    L553
  lea    -0x1(%rbx),%eax
  pxor   %xmm7,%xmm7
  xor    %r14d,%r14d
  movsd  D29(%rip),%xmm5
  cvtsi2sd %eax,%xmm7
  movslq %ebx,%rax
  movsd  D56(%rip),%xmm6
  movsd  %xmm5,0x18(%rsp)
  movsd  D78(%rip),%xmm5
  mov    %rax,0x30(%rsp)
  movsd  %xmm5,0x20(%rsp)
  movsd  %xmm7,0x28(%rsp)
  movsd  D79(%rip),%xmm7
  movsd  %xmm6,0x10(%rsp)
  movsd  %xmm7,0x8(%rsp)
  nopl   0x0(%rax,%rax,1)
L30:
  pxor   %xmm0,%xmm0
  cvtsi2sd %r14d,%xmm0
  mulsd  0x18(%rsp),%xmm0
  divsd  0x28(%rsp),%xmm0
  addsd  0x8(%rsp),%xmm0
  call   <cos@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  addsd  0x20(%rsp),%xmm0
  mulsd  0x10(%rsp),%xmm0
  call   <sqrt@plt>
  movss  %xmm0,0x0(%r13,%r14,4)
  movss  %xmm0,(%r15,%r14,4)
  movss  %xmm0,0x0(%rbp,%r14,4)
  add    $0x1,%r14
  cmp    0x30(%rsp),%r14
  jne    L30
  jmp    L136
  nopl   (%rax)
L147:
  pxor   %xmm3,%xmm3
  pxor   %xmm5,%xmm5
  movss  %xmm4,0x28(%rsp)
  cvtss2sd %xmm1,%xmm3
  mulsd  0x8(%rsp),%xmm3
  cvtsi2sd %r12d,%xmm5
  movss  %xmm2,0x20(%rsp)
  movss  %xmm1,0x18(%rsp)
  movapd %xmm3,%xmm0
  movsd  %xmm3,0x10(%rsp)
  divsd  %xmm5,%xmm0
  call   <sin@plt>
  pxor   %xmm0,%xmm0
  movsd  0x10(%rsp),%xmm3
  pxor   %xmm5,%xmm5
  imul   %r12d,%eax
  cvtss2sd (%r15,%rbp,4),%xmm5
  mov    0x3c(%rsp),%r14d
  cvtsi2sd %eax,%xmm0
  divsd  %xmm3,%xmm0
  mulsd  %xmm5,%xmm0
  pxor   %xmm5,%xmm5
  cvtsi2sd %r14d,%xmm5
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%r15,%rbp,4)
  movapd %xmm3,%xmm0
  divsd  %xmm5,%xmm0
  call   <sin@plt>
  pxor   %xmm0,%xmm0
  movsd  0x10(%rsp),%xmm3
  movss  0x18(%rsp),%xmm1
  imul   %r14d,%eax
  movss  0x28(%rsp),%xmm4
  movss  0x20(%rsp),%xmm2
  addss  %xmm4,%xmm1
  cvtsi2sd %eax,%xmm0
  divsd  %xmm3,%xmm0
  pxor   %xmm3,%xmm3
  cvtss2sd 0x0(%r13,%rbp,4),%xmm3
  mulsd  %xmm3,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x0(%r13,%rbp,4)
  add    $0x1,%rbp
  cmp    %ebp,%ebx
  jle    L579
L39:
  ucomiss %xmm2,%xmm1
  jp     L147
  jne    L147
  add    $0x1,%rbp
  addss  %xmm4,%xmm1
  cmp    %ebp,%ebx
  jg     L39
  jmp    L579
  nopw   0x0(%rax,%rax,1)
L436:
  pxor   %xmm3,%xmm3
  pxor   %xmm5,%xmm5
  movss  %xmm4,0x28(%rsp)
  cvtss2sd %xmm1,%xmm3
  mulsd  0x8(%rsp),%xmm3
  cvtsi2sd %r12d,%xmm5
  movss  %xmm2,0x20(%rsp)
  movss  %xmm1,0x18(%rsp)
  movapd %xmm3,%xmm0
  movsd  %xmm3,0x10(%rsp)
  divsd  %xmm5,%xmm0
  call   <sin@plt>
  pxor   %xmm0,%xmm0
  movsd  0x10(%rsp),%xmm3
  movss  0x18(%rsp),%xmm1
  imul   %r12d,%eax
  movss  0x28(%rsp),%xmm4
  movss  0x20(%rsp),%xmm2
  addss  %xmm4,%xmm1
  cvtsi2sd %eax,%xmm0
  divsd  %xmm3,%xmm0
  pxor   %xmm3,%xmm3
  cvtss2sd (%r15,%rbp,4),%xmm3
  mulsd  %xmm3,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%r15,%rbp,4)
  add    $0x1,%rbp
  cmp    %ebp,%ebx
  jg     L224
  jmp    L579
  nopl   0x0(%rax)
L502:
  cmp    $0x1e,%rax
  jbe    L327
  cmp    $0x3,%ebx
  jle    L327
  movss  D16(%rip),%xmm2
  mov    %ecx,%esi
  movaps %xmm0,%xmm4
  xor    %eax,%eax
  shr    $0x2,%esi
  shufps $0x0,%xmm4,%xmm4
  divss  %xmm0,%xmm2
  shl    $0x4,%rsi
  movaps %xmm2,%xmm3
  shufps $0x0,%xmm3,%xmm3
L548:
  movups (%r15,%rax,1),%xmm1
  mulps  %xmm4,%xmm1
  movups %xmm1,(%r15,%rax,1)
  movups 0x0(%r13,%rax,1),%xmm1
  mulps  %xmm3,%xmm1
  movups %xmm1,0x0(%r13,%rax,1)
  add    $0x10,%rax
  cmp    %rax,%rsi
  jne    L548
  mov    %ecx,%esi
  and    $0xfffffffc,%esi
  and    $0x3,%ecx
  je     L553
  movslq %esi,%rax
  shl    $0x2,%rax
  lea    (%r15,%rax,1),%rcx
  movss  (%rcx),%xmm1
  mulss  %xmm0,%xmm1
  movss  %xmm1,(%rcx)
  lea    0x0(%r13,%rax,1),%rcx
  movss  (%rcx),%xmm1
  mulss  %xmm2,%xmm1
  movss  %xmm1,(%rcx)
  lea    0x1(%rsi),%ecx
  cmp    %ebx,%ecx
  jge    L553
  lea    0x4(%rax),%rcx
  add    $0x2,%esi
  lea    (%r15,%rcx,1),%rdi
  add    %r13,%rcx
  movss  (%rdi),%xmm1
  mulss  %xmm0,%xmm1
  movss  %xmm1,(%rdi)
  movss  (%rcx),%xmm1
  mulss  %xmm2,%xmm1
  movss  %xmm1,(%rcx)
  cmp    %esi,%ebx
  jle    L553
  add    $0x8,%rax
  add    %rax,%r15
  add    %r13,%rax
  mulss  (%r15),%xmm0
  movss  %xmm0,(%r15)
  mulss  (%rax),%xmm2
  movss  %xmm2,(%rax)
  add    $0x48,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L525:
  movaps %xmm2,%xmm1
  xor    %eax,%eax
  jmp    L199
L327:
  movss  D16(%rip),%xmm2
  xor    %eax,%eax
  divss  %xmm0,%xmm2
  nopw   0x0(%rax,%rax,1)
L221:
  movss  (%r15,%rax,4),%xmm1
  mulss  %xmm0,%xmm1
  movss  %xmm1,(%r15,%rax,4)
  movss  0x0(%r13,%rax,4),%xmm1
  mulss  %xmm2,%xmm1
  movss  %xmm1,0x0(%r13,%rax,4)
  add    $0x1,%rax
  cmp    %eax,%ebx
  jg     L221
  jmp    L553
L308:
  movslq 0x3c(%rsp),%rsi
  mov    %r13,%rcx
  xor    %eax,%eax
  shl    $0x2,%rsi
  nopl   (%rax)
L566:
  movss  (%rcx),%xmm0
  add    0x3c(%rsp),%eax
  add    %rsi,%rcx
  mulss  %xmm0,%xmm0
  addss  %xmm0,%xmm2
  cmp    %eax,%ebx
  jg     L566
  jmp    L300
L560:
  xor    %eax,%eax
  xchg   %ax,%ax
L421:
  movss  (%r15,%rax,4),%xmm1
  mulss  %xmm0,%xmm1
  movss  %xmm1,(%r15,%rax,4)
  movss  0x0(%r13,%rax,4),%xmm1
  mulss  %xmm0,%xmm1
  movss  %xmm1,0x0(%r13,%rax,4)
  add    $0x1,%rax
  cmp    %eax,%ebx
  jg     L421
  jmp    L539
L487:
  movss  D16(%rip),%xmm0
  test   %ebx,%ebx
  mov    $0x1,%ecx
  cmovg  %ebx,%ecx
  movaps %xmm0,%xmm1
  divss  %xmm2,%xmm1
  jmp    L87
L53:
  xor    %esi,%esi
  xor    %eax,%eax
  jmp    L476
L33:
  xor    %esi,%esi
  xor    %eax,%eax
  jmp    L250
L208:
  xor    %eax,%eax
  jmp    L154
```

tool_calls: name: parse_data
arguments: tag: D29
type_guessed: f64
name: parse_data
arguments: tag: D79
type_guessed: f64
name: parse_data
arguments: tag: D56
type_guessed: f64
name: parse_data
arguments: tag: D78
type_guessed: f64
name: parse_data
arguments: tag: D16
type_guessed: byte[4]
name: parse_data
arguments: tag: D99
type_guessed: f32

tool: D29: 6.2831853072

tool: D79: 3.14159265358979

tool: D56: 0.5

tool: D78: 1

tool: {"D16": [0x00,0x00,0x80,0x3f]}

tool: D99: 2

assistant: ```c
void makehanning(float *H, float *A, float *S, int Nw, int N, int I, int odd) {
  int i;
  float sum;
  if (odd) {
    for (i = 0; i < Nw; i++)
      H[i] = A[i] = S[i] = sqrt(0.5 * (1. + cos(3.14159265358979 + 6.2831853072 * i / (Nw - 1))));
  } else {
    for (i = 0; i < Nw; i++)
      H[i] = A[i] = S[i] = 0.5 * (1. + cos(3.14159265358979 + 6.2831853072 * i / (Nw - 1)));
  }
  if (Nw > N) {
    float x;
    x = -(Nw - 1) / 2.;
    for (i = 0; i < Nw; i++, x += 1.)
      if (x != 0.) {
        A[i] *= N * sin(3.14159265358979 * x / N) / (3.14159265358979 * x);
        if (I)
          S[i] *= I * sin(3.14159265358979 * x / I) / (3.14159265358979 * x);
      }
  }
  for (sum = i = 0; i < Nw; i++)
    sum += A[i];
  for (i = 0; i < Nw; i++) {
    float afac = 2. / sum;
    float sfac = Nw > N ? 1. / afac : afac;
    A[i] *= afac;
    S[i] *= sfac;
  }
  if (Nw <= N && I) {
    for (sum = i = 0; i < Nw; i += I)
      sum += S[i] * S[i];
    for (sum = 1. / sum, i = 0; i < Nw; i++)
      S[i] *= sum;
  }
}
```