user: 请将这段汇编代码片段转换成等效的C代码：

```asm
<main>:
  endbr64
  push   %r15
  mov    $0x14,%esi
  mov    $0x1,%edi
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xc8,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0xb8(%rsp)
  xor    %eax,%eax
  call   <ivector@plt>
  mov    $0x14,%esi
  mov    $0x1,%edi
  mov    %rax,0x28(%rsp)
  call   <ivector@plt>
  mov    $0x14,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  mov    %rax,0x18(%rsp)
  call   <matrix@plt>
  mov    $0x14,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  mov    %rax,0x8(%rsp)
  call   <matrix@plt>
  mov    $0x14,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  mov    %rax,0x20(%rsp)
  call   <matrix@plt>
  mov    $0x14,%ecx
  mov    $0x1,%edx
  mov    $0x14,%esi
  mov    $0x1,%edi
  mov    %rax,%rbp
  call   <matrix@plt>
  lea    D177(%rip),%rsi
  lea    D171(%rip),%rdi
  mov    %rax,0x30(%rsp)
  call   <fopen@plt>
  mov    %rax,%r12
  test   %rax,%rax
  je     L416
L77:
  mov    %r12,0x10(%rsp)
  mov    0x10(%rsp),%rdi
  mov    %rbp,%r12
  mov    0x30(%rsp),%r13
  call   <feof@plt>
  test   %eax,%eax
  jne    L306
L33:
  mov    0x10(%rsp),%rbp
  lea    0x60(%rsp),%rbx
  mov    $0x50,%esi
  mov    %rbx,%rdi
  mov    %rbx,0x38(%rsp)
  mov    %rbp,%rdx
  call   <fgets@plt>
  mov    %rbp,%rdx
  mov    $0x50,%esi
  mov    %rbx,%rdi
  call   <fgets@plt>
  lea    0x54(%rsp),%rcx
  mov    %rbp,%rdi
  xor    %eax,%eax
  lea    0x58(%rsp),%rdx
  lea    D109(%rip),%rsi
  call   <fscanf@plt>
  mov    %rbp,%rdx
  mov    $0x50,%esi
  mov    %rbx,%rdi
  call   <fgets@plt>
  mov    0x58(%rsp),%r8d
  test   %r8d,%r8d
  jle    L235
  mov    0x8(%rsp),%rax
  mov    %r12,0x40(%rsp)
  mov    $0x1,%r15d
  lea    D181(%rip),%rbx
  mov    %r13,0x48(%rsp)
  lea    0x8(%rax),%r14
  nopl   0x0(%rax,%rax,1)
L19:
  mov    $0x4,%r13d
  mov    $0x1,%r12d
  nopl   0x0(%rax)
L177:
  mov    (%r14),%rdx
  mov    %rbx,%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  add    $0x1,%r12d
  add    %r13,%rdx
  add    $0x4,%r13
  call   <fscanf@plt>
  mov    0x58(%rsp),%eax
  cmp    %r12d,%eax
  jge    L177
  add    $0x1,%r15d
  add    $0x8,%r14
  cmp    %r15d,%eax
  jge    L19
  mov    0x40(%rsp),%r12
  mov    0x48(%rsp),%r13
L235:
  mov    0x38(%rsp),%rdi
  mov    0x10(%rsp),%rdx
  mov    $0x50,%esi
  mov    $0x4,%r14d
  mov    $0x1,%r15d
  lea    D181(%rip),%rbx
  call   <fgets@plt>
  mov    0x54(%rsp),%edi
  test   %edi,%edi
  jle    L208
  mov    %r12,0x38(%rsp)
  mov    0x10(%rsp),%rbp
  nopl   0x0(%rax)
L163:
  mov    0x58(%rsp),%esi
  mov    $0x1,%r12d
  test   %esi,%esi
  jle    L167
  cs nopw 0x0(%rax,%rax,1)
L49:
  mov    0x0(%r13,%r12,8),%rdx
  mov    %rbx,%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  add    $0x1,%r12
  add    %r14,%rdx
  call   <fscanf@plt>
  cmp    %r12d,0x58(%rsp)
  jge    L49
L167:
  add    $0x1,%r15d
  add    $0x4,%r14
  cmp    %r15d,0x54(%rsp)
  jge    L163
  mov    0x38(%rsp),%r12
L208:
  lea    D49(%rip),%rdi
  call   <puts@plt>
  mov    0x58(%rsp),%esi
  test   %esi,%esi
  jle    L424
  mov    0x8(%rsp),%rax
  mov    $0x1,%ebp
  lea    D51(%rip),%rbx
  lea    0x8(%rax),%r15
  nopl   (%rax)
L409:
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L351:
  mov    (%r15),%rdx
  pxor   %xmm0,%xmm0
  lea    0x1(%rax),%r14
  mov    %rbx,%rdi
  cvtss2sd 0x4(%rdx,%rax,4),%xmm0
  mov    $0x1,%eax
  call   <printf@plt>
  mov    %r14,%rax
  lea    0x1(%r14),%edx
  cmp    %edx,0x58(%rsp)
  jge    L351
  mov    $0xa,%edi
  add    $0x1,%ebp
  add    $0x8,%r15
  call   <putchar@plt>
  mov    0x58(%rsp),%esi
  cmp    %ebp,%esi
  jge    L409
L424:
  mov    0x28(%rsp),%rdx
  mov    0x8(%rsp),%rdi
  lea    0x5c(%rsp),%rcx
  call   <ludcmp@plt>
  mov    0x58(%rsp),%ebp
  test   %ebp,%ebp
  jle    L29
  mov    0x8(%rsp),%rax
  lea    0x8(%r12),%r15
  add    $0x1,%ebp
  mov    $0x1,%r9d
  pxor   %xmm1,%xmm1
  lea    0x8(%rax),%r14
  mov    0x20(%rsp),%rax
  lea    0x8(%rax),%r8
L54:
  mov    (%r14),%r10
  mov    (%r15),%rdi
  mov    $0x4,%eax
  mov    $0x1,%edx
  mov    (%r8),%rsi
  jmp    L448
  nopl   (%rax)
L40:
  movss  (%rbx),%xmm0
  movss  %xmm0,(%r11)
  movaps %xmm1,%xmm0
L152:
  movss  %xmm0,(%rcx)
  lea    0x1(%rdx),%ecx
  add    $0x4,%rax
  cmp    %ecx,%ebp
  je     L347
L57:
  mov    %ecx,%edx
L448:
  lea    (%r10,%rax,1),%rbx
  lea    (%rdi,%rax,1),%r11
  lea    (%rsi,%rax,1),%rcx
  cmp    %r9d,%edx
  jg     L40
  jge    L18
  movl   $0x0,(%r11)
  movss  (%rbx),%xmm0
  add    $0x4,%rax
  movss  %xmm0,(%rcx)
  lea    0x1(%rdx),%ecx
  cmp    %ecx,%ebp
  jne    L57
L347:
  lea    0x1(%r9),%eax
  add    $0x8,%r14
  add    $0x8,%r15
  add    $0x8,%r8
  cmp    %r9d,%edx
  je     L313
  mov    %eax,%r9d
  jmp    L54
  nopl   0x0(%rax)
L18:
  movss  (%rbx),%xmm0
  movss  %xmm0,(%r11)
  movss  D118(%rip),%xmm0
  jmp    L152
L313:
  mov    0x18(%rsp),%r11
  mov    0x20(%rsp),%rbp
  mov    $0x1,%ebx
  pxor   %xmm2,%xmm2
  mov    $0x4,%r14d
  nopl   0x0(%rax)
L28:
  mov    %ebx,(%r11,%rbx,4)
  mov    0x58(%rsp),%r10d
  test   %r10d,%r10d
  jle    L29
  mov    0x0(%r13,%rbx,8),%rdx
  mov    %r10d,%eax
  mov    %r14,%r8
  mov    0x0(%rbp,%rbx,8),%rdi
  lea    0x1(%r10),%esi
  lea    (%rdx,%rax,4),%r9
  sub    %rdx,%r8
  nopl   0x0(%rax)
L391:
  movl   $0x0,0x4(%rdx)
  lea    (%r8,%rdx,1),%rcx
  mov    $0x1,%eax
  movaps %xmm2,%xmm1
  nopl   0x0(%rax,%rax,1)
L133:
  mov    (%r12,%rax,8),%r15
  movss  (%r15,%rcx,1),%xmm0
  mulss  (%rdi,%rax,4),%xmm0
  add    $0x1,%rax
  addss  %xmm0,%xmm1
  movss  %xmm1,0x4(%rdx)
  cmp    %rax,%rsi
  jne    L133
  add    $0x4,%rdx
  cmp    %rdx,%r9
  jne    L391
  add    $0x1,%rbx
  cmp    %ebx,%r10d
  jge    L28
L29:
  lea    D152(%rip),%rdx
  lea    D53(%rip),%rsi
  xor    %eax,%eax
  lea    D79(%rip),%rdi
  call   <printf@plt>
  mov    0x58(%rsp),%ecx
  mov    $0x1,%eax
  test   %ecx,%ecx
  jle    L183
  mov    0x28(%rsp),%r8
  mov    0x18(%rsp),%rcx
  nopw   0x0(%rax,%rax,1)
L408:
  movslq (%r8,%rax,4),%rdx
  mov    (%rcx,%rax,4),%edi
  lea    (%rcx,%rdx,4),%rdx
  mov    (%rdx),%esi
  mov    %edi,(%rdx)
  mov    %esi,(%rcx,%rax,4)
  mov    0x58(%rsp),%edx
  add    $0x1,%rax
  cmp    %eax,%edx
  jge    L408
  test   %edx,%edx
  jle    L183
  mov    %r12,0x38(%rsp)
  mov    0x18(%rsp),%rbp
  mov    $0x1,%r14d
  lea    D51(%rip),%r15
  nopl   (%rax)
L213:
  mov    $0x1,%r12d
  jmp    L312
L202:
  add    $0x1,%r12
  cmp    %r12d,%edx
  jl     L134
L312:
  cmp    %r14d,0x0(%rbp,%r12,4)
  jne    L202
  xor    %eax,%eax
  test   %edx,%edx
  jle    L293
  cs nopw 0x0(%rax,%rax,1)
L368:
  mov    0x0(%r13,%r12,8),%rdx
  pxor   %xmm0,%xmm0
  lea    0x1(%rax),%rbx
  mov    %r15,%rdi
  cvtss2sd 0x4(%rdx,%rax,4),%xmm0
  mov    $0x1,%eax
  call   <printf@plt>
  mov    %rbx,%rax
  lea    0x1(%rbx),%edx
  cmp    %edx,0x58(%rsp)
  jge    L368
L293:
  mov    $0xa,%edi
  add    $0x1,%r12
  call   <putchar@plt>
  mov    0x58(%rsp),%edx
  cmp    %r12d,%edx
  jge    L312
  nopl   0x0(%rax,%rax,1)
L134:
  add    $0x1,%r14d
  cmp    %edx,%r14d
  jg     L90
  test   %edx,%edx
  jg     L213
L90:
  mov    0x38(%rsp),%r12
L183:
  lea    D44(%rip),%rdi
  call   <puts@plt>
  mov    0x58(%rsp),%edx
  test   %edx,%edx
  jle    L228
  mov    0x20(%rsp),%rax
  mov    $0x1,%ebp
  lea    D51(%rip),%rbx
  lea    0x8(%rax),%r15
  nopl   0x0(%rax,%rax,1)
L126:
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L384:
  mov    (%r15),%rdx
  pxor   %xmm0,%xmm0
  lea    0x1(%rax),%r14
  mov    %rbx,%rdi
  cvtss2sd 0x4(%rdx,%rax,4),%xmm0
  mov    $0x1,%eax
  call   <printf@plt>
  mov    %r14,%rax
  lea    0x1(%r14),%edx
  cmp    %edx,0x58(%rsp)
  jge    L384
  mov    $0xa,%edi
  add    $0x1,%ebp
  add    $0x8,%r15
  call   <putchar@plt>
  cmp    %ebp,0x58(%rsp)
  jge    L126
L228:
  lea    D68(%rip),%rdi
  call   <puts@plt>
  mov    0x58(%rsp),%eax
  test   %eax,%eax
  jle    L155
  lea    0x8(%r12),%r15
  mov    $0x1,%ebp
  lea    D51(%rip),%rbx
  nopw   0x0(%rax,%rax,1)
L145:
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L92:
  mov    (%r15),%rdx
  pxor   %xmm0,%xmm0
  lea    0x1(%rax),%r14
  mov    %rbx,%rdi
  cvtss2sd 0x4(%rdx,%rax,4),%xmm0
  mov    $0x1,%eax
  call   <printf@plt>
  mov    %r14,%rax
  lea    0x1(%r14),%edx
  cmp    %edx,0x58(%rsp)
  jge    L92
  mov    $0xa,%edi
  add    $0x1,%ebp
  add    $0x8,%r15
  call   <putchar@plt>
  cmp    %ebp,0x58(%rsp)
  jge    L145
L155:
  lea    D185(%rip),%rdi
  call   <puts@plt>
  lea    D174(%rip),%rdi
  call   <puts@plt>
  xor    %eax,%eax
  call   <getchar@plt>
  mov    0x10(%rsp),%rdi
  call   <feof@plt>
  test   %eax,%eax
  je     L33
L306:
  mov    0x10(%rsp),%rdi
  call   <fclose@plt>
  mov    0x30(%rsp),%rdi
  mov    $0x14,%r8d
  mov    $0x1,%ecx
  mov    $0x14,%edx
  mov    $0x1,%esi
  call   <free_matrix@plt>
  mov    $0x14,%r8d
  mov    $0x1,%ecx
  mov    %r12,%rdi
  mov    $0x14,%edx
  mov    $0x1,%esi
  call   <free_matrix@plt>
  mov    0x20(%rsp),%rdi
  mov    $0x14,%r8d
  mov    $0x1,%ecx
  mov    $0x14,%edx
  mov    $0x1,%esi
  call   <free_matrix@plt>
  mov    0x8(%rsp),%rdi
  mov    $0x14,%r8d
  mov    $0x1,%ecx
  mov    $0x14,%edx
  mov    $0x1,%esi
  call   <free_matrix@plt>
  mov    0x18(%rsp),%rdi
  mov    $0x14,%edx
  mov    $0x1,%esi
  call   <free_ivector@plt>
  mov    0x28(%rsp),%rdi
  mov    $0x14,%edx
  mov    $0x1,%esi
  call   <free_ivector@plt>
  mov    0xb8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L307
  add    $0xc8,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L416:
  lea    D31(%rip),%rdi
  call   <nrerror@plt>
  jmp    L77
L307:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: label: D177
type: string
name: unpack_data
arguments: label: D171
type: string
name: unpack_data
arguments: label: D109
type: string
name: unpack_data
arguments: label: D181
type: string
name: unpack_data
arguments: label: D49
type: string
name: unpack_data
arguments: label: D51
type: string
name: unpack_data
arguments: label: D118
type: f32
name: unpack_data
arguments: label: D152
type: string
name: unpack_data
arguments: label: D53
type: string
name: unpack_data
arguments: label: D79
type: string
name: unpack_data
arguments: label: D44
type: string
name: unpack_data
arguments: label: D68
type: string
name: unpack_data
arguments: label: D185
type: string
name: unpack_data
arguments: label: D174
type: string
name: unpack_data
arguments: label: D31
type: string

tool: D177: r

tool: D171: matrx1.dat

tool: D109: %d %d 

tool: D181: %f 

tool: D49: original matrix:

tool: D51: %12.6f

tool: D118: 1

tool: D152: matrices (rows unscrambled):

tool: D53: product of lower and upper 

tool: D79: 
%s%s


tool: D44: 
lower matrix of the decomposition:

tool: D68: 
upper matrix of the decomposition:

tool: D185: 
***********************************

tool: D174: press return for next problem:

tool: D31: Data file matrx1.dat not found


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;
}
```