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

```asm
<lu_decomp>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  add    $0xffffffffffffff80,%rsp
  mov    %rdi,-0x68(%rbp)
  mov    %esi,-0x6c(%rbp)
  mov    %rdx,-0x78(%rbp)
  mov    %rcx,-0x80(%rbp)
  movl   $0xffffffff,-0x5c(%rbp)
  mov    -0x6c(%rbp),%eax
  mov    %eax,%edi
  call   <vec@plt>
  mov    %rax,-0x30(%rbp)
  mov    -0x30(%rbp),%rax
  mov    %rax,-0x38(%rbp)
  mov    -0x80(%rbp),%rax
  movsd  D61(%rip),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  mov    %rax,-0x48(%rbp)
  mov    -0x6c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    %rax,-0x28(%rbp)
  jmp    L107
L147:
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  mov    -0x48(%rbp),%rax
  mov    (%rax),%rax
  mov    %rax,-0x40(%rbp)
  mov    -0x6c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  mov    %rax,-0x10(%rbp)
  jmp    L95
L167:
  mov    -0x40(%rbp),%rax
  lea    0x8(%rax),%rdx
  mov    %rdx,-0x40(%rbp)
  movsd  (%rax),%xmm0
  movq   D67(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x8(%rbp),%xmm0
  comisd -0x50(%rbp),%xmm0
  ja     L195
  jmp    L95
L195:
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
L95:
  mov    -0x40(%rbp),%rax
  cmp    -0x10(%rbp),%rax
  jb     L167
  pxor   %xmm0,%xmm0
  ucomisd -0x50(%rbp),%xmm0
  jp     L39
  pxor   %xmm0,%xmm0
  ucomisd -0x50(%rbp),%xmm0
  jne    L39
  lea    D13(%rip),%rax
  mov    %rax,%rsi
  mov    $0xffffffff,%edi
  call   <int_error@plt>
L39:
  mov    -0x38(%rbp),%rax
  lea    0x8(%rax),%rdx
  mov    %rdx,-0x38(%rbp)
  movsd  D61(%rip),%xmm0
  divsd  -0x50(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addq   $0x8,-0x48(%rbp)
L107:
  mov    -0x48(%rbp),%rax
  cmp    -0x28(%rbp),%rax
  jb     L147
  mov    -0x68(%rbp),%rax
  mov    %rax,-0x48(%rbp)
  movl   $0x0,-0x58(%rbp)
  jmp    L23
L185:
  movl   $0x0,-0x60(%rbp)
  jmp    L200
L151:
  mov    -0x60(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x58(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  mov    %rax,-0x40(%rbp)
  movl   $0x0,-0x54(%rbp)
  jmp    L58
L169:
  mov    -0x40(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x60(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x54(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  mov    -0x54(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x58(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  %xmm2,%xmm1
  subsd  %xmm1,%xmm0
  mov    -0x40(%rbp),%rax
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x54(%rbp)
L58:
  mov    -0x54(%rbp),%eax
  cmp    -0x60(%rbp),%eax
  jl     L169
  addl   $0x1,-0x60(%rbp)
L200:
  mov    -0x60(%rbp),%eax
  cmp    -0x58(%rbp),%eax
  jl     L151
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  mov    -0x58(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  mov    %rax,-0x38(%rbp)
  mov    -0x58(%rbp),%eax
  mov    %eax,-0x60(%rbp)
  jmp    L176
L5:
  mov    -0x60(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x58(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  mov    %rax,-0x40(%rbp)
  movl   $0x0,-0x54(%rbp)
  jmp    L156
L53:
  mov    -0x40(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x60(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x54(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  mov    -0x54(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x58(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  %xmm2,%xmm1
  subsd  %xmm1,%xmm0
  mov    -0x40(%rbp),%rax
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x54(%rbp)
L156:
  mov    -0x54(%rbp),%eax
  cmp    -0x58(%rbp),%eax
  jl     L53
  mov    -0x38(%rbp),%rax
  lea    0x8(%rax),%rdx
  mov    %rdx,-0x38(%rbp)
  movsd  (%rax),%xmm1
  mov    -0x40(%rbp),%rax
  movsd  (%rax),%xmm0
  movq   D67(%rip),%xmm2
  andpd  %xmm2,%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x18(%rbp),%xmm0
  comisd -0x50(%rbp),%xmm0
  jb     L172
  movsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  mov    -0x60(%rbp),%eax
  mov    %eax,-0x5c(%rbp)
L172:
  addl   $0x1,-0x60(%rbp)
L176:
  mov    -0x60(%rbp),%eax
  cmp    -0x6c(%rbp),%eax
  jl     L5
  mov    -0x58(%rbp),%eax
  cmp    -0x5c(%rbp),%eax
  je     L29
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    %rax,-0x40(%rbp)
  mov    -0x48(%rbp),%rax
  mov    (%rax),%rax
  mov    %rax,-0x38(%rbp)
  movl   $0x0,-0x54(%rbp)
  jmp    L180
L55:
  mov    -0x40(%rbp),%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x38(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x40(%rbp),%rax
  movsd  %xmm0,(%rax)
  mov    -0x38(%rbp),%rax
  movsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x54(%rbp)
  addq   $0x8,-0x40(%rbp)
  addq   $0x8,-0x38(%rbp)
L180:
  mov    -0x54(%rbp),%eax
  cmp    -0x6c(%rbp),%eax
  jl     L55
  mov    -0x80(%rbp),%rax
  movsd  (%rax),%xmm0
  movq   D28(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mov    -0x80(%rbp),%rax
  movsd  %xmm0,(%rax)
  mov    -0x58(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rax,%rdx
  mov    -0x5c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x30(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
L29:
  mov    -0x58(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x78(%rbp),%rax
  add    %rax,%rdx
  mov    -0x5c(%rbp),%eax
  mov    %eax,(%rdx)
  mov    -0x48(%rbp),%rax
  mov    (%rax),%rdx
  mov    -0x58(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  mov    %rax,-0x38(%rbp)
  mov    -0x38(%rbp),%rax
  movsd  (%rax),%xmm0
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  jp     L207
  pxor   %xmm1,%xmm1
  ucomisd %xmm1,%xmm0
  jne    L207
  mov    -0x38(%rbp),%rax
  movsd  D63(%rip),%xmm0
  movsd  %xmm0,(%rax)
L207:
  mov    -0x6c(%rbp),%eax
  sub    $0x1,%eax
  cmp    %eax,-0x58(%rbp)
  je     L70
  mov    -0x48(%rbp),%rax
  mov    (%rax),%rdx
  mov    -0x58(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  movsd  D61(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  mov    -0x58(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x60(%rbp)
  jmp    L26
L19:
  mov    -0x60(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x58(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x60(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x58(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  mulsd  -0x18(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x60(%rbp)
L26:
  mov    -0x60(%rbp),%eax
  cmp    -0x6c(%rbp),%eax
  jl     L19
L70:
  addl   $0x1,-0x58(%rbp)
  addq   $0x8,-0x48(%rbp)
L23:
  mov    -0x58(%rbp),%eax
  cmp    -0x6c(%rbp),%eax
  jl     L185
  mov    -0x30(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  nop
  leave
  ret
```

