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

```asm
<delaunay_reduce_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,-0xb4(%rbp)
  movl   $0x0,-0xbc(%rbp)
  jmp    L145
L121:
  mov    -0xbc(%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    -0xbc(%rbp),%eax
  cltq
  movsd  %xmm0,-0xa0(%rbp,%rax,8)
  addl   $0x1,-0xbc(%rbp)
L145:
  cmpl   $0x2,-0xbc(%rbp)
  jle    L121
  movl   $0x0,-0xbc(%rbp)
  jmp    L216
L182:
  mov    -0xbc(%rbp),%eax
  cmp    -0xd4(%rbp),%eax
  je     L69
  movl   $0x0,-0xb8(%rbp)
  jmp    L22
L142:
  mov    -0xb8(%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    -0xbc(%rbp),%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm0
  mov    -0xb4(%rbp),%eax
  movslq %eax,%rdx
  mov    -0xb8(%rbp),%eax
  cltq
  add    %rax,%rax
  add    %rdx,%rax
  movsd  %xmm0,-0x80(%rbp,%rax,8)
  addl   $0x1,-0xb8(%rbp)
L22:
  cmpl   $0x2,-0xb8(%rbp)
  jle    L142
  addl   $0x1,-0xb4(%rbp)
L69:
  addl   $0x1,-0xbc(%rbp)
L216:
  cmpl   $0x2,-0xbc(%rbp)
  jle    L182
  lea    -0x80(%rbp),%rdx
  lea    -0x50(%rbp),%rax
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <get_exteneded_basis_2D@plt>
  movl   $0x0,-0xb0(%rbp)
  jmp    L19
L57:
  mov    -0xe0(%rbp),%rdx
  lea    -0x50(%rbp),%rax
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  call   <delaunay_reduce_basis_2D@plt>
  mov    %eax,-0xac(%rbp)
  cmpl   $0x0,-0xac(%rbp)
  jne    L129
  addl   $0x1,-0xb0(%rbp)
L19:
  cmpl   $0x63,-0xb0(%rbp)
  jle    L57
  jmp    L226
L129:
  nop
L226:
  cmpl   $0x0,-0xac(%rbp)
  je     L67
  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,-0xb4(%rbp)
  movl   $0x0,-0xbc(%rbp)
  jmp    L269
L154:
  mov    -0xbc(%rbp),%eax
  cmp    -0xd4(%rbp),%eax
  jne    L239
  movl   $0x0,-0xb8(%rbp)
  jmp    L206
L66:
  mov    -0xb8(%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    -0xb8(%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    -0xbc(%rbp),%eax
  cltq
  movsd  (%rcx,%rax,8),%xmm0
  mov    -0xbc(%rbp),%eax
  cltq
  movsd  %xmm0,(%rdx,%rax,8)
  addl   $0x1,-0xb8(%rbp)
L206:
  cmpl   $0x2,-0xb8(%rbp)
  jle    L66
  jmp    L184
L239:
  movl   $0x0,-0xb8(%rbp)
  jmp    L55
L68:
  mov    -0xb8(%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    -0xb8(%rbp),%eax
  movslq %eax,%rsi
  mov    -0xb4(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  add    %rsi,%rax
  movsd  -0x50(%rbp,%rax,8),%xmm0
  mov    -0xbc(%rbp),%eax
  cltq
  movsd  %xmm0,(%rcx,%rax,8)
  addl   $0x1,-0xb8(%rbp)
L55:
  cmpl   $0x2,-0xb8(%rbp)
  jle    L68
  addl   $0x1,-0xb4(%rbp)
L184:
  addl   $0x1,-0xbc(%rbp)
L269:
  cmpl   $0x2,-0xbc(%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     L43
  pxor   %xmm0,%xmm0
  comisd -0xa8(%rbp),%xmm0
  jbe    L264
  movl   $0x0,-0xbc(%rbp)
  jmp    L170
L103:
  mov    -0xbc(%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    -0xbc(%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   D3(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mov    -0xd4(%rbp),%eax
  cltq
  movsd  %xmm0,(%rdx,%rax,8)
  addl   $0x1,-0xbc(%rbp)
L170:
  cmpl   $0x2,-0xbc(%rbp)
  jle    L103
L264:
  mov    $0x1,%eax
  jmp    L143
L67:
  nop
  jmp    L50
L43:
  nop
L50:
  mov    $0x0,%eax
L143:
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L81
  call   <__stack_chk_fail@plt>
L81:
  leave
  ret
```

tool_calls: name: parse_data
arguments: label: D3
type_infered: byte[8]

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

assistant: ```c
int delaunay_reduce_2D(double red_lattice[3][3], double lattice[3][3], const int unique_axis, const double symprec) {
  int i, j, k, attempt, succeeded;
  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);
  for (attempt = 0; attempt < 100; attempt++) {
    succeeded = delaunay_reduce_basis_2D(basis, symprec);
    if (succeeded) {
      break;
    }
  }
  if (!succeeded) {
    goto err;
  }
  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;
}
```