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

```asm
<gp_pt_alp>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    %rdi,-0x78(%rbp)
  mov    %rsi,-0x80(%rbp)
  mov    %edx,-0x84(%rbp)
  mov    %ecx,-0x88(%rbp)
  mov    %r8d,-0x8c(%rbp)
  cmpl   $0x1,-0x88(%rbp)
  jne    L7
  movl   $0x0,-0x64(%rbp)
  jmp    L52
L15:
  mov    -0x80(%rbp),%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0x80(%rbp),%rax
  add    $0x8,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x28(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  movsd  -0x20(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  addsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    -0x78(%rbp),%rdx
  mov    %rax,(%rdx)
  mov    -0x78(%rbp),%rax
  mov    (%rax),%rax
  mov    -0x78(%rbp),%rdx
  lea    0x18(%rdx),%rbx
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  mov    -0x78(%rbp),%rax
  lea    0x30(%rax),%rbx
  movsd  -0x28(%rbp),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <atan2@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  addl   $0x1,-0x64(%rbp)
  addq   $0x40,-0x78(%rbp)
  addq   $0x10,-0x80(%rbp)
L52:
  mov    -0x64(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L15
  jmp    L102
L7:
  pxor   %xmm1,%xmm1
  cvtsi2sdl -0x88(%rbp),%xmm1
  movsd  D11(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  cmpl   $0x0,-0x8c(%rbp)
  setne  %al
  movzbl %al,%edx
  mov    -0x84(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0x5c(%rbp)
  movl   $0x0,-0x64(%rbp)
  jmp    L71
L93:
  mov    -0x64(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jne    L77
  mov    -0x8c(%rbp),%eax
  mov    %eax,-0x88(%rbp)
  pxor   %xmm1,%xmm1
  cvtsi2sdl -0x8c(%rbp),%xmm1
  movsd  D11(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x30(%rbp)
L77:
  movl   $0x1,-0x60(%rbp)
  mov    -0x80(%rbp),%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  addq   $0x8,-0x80(%rbp)
  mov    -0x80(%rbp),%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x58(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  movsd  -0x50(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x48(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,-0x40(%rbp)
  jmp    L99
L117:
  addq   $0x8,-0x80(%rbp)
  mov    -0x80(%rbp),%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  addq   $0x8,-0x80(%rbp)
  mov    -0x80(%rbp),%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x58(%rbp),%xmm0
  addsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x50(%rbp),%xmm0
  addsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x28(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  movsd  -0x20(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x18(%rbp),%xmm0
  movsd  -0x48(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x18(%rbp),%xmm0
  comisd -0x38(%rbp),%xmm0
  jbe    L98
  movsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  jmp    L40
L98:
  movsd  -0x40(%rbp),%xmm0
  comisd -0x18(%rbp),%xmm0
  jbe    L40
  movsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,-0x40(%rbp)
L40:
  addl   $0x1,-0x60(%rbp)
L99:
  mov    -0x60(%rbp),%eax
  cmp    -0x88(%rbp),%eax
  jl     L117
  movsd  -0x48(%rbp),%xmm0
  mulsd  -0x30(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    -0x78(%rbp),%rdx
  mov    %rax,(%rdx)
  mov    -0x78(%rbp),%rax
  mov    (%rax),%rax
  mov    -0x78(%rbp),%rdx
  lea    0x18(%rdx),%rbx
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  mov    -0x78(%rbp),%rax
  lea    0x8(%rax),%rbx
  mov    -0x40(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  mov    (%rbx),%rax
  mov    -0x78(%rbp),%rdx
  lea    0x20(%rdx),%rbx
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  mov    -0x78(%rbp),%rax
  lea    0x30(%rax),%rbx
  movsd  -0x58(%rbp),%xmm0
  mov    -0x50(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <atan2@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  mov    -0x78(%rbp),%rax
  lea    0x10(%rax),%rbx
  mov    -0x38(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  mov    (%rbx),%rax
  mov    -0x78(%rbp),%rdx
  lea    0x28(%rdx),%rbx
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  addl   $0x1,-0x64(%rbp)
  addq   $0x40,-0x78(%rbp)
  addq   $0x8,-0x80(%rbp)
L71:
  mov    -0x64(%rbp),%eax
  cmp    -0x5c(%rbp),%eax
  jl     L93
L102:
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

tool_calls: name: read_data
arguments: tag: D11
type_guessed: f64

tool: D11: 1

assistant: ```c
void gp_pt_alp(double *to, const double *p, int cnt, int siz, int rem) {
  double x, y;
  int i;
  if (siz == 1) {
    for (i = 0; i < cnt; i++, to += 8, p += 2)
      x = *p, y = p[1], to[3] = log(to[0] = sqrt(x * x + y * y)), to[6] = atan2(y, x);
    return;
  }
  double z, xa, ya, za, zm, zM, sz_1 = 1.0 / (double)siz;
  int j, i1 = cnt + !!rem;
  for (i = 0; i < i1; i++, to += 8, p++) {
    if (i == cnt)
      siz = rem, sz_1 = 1.0 / (double)(rem);
    for (j = 1, xa = *p, ya = *++p, zm = zM = za = xa * xa + ya * ya; j < siz; j++) {
      x = *++p, y = *++p, xa += x, ya += y;
      za += (z = x * x + y * y);
      if (z > zM)
        zM = z;
      else if (z < zm)
        zm = z;
    }
    to[3] = log(to[0] = sqrt(za * sz_1));
    to[4] = log(to[1] = sqrt(zm));
    to[6] = atan2(ya, xa);
    to[5] = log(to[2] = sqrt(zM));
  }
}
```