user: 请将这段汇编代码片段转换成等效的C代码:

```asm
<tide_pl>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x68,%rsp
  mov    %rdi,%r12
  mov    %rsi,%rbp
  movsd  %xmm0,(%rsp)
  mov    %rdx,%rbx
  mov    %rcx,%r13
  mov    %fs:0x28,%rax
  mov    %rax,0x58(%rsp)
  xor    %eax,%eax
  movsd  D32(%rip),%xmm1
  movapd %xmm1,%xmm0
  mulsd  (%rdx),%xmm0
  mulsd  0x8(%rdx),%xmm1
  lea    D170(%rip),%rsi
  mov    $0x4,%edi
  mov    $0x2,%eax
  call   <trace@plt>
  mov    $0x3,%esi
  mov    %rbp,%rdi
  call   <norm@plt>
  movapd %xmm0,%xmm1
  pxor   %xmm0,%xmm0
  comisd %xmm1,%xmm0
  jae    L4
  movsd  0x0(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movq   %xmm0,%r15
  movsd  %xmm0,0x40(%rsp)
  movsd  0x8(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movq   %xmm0,%r14
  movsd  %xmm0,0x48(%rsp)
  movsd  0x10(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,0x50(%rsp)
  movsd  (%rsp),%xmm2
  divsd  D134(%rip),%xmm2
  movsd  D46(%rip),%xmm3
  mulsd  %xmm3,%xmm2
  mulsd  %xmm3,%xmm2
  movapd %xmm1,%xmm3
  mulsd  %xmm1,%xmm3
  mulsd  %xmm1,%xmm3
  divsd  %xmm3,%xmm2
  movsd  %xmm2,(%rsp)
  mulsd  D50(%rip),%xmm2
  movapd %xmm2,%xmm8
  divsd  %xmm1,%xmm8
  movsd  %xmm8,0x10(%rsp)
  call   <asin@plt>
  movsd  %xmm0,0x8(%rsp)
  movq   %r15,%xmm1
  movq   %r14,%xmm0
  call   <atan2@plt>
  movq   %xmm0,%r14
  movsd  0x8(%rsp),%xmm0
  call   <cos@plt>
  movsd  %xmm0,0x20(%rsp)
  lea    0x38(%rsp),%rdi
  lea    0x30(%rsp),%rsi
  movsd  (%rbx),%xmm0
  call   <sincos@plt>
  mov    0x30(%rsp),%r15
  movsd  0x38(%rsp),%xmm1
  movsd  D124(%rip),%xmm5
  mulsd  %xmm1,%xmm5
  movapd %xmm5,%xmm0
  mulsd  %xmm1,%xmm0
  subsd  D229(%rip),%xmm0
  movapd %xmm0,%xmm5
  mulsd  D51(%rip),%xmm5
  movq   %xmm5,%rbp
  mulsd  D82(%rip),%xmm5
  movapd %xmm5,%xmm9
  addsd  D166(%rip),%xmm9
  movsd  %xmm9,0x18(%rsp)
  lea    0x40(%rsp),%rdi
  mov    $0x3,%edx
  mov    %r12,%rsi
  call   <dot@plt>
  movapd %xmm0,%xmm1
  movsd  D124(%rip),%xmm6
  movsd  (%rsp),%xmm7
  mulsd  %xmm7,%xmm6
  movsd  0x18(%rsp),%xmm9
  mulsd  %xmm9,%xmm6
  mulsd  %xmm0,%xmm6
  movsd  D196(%rip),%xmm2
  movapd %xmm0,%xmm5
  mulsd  %xmm2,%xmm5
  movapd %xmm5,%xmm3
  mulsd  %xmm0,%xmm3
  subsd  D51(%rip),%xmm3
  movq   %rbp,%xmm10
  mulsd  D73(%rip),%xmm10
  movsd  D219(%rip),%xmm4
  subsd  %xmm10,%xmm4
  mulsd  %xmm4,%xmm3
  movsd  D124(%rip),%xmm11
  mulsd  %xmm9,%xmm11
  movapd %xmm11,%xmm0
  mulsd  %xmm1,%xmm0
  mulsd  %xmm1,%xmm0
  subsd  %xmm0,%xmm3
  mulsd  %xmm7,%xmm3
  movapd %xmm1,%xmm12
  mulsd  D18(%rip),%xmm12
  movapd %xmm12,%xmm4
  mulsd  %xmm1,%xmm4
  subsd  %xmm2,%xmm4
  movsd  D16(%rip),%xmm7
  movsd  0x10(%rsp),%xmm8
  movapd %xmm8,%xmm2
  mulsd  %xmm7,%xmm2
  mulsd  %xmm4,%xmm2
  addsd  %xmm6,%xmm2
  movq   %xmm2,%rbp
  movapd %xmm1,%xmm6
  mulsd  D217(%rip),%xmm6
  movapd %xmm6,%xmm0
  mulsd  %xmm1,%xmm0
  mulsd  %xmm1,%xmm0
  subsd  %xmm5,%xmm0
  mulsd  D43(%rip),%xmm0
  mulsd  %xmm7,%xmm4
  mulsd  %xmm1,%xmm4
  subsd  %xmm4,%xmm0
  mulsd  %xmm8,%xmm0
  movapd %xmm0,%xmm6
  addsd  %xmm3,%xmm6
  movsd  %xmm6,0x28(%rsp)
  movsd  0x8(%rsp),%xmm4
  addsd  %xmm4,%xmm4
  movapd %xmm4,%xmm0
  call   <sin@plt>
  movsd  %xmm0,0x8(%rsp)
  movsd  (%rbx),%xmm0
  addsd  %xmm0,%xmm0
  call   <sin@plt>
  movsd  %xmm0,0x10(%rsp)
  movsd  0x8(%rbx),%xmm0
  movapd %xmm0,%xmm6
  movq   %r14,%xmm3
  subsd  %xmm3,%xmm6
  movsd  %xmm6,0x18(%rsp)
  movapd %xmm6,%xmm0
  call   <sin@plt>
  movapd %xmm0,%xmm1
  movsd  (%rsp),%xmm5
  mulsd  D106(%rip),%xmm5
  movapd %xmm5,%xmm0
  mulsd  0x8(%rsp),%xmm0
  mulsd  0x10(%rsp),%xmm0
  mulsd  %xmm1,%xmm0
  movapd %xmm0,%xmm2
  addsd  0x28(%rsp),%xmm2
  movsd  %xmm2,0x8(%rsp)
  movsd  0x18(%rsp),%xmm6
  addsd  %xmm6,%xmm6
  movapd %xmm6,%xmm0
  call   <sin@plt>
  movsd  (%rsp),%xmm3
  mulsd  D44(%rip),%xmm3
  movsd  0x20(%rsp),%xmm7
  mulsd  %xmm7,%xmm3
  mulsd  %xmm7,%xmm3
  movq   %r15,%xmm7
  mulsd  %xmm7,%xmm3
  mulsd  %xmm7,%xmm3
  mulsd  %xmm0,%xmm3
  addsd  0x8(%rsp),%xmm3
  movq   %rbp,%xmm0
  mulsd  0x40(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mulsd  (%r12),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,0x0(%r13)
  movq   %rbp,%xmm1
  mulsd  0x48(%rsp),%xmm1
  movapd %xmm3,%xmm2
  mulsd  0x8(%r12),%xmm2
  addsd  %xmm2,%xmm1
  movsd  %xmm1,0x8(%r13)
  movq   %rbp,%xmm2
  mulsd  0x50(%rsp),%xmm2
  mulsd  0x10(%r12),%xmm3
  addsd  %xmm3,%xmm2
  movsd  %xmm2,0x10(%r13)
  lea    D4(%rip),%rsi
  mov    $0x5,%edi
  mov    $0x3,%eax
  call   <trace@plt>
L4:
  mov    0x58(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L13
  add    $0x68,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L13:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D32
datatype: byte[8]
name: unpack_data
arguments: tag: D170
datatype: string
name: unpack_data
arguments: tag: D134
datatype: byte[8]
name: unpack_data
arguments: tag: D46
datatype: byte[8]
name: unpack_data
arguments: tag: D50
datatype: f64
name: unpack_data
arguments: tag: D124
datatype: f64
name: unpack_data
arguments: tag: D229
datatype: f64
name: unpack_data
arguments: tag: D51
datatype: f64
name: unpack_data
arguments: tag: D82
datatype: f64
name: unpack_data
arguments: tag: D166
datatype: f64
name: unpack_data
arguments: tag: D196
datatype: f64
name: unpack_data
arguments: tag: D73
datatype: f64
name: unpack_data
arguments: tag: D219
datatype: f64
name: unpack_data
arguments: tag: D18
datatype: f64
name: unpack_data
arguments: tag: D16
datatype: f64
name: unpack_data
arguments: tag: D217
datatype: f64
name: unpack_data
arguments: tag: D43
datatype: f64
name: unpack_data
arguments: tag: D106
datatype: byte[8]
name: unpack_data
arguments: tag: D44
datatype: byte[8]
name: unpack_data
arguments: tag: D4
datatype: string

tool: {"D32": [0xf8,0xc1,0x63,0x1a,0xdc,0xa5,0x4c,0x40]}

tool: D170: tide_pl : pos=%.3f %.3f


tool: {"D134": [0x00,0x16,0x91,0x5b,0x66,0xa8,0xf6,0x42]}

tool: {"D46": [0x80,0xb8,0x2f,0x4c,0xd9,0x7f,0xc2,0x42]}

tool: D50: 6378137

tool: D124: 3

tool: D229: 1

tool: D51: 0.5

tool: D82: 0.0002

tool: D166: 0.0847

tool: D196: 1.5

tool: D73: 0.0006

tool: D219: 0.6078

tool: D18: 7.5

tool: D16: 0.015

tool: D217: 2.5

tool: D43: 0.292

tool: {"D106": [0xb8,0x1e,0x85,0xeb,0x51,0xb8,0x5e,0x3f]}

tool: {"D44": [0x46,0x25,0x75,0x02,0x9a,0x08,0x5b,0x3f]}

tool: D4: tide_pl : dr=%.3f %.3f %.3f


assistant: ```c
void tide_pl(const double *eu, const double *rp, double GMp, const double *pos, double *dr) {
  const double H3 = 0.292, L3 = 0.015;
  double r, ep[3], latp, lonp, p, K2, K3, a, H2, L2, dp, du, cosp, sinl, cosl;
  int i;
  trace(4, "tide_pl : pos=%.3f %.3f\n", pos[0] * (180.0 / 3.1415926535897932), pos[1] * (180.0 / 3.1415926535897932));
  if ((r = norm(rp, 3)) <= 0.0)
    return;
  for (i = 0; i < 3; i++)
    ep[i] = rp[i] / r;
  K2 = GMp / 3.986004415E+14 * ((6378137.0) * (6378137.0)) * ((6378137.0) * (6378137.0)) / (r * r * r);
  K3 = K2 * 6378137.0 / r;
  latp = asin(ep[2]);
  lonp = atan2(ep[1], ep[0]);
  cosp = cos(latp);
  sinl = sin(pos[0]);
  cosl = cos(pos[0]);
  p = (3.0 * sinl * sinl - 1.0) / 2.0;
  H2 = 0.6078 - 0.0006 * p;
  L2 = 0.0847 + 0.0002 * p;
  a = dot(ep, eu, 3);
  dp = K2 * 3.0 * L2 * a;
  du = K2 * (H2 * (1.5 * a * a - 0.5) - 3.0 * L2 * a * a);
  dp += K3 * L3 * (7.5 * a * a - 1.5);
  du += K3 * (H3 * (2.5 * a * a * a - 1.5 * a) - L3 * (7.5 * a * a - 1.5) * a);
  du += 3.0 / 4.0 * 0.0025 * K2 * sin(2.0 * latp) * sin(2.0 * pos[0]) * sin(pos[1] - lonp);
  du += 3.0 / 4.0 * 0.0022 * K2 * cosp * cosp * cosl * cosl * sin(2.0 * (pos[1] - lonp));
  dr[0] = dp * ep[0] + du * eu[0];
  dr[1] = dp * ep[1] + du * eu[1];
  dr[2] = dp * ep[2] + du * eu[2];
  trace(5, "tide_pl : dr=%.3f %.3f %.3f\n", dr[0], dr[1], dr[2]);
}
```