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

```asm
<solv>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x58,%rsp
  mov    %rdi,%r15
  mov    %rdi,0x28(%rsp)
  mov    %rsi,%rbp
  mov    %edx,%ebx
  mov    $0x8,%esi
  mov    %edx,%edi
  call   <calloc@plt>
  mov    %rax,0x48(%rsp)
  test   %ebx,%ebx
  jle    L209
  mov    %rax,%r12
  movslq %ebx,%rdi
  shl    $0x3,%rdi
  lea    0x8(%rdi),%rsi
  mov    %rsi,0x20(%rsp)
  mov    %ebx,%esi
  mov    %rsi,0x18(%rsp)
  lea    0x0(,%rsi,8),%r13
  mov    %r13,0x38(%rsp)
  add    %rax,%r13
  mov    %r15,%rax
  sub    %r12,%rax
  mov    %r15,%r9
  mov    %r15,%r14
  movl   $0x0,0x14(%rsp)
  mov    $0x1,%r11d
  pxor   %xmm3,%xmm3
  movq   D2(%rip),%xmm5
  movapd %xmm5,%xmm2
  movsd  D0(%rip),%xmm4
  movsd  D27(%rip),%xmm6
  lea    0x8(%r12),%r15
  lea    0x8(%rax,%rdi,1),%rax
  mov    %rax,0x40(%rsp)
  mov    %rbp,0x30(%rsp)
  jmp    L203
L174:
  mov    %eax,%r8d
L232:
  cmp    %r8d,%ebp
  mov    %r8d,%eax
  cmovle %ebp,%eax
  test   %eax,%eax
  jle    L268
  lea    -0x1(%rax),%eax
  lea    (%r15,%rax,8),%rsi
  mov    %r12,%rax
  pxor   %xmm1,%xmm1
L275:
  movsd  (%rax,%rcx,1),%xmm0
  mov    %rax,%rdx
  add    $0x8,%rax
  mulsd  (%rdx),%xmm0
  addsd  %xmm0,%xmm1
  cmp    %rsi,%rax
  jne    L275
L32:
  movsd  (%r9),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%r9)
  lea    0x1(%r8),%eax
  add    $0x8,%r9
  add    %rdi,%rcx
  cmp    %r10d,%r8d
  jne    L174
L335:
  mov    %r12,%rax
  mov    0x8(%rsp),%rdx
L327:
  mov    %rax,%rcx
  add    $0x8,%rax
  movsd  (%rcx),%xmm0
  movsd  %xmm0,(%rdx)
  add    %rdi,%rdx
  cmp    %r13,%rax
  jne    L327
L329:
  add    $0x1,%r11
  add    %ebx,0x14(%rsp)
  mov    0x8(%rsp),%r9
L203:
  lea    -0x1(%r11),%r8d
  movsd  (%r14),%xmm1
  andpd  %xmm5,%xmm1
  mov    %r11d,%ebp
  mov    %r11d,%edx
  cmp    %r11d,%ebx
  jle    L102
  mov    %r14,%rcx
  mov    %r8d,%esi
  mov    %r11d,%eax
L320:
  add    %rdi,%rcx
  movsd  (%rcx),%xmm0
  andpd  %xmm2,%xmm0
  comisd %xmm1,%xmm0
  maxsd  %xmm1,%xmm0
  movapd %xmm0,%xmm1
  cmova  %eax,%esi
  add    $0x1,%eax
  cmp    %eax,%ebx
  jne    L320
L93:
  maxsd  %xmm1,%xmm3
  movapd %xmm3,%xmm0
  mulsd  %xmm4,%xmm0
  comisd %xmm1,%xmm0
  ja     L67
  cmp    %r8d,%esi
  jne    L303
L217:
  movapd %xmm6,%xmm1
  divsd  (%r14),%xmm1
  cmp    0x18(%rsp),%r11
  je     L52
  mov    %r14,%rcx
  mov    %ebp,%eax
L219:
  add    %rdi,%rcx
  movapd %xmm1,%xmm0
  mulsd  (%rcx),%xmm0
  movsd  %xmm0,(%rcx)
  mov    %eax,%r10d
  add    $0x1,%eax
  cmp    %eax,%ebx
  jne    L219
  lea    0x8(%r9),%rsi
  mov    %rsi,0x8(%rsp)
  add    0x20(%rsp),%r14
  test   %edx,%edx
  je     L329
  mov    %r12,%rdx
  mov    0x8(%rsp),%rcx
L218:
  mov    %rdx,%rsi
  add    $0x8,%rdx
  movsd  (%rcx),%xmm0
  movsd  %xmm0,(%rsi)
  add    %rdi,%rcx
  cmp    %r13,%rdx
  jne    L218
  cmp    $0x1,%eax
  jle    L335
  mov    0x40(%rsp),%rcx
  sub    0x8(%rsp),%rcx
  add    %r9,%rcx
  mov    %r15,%r9
  mov    $0x1,%r8d
  jmp    L232
L268:
  pxor   %xmm1,%xmm1
  jmp    L32
L102:
  mov    %r8d,%esi
  jmp    L93
L67:
  mov    0x48(%rsp),%rdi
  call   <free@plt>
  mov    $0xffffffff,%eax
  jmp    L147
L303:
  mov    0x30(%rsp),%rcx
  movsd  -0x8(%rcx,%r11,8),%xmm0
  movslq %esi,%rax
  lea    (%rcx,%rax,8),%rax
  movsd  (%rax),%xmm1
  movsd  %xmm1,-0x8(%rcx,%r11,8)
  movsd  %xmm0,(%rax)
  movslq 0x14(%rsp),%rax
  mov    0x28(%rsp),%r10
  lea    (%r10,%rax,8),%rax
  imul   %ebx,%esi
  movslq %esi,%rcx
  lea    (%r10,%rcx,8),%rcx
  mov    0x38(%rsp),%rsi
  add    %rax,%rsi
L43:
  movsd  (%rax),%xmm0
  add    $0x8,%rax
  movsd  (%rcx),%xmm1
  movsd  %xmm1,-0x8(%rax)
  add    $0x8,%rcx
  movsd  %xmm0,-0x8(%rcx)
  cmp    %rsi,%rax
  jne    L43
  jmp    L217
L209:
  lea    0x8(%rbp),%r9
  cmp    $0x1,%ebx
  jg     L90
  mov    %ebx,%eax
  sub    $0x1,%eax
  js     L311
L159:
  mov    %ebx,%edx
  imul   %ebx,%edx
  movslq %edx,%rdx
  mov    0x28(%rsp),%rdi
  lea    -0x8(%rdi,%rdx,8),%rdx
  mov    %rbp,%r8
  jmp    L9
L28:
  pxor   %xmm1,%xmm1
  jmp    L141
L53:
  mov    %eax,%edi
L280:
  mov    %r9,%rcx
  cmp    %edi,%ebx
  jle    L5
  mov    %r11d,%eax
  sub    %edi,%eax
  lea    0x10(,%rax,8),%rsi
  mov    $0x8,%eax
  pxor   %xmm1,%xmm1
L210:
  movsd  (%rdx,%rax,1),%xmm0
  mulsd  (%rcx,%rax,1),%xmm0
  addsd  %xmm0,%xmm1
  add    $0x8,%rax
  cmp    %rsi,%rax
  jne    L210
L299:
  movsd  (%r8),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%r8)
  sub    $0x8,%r8
  divsd  (%rdx),%xmm0
  movsd  %xmm0,0x8(%r8)
  add    %r10,%rdx
  lea    -0x1(%rdi),%eax
  sub    $0x8,%r9
  sub    $0x2,%edi
  jns    L53
L311:
  mov    0x48(%rsp),%rdi
  call   <free@plt>
  mov    $0x0,%eax
L147:
  add    $0x58,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L5:
  pxor   %xmm1,%xmm1
  jmp    L299
L315:
  lea    -0x1(%rbx),%eax
  jmp    L159
L52:
  mov    0x30(%rsp),%rbp
  lea    0x8(%rbp),%r9
  cmp    $0x1,%ebx
  jle    L315
L90:
  movslq %ebx,%rdi
  shl    $0x3,%rdi
  mov    0x28(%rsp),%rax
  lea    (%rax,%rdi,1),%rsi
  lea    -0x2(%rbx),%r10d
  mov    %ebx,%r8d
  mov    $0x1,%edx
L135:
  mov    %rsi,%rcx
  test   %edx,%edx
  jle    L28
  mov    $0x0,%eax
  pxor   %xmm1,%xmm1
L119:
  movsd  (%rcx,%rax,8),%xmm0
  mulsd  0x0(%rbp,%rax,8),%xmm0
  addsd  %xmm0,%xmm1
  add    $0x1,%rax
  cmp    %rdx,%rax
  jne    L119
L141:
  movsd  0x0(%rbp,%rdx,8),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,0x0(%rbp,%rdx,8)
  add    %rdi,%rsi
  add    $0x1,%rdx
  cmp    %rdx,%r8
  jne    L135
  lea    (%r9,%r10,8),%r8
  lea    -0x1(%rbx),%eax
  mov    %ebx,%edx
  imul   %ebx,%edx
  movslq %edx,%rdx
  mov    0x28(%rsp),%rdi
  lea    -0x8(%rdi,%rdx,8),%rdx
L9:
  movslq %ebx,%rcx
  shl    $0x3,%rcx
  mov    $0xfffffffffffffff8,%r10
  sub    %rcx,%r10
  lea    0x1(%rax),%edi
  cltq
  lea    0x0(%rbp,%rax,8),%r9
  lea    -0x1(%rbx),%r11d
  jmp    L280
```

