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

```asm
<TwoPhaseAdvection_2D_Evaluate>:
  endbr64
  push   %r15
  movslq %edi,%rax
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %rsi,0x20(%rsp)
  movsd  %xmm0,0x8(%rsp)
  movsd  %xmm1,0x10(%rsp)
  movsd  %xmm3,0x18(%rsp)
  test   %eax,%eax
  jle    L11
  shl    $0x3,%rax
  xor    %r15d,%r15d
  mov    %r8,%r14
  mov    %rcx,%rbx
  mov    %rax,0x28(%rsp)
  mov    0xb0(%rsp),%r13
  mov    %rdx,%rbp
  mov    %r9,%r12
  nopl   0x0(%rax)
L5:
  mov    0x20(%rsp),%rax
  movsd  0x8(%rsp),%xmm0
  add    $0x8,%rbx
  add    $0x8,%r14
  movsd  (%rax,%r15,1),%xmm1
  call   <smoothedHeaviside@plt>
  mov    0x70(%rsp),%rax
  movapd %xmm0,%xmm1
  movsd  D7(%rip),%xmm0
  subsd  %xmm1,%xmm0
  mulsd  0x18(%rsp),%xmm1
  mulsd  0x10(%rsp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  -0x8(%rbx),%xmm1
  mulsd  %xmm0,%xmm1
  mulsd  0x0(%rbp,%r15,1),%xmm1
  movsd  %xmm1,(%r12,%r15,2)
  movsd  -0x8(%r14),%xmm1
  mulsd  %xmm0,%xmm1
  mulsd  0x0(%rbp,%r15,1),%xmm1
  movsd  %xmm1,0x8(%r12,%r15,2)
  movsd  -0x8(%rbx),%xmm1
  mulsd  %xmm0,%xmm1
  movsd  %xmm1,(%rax,%r15,2)
  movsd  -0x8(%r14),%xmm1
  mulsd  %xmm0,%xmm1
  movsd  %xmm1,0x8(%rax,%r15,2)
  mov    0x78(%rsp),%rax
  movq   $0x0,(%rax,%r15,2)
  mov    0x80(%rsp),%rax
  movq   $0x0,0x8(%rax,%r15,2)
  movsd  -0x8(%rbx),%xmm2
  mov    0x88(%rsp),%rax
  movapd %xmm2,%xmm1
  mulsd  %xmm0,%xmm1
  mulsd  %xmm2,%xmm1
  movsd  %xmm1,(%rax,%r15,2)
  movsd  -0x8(%rbx),%xmm1
  mulsd  %xmm0,%xmm1
  mulsd  -0x8(%r14),%xmm1
  movsd  %xmm1,0x8(%rax,%r15,2)
  movapd %xmm0,%xmm1
  movsd  -0x8(%rbx),%xmm2
  mov    0x90(%rsp),%rax
  addsd  %xmm0,%xmm1
  mulsd  %xmm1,%xmm2
  movsd  %xmm2,(%rax,%r15,2)
  movsd  -0x8(%r14),%xmm2
  mulsd  %xmm0,%xmm2
  movsd  %xmm2,0x8(%rax,%r15,2)
  movsd  -0x8(%rbx),%xmm2
  mov    0x98(%rsp),%rax
  mulsd  %xmm0,%xmm2
  movsd  %xmm2,0x8(%rax,%r15,2)
  movsd  -0x8(%r14),%xmm2
  mov    0xa0(%rsp),%rax
  mulsd  %xmm0,%xmm2
  mulsd  -0x8(%rbx),%xmm2
  movsd  %xmm2,(%rax,%r15,2)
  movsd  -0x8(%r14),%xmm3
  movapd %xmm3,%xmm2
  mulsd  %xmm0,%xmm2
  mulsd  %xmm3,%xmm2
  movsd  %xmm2,0x8(%rax,%r15,2)
  movsd  -0x8(%r14),%xmm2
  mov    0xa8(%rsp),%rax
  mulsd  %xmm0,%xmm2
  movsd  %xmm2,(%rax,%r15,2)
  mulsd  -0x8(%rbx),%xmm0
  movsd  %xmm0,0x0(%r13,%r15,2)
  mulsd  -0x8(%r14),%xmm1
  movsd  %xmm1,0x8(%r13,%r15,2)
  add    $0x8,%r15
  cmp    0x28(%rsp),%r15
  jne    L5
L11:
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: retrieve_data
arguments: tag: D7
datatype: f64

tool: D7: 1

assistant: ```c
void TwoPhaseAdvection_2D_Evaluate(const int nPoints, const double eps, const double rho_0, const double nu_0, const double rho_1, const double nu_1, const double *phi, const double *p, const double *u, const double *v, double *mass_adv, double *dmass_adv_p, double *dmass_adv_u, double *dmass_adv_v, double *mom_u_adv, double *dmom_u_adv_u, double *dmom_u_adv_v, double *mom_v_adv, double *dmom_v_adv_u, double *dmom_v_adv_v) {
  int k;
  double rho, nu, mu, H;
  for (k = 0; k < nPoints; k++) {
    H = smoothedHeaviside(eps, phi[k]);
    rho = rho_0 * (1.0 - H) + rho_1 * H;
    nu = nu_0 * (1.0 - H) + nu_1 * H;
    mu = rho_0 * nu_0 * (1.0 - H) + rho_1 * nu_1 * H;
    mass_adv[k * 2 + 0] = rho * u[k] * p[k];
    mass_adv[k * 2 + 1] = rho * v[k] * p[k];
    dmass_adv_p[k * 2 + 0] = rho * u[k];
    dmass_adv_p[k * 2 + 1] = rho * v[k];
    dmass_adv_u[k * 2 + 0] = 0.0;
    dmass_adv_v[k * 2 + 1] = 0.0;
    mom_u_adv[k * 2 + 0] = rho * u[k] * u[k];
    mom_u_adv[k * 2 + 1] = rho * u[k] * v[k];
    dmom_u_adv_u[k * 2 + 0] = rho * 2.0 * u[k];
    dmom_u_adv_u[k * 2 + 1] = rho * v[k];
    dmom_u_adv_v[k * 2 + 1] = rho * u[k];
    mom_v_adv[k * 2 + 0] = rho * v[k] * u[k];
    mom_v_adv[k * 2 + 1] = rho * v[k] * v[k];
    dmom_v_adv_u[k * 2 + 0] = rho * v[k];
    dmom_v_adv_v[k * 2 + 0] = rho * u[k];
    dmom_v_adv_v[k * 2 + 1] = rho * 2.0 * v[k];
  }
}
```