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

```asm
<main>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xb8,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0xa8(%rsp)
  xor    %eax,%eax
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <ivector@plt>
  mov    %rax,0x20(%rsp)
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <ivector@plt>
  mov    %rax,0x10(%rsp)
  mov    $0x14,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <matrix@plt>
  mov    %rax,0x18(%rsp)
  mov    $0x14,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <matrix@plt>
  mov    %rax,0x28(%rsp)
  mov    $0x14,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <matrix@plt>
  mov    %rax,%rbx
  mov    $0x14,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  call   <matrix@plt>
  mov    %rax,%r15
  lea    D77(%rip),%rsi
  lea    D164(%rip),%rdi
  call   <fopen@plt>
  mov    %rax,0x8(%rsp)
  test   %rax,%rax
  jne    L239
  lea    D160(%rip),%rdi
  call   <nrerror@plt>
  jmp    L239
L3:
  mov    %rbp,%rdx
  add    0x0(%r13),%rdx
  mov    %r14,%rsi
  mov    %r12,%rdi
  mov    $0x0,%eax
  call   <fscanf@plt>
  add    $0x1,%ebx
  add    $0x4,%rbp
  cmp    %ebx,0x48(%rsp)
  jge    L3
L213:
  add    $0x1,%r15d
  add    $0x8,%r13
  cmp    %r15d,0x48(%rsp)
  jl     L288
L455:
  mov    $0x4,%ebp
  mov    $0x1,%ebx
  cmpl   $0x0,0x48(%rsp)
  jg     L3
  jmp    L213
L288:
  mov    0x30(%rsp),%rbx
  mov    0x38(%rsp),%r15
L55:
  lea    0x50(%rsp),%rdi
  mov    0x8(%rsp),%rdx
  mov    $0x50,%esi
  call   <fgets@plt>
  mov    $0x4,%r12d
  mov    $0x1,%r14d
  lea    D88(%rip),%r13
  cmpl   $0x0,0x44(%rsp)
  jle    L215
  mov    %rbx,0x30(%rsp)
  mov    0x8(%rsp),%rbp
  jmp    L556
L192:
  mov    %r12,%rdx
  add    (%r15,%rbx,8),%rdx
  mov    %r13,%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fscanf@plt>
  add    $0x1,%rbx
  cmp    %ebx,0x48(%rsp)
  jge    L192
L179:
  add    $0x1,%r14d
  add    $0x4,%r12
  cmp    %r14d,0x44(%rsp)
  jl     L6
L556:
  mov    $0x1,%ebx
  cmpl   $0x0,0x48(%rsp)
  jg     L192
  jmp    L179
L6:
  mov    0x30(%rsp),%rbx
L215:
  lea    D13(%rip),%rdi
  call   <puts@plt>
  mov    0x48(%rsp),%esi
  test   %esi,%esi
  jle    L286
  mov    0x18(%rsp),%rax
  lea    0x8(%rax),%r12
  mov    $0x1,%r14d
  lea    D15(%rip),%r13
  jmp    L459
L478:
  lea    0x1(%rax),%rbp
  mov    (%r12),%rdx
  pxor   %xmm0,%xmm0
  cvtss2sd 0x4(%rdx,%rax,4),%xmm0
  mov    %r13,%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    %rbp,%rax
  add    $0x1,%ebp
  cmp    %ebp,0x48(%rsp)
  jge    L478
L282:
  mov    $0xa,%edi
  call   <putchar@plt>
  add    $0x1,%r14d
  mov    0x48(%rsp),%esi
  add    $0x8,%r12
  cmp    %r14d,%esi
  jl     L286
L459:
  mov    $0x0,%eax
  cmpl   $0x0,0x48(%rsp)
  jg     L478
  jmp    L282
L286:
  lea    0x4c(%rsp),%rcx
  mov    0x20(%rsp),%rdx
  mov    0x18(%rsp),%r14
  mov    %r14,%rdi
  call   <ludcmp@plt>
  cmpl   $0x0,0x48(%rsp)
  jle    L165
  lea    0x8(%r14),%r8
  lea    0x8(%rbx),%rdi
  mov    0x28(%rsp),%rax
  lea    0x8(%rax),%r9
  mov    %r9,%rsi
  mov    $0x1,%ecx
  jmp    L144
L318:
  jge    L396
  lea    0x1(%rax),%rdx
  mov    (%rdi),%r10
  movl   $0x0,(%r10,%rdx,4)
  mov    (%r8),%r10
  movss  (%r10,%rdx,4),%xmm0
  mov    (%rsi),%r10
  movss  %xmm0,(%r10,%rdx,4)
L278:
  add    $0x1,%rax
  lea    0x1(%rax),%edx
  cmp    %edx,0x48(%rsp)
  jl     L150
L600:
  lea    0x1(%rax),%edx
  cmp    %ecx,%edx
  jle    L318
  lea    0x1(%rax),%rdx
  mov    (%r8),%r10
  movss  (%r10,%rdx,4),%xmm0
  mov    (%rdi),%r10
  movss  %xmm0,(%r10,%rdx,4)
  mov    (%rsi),%r10
  movl   $0x0,(%r10,%rdx,4)
  jmp    L278
L396:
  lea    0x1(%rax),%rdx
  mov    (%r8),%r10
  movss  (%r10,%rdx,4),%xmm0
  mov    (%rdi),%r10
  movss  %xmm0,(%r10,%rdx,4)
  mov    (%rsi),%r10
  movss  D5(%rip),%xmm1
  movss  %xmm1,(%r10,%rdx,4)
  jmp    L278
L150:
  add    $0x1,%ecx
  mov    0x48(%rsp),%eax
  add    $0x8,%r8
  add    $0x8,%rdi
  add    $0x8,%rsi
  cmp    %ecx,%eax
  jl     L312
L144:
  mov    $0x0,%eax
  cmpl   $0x0,0x48(%rsp)
  jg     L600
  jmp    L150
L312:
  test   %eax,%eax
  jle    L165
  lea    0x8(%r15),%r11
  mov    $0x1,%ebp
  mov    0x10(%rsp),%r10
L298:
  mov    %ebp,(%r10,%rbp,4)
  cmpl   $0x0,0x48(%rsp)
  jle    L496
  mov    $0x4,%ecx
  mov    $0x1,%r8d
L491:
  mov    %r11,%rdi
  mov    (%r11),%rax
  movl   $0x0,(%rax,%rcx,1)
  cmpl   $0x0,0x48(%rsp)
  jle    L588
  mov    $0x1,%eax
L349:
  mov    %rcx,%rdx
  add    (%rdi),%rdx
  mov    (%r9),%r12
  mov    (%rbx,%rax,8),%rsi
  movss  (%r12,%rax,4),%xmm0
  mulss  (%rsi,%rcx,1),%xmm0
  addss  (%rdx),%xmm0
  movss  %xmm0,(%rdx)
  add    $0x1,%rax
  cmp    %eax,0x48(%rsp)
  jge    L349
L588:
  add    $0x1,%r8d
  add    $0x4,%rcx
  cmp    %r8d,0x48(%rsp)
  jge    L491
L496:
  add    $0x1,%rbp
  add    $0x8,%r11
  add    $0x8,%r9
  cmp    %ebp,0x48(%rsp)
  jge    L298
L165:
  lea    D68(%rip),%rdx
  lea    D8(%rip),%rsi
  lea    D189(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  cmpl   $0x0,0x48(%rsp)
  jle    L515
  mov    $0x1,%eax
  mov    0x20(%rsp),%r8
  mov    0x10(%rsp),%rcx
L56:
  movslq (%r8,%rax,4),%rdx
  lea    (%rcx,%rdx,4),%rdx
  mov    (%rdx),%esi
  mov    (%rcx,%rax,4),%edi
  mov    %edi,(%rdx)
  mov    %esi,(%rcx,%rax,4)
  mov    0x48(%rsp),%edx
  add    $0x1,%rax
  cmp    %eax,%edx
  jge    L56
  test   %edx,%edx
  jle    L515
  mov    $0x1,%r13d
  lea    D15(%rip),%r14
  mov    0x10(%rsp),%r12
  mov    %rbx,0x30(%rsp)
  jmp    L575
L145:
  mov    $0xa,%edi
  call   <putchar@plt>
L585:
  add    $0x1,%rbp
  cmp    %ebp,0x48(%rsp)
  jl     L158
L182:
  cmp    %r13d,(%r12,%rbp,4)
  jne    L585
  cmpl   $0x0,0x48(%rsp)
  jle    L145
  mov    $0x0,%eax
L204:
  lea    0x1(%rax),%rbx
  mov    (%r15,%rbp,8),%rdx
  pxor   %xmm0,%xmm0
  cvtss2sd 0x4(%rdx,%rax,4),%xmm0
  mov    %r14,%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    %rbx,%rax
  add    $0x1,%ebx
  cmp    %ebx,0x48(%rsp)
  jge    L204
  jmp    L145
L158:
  add    $0x1,%r13d
  cmp    %r13d,0x48(%rsp)
  jl     L113
L575:
  mov    $0x1,%ebp
  cmpl   $0x0,0x48(%rsp)
  jg     L182
  jmp    L158
L113:
  mov    0x30(%rsp),%rbx
L515:
  lea    D183(%rip),%rdi
  call   <puts@plt>
  cmpl   $0x0,0x48(%rsp)
  jle    L379
  mov    0x28(%rsp),%rax
  lea    0x8(%rax),%r12
  mov    $0x1,%r14d
  lea    D15(%rip),%r13
  jmp    L367
L307:
  lea    0x1(%rax),%rbp
  mov    (%r12),%rdx
  pxor   %xmm0,%xmm0
  cvtss2sd 0x4(%rdx,%rax,4),%xmm0
  mov    %r13,%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    %rbp,%rax
  add    $0x1,%ebp
  cmp    %ebp,0x48(%rsp)
  jge    L307
L323:
  mov    $0xa,%edi
  call   <putchar@plt>
  add    $0x1,%r14d
  add    $0x8,%r12
  cmp    %r14d,0x48(%rsp)
  jl     L379
L367:
  mov    $0x0,%eax
  cmpl   $0x0,0x48(%rsp)
  jg     L307
  jmp    L323
L379:
  lea    D138(%rip),%rdi
  call   <puts@plt>
  cmpl   $0x0,0x48(%rsp)
  jle    L477
  lea    0x8(%rbx),%r12
  mov    $0x1,%r14d
  lea    D15(%rip),%r13
  jmp    L221
L277:
  lea    0x1(%rax),%rbp
  mov    (%r12),%rdx
  pxor   %xmm0,%xmm0
  cvtss2sd 0x4(%rdx,%rax,4),%xmm0
  mov    %r13,%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  mov    %rbp,%rax
  add    $0x1,%ebp
  cmp    %ebp,0x48(%rsp)
  jge    L277
L524:
  mov    $0xa,%edi
  call   <putchar@plt>
  add    $0x1,%r14d
  add    $0x8,%r12
  cmp    %r14d,0x48(%rsp)
  jl     L477
L221:
  mov    $0x0,%eax
  cmpl   $0x0,0x48(%rsp)
  jg     L277
  jmp    L524
L477:
  lea    D146(%rip),%rdi
  call   <puts@plt>
  lea    D182(%rip),%rdi
  call   <puts@plt>
  mov    $0x0,%eax
  call   <getchar@plt>
L239:
  mov    0x8(%rsp),%rdi
  call   <feof@plt>
  test   %eax,%eax
  jne    L522
  lea    0x50(%rsp),%rbp
  mov    0x8(%rsp),%r12
  mov    %r12,%rdx
  mov    $0x50,%esi
  mov    %rbp,%rdi
  call   <fgets@plt>
  mov    %r12,%rdx
  mov    $0x50,%esi
  mov    %rbp,%rdi
  call   <fgets@plt>
  lea    0x44(%rsp),%rcx
  lea    0x48(%rsp),%rdx
  lea    D64(%rip),%rsi
  mov    %r12,%rdi
  mov    $0x0,%eax
  call   <fscanf@plt>
  mov    %r12,%rdx
  mov    $0x50,%esi
  mov    %rbp,%rdi
  call   <fgets@plt>
  cmpl   $0x0,0x48(%rsp)
  jle    L55
  mov    0x18(%rsp),%rax
  lea    0x8(%rax),%r13
  mov    $0x1,%eax
  lea    D88(%rip),%r14
  mov    %rbx,0x30(%rsp)
  mov    %r15,0x38(%rsp)
  mov    %eax,%r15d
  jmp    L455
L522:
  mov    0x8(%rsp),%rdi
  call   <fclose@plt>
  mov    $0x14,%r8d
  mov    $0x1,%ecx
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    %r15,%rdi
  call   <free_matrix@plt>
  mov    $0x14,%r8d
  mov    $0x1,%ecx
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    %rbx,%rdi
  call   <free_matrix@plt>
  mov    $0x14,%r8d
  mov    $0x1,%ecx
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    0x28(%rsp),%rdi
  call   <free_matrix@plt>
  mov    $0x14,%r8d
  mov    $0x1,%ecx
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    0x18(%rsp),%rdi
  call   <free_matrix@plt>
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    0x10(%rsp),%rdi
  call   <free_ivector@plt>
  mov    $0x14,%edx
  mov    $0x1,%esi
  mov    0x20(%rsp),%rdi
  call   <free_ivector@plt>
  mov    0xa8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L406
  mov    $0x0,%eax
  add    $0xb8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L406:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_label: D77
type_infered: string
name: unpack_data
arguments: data_label: D164
type_infered: string
name: unpack_data
arguments: data_label: D160
type_infered: string
name: unpack_data
arguments: data_label: D88
type_infered: string
name: unpack_data
arguments: data_label: D13
type_infered: string
name: unpack_data
arguments: data_label: D15
type_infered: string
name: unpack_data
arguments: data_label: D5
type_infered: f32
name: unpack_data
arguments: data_label: D68
type_infered: string
name: unpack_data
arguments: data_label: D8
type_infered: string
name: unpack_data
arguments: data_label: D189
type_infered: string
name: unpack_data
arguments: data_label: D183
type_infered: string
name: unpack_data
arguments: data_label: D138
type_infered: string
name: unpack_data
arguments: data_label: D146
type_infered: string
name: unpack_data
arguments: data_label: D182
type_infered: string
name: unpack_data
arguments: data_label: D64
type_infered: string

tool: D77: r

tool: D164: matrx1.dat

tool: D160: Data file matrx1.dat not found


tool: D88: %f 

tool: D13: original matrix:

tool: D15: %12.6f

tool: D5: 1

tool: D68: matrices (rows unscrambled):

tool: D8: product of lower and upper 

tool: D189: 
%s%s


tool: D183: 
lower matrix of the decomposition:

tool: D138: 
upper matrix of the decomposition:

tool: D146: 
***********************************

tool: D182: press return for next problem:

tool: D64: %d %d 

assistant: ```c
int main(void) {
  int j, k, l, m, n, dum, *indx, *jndx;
  float d, **a, **xl, **xu, **x;
  char dummy[80];
  FILE *fp;
  indx = ivector(1, 20);
  jndx = ivector(1, 20);
  a = matrix(1, 20, 1, 20);
  xl = matrix(1, 20, 1, 20);
  xu = matrix(1, 20, 1, 20);
  x = matrix(1, 20, 1, 20);
  if ((fp = fopen("matrx1.dat", "r")) == NULL)
    nrerror("Data file matrx1.dat not found\n");
  while (!feof(fp)) {
    fgets(dummy, 80, fp);
    fgets(dummy, 80, fp);
    fscanf(fp, "%d %d ", &n, &m);
    fgets(dummy, 80, fp);
    for (k = 1; k <= n; k++)
      for (l = 1; l <= n; l++)
        fscanf(fp, "%f ", &a[k][l]);
    fgets(dummy, 80, fp);
    for (l = 1; l <= m; l++)
      for (k = 1; k <= n; k++)
        fscanf(fp, "%f ", &x[k][l]);
    printf("original matrix:\n");
    for (k = 1; k <= n; k++) {
      for (l = 1; l <= n; l++)
        printf("%12.6f", a[k][l]);
      printf("\n");
    }
    ludcmp(a, n, indx, &d);
    for (k = 1; k <= n; k++) {
      for (l = 1; l <= n; l++) {
        if (l > k) {
          xu[k][l] = a[k][l];
          xl[k][l] = 0.0;
        } else if (l < k) {
          xu[k][l] = 0.0;
          xl[k][l] = a[k][l];
        } else {
          xu[k][l] = a[k][l];
          xl[k][l] = 1.0;
        }
      }
    }
    for (k = 1; k <= n; k++) {
      jndx[k] = k;
      for (l = 1; l <= n; l++) {
        x[k][l] = 0.0;
        for (j = 1; j <= n; j++)
          x[k][l] += (xl[k][j] * xu[j][l]);
      }
    }
    printf("\n%s%s\n", "product of lower and upper ", "matrices (rows unscrambled):");
    for (k = 1; k <= n; k++) {
      dum = jndx[indx[k]];
      jndx[indx[k]] = jndx[k];
      jndx[k] = dum;
    }
    for (k = 1; k <= n; k++)
      for (j = 1; j <= n; j++)
        if (jndx[j] == k) {
          for (l = 1; l <= n; l++)
            printf("%12.6f", x[j][l]);
          printf("\n");
        }
    printf("\nlower matrix of the decomposition:\n");
    for (k = 1; k <= n; k++) {
      for (l = 1; l <= n; l++)
        printf("%12.6f", xl[k][l]);
      printf("\n");
    }
    printf("\nupper matrix of the decomposition:\n");
    for (k = 1; k <= n; k++) {
      for (l = 1; l <= n; l++)
        printf("%12.6f", xu[k][l]);
      printf("\n");
    }
    printf("\n***********************************\n");
    printf("press return for next problem:\n");
    (void)getchar();
  }
  fclose(fp);
  free_matrix(x, 1, 20, 1, 20);
  free_matrix(xu, 1, 20, 1, 20);
  free_matrix(xl, 1, 20, 1, 20);
  free_matrix(a, 1, 20, 1, 20);
  free_ivector(jndx, 1, 20);
  free_ivector(indx, 1, 20);
  return 0;
}
```