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

```asm
<modelhess>:
  endbr64
  push   %r15
  pxor   %xmm5,%xmm5
  mov    %esi,%r15d
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %rdi,%rbp
  push   %rbx
  mov    %rdx,%rbx
  sub    $0x88,%rsp
  ucomisd %xmm0,%xmm5
  mov    %rcx,0x58(%rsp)
  movsd  %xmm0,0x68(%rsp)
  ja     L302
  movapd %xmm0,%xmm4
  sqrtsd %xmm4,%xmm4
  movsd  %xmm4,0x48(%rsp)
L509:
  mov    %r15d,%edi
  movslq %r15d,%r13
  imul   %r15d,%edi
  mov    %r13,0x50(%rsp)
  shl    $0x3,%edi
  call   <malloc@plt>
  mov    %rax,%r14
  test   %r15d,%r15d
  jle    L133
  lea    -0x1(%r15),%r10d
  mov    %rbp,%rdi
  mov    %rbx,%rcx
  mov    %rbp,%rdx
  shl    $0x3,%r10
  lea    0x0(,%r13,8),%r9
  mov    %r15d,%esi
  lea    0x8(%rbx,%r10,1),%r11
  nopl   0x0(%rax)
L270:
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L262:
  movsd  (%rcx),%xmm1
  mulsd  (%rbx,%rax,8),%xmm1
  movsd  (%rdx,%rax,8),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rdx,%rax,8)
  add    $0x1,%rax
  cmp    %rsi,%rax
  jne    L262
  add    $0x8,%rcx
  add    %r9,%rdx
  cmp    %r11,%rcx
  jne    L270
  add    $0x8,%r9
  mov    %r14,%rax
  lea    0x8(%r14,%r10,1),%rdx
L226:
  movsd  (%rdi),%xmm0
  add    $0x8,%rax
  add    %r9,%rdi
  movsd  %xmm0,-0x8(%rax)
  cmp    %rdx,%rax
  jne    L226
  mov    %r15d,%esi
  mov    %r14,%rdi
  call   <array_max@plt>
  mov    %r15d,%esi
  mov    %r14,%rdi
  movsd  %xmm0,(%rsp)
  call   <array_min@plt>
  movsd  (%rsp),%xmm1
  test   %r15d,%r15d
  mov    %r14,%rdi
  mov    0x50(%rsp),%rax
  pxor   %xmm5,%xmm5
  movsd  %xmm0,0x10(%rsp)
  movapd %xmm1,%xmm2
  movsd  %xmm1,0x8(%rsp)
  maxsd  %xmm5,%xmm2
  lea    0x0(,%rax,8),%rdx
  mov    $0x8,%eax
  cmovle %rax,%rdx
  xor    %esi,%esi
  movsd  %xmm2,(%rsp)
  call   <memset@plt>
  movsd  0x48(%rsp),%xmm3
  movsd  (%rsp),%xmm2
  movsd  0x10(%rsp),%xmm0
  movsd  0x8(%rsp),%xmm1
  mulsd  %xmm2,%xmm3
  comisd %xmm0,%xmm3
  jae    L203
  pxor   %xmm3,%xmm3
L319:
  xor    %edi,%edi
  xor    %esi,%esi
  xor    %ecx,%ecx
  nopl   0x0(%rax)
L264:
  xor    %eax,%eax
L119:
  add    $0x1,%eax
  cmp    %eax,%r15d
  jle    L287
L186:
  cmp    %ecx,%eax
  jle    L119
  lea    (%rax,%rdi,1),%edx
  add    $0x1,%eax
  movslq %edx,%rdx
  movsd  0x0(%rbp,%rdx,8),%xmm0
  movslq %esi,%rdx
  add    $0x1,%esi
  movsd  %xmm0,(%r14,%rdx,8)
  cmp    %eax,%r15d
  jg     L186
L287:
  add    $0x1,%ecx
  add    %r15d,%edi
  cmp    %ecx,%r15d
  jg     L264
L259:
  mov    %r14,%rdi
  movsd  %xmm3,0x8(%rsp)
  movsd  %xmm1,(%rsp)
  call   <array_max_abs@plt>
  movsd  0x48(%rsp),%xmm3
  movsd  (%rsp),%xmm1
  movsd  D7(%rip),%xmm2
  movapd %xmm3,%xmm4
  addsd  %xmm3,%xmm4
  movsd  0x8(%rsp),%xmm3
  addsd  %xmm4,%xmm2
  mulsd  %xmm0,%xmm2
  comisd %xmm1,%xmm2
  jbe    L25
  mulsd  %xmm0,%xmm4
  movapd %xmm0,%xmm5
  subsd  %xmm1,%xmm5
  movapd %xmm2,%xmm1
  addsd  %xmm4,%xmm5
  addsd  %xmm5,%xmm3
L25:
  pxor   %xmm4,%xmm4
  ucomisd %xmm4,%xmm1
  jp     L344
  je     L422
L344:
  pxor   %xmm4,%xmm4
  comisd %xmm4,%xmm3
  ja     L487
L346:
  pxor   %xmm2,%xmm2
  cvtsi2sd %r15d,%xmm2
  divsd  %xmm2,%xmm0
  comisd %xmm0,%xmm1
  jbe    L273
L241:
  pxor   %xmm3,%xmm3
  ucomisd %xmm1,%xmm3
  ja     L197
  sqrtsd %xmm1,%xmm1
L61:
  movsd  0x68(%rsp),%xmm0
  mov    0x58(%rsp),%rdx
  mov    %r15d,%esi
  mov    %rbp,%rdi
  call   <cholmod@plt>
  pxor   %xmm4,%xmm4
  comisd %xmm4,%xmm0
  movsd  %xmm0,0x60(%rsp)
  jbe    L448
  movsd  0x0(%rbp),%xmm3
  movsd  %xmm3,0x8(%rsp)
  test   %r15d,%r15d
  jle    L158
  mov    0x50(%rsp),%rax
  lea    0x8(%rbp),%r13
  mov    %r15d,0x40(%rsp)
  xor    %esi,%esi
  mov    %r13,%r12
  movq   $0x0,(%rsp)
  add    $0x1,%rax
  mov    %rbx,0x78(%rsp)
  mov    %rax,0x20(%rsp)
  shl    $0x3,%rax
  mov    %rax,0x38(%rsp)
  sub    $0x8,%rax
  lea    0x0(%rbp,%rax,1),%rdi
  mov    %rax,0x30(%rsp)
  add    %rax,%r12
  lea    -0x1(%r15),%eax
  mov    %eax,0x44(%rsp)
  mov    %rdi,0x18(%rsp)
  xor    %edi,%edi
  mov    %r14,0x70(%rsp)
  mov    %rsi,%r14
  mov    %rbp,0x28(%rsp)
  mov    %edi,%ebp
  movsd  %xmm3,0x10(%rsp)
  nopw   0x0(%rax,%rax,1)
L79:
  add    $0x1,%ebp
  cmp    %ebp,0x40(%rsp)
  jle    L358
  mov    0x44(%rsp),%eax
  mov    0x28(%rsp),%rdi
  mov    %r13,%r15
  sub    %ebp,%eax
  add    %r14,%rax
  lea    0x10(%rdi,%rax,8),%rbx
  nop
L8:
  movsd  (%r15),%xmm0
  add    $0x8,%r15
  call   <fabs@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %rax,%xmm0
  addsd  (%rsp),%xmm0
  movsd  %xmm0,(%rsp)
  cmp    %r15,%rbx
  jne    L8
L358:
  movsd  (%rsp),%xmm5
  movsd  -0x8(%r13),%xmm0
  movapd %xmm5,%xmm1
  addsd  %xmm0,%xmm1
  subsd  %xmm5,%xmm0
  maxsd  0x8(%rsp),%xmm1
  minsd  0x10(%rsp),%xmm0
  movsd  %xmm1,0x8(%rsp)
  movsd  %xmm0,0x10(%rsp)
  cmp    %ebp,0x40(%rsp)
  je     L329
  movq   $0x0,(%rsp)
  mov    0x18(%rsp),%rbx
  nopl   0x0(%rax)
L364:
  movsd  (%rbx),%xmm0
  add    $0x8,%rbx
  call   <fabs@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %rax,%xmm0
  addsd  (%rsp),%xmm0
  movsd  %xmm0,(%rsp)
  cmp    %rbx,%r12
  jne    L364
  mov    0x38(%rsp),%rdi
  mov    0x30(%rsp),%rsi
  add    0x20(%rsp),%r14
  add    %rsi,0x18(%rsp)
  add    %rdi,%r13
  add    %rdi,%r12
  jmp    L79
L203:
  subsd  %xmm0,%xmm2
  addsd  %xmm2,%xmm2
  mulsd  0x48(%rsp),%xmm2
  movapd %xmm2,%xmm3
  subsd  %xmm0,%xmm3
  addsd  %xmm3,%xmm1
  jmp    L319
L422:
  mov    D7(%rip),%rax
  movq   %rax,%xmm3
  movq   %rax,%xmm1
L487:
  test   %r15d,%r15d
  jle    L346
  mov    0x50(%rsp),%rax
  xor    %edx,%edx
  lea    0x8(,%rax,8),%rcx
  mov    %rbp,%rax
  nop
L48:
  movsd  (%rax),%xmm2
  add    $0x1,%edx
  addsd  %xmm3,%xmm2
  movsd  %xmm2,(%rax)
  add    %rcx,%rax
  cmp    %edx,%r15d
  jne    L48
  pxor   %xmm2,%xmm2
  cvtsi2sd %r15d,%xmm2
  divsd  %xmm2,%xmm0
  comisd %xmm0,%xmm1
  ja     L241
L273:
  pxor   %xmm5,%xmm5
  ucomisd %xmm0,%xmm5
  ja     L433
  sqrtsd %xmm0,%xmm0
  movapd %xmm0,%xmm1
  jmp    L61
L329:
  movsd  0x10(%rsp),%xmm4
  movsd  0x8(%rsp),%xmm0
  mov    0x70(%rsp),%r14
  mov    0x28(%rsp),%rbp
  subsd  %xmm4,%xmm0
  mulsd  0x48(%rsp),%xmm0
  mov    0x40(%rsp),%r15d
  mov    0x78(%rsp),%rbx
  subsd  %xmm4,%xmm0
  pxor   %xmm4,%xmm4
  comisd %xmm0,%xmm4
  ja     L130
  movsd  0x60(%rsp),%xmm3
  comisd %xmm0,%xmm3
  ja     L20
L493:
  mov    0x20(%rsp),%rcx
  movsd  0x60(%rsp),%xmm1
  mov    %rbp,%rax
  xor    %edx,%edx
  shl    $0x3,%rcx
  nopl   0x0(%rax)
L240:
  movsd  (%rax),%xmm0
  add    $0x1,%edx
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  add    %rcx,%rax
  cmp    %edx,%r15d
  jne    L240
  movsd  0x68(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    %r15d,%esi
  mov    %rbp,%rdi
  mov    0x58(%rsp),%rdx
  call   <cholmod@plt>
L198:
  mov    0x50(%rsp),%rsi
  mov    %rbx,%rcx
  mov    %rbx,%rdx
  xor    %edi,%edi
  shl    $0x3,%rsi
  nopw   0x0(%rax,%rax,1)
L175:
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L88:
  movsd  (%rdx),%xmm1
  mulsd  (%rbx,%rax,8),%xmm1
  mulsd  0x0(%rbp,%rax,8),%xmm1
  movsd  %xmm1,0x0(%rbp,%rax,8)
  add    $0x1,%rax
  cmp    %eax,%r15d
  jg     L88
  add    $0x1,%edi
  add    %rsi,%rbp
  add    $0x8,%rdx
  cmp    %edi,%r15d
  jg     L175
  mov    0x58(%rsp),%rdi
  lea    0x8(%rsi),%r10
  xor    %r9d,%r9d
  lea    0x8(%rdi),%rdx
  nopl   (%rax)
L73:
  mov    %rdi,%rax
  nopl   0x0(%rax,%rax,1)
L393:
  movsd  (%rax),%xmm1
  mulsd  (%rcx),%xmm1
  add    $0x8,%rax
  movsd  %xmm1,-0x8(%rax)
  cmp    %rdx,%rax
  jne    L393
  add    $0x1,%r9d
  add    %rsi,%rdi
  add    $0x8,%rcx
  add    %r10,%rdx
  cmp    %r9d,%r15d
  jg     L73
L1:
  mov    %r14,%rdi
  movsd  %xmm0,(%rsp)
  call   <free@plt>
  movsd  (%rsp),%xmm0
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L448:
  movsd  0x68(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    %r15d,%esi
  mov    %rbp,%rdi
  mov    0x58(%rsp),%rdx
  call   <cholmod@plt>
  test   %r15d,%r15d
  jg     L198
  jmp    L1
L130:
  movq   $0x0,0x60(%rsp)
  jmp    L493
L133:
  mov    %rax,%rdi
  mov    %r15d,%esi
  call   <array_max@plt>
  mov    %r15d,%esi
  mov    %r14,%rdi
  movsd  %xmm0,(%rsp)
  call   <array_min@plt>
  movsd  (%rsp),%xmm1
  pxor   %xmm5,%xmm5
  movsd  0x48(%rsp),%xmm3
  movapd %xmm1,%xmm2
  maxsd  %xmm5,%xmm2
  mulsd  %xmm2,%xmm3
  comisd %xmm0,%xmm3
  jb     L430
  subsd  %xmm0,%xmm2
  movsd  0x48(%rsp),%xmm3
  xor    %esi,%esi
  addsd  %xmm2,%xmm2
  mulsd  %xmm2,%xmm3
  subsd  %xmm0,%xmm3
  addsd  %xmm3,%xmm1
  jmp    L259
L158:
  movsd  0x8(%rsp),%xmm4
  pxor   %xmm5,%xmm5
  movapd %xmm4,%xmm0
  subsd  %xmm4,%xmm0
  mulsd  0x48(%rsp),%xmm0
  subsd  %xmm4,%xmm0
  comisd %xmm0,%xmm5
  ja     L244
  movsd  0x60(%rsp),%xmm3
  comisd %xmm0,%xmm3
  ja     L244
L44:
  test   %r15d,%r15d
  jle    L244
  mov    0x50(%rsp),%rax
  add    $0x1,%rax
  mov    %rax,0x20(%rsp)
  jmp    L493
L244:
  movsd  0x68(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    %r15d,%esi
  mov    %rbp,%rdi
  mov    0x58(%rsp),%rdx
  call   <cholmod@plt>
  jmp    L1
L430:
  pxor   %xmm3,%xmm3
  xor    %esi,%esi
  jmp    L259
L20:
  movsd  %xmm0,0x60(%rsp)
  jmp    L44
L433:
  call   <sqrt@plt>
  movapd %xmm0,%xmm1
  jmp    L61
L302:
  movsd  0x68(%rsp),%xmm0
  call   <sqrt@plt>
  movsd  %xmm0,0x48(%rsp)
  jmp    L509
L197:
  movapd %xmm1,%xmm0
  call   <sqrt@plt>
  movapd %xmm0,%xmm1
  jmp    L61
```

