user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<wwghts>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xf0,%rsp
  mov    %rdi,-0xd8(%rbp)
  mov    %esi,-0xdc(%rbp)
  movss  %xmm0,-0xe0(%rbp)
  mov    %rdx,-0xe8(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  pxor   %xmm0,%xmm0
  cvtss2sd -0xe0(%rbp),%xmm0
  movsd  %xmm0,-0xb0(%rbp)
  movsd  D339(%rip),%xmm0
  divsd  -0xb0(%rbp),%xmm0
  movsd  %xmm0,-0xa8(%rbp)
  movl   $0x1,-0xc8(%rbp)
  jmp    L130
L60:
  mov    -0xc8(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  addl   $0x1,-0xc8(%rbp)
L130:
  mov    -0xc8(%rbp),%eax
  cmp    -0xdc(%rbp),%eax
  jle    L60
  lea    -0x90(%rbp),%rax
  mov    -0xe8(%rbp),%rcx
  mov    $0x4,%esi
  mov    D377(%rip),%rdx
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  call   *%rcx
  cmpl   $0x3,-0xdc(%rbp)
  jle    L24
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0xb8(%rbp)
  movl   $0x1,-0xc8(%rbp)
  jmp    L108
L97:
  mov    -0xc8(%rbp),%eax
  sub    $0x1,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movsd  %xmm0,-0xa0(%rbp)
  movsd  -0xb8(%rbp),%xmm0
  movsd  %xmm0,-0x98(%rbp)
  movsd  -0x98(%rbp),%xmm0
  addsd  -0xb0(%rbp),%xmm0
  movsd  %xmm0,-0xb8(%rbp)
  mov    -0xdc(%rbp),%eax
  sub    $0x3,%eax
  cmp    %eax,-0xc8(%rbp)
  jne    L28
  mov    -0xdc(%rbp),%eax
  sub    $0x1,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movsd  -0xb0(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0xb8(%rbp)
L28:
  mov    -0xb8(%rbp),%rdx
  lea    -0x60(%rbp),%rax
  mov    -0xe8(%rbp),%rcx
  mov    $0x4,%esi
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  call   *%rcx
  movsd  D339(%rip),%xmm0
  movsd  %xmm0,-0xc0(%rbp)
  movl   $0x1,-0xc4(%rbp)
  jmp    L26
L56:
  mov    -0xc4(%rbp),%eax
  cltq
  movsd  -0x60(%rbp,%rax,8),%xmm0
  mov    -0xc4(%rbp),%eax
  cltq
  movsd  -0x90(%rbp,%rax,8),%xmm1
  subsd  %xmm1,%xmm0
  mulsd  -0xc0(%rbp),%xmm0
  mov    -0xc4(%rbp),%eax
  cltq
  movsd  %xmm0,-0x30(%rbp,%rax,8)
  addl   $0x1,-0xc4(%rbp)
  movsd  -0xc0(%rbp),%xmm0
  mulsd  -0xa8(%rbp),%xmm0
  movsd  %xmm0,-0xc0(%rbp)
L26:
  cmpl   $0x4,-0xc4(%rbp)
  jle    L56
  mov    -0xc8(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  pxor   %xmm2,%xmm2
  cvtss2sd %xmm0,%xmm2
  movsd  -0xa0(%rbp),%xmm1
  movsd  D339(%rip),%xmm0
  addsd  %xmm0,%xmm1
  movsd  -0xa0(%rbp),%xmm3
  movsd  D134(%rip),%xmm0
  addsd  %xmm3,%xmm0
  mulsd  %xmm0,%xmm1
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm0
  addsd  %xmm3,%xmm0
  mulsd  %xmm0,%xmm1
  movsd  -0x28(%rbp),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm1
  mulsd  %xmm1,%xmm3
  movsd  D244(%rip),%xmm1
  addsd  %xmm3,%xmm1
  mulsd  -0xa0(%rbp),%xmm1
  movapd %xmm1,%xmm3
  movsd  D124(%rip),%xmm1
  addsd  %xmm1,%xmm3
  movsd  -0x20(%rbp),%xmm1
  mulsd  %xmm1,%xmm3
  movapd %xmm0,%xmm1
  subsd  %xmm3,%xmm1
  movsd  -0xa0(%rbp),%xmm3
  movsd  D134(%rip),%xmm0
  addsd  %xmm0,%xmm3
  movsd  D21(%rip),%xmm0
  mulsd  %xmm0,%xmm3
  movsd  -0x18(%rbp),%xmm0
  mulsd  %xmm3,%xmm0
  addsd  %xmm1,%xmm0
  movsd  -0x10(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  movsd  D358(%rip),%xmm1
  divsd  %xmm1,%xmm0
  addsd  %xmm2,%xmm0
  mov    -0xc8(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0xc8(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  cvtss2sd %xmm0,%xmm1
  movsd  -0xa0(%rbp),%xmm0
  movq   D162(%rip),%xmm2
  xorpd  %xmm0,%xmm2
  movsd  -0xa0(%rbp),%xmm3
  movsd  D134(%rip),%xmm0
  addsd  %xmm3,%xmm0
  mulsd  %xmm0,%xmm2
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm0
  addsd  %xmm3,%xmm0
  mulsd  %xmm0,%xmm2
  movsd  -0x28(%rbp),%xmm0
  mulsd  %xmm0,%xmm2
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm0
  mulsd  %xmm0,%xmm3
  movsd  D392(%rip),%xmm0
  addsd  %xmm3,%xmm0
  movapd %xmm0,%xmm3
  mulsd  -0xa0(%rbp),%xmm3
  movsd  D358(%rip),%xmm0
  addsd  %xmm0,%xmm3
  movsd  -0x20(%rbp),%xmm0
  mulsd  %xmm3,%xmm0
  addsd  %xmm2,%xmm0
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm2
  mulsd  %xmm2,%xmm3
  movsd  D355(%rip),%xmm2
  addsd  %xmm2,%xmm3
  movsd  -0x18(%rbp),%xmm2
  mulsd  %xmm2,%xmm3
  movapd %xmm0,%xmm2
  subsd  %xmm3,%xmm2
  movsd  -0x10(%rbp),%xmm0
  addsd  %xmm0,%xmm2
  movsd  D206(%rip),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  mov    -0xc8(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0xc8(%rbp),%eax
  cltq
  add    $0x2,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  pxor   %xmm2,%xmm2
  cvtss2sd %xmm0,%xmm2
  movsd  -0xa0(%rbp),%xmm1
  movsd  D339(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0xa0(%rbp),%xmm1
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm0
  addsd  %xmm3,%xmm0
  mulsd  %xmm0,%xmm1
  movsd  -0x28(%rbp),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm1
  mulsd  %xmm1,%xmm3
  movsd  D340(%rip),%xmm1
  addsd  %xmm3,%xmm1
  movapd %xmm1,%xmm3
  mulsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm1
  addsd  %xmm1,%xmm3
  movsd  -0x20(%rbp),%xmm1
  mulsd  %xmm1,%xmm3
  movapd %xmm0,%xmm1
  subsd  %xmm3,%xmm1
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm0
  mulsd  %xmm0,%xmm3
  movsd  D278(%rip),%xmm0
  addsd  %xmm0,%xmm3
  movsd  -0x18(%rbp),%xmm0
  mulsd  %xmm3,%xmm0
  addsd  %xmm1,%xmm0
  movsd  -0x10(%rbp),%xmm3
  movapd %xmm0,%xmm1
  subsd  %xmm3,%xmm1
  movsd  D206(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  addsd  %xmm2,%xmm0
  mov    -0xc8(%rbp),%eax
  cltq
  add    $0x2,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0xc8(%rbp),%eax
  cltq
  add    $0x3,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  cvtss2sd %xmm0,%xmm1
  movsd  -0xa0(%rbp),%xmm0
  movq   D162(%rip),%xmm2
  xorpd  %xmm0,%xmm2
  movsd  -0xa0(%rbp),%xmm3
  movsd  D339(%rip),%xmm0
  addsd  %xmm3,%xmm0
  mulsd  %xmm0,%xmm2
  movsd  -0xa0(%rbp),%xmm3
  movsd  D134(%rip),%xmm0
  addsd  %xmm3,%xmm0
  mulsd  %xmm0,%xmm2
  movsd  -0x28(%rbp),%xmm0
  mulsd  %xmm0,%xmm2
  movsd  -0xa0(%rbp),%xmm3
  movsd  D21(%rip),%xmm0
  mulsd  %xmm0,%xmm3
  movsd  D358(%rip),%xmm0
  addsd  %xmm3,%xmm0
  movapd %xmm0,%xmm3
  mulsd  -0xa0(%rbp),%xmm3
  movsd  D134(%rip),%xmm0
  addsd  %xmm0,%xmm3
  movsd  -0x20(%rbp),%xmm0
  mulsd  %xmm3,%xmm0
  addsd  %xmm2,%xmm0
  movsd  -0xa0(%rbp),%xmm3
  movsd  D339(%rip),%xmm2
  addsd  %xmm2,%xmm3
  movsd  D21(%rip),%xmm2
  mulsd  %xmm2,%xmm3
  movsd  -0x18(%rbp),%xmm2
  mulsd  %xmm2,%xmm3
  movapd %xmm0,%xmm2
  subsd  %xmm3,%xmm2
  movsd  -0x10(%rbp),%xmm0
  addsd  %xmm2,%xmm0
  movsd  D358(%rip),%xmm2
  divsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  mov    -0xc8(%rbp),%eax
  cltq
  add    $0x3,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0xd8(%rbp),%rax
  add    %rdx,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  movl   $0x1,-0xc4(%rbp)
  jmp    L101
L140:
  mov    -0xc4(%rbp),%eax
  cltq
  movsd  -0x60(%rbp,%rax,8),%xmm0
  mov    -0xc4(%rbp),%eax
  cltq
  movsd  %xmm0,-0x90(%rbp,%rax,8)
  addl   $0x1,-0xc4(%rbp)
L101:
  cmpl   $0x4,-0xc4(%rbp)
  jle    L140
  addl   $0x1,-0xc8(%rbp)
L108:
  mov    -0xdc(%rbp),%eax
  sub    $0x2,%eax
  cmp    %eax,-0xc8(%rbp)
  jl     L97
  jmp    L148
L24:
  cmpl   $0x3,-0xdc(%rbp)
  jne    L52
  movsd  -0xb0(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  movq   %xmm0,%rdx
  lea    -0x60(%rbp),%rax
  mov    -0xe8(%rbp),%rcx
  mov    $0x3,%esi
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  call   *%rcx
  movsd  -0x58(%rbp),%xmm0
  movsd  -0x88(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  -0x80(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  mulsd  -0xa8(%rbp),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0xa8(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  movsd  -0x48(%rbp),%xmm0
  movsd  -0x78(%rbp),%xmm2
  subsd  %xmm2,%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x28(%rbp),%xmm0
  movsd  -0x20(%rbp),%xmm2
  movsd  D37(%rip),%xmm1
  mulsd  %xmm1,%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  -0x18(%rbp),%xmm2
  movsd  D206(%rip),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  mov    -0xd8(%rbp),%rax
  add    $0x4,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  movsd  -0x20(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  movsd  -0x18(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  mov    -0xd8(%rbp),%rax
  add    $0x8,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  movsd  -0x18(%rbp),%xmm0
  movsd  -0x20(%rbp),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  D206(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  mov    -0xd8(%rbp),%rax
  add    $0xc,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  jmp    L148
L52:
  cmpl   $0x2,-0xdc(%rbp)
  jne    L148
  mov    -0xb0(%rbp),%rdx
  lea    -0x60(%rbp),%rax
  mov    -0xe8(%rbp),%rcx
  mov    $0x2,%esi
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  call   *%rcx
  movsd  -0x58(%rbp),%xmm0
  movsd  -0x88(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  movsd  -0x50(%rbp),%xmm1
  movsd  -0x80(%rbp),%xmm2
  subsd  %xmm2,%xmm1
  mulsd  -0xa8(%rbp),%xmm1
  mov    -0xd8(%rbp),%rax
  add    $0x8,%rax
  cvtsd2ss %xmm1,%xmm1
  movss  %xmm1,(%rax)
  movss  (%rax),%xmm1
  cvtss2sd %xmm1,%xmm1
  subsd  %xmm1,%xmm0
  mov    -0xd8(%rbp),%rax
  add    $0x4,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
L148:
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L69
  call   <__stack_chk_fail@plt>
L69:
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: data_label: D339
data_type: f64
name: disassemble_data
arguments: data_label: D377
data_type: f64
name: disassemble_data
arguments: data_label: D134
data_type: f64
name: disassemble_data
arguments: data_label: D21
data_type: f64
name: disassemble_data
arguments: data_label: D244
data_type: f64
name: disassemble_data
arguments: data_label: D124
data_type: f64
name: disassemble_data
arguments: data_label: D358
data_type: f64
name: disassemble_data
arguments: data_label: D162
data_type: byte[8]
name: disassemble_data
arguments: data_label: D392
data_type: f64
name: disassemble_data
arguments: data_label: D355
data_type: f64
name: disassemble_data
arguments: data_label: D206
data_type: f64
name: disassemble_data
arguments: data_label: D340
data_type: f64
name: disassemble_data
arguments: data_label: D278
data_type: f64
name: disassemble_data
arguments: data_label: D37
data_type: f64

tool: D339: 1

tool: D377: 0

tool: D134: 2

tool: D21: 3

tool: D244: 12

tool: D124: 11

tool: D358: 6

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

tool: D392: 10

tool: D355: 5

tool: D206: 0.5

tool: D340: 8

tool: D278: 4

tool: D37: 1.5

assistant: ```c
void wwghts(float wghts[], int n, float h, void (*kermom)(double[], double, int)) {
  int j, k;
  double wold[5], wnew[5], w[5], hh, hi, c, fac, a, b;
  hh = h;
  hi = 1.0 / hh;
  for (j = 1; j <= n; j++)
    wghts[j] = 0.0;
  (*kermom)(wold, 0.0, 4);
  if (n >= 4) {
    b = 0.0;
    for (j = 1; j <= n - 3; j++) {
      c = j - 1;
      a = b;
      b = a + hh;
      if (j == n - 3)
        b = (n - 1) * hh;
      (*kermom)(wnew, b, 4);
      for (fac = 1.0, k = 1; k <= 4; k++, fac *= hi)
        w[k] = (wnew[k] - wold[k]) * fac;
      wghts[j] += (((c + 1.0) * (c + 2.0) * (c + 3.0) * w[1] - (11.0 + c * (12.0 + c * 3.0)) * w[2] + 3.0 * (c + 2.0) * w[3] - w[4]) / 6.0);
      wghts[j + 1] += ((-c * (c + 2.0) * (c + 3.0) * w[1] + (6.0 + c * (10.0 + c * 3.0)) * w[2] - (3.0 * c + 5.0) * w[3] + w[4]) * 0.5);
      wghts[j + 2] += ((c * (c + 1.0) * (c + 3.0) * w[1] - (3.0 + c * (8.0 + c * 3.0)) * w[2] + (3.0 * c + 4.0) * w[3] - w[4]) * 0.5);
      wghts[j + 3] += ((-c * (c + 1.0) * (c + 2.0) * w[1] + (2.0 + c * (6.0 + c * 3.0)) * w[2] - 3.0 * (c + 1.0) * w[3] + w[4]) / 6.0);
      for (k = 1; k <= 4; k++)
        wold[k] = wnew[k];
    }
  } else if (n == 3) {
    (*kermom)(wnew, hh + hh, 3);
    w[1] = wnew[1] - wold[1];
    w[2] = hi * (wnew[2] - wold[2]);
    w[3] = hi * hi * (wnew[3] - wold[3]);
    wghts[1] = w[1] - 1.5 * w[2] + 0.5 * w[3];
    wghts[2] = 2.0 * w[2] - w[3];
    wghts[3] = 0.5 * (w[3] - w[2]);
  } else if (n == 2) {
    (*kermom)(wnew, hh, 2);
    wghts[1] = wnew[1] - wold[1] - (wghts[2] = hi * (wnew[2] - wold[2]));
  }
}
```