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

```asm
<PowerSpectrum>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  add    $0xffffffffffffff80,%rsp
  mov    %edi,-0x64(%rbp)
  mov    %rsi,-0x70(%rbp)
  mov    %rdx,-0x78(%rbp)
  mov    -0x64(%rbp),%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,-0x50(%rbp)
  pxor   %xmm1,%xmm1
  cvtsi2sdl -0x50(%rbp),%xmm1
  movsd  D48(%rip),%xmm0
  divsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x4c(%rbp)
  mov    -0x50(%rbp),%eax
  mov    $0x4,%esi
  mov    %eax,%edi
  call   <calloc@plt>
  mov    %rax,-0x20(%rbp)
  mov    -0x50(%rbp),%eax
  mov    $0x4,%esi
  mov    %eax,%edi
  call   <calloc@plt>
  mov    %rax,-0x18(%rbp)
  mov    -0x50(%rbp),%eax
  mov    $0x4,%esi
  mov    %eax,%edi
  call   <calloc@plt>
  mov    %rax,-0x10(%rbp)
  mov    -0x50(%rbp),%eax
  mov    $0x4,%esi
  mov    %eax,%edi
  call   <calloc@plt>
  mov    %rax,-0x8(%rbp)
  movl   $0x0,-0x5c(%rbp)
  jmp    L31
L27:
  mov    -0x5c(%rbp),%eax
  add    %eax,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x70(%rbp),%rax
  add    %rax,%rdx
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rcx
  mov    -0x20(%rbp),%rax
  add    %rcx,%rax
  movss  (%rdx),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x5c(%rbp),%eax
  add    %eax,%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x70(%rbp),%rax
  add    %rax,%rdx
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rcx
  mov    -0x18(%rbp),%rax
  add    %rcx,%rax
  movss  (%rdx),%xmm0
  movss  %xmm0,(%rax)
  addl   $0x1,-0x5c(%rbp)
L31:
  mov    -0x5c(%rbp),%eax
  cmp    -0x50(%rbp),%eax
  jl     L27
  mov    -0x8(%rbp),%rdi
  mov    -0x10(%rbp),%rsi
  mov    -0x18(%rbp),%rcx
  mov    -0x20(%rbp),%rdx
  mov    -0x50(%rbp),%eax
  mov    %rdi,%r9
  mov    %rsi,%r8
  mov    $0x0,%esi
  mov    %eax,%edi
  call   <FFT@plt>
  movss  -0x4c(%rbp),%xmm1
  movss  D31(%rip),%xmm0
  mulss  %xmm0,%xmm1
  movd   %xmm1,%eax
  movd   %eax,%xmm0
  call   <sin@plt>
  pxor   %xmm0,%xmm0
  cvtsi2ss %rax,%xmm0
  movss  %xmm0,-0x48(%rbp)
  pxor   %xmm1,%xmm1
  cvtss2sd -0x48(%rbp),%xmm1
  movsd  D25(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  pxor   %xmm0,%xmm0
  cvtss2sd -0x48(%rbp),%xmm0
  mulsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x44(%rbp)
  mov    -0x4c(%rbp),%eax
  movd   %eax,%xmm0
  call   <sin@plt>
  pxor   %xmm0,%xmm0
  cvtsi2ss %rax,%xmm0
  movss  %xmm0,-0x40(%rbp)
  movss  -0x44(%rbp),%xmm1
  movss  D0(%rip),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x58(%rbp)
  movss  -0x40(%rbp),%xmm0
  movss  %xmm0,-0x54(%rbp)
  movl   $0x1,-0x5c(%rbp)
  jmp    L16
L19:
  mov    -0x50(%rbp),%eax
  sub    -0x5c(%rbp),%eax
  mov    %eax,-0x30(%rbp)
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  addss  %xmm0,%xmm1
  movss  D31(%rip),%xmm0
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x3c(%rbp)
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm2
  movaps %xmm0,%xmm1
  subss  %xmm2,%xmm1
  movss  D31(%rip),%xmm0
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x2c(%rbp)
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  addss  %xmm0,%xmm1
  movss  D31(%rip),%xmm0
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x28(%rbp)
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm2
  movaps %xmm0,%xmm1
  subss  %xmm2,%xmm1
  movss  D73(%rip),%xmm0
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x24(%rbp)
  movss  -0x58(%rbp),%xmm0
  mulss  -0x28(%rbp),%xmm0
  addss  -0x3c(%rbp),%xmm0
  movss  -0x54(%rbp),%xmm1
  mulss  -0x24(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x38(%rbp)
  movss  -0x58(%rbp),%xmm0
  mulss  -0x24(%rbp),%xmm0
  movaps %xmm0,%xmm1
  addss  -0x2c(%rbp),%xmm1
  movss  -0x54(%rbp),%xmm0
  mulss  -0x28(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x38(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  %xmm0,%xmm1
  movss  -0x34(%rbp),%xmm0
  mulss  %xmm0,%xmm0
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  addss  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  movss  -0x58(%rbp),%xmm0
  movaps %xmm0,%xmm2
  mulss  -0x28(%rbp),%xmm2
  movss  -0x3c(%rbp),%xmm0
  movaps %xmm0,%xmm1
  subss  %xmm2,%xmm1
  movss  -0x54(%rbp),%xmm0
  mulss  -0x24(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x38(%rbp)
  movss  -0x58(%rbp),%xmm0
  mulss  -0x24(%rbp),%xmm0
  movaps %xmm0,%xmm1
  subss  -0x2c(%rbp),%xmm1
  movss  -0x54(%rbp),%xmm0
  mulss  -0x28(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x38(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  %xmm0,%xmm1
  movss  -0x34(%rbp),%xmm0
  mulss  %xmm0,%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  addss  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  movss  -0x58(%rbp),%xmm0
  movss  %xmm0,-0x48(%rbp)
  movss  -0x48(%rbp),%xmm0
  mulss  -0x44(%rbp),%xmm0
  movss  -0x54(%rbp),%xmm1
  mulss  -0x40(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  -0x58(%rbp),%xmm1
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x58(%rbp)
  movss  -0x54(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x44(%rbp),%xmm1
  movss  -0x48(%rbp),%xmm0
  mulss  -0x40(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  -0x54(%rbp),%xmm1
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x54(%rbp)
  addl   $0x1,-0x5c(%rbp)
L16:
  mov    -0x50(%rbp),%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  cmp    %eax,-0x5c(%rbp)
  jl     L19
  mov    -0x10(%rbp),%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x3c(%rbp)
  mov    -0x8(%rbp),%rax
  movss  (%rax),%xmm0
  movss  -0x3c(%rbp),%xmm1
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x38(%rbp)
  mov    -0x8(%rbp),%rax
  movss  (%rax),%xmm1
  movss  -0x3c(%rbp),%xmm0
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x38(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  %xmm0,%xmm1
  movss  -0x34(%rbp),%xmm0
  mulss  %xmm0,%xmm0
  addss  %xmm1,%xmm0
  mov    -0x78(%rbp),%rax
  movss  %xmm0,(%rax)
  mov    -0x50(%rbp),%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x10(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x38(%rbp)
  mov    -0x50(%rbp),%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x38(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  %xmm0,%xmm1
  movss  -0x34(%rbp),%xmm0
  mulss  %xmm0,%xmm0
  mov    -0x50(%rbp),%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  addss  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x20(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0x18(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0x10(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0x8(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  nop
  leave
  ret
```

