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

```asm
<main>:
  endbr64
  push   %r13
  lea    D159(%rip),%rdi
  push   %r12
  push   %rbp
  lea    D149(%rip),%rbp
  push   %rbx
  sub    $0x78,%rsp
  movsd  D113(%rip),%xmm0
  mov    %fs:0x28,%rax
  mov    %rax,0x68(%rsp)
  xor    %eax,%eax
  mov    D147(%rip),%rax
  mov    %rsp,%r13
  lea    0x28(%rsp),%r12
  movsd  %xmm0,0x38(%rsp)
  mov    %r13,%rbx
  mov    %rax,(%rsp)
  mov    D118(%rip),%rax
  movsd  %xmm0,0x40(%rsp)
  mov    %rax,0x8(%rsp)
  mov    D115(%rip),%rax
  mov    %rax,0x10(%rsp)
  mov    D68(%rip),%rax
  mov    %rax,0x18(%rsp)
  mov    D121(%rip),%rax
  mov    %rax,0x20(%rsp)
  mov    D73(%rip),%rax
  mov    %rax,0x48(%rsp)
  mov    D139(%rip),%rax
  mov    %rax,0x50(%rsp)
  mov    D128(%rip),%rax
  mov    %rax,0x58(%rsp)
  call   <puts@plt>
L4:
  movsd  (%rbx),%xmm0
  mov    %rbp,%rdi
  mov    $0x1,%eax
  add    $0x8,%rbx
  call   <printf@plt>
  cmp    %r12,%rbx
  jne    L4
  lea    D27(%rip),%rdi
  lea    0x30(%rsp),%rbx
  call   <puts@plt>
  lea    0x60(%rsp),%r12
  movsd  D105(%rip),%xmm0
  jmp    L8
  nopl   0x0(%rax)
L21:
  movsd  (%rbx),%xmm0
L8:
  mov    %rbp,%rdi
  mov    $0x1,%eax
  add    $0x8,%rbx
  call   <printf@plt>
  cmp    %rbx,%r12
  jne    L21
  xor    %edx,%edx
  mov    $0x4,%ecx
  mov    %r13,%rsi
  xor    %edi,%edi
  call   <CSPL_Array_quickselect@plt>
  lea    D110(%rip),%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  xor    %edx,%edx
  mov    $0x4,%ecx
  mov    %r13,%rsi
  mov    $0x1,%edi
  call   <CSPL_Array_quickselect@plt>
  lea    D2(%rip),%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  xor    %edx,%edx
  mov    $0x4,%ecx
  mov    %r13,%rsi
  mov    $0x2,%edi
  call   <CSPL_Array_quickselect@plt>
  lea    D21(%rip),%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  xor    %edx,%edx
  mov    $0x4,%ecx
  mov    %r13,%rsi
  mov    $0x3,%edi
  call   <CSPL_Array_quickselect@plt>
  lea    D0(%rip),%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  xor    %edx,%edx
  mov    $0x4,%edi
  mov    %r13,%rsi
  mov    $0x4,%ecx
  call   <CSPL_Array_quickselect@plt>
  lea    D98(%rip),%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    0x68(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L14
  add    $0x78,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  ret
L14:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: data_label: D159
type_infered: string
name: read_data
arguments: data_label: D149
type_infered: string
name: read_data
arguments: data_label: D113
type_infered: byte[8]
name: read_data
arguments: data_label: D147
type_infered: byte[8]
name: read_data
arguments: data_label: D118
type_infered: byte[8]
name: read_data
arguments: data_label: D115
type_infered: byte[8]
name: read_data
arguments: data_label: D68
type_infered: byte[8]
name: read_data
arguments: data_label: D121
type_infered: byte[8]
name: read_data
arguments: data_label: D73
type_infered: byte[8]
name: read_data
arguments: data_label: D139
type_infered: byte[8]
name: read_data
arguments: data_label: D128
type_infered: byte[8]
name: read_data
arguments: data_label: D27
type_infered: string
name: read_data
arguments: data_label: D105
type_infered: byte[8]
name: read_data
arguments: data_label: D110
type_infered: string
name: read_data
arguments: data_label: D2
type_infered: string
name: read_data
arguments: data_label: D21
type_infered: string
name: read_data
arguments: data_label: D0
type_infered: string
name: read_data
arguments: data_label: D98
type_infered: string

tool: D159: dat1:

tool: D149:   %lf


tool: {"D113": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40]}

tool: {"D147": [0x00,0x00,0x00,0x00,0x00,0x00,0x34,0x40]}

tool: {"D118": [0x00,0x00,0x00,0x00,0x00,0x00,0x2e,0x40]}

tool: {"D115": [0x00,0x00,0x00,0x00,0x00,0x80,0x41,0x40]}

tool: {"D68": [0x00,0x00,0x00,0x00,0x00,0x00,0x44,0x40]}

tool: {"D121": [0x00,0x00,0x00,0x00,0x00,0x00,0x49,0x40]}

tool: {"D73": [0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x40]}

tool: {"D139": [0x00,0x00,0x00,0x00,0x00,0x00,0x1c,0x40]}

tool: {"D128": [0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x40]}

tool: D27: dat2:

tool: {"D105": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

tool: D110: CSPL_Array_quickselect(0, dat1, 0, 4)=%lf


tool: D2: CSPL_Array_quickselect(1, dat1, 0, 4)=%lf


tool: D21: CSPL_Array_quickselect(2, dat1, 0, 4)=%lf


tool: D0: CSPL_Array_quickselect(3, dat1, 0, 4)=%lf


tool: D98: CSPL_Array_quickselect(4, dat1, 0, 4)=%lf


assistant: ```c
int main(void) {
  double dat1[5] = {20, 15, 35, 40, 50};
  double dat2[6] = {1, 2, 2, 6, 7, 8};
  long i;
  double a1;
  printf("dat1:\n");
  for (i = 0; i < 5; i++)
    printf("  %lf\n", dat1[i]);
  printf("dat2:\n");
  for (i = 0; i < 6; i++)
    printf("  %lf\n", dat2[i]);
  a1 = CSPL_Array_quickselect(0, dat1, 0, 4);
  printf("CSPL_Array_quickselect(0, dat1, 0, 4)=%lf\n", a1);
  a1 = CSPL_Array_quickselect(1, dat1, 0, 4);
  printf("CSPL_Array_quickselect(1, dat1, 0, 4)=%lf\n", a1);
  a1 = CSPL_Array_quickselect(2, dat1, 0, 4);
  printf("CSPL_Array_quickselect(2, dat1, 0, 4)=%lf\n", a1);
  a1 = CSPL_Array_quickselect(3, dat1, 0, 4);
  printf("CSPL_Array_quickselect(3, dat1, 0, 4)=%lf\n", a1);
  a1 = CSPL_Array_quickselect(4, dat1, 0, 4);
  printf("CSPL_Array_quickselect(4, dat1, 0, 4)=%lf\n", a1);
  return (0);
}
```