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

```asm
<minfit>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0xb8,%rsp
  mov    %rdi,-0xa8(%rbp)
  mov    %esi,-0xac(%rbp)
  mov    %edx,-0xb0(%rbp)
  mov    %ecx,-0xb4(%rbp)
  mov    %r8,-0xc0(%rbp)
  mov    -0xb0(%rbp),%eax
  cltq
  shl    $0x3,%rax
  mov    %rax,%rdi
  call   <malloc@plt>
  mov    %rax,-0x40(%rbp)
  movl   $0x0,-0x88(%rbp)
  mov    $0x0,%eax
  call   <macheps@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  -0x38(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x68(%rbp)
  movsd  -0x68(%rbp),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  mov    -0xb0(%rbp),%edx
  mov    -0xb4(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0x84(%rbp)
  movl   $0x0,-0xa0(%rbp)
  jmp    L514
L731:
  mov    -0xa0(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x94(%rbp)
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0xa0(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L103
L444:
  mov    -0x98(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x58(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movsd  -0x60(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  addl   $0x1,-0x98(%rbp)
L103:
  mov    -0x98(%rbp),%eax
  cmp    -0xac(%rbp),%eax
  jl     L444
  movsd  -0x30(%rbp),%xmm0
  comisd -0x60(%rbp),%xmm0
  jbe    L662
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x70(%rbp)
  jmp    L250
L662:
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  pxor   %xmm0,%xmm0
  comisd -0x50(%rbp),%xmm0
  jbe    L574
  mov    -0x60(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  jmp    L565
L574:
  mov    -0x60(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   D26(%rip),%xmm0
  movq   %rax,%xmm3
  xorpd  %xmm0,%xmm3
  movq   %xmm3,%rax
L565:
  mov    %rax,-0x70(%rbp)
  movsd  -0x50(%rbp),%xmm0
  mulsd  -0x70(%rbp),%xmm0
  subsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x9c(%rbp)
  jmp    L140
L567:
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0xa0(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L201
L688:
  mov    -0x98(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x60(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  addl   $0x1,-0x98(%rbp)
L201:
  mov    -0x98(%rbp),%eax
  cmp    -0xac(%rbp),%eax
  jl     L688
  movsd  -0x60(%rbp),%xmm0
  divsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  mov    -0xa0(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L63
L396:
  mov    -0x98(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x78(%rbp),%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x50(%rbp),%xmm0
  mov    -0x78(%rbp),%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x98(%rbp)
L63:
  mov    -0x98(%rbp),%eax
  cmp    -0xac(%rbp),%eax
  jl     L396
  addl   $0x1,-0x9c(%rbp)
L140:
  mov    -0x9c(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L567
L250:
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0xa0(%rbp),%eax
  cmp    -0xac(%rbp),%eax
  jge    L288
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L625
L19:
  mov    -0x78(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x58(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movsd  -0x60(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  addl   $0x1,-0x98(%rbp)
L625:
  mov    -0x98(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L19
L288:
  movsd  -0x30(%rbp),%xmm0
  comisd -0x60(%rbp),%xmm0
  jbe    L139
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x70(%rbp)
  jmp    L18
L139:
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  pxor   %xmm0,%xmm0
  comisd -0x50(%rbp),%xmm0
  jbe    L164
  mov    -0x60(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  jmp    L409
L164:
  mov    -0x60(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   D26(%rip),%xmm0
  movq   %rax,%xmm4
  xorpd  %xmm0,%xmm4
  movq   %xmm4,%rax
L409:
  mov    %rax,-0x70(%rbp)
  movsd  -0x50(%rbp),%xmm0
  mulsd  -0x70(%rbp),%xmm0
  subsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L735
L365:
  mov    -0x78(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x98(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  divsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x98(%rbp)
L735:
  mov    -0x98(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L365
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x9c(%rbp)
  jmp    L318
L115:
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0x9c(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,-0x74(%rbp)
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L679
L142:
  mov    -0x74(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x60(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  addl   $0x1,-0x98(%rbp)
L679:
  mov    -0x98(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L142
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L286
L28:
  mov    -0x74(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x98(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x60(%rbp),%xmm0
  mov    -0x74(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x98(%rbp)
L286:
  mov    -0x98(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L28
  addl   $0x1,-0x9c(%rbp)
L318:
  mov    -0x9c(%rbp),%eax
  cmp    -0xac(%rbp),%eax
  jl     L115
L18:
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D135(%rip),%xmm1
  andpd  %xmm0,%xmm1
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D135(%rip),%xmm2
  andpd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x58(%rbp),%xmm0
  comisd -0x68(%rbp),%xmm0
  jbe    L118
  movsd  -0x58(%rbp),%xmm0
  movsd  %xmm0,-0x68(%rbp)
L118:
  addl   $0x1,-0xa0(%rbp)
L514:
  mov    -0xa0(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L731
  mov    -0xb0(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0xa0(%rbp)
  jmp    L790
L387:
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,-0x78(%rbp)
  pxor   %xmm0,%xmm0
  ucomisd -0x70(%rbp),%xmm0
  jp     L316
  pxor   %xmm0,%xmm0
  ucomisd -0x70(%rbp),%xmm0
  je     L282
L316:
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  -0x70(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x9c(%rbp)
  jmp    L556
L532:
  mov    -0x78(%rbp),%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x9c(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  divsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x9c(%rbp)
L556:
  mov    -0x9c(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L532
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x9c(%rbp)
  jmp    L399
L807:
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L11
L558:
  mov    -0x78(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x98(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x60(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  addl   $0x1,-0x98(%rbp)
L11:
  mov    -0x98(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L558
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x98(%rbp)
  jmp    L656
L26:
  mov    -0x98(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x98(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x60(%rbp),%xmm0
  mov    -0x98(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x98(%rbp)
L656:
  mov    -0x98(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L26
  addl   $0x1,-0x9c(%rbp)
L399:
  mov    -0x9c(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L807
L282:
  mov    -0x94(%rbp),%eax
  mov    %eax,-0x9c(%rbp)
  jmp    L166
L658:
  mov    -0x9c(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x78(%rbp),%ecx
  mov    -0x9c(%rbp),%edx
  add    %ecx,%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,8),%rcx
  mov    -0xa8(%rbp),%rdx
  add    %rcx,%rdx
  movsd  (%rax),%xmm0
  movsd  %xmm0,(%rdx)
  addl   $0x1,-0x9c(%rbp)
L166:
  mov    -0x9c(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L658
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  D137(%rip),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  mov    -0xa0(%rbp),%eax
  mov    %eax,-0x94(%rbp)
  subl   $0x1,-0xa0(%rbp)
L790:
  cmpl   $0x0,-0xa0(%rbp)
  jns    L387
  movsd  -0x38(%rbp),%xmm0
  mulsd  -0x68(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0xb0(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x80(%rbp)
  mov    -0xac(%rbp),%eax
  mov    %eax,-0xa0(%rbp)
  jmp    L612
L241:
  mov    -0x80(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x9c(%rbp)
  jmp    L29
L541:
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x9c(%rbp)
L29:
  mov    -0x9c(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L541
  addl   $0x1,-0xa0(%rbp)
L612:
  mov    -0xa0(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L241
  mov    -0xb0(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x98(%rbp)
  jmp    L743
L174:
  movl   $0x0,-0x8c(%rbp)
L791:
  addl   $0x1,-0x8c(%rbp)
  cmpl   $0x32,-0x8c(%rbp)
  jle    L252
  lea    D43(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  mov    $0xf,%eax
  jmp    L300
L252:
  movl   $0x1,-0x90(%rbp)
  mov    -0x98(%rbp),%eax
  mov    %eax,-0x94(%rbp)
  jmp    L264
L157:
  mov    -0x94(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D135(%rip),%xmm1
  andpd  %xmm0,%xmm1
  movsd  -0x38(%rbp),%xmm0
  comisd %xmm1,%xmm0
  jb     L40
  movl   $0x0,-0x90(%rbp)
  jmp    L244
L40:
  mov    -0x94(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D135(%rip),%xmm1
  andpd  %xmm0,%xmm1
  movsd  -0x38(%rbp),%xmm0
  comisd %xmm1,%xmm0
  jae    L789
  subl   $0x1,-0x94(%rbp)
L264:
  cmpl   $0x0,-0x94(%rbp)
  jns    L157
  jmp    L244
L789:
  nop
L244:
  cmpl   $0x0,-0x90(%rbp)
  je     L765
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  D137(%rip),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0x94(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x7c(%rbp)
  mov    -0x94(%rbp),%eax
  mov    %eax,-0xa0(%rbp)
  jmp    L268
L703:
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  -0x60(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  mulsd  -0x48(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x50(%rbp),%xmm0
  movq   D135(%rip),%xmm1
  andpd  %xmm0,%xmm1
  movsd  -0x38(%rbp),%xmm0
  comisd %xmm1,%xmm0
  jae    L353
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  lea    (%rdx,%rax,1),%rbx
  movsd  -0x70(%rbp),%xmm0
  mov    -0x50(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <hypot@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  movsd  (%rbx),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x70(%rbp),%xmm0
  divsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movq   D26(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  divsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0x80(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x9c(%rbp)
  jmp    L358
L443:
  mov    -0x7c(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x20(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x48(%rbp),%xmm1
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x60(%rbp),%xmm0
  mov    -0x7c(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x48(%rbp),%xmm0
  movsd  -0x20(%rbp),%xmm1
  mulsd  -0x60(%rbp),%xmm1
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x9c(%rbp)
L358:
  mov    -0x9c(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L443
  addl   $0x1,-0xa0(%rbp)
L268:
  mov    -0xa0(%rbp),%eax
  cmp    -0x98(%rbp),%eax
  jle    L703
  jmp    L765
L353:
  nop
L765:
  mov    -0x98(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  mov    -0x94(%rbp),%eax
  cmp    -0x98(%rbp),%eax
  je     L9
  mov    -0x94(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x68(%rbp)
  mov    -0x98(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x98(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  mov    -0x98(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x70(%rbp),%xmm0
  addsd  -0x18(%rbp),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x28(%rbp),%xmm1
  movsd  -0x70(%rbp),%xmm0
  subsd  -0x18(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  -0x20(%rbp),%xmm0
  divsd  -0x28(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  -0x28(%rbp),%xmm1
  movapd %xmm1,%xmm2
  divsd  -0x20(%rbp),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  D132(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  D137(%rip),%xmm0
  mov    -0x50(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <hypot@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x70(%rbp)
  pxor   %xmm0,%xmm0
  comisd -0x50(%rbp),%xmm0
  jbe    L507
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  jmp    L159
L507:
  movsd  -0x50(%rbp),%xmm0
  addsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,-0x58(%rbp)
L159:
  movsd  -0x18(%rbp),%xmm0
  divsd  -0x68(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  -0x18(%rbp),%xmm2
  movsd  -0x68(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  -0x28(%rbp),%xmm0
  movapd %xmm0,%xmm2
  divsd  -0x68(%rbp),%xmm2
  movsd  -0x20(%rbp),%xmm0
  divsd  -0x58(%rbp),%xmm0
  subsd  -0x28(%rbp),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  D137(%rip),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  movsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    -0x94(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0xa0(%rbp)
  jmp    L395
L253:
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  mov    -0xa0(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x60(%rbp),%xmm0
  mulsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x70(%rbp),%xmm0
  mulsd  -0x48(%rbp),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  movsd  -0x28(%rbp),%xmm0
  mov    -0x50(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <hypot@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x18(%rbp)
  mov    -0xa0(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x50(%rbp),%xmm0
  divsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x28(%rbp),%xmm0
  divsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  movsd  -0x68(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x48(%rbp),%xmm1
  movsd  -0x70(%rbp),%xmm0
  mulsd  -0x60(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x70(%rbp),%xmm0
  mulsd  -0x48(%rbp),%xmm0
  movsd  -0x68(%rbp),%xmm1
  mulsd  -0x60(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x70(%rbp)
  movsd  -0x20(%rbp),%xmm0
  mulsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x20(%rbp),%xmm0
  mulsd  -0x48(%rbp),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movl   $0x0,-0x9c(%rbp)
  jmp    L1
L254:
  mov    -0x9c(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x68(%rbp)
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x68(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x48(%rbp),%xmm1
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x60(%rbp),%xmm0
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x48(%rbp),%xmm0
  movsd  -0x68(%rbp),%xmm1
  mulsd  -0x60(%rbp),%xmm1
  mov    -0x78(%rbp),%edx
  mov    -0xa0(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x9c(%rbp)
L1:
  mov    -0x9c(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L254
  movsd  -0x28(%rbp),%xmm0
  mov    -0x50(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <hypot@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x18(%rbp)
  mov    -0xa0(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  pxor   %xmm0,%xmm0
  ucomisd -0x18(%rbp),%xmm0
  jp     L477
  pxor   %xmm0,%xmm0
  ucomisd -0x18(%rbp),%xmm0
  je     L122
L477:
  movsd  -0x50(%rbp),%xmm0
  divsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x28(%rbp),%xmm0
  divsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,-0x60(%rbp)
L122:
  movsd  -0x48(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x70(%rbp),%xmm1
  movsd  -0x60(%rbp),%xmm0
  mulsd  -0x20(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x48(%rbp),%xmm0
  mulsd  -0x20(%rbp),%xmm0
  movsd  -0x60(%rbp),%xmm1
  mulsd  -0x70(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x68(%rbp)
  mov    -0x80(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x9c(%rbp)
  jmp    L750
L205:
  mov    -0xa0(%rbp),%eax
  sub    $0x1,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x20(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x48(%rbp),%xmm1
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x60(%rbp),%xmm0
  mov    -0xa0(%rbp),%eax
  sub    $0x1,%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x18(%rbp),%xmm0
  mulsd  -0x48(%rbp),%xmm0
  movsd  -0x20(%rbp),%xmm1
  mulsd  -0x60(%rbp),%xmm1
  mov    -0xa0(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,%edx
  mov    -0x9c(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x9c(%rbp)
L750:
  mov    -0x9c(%rbp),%eax
  cmp    -0x84(%rbp),%eax
  jl     L205
  addl   $0x1,-0xa0(%rbp)
L395:
  mov    -0xa0(%rbp),%eax
  cmp    -0x98(%rbp),%eax
  jle    L253
  mov    -0x94(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x98(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x50(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x98(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x68(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  jmp    L791
L9:
  pxor   %xmm0,%xmm0
  comisd -0x18(%rbp),%xmm0
  ja     L588
  jmp    L116
L588:
  mov    -0x98(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xc0(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x18(%rbp),%xmm0
  movq   D26(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  movl   $0x0,-0x9c(%rbp)
  jmp    L326
L3:
  mov    -0x9c(%rbp),%eax
  imul   -0x84(%rbp),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x78(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x78(%rbp),%edx
  mov    -0x98(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  movq   D26(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x9c(%rbp)
L326:
  mov    -0x9c(%rbp),%eax
  cmp    -0xb0(%rbp),%eax
  jl     L3
L116:
  subl   $0x1,-0x98(%rbp)
L743:
  cmpl   $0x0,-0x98(%rbp)
  jns    L174
  mov    -0x40(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0x88(%rbp),%eax
L300:
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

tool_calls: name: extract_symbolic_data
arguments: label: D26
data_type: f32[2]
name: extract_symbolic_data
arguments: label: D135
data_type: qword
name: extract_symbolic_data
arguments: label: D137
data_type: f64
name: extract_symbolic_data
arguments: label: D43
data_type: string
name: extract_symbolic_data
arguments: label: D132
data_type: f64

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

tool: D135: 9223372036854775807

tool: D137: 1

tool: D43: Convergence Not Achieved 

tool: D132: 0.5

assistant: ```c
int minfit(double *AB, int M, int N, int P, double *q) {
  int i, j, k, l, t, t2, ierr, cancel, iter, l1, np, n1;
  double eps, g, x, s, temp, f, h, tol, c, y, z;
  double *e;
  e = (double *)malloc(sizeof(double) * N);
  ierr = 0;
  eps = macheps();
  tol = eps * eps;
  g = x = 0.0;
  np = N + P;
  for (i = 0; i < N; ++i) {
    l = i + 1;
    e[i] = g;
    s = 0.0;
    for (k = i; k < M; ++k) {
      t = k * np;
      temp = AB[t + i];
      s += temp * temp;
    }
    if (s < tol) {
      g = 0.0;
    } else {
      f = AB[i * np + i];
      g = (f < 0) ? sqrt(s) : -sqrt(s);
      h = f * g - s;
      AB[i * np + i] = f - g;
      for (j = l; j < np; ++j) {
        s = 0.0;
        for (k = i; k < M; ++k) {
          t = k * np;
          s += (AB[t + i] * AB[t + j]);
        }
        f = s / h;
        for (k = i; k < M; ++k) {
          t = k * np;
          AB[t + j] += (f * AB[t + i]);
        }
      }
    }
    q[i] = g;
    s = 0.0;
    t = i * np;
    if (i < M) {
      for (k = l; k < N; ++k) {
        temp = AB[t + k];
        s = s + temp * temp;
      }
    }
    if (s < tol) {
      g = 0.0;
    } else {
      f = AB[t + i + 1];
      g = (f < 0) ? sqrt(s) : -sqrt(s);
      h = f * g - s;
      AB[t + i + 1] = f - g;
      for (k = l; k < N; ++k) {
        e[k] = AB[t + k] / h;
      }
      for (j = l; j < M; j++) {
        s = 0.0;
        t2 = j * np;
        for (k = l; k < N; k++) {
          s += AB[t2 + k] * AB[t + k];
        }
        for (k = l; k < N; k++) {
          AB[t2 + k] += s * e[k];
        }
      }
    }
    temp = fabs(q[i]) + fabs(e[i]);
    if (x < temp) {
      x = temp;
    }
  }
  for (i = N - 1; i >= 0; --i) {
    t = i * np;
    if (g != 0.0) {
      h = AB[t + i + 1] * g;
      for (j = l; j < N; ++j) {
        AB[j * np + i] = AB[t + j] / h;
      }
      for (j = l; j < N; ++j) {
        s = 0.0;
        for (k = l; k < N; ++k) {
          s += AB[t + k] * AB[k * np + j];
        }
        for (k = l; k < N; ++k) {
          AB[k * np + j] += (s * AB[k * np + i]);
        }
      }
    }
    for (j = l; j < N; ++j) {
      AB[t + j] = AB[j * np + i] = 0.0;
    }
    AB[t + i] = 1.0;
    g = e[i];
    l = i;
  }
  eps = eps * x;
  n1 = N + 1;
  for (i = M; i < N; ++i) {
    for (j = n1 - 1; j < np; ++j) {
      AB[i * np + j] = 0.0;
    }
  }
  for (k = N - 1; k >= 0; --k) {
    iter = 0;
    while (1) {
      iter++;
      if (iter > 50) {
        printf("Convergence Not Achieved \n");
        return 15;
      }
      cancel = 1;
      for (l = k; l >= 0; --l) {
        if (fabs(e[l]) <= eps) {
          cancel = 0;
          break;
        }
        if (fabs(q[l - 1]) <= eps) {
          break;
        }
      }
      if (cancel) {
        c = 0.0;
        s = 1.0;
        l1 = l - 1;
        for (i = l; i <= k; ++i) {
          f = s * e[i];
          e[i] *= c;
          if (fabs(f) <= eps) {
            break;
          }
          g = q[i];
          h = q[i] = hypot(f, g);
          c = g / h;
          s = -f / h;
          for (j = n1 - 1; j < np; ++j) {
            y = AB[l1 * np + j];
            z = AB[i * np + j];
            AB[l1 * np + j] = y * c + z * s;
            AB[i * np + j] = z * c - y * s;
          }
        }
      }
      z = q[k];
      if (l != k) {
        x = q[l];
        y = q[k - 1];
        g = e[k - 1];
        h = e[k];
        f = 0.5 * (((g + z) / h) * ((g - z) / y) + y / h - h / y);
        g = hypot(f, 1.0);
        if (f < 0.0) {
          temp = f - g;
        } else {
          temp = f + g;
        }
        f = x - (z / x) * z + (h / x) * (y / temp - h);
        c = s = 1.0;
        for (i = l + 1; i <= k; ++i) {
          g = e[i];
          y = q[i];
          h = s * g;
          g = c * g;
          e[i - 1] = z = hypot(f, h);
          c = f / z;
          s = h / z;
          f = x * c + g * s;
          g = g * c - x * s;
          h = y * s;
          y *= c;
          for (j = 0; j < N; ++j) {
            t = j * np;
            x = AB[t + i - 1];
            z = AB[t + i];
            AB[t + i - 1] = x * c + z * s;
            AB[t + i] = z * c - x * s;
          }
          q[i - 1] = z = hypot(f, h);
          if (z != 0.0) {
            c = f / z;
            s = h / z;
          }
          f = c * g + s * y;
          x = c * y - s * g;
          for (j = n1 - 1; j < np; ++j) {
            y = AB[(i - 1) * np + j];
            z = AB[i * np + j];
            AB[(i - 1) * np + j] = y * c + z * s;
            AB[i * np + j] = z * c - y * s;
          }
        }
        e[l] = 0.0;
        e[k] = f;
        q[k] = x;
      } else {
        if (z < 0.0) {
          q[k] = -z;
          for (j = 0; j < N; j++) {
            t = j * np;
            AB[t + k] = -AB[t + k];
          }
        }
        break;
      }
    }
  }
  free(e);
  return ierr;
}
```