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

```asm
<get_Delaunay_reduction_2D>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xe0,%rsp
  mov    %rdi,-0xc8(%rbp)
  mov    %rsi,-0xd0(%rbp)
  mov    %edx,-0xd4(%rbp)
  movsd  %xmm0,-0xe0(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movl   $0x0,-0xac(%rbp)
  movl   $0x0,-0xb4(%rbp)
  jmp    L93
L118:
  mov    -0xb4(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x3,%rax
  mov    %rax,%rdx
  mov    -0xd0(%rbp),%rax
  add    %rax,%rdx
  mov    -0xd4(%rbp),%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm0
  mov    -0xb4(%rbp),%eax
  cltq
  movsd  %xmm0,-0xa0(%rbp,%rax,8)
  addl   $0x1,-0xb4(%rbp)
L93:
  cmpl   $0x2,-0xb4(%rbp)
  jle    L118
  movl   $0x0,-0xb4(%rbp)
  jmp    L208
L204:
  mov    -0xb4(%rbp),%eax
  cmp    -0xd4(%rbp),%eax
  je     L201
  movl   $0x0,-0xb0(%rbp)
  jmp    L6
L215:
  mov    -0xb0(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x3,%rax
  mov    %rax,%rdx
  mov    -0xd0(%rbp),%rax
  add    %rax,%rdx
  mov    -0xb4(%rbp),%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm0
  mov    -0xac(%rbp),%eax
  movslq %eax,%rdx
  mov    -0xb0(%rbp),%eax
  cltq
  add    %rax,%rax
  add    %rdx,%rax
  movsd  %xmm0,-0x80(%rbp,%rax,8)
  addl   $0x1,-0xb0(%rbp)
L6:
  cmpl   $0x2,-0xb0(%rbp)
  jle    L215
  addl   $0x1,-0xac(%rbp)
L201:
  addl   $0x1,-0xb4(%rbp)
L208:
  cmpl   $0x2,-0xb4(%rbp)
  jle    L204
  lea    -0x80(%rbp),%rdx
  lea    -0x50(%rbp),%rax
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <get_exteneded_basis_2D@plt>
L30:
  mov    -0xe0(%rbp),%rdx
  lea    -0x50(%rbp),%rax
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  call   <get_Delaunay_reduction_basis_2D@plt>
  test   %rax,%rax
  jne    L159
  jmp    L30
L159:
  nop
  mov    -0xe0(%rbp),%rcx
  lea    -0xa0(%rbp),%rdx
  lea    -0x50(%rbp),%rax
  movq   %rcx,%xmm0
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <get_Delaunay_shortest_vectors_2D@plt>
  movl   $0x0,-0xac(%rbp)
  movl   $0x0,-0xb4(%rbp)
  jmp    L76
L154:
  mov    -0xb4(%rbp),%eax
  cmp    -0xd4(%rbp),%eax
  jne    L99
  movl   $0x0,-0xb0(%rbp)
  jmp    L225
L128:
  mov    -0xb0(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x3,%rax
  mov    %rax,%rdx
  mov    -0xd0(%rbp),%rax
  lea    (%rdx,%rax,1),%rcx
  mov    -0xb0(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x3,%rax
  mov    %rax,%rdx
  mov    -0xc8(%rbp),%rax
  add    %rax,%rdx
  mov    -0xb4(%rbp),%eax
  cltq
  movsd  (%rcx,%rax,8),%xmm0
  mov    -0xb4(%rbp),%eax
  cltq
  movsd  %xmm0,(%rdx,%rax,8)
  addl   $0x1,-0xb0(%rbp)
L225:
  cmpl   $0x2,-0xb0(%rbp)
  jle    L128
  jmp    L100
L99:
  movl   $0x0,-0xb0(%rbp)
  jmp    L180
L188:
  mov    -0xb0(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x3,%rax
  mov    %rax,%rdx
  mov    -0xc8(%rbp),%rax
  lea    (%rdx,%rax,1),%rcx
  mov    -0xb0(%rbp),%eax
  movslq %eax,%rsi
  mov    -0xac(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  add    %rsi,%rax
  movsd  -0x50(%rbp,%rax,8),%xmm0
  mov    -0xb4(%rbp),%eax
  cltq
  movsd  %xmm0,(%rcx,%rax,8)
  addl   $0x1,-0xb0(%rbp)
L180:
  cmpl   $0x2,-0xb0(%rbp)
  jle    L188
  addl   $0x1,-0xac(%rbp)
L100:
  addl   $0x1,-0xb4(%rbp)
L76:
  cmpl   $0x2,-0xb4(%rbp)
  jle    L154
  mov    -0xc8(%rbp),%rax
  mov    %rax,%rdi
  call   <mat_get_determinant_d3@plt>
  movq   %xmm0,%rax
  mov    %rax,-0xa8(%rbp)
  mov    -0xa8(%rbp),%rax
  movq   %rax,%xmm0
  call   <mat_Dabs@plt>
  movsd  -0xe0(%rbp),%xmm1
  comisd %xmm0,%xmm1
  ja     L16
  pxor   %xmm0,%xmm0
  comisd -0xa8(%rbp),%xmm0
  jbe    L179
  movl   $0x0,-0xb4(%rbp)
  jmp    L26
L106:
  mov    -0xb4(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x3,%rax
  mov    %rax,%rdx
  mov    -0xc8(%rbp),%rax
  add    %rax,%rdx
  mov    -0xd4(%rbp),%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm0
  mov    -0xb4(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x3,%rax
  mov    %rax,%rdx
  mov    -0xc8(%rbp),%rax
  add    %rax,%rdx
  movq   D0(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mov    -0xd4(%rbp),%eax
  cltq
  movsd  %xmm0,(%rdx,%rax,8)
  addl   $0x1,-0xb4(%rbp)
L26:
  cmpl   $0x2,-0xb4(%rbp)
  jle    L106
L179:
  mov    $0x1,%eax
  jmp    L54
L16:
  nop
  mov    $0x0,%eax
L54:
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L31
  call   <__stack_chk_fail@plt>
L31:
  leave
  ret
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D0
data_type: byte[8]

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

assistant: ```c
int get_Delaunay_reduction_2D(double red_lattice[3][3], double lattice[3][3], const int unique_axis, const double symprec) {
  int i, j, k;
  double volume;
  double basis[3][3], lattice_2D[3][2], unique_vec[3];
  k = 0;
  for (i = 0; i < 3; i++) {
    unique_vec[i] = lattice[i][unique_axis];
  }
  for (i = 0; i < 3; i++) {
    if (i != unique_axis) {
      for (j = 0; j < 3; j++) {
        lattice_2D[j][k] = lattice[j][i];
      }
      k++;
    }
  }
  get_exteneded_basis_2D(basis, lattice_2D);
  while (1) {
    if (get_Delaunay_reduction_basis_2D(basis, symprec)) {
      break;
    }
  }
  get_Delaunay_shortest_vectors_2D(basis, unique_vec, symprec);
  k = 0;
  for (i = 0; i < 3; i++) {
    if (i == unique_axis) {
      for (j = 0; j < 3; j++) {
        red_lattice[j][i] = lattice[j][i];
      }
    } else {
      for (j = 0; j < 3; j++) {
        red_lattice[j][i] = basis[k][j];
      }
      k++;
    }
  }
  volume = mat_get_determinant_d3(red_lattice);
  if (mat_Dabs(volume) < symprec) {
    ;
    goto err;
  }
  if (volume < 0) {
    for (i = 0; i < 3; i++) {
      red_lattice[i][unique_axis] = -red_lattice[i][unique_axis];
    }
  }
  return 1;
err:
  return 0;
}
```