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

```asm
<bbn_excluded>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xf8,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0xe8(%rsp)
  xor    %eax,%eax
  lea    0x10(%rsp),%rsi
  call   <nucl@plt>
  mov    %rax,%rdx
  mov    $0xffffffff,%eax
  test   %rdx,%rdx
  je     L27
L24:
  mov    0xe8(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L108
  add    $0xf8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L27:
  mov    0x28(%rsp),%rbp
  mov    0x40(%rsp),%rbx
  mov    0x50(%rsp),%r13
  mov    0x58(%rsp),%r15
  mov    0x38(%rsp),%r12
  mov    0x48(%rsp),%r14
  movq   %rbx,%xmm0
  call   <isnan@plt>
  mov    %rax,%rdx
  mov    $0xffffffff,%eax
  test   %rdx,%rdx
  jne    L24
  movq   %rbp,%xmm0
  call   <isnan@plt>
  mov    %rax,%rdx
  mov    $0xffffffff,%eax
  test   %rdx,%rdx
  jne    L24
  movq   %r12,%xmm1
  movq   %rbp,%xmm2
  divsd  %xmm2,%xmm1
  movsd  %xmm1,(%rsp)
  movapd %xmm1,%xmm0
  call   <isnan@plt>
  mov    %rax,%rdx
  mov    $0xffffffff,%eax
  test   %rdx,%rdx
  jne    L24
  movq   %r13,%xmm0
  call   <isnan@plt>
  mov    %rax,%rdx
  mov    $0xffffffff,%eax
  test   %rdx,%rdx
  jne    L24
  movq   %r14,%xmm3
  movq   %r13,%xmm4
  divsd  %xmm4,%xmm3
  movsd  %xmm3,0x8(%rsp)
  movapd %xmm3,%xmm0
  call   <isnan@plt>
  mov    %rax,%rdx
  mov    $0xffffffff,%eax
  test   %rdx,%rdx
  jne    L24
  movq   %r15,%xmm0
  call   <isnan@plt>
  mov    %rax,%rdx
  mov    $0xffffffff,%eax
  test   %rdx,%rdx
  jne    L24
  movsd  D4(%rip),%xmm0
  movq   %rbx,%xmm5
  mov    $0x1,%eax
  comisd %xmm5,%xmm0
  jbe    L24
  movq   %rbp,%xmm6
  mov    $0x1,%eax
  comisd D38(%rip),%xmm6
  jbe    L24
  movsd  D24(%rip),%xmm0
  mov    $0x1,%eax
  comisd %xmm6,%xmm0
  jbe    L24
  movsd  D56(%rip),%xmm0
  mov    $0x1,%eax
  comisd (%rsp),%xmm0
  jbe    L24
  movq   %r13,%xmm7
  mov    $0x1,%eax
  comisd D36(%rip),%xmm7
  jbe    L24
  movsd  D42(%rip),%xmm0
  comisd 0x8(%rsp),%xmm0
  setbe  %al
  movzbl %al,%eax
  jmp    L24
L108:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: tag: D4
datatype: f64
name: read_data
arguments: tag: D38
datatype: byte[16]
name: read_data
arguments: tag: D24
datatype: byte[8]
name: read_data
arguments: tag: D56
datatype: f64
name: read_data
arguments: tag: D36
datatype: byte[16]
name: read_data
arguments: tag: D42
datatype: f64

tool: D4: 0.258

tool: {"D38": [0x54,0xe4,0x10,0x71,0x73,0x2a,0xe9,0x3e,0x72,0x51,0x2d,0x22,0x8a,0xc9,0x0b,0x3f]}

tool: {"D24": [0x72,0x51,0x2d,0x22,0x8a,0xc9,0x0b,0x3f]}

tool: D56: 1.52

tool: {"D36": [0xdf,0xfa,0x90,0xdf,0x57,0x5d,0xd7,0x3d,0x1f,0x85,0xeb,0x51,0xb8,0x1e,0xe5,0x3f]}

tool: D42: 0.66

assistant: ```c
int bbn_excluded(struct relicparam *paramrelic) {
  double H2_H, Yp, Li7_H, Be7_H, He3_H, Li6_H;
  double ratioH[26 + 1];
  if (nucl(paramrelic, ratioH) == 0) {
    H2_H = ratioH[3];
    Yp = ratioH[6];
    Li7_H = ratioH[8];
    Be7_H = ratioH[9];
    He3_H = ratioH[5];
    Li6_H = ratioH[7];
    if (isnan(Yp) || isnan(H2_H) || isnan(He3_H / H2_H) || isnan(Li7_H) || isnan(Li6_H / Li7_H) || isnan(Be7_H))
      return -1;
    if ((Yp < 0.258) && ((H2_H > 1.2e-5) && (H2_H < 5.3e-5)) && (He3_H / H2_H < 1.52) && (Li7_H > 0.85e-10) && (Li6_H / Li7_H < 0.66))
      return 0;
    else
      return 1;
  } else
    return -1;
}
```