tool_calls: name: parse_data
arguments: data_label: D48
data_type: f64
name: parse_data
arguments: data_label: D31
data_type: f32
name: parse_data
arguments: data_label: D25
data_type: byte[8]
name: parse_data
arguments: data_label: D0
data_type: f32
name: parse_data
arguments: data_label: D73
data_type: byte[4]

tool: D48: 3.141592653589793

tool: D31: 0.5

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

tool: D0: 1

tool: {"D73": [0x00,0x00,0x00,0xbf]}

assistant: ```c
void PowerSpectrum(int NumSamples, float *In, float *Out) {
  int Half, i, i3;
  float theta, wtemp, wpr, wpi, wr, wi;
  float h1r, h1i, h2r, h2i, rt, it;
  float *tmpReal;
  float *tmpImag;
  float *RealOut;
  float *ImagOut;
  Half = NumSamples / 2;
  theta = 3.14159265358979323846 / Half;
  tmpReal = (float *)calloc(Half, sizeof(float));
  tmpImag = (float *)calloc(Half, sizeof(float));
  RealOut = (float *)calloc(Half, sizeof(float));
  ImagOut = (float *)calloc(Half, sizeof(float));
  for (i = 0; i < Half; i++) {
    tmpReal[i] = In[2 * i];
    tmpImag[i] = In[2 * i + 1];
  }
  FFT(Half, 0, tmpReal, tmpImag, RealOut, ImagOut);
  wtemp = (float)sin(0.5 * theta);
  wpr = -2.0 * wtemp * wtemp;
  wpi = (float)sin(theta);
  wr = 1.0 + wpr;
  wi = wpi;
  for (i = 1; i < Half / 2; i++) {
    i3 = Half - i;
    h1r = 0.5 * (RealOut[i] + RealOut[i3]);
    h1i = 0.5 * (ImagOut[i] - ImagOut[i3]);
    h2r = 0.5 * (ImagOut[i] + ImagOut[i3]);
    h2i = -0.5 * (RealOut[i] - RealOut[i3]);
    rt = h1r + wr * h2r - wi * h2i;
    it = h1i + wr * h2i + wi * h2r;
    Out[i] = rt * rt + it * it;
    rt = h1r - wr * h2r + wi * h2i;
    it = -h1i + wr * h2i + wi * h2r;
    Out[i3] = rt * rt + it * it;
    wr = (wtemp = wr) * wpr - wi * wpi + wr;
    wi = wi * wpr + wtemp * wpi + wi;
  }
  rt = (h1r = RealOut[0]) + ImagOut[0];
  it = h1r - ImagOut[0];
  Out[0] = rt * rt + it * it;
  rt = RealOut[Half / 2];
  it = ImagOut[Half / 2];
  Out[Half / 2] = rt * rt + it * it;
  free(tmpReal);
  free(tmpImag);
  free(RealOut);
  free(ImagOut);
}
```