user: Converte this assembly snippet into its equivalent C code:

```asm
<bioD3_3d>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %rdi,%rbx
  mov    %rsi,0x18(%rsp)
  mov    %rdx,0x20(%rsp)
  mov    %rcx,0x28(%rsp)
  mov    %r8,%r14
  mov    %r9,%r15
  mov    0x88(%rsp),%ebp
  mov    0x90(%rsp),%r12d
  mov    0x98(%rsp),%r13d
  cmp    $0x1,%ebp
  setg   %al
  movzbl %al,%eax
  cmp    $0x1,%r12d
  setg   %dl
  movzbl %dl,%edx
  add    %edx,%eax
  cmp    $0x1,%r13d
  setg   %dl
  movzbl %dl,%edx
  add    %edx,%eax
  cmp    $0x2,%eax
  je     L19
  cmp    $0x1,%eax
  jne    L73
  movss  D13(%rip),%xmm5
  movss  %xmm5,0xc(%rsp)
  movss  D0(%rip),%xmm0
  jmp    L51
L73:
  test   %eax,%eax
  jne    L12
  movss  D48(%rip),%xmm3
  movss  %xmm3,0xc(%rsp)
  movaps %xmm3,%xmm0
L51:
  pxor   %xmm2,%xmm2
  cvtss2sd %xmm0,%xmm2
  movsd  %xmm2,0x10(%rsp)
  mov    $0x1,%r8d
  movapd %xmm2,%xmm0
  mov    %r13d,%ecx
  mov    %r12d,%edx
  mov    %ebp,%esi
  mov    %rbx,%rdi
  mov    $0x1,%eax
  call   <bio_3d_premult@plt>
  cmpl   $0x0,0xa0(%rsp)
  je     L67
  push   %r13
  push   %r12
  push   %rbp
  push   0x98(%rsp)
  push   0x98(%rsp)
  push   0x98(%rsp)
  pxor   %xmm1,%xmm1
  cvtss2sd 0x3c(%rsp),%xmm1
  movsd  0x40(%rsp),%xmm0
  mov    %r15,%r9
  mov    %r14,%r8
  mov    0x58(%rsp),%rcx
  mov    0x50(%rsp),%rdx
  mov    0x48(%rsp),%rsi
  mov    %rbx,%rdi
  mov    $0x2,%eax
  call   <bioD1__3d@plt>
  add    $0x30,%rsp
L26:
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L19:
  movss  D48(%rip),%xmm4
  movss  %xmm4,0xc(%rsp)
  movss  D0(%rip),%xmm0
  jmp    L51
L12:
  movss  D0(%rip),%xmm6
  movss  %xmm6,0xc(%rsp)
  movaps %xmm6,%xmm0
  jmp    L51
L67:
  pxor   %xmm1,%xmm1
  cvtss2sd 0xc(%rsp),%xmm1
  movsd  0x10(%rsp),%xmm0
  mov    %r13d,%r8d
  mov    %r12d,%ecx
  mov    %ebp,%edx
  mov    0x80(%rsp),%rsi
  mov    %rbx,%rdi
  mov    $0x2,%eax
  call   <bioD1_3dskip@plt>
  jmp    L26
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D13
type: byte[4]
name: extract_symbolic_data
arguments: data_tag: D0
type: byte[4]
name: extract_symbolic_data
arguments: data_tag: D48
type: f32

tool: {"D13": [0x00,0x00,0x00,0xc0]}

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

tool: D48: 1

assistant: ```c
void bioD3_3d(invector, HHH, HHL, HLH, HLL, LHH, LHL, LLH, LLL, xlength, ylength, zlength, ifnotAllskip) float *invector;
float *HLL, *HLH, *HHL, *HHH;
float *LLL, *LLH, *LHL, *LHH;
int xlength, ylength, zlength;
int ifnotAllskip;
{
  float x0 = -0.5;
  float X0 = x0;
  float X1 = x0;
  int pairity;
  float Norm;
  int dim;
  dim = (xlength > 1) + (ylength > 1) + (zlength > 1);
  ;
  if (dim == 3)
    Norm = x0;
  if (dim == 2)
    Norm = 1.0;
  if (dim == 1)
    Norm = 1.0 / x0;
  if (xlength > 1)
    Norm /= (1.0);
  if (ylength > 1)
    Norm /= (1.0);
  if (zlength > 1)
    Norm /= (1.0);
  if (dim == 0) {
    Norm = 1.0;
    X0 = 1.0, X1 = 1.0;
  }
  pairity = 1;
  bio_3d_premult(invector, xlength, ylength, zlength, X0, pairity);
  if (ifnotAllskip)
    bioD1__3d(invector, HHH, HHL, HLH, HLL, LHH, LHL, LLH, LLL, xlength, ylength, zlength, X1, Norm);
  else
    bioD1_3dskip(invector, LLL, xlength, ylength, zlength, X1, Norm);
}
```