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

```asm
<adjbioR7_3d>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %rdi,%rbp
  push   %rbx
  sub    $0x58,%rsp
  mov    0x90(%rsp),%rax
  mov    0xa8(%rsp),%r12d
  mov    %rdx,0x20(%rsp)
  mov    0xb0(%rsp),%r13d
  mov    0xb8(%rsp),%ebx
  mov    %rsi,0x18(%rsp)
  mov    %rax,0x38(%rsp)
  mov    0x98(%rsp),%rax
  mov    0xc0(%rsp),%r15d
  mov    %rcx,0x28(%rsp)
  mov    %rax,0x40(%rsp)
  xor    %eax,%eax
  cmp    $0x1,%r12d
  mov    0xa0(%rsp),%r14
  setg   %al
  xor    %edx,%edx
  cmp    $0x1,%r13d
  mov    %r8,0x30(%rsp)
  setg   %dl
  add    %edx,%eax
  xor    %edx,%edx
  cmp    $0x1,%ebx
  setg   %dl
  add    %edx,%eax
  test   %r15d,%r15d
  jne    L112
  movss  D177(%rip),%xmm2
  movss  D114(%rip),%xmm3
  cmp    $0x2,%eax
  je     L21
L111:
  cmp    $0x1,%eax
  jne    L34
  movss  D146(%rip),%xmm1
  movss  D40(%rip),%xmm0
  movss  D158(%rip),%xmm4
  movss  D124(%rip),%xmm5
L25:
  cmp    $0x1,%r12d
  jg     L81
  movaps %xmm0,%xmm1
  movaps %xmm4,%xmm0
  movaps %xmm5,%xmm4
L81:
  cmp    $0x1,%r13d
  jg     L52
  movaps %xmm0,%xmm1
  movaps %xmm4,%xmm0
L52:
  cmp    $0x1,%ebx
  jg     L28
  movaps %xmm0,%xmm1
L28:
  test   %eax,%eax
  jne    L22
  movss  D114(%rip),%xmm1
  movaps %xmm1,%xmm2
  movaps %xmm1,%xmm3
  movaps %xmm1,%xmm4
  movaps %xmm1,%xmm5
L55:
  movsd  D71(%rip),%xmm0
  mov    %ebx,%ecx
  mov    %r13d,%edx
  mov    %r12d,%esi
  mov    %rbp,%rdi
  mov    $0x1,%eax
  mov    %r9,0x48(%rsp)
  movss  %xmm1,0x14(%rsp)
  movss  %xmm2,0x10(%rsp)
  movss  %xmm3,0xc(%rsp)
  movss  %xmm4,0x8(%rsp)
  movss  %xmm5,0x4(%rsp)
  call   <boundarymultiply@plt>
  movss  0x4(%rsp),%xmm5
  mov    %ebx,%ecx
  mov    %r13d,%edx
  mov    $0x1,%r8d
  mov    %r12d,%esi
  pxor   %xmm0,%xmm0
  mov    %rbp,%rdi
  mov    $0x1,%eax
  cvtss2sd %xmm5,%xmm0
  call   <bio_3d_premult@plt>
  movss  0x8(%rsp),%xmm4
  xor    %r8d,%r8d
  mov    %ebx,%ecx
  mov    %r13d,%edx
  mov    %r12d,%esi
  mov    %rbp,%rdi
  mov    $0x1,%eax
  pxor   %xmm0,%xmm0
  cvtss2sd %xmm4,%xmm0
  call   <bio_3d_premult@plt>
  mov    %ebx,%ecx
  mov    %r13d,%edx
  movss  0xc(%rsp),%xmm3
  mov    %r12d,%esi
  mov    %rbp,%rdi
  pxor   %xmm0,%xmm0
  mov    $0x1,%r8d
  mov    $0x1,%eax
  cvtss2sd %xmm3,%xmm0
  call   <bio_3d_premult@plt>
  mov    %ebx,%ecx
  mov    %r13d,%edx
  movsd  D65(%rip),%xmm0
  mov    %r12d,%esi
  mov    %rbp,%rdi
  mov    $0x1,%eax
  call   <boundarymultiply@plt>
  movss  0x10(%rsp),%xmm2
  pxor   %xmm0,%xmm0
  test   %r15d,%r15d
  movss  0x14(%rsp),%xmm1
  cvtss2sd %xmm2,%xmm0
  je     L117
  mov    0x40(%rsp),%rax
  mov    %ebx,0xb8(%rsp)
  mov    %rbp,%rdi
  cvtss2sd %xmm1,%xmm1
  mov    %r13d,0xb0(%rsp)
  mov    0x48(%rsp),%r9
  mov    %rax,0x98(%rsp)
  mov    0x38(%rsp),%rax
  mov    %r12d,0xa8(%rsp)
  mov    0x30(%rsp),%r8
  mov    %r14,0xa0(%rsp)
  mov    0x28(%rsp),%rcx
  mov    %rax,0x90(%rsp)
  mov    0x20(%rsp),%rdx
  mov    $0x2,%eax
  mov    0x18(%rsp),%rsi
  add    $0x58,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    1090 <bioD1__3d@plt>
  nopl   (%rax)
L112:
  movss  D165(%rip),%xmm2
  movss  D196(%rip),%xmm3
  cmp    $0x2,%eax
  jne    L111
L21:
  movss  D53(%rip),%xmm1
  movss  D37(%rip),%xmm0
  movss  D106(%rip),%xmm4
  movss  D114(%rip),%xmm5
  jmp    L25
  cs nopw 0x0(%rax,%rax,1)
L34:
  movss  D206(%rip),%xmm1
  movss  D17(%rip),%xmm0
  movss  D166(%rip),%xmm4
  movss  D42(%rip),%xmm5
  jmp    L25
  nopl   (%rax)
L117:
  add    $0x58,%rsp
  mov    %ebx,%r8d
  mov    %r13d,%ecx
  mov    %r12d,%edx
  pop    %rbx
  mov    %r14,%rsi
  mov    %rbp,%rdi
  mov    $0x2,%eax
  pop    %rbp
  pop    %r12
  cvtss2sd %xmm1,%xmm1
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    1080 <bioD1_3dskip@plt>
  nopl   0x0(%rax,%rax,1)
L22:
  movss  D164(%rip),%xmm4
  movss  D8(%rip),%xmm5
  jmp    L55
```