tool_calls: name: parse_data
arguments: data_label: D7
type: f32[2]

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

assistant: ```c
double modelhess(double *A, int N, double *dx, double eps, double *L) {
  double *U22;
  double sqrteps, maxdiag, mindiag, maxposdiag, u;
  double maxoffdiag, maxinp, maxadd;
  double maxev, minev, offrow, sdd;
  int step, i, j, k;
  sqrteps = sqrt(eps);
  U22 = (double *)malloc(sizeof(double) * N * N);
  for (i = 0; i < N; ++i) {
    step = i * N;
    for (j = 0; j < N; ++j) {
      A[step + j] /= (dx[i] * dx[j]);
    }
  }
  for (i = 0; i < N; ++i) {
    U22[i] = A[i + i * N];
  }
  maxdiag = array_max(U22, N);
  mindiag = array_min(U22, N);
  maxposdiag = 0.0;
  if (maxdiag > maxposdiag) {
    maxposdiag = maxdiag;
  }
  for (i = 0; i < N; ++i) {
    U22[i] = 0.0;
  }
  u = 0.0;
  if (mindiag <= sqrteps * maxposdiag) {
    u = 2 * (maxposdiag - mindiag) * sqrteps - mindiag;
    maxdiag += u;
  }
  k = 0;
  for (i = 0; i < N; ++i) {
    for (j = 0; j < N; ++j) {
      if (j > i) {
        U22[k] = A[i * N + j];
        k++;
      }
    }
  }
  maxoffdiag = array_max_abs(U22, k);
  if (maxoffdiag * (1 + 2 * sqrteps) > maxdiag) {
    u += (maxoffdiag - maxdiag) + 2 * sqrteps * maxoffdiag;
    maxdiag = maxoffdiag * (1 + 2 * sqrteps);
  }
  if (maxdiag == 0) {
    u = 1;
    maxdiag = 1;
  }
  if (u > 0) {
    for (i = 0; i < N; ++i) {
      A[i * N + i] += u;
    }
  }
  if (maxdiag > maxoffdiag / N) {
    maxinp = sqrt(maxdiag);
  } else {
    maxinp = sqrt(maxoffdiag / N);
  }
  maxadd = cholmod(A, N, L, eps, maxinp);
  if (maxadd > 0) {
    maxev = minev = A[0];
    for (i = 0; i < N; ++i) {
      offrow = 0.0;
      step = i * N;
      for (j = 0; j < i; ++j) {
        offrow += fabs(A[step + j]);
      }
      for (j = i + 1; j < N; ++j) {
        offrow += fabs(A[step + j]);
      }
      if (maxev < A[step + i] + offrow) {
        maxev = A[step + i] + offrow;
      }
      if (minev > A[step + i] - offrow) {
        minev = A[step + i] - offrow;
      }
    }
    sdd = (maxev - minev) * sqrteps - minev;
    if (sdd < 0) {
      sdd = 0;
    }
    if (maxadd > sdd) {
      u = sdd;
    } else {
      u = maxadd;
    }
    for (i = 0; i < N; ++i) {
      A[i * N + i] += u;
    }
  }
  maxadd = cholmod(A, N, L, eps, 0.0);
  for (i = 0; i < N; ++i) {
    step = i * N;
    for (j = 0; j < N; ++j) {
      A[step + j] *= (dx[i] * dx[j]);
    }
  }
  for (i = 0; i < N; ++i) {
    step = i * N;
    for (j = 0; j < i + 1; ++j) {
      L[step + j] *= dx[i];
    }
  }
  free(U22);
  return maxadd;
}
```