tool_calls: name: disassemble_data
arguments: data_label: D2
type_guessed: qword
name: disassemble_data
arguments: data_label: D0
type_guessed: byte[8]
name: disassemble_data
arguments: data_label: D27
type_guessed: f64

tool: D2: 9223372036854775807

tool: {"D0": [0x16,0x56,0xe7,0x9e,0xaf,0x03,0xd2,0x3c]}

tool: D27: 1

assistant: ```c
int solv(double *a, double *b, int n) {
  int i, j, k, lc;
  double *ps, *p, *q, *pa, *pd;
  double *q0, s, t, tq = 0., zr = 1.e-15;
  q0 = (double *)calloc(n, sizeof(double));
  for (j = 0, pa = a, pd = a; j < n; ++j, ++pa, pd += n + 1) {
    if (j) {
      for (i = 0, q = q0, p = pa; i < n; ++i, p += n)
        *q++ = *p;
      for (i = 1; i < n; ++i) {
        lc = i < j ? i : j;
        for (k = 0, p = pa + i * n - j, q = q0, t = 0.; k < lc; ++k)
          t += *p++ * *q++;
        q0[i] -= t;
      }
      for (i = 0, q = q0, p = pa; i < n; ++i, p += n)
        *p = *q++;
    }
    s = fabs(*pd);
    lc = j;
    for (k = j + 1, ps = pd; k < n; ++k) {
      if ((t = fabs(*(ps += n))) > s) {
        s = t;
        lc = k;
      }
    }
    tq = tq > s ? tq : s;
    if (s < zr * tq) {
      free(q0);
      return -1;
    }
    if (lc != j) {
      t = b[j];
      b[j] = b[lc];
      b[lc] = t;
      for (k = 0, p = a + n * j, q = a + n * lc; k < n; ++k) {
        t = *p;
        *p++ = *q;
        *q++ = t;
      }
    }
    for (k = j + 1, ps = pd, t = 1. / *pd; k < n; ++k)
      *(ps += n) *= t;
  }
  for (j = 1, ps = b + 1; j < n; ++j) {
    for (k = 0, p = a + n * j, q = b, t = 0.; k < j; ++k)
      t += *p++ * *q++;
    *ps++ -= t;
  }
  for (j = n - 1, --ps, pd = a + n * n - 1; j >= 0; --j, pd -= n + 1) {
    for (k = j + 1, p = pd, q = b + j, t = 0.; k < n; ++k)
      t += *++p * *++q;
    *ps -= t;
    *ps-- /= *pd;
  }
  free(q0);
  return 0;
}
```