user: Please show me the C implementation that matches the assembly code listed below:

```asm
<bioR9_3d>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x60,%rsp
  mov    %rdi,-0x38(%rbp)
  mov    %rsi,-0x40(%rbp)
  mov    %rdx,-0x48(%rbp)
  mov    %rcx,-0x50(%rbp)
  mov    %r8,-0x58(%rbp)
  mov    %r9,-0x60(%rbp)
  movss  D197(%rip),%xmm0
  movss  %xmm0,-0x18(%rbp)
  movss  D4(%rip),%xmm0
  movss  %xmm0,-0x14(%rbp)
  movss  D21(%rip),%xmm0
  movss  %xmm0,-0x10(%rbp)
  movss  D107(%rip),%xmm0
  movss  %xmm0,-0xc(%rbp)
  cmpl   $0x1,0x28(%rbp)
  setg   %al
  movzbl %al,%edx
  cmpl   $0x1,0x30(%rbp)
  setg   %al
  movzbl %al,%eax
  add    %eax,%edx
  cmpl   $0x1,0x38(%rbp)
  setg   %al
  movzbl %al,%eax
  add    %edx,%eax
  mov    %eax,-0x8(%rbp)
  cmpl   $0x0,0x40(%rbp)
  je     L29
  movss  -0xc(%rbp),%xmm0
  movss  %xmm0,-0x20(%rbp)
  movss  -0xc(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x10(%rbp),%xmm1
  movss  D194(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x24(%rbp)
  movss  -0x10(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x14(%rbp),%xmm1
  movss  D194(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x28(%rbp)
  movss  -0x14(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x18(%rbp),%xmm1
  movss  D194(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x2c(%rbp)
  movss  D194(%rip),%xmm0
  divss  -0x18(%rbp),%xmm0
  movss  %xmm0,-0x30(%rbp)
  jmp    L25
L29:
  movss  -0x10(%rbp),%xmm0
  movss  %xmm0,-0x20(%rbp)
  movss  D194(%rip),%xmm0
  movss  %xmm0,-0x24(%rbp)
  movss  -0x10(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x14(%rbp),%xmm1
  movss  D194(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x28(%rbp)
  movss  -0x14(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x18(%rbp),%xmm1
  movss  D194(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x2c(%rbp)
  movss  D194(%rip),%xmm0
  divss  -0x18(%rbp),%xmm0
  movss  %xmm0,-0x30(%rbp)
L25:
  cmpl   $0x3,-0x8(%rbp)
  jne    L94
  movss  -0x18(%rbp),%xmm0
  mulss  -0x14(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x10(%rbp),%xmm1
  movss  D194(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x1c(%rbp)
L94:
  cmpl   $0x2,-0x8(%rbp)
  jne    L30
  movss  D194(%rip),%xmm0
  movss  %xmm0,-0x1c(%rbp)
L30:
  cmpl   $0x1,-0x8(%rbp)
  jne    L53
  movss  -0x18(%rbp),%xmm0
  mulss  -0x14(%rbp),%xmm0
  movss  -0x10(%rbp),%xmm1
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x1c(%rbp)
L53:
  cmpl   $0x1,0x28(%rbp)
  jle    L14
  pxor   %xmm1,%xmm1
  cvtss2sd -0x1c(%rbp),%xmm1
  movsd  D79(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x1c(%rbp)
L14:
  cmpl   $0x1,0x30(%rbp)
  jle    L64
  pxor   %xmm1,%xmm1
  cvtss2sd -0x1c(%rbp),%xmm1
  movsd  D79(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x1c(%rbp)
L64:
  cmpl   $0x1,0x38(%rbp)
  jle    L77
  pxor   %xmm1,%xmm1
  cvtss2sd -0x1c(%rbp),%xmm1
  movsd  D79(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x1c(%rbp)
L77:
  cmpl   $0x0,-0x8(%rbp)
  jne    L67
  movss  D194(%rip),%xmm0
  movss  %xmm0,-0x1c(%rbp)
  movss  D194(%rip),%xmm0
  movss  %xmm0,-0x30(%rbp)
  movss  D194(%rip),%xmm0
  movss  %xmm0,-0x2c(%rbp)
  movss  D194(%rip),%xmm0
  movss  %xmm0,-0x28(%rbp)
  movss  D194(%rip),%xmm0
  movss  %xmm0,-0x24(%rbp)
  movss  D194(%rip),%xmm0
  movss  %xmm0,-0x20(%rbp)
L67:
  cmpl   $0x0,0x40(%rbp)
  je     L107
  pxor   %xmm0,%xmm0
  cvtss2sd -0x1c(%rbp),%xmm0
  pxor   %xmm2,%xmm2
  cvtss2sd -0x20(%rbp),%xmm2
  movq   %xmm2,%rdi
  mov    -0x60(%rbp),%r9
  mov    -0x58(%rbp),%r10
  mov    -0x50(%rbp),%rcx
  mov    -0x48(%rbp),%rdx
  mov    -0x40(%rbp),%rsi
  mov    -0x38(%rbp),%rax
  mov    0x38(%rbp),%r8d
  push   %r8
  mov    0x30(%rbp),%r8d
  push   %r8
  mov    0x28(%rbp),%r8d
  push   %r8
  push   0x20(%rbp)
  push   0x18(%rbp)
  push   0x10(%rbp)
  movapd %xmm0,%xmm1
  movq   %rdi,%xmm0
  mov    %r10,%r8
  mov    %rax,%rdi
  mov    $0x2,%eax
  call   <bioR1__3d@plt>
  add    $0x30,%rsp
  movl   $0x0,-0x4(%rbp)
  pxor   %xmm3,%xmm3
  cvtss2sd -0x24(%rbp),%xmm3
  movq   %xmm3,%rdi
  mov    -0x4(%rbp),%r8d
  mov    0x38(%rbp),%ecx
  mov    0x30(%rbp),%edx
  mov    0x28(%rbp),%esi
  mov    0x20(%rbp),%rax
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <bio_3d_postmult@plt>
  jmp    L79
L107:
  pxor   %xmm0,%xmm0
  cvtss2sd -0x1c(%rbp),%xmm0
  pxor   %xmm4,%xmm4
  cvtss2sd -0x20(%rbp),%xmm4
  movq   %xmm4,%rdi
  mov    0x38(%rbp),%r8d
  mov    0x30(%rbp),%ecx
  mov    0x28(%rbp),%edx
  mov    0x20(%rbp),%rsi
  mov    0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  mov    $0x2,%eax
  call   <bioR1_3dskip@plt>
L79:
  movl   $0x1,-0x4(%rbp)
  pxor   %xmm5,%xmm5
  cvtss2sd -0x28(%rbp),%xmm5
  movq   %xmm5,%rdi
  mov    -0x4(%rbp),%r8d
  mov    0x38(%rbp),%ecx
  mov    0x30(%rbp),%edx
  mov    0x28(%rbp),%esi
  mov    0x20(%rbp),%rax
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <bio_3d_postmult@plt>
  movl   $0x0,-0x4(%rbp)
  pxor   %xmm6,%xmm6
  cvtss2sd -0x2c(%rbp),%xmm6
  movq   %xmm6,%rdi
  mov    -0x4(%rbp),%r8d
  mov    0x38(%rbp),%ecx
  mov    0x30(%rbp),%edx
  mov    0x28(%rbp),%esi
  mov    0x20(%rbp),%rax
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <bio_3d_postmult@plt>
  movl   $0x1,-0x4(%rbp)
  pxor   %xmm7,%xmm7
  cvtss2sd -0x30(%rbp),%xmm7
  movq   %xmm7,%rdi
  mov    -0x4(%rbp),%r8d
  mov    0x38(%rbp),%ecx
  mov    0x30(%rbp),%edx
  mov    0x28(%rbp),%esi
  mov    0x20(%rbp),%rax
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <bio_3d_postmult@plt>
  nop
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: data_label: D197
type: f32
name: disassemble_data
arguments: data_label: D4
type: f32
name: disassemble_data
arguments: data_label: D21
type: byte[4]
name: disassemble_data
arguments: data_label: D107
type: byte[4]
name: disassemble_data
arguments: data_label: D194
type: f32
name: disassemble_data
arguments: data_label: D79
type: f64

tool: D197: 1.586134342059

tool: D4: 0.052980118573

tool: {"D21": [0x76,0x06,0x62,0xbf]}

tool: {"D107": [0x55,0x13,0xe3,0xbe]}

tool: D194: 1

tool: D79: 0.763

assistant: ```c
void bioR9_3d(HHH, HHL, HLH, HLL, LHH, LHL, LLH, LLL, outvector, xlength, ylength, zlength, ifnotAllskip) float *HLL, *HLH, *HHL, *HHH;
float *LLL, *LLH, *LHL, *LHH;
float *outvector;
int xlength, ylength;
int ifnotAllskip;
{
  float ix0 = 1.586134342059;
  float ix1 = 0.052980118573;
  float ix2 = -0.882911075529;
  float ix3 = -0.443506852045;
  float iX0, iX1, iX2, iX3, iX4;
  int pairity;
  float Norm;
  int dim;
  dim = (xlength > 1) + (ylength > 1) + (zlength > 1);
  if (ifnotAllskip) {
    iX4 = ix3;
    iX3 = 1.0 / (ix3 * ix2);
    iX2 = 1.0 / (ix2 * ix1);
    iX1 = 1.0 / (ix1 * ix0);
    iX0 = 1.0 / ix0;
  } else {
    iX4 = ix2;
    iX3 = 1.0;
    iX2 = 1.0 / (ix2 * ix1);
    iX1 = 1.0 / (ix1 * ix0);
    iX0 = 1.0 / ix0;
  }
  if (dim == 3)
    Norm = 1.0 / (ix0 * ix1 * ix2);
  if (dim == 2)
    Norm = 1.0;
  if (dim == 1)
    Norm = (ix0 * ix1 * ix2);
  if (xlength > 1)
    Norm *= (0.763);
  if (ylength > 1)
    Norm *= (0.763);
  if (zlength > 1)
    Norm *= (0.763);
  if (dim == 0) {
    Norm = 1.0;
    iX0 = 1.0;
    iX1 = 1.0;
    iX2 = 1.0;
    iX3 = 1.0;
    iX4 = 1.0;
  }
  if (ifnotAllskip) {
    bioR1__3d(HHH, HHL, HLH, HLL, LHH, LHL, LLH, LLL, outvector, xlength, ylength, zlength, iX4, Norm);
    pairity = 0;
    bio_3d_postmult(outvector, xlength, ylength, zlength, iX3, pairity);
  } else
    bioR1_3dskip(LLL, outvector, xlength, ylength, zlength, iX4, Norm);
  pairity = 1;
  bio_3d_postmult(outvector, xlength, ylength, zlength, iX2, pairity);
  pairity = 0;
  bio_3d_postmult(outvector, xlength, ylength, zlength, iX1, pairity);
  pairity = 1;
  bio_3d_postmult(outvector, xlength, ylength, zlength, iX0, pairity);
}
```