user: Please show me the C implementation that matches the assembly code listed below:

```asm
<CalcQuarticCoeffs>:
  endbr64
  mov    %rcx,%r8
  mov    (%rdi),%rcx
  mov    0x8(%rdi),%r9
  mov    0x10(%rdi),%rdi
  mov    (%rsi),%r10
  mov    0x8(%rsi),%r11
  mov    0x10(%rsi),%rsi
  test   %edx,%edx
  jle    L1
  mov    %edx,%edx
  mov    $0x0,%eax
  pxor   %xmm10,%xmm10
  movapd %xmm10,%xmm6
  movapd %xmm10,%xmm8
  movapd %xmm10,%xmm1
  movapd %xmm10,%xmm4
  movapd %xmm10,%xmm7
  movapd %xmm10,%xmm3
  movapd %xmm10,%xmm2
  movapd %xmm10,%xmm0
L7:
  movsd  (%rcx,%rax,8),%xmm14
  movsd  (%r9,%rax,8),%xmm12
  movsd  (%rdi,%rax,8),%xmm5
  movsd  (%r10,%rax,8),%xmm11
  movsd  (%r11,%rax,8),%xmm9
  movsd  (%rsi,%rax,8),%xmm13
  movapd %xmm14,%xmm15
  mulsd  %xmm11,%xmm15
  addsd  %xmm15,%xmm0
  movapd %xmm14,%xmm15
  mulsd  %xmm9,%xmm15
  addsd  %xmm15,%xmm2
  mulsd  %xmm13,%xmm14
  addsd  %xmm14,%xmm3
  movapd %xmm12,%xmm14
  mulsd  %xmm11,%xmm14
  addsd  %xmm14,%xmm7
  movapd %xmm12,%xmm14
  mulsd  %xmm9,%xmm14
  addsd  %xmm14,%xmm4
  mulsd  %xmm13,%xmm12
  addsd  %xmm12,%xmm1
  mulsd  %xmm5,%xmm11
  addsd  %xmm11,%xmm8
  mulsd  %xmm5,%xmm9
  addsd  %xmm9,%xmm6
  mulsd  %xmm13,%xmm5
  addsd  %xmm5,%xmm10
  add    $0x1,%rax
  cmp    %rdx,%rax
  jne    L7
L21:
  movapd %xmm0,%xmm5
  mulsd  %xmm0,%xmm5
  movsd  %xmm5,-0x18(%rsp)
  movapd %xmm4,%xmm14
  mulsd  %xmm4,%xmm14
  movapd %xmm10,%xmm13
  mulsd  %xmm10,%xmm13
  movapd %xmm2,%xmm11
  mulsd  %xmm2,%xmm11
  movsd  %xmm11,-0x10(%rsp)
  movapd %xmm1,%xmm12
  mulsd  %xmm1,%xmm12
  movapd %xmm3,%xmm9
  mulsd  %xmm3,%xmm9
  movsd  %xmm9,-0x28(%rsp)
  movapd %xmm7,%xmm15
  mulsd  %xmm7,%xmm15
  movsd  %xmm15,-0x20(%rsp)
  movapd %xmm6,%xmm11
  mulsd  %xmm6,%xmm11
  movapd %xmm8,%xmm15
  mulsd  %xmm8,%xmm15
  movapd %xmm1,%xmm9
  mulsd  %xmm6,%xmm9
  movapd %xmm4,%xmm5
  mulsd  %xmm10,%xmm5
  subsd  %xmm5,%xmm9
  addsd  %xmm9,%xmm9
  movsd  %xmm9,-0x8(%rsp)
  movapd %xmm14,%xmm5
  addsd  %xmm13,%xmm5
  movapd %xmm5,%xmm9
  movsd  -0x18(%rsp),%xmm5
  subsd  %xmm5,%xmm9
  addsd  %xmm12,%xmm9
  addsd  %xmm11,%xmm9
  movsd  %xmm9,-0x18(%rsp)
  addsd  %xmm14,%xmm5
  addsd  %xmm13,%xmm5
  movsd  -0x10(%rsp),%xmm13
  addsd  %xmm13,%xmm5
  addsd  -0x20(%rsp),%xmm5
  addsd  -0x28(%rsp),%xmm5
  addsd  %xmm15,%xmm5
  addsd  %xmm12,%xmm5
  addsd  %xmm11,%xmm5
  mulsd  D3(%rip),%xmm5
  movsd  %xmm5,0x10(%r8)
  movapd %xmm0,%xmm5
  mulsd  %xmm1,%xmm5
  movapd %xmm5,%xmm9
  mulsd  %xmm6,%xmm9
  movapd %xmm4,%xmm5
  mulsd  %xmm8,%xmm5
  mulsd  %xmm3,%xmm5
  addsd  %xmm9,%xmm5
  movapd %xmm2,%xmm12
  mulsd  %xmm10,%xmm12
  movapd %xmm12,%xmm9
  mulsd  %xmm7,%xmm9
  addsd  %xmm9,%xmm5
  movapd %xmm0,%xmm11
  mulsd  %xmm4,%xmm11
  movapd %xmm11,%xmm9
  mulsd  %xmm10,%xmm9
  subsd  %xmm9,%xmm5
  movapd %xmm1,%xmm12
  mulsd  %xmm8,%xmm12
  movapd %xmm12,%xmm9
  mulsd  %xmm2,%xmm9
  subsd  %xmm9,%xmm5
  movapd %xmm7,%xmm11
  mulsd  %xmm6,%xmm11
  movapd %xmm11,%xmm9
  mulsd  %xmm3,%xmm9
  subsd  %xmm9,%xmm5
  mulsd  D23(%rip),%xmm5
  movsd  %xmm5,0x8(%r8)
  movapd %xmm3,%xmm5
  addsd  %xmm8,%xmm5
  movapd %xmm5,%xmm14
  movapd %xmm1,%xmm12
  addsd  %xmm6,%xmm12
  movapd %xmm2,%xmm5
  addsd  %xmm7,%xmm5
  subsd  %xmm6,%xmm1
  subsd  %xmm8,%xmm3
  subsd  %xmm7,%xmm2
  movapd %xmm0,%xmm8
  addsd  %xmm4,%xmm8
  subsd  %xmm4,%xmm0
  movapd %xmm13,%xmm4
  addsd  -0x28(%rsp),%xmm4
  subsd  -0x20(%rsp),%xmm4
  subsd  %xmm15,%xmm4
  movsd  %xmm4,-0x28(%rsp)
  movq   D29(%rip),%xmm6
  movapd %xmm14,%xmm7
  xorpd  %xmm6,%xmm7
  movapd %xmm0,%xmm13
  subsd  %xmm10,%xmm13
  movapd %xmm3,%xmm11
  xorpd  %xmm6,%xmm11
  movapd %xmm11,%xmm9
  addsd  %xmm10,%xmm0
  movapd %xmm8,%xmm11
  subsd  %xmm10,%xmm11
  addsd  %xmm10,%xmm8
  xorpd  %xmm2,%xmm6
  movapd %xmm7,%xmm10
  mulsd  %xmm1,%xmm10
  movapd %xmm10,%xmm15
  movapd %xmm13,%xmm10
  mulsd  %xmm2,%xmm10
  addsd  %xmm10,%xmm15
  movapd %xmm9,%xmm10
  mulsd  %xmm12,%xmm10
  mulsd  %xmm0,%xmm2
  addsd  %xmm2,%xmm10
  mulsd  %xmm15,%xmm10
  movsd  -0x8(%rsp),%xmm15
  movapd %xmm15,%xmm2
  movsd  -0x18(%rsp),%xmm4
  addsd  %xmm4,%xmm2
  subsd  %xmm15,%xmm4
  mulsd  %xmm4,%xmm2
  movsd  -0x28(%rsp),%xmm4
  mulsd  %xmm4,%xmm4
  addsd  %xmm4,%xmm2
  addsd  %xmm10,%xmm2
  mulsd  %xmm12,%xmm7
  movapd %xmm11,%xmm4
  mulsd  %xmm5,%xmm4
  subsd  %xmm4,%xmm7
  mulsd  %xmm1,%xmm9
  movapd %xmm8,%xmm4
  mulsd  %xmm5,%xmm4
  subsd  %xmm4,%xmm9
  mulsd  %xmm9,%xmm7
  addsd  %xmm2,%xmm7
  movapd %xmm12,%xmm2
  mulsd  %xmm5,%xmm2
  mulsd  %xmm14,%xmm0
  addsd  %xmm2,%xmm0
  movapd %xmm6,%xmm2
  mulsd  %xmm1,%xmm2
  mulsd  %xmm14,%xmm8
  addsd  %xmm8,%xmm2
  mulsd  %xmm2,%xmm0
  addsd  %xmm7,%xmm0
  mulsd  %xmm1,%xmm5
  mulsd  %xmm3,%xmm13
  addsd  %xmm13,%xmm5
  mulsd  %xmm12,%xmm6
  mulsd  %xmm3,%xmm11
  addsd  %xmm11,%xmm6
  mulsd  %xmm6,%xmm5
  addsd  %xmm5,%xmm0
  movsd  %xmm0,(%r8)
  ret
L1:
  pxor   %xmm10,%xmm10
  movapd %xmm10,%xmm6
  movapd %xmm10,%xmm8
  movapd %xmm10,%xmm1
  movapd %xmm10,%xmm4
  movapd %xmm10,%xmm7
  movapd %xmm10,%xmm3
  movapd %xmm10,%xmm2
  movapd %xmm10,%xmm0
  jmp    L21
```

