user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<readPirna>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  mov    %edx,%r13d
  push   %r12
  push   %rbp
  push   %rbx
  mov    %ecx,%ebx
  sub    $0x298,%rsp
  mov    %edi,0x1c(%rsp)
  lea    0x8(,%rdx,8),%edi
  mov    0x2d0(%rsp),%r15
  mov    %esi,0x20(%rsp)
  mov    %ecx,0x14(%rsp)
  mov    %r8d,0x24(%rsp)
  mov    %r9,0x28(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x288(%rsp)
  xor    %eax,%eax
  call   <malloc@plt>
  mov    %rax,0x8(%rsp)
  test   %r13d,%r13d
  js     L17
  lea    0x8(,%rbx,8),%ecx
  movl   $0x0,0x10(%rsp)
  mov    %rax,%r14
  mov    %ecx,0x18(%rsp)
L84:
  mov    0x18(%rsp),%edi
  call   <malloc@plt>
  mov    0x14(%rsp),%ecx
  mov    %rax,(%r14)
  test   %ecx,%ecx
  js     L89
  xor    %r12d,%r12d
L71:
  mov    $0xd0,%edi
  lea    0x0(,%r12,8),%rbx
  xor    %ebp,%ebp
  call   <malloc@plt>
  mov    (%r14),%rdx
  mov    %rax,(%rdx,%r12,8)
  nopl   (%rax)
L117:
  mov    $0xd0,%edi
  call   <malloc@plt>
  mov    (%r14),%rdx
  mov    D1(%rip),%rcx
  mov    (%rdx,%rbx,1),%rdx
  movq   %rcx,%xmm0
  mov    %rax,(%rdx,%rbp,1)
  lea    0xd0(%rax),%rdx
  nopl   0x0(%rax,%rax,1)
L92:
  movsd  %xmm0,(%rax)
  add    $0x8,%rax
  cmp    %rdx,%rax
  jne    L92
  add    $0x8,%rbp
  cmp    $0xd0,%rbp
  jne    L117
  add    $0x1,%r12
  cmp    %r12d,0x14(%rsp)
  jge    L71
L89:
  addl   $0x1,0x10(%rsp)
  mov    0x10(%rsp),%eax
  add    $0x8,%r14
  cmp    %eax,%r13d
  jge    L84
L17:
  mov    %r15,%rsi
  lea    D98(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D96(%rip),%rsi
  mov    %r15,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  jne    L82
  lea    D73(%rip),%rdi
  lea    0x50(%rsp),%r12
  call   <puts@plt>
  lea    D53(%rip),%rdi
  call   <puts@plt>
  mov    0x20(%rsp),%ecx
  mov    0x1c(%rsp),%edx
  mov    %r12,%rdi
  lea    D26(%rip),%rsi
  call   <sprintf@plt>
  mov    %r12,%rsi
  lea    D56(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
L60:
  mov    %r12,%rdi
  lea    D10(%rip),%rsi
  lea    0x90(%rsp),%r13
  call   <fopen@plt>
  lea    D99(%rip),%rbx
  mov    %rax,%r12
  test   %rax,%rax
  jne    L7
  jmp    L125
  nopl   0x0(%rax,%rax,1)
L9:
  lea    0x3c(%rsp),%rcx
  lea    0x38(%rsp),%rdx
  mov    %rbx,%rsi
  mov    %r13,%rdi
  sub    $0x8,%rsp
  lea    0x50(%rsp),%rax
  push   %rax
  lea    0x54(%rsp),%r9
  lea    0x50(%rsp),%r8
  call   <sscanf@plt>
  movslq 0x4c(%rsp),%rcx
  mov    0x18(%rsp),%rdi
  movslq 0x54(%rsp),%rsi
  movsd  0x58(%rsp),%xmm0
  mov    %rcx,%rdx
  mov    0x8(%rdi,%rcx,8),%rcx
  sub    0x48(%rsp),%edx
  movslq %edx,%rdx
  mov    %rsi,%rax
  sub    0x50(%rsp),%eax
  mov    0x8(%rcx,%rsi,8),%rcx
  cltq
  mov    (%rcx,%rdx,8),%rdx
  movsd  %xmm0,(%rdx,%rax,8)
  pop    %rax
  pop    %rdx
L7:
  mov    %r12,%rdx
  mov    $0x1f4,%esi
  mov    %r13,%rdi
  call   <fgets@plt>
  test   %rax,%rax
  jne    L9
  mov    %r12,%rdi
  call   <fclose@plt>
  lea    D81(%rip),%rdi
  call   <puts@plt>
  movslq 0x24(%rsp),%rax
  mov    0x28(%rsp),%rcx
  mov    0x8(%rsp),%rsi
  mov    %rsi,(%rcx,%rax,8)
L90:
  mov    0x288(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L74
  add    $0x298,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L82:
  lea    0x50(%rsp),%r12
  lea    D119(%rip),%rdi
  call   <puts@plt>
  mov    %r15,%rsi
  mov    %r12,%rdi
  call   <strcpy@plt>
  mov    %r12,%rsi
  lea    D90(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  jmp    L60
L125:
  lea    D28(%rip),%rdi
  call   <puts@plt>
  jmp    L90
L74:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D1
data_type: f64
name: extract_symbolic_data
arguments: data_label: D98
data_type: string
name: extract_symbolic_data
arguments: data_label: D96
data_type: string
name: extract_symbolic_data
arguments: data_label: D73
data_type: string
name: extract_symbolic_data
arguments: data_label: D53
data_type: string
name: extract_symbolic_data
arguments: data_label: D26
data_type: string
name: extract_symbolic_data
arguments: data_label: D56
data_type: string
name: extract_symbolic_data
arguments: data_label: D10
data_type: string
name: extract_symbolic_data
arguments: data_label: D99
data_type: string
name: extract_symbolic_data
arguments: data_label: D81
data_type: string
name: extract_symbolic_data
arguments: data_label: D119
data_type: string
name: extract_symbolic_data
arguments: data_label: D90
data_type: string
name: extract_symbolic_data
arguments: data_label: D28
data_type: string

tool: D1: 9999

tool: D98: filename2 = *%s* 


tool: D96: default

tool: D73: here 1

tool: D53: Reading default file... 

tool: D26: pirna_out_%d_%d.dat

tool: D56: File name = %s 



tool: D10: rt

tool: D99: %d	%d	%d	%d	%lf


tool: D81: Read file 


tool: D119: here 2 

tool: D90: Reading file %s... 


tool: D28: File read error! 

assistant: ```c
void readPirna(int evenId, int oddId, int n1, int n2, int location, double *****rnaupCollections, char *fileName2) {
  double ****rnaWins;
  double INF_1 = 9999;
  rnaWins = (double ****)malloc(sizeof(double ***) * (n1 + 1));
  int i, j, k;
  for (i = 0; i <= n1; i++) {
    rnaWins[i] = (double ***)malloc(sizeof(double **) * (n2 + 1));
    for (j = 0; j <= n2; j++) {
      rnaWins[i][j] = (double **)malloc(sizeof(double *) * (26));
      for (k = 0; k <= 25; k++) {
        rnaWins[i][j][k] = (double *)malloc(sizeof(double) * (26));
        int k2 = 0;
        for (k2 = 0; k2 <= 25; k2++) {
          rnaWins[i][j][k][k2] = INF_1;
        }
      }
    }
  }
  char fileName[50];
  printf("filename2 = *%s* \n", fileName2);
  if (!strcmp(fileName2, "default")) {
    printf("here 1\n");
    printf("Reading default file... \n");
    sprintf(fileName, "pirna_out_%d_%d.dat", evenId, oddId);
    printf("File name = %s \n\n", fileName);
  } else {
    printf("here 2 \n");
    strcpy(fileName, fileName2);
    printf("Reading file %s... \n", fileName);
  }
  int count = 0;
  FILE *file = fopen(fileName, "rt");
  if (file != NULL) {
    char line[500];
    while (fgets(line, sizeof line, file) != NULL) {
      int i1, j1, i2, j2;
      double energy;
      sscanf(line, "%d\t%d\t%d\t%d\t%lf\n", &i1, &j1, &i2, &j2, &energy);
      int w1 = j1 - i1;
      int w2 = j2 - i2;
      rnaWins[j1 + 1][j2 + 1][w1][w2] = energy;
    }
    fclose(file);
    printf("Read file \n\n");
    rnaupCollections[location] = rnaWins;
  } else {
    printf("File read error! \n");
  }
}
```