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

```asm
<read_data_double2>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x68,%rsp
  mov    %rdi,-0x58(%rbp)
  mov    %esi,-0x5c(%rbp)
  mov    %edx,-0x60(%rbp)
  mov    %rcx,-0x68(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x18(%rbp)
  xor    %eax,%eax
  mov    %rsp,%rax
  mov    %rax,%rbx
  movq   $0x0,-0x30(%rbp)
  movl   $0x0,-0x4c(%rbp)
  movl   $0x0,-0x48(%rbp)
  mov    -0x60(%rbp),%eax
  imul   $0x1e,%eax,%eax
  mov    %eax,-0x44(%rbp)
  mov    -0x44(%rbp),%eax
  movslq %eax,%rdx
  sub    $0x1,%rdx
  mov    %rdx,-0x28(%rbp)
  movslq %eax,%rdx
  mov    %rdx,%r10
  mov    $0x0,%r11d
  movslq %eax,%rdx
  mov    %rdx,%r8
  mov    $0x0,%r9d
  cltq
  mov    $0x10,%edx
  sub    $0x1,%rdx
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L78:
  cmp    %rdx,%rsp
  je     L53
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L78
L53:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  mov    %rax,%rdx
  and    $0xfff,%edx
  test   %rdx,%rdx
  je     L2
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L2:
  mov    %rsp,%rax
  add    $0x0,%rax
  mov    %rax,-0x20(%rbp)
  mov    -0x5c(%rbp),%eax
  mov    %eax,-0x40(%rbp)
  mov    -0x60(%rbp),%eax
  mov    %eax,-0x3c(%rbp)
  movl   $0x0,-0x4c(%rbp)
  mov    -0x58(%rbp),%rax
  lea    D75(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <fopen@plt>
  mov    %rax,-0x30(%rbp)
  cmpq   $0x0,-0x30(%rbp)
  jne    L52
  mov    -0x58(%rbp),%rax
  mov    $0x0,%edx
  mov    %rax,%rsi
  lea    D23(%rip),%rax
  mov    %rax,%rdi
  call   <print_error_global@plt>
L52:
  mov    -0x30(%rbp),%rdx
  mov    -0x44(%rbp),%ecx
  mov    -0x20(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    %rax,-0x38(%rbp)
  jmp    L107
L94:
  movl   $0x0,-0x48(%rbp)
  mov    -0x20(%rbp),%rax
  lea    D58(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <strtok@plt>
  mov    %rax,-0x38(%rbp)
  jmp    L83
L61:
  mov    -0x38(%rbp),%rax
  mov    %rax,%rdi
  call   <atof@plt>
  mov    %rax,%rdx
  mov    -0x4c(%rbp),%eax
  imul   -0x60(%rbp),%eax
  mov    %eax,%ecx
  mov    -0x48(%rbp),%eax
  add    %ecx,%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x68(%rbp),%rax
  add    %rcx,%rax
  pxor   %xmm0,%xmm0
  cvtsi2sd %rdx,%xmm0
  movsd  %xmm0,(%rax)
  lea    D58(%rip),%rax
  mov    %rax,%rsi
  mov    $0x0,%edi
  call   <strtok@plt>
  mov    %rax,-0x38(%rbp)
  addl   $0x1,-0x48(%rbp)
L83:
  cmpq   $0x0,-0x38(%rbp)
  je     L64
  mov    -0x48(%rbp),%eax
  cmp    -0x3c(%rbp),%eax
  jl     L61
L64:
  addl   $0x1,-0x4c(%rbp)
  mov    -0x48(%rbp),%eax
  cmp    -0x3c(%rbp),%eax
  je     L87
  mov    -0x3c(%rbp),%esi
  mov    -0x48(%rbp),%ecx
  mov    -0x4c(%rbp),%edx
  mov    -0x58(%rbp),%rax
  mov    %esi,%r8d
  mov    %rax,%rsi
  lea    D79(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    $0x1,%edi
  call   <exit@plt>
L87:
  cmpq   $0x0,-0x38(%rbp)
  je     L38
  mov    -0x3c(%rbp),%ecx
  mov    -0x4c(%rbp),%edx
  mov    -0x58(%rbp),%rax
  mov    %rax,%rsi
  lea    D70(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    $0x1,%edi
  call   <exit@plt>
L38:
  mov    -0x30(%rbp),%rdx
  mov    -0x44(%rbp),%ecx
  mov    -0x20(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    %rax,-0x38(%rbp)
L107:
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <feof@plt>
  test   %eax,%eax
  sete   %dl
  mov    -0x4c(%rbp),%eax
  cmp    -0x40(%rbp),%eax
  setl   %al
  and    %edx,%eax
  test   %al,%al
  jne    L94
  mov    -0x4c(%rbp),%eax
  cmp    -0x40(%rbp),%eax
  je     L110
  mov    -0x40(%rbp),%ecx
  mov    -0x4c(%rbp),%edx
  mov    -0x58(%rbp),%rax
  mov    %rax,%rsi
  lea    D19(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    $0x1,%edi
  call   <exit@plt>
L110:
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <feof@plt>
  test   %eax,%eax
  jne    L57
  mov    -0x40(%rbp),%edx
  mov    -0x58(%rbp),%rax
  mov    %rax,%rsi
  lea    D22(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    $0x1,%edi
  call   <exit@plt>
L57:
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  mov    %rbx,%rsp
  nop
  mov    -0x18(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L37
  call   <__stack_chk_fail@plt>
L37:
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: tag: D75
type_infered: string
name: disassemble_data
arguments: tag: D23
type_infered: string
name: disassemble_data
arguments: tag: D58
type_infered: string
name: disassemble_data
arguments: tag: D79
type_infered: string
name: disassemble_data
arguments: tag: D70
type_infered: string
name: disassemble_data
arguments: tag: D19
type_infered: string
name: disassemble_data
arguments: tag: D22
type_infered: string

tool: D75: r

tool: D23: open

tool: D58:  

tool: D79: Error: unable to read file %s. It seems that line %d contains %d columns instead of %d.



tool: D70: Error: unable to read file %s. It seems that line %d contains more than %d columns.



tool: D19: Error: unable to read file %s. It seems that it contains %d lines instead of %d.



tool: D22: Error: unable to read file %s. It seems that it contains more than %d lines.



assistant: ```c
void read_data_double2(char *file_data, int N, int M, double *dat) {
  FILE *m_File = NULL;
  int i = 0;
  int j = 0;
  int max_char_per_line = 30 * M;
  char szbuff[max_char_per_line];
  char *token;
  int lmax = N;
  int cmax = M;
  i = 0;
  m_File = fopen(file_data, "r");
  if (!m_File)
    print_error_global("open", file_data, 0);
  token = fgets(szbuff, max_char_per_line, m_File);
  while (!feof(m_File) & (i < lmax)) {
    j = 0;
    token = strtok(szbuff, " ");
    while (token && j < cmax) {
      dat[i * M + j] = (double)atof(token);
      token = strtok(NULL, " ");
      j++;
    }
    i++;
    if (j != cmax) {
      printf("Error: unable to read file %s. It seems that"
             " line %d contains %d columns instead of %d."
             "\n\n",
             file_data, i, j, cmax);
      fclose(m_File);
      exit(1);
    }
    if (token) {
      printf("Error: unable to read file %s. It seems that"
             " line %d contains more than %d columns.\n\n",
             file_data, i, cmax);
      fclose(m_File);
      exit(1);
    }
    token = fgets(szbuff, max_char_per_line, m_File);
  }
  if (i != lmax) {
    printf("Error: unable to read file %s. It seems that it "
           "contains %d lines instead of %d.\n\n",
           file_data, i, lmax);
    fclose(m_File);
    exit(1);
  }
  if (!feof(m_File)) {
    printf("Error: unable to read file %s. It seems that it "
           "contains more than %d lines.\n\n",
           file_data, lmax);
    fclose(m_File);
    exit(1);
  }
  fclose(m_File);
}
```