user: 请将以下的汇编代码转换成C语言代码:

```asm
<get_evec>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x60,%rsp
  mov    %rdi,-0x28(%rbp)
  mov    %rsi,-0x30(%rbp)
  mov    %rdx,-0x38(%rbp)
  mov    %rcx,-0x40(%rbp)
  mov    %r8d,-0x44(%rbp)
  mov    %r9d,-0x48(%rbp)
  movsd  %xmm0,-0x50(%rbp)
  movsd  %xmm1,-0x58(%rbp)
  movsd  -0x58(%rbp),%xmm0
  movq   D13(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x50(%rbp),%xmm0
  comisd -0x8(%rbp),%xmm0
  jbe    L147
  movsd  -0x50(%rbp),%xmm0
  movsd  %xmm0,-0x8(%rbp)
L147:
  mov    0x18(%rbp),%rax
  movl   $0x0,(%rax)
  movl   $0x0,-0x1c(%rbp)
  jmp    L209
L243:
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x28(%rbp),%rax
  add    %rax,%rdx
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x30(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L209:
  mov    -0x44(%rbp),%eax
  imul   %eax,%eax
  cmp    %eax,-0x1c(%rbp)
  jl     L243
  movl   $0x0,-0x1c(%rbp)
  jmp    L212
L154:
  mov    -0x44(%rbp),%eax
  add    $0x1,%eax
  imul   -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x58(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movapd %xmm0,%xmm2
  mulsd  -0x8(%rbp),%xmm2
  mov    -0x44(%rbp),%eax
  add    $0x1,%eax
  imul   -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm2,%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L212:
  mov    -0x1c(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L154
  mov    0x18(%rbp),%rcx
  mov    -0x44(%rbp),%edx
  mov    -0x44(%rbp),%esi
  mov    -0x30(%rbp),%rax
  mov    %rcx,%r8
  mov    0x10(%rbp),%rcx
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sgefa@plt>
  mov    0x18(%rbp),%rax
  mov    (%rax),%eax
  cmp    $0xffffffff,%eax
  je     L132
  lea    D82(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <plintf@plt>
  jmp    L97
L132:
  movl   $0x0,-0x1c(%rbp)
  jmp    L107
L104:
  mov    $0x0,%eax
  call   <ndrand48@plt>
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
  movsd  D33(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  D34(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rax,%rdx
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x40(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L107:
  mov    -0x1c(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L104
  movl   $0x0,-0x18(%rbp)
  mov    0x18(%rbp),%rax
  movl   $0x0,(%rax)
L210:
  mov    -0x38(%rbp),%rcx
  mov    -0x44(%rbp),%edx
  mov    -0x44(%rbp),%esi
  mov    -0x30(%rbp),%rax
  mov    $0x0,%r9d
  mov    %rcx,%r8
  mov    0x10(%rbp),%rcx
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sgesl@plt>
  mov    -0x38(%rbp),%rax
  movsd  (%rax),%xmm0
  movq   D13(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movl   $0x0,-0x14(%rbp)
  movl   $0x0,-0x1c(%rbp)
  jmp    L31
L187:
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D13(%rip),%xmm1
  andpd  %xmm1,%xmm0
  comisd -0x10(%rbp),%xmm0
  jbe    L194
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D13(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x1c(%rbp),%eax
  mov    %eax,-0x14(%rbp)
L194:
  addl   $0x1,-0x1c(%rbp)
L31:
  mov    -0x1c(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L187
  mov    -0x14(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movl   $0x0,-0x1c(%rbp)
  jmp    L72
L47:
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  divsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L72:
  mov    -0x1c(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L47
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movl   $0x0,-0x1c(%rbp)
  jmp    L183
L123:
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movq   D13(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  -0x10(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rax,%rdx
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x40(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L183:
  mov    -0x1c(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L123
  movsd  -0x50(%rbp),%xmm0
  comisd -0x10(%rbp),%xmm0
  ja     L42
  addl   $0x1,-0x18(%rbp)
  mov    -0x18(%rbp),%eax
  cmp    -0x48(%rbp),%eax
  jle    L210
  lea    D19(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <plintf@plt>
  mov    0x18(%rbp),%rax
  movl   $0x1,(%rax)
  jmp    L9
L42:
  nop
L9:
  mov    0x18(%rbp),%rax
  mov    (%rax),%eax
  test   %eax,%eax
  jne    L20
  mov    -0x38(%rbp),%rax
  movsd  (%rax),%xmm0
  movq   D13(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movl   $0x0,-0x14(%rbp)
  movl   $0x0,-0x1c(%rbp)
  jmp    L158
L142:
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D13(%rip),%xmm1
  andpd  %xmm1,%xmm0
  comisd -0x10(%rbp),%xmm0
  jbe    L219
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movq   D13(%rip),%xmm1
  andpd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x1c(%rbp),%eax
  mov    %eax,-0x14(%rbp)
L219:
  addl   $0x1,-0x1c(%rbp)
L158:
  mov    -0x1c(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L142
  mov    -0x14(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movl   $0x0,-0x1c(%rbp)
  jmp    L171
L100:
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  divsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L171:
  mov    -0x1c(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L100
L20:
  nop
L97:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_tag: D13
type: qword
name: unpack_data
arguments: data_tag: D82
type: string
name: unpack_data
arguments: data_tag: D33
type: byte[8]
name: unpack_data
arguments: data_tag: D34
type: f32[2]
name: unpack_data
arguments: data_tag: D19
type: string

tool: D13: 9223372036854775807

tool: D82:  Pivot failed


tool: {"D33": [0x9a,0x99,0x99,0x99,0x99,0x99,0xb9,0x3f]}

tool: {"D34": [0.0,1.875]}

tool: D19:  max iterates exceeded


assistant: ```c
void get_evec(a, anew, b, bp, n, maxit, err, ipivot, eval, ierr) double *a, *anew, *b, *bp, err, eval;
int n, maxit, *ipivot, *ierr;
{
  int j, iter, jmax;
  double temp;
  double zz = fabs(eval);
  if (zz < err)
    zz = err;
  *ierr = 0;
  for (j = 0; j < n * n; j++) {
    anew[j] = a[j];
  }
  for (j = 0; j < n; j++)
    anew[j * (1 + n)] = anew[j * (1 + n)] - eval - err * err * zz;
  sgefa(anew, n, n, ipivot, ierr);
  if (*ierr != -1) {
    plintf(" Pivot failed\n");
    return;
  }
  for (j = 0; j < n; j++) {
    b[j] = 1 + .1 * ndrand48();
    bp[j] = b[j];
  }
  iter = 0;
  *ierr = 0;
  while (1) {
    sgesl(anew, n, n, ipivot, b, 0);
    temp = fabs(b[0]);
    jmax = 0;
    for (j = 0; j < n; j++) {
      if (fabs(b[j]) > temp) {
        temp = fabs(b[j]);
        jmax = j;
      }
    }
    temp = b[jmax];
    for (j = 0; j < n; j++)
      b[j] = b[j] / temp;
    temp = 0.0;
    for (j = 0; j < n; j++) {
      temp = temp + fabs(b[j] - bp[j]);
      bp[j] = b[j];
    }
    if (temp < err)
      break;
    iter++;
    if (iter > maxit) {
      plintf(" max iterates exceeded\n");
      *ierr = 1;
      break;
    }
  }
  if (*ierr == 0) {
    temp = fabs(b[0]);
    jmax = 0;
    for (j = 0; j < n; j++) {
      if (fabs(b[j]) > temp) {
        temp = fabs(b[j]);
        jmax = j;
      }
    }
    temp = b[jmax];
    for (j = 0; j < n; j++)
      b[j] = b[j] / temp;
  }
  return;
}
```