user: Translate the below assembly code into C programming language:

```asm
<tqli>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  add    $0xffffffffffffff80,%rsp
  mov    %rdi,-0x68(%rbp)
  mov    %rsi,-0x70(%rbp)
  mov    %edx,-0x74(%rbp)
  mov    %ecx,-0x78(%rbp)
  mov    %r8,-0x80(%rbp)
  movl   $0x0,-0x54(%rbp)
  movl   $0x0,-0x50(%rbp)
  movl   $0x0,-0x4c(%rbp)
  movl   $0x0,-0x48(%rbp)
  movl   $0x0,-0x44(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movl   $0x2,-0x54(%rbp)
  jmp    L18
L83:
  mov    -0x54(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rax,%rdx
  mov    -0x54(%rbp),%eax
  sub    $0x1,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rcx
  mov    -0x70(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x54(%rbp)
L18:
  mov    -0x54(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jle    L83
  mov    -0x74(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  movl   $0x1,-0x48(%rbp)
  jmp    L16
L33:
  movl   $0x0,-0x50(%rbp)
L15:
  mov    -0x48(%rbp),%eax
  mov    %eax,-0x44(%rbp)
  jmp    L116
L26:
  mov    -0x44(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D15(%rip),%xmm1
  andpd  %xmm0,%xmm1
  mov    -0x44(%rbp),%eax
  add    $0x1,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D15(%rip),%xmm2
  andpd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  mov    -0x44(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D15(%rip),%xmm1
  andpd  %xmm1,%xmm0
  addsd  -0x18(%rbp),%xmm0
  ucomisd -0x18(%rbp),%xmm0
  jp     L73
  ucomisd -0x18(%rbp),%xmm0
  je     L79
L73:
  addl   $0x1,-0x44(%rbp)
L116:
  mov    -0x44(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jl     L26
  jmp    L68
L79:
  nop
L68:
  mov    -0x44(%rbp),%eax
  cmp    -0x48(%rbp),%eax
  je     L46
  cmpl   $0x1d,-0x50(%rbp)
  setle  %al
  movzbl %al,%eax
  mov    %eax,%edi
  call   <assert@plt>
  addl   $0x1,-0x50(%rbp)
  mov    -0x48(%rbp),%eax
  add    $0x1,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x48(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  mov    -0x48(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movapd %xmm0,%xmm2
  addsd  %xmm0,%xmm2
  divsd  %xmm2,%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D24(%rip),%xmm0
  mov    -0x38(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pythag@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x8(%rbp)
  mov    -0x44(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x48(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  movapd %xmm0,%xmm2
  subsd  %xmm1,%xmm2
  mov    -0x48(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  pxor   %xmm0,%xmm0
  comisd -0x38(%rbp),%xmm0
  jbe    L59
  movsd  -0x8(%rbp),%xmm0
  movq   D10(%rip),%xmm3
  xorpd  %xmm3,%xmm0
  jmp    L121
L59:
  movsd  -0x8(%rbp),%xmm0
L121:
  movapd %xmm0,%xmm3
  addsd  -0x38(%rbp),%xmm3
  divsd  %xmm3,%xmm1
  movapd %xmm1,%xmm0
  addsd  %xmm2,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D24(%rip),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  D24(%rip),%xmm0
  movsd  %xmm0,-0x40(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  mov    -0x44(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x54(%rbp)
  jmp    L102
L20:
  mov    -0x54(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  -0x28(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x54(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  -0x40(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x38(%rbp),%xmm0
  mov    -0x10(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pythag@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x8(%rbp)
  mov    -0x54(%rbp),%eax
  add    $0x1,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  pxor   %xmm0,%xmm0
  ucomisd -0x8(%rbp),%xmm0
  jp     L12
  pxor   %xmm0,%xmm0
  ucomisd -0x8(%rbp),%xmm0
  jne    L12
  mov    -0x54(%rbp),%eax
  add    $0x1,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x54(%rbp),%eax
  add    $0x1,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  subsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x44(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  jmp    L15
L12:
  movsd  -0x10(%rbp),%xmm0
  divsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x38(%rbp),%xmm0
  divsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x40(%rbp)
  mov    -0x54(%rbp),%eax
  add    $0x1,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  subsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0x54(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  subsd  -0x38(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x28(%rbp),%xmm1
  movsd  -0x40(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  mulsd  -0x20(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x28(%rbp),%xmm0
  mulsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  mov    -0x54(%rbp),%eax
  add    $0x1,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0x40(%rbp),%xmm0
  mulsd  -0x8(%rbp),%xmm0
  subsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movl   $0x1,-0x4c(%rbp)
  jmp    L84
L159:
  mov    -0x54(%rbp),%eax
  imul   -0x78(%rbp),%eax
  mov    %eax,%edx
  mov    -0x4c(%rbp),%eax
  sub    $0x1,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x54(%rbp),%eax
  sub    $0x1,%eax
  imul   -0x78(%rbp),%eax
  mov    %eax,%edx
  mov    -0x4c(%rbp),%eax
  sub    $0x1,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x28(%rbp),%xmm1
  movsd  -0x40(%rbp),%xmm0
  mulsd  -0x10(%rbp),%xmm0
  mov    -0x54(%rbp),%eax
  imul   -0x78(%rbp),%eax
  mov    %eax,%edx
  mov    -0x4c(%rbp),%eax
  sub    $0x1,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x54(%rbp),%eax
  sub    $0x1,%eax
  imul   -0x78(%rbp),%eax
  mov    %eax,%edx
  mov    -0x4c(%rbp),%eax
  sub    $0x1,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  -0x40(%rbp),%xmm0
  movsd  -0x28(%rbp),%xmm1
  mulsd  -0x10(%rbp),%xmm1
  mov    -0x54(%rbp),%eax
  sub    $0x1,%eax
  imul   -0x78(%rbp),%eax
  mov    %eax,%edx
  mov    -0x4c(%rbp),%eax
  sub    $0x1,%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x80(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x4c(%rbp)
L84:
  mov    -0x4c(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jle    L159
  subl   $0x1,-0x54(%rbp)
L102:
  mov    -0x54(%rbp),%eax
  cmp    -0x48(%rbp),%eax
  jge    L20
  mov    -0x48(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x48(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  subsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x48(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x44(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  jmp    L15
L46:
  addl   $0x1,-0x48(%rbp)
L16:
  mov    -0x48(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jle    L33
  nop
  leave
  ret
```