tool_calls: name: disassemble_data
arguments: data_tag: D177
datatype: f32
name: disassemble_data
arguments: data_tag: D114
datatype: f32
name: disassemble_data
arguments: data_tag: D146
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D40
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D158
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D124
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D71
datatype: f64
name: disassemble_data
arguments: data_tag: D65
datatype: f64
name: disassemble_data
arguments: data_tag: D165
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D196
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D53
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D37
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D106
datatype: f32
name: disassemble_data
arguments: data_tag: D206
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D17
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D166
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D42
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D164
datatype: byte[4]
name: disassemble_data
arguments: data_tag: D8
datatype: byte[4]

tool: D177: 0.357142857136

tool: D114: 1

tool: {"D146": [0x0a,0xfc,0x7a,0x42]}

tool: {"D40": [0xa7,0x0d,0x80,0x42]}

tool: {"D158": [0xaa,0xaa,0x82,0x42]}

tool: {"D124": [0x55,0x55,0x85,0x42]}

tool: D71: 2

tool: D65: 0.5

tool: {"D165": [0x3e,0x0a,0x57,0xbe]}

tool: {"D196": [0x9a,0x99,0x99,0xbd]}

tool: {"D53": [0xf6,0xf1,0x70,0x3f]}

tool: {"D37": [0xc7,0xdc,0x75,0x3f]}

tool: D106: 0.98

tool: {"D206": [0xae,0x4e,0x67,0x3c]}

tool: {"D17": [0x25,0x07,0x6c,0x3c]}

tool: {"D166": [0x45,0xd8,0x70,0x3c]}

tool: {"D42": [0x90,0xc2,0x75,0x3c]}

tool: {"D164": [0x25,0x49,0x92,0xbd]}

tool: {"D8": [0xcd,0xcc,0x4c,0xbe]}

assistant: ```c
void adjbioR7_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.2;
  float x1 = 0.357142857136;
  float x2 = -0.21;
  float X0, X1, X2, X3;
  int pairity;
  float Norm;
  int dim;
  dim = (xlength > 1) + (ylength > 1) + (zlength > 1);
  if (0 || ifnotAllskip) {
    X0 = x0;
    X1 = x0 * x1;
    X2 = x1 * x2;
    X3 = 1.0 / x2;
  } else {
    X0 = x0;
    X1 = x0 * x1;
    X2 = 1;
    X3 = 1.0 / x1;
  }
  X3 = 1 / X3;
  if (dim == 3)
    Norm = (x0 * x1 * x2);
  if (dim == 2)
    Norm = 1.0;
  if (dim == 1)
    Norm = 1.0 / (x0 * x1 * x2);
  if (xlength > 1)
    Norm *= (0.98);
  if (ylength > 1)
    Norm *= (0.98);
  if (zlength > 1)
    Norm *= (0.98);
  if (dim == 0) {
    Norm = 1.0;
    X0 = 1.0;
    X1 = 1.0;
    X2 = 1.0;
    X3 = 1.0;
  }
  boundarymultiply(invector, xlength, ylength, zlength, 2.0);
  pairity = 1;
  bio_3d_premult(invector, xlength, ylength, zlength, X0, pairity);
  pairity = 0;
  bio_3d_premult(invector, xlength, ylength, zlength, X1, pairity);
  pairity = 1;
  bio_3d_premult(invector, xlength, ylength, zlength, X2, pairity);
  boundarymultiply(invector, xlength, ylength, zlength, 0.5);
  if (ifnotAllskip)
    bioD1__3d(invector, HHH, HHL, HLH, HLL, LHH, LHL, LLH, LLL, xlength, ylength, zlength, X3, Norm);
  else
    bioD1_3dskip(invector, LLL, xlength, ylength, zlength, X3, Norm);
}
```