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

```asm
<main>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x2c0,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <vector@plt>
  mov    %rax,-0x2a0(%rbp)
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <vector@plt>
  mov    %rax,-0x298(%rbp)
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <vector@plt>
  mov    %rax,-0x290(%rbp)
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <vector@plt>
  mov    %rax,-0x288(%rbp)
  mov    $0xc,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <matrix@plt>
  mov    %rax,-0x280(%rbp)
  lea    D91(%rip),%rax
  mov    %rax,%rsi
  lea    D18(%rip),%rax
  mov    %rax,%rdi
  call   <fopen@plt>
  mov    %rax,-0x278(%rbp)
  cmpq   $0x0,-0x278(%rbp)
  jne    L142
  lea    D36(%rip),%rax
  mov    %rax,%rdi
  call   <nrerror@plt>
L142:
  mov    -0x278(%rbp),%rdx
  lea    -0xb0(%rbp),%rax
  mov    $0x50,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0x278(%rbp),%rdx
  lea    -0x60(%rbp),%rax
  mov    $0x50,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0x278(%rbp),%rax
  lea    D39(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fscanf@plt>
  movl   $0x1,-0x2a8(%rbp)
  jmp    L191
L165:
  lea    -0x270(%rbp),%rcx
  mov    -0x2a8(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  shl    $0x2,%rax
  add    %rdx,%rax
  lea    (%rcx,%rax,1),%rdx
  mov    -0x278(%rbp),%rax
  lea    D139(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fscanf@plt>
  addl   $0x1,-0x2a8(%rbp)
L191:
  cmpl   $0xc,-0x2a8(%rbp)
  jle    L165
  mov    -0x278(%rbp),%rdx
  lea    -0xb0(%rbp),%rax
  mov    $0x50,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  mov    -0x278(%rbp),%rdx
  lea    -0xb0(%rbp),%rax
  mov    $0x50,%esi
  mov    %rax,%rdi
  call   <fgets@plt>
  movl   $0x1,-0x2a8(%rbp)
  jmp    L147
L69:
  lea    -0x220(%rbp),%rcx
  mov    -0x2a8(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  shl    $0x4,%rax
  add    %rdx,%rax
  lea    (%rcx,%rax,1),%rdx
  mov    -0x278(%rbp),%rax
  lea    D57(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fscanf@plt>
  mov    -0x2a8(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  shl    $0x4,%rax
  add    %rdx,%rax
  add    %rbp,%rax
  sub    $0x210,%rax
  movb   $0x0,(%rax)
  movl   $0x1,-0x2a4(%rbp)
  jmp    L51
L166:
  mov    -0x2a8(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x280(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2a4(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rax,%rdx
  mov    -0x278(%rbp),%rax
  lea    D48(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fscanf@plt>
  addl   $0x1,-0x2a4(%rbp)
L51:
  cmpl   $0xc,-0x2a4(%rbp)
  jle    L166
  mov    -0x2a8(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x288(%rbp),%rax
  lea    (%rdx,%rax,1),%rcx
  mov    -0x2a8(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x2a0(%rbp),%rax
  add    %rax,%rdx
  mov    -0x278(%rbp),%rax
  lea    D200(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fscanf@plt>
  addl   $0x1,-0x2a8(%rbp)
L147:
  cmpl   $0x14,-0x2a8(%rbp)
  jle    L69
  mov    -0x278(%rbp),%rax
  mov    %rax,%rdi
  call   <fclose@plt>
  lea    -0x60(%rbp),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  lea    D144(%rip),%rax
  mov    %rax,%rsi
  lea    D19(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  movl   $0x1,-0x2a8(%rbp)
  jmp    L98
L132:
  lea    -0x270(%rbp),%rcx
  mov    -0x2a8(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  shl    $0x2,%rax
  add    %rdx,%rax
  add    %rcx,%rax
  mov    %rax,%rsi
  lea    D10(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  addl   $0x1,-0x2a8(%rbp)
L98:
  cmpl   $0xc,-0x2a8(%rbp)
  jle    L132
  mov    $0xa,%edi
  call   <putchar@plt>
  movl   $0x1,-0x2a8(%rbp)
  jmp    L106
L148:
  lea    -0x220(%rbp),%rcx
  mov    -0x2a8(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  shl    $0x4,%rax
  add    %rdx,%rax
  add    %rcx,%rax
  mov    %rax,%rsi
  lea    D135(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  movl   $0x1,-0x2a4(%rbp)
  jmp    L99
L82:
  mov    -0x2a8(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x280(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2a4(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  cvtss2sd %xmm0,%xmm1
  movsd  D16(%rip),%xmm0
  addsd  %xmm1,%xmm0
  cvttsd2si %xmm0,%eax
  mov    %eax,%esi
  lea    D55(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  addl   $0x1,-0x2a4(%rbp)
L99:
  cmpl   $0xc,-0x2a4(%rbp)
  jle    L82
  mov    $0xa,%edi
  call   <putchar@plt>
  addl   $0x1,-0x2a8(%rbp)
L106:
  cmpl   $0x14,-0x2a8(%rbp)
  jle    L148
  lea    D204(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  lea    D151(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  lea    D61(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  sub    $0x8,%rsp
  lea    D137(%rip),%rax
  push   %rax
  lea    D77(%rip),%r9
  lea    D195(%rip),%r8
  lea    D228(%rip),%rax
  mov    %rax,%rcx
  lea    D52(%rip),%rax
  mov    %rax,%rdx
  lea    D188(%rip),%rax
  mov    %rax,%rsi
  lea    D168(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  add    $0x10,%rsp
  movl   $0x1,-0x2a8(%rbp)
  jmp    L35
L130:
  mov    -0x2a8(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x280(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    -0x2a8(%rbp),%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,4),%rcx
  mov    -0x298(%rbp),%rdx
  add    %rcx,%rdx
  movss  0x4(%rax),%xmm0
  movss  %xmm0,(%rdx)
  addl   $0x1,-0x2a8(%rbp)
L35:
  cmpl   $0x14,-0x2a8(%rbp)
  jle    L130
  movl   $0x1,-0x2a4(%rbp)
  jmp    L152
L198:
  movl   $0x1,-0x2a8(%rbp)
  jmp    L145
L13:
  mov    -0x2a8(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x280(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2a4(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rax,%rdx
  mov    -0x2a8(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rcx
  mov    -0x290(%rbp),%rax
  add    %rcx,%rax
  movss  (%rdx),%xmm0
  movss  %xmm0,(%rax)
  addl   $0x1,-0x2a8(%rbp)
L145:
  cmpl   $0x14,-0x2a8(%rbp)
  jle    L13
  lea    -0x2b8(%rbp),%r8
  lea    -0x2ac(%rbp),%rdi
  lea    -0x2bc(%rbp),%rdx
  mov    -0x290(%rbp),%rsi
  mov    -0x298(%rbp),%rax
  lea    -0x2b4(%rbp),%rcx
  push   %rcx
  lea    -0x2b0(%rbp),%rcx
  push   %rcx
  mov    %r8,%r9
  mov    %rdi,%r8
  mov    %rdx,%rcx
  mov    $0x14,%edx
  mov    %rax,%rdi
  call   <spear@plt>
  add    $0x10,%rsp
  movss  -0x2b4(%rbp),%xmm0
  pxor   %xmm3,%xmm3
  cvtss2sd %xmm0,%xmm3
  movss  -0x2b0(%rbp),%xmm0
  pxor   %xmm2,%xmm2
  cvtss2sd %xmm0,%xmm2
  movss  -0x2b8(%rbp),%xmm0
  pxor   %xmm1,%xmm1
  cvtss2sd %xmm0,%xmm1
  movss  -0x2ac(%rbp),%xmm0
  cvtss2sd %xmm0,%xmm0
  movss  -0x2bc(%rbp),%xmm4
  pxor   %xmm5,%xmm5
  cvtss2sd %xmm4,%xmm5
  movq   %xmm5,%rdx
  lea    -0x270(%rbp),%rsi
  mov    -0x2a4(%rbp),%eax
  movslq %eax,%rcx
  mov    %rcx,%rax
  shl    $0x2,%rax
  add    %rcx,%rax
  add    %rsi,%rax
  movapd %xmm3,%xmm4
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rdx,%xmm0
  mov    %rax,%rsi
  lea    D17(%rip),%rax
  mov    %rax,%rdi
  mov    $0x5,%eax
  call   <printf@plt>
  addl   $0x1,-0x2a4(%rbp)
L152:
  cmpl   $0xc,-0x2a4(%rbp)
  jle    L198
  mov    -0x280(%rbp),%rax
  mov    $0xc,%r8d
  mov    $0x1,%ecx
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_matrix@plt>
  mov    -0x288(%rbp),%rax
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x290(%rbp),%rax
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x298(%rbp),%rax
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x2a0(%rbp),%rax
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    $0x0,%eax
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L110
  call   <__stack_chk_fail@plt>
L110:
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: label: D91
type_infered: string
name: disassemble_data
arguments: label: D18
type_infered: string
name: disassemble_data
arguments: label: D36
type_infered: string
name: disassemble_data
arguments: label: D39
type_infered: string
name: disassemble_data
arguments: label: D139
type_infered: string
name: disassemble_data
arguments: label: D57
type_infered: string
name: disassemble_data
arguments: label: D48
type_infered: string
name: disassemble_data
arguments: label: D200
type_infered: string
name: disassemble_data
arguments: label: D144
type_infered: string
name: disassemble_data
arguments: label: D19
type_infered: string
name: disassemble_data
arguments: label: D10
type_infered: string
name: disassemble_data
arguments: label: D135
type_infered: string
name: disassemble_data
arguments: label: D16
type_infered: f64
name: disassemble_data
arguments: label: D55
type_infered: string
name: disassemble_data
arguments: label: D204
type_infered: string
name: disassemble_data
arguments: label: D151
type_infered: string
name: disassemble_data
arguments: label: D61
type_infered: string
name: disassemble_data
arguments: label: D137
type_infered: string
name: disassemble_data
arguments: label: D77
type_infered: string
name: disassemble_data
arguments: label: D195
type_infered: string
name: disassemble_data
arguments: label: D228
type_infered: string
name: disassemble_data
arguments: label: D52
type_infered: string
name: disassemble_data
arguments: label: D188
type_infered: string
name: disassemble_data
arguments: label: D168
type_infered: string
name: disassemble_data
arguments: label: D17
type_infered: string

tool: D91: r

tool: D18: table2.dat

tool: D36: Data file table2.dat not found


tool: D39: %*15c

tool: D139:  %s

tool: D57: %[^0123456789]

tool: D48: %f

tool: D200: %f %f 

tool: D144:  

tool: D19: %16s

tool: D10: %4s

tool: D135: %s

tool: D16: 0.5

tool: D55: %4d

tool: D204: 
Are sunny summer places also sunny winter places?

tool: D151: Check correlation of sampled U.S. solar radiation

tool: D61: (july with other months)


tool: D137: probrs

tool: D77: spearman-r

tool: D195: probd

tool: D228: st. dev.

tool: D52: d

tool: D188: month

tool: D168: %s %9s %14s %11s %15s %10s


tool: D17: %4s %12.2f %12.6f %12.6f %13.6f %12.6f


assistant: ```c
int main(void) {
  int i, j;
  float d, probd, probrs, rs, zd, *ave, *data1, *data2, *zlat, **rays;
  char dummy[80], txt[80], city[20 + 1][17], mon[12 + 1][5];
  FILE *fp;
  ave = vector(1, 20);
  data1 = vector(1, 20);
  data2 = vector(1, 20);
  zlat = vector(1, 20);
  rays = matrix(1, 20, 1, 12);
  if ((fp = fopen("table2.dat", "r")) == NULL)
    nrerror("Data file table2.dat not found\n");
  fgets(dummy, 80, fp);
  fgets(txt, 80, fp);
  fscanf(fp, "%*15c");
  for (i = 1; i <= 12; i++)
    fscanf(fp, " %s", mon[i]);
  fgets(dummy, 80, fp);
  fgets(dummy, 80, fp);
  for (i = 1; i <= 20; i++) {
    fscanf(fp, "%[^0123456789]", city[i]);
    city[i][16] = '\0';
    for (j = 1; j <= 12; j++)
      fscanf(fp, "%f", &rays[i][j]);
    fscanf(fp, "%f %f ", &ave[i], &zlat[i]);
  }
  fclose(fp);
  printf("%s\n", txt);
  printf("%16s", " ");
  for (i = 1; i <= 12; i++)
    printf("%4s", mon[i]);
  printf("\n");
  for (i = 1; i <= 20; i++) {
    printf("%s", city[i]);
    for (j = 1; j <= 12; j++)
      printf("%4d", (int)(0.5 + rays[i][j]));
    printf("\n");
  }
  printf("\nAre sunny summer places also sunny winter places?\n");
  printf("Check correlation of sampled U.S. solar radiation\n");
  printf("(july with other months)\n\n");
  printf("%s %9s %14s %11s %15s %10s\n", "month", "d", "st. dev.", "probd", "spearman-r", "probrs");
  for (i = 1; i <= 20; i++)
    data1[i] = rays[i][1];
  for (j = 1; j <= 12; j++) {
    for (i = 1; i <= 20; i++)
      data2[i] = rays[i][j];
    spear(data1, data2, 20, &d, &zd, &probd, &rs, &probrs);
    printf("%4s %12.2f %12.6f %12.6f %13.6f %12.6f\n", mon[j], d, zd, probd, rs, probrs);
  }
  free_matrix(rays, 1, 20, 1, 12);
  free_vector(zlat, 1, 20);
  free_vector(data2, 1, 20);
  free_vector(data1, 1, 20);
  free_vector(ave, 1, 20);
  return 0;
}
```