user: What is the c source code of the assembly code below?

```asm
<PyLJFluid_evaluate_LJ_forces>:
  endbr64
  push   %r15
  mulsd  %xmm3,%xmm3
  movapd %xmm0,%xmm4
  push   %r14
  mulsd  %xmm1,%xmm1
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mulsd  D25(%rip),%xmm4
  mov    %rdi,0x58(%rsp)
  mulsd  D37(%rip),%xmm2
  mov    %rsi,0x38(%rsp)
  mov    %rcx,0x30(%rsp)
  movsd  %xmm0,0x10(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  movsd  %xmm4,0x8(%rsp)
  movsd  %xmm3,0x28(%rsp)
  movsd  %xmm1,0x48(%rsp)
  movsd  %xmm2,0x50(%rsp)
  test   %rsi,%rsi
  je     L74
  xorpd  D19(%rip),%xmm4
  mov    %rdx,%rbp
  lea    0x60(%rsp),%r14
  xor    %r15d,%r15d
  movsd  %xmm4,0x40(%rsp)
L25:
  mov    0x0(%rbp),%rax
  mov    0x30(%rsp),%rdx
  lea    (%rax,%rax,2),%rbx
  mov    0x8(%rbp),%rax
  lea    0x0(,%rbx,8),%rcx
  xor    %ebx,%ebx
  lea    (%rax,%rax,2),%rax
  mov    %rcx,0x18(%rsp)
  lea    (%rdx,%rcx,1),%r12
  shl    $0x3,%rax
  mov    %rax,0x20(%rsp)
  lea    (%rdx,%rax,1),%r13
L13:
  movsd  0x0(%r13,%rbx,1),%xmm0
  subsd  (%r12,%rbx,1),%xmm0
  comisd 0x8(%rsp),%xmm0
  movsd  %xmm0,(%rsp)
  seta   %dil
  xor    %esi,%esi
  movzbl %dil,%edi
  call   <__builtin_expect@plt>
  movsd  (%rsp),%xmm0
  test   %rax,%rax
  je     L91
  subsd  0x10(%rsp),%xmm0
L65:
  movsd  %xmm0,(%r14,%rbx,1)
  add    $0x8,%rbx
  cmp    $0x18,%rbx
  jne    L13
  movapd 0x60(%rsp),%xmm3
  movsd  0x60(%rsp),%xmm1
  pxor   %xmm4,%xmm4
  movsd  0x70(%rsp),%xmm2
  mulsd  %xmm1,%xmm1
  movapd %xmm3,%xmm7
  unpckhpd %xmm7,%xmm7
  movapd %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  addsd  %xmm4,%xmm1
  addsd  %xmm1,%xmm0
  movapd %xmm2,%xmm1
  mulsd  %xmm2,%xmm1
  addsd  %xmm1,%xmm0
  comisd 0x28(%rsp),%xmm0
  jbe    L86
  add    $0x1,%r15
  add    $0x10,%rbp
  cmp    %r15,0x38(%rsp)
  jne    L25
L74:
  mov    0x78(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L47
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nop
L91:
  movsd  0x40(%rsp),%xmm3
  movsd  %xmm0,(%rsp)
  comisd %xmm0,%xmm3
  seta   %dil
  xor    %esi,%esi
  movzbl %dil,%edi
  call   <__builtin_expect@plt>
  movsd  (%rsp),%xmm0
  test   %rax,%rax
  je     L65
  addsd  0x10(%rsp),%xmm0
  jmp    L65
  nopw   0x0(%rax,%rax,1)
L86:
  movsd  D3(%rip),%xmm4
  mov    0x58(%rsp),%rsi
  add    $0x1,%r15
  add    $0x10,%rbp
  mov    0x18(%rsp),%rbx
  mov    0x20(%rsp),%rax
  divsd  %xmm0,%xmm4
  movsd  0x48(%rsp),%xmm0
  add    %rsi,%rbx
  add    %rsi,%rax
  mulsd  %xmm4,%xmm0
  mulsd  0x50(%rsp),%xmm4
  movapd %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  movapd %xmm1,%xmm0
  addsd  %xmm1,%xmm0
  mulsd  %xmm1,%xmm0
  subsd  %xmm1,%xmm0
  mulsd  %xmm4,%xmm0
  movapd %xmm0,%xmm1
  mulsd  %xmm2,%xmm0
  unpcklpd %xmm1,%xmm1
  movsd  0x10(%rbx),%xmm2
  mulpd  %xmm3,%xmm1
  movupd (%rbx),%xmm3
  addsd  %xmm0,%xmm2
  addpd  %xmm1,%xmm3
  movsd  %xmm2,0x10(%rbx)
  movups %xmm3,(%rbx)
  movupd (%rax),%xmm2
  subpd  %xmm1,%xmm2
  movsd  0x10(%rax),%xmm1
  subsd  %xmm0,%xmm1
  movups %xmm2,(%rax)
  movsd  %xmm1,0x10(%rax)
  cmp    0x38(%rsp),%r15
  jne    L25
  jmp    L74
L47:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: data_label: D25
data_type: f64
name: parse_data
arguments: data_label: D37
data_type: f32[2]
name: parse_data
arguments: data_label: D19
data_type: f32[4]
name: parse_data
arguments: data_label: D3
data_type: f64

tool: D25: 0.5

tool: {"D37": [0.0,-2.875]}

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

tool: D3: 1

assistant: ```c
void PyLJFluid_evaluate_LJ_forces(double *restrict forces, size_t N_neighbors, uint *restrict neighbors, double *restrict positions, double box_size, double sigma, double epsilon, double r_cutoff) {
  double half_size = 0.5 * box_size;
  double r_cutoff_sqr = r_cutoff * r_cutoff;
  double sigma_sqr = sigma * sigma;
  double factor = -4 * 6 * epsilon;
  for (uint neighbor_i = 0; neighbor_i < N_neighbors; neighbor_i++) {
    uint inx_i3 = 3 * neighbors[neighbor_i * 2];
    uint inx_j3 = 3 * neighbors[neighbor_i * 2 + 1];
    double r_ij[3];
    {
      double *p_i_base = positions + inx_i3;
      double *p_j_base = positions + inx_j3;
      for (int k = 0; k < 3; k++) {
        double l = p_j_base[k] - p_i_base[k];
        if (__builtin_expect(!!(l > half_size), 0)) {
          l -= box_size;
        } else if (__builtin_expect(!!(l < -half_size), 0)) {
          l += box_size;
        }
        r_ij[k] = l;
      }
    }
    double r_sqr = 0.0;
    for (int k = 0; k < 3; k++) {
      r_sqr += r_ij[k] * r_ij[k];
    }
    if (r_sqr > r_cutoff_sqr)
      continue;
    double scaled_f;
    {
      double inv_r_sqr = 1.0 / r_sqr;
      double x2 = sigma_sqr * inv_r_sqr;
      double x6 = x2 * x2 * x2;
      scaled_f = factor * inv_r_sqr * (2 * x6 * x6 - x6);
    }
    {
      double *f_i_base = forces + inx_i3;
      for (int k = 0; k < 3; k++) {
        f_i_base[k] += r_ij[k] * scaled_f;
      }
    }
    {
      double *f_j_base = forces + inx_j3;
      for (int k = 0; k < 3; k++) {
        f_j_base[k] -= r_ij[k] * scaled_f;
      }
    }
  }
}
```