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

```asm
<svd>:
  endbr64
  push   %r15
  mov    %r8,%r15
  push   %r14
  mov    %edi,%r14d
  push   %r13
  push   %r12
  push   %rbp
  movslq %esi,%rbp
  push   %rbx
  lea    -0x1(%rbp),%esi
  mov    %rdx,%rbx
  sub    $0xe8,%rsp
  mov    %edi,0xd0(%rsp)
  sub    $0x1,%edi
  mov    %edi,0x48(%rsp)
  lea    0x0(,%rbp,8),%edi
  mov    %ebp,0x5c(%rsp)
  mov    %rcx,0x68(%rsp)
  mov    %r9,0x70(%rsp)
  mov    %esi,0x18(%rsp)
  mov    %rbp,0x98(%rsp)
  call   <malloc@plt>
  mov    %rax,0x78(%rsp)
  test   %r14d,%r14d
  jle    L494
  movslq %r14d,%rdi
  xor    %esi,%esi
  mov    %rbp,%r8
L160:
  mov    0x5c(%rsp),%r9d
  test   %r9d,%r9d
  jle    L748
  mov    0x68(%rsp),%rax
  mov    (%rbx,%rsi,8),%rcx
  mov    (%rax,%rsi,8),%rdx
  xor    %eax,%eax
  nopl   0x0(%rax,%rax,1)
L225:
  movsd  (%rcx,%rax,8),%xmm0
  movsd  %xmm0,(%rdx,%rax,8)
  add    $0x1,%rax
  cmp    %rax,%r8
  jne    L225
L748:
  add    $0x1,%rsi
  cmp    %rsi,%rdi
  jne    L160
L494:
  mov    0x5c(%rsp),%eax
  test   %eax,%eax
  jle    L783
  sub    $0x2,%eax
  pxor   %xmm5,%xmm5
  xor    %r12d,%r12d
  mov    $0x1,%ebp
  mov    %eax,0x38(%rsp)
  mov    0x48(%rsp),%eax
  mov    %r12,%r14
  movapd %xmm5,%xmm2
  movq   D126(%rip),%xmm7
  mov    %r15,0x28(%rsp)
  movapd %xmm5,%xmm0
  mov    %rbp,%r15
  mov    %eax,0x60(%rsp)
  mov    0x68(%rsp),%rax
  movq   $0x8,0x20(%rsp)
  mov    %rax,%r13
  add    $0x8,%rax
  movsd  %xmm5,0x50(%rsp)
  mov    %rax,0xa0(%rsp)
  mov    %r13,%r12
  movaps %xmm7,(%rsp)
  jmp    L421
L1089:
  mov    0x28(%rsp),%rax
  pxor   %xmm0,%xmm0
  movq   $0x0,(%rax,%r14,8)
L1225:
  mov    0x30(%rsp),%rax
  pxor   %xmm2,%xmm2
  movsd  (%rax),%xmm1
  andpd  (%rsp),%xmm1
  addsd  %xmm0,%xmm1
  comisd %xmm1,%xmm5
  jae    L655
L597:
  movapd %xmm1,%xmm5
L655:
  cmp    %r15d,0x5c(%rsp)
  jle    L102
L1046:
  pxor   %xmm0,%xmm0
L1250:
  addq   $0x8,0x20(%rsp)
  add    $0x1,%r14
  add    $0x1,%r15
  add    $0x8,%r12
  subl   $0x1,0x38(%rsp)
  subl   $0x1,0x60(%rsp)
L421:
  mulsd  %xmm2,%xmm0
  mov    0x78(%rsp),%rax
  mov    %r14d,0x40(%rsp)
  lea    0x0(,%r14,8),%rbx
  add    %rbx,%rax
  mov    %rax,0x30(%rsp)
  movsd  %xmm0,(%rax)
  cmp    %r14d,0xd0(%rsp)
  jle    L1089
  mov    0x60(%rsp),%r13d
  mov    0xa0(%rsp),%rax
  pxor   %xmm3,%xmm3
  add    %r14,%r13
  shl    $0x3,%r13
  lea    (%rax,%r13,1),%rdx
  mov    %r12,%rax
L1196:
  mov    (%rax),%rcx
  add    $0x8,%rax
  movsd  (%rcx,%rbx,1),%xmm0
  andpd  (%rsp),%xmm0
  addsd  %xmm0,%xmm3
  cmp    %rax,%rdx
  jne    L1196
  movsd  0x50(%rsp),%xmm7
  ucomisd %xmm7,%xmm3
  jp     L761
  jne    L761
  mulsd  %xmm7,%xmm3
  movapd %xmm3,%xmm0
L220:
  mov    0x28(%rsp),%rax
  mov    0x40(%rsp),%edi
  movsd  %xmm0,(%rax,%r14,8)
  cmp    %edi,0x18(%rsp)
  je     L717
  mov    %r15d,0x90(%rsp)
  cmp    %r15d,0x5c(%rsp)
  jle    L1192
  mov    (%r12),%r13
  mov    %r15,%rax
  pxor   %xmm2,%xmm2
L493:
  movsd  0x0(%r13,%rax,8),%xmm1
  andpd  (%rsp),%xmm1
  add    $0x1,%rax
  addsd  %xmm1,%xmm2
  cmp    %eax,0x5c(%rsp)
  jg     L493
  ucomisd 0x50(%rsp),%xmm2
  jp     L1054
  jne    L1054
  mov    0x30(%rsp),%rax
  movapd (%rsp),%xmm7
  movsd  (%rax),%xmm1
  andpd  %xmm7,%xmm0
  andpd  %xmm7,%xmm1
  addsd  %xmm0,%xmm1
  comisd %xmm1,%xmm5
  jae    L1046
  jmp    L597
L761:
  mov    %r12,%rax
  pxor   %xmm1,%xmm1
L1032:
  mov    (%rax),%rcx
  add    $0x8,%rax
  add    %rbx,%rcx
  movsd  (%rcx),%xmm0
  divsd  %xmm3,%xmm0
  movsd  %xmm0,(%rcx)
  mulsd  %xmm0,%xmm0
  addsd  %xmm0,%xmm1
  cmp    %rax,%rdx
  jne    L1032
  mov    (%r12),%rax
  movsd  0x50(%rsp),%xmm7
  lea    (%rax,%rbx,1),%rbp
  mov    %rax,0x80(%rsp)
  movsd  0x0(%rbp),%xmm4
  comisd %xmm7,%xmm4
  jb     L1171
  ucomisd %xmm1,%xmm7
  ja     L460
  movapd %xmm1,%xmm0
  sqrtsd %xmm0,%xmm0
L395:
  andpd  (%rsp),%xmm0
  xorpd  D132(%rip),%xmm0
  jmp    L742
L1192:
  mov    0x30(%rsp),%rax
  movapd (%rsp),%xmm7
  movsd  (%rax),%xmm1
  andpd  %xmm7,%xmm0
  andpd  %xmm7,%xmm1
  addsd  %xmm0,%xmm1
  comisd %xmm1,%xmm5
  jb     L1152
L102:
  mov    0x28(%rsp),%r15
L892:
  mov    0x18(%rsp),%eax
  test   %eax,%eax
  js     L619
  movslq %eax,%r12
  mov    0x70(%rsp),%r9
  mov    0x5c(%rsp),%r8d
  movl   $0x0,(%rsp)
  lea    0x0(,%r12,8),%rsi
  mov    %r12,%r13
  mov    %rsi,0x90(%rsp)
  mov    (%r9,%r12,8),%rbp
  mov    %r8d,%r14d
  jmp    L119
L436:
  addl   $0x1,(%rsp)
  sub    $0x1,%r13
  mov    %rdi,%rsi
  mov    %rbx,%rbp
L119:
  mov    D46(%rip),%rax
  mov    (%rsp),%edi
  mov    %rax,0x0(%rbp,%rsi,1)
  cmp    %edi,0x18(%rsp)
  je     L157
  mov    -0x8(%r9,%rsi,1),%rbx
  lea    -0x8(%rsi),%rdi
  cmp    %r13d,%r8d
  jle    L436
  mov    0x78(%rsp),%rax
  movsd  (%rax,%rsi,1),%xmm1
  ucomisd 0x50(%rsp),%xmm1
  jp     L23
  jne    L23
L701:
  mov    %r13,%rax
  jmp    L572
L317:
  mov    (%r9,%rax,8),%rbp
L572:
  movq   $0x0,0x0(%rbp,%rdi,1)
  movq   $0x0,(%rbx,%rax,8)
  add    $0x1,%rax
  cmp    %eax,%r8d
  jg     L317
  jmp    L436
L1145:
  mov    %rbp,%r12
  mov    0x38(%rsp),%r9d
  mov    0x40(%rsp),%rbp
  mov    %rdi,%r13
L965:
  mov    0x90(%rsp),%rax
  movsd  0x0(%r13,%rax,1),%xmm4
  cmp    0x80(%rsp),%r9d
  je     L1134
  mov    0x78(%rsp),%rax
  movslq %r9d,%rdx
  shl    $0x3,%rdx
  add    %rdx,%rax
  mov    %rax,0x88(%rsp)
L358:
  movapd %xmm4,%xmm1
  mov    0xc0(%rsp),%rax
  mov    %r9d,0x40(%rsp)
  movsd  0x0(%r13,%rdx,1),%xmm9
  movsd  %xmm4,0x30(%rsp)
  movsd  (%rax),%xmm2
  mov    0xc8(%rsp),%rax
  movsd  %xmm9,0x38(%rsp)
  movapd %xmm2,%xmm3
  addsd  %xmm2,%xmm1
  movsd  (%rax),%xmm0
  mov    0x98(%rsp),%rax
  subsd  %xmm4,%xmm3
  movsd  %xmm2,0x20(%rsp)
  movsd  (%rax),%xmm7
  mov    D46(%rip),%rax
  mulsd  %xmm1,%xmm3
  movapd %xmm0,%xmm1
  addsd  %xmm7,%xmm0
  movsd  %xmm7,0x28(%rsp)
  subsd  %xmm7,%xmm1
  mulsd  %xmm1,%xmm0
  movq   %rax,%xmm1
  addsd  %xmm0,%xmm3
  movapd %xmm7,%xmm0
  addsd  %xmm7,%xmm0
  mulsd  %xmm2,%xmm0
  divsd  %xmm0,%xmm3
  movapd %xmm3,%xmm0
  movsd  %xmm3,0x18(%rsp)
  call   <radius@plt>
  movsd  0x30(%rsp),%xmm4
  andpd  (%rsp),%xmm0
  movsd  0x38(%rsp),%xmm9
  movsd  0x18(%rsp),%xmm3
  comisd 0x50(%rsp),%xmm3
  movsd  0x20(%rsp),%xmm2
  movapd %xmm9,%xmm1
  movsd  0x28(%rsp),%xmm7
  mov    0x40(%rsp),%r9d
  subsd  %xmm4,%xmm1
  addsd  %xmm9,%xmm4
  mulsd  %xmm1,%xmm4
  jae    L598
  xorpd  D132(%rip),%xmm0
L598:
  addsd  %xmm3,%xmm0
  mov    0xa8(%rsp),%rax
  mov    %eax,0x60(%rsp)
  divsd  %xmm0,%xmm2
  subsd  %xmm7,%xmm2
  mulsd  %xmm2,%xmm7
  addsd  %xmm4,%xmm7
  divsd  %xmm9,%xmm7
  cmp    %eax,%r9d
  jg     L478
  mov    0x78(%rsp),%rax
  movslq %r9d,%rbx
  mov    %r13,0x18(%rsp)
  mov    %rbx,%r14
  lea    (%rax,%rbx,8),%r15
  mov    D46(%rip),%rax
  mov    %rbp,%rbx
  mov    %r12,%rbp
  mov    %r15,%r12
  movq   %rax,%xmm2
  movq   %rax,%xmm4
  cs nopw 0x0(%rax,%rax,1)
L633:
  mov    %r12,0x40(%rsp)
  mov    0x18(%rsp),%rax
  movapd %xmm7,%xmm0
  lea    0x0(,%r14,8),%r13
  movsd  0x8(%r12),%xmm8
  movsd  %xmm9,0x48(%rsp)
  add    $0x8,%r12
  lea    0x8(%r13),%r15
  movsd  0x8(%rax,%r14,8),%xmm3
  movsd  %xmm7,0x20(%rsp)
  mulsd  %xmm8,%xmm2
  mulsd  %xmm4,%xmm8
  movsd  %xmm3,0x38(%rsp)
  movapd %xmm2,%xmm1
  movsd  %xmm2,0x28(%rsp)
  movsd  %xmm8,0x30(%rsp)
  call   <radius@plt>
  movsd  0x20(%rsp),%xmm7
  movsd  0x28(%rsp),%xmm1
  movsd  0x30(%rsp),%xmm8
  mov    0x40(%rsp),%rax
  movapd %xmm7,%xmm4
  movapd %xmm1,%xmm2
  movsd  0x38(%rsp),%xmm3
  movsd  0x48(%rsp),%xmm9
  movsd  %xmm0,(%rax)
  mov    0x5c(%rsp),%ecx
  mov    0x70(%rsp),%rdx
  divsd  %xmm0,%xmm4
  movapd %xmm3,%xmm1
  divsd  %xmm0,%xmm2
  movapd %xmm8,%xmm0
  mulsd  %xmm4,%xmm3
  movapd %xmm4,%xmm10
  mulsd  %xmm9,%xmm10
  mulsd  %xmm4,%xmm8
  mulsd  %xmm2,%xmm9
  mulsd  %xmm2,%xmm0
  mulsd  %xmm2,%xmm1
  subsd  %xmm9,%xmm8
  movapd %xmm3,%xmm9
  addsd  %xmm0,%xmm10
  test   %ecx,%ecx
  jle    L553
  nopl   (%rax)
L1224:
  mov    (%rdx),%rax
  movapd %xmm4,%xmm6
  movapd %xmm2,%xmm7
  add    $0x8,%rdx
  lea    (%rax,%r13,1),%rcx
  add    %r15,%rax
  movsd  (%rcx),%xmm3
  movsd  (%rax),%xmm0
  mulsd  %xmm3,%xmm6
  mulsd  %xmm0,%xmm7
  mulsd  %xmm2,%xmm3
  mulsd  %xmm4,%xmm0
  addsd  %xmm7,%xmm6
  subsd  %xmm3,%xmm0
  movsd  %xmm6,(%rcx)
  movsd  %xmm0,(%rax)
  cmp    %rdx,%rbx
  jne    L1224
L553:
  movapd %xmm10,%xmm0
  movsd  %xmm9,0x38(%rsp)
  movsd  %xmm8,0x30(%rsp)
  movsd  %xmm1,0x28(%rsp)
  movsd  %xmm10,0x20(%rsp)
  movsd  %xmm2,0x48(%rsp)
  movsd  %xmm4,0x40(%rsp)
  call   <radius@plt>
  ucomisd 0x50(%rsp),%xmm0
  mov    0x18(%rsp),%rax
  movsd  0x20(%rsp),%xmm10
  movsd  0x28(%rsp),%xmm1
  movsd  0x30(%rsp),%xmm8
  movsd  0x38(%rsp),%xmm9
  movsd  %xmm0,(%rax,%r14,8)
  jp     L459
  movsd  0x40(%rsp),%xmm4
  movsd  0x48(%rsp),%xmm2
  je     L589
L459:
  movsd  D46(%rip),%xmm2
  movapd %xmm10,%xmm4
  divsd  %xmm0,%xmm2
  mulsd  %xmm2,%xmm4
  mulsd  %xmm1,%xmm2
L589:
  movapd %xmm4,%xmm7
  movapd %xmm2,%xmm0
  mov    0x68(%rsp),%rdx
  mov    0xd0(%rsp),%eax
  mulsd  %xmm8,%xmm7
  mulsd  %xmm9,%xmm0
  mulsd  %xmm2,%xmm8
  mulsd  %xmm4,%xmm9
  addsd  %xmm0,%xmm7
  subsd  %xmm8,%xmm9
  test   %eax,%eax
  jle    L164
  xchg   %ax,%ax
L930:
  mov    (%rdx),%rax
  movapd %xmm4,%xmm3
  movapd %xmm2,%xmm6
  add    $0x8,%rdx
  lea    (%rax,%r13,1),%rcx
  add    %r15,%rax
  movsd  (%rcx),%xmm1
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm3
  mulsd  %xmm0,%xmm6
  mulsd  %xmm2,%xmm1
  mulsd  %xmm4,%xmm0
  addsd  %xmm6,%xmm3
  subsd  %xmm1,%xmm0
  movsd  %xmm3,(%rcx)
  movsd  %xmm0,(%rax)
  cmp    %rbp,%rdx
  jne    L930
L164:
  add    $0x1,%r14
  cmp    %r14d,0x60(%rsp)
  jge    L633
  mov    0x18(%rsp),%r13
  mov    %rbp,%r12
  mov    %rbx,%rbp
L478:
  mov    0x88(%rsp),%rax
  subl   $0x1,0xd4(%rsp)
  movq   $0x0,(%rax)
  mov    0x98(%rsp),%rax
  movsd  %xmm7,(%rax)
  mov    0x90(%rsp),%rax
  movsd  %xmm9,0x0(%r13,%rax,1)
  jne    L161
  movsd  0xa0(%rsp),%xmm5
  mov    %r12,%r14
  mov    %rbp,%r12
  mov    %r13,%rbp
L841:
  subq   $0x1,0xa8(%rsp)
  mov    0xa8(%rsp),%rax
  subq   $0x8,0x90(%rsp)
  cmp    %rax,0xd8(%rsp)
  jne    L864
L619:
  mov    0x78(%rsp),%rdi
  add    $0xe8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    1090 <free@plt>
L157:
  mov    0x68(%rsp),%rax
  mov    0x90(%rsp),%r13
  movl   $0xffffffff,0x20(%rsp)
  mov    0xd0(%rsp),%ebp
  mov    %r15,0x38(%rsp)
  mov    %r14d,%r15d
  lea    0x8(%rax),%rdi
  add    %rax,%r13
  mov    %rdi,0x28(%rsp)
  mov    %ebp,%r11d
  mov    %r13,%r14
  sub    0x5c(%rsp),%r11d
  mov    %r12,%r13
  mov    %rax,%r12
L963:
  mov    0x38(%rsp),%rax
  lea    0x0(,%r13,8),%rbx
  mov    %r13d,%ecx
  movsd  (%rax,%r13,8),%xmm0
  cmp    %r13d,0x18(%rsp)
  jg     L972
  ucomisd 0x50(%rsp),%xmm0
  jp     L351
  je     L903
L351:
  movsd  D46(%rip),%xmm2
  divsd  %xmm0,%xmm2
  cmp    %ecx,0x18(%rsp)
  jne    L978
L843:
  cmp    %ecx,%ebp
  jle    L705
  mov    0x28(%rsp),%rdi
  mov    %r11d,%eax
  add    %r13,%rax
  lea    (%rdi,%rax,8),%rcx
  mov    %r14,%rax
L1160:
  mov    (%rax),%rdx
  add    $0x8,%rax
  add    %rbx,%rdx
  movsd  (%rdx),%xmm0
  mulsd  %xmm2,%xmm0
  movsd  %xmm0,(%rdx)
  cmp    %rax,%rcx
  jne    L1160
L705:
  add    (%r14),%rbx
  sub    $0x1,%r13
  addl   $0x1,0x20(%rsp)
  sub    $0x1,%r15d
  movsd  D46(%rip),%xmm0
  addsd  (%rbx),%xmm0
  sub    $0x8,%r14
  add    $0x1,%r11d
  movsd  %xmm0,(%rbx)
  test   %r13d,%r13d
  jns    L963
  mov    0x5c(%rsp),%eax
  mov    (%rsp),%edx
  mov    0x28(%rsp),%rdi
  mov    0x38(%rsp),%r15
  sub    $0x2,%eax
  movq   D126(%rip),%xmm7
  cltq
  mov    %r15,%rbp
  mov    %rax,0xa8(%rsp)
  mov    0x98(%rsp),%rax
  movaps %xmm7,(%rsp)
  sub    $0x3,%rax
  sub    %rdx,%rax
  mov    %rax,0xd8(%rsp)
  mov    0x48(%rsp),%eax
  lea    (%rdi,%rax,8),%r12
  mov    0x70(%rsp),%rax
  lea    0x8(%rax,%rdx,8),%r14
  mov    0x78(%rsp),%rax
  add    $0x8,%rax
  mov    %rax,0xb8(%rsp)
  mov    %r14,%rax
  mov    %r12,%r14
  mov    %rax,%r12
L864:
  mov    0xa8(%rsp),%rsi
  mov    %rbp,%r13
  movl   $0x1e,0xd4(%rsp)
  movsd  %xmm5,0xa0(%rsp)
  mov    %esi,%eax
  add    $0x1,%eax
  mov    %eax,0x80(%rsp)
  movslq %esi,%rax
  shl    $0x3,%rax
  lea    0x0(%rbp,%rax,1),%rdi
  mov    %r12,%rbp
  mov    %r14,%r12
  mov    %rdi,0xc0(%rsp)
  mov    0x78(%rsp),%rdi
  add    %rdi,%rax
  add    0x90(%rsp),%rdi
  mov    %rax,0xc8(%rsp)
  lea    0x0(,%rsi,8),%rax
  mov    %rdi,0x98(%rsp)
  mov    %rax,0xb0(%rsp)
  nopw   0x0(%rax,%rax,1)
L161:
  mov    0xb0(%rsp),%r14
  mov    0x80(%rsp),%eax
  movsd  0xa0(%rsp),%xmm5
  mov    0xb8(%rsp),%rsi
  jmp    L881
  nopw   0x0(%rax,%rax,1)
L411:
  mov    %rdx,%r14
L881:
  lea    (%rsi,%r14,1),%rcx
  mov    %eax,%r9d
  lea    0x8(%r14),%rdx
  sub    $0x1,%eax
  movsd  (%rcx),%xmm0
  andpd  (%rsp),%xmm0
  addsd  %xmm5,%xmm0
  ucomisd %xmm5,%xmm0
  jp     L480
  je     L965
L480:
  movsd  0x0(%r13,%r14,1),%xmm0
  andpd  (%rsp),%xmm0
  addsd  %xmm5,%xmm0
  ucomisd %xmm5,%xmm0
  jp     L477
  je     L17
L477:
  lea    -0x8(%r14),%rdx
  cmp    $0xffffffff,%eax
  jne    L411
  mov    0x78(%rsp),%rax
  mov    $0xffffffff,%r9d
  mov    $0xfffffffffffffff8,%rdx
  sub    $0x8,%rax
  mov    %rax,0x88(%rsp)
  cmp    0x80(%rsp),%r9d
  jg     L1107
L779:
  mov    0x78(%rsp),%rax
  movslq %r9d,%rbx
  mov    %rbp,0x40(%rsp)
  mov    %r13,%rdi
  mov    %r9d,0x38(%rsp)
  mov    %r14,%r13
  mov    %r12,%rbp
  mov    %rbx,%r14
  movsd  0xa0(%rsp),%xmm5
  lea    (%rax,%rbx,8),%r15
  mov    D46(%rip),%rax
  mov    0x80(%rsp),%ebx
  movq   %rax,%xmm3
  jmp    L61
  nopl   0x0(%rax,%rax,1)
L171:
  add    $0x1,%r14
  add    $0x8,%r15
  cmp    %r14d,%ebx
  jl     L1145
L61:
  movsd  (%r15),%xmm2
  movapd (%rsp),%xmm7
  lea    0x0(,%r14,8),%r12
  mulsd  %xmm3,%xmm2
  andpd  %xmm2,%xmm7
  movapd %xmm7,%xmm0
  addsd  %xmm5,%xmm0
  ucomisd %xmm5,%xmm0
  jp     L212
  je     L171
L212:
  movsd  (%rdi,%r14,8),%xmm1
  movapd %xmm2,%xmm0
  mov    %rdi,0x28(%rsp)
  movsd  %xmm5,0x30(%rsp)
  movsd  %xmm1,0x20(%rsp)
  movsd  %xmm2,0x18(%rsp)
  call   <radius@plt>
  movsd  0x18(%rsp),%xmm2
  mov    0x28(%rsp),%rdi
  movsd  D46(%rip),%xmm4
  xorpd  D132(%rip),%xmm2
  mov    0xd0(%rsp),%r8d
  movsd  0x20(%rsp),%xmm1
  movsd  %xmm0,(%rdi,%r14,8)
  divsd  %xmm0,%xmm4
  movapd %xmm2,%xmm3
  movsd  0x30(%rsp),%xmm5
  test   %r8d,%r8d
  mulsd  %xmm4,%xmm1
  mulsd  %xmm4,%xmm3
  jle    L171
  mov    0x68(%rsp),%rdx
  nopl   0x0(%rax)
L1088:
  mov    (%rdx),%rax
  movapd %xmm1,%xmm4
  movapd %xmm3,%xmm6
  add    $0x8,%rdx
  lea    (%rax,%r13,1),%rcx
  add    %r12,%rax
  movsd  (%rcx),%xmm2
  movsd  (%rax),%xmm0
  mulsd  %xmm2,%xmm4
  mulsd  %xmm0,%xmm6
  mulsd  %xmm3,%xmm2
  mulsd  %xmm1,%xmm0
  addsd  %xmm6,%xmm4
  subsd  %xmm2,%xmm0
  movsd  %xmm4,(%rcx)
  movsd  %xmm0,(%rax)
  cmp    %rdx,%rbp
  jne    L1088
  jmp    L171
L17:
  mov    %rcx,0x88(%rsp)
  cmp    0x80(%rsp),%r9d
  jle    L779
L1107:
  mov    0x90(%rsp),%rax
  movsd  0x0(%r13,%rax,1),%xmm4
  jmp    L358
L1134:
  movsd  0x50(%rsp),%xmm7
  mov    %r12,%r14
  mov    %rbp,%r12
  movsd  0xa0(%rsp),%xmm5
  mov    %r13,%rbp
  comisd %xmm4,%xmm7
  jbe    L841
  xorpd  D132(%rip),%xmm4
  mov    0x5c(%rsp),%esi
  movsd  %xmm4,0x0(%r13,%rax,1)
  test   %esi,%esi
  jle    L841
  mov    0x70(%rsp),%rax
L787:
  mov    0x90(%rsp),%rdx
  add    (%rax),%rdx
  add    $0x8,%rax
  movsd  (%rdx),%xmm0
  xorpd  D132(%rip),%xmm0
  movsd  %xmm0,(%rdx)
  cmp    %r12,%rax
  jne    L787
  jmp    L841
L903:
  cmp    %ecx,%ebp
  jle    L705
  mov    0x28(%rsp),%rdi
  mov    %r11d,%eax
  add    %r13,%rax
  lea    (%rdi,%rax,8),%rcx
  mov    %r14,%rax
L462:
  mov    (%rax),%rdx
  add    $0x8,%rax
  movq   $0x0,(%rdx,%rbx,1)
  cmp    %rax,%rcx
  jne    L462
  jmp    L705
L972:
  cmp    %r15d,0x5c(%rsp)
  jle    L780
  mov    0x20(%rsp),%eax
  xor    %esi,%esi
  mov    %r11d,0x80(%rsp)
  movsd  %xmm5,0x60(%rsp)
  lea    0x8(,%rax,8),%rdx
  mov    (%r14),%rax
  movsd  %xmm0,0x30(%rsp)
  mov    %r13d,0x40(%rsp)
  lea    0x8(%rax,%rbx,1),%rdi
  call   <memset@plt>
  movsd  0x30(%rsp),%xmm0
  mov    0x40(%rsp),%ecx
  movsd  0x60(%rsp),%xmm5
  mov    0x80(%rsp),%r11d
L780:
  ucomisd 0x50(%rsp),%xmm0
  jp     L2
  je     L903
L2:
  movsd  D46(%rip),%xmm2
  divsd  %xmm0,%xmm2
L978:
  cmp    %r15d,0x5c(%rsp)
  jle    L843
  mov    0x20(%rsp),%eax
  mov    (%r14),%r10
  movslq %r15d,%r9
  lea    0x0(,%r9,8),%rsi
  lea    0x2(%r13,%rax,1),%rax
  lea    (%r10,%rbx,1),%r8
  shl    $0x3,%rax
  mov    %rax,0x30(%rsp)
  mov    %r11d,%eax
  add    %r13,%rax
  lea    (%r12,%rax,8),%rdi
L798:
  mov    %r9,%rax
  pxor   %xmm1,%xmm1
  cmp    %r15d,%ebp
  jle    L1112
  nopw   0x0(%rax,%rax,1)
L224:
  mov    (%r12,%rax,8),%rdx
  add    $0x1,%rax
  movsd  (%rdx,%rbx,1),%xmm0
  mulsd  (%rdx,%rsi,1),%xmm0
  addsd  %xmm0,%xmm1
  cmp    %eax,%ebp
  jg     L224
L1112:
  movsd  (%r8),%xmm0
  divsd  %xmm0,%xmm1
  mulsd  %xmm2,%xmm1
  cmp    %ecx,%ebp
  jle    L1024
  mov    %r14,%rdx
  mov    %r10,%rax
  jmp    L662
  nopl   0x0(%rax,%rax,1)
L653:
  mov    0x8(%rdx),%rax
  add    $0x8,%rdx
  movsd  (%rax,%rbx,1),%xmm0
L662:
  mulsd  %xmm1,%xmm0
  add    %rsi,%rax
  addsd  (%rax),%xmm0
  movsd  %xmm0,(%rax)
  cmp    %rdx,%rdi
  jne    L653
L1024:
  add    $0x8,%rsi
  cmp    %rsi,0x30(%rsp)
  jne    L798
  jmp    L843
L1054:
  mov    0x38(%rsp),%ebx
  mov    0x20(%rsp),%rax
  pxor   %xmm1,%xmm1
  add    %r14,%rbx
  lea    0x0(%r13,%rax,1),%rbp
  shl    $0x3,%rbx
  mov    %rbp,%rdi
  mov    %rbp,%rsi
  lea    0x10(%r13,%rbx,1),%rax
  mov    %rax,0x80(%rsp)
L680:
  movsd  (%rsi),%xmm0
  add    $0x8,%rsi
  divsd  %xmm2,%xmm0
  movsd  %xmm0,-0x8(%rsi)
  mulsd  %xmm0,%xmm0
  addsd  %xmm0,%xmm1
  cmp    %rsi,0x80(%rsp)
  jne    L680
  movsd  0x0(%rbp),%xmm7
  movsd  0x50(%rsp),%xmm4
  movsd  %xmm7,0x88(%rsp)
  comisd %xmm4,%xmm7
  jb     L718
  ucomisd %xmm1,%xmm4
  ja     L1128
  movapd %xmm1,%xmm0
  sqrtsd %xmm0,%xmm0
L707:
  andpd  (%rsp),%xmm0
  xorpd  D132(%rip),%xmm0
  jmp    L260
L23:
  mov    0x68(%rsp),%rax
  mov    %rbp,%rdx
  mov    -0x8(%rax,%rsi,1),%r10
  mov    %r13,%rax
  lea    (%r10,%rsi,1),%rcx
  jmp    L82
L567:
  mov    (%r9,%rax,8),%rdx
L82:
  movsd  (%r10,%rax,8),%xmm0
  divsd  (%rcx),%xmm0
  divsd  %xmm1,%xmm0
  add    $0x1,%rax
  movsd  %xmm0,(%rdx,%rdi,1)
  cmp    %eax,%r8d
  jg     L567
  mov    (%rsp),%eax
  lea    0x1(%r13,%rax,1),%rdx
  add    %r13,%rax
  lea    0x0(,%rdx,8),%rcx
  lea    (%r9,%rax,8),%r11
  mov    %rsi,%rdx
  lea    (%r9,%rsi,1),%rax
  mov    %rcx,0x20(%rsp)
  mov    %rax,0x28(%rsp)
L413:
  mov    %r13,%rax
  mov    %rbp,%rcx
  pxor   %xmm1,%xmm1
  jmp    L294
L909:
  mov    (%r9,%rax,8),%rcx
L294:
  movsd  (%rcx,%rdx,1),%xmm0
  mulsd  (%r10,%rax,8),%xmm0
  add    $0x1,%rax
  addsd  %xmm0,%xmm1
  cmp    %eax,%r8d
  jg     L909
  mov    0x28(%rsp),%rax
  mov    %rbp,%rsi
  jmp    L535
L1020:
  mov    0x8(%rax),%rsi
  add    $0x8,%rax
L535:
  movsd  (%rsi,%rdi,1),%xmm0
  lea    (%rsi,%rdx,1),%rcx
  mulsd  %xmm1,%xmm0
  addsd  (%rcx),%xmm0
  movsd  %xmm0,(%rcx)
  cmp    %rax,%r11
  jne    L1020
  add    $0x8,%rdx
  cmp    %rdx,0x20(%rsp)
  jne    L413
  jmp    L701
L718:
  movsd  0x50(%rsp),%xmm7
  ucomisd %xmm1,%xmm7
  ja     L43
  movapd %xmm1,%xmm0
  sqrtsd %xmm0,%xmm0
L1198:
  andpd  (%rsp),%xmm0
L260:
  mov    0x78(%rsp),%rcx
  mov    0x20(%rsp),%rax
  mov    %r13,%rsi
  movsd  0x88(%rsp),%xmm7
  add    %rcx,%rax
  lea    0x10(%rcx,%rbx,1),%r10
  sub    %rcx,%rsi
  movapd %xmm7,%xmm3
  subsd  %xmm0,%xmm7
  mulsd  %xmm0,%xmm3
  movsd  %xmm7,0x0(%rbp)
  subsd  %xmm1,%xmm3
  movapd %xmm7,%xmm1
  jmp    L711
L663:
  movsd  (%rsi,%rax,1),%xmm1
L711:
  divsd  %xmm3,%xmm1
  add    $0x8,%rax
  movsd  %xmm1,-0x8(%rax)
  cmp    %rax,%r10
  jne    L663
  mov    0x40(%rsp),%esi
  cmp    %esi,0x48(%rsp)
  je     L1103
  mov    0x90(%rsp),%esi
  mov    0x5c(%rsp),%r8d
  mov    %r15,%r10
  add    $0x10,%rbx
  cmp    %esi,0xd0(%rsp)
  jle    L1103
L1115:
  mov    0x68(%rsp),%rax
  pxor   %xmm3,%xmm3
  mov    (%rax,%r10,8),%rdx
  mov    %r15,%rax
L1219:
  movsd  (%rdx,%rax,8),%xmm1
  mulsd  0x0(%r13,%rax,8),%xmm1
  add    $0x1,%rax
  addsd  %xmm1,%xmm3
  cmp    %eax,%r8d
  jg     L1219
  mov    0x20(%rsp),%rax
  mov    0x78(%rsp),%rcx
  lea    (%rdx,%rbx,1),%rsi
  add    %rdx,%rax
  sub    %rdx,%rcx
L1241:
  movsd  (%rcx,%rax,1),%xmm1
  add    $0x8,%rax
  mulsd  %xmm3,%xmm1
  addsd  -0x8(%rax),%xmm1
  movsd  %xmm1,-0x8(%rax)
  cmp    %rax,%rsi
  jne    L1241
  add    $0x1,%r10
  cmp    %r10d,0xd0(%rsp)
  jg     L1115
L1103:
  movsd  (%rdi),%xmm1
  add    $0x8,%rdi
  mulsd  %xmm2,%xmm1
  movsd  %xmm1,-0x8(%rdi)
  cmp    %rdi,0x80(%rsp)
  jne    L1103
  mov    0x30(%rsp),%rax
  movapd (%rsp),%xmm7
  movsd  (%rax),%xmm1
  mov    0x28(%rsp),%rax
  movsd  (%rax,%r14,8),%xmm3
  andpd  %xmm7,%xmm1
  andpd  %xmm7,%xmm3
  addsd  %xmm3,%xmm1
  movapd %xmm1,%xmm4
  cmplesd %xmm5,%xmm4
  andpd  %xmm4,%xmm5
  andnpd %xmm1,%xmm4
  orpd   %xmm4,%xmm5
  jmp    L1250
L1171:
  movsd  0x50(%rsp),%xmm7
  ucomisd %xmm1,%xmm7
  ja     L1217
  movapd %xmm1,%xmm0
  sqrtsd %xmm0,%xmm0
L241:
  andpd  (%rsp),%xmm0
L742:
  movapd %xmm4,%xmm2
  mov    0x68(%rsp),%rax
  mov    0x40(%rsp),%edi
  subsd  %xmm0,%xmm2
  add    %rax,%r13
  movsd  %xmm2,0x0(%rbp)
  cmp    %edi,0x18(%rsp)
  je     L50
  cmp    %r15d,0x5c(%rsp)
  jle    L50
  mulsd  %xmm0,%xmm4
  mov    0x38(%rsp),%eax
  mov    0x20(%rsp),%rsi
  lea    0x2(%r14,%rax,1),%rax
  lea    0x0(,%rax,8),%rcx
  subsd  %xmm1,%xmm4
L1235:
  mov    0x80(%rsp),%rdx
  mov    %r12,%rax
  pxor   %xmm1,%xmm1
  jmp    L525
L162:
  mov    0x8(%rax),%rdx
  add    $0x8,%rax
L525:
  movsd  (%rdx,%rbx,1),%xmm2
  mulsd  (%rdx,%rsi,1),%xmm2
  addsd  %xmm2,%xmm1
  cmp    %rax,%r13
  jne    L162
  divsd  %xmm4,%xmm1
  mov    0x80(%rsp),%rdi
  mov    %r12,%rdx
  jmp    L1085
L887:
  mov    0x8(%rdx),%rdi
  add    $0x8,%rdx
L1085:
  movsd  (%rdi,%rbx,1),%xmm2
  lea    (%rdi,%rsi,1),%r8
  mulsd  %xmm1,%xmm2
  addsd  (%r8),%xmm2
  movsd  %xmm2,(%r8)
  cmp    %rdx,%rax
  jne    L887
  add    $0x8,%rsi
  cmp    %rsi,%rcx
  jne    L1235
L50:
  mulsd  %xmm3,%xmm0
  mov    %r12,%rax
  jmp    L243
L796:
  mov    0x8(%rax),%rdx
  add    $0x8,%rax
  lea    (%rdx,%rbx,1),%rbp
L243:
  movsd  0x0(%rbp),%xmm1
  mulsd  %xmm3,%xmm1
  movsd  %xmm1,0x0(%rbp)
  cmp    %rax,%r13
  jne    L796
  jmp    L220
L783:
  pxor   %xmm5,%xmm5
  movsd  %xmm5,0x50(%rsp)
  jmp    L892
L1152:
  pxor   %xmm2,%xmm2
  jmp    L597
L717:
  andpd  (%rsp),%xmm0
  jmp    L1225
L43:
  movapd %xmm1,%xmm0
  mov    %rdi,0xb0(%rsp)
  movsd  %xmm2,0xc0(%rsp)
  movsd  %xmm5,0xb8(%rsp)
  movsd  %xmm1,0xa8(%rsp)
  call   <sqrt@plt>
  mov    0xb0(%rsp),%rdi
  movsd  0xc0(%rsp),%xmm2
  movsd  0xb8(%rsp),%xmm5
  movsd  0xa8(%rsp),%xmm1
  jmp    L1198
L1128:
  movapd %xmm1,%xmm0
  mov    %rdi,0xb0(%rsp)
  movsd  %xmm2,0xc0(%rsp)
  movsd  %xmm5,0xb8(%rsp)
  movsd  %xmm1,0xa8(%rsp)
  call   <sqrt@plt>
  mov    0xb0(%rsp),%rdi
  movsd  0xc0(%rsp),%xmm2
  movsd  0xb8(%rsp),%xmm5
  movsd  0xa8(%rsp),%xmm1
  jmp    L707
L1217:
  movsd  %xmm5,0xb0(%rsp)
  movapd %xmm1,%xmm0
  movsd  %xmm3,0xa8(%rsp)
  movsd  %xmm4,0x90(%rsp)
  movsd  %xmm1,0x88(%rsp)
  call   <sqrt@plt>
  movsd  0xb0(%rsp),%xmm5
  movsd  0xa8(%rsp),%xmm3
  movsd  0x90(%rsp),%xmm4
  movsd  0x88(%rsp),%xmm1
  jmp    L241
L460:
  movsd  %xmm5,0xb0(%rsp)
  movapd %xmm1,%xmm0
  movsd  %xmm3,0xa8(%rsp)
  movsd  %xmm4,0x90(%rsp)
  movsd  %xmm1,0x88(%rsp)
  call   <sqrt@plt>
  movsd  0xb0(%rsp),%xmm5
  movsd  0xa8(%rsp),%xmm3
  movsd  0x90(%rsp),%xmm4
  movsd  0x88(%rsp),%xmm1
  jmp    L395
```

