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

```asm
<gaussj>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  mov    %esi,%r12d
  push   %rbp
  push   %rbx
  mov    %rdi,%rbx
  mov    $0x1,%edi
  sub    $0x88,%rsp
  mov    %rdx,0x18(%rsp)
  mov    %ecx,0x40(%rsp)
  call   <ivector@plt>
  mov    %r12d,%esi
  mov    $0x1,%edi
  mov    %rax,0x60(%rsp)
  call   <ivector@plt>
  mov    %r12d,%esi
  mov    $0x1,%edi
  mov    %rax,0x68(%rsp)
  call   <ivector@plt>
  mov    %rax,%rbp
  test   %r12d,%r12d
  jle    L26
  mov    %r12d,%edx
  lea    -0x1(%r12),%r14d
  lea    0x4(%rbp),%rdi
  xor    %esi,%esi
  shl    $0x2,%rdx
  mov    %r14d,0x24(%rsp)
  mov    %r12d,%r15d
  mov    %r14,0x78(%rsp)
  call   <memset@plt>
  mov    %r12d,%eax
  mov    0x40(%rsp),%ecx
  movq   $0x1,0x38(%rsp)
  shr    $0x2,%eax
  movl   $0x1,0x20(%rsp)
  sub    $0x1,%eax
  movl   $0x1,0x10(%rsp)
  shl    $0x4,%rax
  lea    0x14(%rax),%r13
  mov    %r12d,%eax
  and    $0xfffffffc,%eax
  mov    %eax,0x34(%rsp)
  add    $0x1,%eax
  mov    %eax,0x44(%rsp)
  lea    -0x1(%rcx),%eax
  mov    %eax,0x14(%rsp)
  mov    %ecx,%eax
  and    $0xfffffffc,%ecx
  shr    $0x2,%eax
  mov    %ecx,0x30(%rsp)
  sub    $0x1,%eax
  shl    $0x4,%rax
  add    $0x14,%rax
  mov    %rax,0x50(%rsp)
  lea    0x1(%rcx),%eax
  mov    %eax,0x4c(%rsp)
  lea    0x2(%r14),%rax
  mov    %rax,0x70(%rsp)
  nopl   0x0(%rax)
L778:
  movl   $0x0,(%rsp)
  mov    $0x1,%r12d
  mov    %r13,0x28(%rsp)
  jmp    L250
  nopl   0x0(%rax)
L729:
  add    $0x1,%r12
  cmp    %r12d,%r15d
  jl     L257
L250:
  cmpl   $0x1,0x0(%rbp,%r12,4)
  mov    %r12d,0x8(%rsp)
  je     L729
  mov    $0x1,%r13d
  jmp    L37
  xchg   %ax,%ax
L184:
  cmp    $0x1,%eax
  jle    L314
  lea    D2(%rip),%rdi
  call   <NRerror@plt>
L314:
  add    $0x1,%r13
  cmp    %r13d,%r15d
  jl     L729
L37:
  mov    0x0(%rbp,%r13,4),%eax
  lea    0x0(,%r13,4),%r14
  test   %eax,%eax
  jne    L184
  mov    (%rbx,%r12,8),%rax
  movss  (%rax,%r13,4),%xmm0
  call   <fabs@plt>
  comiss (%rsp),%xmm0
  jb     L314
  mov    (%rbx,%r12,8),%rax
  movss  (%rax,%r14,1),%xmm0
  call   <fabs@plt>
  mov    0x8(%rsp),%eax
  mov    %r13d,0x10(%rsp)
  movss  %xmm0,(%rsp)
  mov    %eax,0x20(%rsp)
  jmp    L314
  nopl   0x0(%rax,%rax,1)
L257:
  movslq 0x10(%rsp),%r12
  mov    0x28(%rsp),%r13
  lea    0x0(,%r12,8),%rdi
  lea    0x0(,%r12,4),%r8
  lea    (%rbx,%rdi,1),%r11
  addl   $0x1,0x0(%rbp,%r8,1)
  mov    %rdi,0x28(%rsp)
  mov    (%r11),%rcx
  cmp    0x20(%rsp),%r12d
  jne    L482
L592:
  mov    0x38(%rsp),%rax
  mov    0x68(%rsp),%rdi
  pxor   %xmm7,%xmm7
  mov    0x20(%rsp),%esi
  mov    %esi,(%rdi,%rax,4)
  mov    0x60(%rsp),%rdi
  mov    0x10(%rsp),%esi
  mov    %esi,(%rdi,%rax,4)
  lea    (%rcx,%r8,1),%rax
  movss  (%rax),%xmm1
  ucomiss %xmm7,%xmm1
  jp     L209
  je     L706
L209:
  movss  D7(%rip),%xmm0
  cmpl   $0x2,0x24(%rsp)
  movl   $0x3f800000,(%rax)
  divss  %xmm1,%xmm0
  jbe    L132
  movaps %xmm0,%xmm2
  lea    0x4(%rcx),%rax
  lea    (%rcx,%r13,1),%rdx
  shufps $0x0,%xmm2,%xmm2
  nop
L666:
  movups (%rax),%xmm1
  add    $0x10,%rax
  mulps  %xmm2,%xmm1
  movups %xmm1,-0x10(%rax)
  cmp    %rax,%rdx
  jne    L666
  mov    0x34(%rsp),%eax
  cmp    %eax,%r15d
  je     L356
  mov    %eax,%esi
  mov    0x44(%rsp),%eax
L417:
  mov    %r15d,%edx
  sub    %esi,%edx
  cmp    $0x1,%edx
  je     L98
  add    $0x1,%esi
  movaps %xmm0,%xmm2
  lea    (%rcx,%rsi,4),%rsi
  shufps $0xe0,%xmm2,%xmm2
  movq   (%rsi),%xmm1
  mulps  %xmm2,%xmm1
  movlps %xmm1,(%rsi)
  mov    %edx,%esi
  and    $0xfffffffe,%esi
  add    %esi,%eax
  cmp    %esi,%edx
  je     L356
L98:
  cltq
  lea    (%rcx,%rax,4),%rax
  movss  (%rax),%xmm1
  mulss  %xmm0,%xmm1
  movss  %xmm1,(%rax)
L356:
  mov    0x40(%rsp),%eax
  test   %eax,%eax
  jle    L309
  mov    0x18(%rsp),%rax
  cmpl   $0x2,0x14(%rsp)
  mov    (%rax,%r12,8),%rdx
  jbe    L776
  mov    0x50(%rsp),%rdi
  movaps %xmm0,%xmm2
  lea    0x4(%rdx),%rax
  shufps $0x0,%xmm2,%xmm2
  lea    (%rdx,%rdi,1),%rsi
  nopl   (%rax)
L367:
  movups (%rax),%xmm1
  add    $0x10,%rax
  mulps  %xmm2,%xmm1
  movups %xmm1,-0x10(%rax)
  cmp    %rsi,%rax
  jne    L367
  mov    0x30(%rsp),%eax
  cmp    %eax,0x40(%rsp)
  je     L309
  mov    %eax,%edi
  mov    0x4c(%rsp),%eax
L352:
  mov    0x40(%rsp),%esi
  sub    %edi,%esi
  cmp    $0x1,%esi
  je     L13
  add    $0x1,%edi
  movaps %xmm0,%xmm2
  lea    (%rdx,%rdi,4),%rdi
  shufps $0xe0,%xmm2,%xmm2
  movq   (%rdi),%xmm1
  mulps  %xmm2,%xmm1
  movlps %xmm1,(%rdi)
  mov    %esi,%edi
  and    $0xfffffffe,%edi
  add    %edi,%eax
  cmp    %edi,%esi
  je     L309
L13:
  cltq
  lea    (%rdx,%rax,4),%rax
  mulss  (%rax),%xmm0
  movss  %xmm0,(%rax)
L309:
  lea    0x8(%rcx),%rax
  mov    0x14(%rsp),%r12d
  mov    %rbp,0x58(%rsp)
  mov    $0x1,%edi
  mov    0x50(%rsp),%r9
  mov    0x70(%rsp),%r10
  mov    %rax,(%rsp)
  mov    0x40(%rsp),%eax
  mov    %r8,0x8(%rsp)
  add    $0x2,%r12
  mov    %eax,%esi
  sub    0x30(%rsp),%esi
  mov    %eax,%r8d
  mov    %esi,0x48(%rsp)
  nopw   0x0(%rax,%rax,1)
L56:
  cmp    %edi,0x10(%rsp)
  je     L452
  mov    (%rbx,%rdi,8),%rax
  mov    0x8(%rsp),%rsi
  lea    (%rax,%rsi,1),%rdx
  movss  (%rdx),%xmm0
  movl   $0x0,(%rdx)
  lea    0x4(%rax),%rdx
  sub    (%rsp),%rdx
  cmp    $0x8,%rdx
  jbe    L364
  cmp    $0x1,%r15d
  je     L364
  cmpl   $0x2,0x24(%rsp)
  jbe    L661
  movaps %xmm0,%xmm3
  mov    $0x4,%edx
  shufps $0x0,%xmm3,%xmm3
  nopl   0x0(%rax)
L552:
  movups (%rcx,%rdx,1),%xmm2
  movups (%rax,%rdx,1),%xmm1
  mulps  %xmm3,%xmm2
  subps  %xmm2,%xmm1
  movups %xmm1,(%rax,%rdx,1)
  add    $0x10,%rdx
  cmp    %rdx,%r13
  jne    L552
  mov    0x34(%rsp),%r11d
  cmp    %r11d,%r15d
  je     L775
  mov    %r15d,%esi
  mov    0x44(%rsp),%edx
  sub    %r11d,%esi
  cmp    $0x1,%esi
  je     L285
L395:
  lea    0x1(%r11),%ebp
  movaps %xmm0,%xmm3
  movq   (%rcx,%rbp,4),%xmm2
  shufps $0xe0,%xmm3,%xmm3
  lea    (%rax,%rbp,4),%r11
  movq   (%r11),%xmm1
  mulps  %xmm3,%xmm2
  subps  %xmm2,%xmm1
  movlps %xmm1,(%r11)
  mov    %esi,%r11d
  and    $0xfffffffe,%r11d
  add    %r11d,%edx
  cmp    %esi,%r11d
  je     L775
L285:
  movslq %edx,%rdx
  movss  (%rcx,%rdx,4),%xmm2
  lea    (%rax,%rdx,4),%rax
  movss  (%rax),%xmm1
  mulss  %xmm0,%xmm2
  subss  %xmm2,%xmm1
  movss  %xmm1,(%rax)
L775:
  test   %r8d,%r8d
  jle    L452
  mov    0x18(%rsp),%rsi
  mov    0x28(%rsp),%rdx
  mov    (%rsi,%rdi,8),%rax
  mov    (%rsi,%rdx,1),%rsi
  mov    %rax,%rdx
  sub    %rsi,%rdx
  sub    $0x4,%rdx
  cmp    $0x8,%rdx
  jbe    L193
  cmp    $0x1,%r8d
  je     L193
  cmpl   $0x2,0x14(%rsp)
  jbe    L448
  movaps %xmm0,%xmm3
  mov    $0x4,%edx
  shufps $0x0,%xmm3,%xmm3
  nopw   0x0(%rax,%rax,1)
L62:
  movups (%rsi,%rdx,1),%xmm2
  movups (%rax,%rdx,1),%xmm1
  mulps  %xmm3,%xmm2
  subps  %xmm2,%xmm1
  movups %xmm1,(%rax,%rdx,1)
  add    $0x10,%rdx
  cmp    %rdx,%r9
  jne    L62
  mov    0x30(%rsp),%r11d
  cmp    %r11d,%r8d
  je     L452
  mov    0x48(%rsp),%edx
  cmp    $0x1,%edx
  mov    %edx,%r14d
  mov    0x4c(%rsp),%edx
  je     L320
L19:
  lea    0x1(%r11),%ebp
  movaps %xmm0,%xmm3
  movq   (%rsi,%rbp,4),%xmm2
  shufps $0xe0,%xmm3,%xmm3
  lea    (%rax,%rbp,4),%r11
  movq   (%r11),%xmm1
  mulps  %xmm3,%xmm2
  subps  %xmm2,%xmm1
  movlps %xmm1,(%r11)
  mov    %r14d,%r11d
  and    $0xfffffffe,%r11d
  add    %r11d,%edx
  cmp    %r14d,%r11d
  je     L452
L320:
  movslq %edx,%rdx
  mulss  (%rsi,%rdx,4),%xmm0
  lea    (%rax,%rdx,4),%rax
  movss  (%rax),%xmm1
  subss  %xmm0,%xmm1
  movss  %xmm1,(%rax)
L452:
  add    $0x1,%rdi
  cmp    %r10,%rdi
  jne    L56
  addq   $0x1,0x38(%rsp)
  mov    0x38(%rsp),%rax
  mov    0x58(%rsp),%rbp
  cmp    %eax,%r15d
  jge    L778
  mov    0x78(%rsp),%rax
  movslq %r15d,%r8
  mov    0x60(%rsp),%r10
  mov    0x68(%rsp),%r11
  mov    %r8,%r12
  lea    0x10(%rbx,%rax,8),%r9
  jmp    L89
  nopl   0x0(%rax)
L176:
  sub    $0x1,%r8
  test   %r8d,%r8d
  jle    L26
L89:
  movslq (%r11,%r8,4),%rdx
  movslq (%r10,%r8,4),%rax
  cmp    %eax,%edx
  je     L176
  lea    0x0(,%rdx,4),%rdi
  lea    0x0(,%rax,4),%rsi
  lea    0x8(%rbx),%rdx
  nopl   0x0(%rax)
L413:
  mov    (%rdx),%rax
  add    $0x8,%rdx
  lea    (%rax,%rdi,1),%rcx
  add    %rsi,%rax
  movss  (%rcx),%xmm0
  movss  (%rax),%xmm1
  movss  %xmm1,(%rcx)
  movss  %xmm0,(%rax)
  cmp    %rdx,%r9
  jne    L413
  sub    $0x1,%r8
  test   %r8d,%r8d
  jg     L89
L26:
  mov    %r12d,%edx
  mov    %rbp,%rdi
  mov    $0x1,%esi
  call   <free_ivector@plt>
  mov    0x68(%rsp),%rdi
  mov    %r12d,%edx
  mov    $0x1,%esi
  call   <free_ivector@plt>
  mov    0x60(%rsp),%rdi
  mov    %r12d,%edx
  add    $0x88,%rsp
  pop    %rbx
  mov    $0x1,%esi
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    10c0 <free_ivector@plt>
  nopl   0x0(%rax)
L364:
  mov    $0x1,%edx
  nopl   (%rax)
L152:
  movss  (%rcx,%rdx,4),%xmm2
  movss  (%rax,%rdx,4),%xmm1
  mulss  %xmm0,%xmm2
  subss  %xmm2,%xmm1
  movss  %xmm1,(%rax,%rdx,4)
  add    $0x1,%rdx
  cmp    %rdx,%r10
  jne    L152
  jmp    L775
  nopl   (%rax)
L193:
  mov    $0x1,%edx
  nopl   (%rax)
L128:
  movss  (%rsi,%rdx,4),%xmm2
  movss  (%rax,%rdx,4),%xmm1
  mulss  %xmm0,%xmm2
  subss  %xmm2,%xmm1
  movss  %xmm1,(%rax,%rdx,4)
  add    $0x1,%rdx
  cmp    %r12,%rdx
  jne    L128
  jmp    L452
  nopl   (%rax)
L482:
  movslq 0x20(%rsp),%r10
  lea    0x4(%rcx),%rax
  lea    0x14(%rcx),%rdi
  mov    (%rbx,%r10,8),%rdx
  lea    0x14(%rdx),%rsi
  cmp    %rax,%rsi
  lea    0x4(%rdx),%rsi
  setbe  %al
  cmp    %rsi,%rdi
  setbe  %sil
  or     %al,%sil
  je     L360
  cmp    $0x1,%r15d
  je     L360
  cmpl   $0x2,0x24(%rsp)
  jbe    L480
  mov    $0x4,%eax
  nopl   0x0(%rax)
L727:
  movups (%rdx,%rax,1),%xmm0
  movups (%rcx,%rax,1),%xmm5
  movups %xmm5,(%rdx,%rax,1)
  movups %xmm0,(%rcx,%rax,1)
  add    $0x10,%rax
  cmp    %r13,%rax
  jne    L727
  mov    0x34(%rsp),%esi
  cmp    %esi,%r15d
  je     L668
  mov    %r15d,%edi
  mov    0x44(%rsp),%eax
  sub    %esi,%edi
  cmp    $0x1,%edi
  je     L282
L361:
  add    $0x1,%esi
  shl    $0x2,%rsi
  lea    (%rdx,%rsi,1),%r9
  add    %rcx,%rsi
  movq   (%rsi),%xmm1
  movq   (%r9),%xmm0
  movlps %xmm1,(%r9)
  movlps %xmm0,(%rsi)
  mov    %edi,%esi
  and    $0xfffffffe,%esi
  add    %esi,%eax
  cmp    %esi,%edi
  je     L668
L282:
  cltq
  shl    $0x2,%rax
  add    %rax,%rdx
  add    %rcx,%rax
  movss  (%rdx),%xmm0
  movss  (%rax),%xmm1
  movss  %xmm1,(%rdx)
  movss  %xmm0,(%rax)
L668:
  mov    0x40(%rsp),%r14d
  test   %r14d,%r14d
  jle    L592
  mov    0x18(%rsp),%rax
  mov    (%rax,%r10,8),%rdx
  mov    (%rax,%r12,8),%rsi
  lea    0x14(%rdx),%rdi
  lea    0x4(%rsi),%rax
  cmp    %rax,%rdi
  lea    0x14(%rsi),%r9
  lea    0x4(%rdx),%rdi
  setbe  %al
  cmp    %rdi,%r9
  setbe  %dil
  or     %al,%dil
  je     L541
  cmp    $0x1,%r14d
  je     L541
  cmpl   $0x2,0x14(%rsp)
  jbe    L610
  mov    0x50(%rsp),%rdi
  mov    $0x4,%eax
  nopl   (%rax)
L742:
  movups (%rdx,%rax,1),%xmm0
  movups (%rsi,%rax,1),%xmm6
  movups %xmm6,(%rdx,%rax,1)
  movups %xmm0,(%rsi,%rax,1)
  add    $0x10,%rax
  cmp    %rdi,%rax
  jne    L742
  mov    0x40(%rsp),%r10d
  mov    0x30(%rsp),%edi
  cmp    %edi,%r10d
  je     L592
  sub    %edi,%r10d
  mov    0x4c(%rsp),%eax
  cmp    $0x1,%r10d
  je     L438
L86:
  add    $0x1,%edi
  shl    $0x2,%rdi
  lea    (%rdx,%rdi,1),%r9
  add    %rsi,%rdi
  movq   (%rdi),%xmm1
  movq   (%r9),%xmm0
  movlps %xmm1,(%r9)
  movlps %xmm0,(%rdi)
  mov    %r10d,%edi
  and    $0xfffffffe,%edi
  add    %edi,%eax
  cmp    %edi,%r10d
  je     L592
L438:
  cltq
  shl    $0x2,%rax
  add    %rax,%rdx
  add    %rsi,%rax
  movss  (%rdx),%xmm0
  movss  (%rax),%xmm1
  movss  %xmm1,(%rdx)
  movss  %xmm0,(%rax)
  jmp    L592
L661:
  mov    %r15d,%esi
  mov    $0x1,%edx
  xor    %r11d,%r11d
  jmp    L395
L706:
  lea    D21(%rip),%rdi
  mov    %r11,0x8(%rsp)
  mov    %r8,(%rsp)
  call   <NRerror@plt>
  mov    0x8(%rsp),%r11
  mov    (%rsp),%r8
  mov    (%r11),%rcx
  lea    (%rcx,%r8,1),%rax
  movss  (%rax),%xmm1
  jmp    L209
L448:
  mov    %r8d,%r14d
  mov    $0x1,%edx
  xor    %r11d,%r11d
  jmp    L19
L132:
  xor    %esi,%esi
  mov    $0x1,%eax
  jmp    L417
L776:
  xor    %edi,%edi
  mov    $0x1,%eax
  jmp    L352
L360:
  mov    0x70(%rsp),%rsi
  mov    $0x1,%eax
  nopl   0x0(%rax,%rax,1)
L755:
  movss  (%rdx,%rax,4),%xmm0
  movss  (%rcx,%rax,4),%xmm1
  movss  %xmm1,(%rdx,%rax,4)
  movss  %xmm0,(%rcx,%rax,4)
  add    $0x1,%rax
  cmp    %rax,%rsi
  jne    L755
  jmp    L668
L541:
  mov    0x14(%rsp),%edi
  mov    $0x1,%eax
  add    $0x2,%rdi
  nop
L201:
  movss  (%rdx,%rax,4),%xmm0
  movss  (%rsi,%rax,4),%xmm1
  movss  %xmm1,(%rdx,%rax,4)
  movss  %xmm0,(%rsi,%rax,4)
  add    $0x1,%rax
  cmp    %rdi,%rax
  jne    L201
  jmp    L592
L480:
  mov    %r15d,%edi
  xor    %esi,%esi
  mov    $0x1,%eax
  jmp    L361
L610:
  mov    %r14d,%r10d
  xor    %edi,%edi
  mov    $0x1,%eax
  jmp    L86
```

