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

```asm
<standard_tableau_form>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  mov    %rdx,%rbx
  sub    $0x88,%rsp
  mov    %rcx,-0x88(%rbp)
  mov    %edi,-0x68(%rbp)
  mov    %rsp,%rcx
  mov    %esi,-0x54(%rbp)
  mov    %r8,-0x90(%rbp)
  mov    %r9d,-0x6c(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  movslq %esi,%rax
  lea    0xf(,%rax,4),%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffff000,%rdx
  sub    %rdx,%rcx
  and    $0xfffffffffffffff0,%rax
  cmp    %rcx,%rsp
  je     L185
L112:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rcx,%rsp
  jne    L112
L185:
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  jne    L28
  mov    -0x6c(%rbp),%r9d
  mov    %rsp,%r13
  test   %r9d,%r9d
  jg     L104
L188:
  mov    -0x68(%rbp),%r8d
  test   %r8d,%r8d
  jle    L166
L131:
  mov    -0x54(%rbp),%eax
  mov    %rbx,-0x60(%rbp)
  lea    D16(%rip),%r14
  movl   $0x0,-0x64(%rbp)
  sub    $0x1,%eax
  movl   $0x0,-0x58(%rbp)
  lea    0x4(,%rax,4),%rax
  movl   $0x0,-0x70(%rbp)
  mov    %rax,-0x98(%rbp)
  add    %r13,%rax
  mov    %rax,-0xa8(%rbp)
  nopl   0x0(%rax,%rax,1)
L87:
  mov    -0x6c(%rbp),%edi
  test   %edi,%edi
  jle    L83
  mov    -0x60(%rbp),%rax
  lea    D8(%rip),%rdi
  mov    (%rax),%esi
  xor    %eax,%eax
  call   <printf@plt>
L83:
  mov    -0x60(%rbp),%rax
  addl   $0x1,-0x64(%rbp)
  mov    (%rax),%esi
  test   %esi,%esi
  jle    L140
  mov    -0x70(%rbp),%ebx
  lea    -0x50(%rbp),%rax
  mov    $0x1,%r12d
  mov    %rax,-0x78(%rbp)
  add    $0x2,%ebx
  movslq %ebx,%rbx
  jmp    L125
  cs nopw 0x0(%rax,%rax,1)
L196:
  mov    -0x54(%rbp),%eax
  test   %eax,%eax
  jle    L98
  movslq -0x58(%rbp),%rax
  mov    -0x90(%rbp),%rcx
  mov    %r13,%rsi
  mov    -0x98(%rbp),%rdx
  lea    (%rcx,%rax,4),%rdi
  mov    %rax,%r15
  call   <memcpy@plt>
  mov    -0x54(%rbp),%eax
  add    %eax,%r15d
  mov    %r15d,-0x58(%rbp)
L98:
  mov    -0x60(%rbp),%rax
  add    $0x1,%r12d
  add    $0x2,%rbx
  cmp    %r12d,(%rax)
  jl     L140
L125:
  mov    -0x78(%rbp),%r8
  mov    -0x68(%rbp),%edx
  mov    %r13,%rcx
  mov    %r12d,%esi
  mov    -0x64(%rbp),%edi
  call   <syscon_retrieve_standard_term@plt>
  movsd  -0x50(%rbp),%xmm0
  mov    -0x6c(%rbp),%ecx
  mov    %ebx,-0x70(%rbp)
  mov    %eax,-0x7c(%rbp)
  movsd  -0x48(%rbp),%xmm1
  mov    -0x88(%rbp),%rax
  movsd  %xmm0,-0x10(%rax,%rbx,8)
  movsd  %xmm1,-0x8(%rax,%rbx,8)
  test   %ecx,%ecx
  jle    L196
  lea    D26(%rip),%rdi
  mov    $0x2,%eax
  call   <printf@plt>
  mov    -0x54(%rbp),%edx
  test   %edx,%edx
  jle    L184
  mov    -0xa8(%rbp),%r15
  mov    %rbx,-0xa0(%rbp)
  mov    %r13,%rbx
  nopl   0x0(%rax,%rax,1)
L122:
  mov    (%rbx),%esi
  mov    %r14,%rdi
  xor    %eax,%eax
  add    $0x4,%rbx
  call   <printf@plt>
  cmp    %rbx,%r15
  jne    L122
  mov    -0xa0(%rbp),%rbx
L184:
  mov    $0xa,%edi
  call   <putchar@plt>
  jmp    L196
L104:
  mov    -0x68(%rbp),%esi
  lea    D8(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    -0x68(%rbp),%r8d
  test   %r8d,%r8d
  jg     L131
L166:
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L91
  mov    -0x7c(%rbp),%eax
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
  nopw   0x0(%rax,%rax,1)
L140:
  addq   $0x4,-0x60(%rbp)
  mov    -0x64(%rbp),%edx
  cmp    %edx,-0x68(%rbp)
  jne    L87
  jmp    L166
L28:
  orq    $0x0,-0x8(%rsp,%rax,1)
  mov    -0x6c(%rbp),%r9d
  mov    %rsp,%r13
  test   %r9d,%r9d
  jle    L188
  jmp    L104
L91:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: tag: D16
data_type: string
name: parse_data
arguments: tag: D8
data_type: string
name: parse_data
arguments: tag: D26
data_type: string

tool: D16:  %d

tool: D8: %d


tool: D26: %22.15e  %22.15e

assistant: ```c
int standard_tableau_form(int neq, int nvr, int *nbterms, double *coefficients, int *exponents, int verbose) {
  int wrk[nvr];
  double cff[2];
  int cffidx = 0;
  int expidx = 0;
  int fail, idx, idxtrm, k;
  if (verbose > 0)
    printf("%d\n", neq);
  for (idx = 0; idx < neq; idx++) {
    if (verbose > 0)
      printf("%d\n", nbterms[idx]);
    for (idxtrm = 1; idxtrm <= nbterms[idx]; idxtrm++) {
      fail = syscon_retrieve_standard_term(idx + 1, idxtrm, neq, wrk, cff);
      coefficients[cffidx++] = cff[0];
      coefficients[cffidx++] = cff[1];
      if (verbose > 0) {
        printf("%22.15e  %22.15e", cff[0], cff[1]);
        for (k = 0; k < nvr; k++)
          printf(" %d", wrk[k]);
        printf("\n");
      }
      for (k = 0; k < nvr; k++)
        exponents[expidx++] = wrk[k];
    }
  }
  return fail;
}
```