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

```asm
<check_base_base>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x90,%rsp
  mov    %rdi,-0x58(%rbp)
  mov    %rsi,-0x60(%rbp)
  movsd  %xmm0,-0x68(%rbp)
  mov    %rdx,-0x70(%rbp)
  mov    %rcx,-0x78(%rbp)
  mov    %r8,-0x80(%rbp)
  mov    %r9,-0x88(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  mov    -0x88(%rbp),%rax
  movq   $0x0,(%rax)
  mov    -0x58(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    0x8(%rax),%rax
  mov    %rax,-0x48(%rbp)
  jmp    L137
L43:
  mov    -0x48(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    $0x50,%esi
  mov    %rax,%rdi
  call   <strchr@plt>
  test   %rax,%rax
  jne    L119
  mov    -0x60(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    0x8(%rax),%rax
  mov    %rax,-0x40(%rbp)
  jmp    L87
L57:
  mov    -0x40(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    $0x50,%esi
  mov    %rax,%rdi
  call   <strchr@plt>
  test   %rax,%rax
  jne    L59
  movq   $0x1,-0x50(%rbp)
  jmp    L54
L125:
  mov    -0x48(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x50(%rbp),%rax
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x40(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x50(%rbp),%rax
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  mov    -0x50(%rbp),%rax
  movsd  %xmm0,-0x30(%rbp,%rax,8)
  addq   $0x1,-0x50(%rbp)
L54:
  cmpq   $0x3,-0x50(%rbp)
  jle    L125
  lea    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <veclen@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x38(%rbp)
  movsd  -0x68(%rbp),%xmm0
  comisd -0x38(%rbp),%xmm0
  jb     L25
  mov    -0x48(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    $0x27,%esi
  mov    %rax,%rdi
  call   <strchr@plt>
  test   %rax,%rax
  jne    L25
  mov    -0x40(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x78(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    $0x27,%esi
  mov    %rax,%rdi
  call   <strchr@plt>
  test   %rax,%rax
  jne    L25
  mov    -0x88(%rbp),%rax
  movq   $0x1,(%rax)
  jmp    L127
L59:
  nop
L25:
  addq   $0x1,-0x40(%rbp)
L87:
  mov    -0x60(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  add    $0x10,%rax
  mov    (%rax),%rax
  cmp    %rax,-0x40(%rbp)
  jle    L57
  jmp    L133
L119:
  nop
L133:
  addq   $0x1,-0x48(%rbp)
L137:
  mov    -0x58(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  add    $0x10,%rax
  mov    (%rax),%rax
  cmp    %rax,-0x48(%rbp)
  jle    L43
L127:
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L11
  call   <__stack_chk_fail@plt>
L11:
  leave
  ret
```

assistant: ```c
void check_base_base(long i, long j, double hlimit, long **seidx, char **AtomName, double **xyz, long *yes) {
  long k, m, n;
  double dtmp[4], dd;
  *yes = 0;
  for (m = seidx[i][1]; m <= seidx[i][2]; m++) {
    if (strchr(AtomName[m], 'P'))
      continue;
    for (n = seidx[j][1]; n <= seidx[j][2]; n++) {
      if (strchr(AtomName[n], 'P'))
        continue;
      for (k = 1; k <= 3; k++) {
        dtmp[k] = xyz[m][k] - xyz[n][k];
      }
      dd = veclen(dtmp);
      if (dd <= hlimit && !strchr(AtomName[m], '\'') && !strchr(AtomName[n], '\'')) {
        *yes = 1;
        return;
      }
    }
  }
}
```