user: 请从给定的汇编指令推导出C源代码：

```asm
<read_matrix>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    %rdi,0x8(%rsp)
  mov    %rsi,0x10(%rsp)
  mov    %edx,%ebp
  mov    %ecx,%r12d
  mov    %r8d,%r15d
  mov    %r9d,%r13d
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  mov    %ecx,%r14d
  sub    %edx,%r14d
  add    $0x1,%r14d
  mov    %r9d,%eax
  sub    %r8d,%eax
  add    $0x1,%eax
  imul   %eax,%r14d
  movslq %r14d,%rdi
  shl    $0x2,%rdi
  call   <malloc@plt>
  mov    %rax,%rbx
  lea    D38(%rip),%rsi
  mov    0x8(%rsp),%rdi
  call   <fopen@plt>
  mov    %rax,(%rsp)
  test   %rax,%rax
  je     L67
L13:
  mov    (%rsp),%rcx
  mov    %r14d,%edx
  mov    $0x4,%esi
  mov    %rbx,%rdi
  call   <fread@plt>
  cmp    %r15d,%r13d
  jl     L62
  movslq %r15d,%rax
  lea    0x0(,%rax,8),%rcx
  sub    %r15d,%r13d
  lea    0x1(%rax,%r13,1),%r9
  shl    $0x3,%r9
  mov    %rbx,%rdx
  neg    %rdx
  movslq %ebp,%rax
  shl    $0x3,%rax
  lea    (%rax,%rdx,2),%r14
  mov    $0x0,%r8d
  mov    %r12d,%r10d
  sub    %ebp,%r10d
  mov    %r10d,%r13d
  lea    0x4(%rbx),%r11
  add    $0x1,%r10d
  mov    0x10(%rsp),%r15
  jmp    L7
L67:
  lea    0x20(%rsp),%rax
  mov    0x8(%rsp),%rdx
  lea    D2(%rip),%rsi
  mov    %rax,0x18(%rsp)
  mov    %rax,%rdi
  call   <sprintf@plt>
  mov    0x18(%rsp),%rdx
  lea    D36(%rip),%rsi
  mov    $0x12f,%edi
  call   <errhandler@plt>
  jmp    L13
L103:
  movslq %r8d,%rdx
  lea    (%rbx,%rdx,4),%rax
  lea    0x0(%r13,%rdx,1),%rsi
  lea    (%r11,%rsi,4),%rdi
  neg    %rdx
  lea    (%r14,%rdx,8),%rsi
  add    %r15,%rsi
L0:
  mov    (%rsi,%rax,2),%rdx
  pxor   %xmm0,%xmm0
  cvtss2sd (%rax),%xmm0
  movsd  %xmm0,(%rdx,%rcx,1)
  add    $0x4,%rax
  cmp    %rdi,%rax
  jne    L0
  add    %r10d,%r8d
L101:
  add    $0x8,%rcx
  cmp    %r9,%rcx
  je     L62
L7:
  cmp    %ebp,%r12d
  jge    L103
  jmp    L101
L62:
  mov    (%rsp),%rdi
  call   <fclose@plt>
  test   %rax,%rax
  jne    L55
L88:
  mov    %rbx,%rdi
  call   <free@plt>
  mov    0x78(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L27
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L55:
  lea    0x20(%rsp),%rbp
  mov    0x8(%rsp),%rdx
  lea    D21(%rip),%rsi
  mov    %rbp,%rdi
  call   <sprintf@plt>
  mov    %rbp,%rdx
  lea    D36(%rip),%rsi
  mov    $0x13f,%edi
  call   <errhandler@plt>
  jmp    L88
L27:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: tag: D38
type_guessed: string
name: parse_data
arguments: tag: D2
type_guessed: string
name: parse_data
arguments: tag: D36
type_guessed: string
name: parse_data
arguments: tag: D21
type_guessed: string

tool: D38: r

tool: D2: Can not read file %s !!!

tool: D36: /scratch/repos/new/home/jordi_armengol_estape/c-scraper/outputs/2022-01-22/02-19-57/repos/grantathon/computational_fluid_dynamics/refs/heads/master/project/ns_sim_parallel/helper.c

tool: D21: Inputfile %s cannot be closed

assistant: ```c
void read_matrix(const char *szFileName, double **m, int nrl, int nrh, int ncl, int nch) {
  int i, j;
  FILE *fh = 0;
  int nSize = (nrh - nrl + 1) * (nch - ncl + 1);
  float *tmp = (float *)malloc((size_t)(nSize * sizeof(float)));
  int k = 0;
  fh = fopen(szFileName, "r");
  if (fh == NULL) {
    char szBuff[80];
    sprintf(szBuff, "Can not read file %s !!!", szFileName);
    errhandler(303, "/scratch/repos/new/home/jordi_armengol_estape/c-scraper/outputs/2022-01-22/02-19-57/repos/grantathon/computational_fluid_dynamics/refs/heads/master/project/ns_sim_parallel/helper.c", szBuff);
  }
  fread(tmp, sizeof(float), nSize, fh);
  for (j = ncl; j <= nch; j++)
    for (i = nrl; i <= nrh; i++)
      m[i][j] = tmp[k++];
  if (fclose(fh)) {
    char szBuff[80];
    sprintf(szBuff, "Inputfile %s cannot be closed", szFileName);
    errhandler(319, "/scratch/repos/new/home/jordi_armengol_estape/c-scraper/outputs/2022-01-22/02-19-57/repos/grantathon/computational_fluid_dynamics/refs/heads/master/project/ns_sim_parallel/helper.c", szBuff);
  };
  free(tmp);
}
```