tool_calls: name: parse_data
arguments: data_tag: D61
data_type: f64
name: parse_data
arguments: data_tag: D67
data_type: qword
name: parse_data
arguments: data_tag: D13
data_type: string
name: parse_data
arguments: data_tag: D28
data_type: f32[2]
name: parse_data
arguments: data_tag: D63
data_type: byte[8]

tool: D61: 1

tool: D67: 9223372036854775807

tool: D13: Singular matrix in LU-DECOMP

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

tool: {"D63": [0xa0,0xc2,0xeb,0xfe,0x4b,0x48,0xb4,0x39]}

assistant: ```c
void lu_decomp(double **a, int n, int *indx, double *d) {
  int i, imax = -1, j, k;
  double large, dummy, temp, **ar, **lim, *limc, *ac, *dp, *vscal;
  dp = vscal = vec(n);
  *d = 1.0;
  for (ar = a, lim = &(a[n]); ar < lim; ar++) {
    large = 0.0;
    for (ac = *ar, limc = &(ac[n]); ac < limc;)
      if ((temp = fabs(*ac++)) > large)
        large = temp;
    if (large == 0.0)
      int_error((-1), "Singular matrix in LU-DECOMP");
    *dp++ = 1 / large;
  }
  ar = a;
  for (j = 0; j < n; j++, ar++) {
    for (i = 0; i < j; i++) {
      ac = &(a[i][j]);
      for (k = 0; k < i; k++)
        *ac -= a[i][k] * a[k][j];
    }
    large = 0.0;
    dp = &(vscal[j]);
    for (i = j; i < n; i++) {
      ac = &(a[i][j]);
      for (k = 0; k < j; k++)
        *ac -= a[i][k] * a[k][j];
      if ((dummy = *dp++ * fabs(*ac)) >= large) {
        large = dummy;
        imax = i;
      }
    }
    if (j != imax) {
      ac = a[imax];
      dp = *ar;
      for (k = 0; k < n; k++, ac++, dp++) {
        double temp = (*ac);
        (*ac) = (*dp);
        (*dp) = temp;
      };
      *d = -(*d);
      vscal[imax] = vscal[j];
    }
    indx[j] = imax;
    if (*(dp = &(*ar)[j]) == 0)
      *dp = 1e-30;
    if (j != n - 1) {
      dummy = 1 / (*ar)[j];
      for (i = j + 1; i < n; i++)
        a[i][j] *= dummy;
    }
  }
  free(vscal);
}
```