tool_calls: name: read_data
arguments: data_label: D15
type_guessed: qword
name: read_data
arguments: data_label: D24
type_guessed: f64
name: read_data
arguments: data_label: D10
type_guessed: f32[2]

tool: D15: 9223372036854775807

tool: D24: 1

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

assistant: ```c
void tqli(double *d, double *e, int n, int np, double *z) {
  int i = 0, iter = 0, k = 0, l = 0, m = 0;
  double b = 0, c = 0, dd = 0, f = 0, g = 0, p = 0, r = 0, s = 0;
  for (i = 2; i <= n; i++)
    e[i - 1 - 1] = e[i - 1];
  e[n - 1] = 0;
  for (l = 1; l <= n; l++) {
    iter = 0;
  labelExtra:
    for (m = l; (m < n); m++) {
      dd = fabs(d[m - 1]) + fabs(d[m + 1 - 1]);
      if (fabs(e[m - 1]) + dd == dd)
        break;
    }
    if (m != l) {
      assert(iter < 30);
      iter++;
      g = (d[l + 1 - 1] - d[l - 1]) / (2 * e[l - 1]);
      r = pythag(g, 1.);
      g = d[m - 1] - d[l - 1] + e[l - 1] / (g + (g < 0 ? -r : r));
      s = 1;
      c = 1;
      p = 0;
      for (i = m - 1; i >= l; i--) {
        f = s * e[i - 1];
        b = c * e[i - 1];
        r = pythag(f, g);
        e[i + 1 - 1] = r;
        if (r == 0) {
          d[i + 1 - 1] -= p;
          e[m - 1] = 0;
          goto labelExtra;
        }
        s = f / r;
        c = g / r;
        g = d[i + 1 - 1] - p;
        r = (d[i - 1] - g) * s + 2 * c * b;
        p = s * r;
        d[i + 1 - 1] = g + p;
        g = c * r - b;
        for (k = 1; k <= n; k++) {
          f = z[(i + 1 - 1) * np + (k - 1)];
          z[(i + 1 - 1) * np + (k - 1)] = s * z[(i - 1) * np + (k - 1)] + c * f;
          z[(i - 1) * np + (k - 1)] = c * z[(i - 1) * np + (k - 1)] - s * f;
        }
      }
      d[l - 1] -= p;
      e[l - 1] = g;
      e[m - 1] = 0;
      goto labelExtra;
    }
  }
  return;
}
```