tool_calls: name: extract_symbolic_data
arguments: tag: D2
type_infered: string
name: extract_symbolic_data
arguments: tag: D7
type_infered: f32
name: extract_symbolic_data
arguments: tag: D21
type_infered: string

tool: D2: gaussj: Singular Matrix-1

tool: D7: 1

tool: D21: gaussj: Singular Matrix-2

assistant: ```c
void gaussj(float **A, int n, float **B, int m) {
  int *indxc, *indxr, *ipiv;
  int i, icol = 1, irow = 1, j, k, l, ll;
  float big, dum, pivinv, temp;
  indxc = ivector(1, n);
  indxr = ivector(1, n);
  ipiv = ivector(1, n);
  for (j = 1; j <= n; j++)
    ipiv[j] = 0;
  for (i = 1; i <= n; i++) {
    big = 0.0;
    for (j = 1; j <= n; j++)
      if (ipiv[j] != 1)
        for (k = 1; k <= n; k++) {
          if (ipiv[k] == 0) {
            if (fabs(A[j][k]) >= big) {
              big = fabs(A[j][k]);
              irow = j;
              icol = k;
            }
          } else if (ipiv[k] > 1)
            NRerror("gaussj: Singular Matrix-1");
        }
    ++(ipiv[icol]);
    if (irow != icol) {
      for (l = 1; l <= n; l++) {
        temp = (A[irow][l]);
        (A[irow][l]) = (A[icol][l]);
        (A[icol][l]) = temp;
      }
      for (l = 1; l <= m; l++) {
        temp = (B[irow][l]);
        (B[irow][l]) = (B[icol][l]);
        (B[icol][l]) = temp;
      }
    }
    indxr[i] = irow;
    indxc[i] = icol;
    if (A[icol][icol] == 0.0)
      NRerror("gaussj: Singular Matrix-2");
    pivinv = 1.0 / A[icol][icol];
    A[icol][icol] = 1.0;
    for (l = 1; l <= n; l++)
      A[icol][l] *= pivinv;
    for (l = 1; l <= m; l++)
      B[icol][l] *= pivinv;
    for (ll = 1; ll <= n; ll++)
      if (ll != icol) {
        dum = A[ll][icol];
        A[ll][icol] = 0.0;
        for (l = 1; l <= n; l++)
          A[ll][l] -= A[icol][l] * dum;
        for (l = 1; l <= m; l++)
          B[ll][l] -= B[icol][l] * dum;
      }
  }
  for (l = n; l >= 1; l--) {
    if (indxr[l] != indxc[l])
      for (k = 1; k <= n; k++) {
        temp = (A[k][indxr[l]]);
        (A[k][indxr[l]]) = (A[k][indxc[l]]);
        (A[k][indxc[l]]) = temp;
      };
  }
  free_ivector(ipiv, 1, n);
  free_ivector(indxr, 1, n);
  free_ivector(indxc, 1, n);
}
```