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

```asm
<mesh_3d_aft_opts>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,%r15
  mov    %rsi,0x8(%rsp)
  mov    %rdx,%r13
  mov    %rcx,%rbx
  mov    %r8,0x18(%rsp)
  mov    %r9,%r14
  mov    0x60(%rsp),%r12
  movsd  %xmm0,0x10(%rsp)
  mov    0x90(%rsp),%ebp
  cmpl   $0x0,0x88(%rsp)
  jne    L118
L66:
  test   %ebp,%ebp
  je     L52
  cmpl   $0x0,0x0(%r13)
  jle    L64
  mov    $0x0,%eax
L9:
  sub    %ebp,(%rbx,%rax,4)
  add    $0x1,%rax
  mov    0x0(%r13),%edx
  lea    (%rdx,%rdx,2),%edx
  cmp    %eax,%edx
  jg     L9
L64:
  cmpl   $0x0,(%r14)
  jle    L52
  mov    $0x0,%eax
L85:
  sub    %ebp,(%r12,%rax,4)
  add    $0x1,%rax
  mov    (%r14),%esi
  lea    0x0(,%rsi,4),%edx
  cmp    %eax,%edx
  jg     L85
L52:
  movsd  0x10(%rsp),%xmm0
  comisd D5(%rip),%xmm0
  ja     L113
  cmpq   $0x0,0x98(%rsp)
  je     L5
  push   0x98(%rsp)
  mov    0x88(%rsp),%eax
  push   %rax
  mov    0x88(%rsp),%eax
  push   %rax
  mov    0x88(%rsp),%eax
  push   %rax
  push   0x88(%rsp)
  push   %r12
  mov    %r14,%r9
  mov    0x48(%rsp),%r8
  mov    %rbx,%rcx
  mov    %r13,%rdx
  mov    0x38(%rsp),%rsi
  mov    %r15,%rdi
  call   <mesh3daftuser@plt>
  add    $0x30,%rsp
  jmp    L53
L118:
  mov    (%rdx),%edx
  mov    (%rdi),%edi
  call   <chk3dvert@plt>
  jmp    L66
L113:
  sub    $0x8,%rsp
  mov    0x88(%rsp),%eax
  push   %rax
  mov    0x88(%rsp),%eax
  push   %rax
  mov    0x88(%rsp),%eax
  push   %rax
  push   0x88(%rsp)
  push   %r12
  mov    %r14,%r9
  mov    0x48(%rsp),%r8
  mov    %rbx,%rcx
  mov    %r13,%rdx
  mov    0x38(%rsp),%rsi
  mov    %r15,%rdi
  call   <mesh3daftss@plt>
  add    $0x30,%rsp
L53:
  test   %ebp,%ebp
  je     L142
  cmpl   $0x0,0x0(%r13)
  jle    L17
  mov    $0x0,%edx
L97:
  add    %ebp,(%rbx,%rdx,4)
  add    $0x1,%rdx
  mov    0x0(%r13),%ecx
  lea    (%rcx,%rcx,2),%ecx
  cmp    %edx,%ecx
  jg     L97
L17:
  cmpl   $0x0,(%r14)
  jle    L142
  mov    $0x0,%edx
L62:
  add    %ebp,(%r12,%rdx,4)
  add    $0x1,%rdx
  mov    (%r14),%edi
  lea    0x0(,%rdi,4),%ecx
  cmp    %edx,%ecx
  jg     L62
L142:
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L5:
  sub    $0x8,%rsp
  mov    0x88(%rsp),%eax
  push   %rax
  mov    0x88(%rsp),%eax
  push   %rax
  mov    0x88(%rsp),%eax
  push   %rax
  push   0x88(%rsp)
  push   %r12
  mov    %r14,%r9
  mov    0x48(%rsp),%r8
  mov    %rbx,%rcx
  mov    %r13,%rdx
  mov    0x38(%rsp),%rsi
  mov    %r15,%rdi
  call   <mesh3daft@plt>
  add    $0x30,%rsp
  jmp    L53
```

tool_calls: name: unpack_data
arguments: label: D5
type_guessed: f64

tool: D5: 0

assistant: ```c
int mesh_3d_aft_opts(int *pnV, double *vertex, int *pnF, int *face, int *facecolor, int *pnT, int *tetra, int *tetracolor, int nnV, int nnF, int nnT, double cf, int needcheck, int indexshift, double (*f)(double, double, double)) {
  int i, ret;
  if (needcheck)
    chk3dvert(*pnV, vertex, *pnF, face);
  if (indexshift) {
    for (i = 0; i < 3 * *pnF; face[i++] -= indexshift)
      ;
    for (i = 0; i < 4 * *pnT; tetra[i++] -= indexshift)
      ;
  }
  if (cf > 0.0)
    ret = mesh3daftss(pnV, vertex, pnF, face, facecolor, pnT, tetra, tetracolor, nnV, nnF, nnT, cf);
  else if (f)
    ret = mesh3daftuser(pnV, vertex, pnF, face, facecolor, pnT, tetra, tetracolor, nnV, nnF, nnT, f);
  else
    ret = mesh3daft(pnV, vertex, pnF, face, facecolor, pnT, tetra, tetracolor, nnV, nnF, nnT);
  if (indexshift) {
    for (i = 0; i < 3 * *pnF; face[i++] += indexshift)
      ;
    for (i = 0; i < 4 * *pnT; tetra[i++] += indexshift)
      ;
  }
  return ret;
}
```