tool_calls: name: retrieve_data
arguments: tag: D126
data_type: qword
name: retrieve_data
arguments: tag: D132
data_type: f32[4]
name: retrieve_data
arguments: tag: D46
data_type: f64

tool: D126: 9223372036854775807

tool: {"D132": [0.0,-0.0,0.0,0.0]}

tool: D46: 1

assistant: ```c
void svd(int m, int n, double **a, double **p, double *d, double **q) {
  int flag, i, its, j, jj, k, l, nm, nm1 = n - 1, mm1 = m - 1;
  double c, f, h, s, x, y, z;
  double anorm = 0, g = 0, scale = 0;
  double *r = (double *)malloc(sizeof(double) * n);
  for (i = 0; i < m; i++)
    for (j = 0; j < n; j++)
      p[i][j] = a[i][j];
  for (i = 0; i < n; i++) {
    l = i + 1;
    r[i] = scale * g;
    g = s = scale = 0.0;
    if (i < m) {
      for (k = i; k < m; k++)
        scale += fabs(p[k][i]);
      if (scale) {
        for (k = i; k < m; k++) {
          p[k][i] /= scale;
          s += p[k][i] * p[k][i];
        }
        f = p[i][i];
        g = -((f) >= 0.0 ? fabs(sqrt(s)) : -fabs(sqrt(s)));
        h = f * g - s;
        p[i][i] = f - g;
        if (i != nm1) {
          for (j = l; j < n; j++) {
            for (s = 0.0, k = i; k < m; k++)
              s += p[k][i] * p[k][j];
            f = s / h;
            for (k = i; k < m; k++)
              p[k][j] += f * p[k][i];
          }
        }
        for (k = i; k < m; k++)
          p[k][i] *= scale;
      }
    }
    d[i] = scale * g;
    g = s = scale = 0.0;
    if (i < m && i != nm1) {
      for (k = l; k < n; k++)
        scale += fabs(p[i][k]);
      if (scale) {
        for (k = l; k < n; k++) {
          p[i][k] /= scale;
          s += p[i][k] * p[i][k];
        }
        f = p[i][l];
        g = -((f) >= 0.0 ? fabs(sqrt(s)) : -fabs(sqrt(s)));
        h = f * g - s;
        p[i][l] = f - g;
        for (k = l; k < n; k++)
          r[k] = p[i][k] / h;
        if (i != mm1) {
          for (j = l; j < m; j++) {
            for (s = 0.0, k = l; k < n; k++)
              s += p[j][k] * p[i][k];
            for (k = l; k < n; k++)
              p[j][k] += s * r[k];
          }
        }
        for (k = l; k < n; k++)
          p[i][k] *= scale;
      }
    }
    anorm = ((anorm) >= (fabs(d[i]) + fabs(r[i])) ? (anorm) : (fabs(d[i]) + fabs(r[i])));
  }
  for (i = n - 1; i >= 0; i--) {
    if (i < nm1) {
      if (g) {
        for (j = l; j < n; j++)
          q[j][i] = (p[i][j] / p[i][l]) / g;
        for (j = l; j < n; j++) {
          for (s = 0.0, k = l; k < n; k++)
            s += p[i][k] * q[k][j];
          for (k = l; k < n; k++)
            q[k][j] += s * q[k][i];
        }
      }
      for (j = l; j < n; j++)
        q[i][j] = q[j][i] = 0.0;
    }
    q[i][i] = 1.0;
    g = r[i];
    l = i;
  }
  for (i = n - 1; i >= 0; i--) {
    l = i + 1;
    g = d[i];
    if (i < nm1)
      for (j = l; j < n; j++)
        p[i][j] = 0.0;
    if (g) {
      g = 1.0 / g;
      if (i != nm1) {
        for (j = l; j < n; j++) {
          for (s = 0.0, k = l; k < m; k++)
            s += p[k][i] * p[k][j];
          f = (s / p[i][i]) * g;
          for (k = i; k < m; k++)
            p[k][j] += f * p[k][i];
        }
      }
      for (j = i; j < m; j++)
        p[j][i] *= g;
    } else
      for (j = i; j < m; j++)
        p[j][i] = 0.0;
    ++p[i][i];
  }
  for (k = n - 1; k >= 0; k--) {
    for (its = 0; its < 30; its++) {
      flag = 1;
      for (l = k; l >= 0; l--) {
        nm = l - 1;
        if (fabs(r[l]) + anorm == anorm) {
          flag = 0;
          break;
        }
        if (fabs(d[nm]) + anorm == anorm)
          break;
      }
      if (flag) {
        c = 0.0;
        s = 1.0;
        for (i = l; i <= k; i++) {
          f = s * r[i];
          if (fabs(f) + anorm != anorm) {
            g = d[i];
            h = radius(f, g);
            d[i] = h;
            h = 1.0 / h;
            c = g * h;
            s = (-f * h);
            for (j = 0; j < m; j++) {
              y = p[j][nm];
              z = p[j][i];
              p[j][nm] = y * c + z * s;
              p[j][i] = z * c - y * s;
            }
          }
        }
      }
      z = d[k];
      if (l == k) {
        if (z < 0.0) {
          d[k] = -z;
          for (j = 0; j < n; j++)
            q[j][k] = (-q[j][k]);
        }
        break;
      }
      if (its == 30) {
        return;
      }
      x = d[l];
      nm = k - 1;
      y = d[nm];
      g = r[nm];
      h = r[k];
      f = ((y - z) * (y + z) + (g - h) * (g + h)) / (2.0 * h * y);
      g = radius(f, 1.0);
      f = ((x - z) * (x + z) + h * ((y / (f + ((f) >= 0.0 ? fabs(g) : -fabs(g)))) - h)) / x;
      c = s = 1.0;
      for (j = l; j <= nm; j++) {
        i = j + 1;
        g = r[i];
        y = d[i];
        h = s * g;
        g = c * g;
        z = radius(f, h);
        r[j] = z;
        c = f / z;
        s = h / z;
        f = x * c + g * s;
        g = g * c - x * s;
        h = y * s;
        y = y * c;
        for (jj = 0; jj < n; jj++) {
          x = q[jj][j];
          z = q[jj][i];
          q[jj][j] = x * c + z * s;
          q[jj][i] = z * c - x * s;
        }
        z = radius(f, h);
        d[j] = z;
        if (z) {
          z = 1.0 / z;
          c = f * z;
          s = h * z;
        }
        f = (c * g) + (s * y);
        x = (c * y) - (s * g);
        for (jj = 0; jj < m; jj++) {
          y = p[jj][j];
          z = p[jj][i];
          p[jj][j] = y * c + z * s;
          p[jj][i] = z * c - y * s;
        }
      }
      r[l] = 0.0;
      r[k] = f;
      d[k] = x;
    }
  }
  free(r);
}
```