user: What would the C source look like for the assembly code provided here?

```asm
<levinson>:
  endbr64
  movsd  D11(%rip),%xmm3
  push   %r15
  mov    %esi,%eax
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  movsd  %xmm3,(%rdx)
  movsd  (%rdi),%xmm5
  mov    %esi,-0x54(%rsp)
  mov    %rcx,-0x38(%rsp)
  movsd  %xmm5,(%rcx)
  test   %esi,%esi
  jle    L84
  mov    %eax,%ebx
  lea    -0x8(%r9),%rax
  lea    0x8(%rdx),%r13
  mov    %rdx,%rsi
  mov    %rax,-0x40(%rsp)
  lea    -0x1(%rbx),%eax
  mov    %r8,%rcx
  movsd  0x8(%rdi),%xmm1
  cmp    $0x2,%eax
  movq   D7(%rip),%xmm4
  mov    %rdi,%r10
  mov    %rdi,%r12
  seta   %dl
  cmp    %r13,%r9
  mov    $0x1,%edi
  movq   $0x8,-0x50(%rsp)
  setne  %al
  and    %eax,%edx
  mov    %ebx,%eax
  shr    %eax
  mov    %dl,-0x2d(%rsp)
  lea    -0x1(%rax),%r8d
  mov    %ebx,%eax
  and    $0xfffffffe,%ebx
  mov    %rax,-0x18(%rsp)
  lea    0x10(%rsi),%rax
  mov    %ebx,%r11d
  add    $0x1,%r8
  mov    %rax,-0x10(%rsp)
  lea    0x8(%r9),%rax
  shl    $0x3,%r11
  shl    $0x4,%r8
  mov    %rax,-0x28(%rsp)
  lea    0x18(%rsi),%rax
  lea    (%rsi,%r11,1),%rbp
  add    %r9,%r11
  mov    %rax,-0x20(%rsp)
  mov    %ebx,-0x2c(%rsp)
  mov    %r13,%rbx
  nopw   0x0(%rax,%rax,1)
L164:
  xorpd  %xmm4,%xmm1
  xor    %eax,%eax
  cmpb   $0x0,-0x2d(%rsp)
  divsd  %xmm5,%xmm1
  movsd  %xmm1,(%rcx)
  movsd  %xmm1,(%rbx)
  je     L98
  nopl   (%rax)
L97:
  movupd (%rsi,%rax,1),%xmm5
  movups %xmm5,(%r9,%rax,1)
  add    $0x10,%rax
  cmp    %r8,%rax
  jne    L97
  mov    -0x54(%rsp),%edx
  cmp    %edx,-0x2c(%rsp)
  je     L96
  movsd  0x0(%rbp),%xmm0
  movsd  %xmm0,(%r11)
L96:
  cmp    $0x1,%edi
  je     L27
L117:
  mov    -0x50(%rsp),%rax
  lea    0x8(%rcx),%rdx
  lea    -0x1(%rdi),%r15d
  mov    %rdx,-0x48(%rsp)
  add    %r9,%rax
  cmp    %rdx,%r13
  setae  %r14b
  cmp    %rbx,%rcx
  setae  %dl
  or     %r14d,%edx
  cmp    $0x2,%edi
  setne  %r14b
  test   %r14b,%dl
  je     L6
  cmp    -0x28(%rsp),%rbx
  setbe  %r14b
  cmp    %rax,%r13
  setae  %dl
  or     %r14b,%dl
  je     L6
  mov    %r15d,%eax
  movsd  (%rcx),%xmm1
  mov    -0x40(%rsp),%rdx
  shr    %eax
  lea    -0x1(%rax),%r14d
  unpcklpd %xmm1,%xmm1
  mov    %r13,%rax
  shl    $0x4,%r14
  add    -0x20(%rsp),%r14
  nop
L13:
  movupd (%rdx),%xmm0
  movupd (%rax),%xmm6
  add    $0x10,%rax
  sub    $0x10,%rdx
  shufpd $0x1,%xmm0,%xmm0
  mulpd  %xmm1,%xmm0
  addpd  %xmm6,%xmm0
  movups %xmm0,-0x10(%rax)
  cmp    %r14,%rax
  jne    L13
  mov    %r15d,%edx
  or     $0x1,%edx
  and    $0x1,%r15d
  je     L130
  movslq %edx,%rax
  lea    (%rsi,%rax,8),%r14
  mov    %edi,%eax
  sub    %edx,%eax
  cltq
  movsd  (%r9,%rax,8),%xmm0
  mulsd  (%rcx),%xmm0
  addsd  (%r14),%xmm0
  movsd  %xmm0,(%r14)
L130:
  movsd  (%rcx),%xmm0
  mov    -0x38(%rsp),%rax
  movapd %xmm3,%xmm5
  lea    0x1(%rdi),%r14d
  mulsd  %xmm0,%xmm0
  subsd  %xmm0,%xmm5
  mulsd  (%rax),%xmm5
  movsd  %xmm5,(%rax)
  mov    %r14d,%eax
  cmp    -0x54(%rsp),%edi
  je     L84
  mov    %edi,%edx
  addq   $0x8,-0x50(%rsp)
  lea    -0x10(%r12),%r15
  mov    %r13,%rcx
  shr    %edx
  movsd  0x10(%r12),%xmm1
  sub    $0x1,%edx
  shl    $0x4,%rdx
  sub    %rdx,%r15
  mov    %r12,%rdx
  nopw   0x0(%rax,%rax,1)
L16:
  movupd (%rdx),%xmm0
  movupd (%rcx),%xmm7
  sub    $0x10,%rdx
  add    $0x10,%rcx
  shufpd $0x1,%xmm0,%xmm0
  mulpd  %xmm7,%xmm0
  addsd  %xmm0,%xmm1
  unpckhpd %xmm0,%xmm0
  addsd  %xmm0,%xmm1
  cmp    %rdx,%r15
  jne    L16
  mov    %edi,%edx
  or     $0x1,%edx
  and    $0x1,%edi
  je     L90
L122:
  sub    %edx,%eax
  movslq %edx,%rdx
  cltq
  movsd  (%r10,%rax,8),%xmm0
  mulsd  (%rsi,%rdx,8),%xmm0
  addsd  %xmm0,%xmm1
L90:
  mov    -0x48(%rsp),%rcx
  add    $0x8,%rbx
  add    $0x8,%r12
  mov    %r14d,%edi
  addq   $0x8,-0x40(%rsp)
  jmp    L164
  nopl   (%rax)
L98:
  mov    -0x18(%rsp),%rdx
  nopl   (%rax)
L184:
  movsd  (%rsi,%rax,8),%xmm0
  movsd  %xmm0,(%r9,%rax,8)
  add    $0x1,%rax
  cmp    %rdx,%rax
  jne    L184
  cmp    $0x1,%edi
  jne    L117
  nopl   (%rax)
L27:
  movsd  (%rcx),%xmm0
  mov    -0x38(%rsp),%rax
  movapd %xmm3,%xmm5
  mov    $0x2,%r14d
  mulsd  %xmm0,%xmm0
  subsd  %xmm0,%xmm5
  mulsd  (%rax),%xmm5
  movsd  %xmm5,(%rax)
  mov    $0x2,%eax
  cmp    -0x54(%rsp),%edi
  je     L84
  lea    0x8(%rcx),%rdi
  addq   $0x8,-0x50(%rsp)
  mov    $0x1,%edx
  movsd  0x10(%r12),%xmm1
  mov    %rdi,-0x48(%rsp)
  jmp    L122
  xchg   %ax,%ax
L6:
  mov    -0x10(%rsp),%r15
  lea    -0x2(%rdi),%edx
  lea    (%r15,%rdx,8),%r14
  mov    %r13,%rdx
  nop
L37:
  movsd  (%rcx),%xmm0
  mulsd  -0x8(%rax),%xmm0
  add    $0x8,%rdx
  sub    $0x8,%rax
  addsd  -0x8(%rdx),%xmm0
  movsd  %xmm0,-0x8(%rdx)
  cmp    %r14,%rdx
  jne    L37
  jmp    L130
  nopl   (%rax)
L84:
  pop    %rbx
  xor    %eax,%eax
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: read_data
arguments: label: D11
datatype: f64
name: read_data
arguments: label: D7
datatype: byte[8]

tool: D11: 1

tool: {"D7": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80]}

assistant: ```c
int levinson(const double *in, int order, double *acoeff, double *err, double *kcoeff, double *tmp) {
  int i, j;
  double acc;
  int ret = 0;
  acoeff[0] = (double)1.0;
  *err = in[0];
  for (i = 1; i <= order; ++i) {
    acc = in[i];
    for (j = 1; j <= i - 1; ++j) {
      acc += acoeff[j] * in[i - j];
    }
    kcoeff[i - 1] = -acc / (*err);
    acoeff[i] = kcoeff[i - 1];
    for (j = 0; j < order; ++j) {
      tmp[j] = acoeff[j];
    }
    for (j = 1; j < i; ++j) {
      acoeff[j] += kcoeff[i - 1] * tmp[i - j];
    }
    *err *= (1 - kcoeff[i - 1] * kcoeff[i - 1]);
  }
  return ret;
}
```