tool_calls: name: disassemble_data
arguments: data_label: D3
datatype: f32[2]
name: disassemble_data
arguments: data_label: D23
datatype: f64
name: disassemble_data
arguments: data_label: D29
datatype: f32[2]

tool: {"D3": [0.0,-2.0]}

tool: D23: 8

tool: {"D29": [0.0,-0.0]}

assistant: ```c
void CalcQuarticCoeffs(const double **coords1, const double **coords2, const int len, double *coeff) {
  double Sxx, Sxy, Sxz, Syx, Syy, Syz, Szx, Szy, Szz;
  double Szz2, Syy2, Sxx2, Sxy2, Syz2, Sxz2, Syx2, Szy2, Szx2, SyzSzymSyySzz2, Sxx2Syy2Szz2Syz2Szy2, Sxy2Sxz2Syx2Szx2, SxzpSzx, SyzpSzy, SxypSyx, SyzmSzy, SxzmSzx, SxymSyx, SxxpSyy, SxxmSyy;
  double x1, x2, y1, y2, z1, z2;
  const double *fx1 = coords1[0], *fy1 = coords1[1], *fz1 = coords1[2], *fx2 = coords2[0], *fy2 = coords2[1], *fz2 = coords2[2];
  int i;
  Sxx = Sxy = Sxz = Syx = Syy = Syz = Szx = Szy = Szz = 0.0;
  for (i = 0; i < len; ++i) {
    x1 = fx1[i];
    y1 = fy1[i];
    z1 = fz1[i];
    x2 = fx2[i];
    y2 = fy2[i];
    z2 = fz2[i];
    Sxx += (x1 * x2);
    Sxy += (x1 * y2);
    Sxz += (x1 * z2);
    Syx += (y1 * x2);
    Syy += (y1 * y2);
    Syz += (y1 * z2);
    Szx += (z1 * x2);
    Szy += (z1 * y2);
    Szz += (z1 * z2);
  }
  Sxx2 = Sxx * Sxx;
  Syy2 = Syy * Syy;
  Szz2 = Szz * Szz;
  Sxy2 = Sxy * Sxy;
  Syz2 = Syz * Syz;
  Sxz2 = Sxz * Sxz;
  Syx2 = Syx * Syx;
  Szy2 = Szy * Szy;
  Szx2 = Szx * Szx;
  SyzSzymSyySzz2 = 2.0 * (Syz * Szy - Syy * Szz);
  Sxx2Syy2Szz2Syz2Szy2 = Syy2 + Szz2 - Sxx2 + Syz2 + Szy2;
  coeff[2] = -2.0 * (Sxx2 + Syy2 + Szz2 + Sxy2 + Syx2 + Sxz2 + Szx2 + Syz2 + Szy2);
  coeff[1] = 8.0 * (Sxx * Syz * Szy + Syy * Szx * Sxz + Szz * Sxy * Syx - Sxx * Syy * Szz - Syz * Szx * Sxy - Szy * Syx * Sxz);
  SxzpSzx = Sxz + Szx;
  SyzpSzy = Syz + Szy;
  SxypSyx = Sxy + Syx;
  SyzmSzy = Syz - Szy;
  SxzmSzx = Sxz - Szx;
  SxymSyx = Sxy - Syx;
  SxxpSyy = Sxx + Syy;
  SxxmSyy = Sxx - Syy;
  Sxy2Sxz2Syx2Szx2 = Sxy2 + Sxz2 - Syx2 - Szx2;
  coeff[0] = Sxy2Sxz2Syx2Szx2 * Sxy2Sxz2Syx2Szx2 + (Sxx2Syy2Szz2Syz2Szy2 + SyzSzymSyySzz2) * (Sxx2Syy2Szz2Syz2Szy2 - SyzSzymSyySzz2) + (-(SxzpSzx) * (SyzmSzy) + (SxymSyx) * (SxxmSyy - Szz)) * (-(SxzmSzx) * (SyzpSzy) + (SxymSyx) * (SxxmSyy + Szz)) + (-(SxzpSzx) * (SyzpSzy) - (SxypSyx) * (SxxpSyy - Szz)) * (-(SxzmSzx) * (SyzmSzy) - (SxypSyx) * (SxxpSyy + Szz)) + (+(SxypSyx) * (SyzpSzy) + (SxzpSzx) * (SxxmSyy + Szz)) * (-(SxymSyx) * (SyzmSzy) + (SxzpSzx) * (SxxpSyy + Szz)) + (+(SxypSyx) * (SyzmSzy) + (SxzmSzx) * (SxxmSyy - Szz)) * (-(SxymSyx) * (SyzpSzy) + (SxzmSzx) * (SxxpSyy - Szz));
}
```