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

```asm
<main>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x128,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x118(%rsp)
  xor    %eax,%eax
  movl   $0xffffffff,0xc(%rsp)
  call   <setpar@plt>
  lea    0x10(%rsp),%rbp
  mov    %rbp,%rdx
  lea    D16(%rip),%rbx
  mov    %rbx,%rsi
  lea    D40(%rip),%rdi
  call   <mstpar@plt>
  lea    0x90(%rsp),%rdx
  mov    %rbx,%rsi
  lea    D32(%rip),%rdi
  call   <mstpar@plt>
  lea    0xc(%rsp),%rdx
  lea    D41(%rip),%rsi
  lea    D27(%rip),%rdi
  call   <getpar@plt>
  mov    $0x0,%eax
  call   <endpar@plt>
  mov    %rbp,%rdi
  call   <opfile_ro@plt>
  mov    %eax,%ebx
  mov    0xc(%rsp),%eax
  test   %eax,%eax
  js     L45
  lea    0x6(,%rax,8),%r13d
  movslq %r13d,%r14
  lea    0x0(,%r13,4),%r12d
  mov    %r12d,%edi
  call   <check_malloc@plt>
  mov    %rax,%rbp
  mov    %r12d,%edi
  call   <check_malloc@plt>
  mov    %rax,%r12
  lea    0xc(%rsp),%r15
  mov    $0x4,%edx
  mov    %r15,%rsi
  mov    %ebx,%edi
  mov    $0x0,%eax
  call   <reed@plt>
  shl    $0x2,%r14
  mov    %r14,%rdx
  mov    %rbp,%rsi
  mov    %ebx,%edi
  mov    $0x0,%eax
  call   <reed@plt>
  mov    %ebx,%edi
  call   <close@plt>
  mov    %r15,%rdi
  call   <long_swap@plt>
  mov    %eax,0x8(%rsp)
L41:
  mov    $0x0,%ebx
L12:
  mov    %rbp,%rdi
  call   <float_swap@plt>
  movss  %xmm0,(%r12,%rbx,4)
  add    $0x1,%rbx
  add    $0x4,%rbp
  cmp    %ebx,%r13d
  jg     L12
L10:
  lea    0x90(%rsp),%rdi
  call   <croptrfile@plt>
  mov    %eax,%ebx
  lea    0x8(%rsp),%rsi
  mov    $0x4,%edx
  mov    %eax,%edi
  mov    $0x0,%eax
  call   <rite@plt>
  mov    %r14,%rdx
  mov    %r12,%rsi
  mov    %ebx,%edi
  mov    $0x0,%eax
  call   <rite@plt>
  mov    %ebx,%edi
  call   <close@plt>
  mov    0x118(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L23
  mov    $0x0,%eax
  add    $0x128,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L45:
  lea    0xc(%rsp),%r15
  mov    $0x4,%edx
  mov    %r15,%rsi
  mov    %ebx,%edi
  mov    $0x0,%eax
  call   <reed@plt>
  mov    0xc(%rsp),%eax
  lea    0x6(,%rax,8),%r13d
  movslq %r13d,%r14
  lea    0x0(,%r13,4),%r12d
  mov    %r12d,%edi
  call   <check_malloc@plt>
  mov    %rax,%rbp
  mov    %r12d,%edi
  call   <check_malloc@plt>
  mov    %rax,%r12
  shl    $0x2,%r14
  mov    %r14,%rdx
  mov    %rbp,%rsi
  mov    %ebx,%edi
  mov    $0x0,%eax
  call   <reed@plt>
  mov    %ebx,%edi
  call   <close@plt>
  mov    %r15,%rdi
  call   <long_swap@plt>
  mov    %eax,0x8(%rsp)
  test   %r13d,%r13d
  jg     L41
  jmp    L10
L23:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: tag: D16
type_guessed: string
name: read_data
arguments: tag: D40
type_guessed: string
name: read_data
arguments: tag: D32
type_guessed: string
name: read_data
arguments: tag: D41
type_guessed: string
name: read_data
arguments: tag: D27
type_guessed: string

tool: D16: s

tool: D40: infile

tool: D32: outfile

tool: D41: d

tool: D27: nt

assistant: ```c
main(int ac, char **av) {
  int fdr, fdw, ntswap, i, ndat;
  float *fbuf;
  char *cbuf;
  char infile[128];
  char outfile[128];
  int nt = -1;
  setpar(ac, av);
  mstpar("infile", "s", infile);
  mstpar("outfile", "s", outfile);
  getpar("nt", "d", &nt);
  endpar();
  fdr = opfile_ro(infile);
  if (nt < 0) {
    reed(fdr, &nt, sizeof(int));
    ndat = 8 * nt + 6;
    cbuf = (char *)check_malloc(ndat * sizeof(float));
    fbuf = (float *)check_malloc(ndat * sizeof(float));
  } else {
    ndat = 8 * nt + 6;
    cbuf = (char *)check_malloc(ndat * sizeof(float));
    fbuf = (float *)check_malloc(ndat * sizeof(float));
    reed(fdr, &nt, sizeof(int));
  }
  reed(fdr, cbuf, ndat * sizeof(float));
  close(fdr);
  ntswap = long_swap((char *)(&nt));
  for (i = 0; i < ndat; i++)
    fbuf[i] = float_swap(cbuf + (i * 4));
  fdw = croptrfile(outfile);
  rite(fdw, &ntswap, sizeof(int));
  rite(fdw, fbuf, ndat * sizeof(float));
  close(fdw);
}
```