user: What is the c source code of the assembly code below:

```asm
<stopcheck>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  mov    $0x3,%r12d
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %rsi,0x28(%rsp)
  mov    %rdx,0x18(%rsp)
  movsd  %xmm0,0x8(%rsp)
  movsd  %xmm1,(%rsp)
  movsd  %xmm2,0x10(%rsp)
  movsd  %xmm3,0x20(%rsp)
  cmp    $0x1,%r9d
  je     L38
  mov    %edi,%r13d
  lea    0x0(,%rdi,8),%edi
  mov    %rcx,%r15
  mov    %r8,%r14
  call   <malloc@plt>
  movsd  0x8(%rsp),%xmm0
  movsd  (%rsp),%xmm1
  movq   D2(%rip),%xmm4
  mov    %rax,%rbp
  andpd  %xmm4,%xmm0
  andpd  %xmm4,%xmm1
  maxsd  %xmm1,%xmm0
  test   %r13d,%r13d
  jle    L58
  mov    %rbp,%rcx
  mov    0x18(%rsp),%rdx
  mov    %rax,%r12
  mov    %r13d,%eax
  neg    %rcx
  lea    0x0(%rbp,%rax,8),%rbx
  sub    %rbp,%r14
  mov    %rbp,%rax
  mov    %rcx,(%rsp)
  movsd  D12(%rip),%xmm5
  sub    %rbp,%rdx
  sub    %rbp,%r15
  nopl   0x0(%rax)
L14:
  movsd  (%r14,%rax,1),%xmm1
  movapd %xmm5,%xmm2
  movsd  (%rdx,%rax,1),%xmm3
  andpd  %xmm4,%xmm1
  andpd  %xmm4,%xmm3
  divsd  %xmm1,%xmm2
  maxsd  %xmm2,%xmm3
  movsd  (%r15,%rax,1),%xmm2
  add    $0x8,%rax
  andpd  %xmm4,%xmm2
  movapd %xmm2,%xmm1
  mulsd  %xmm3,%xmm1
  divsd  %xmm0,%xmm1
  movsd  %xmm1,-0x8(%rax)
  cmp    %rbx,%rax
  jne    L14
  mov    %r13d,%esi
  mov    %rbp,%rdi
  mov    %rdx,0x8(%rsp)
  call   <array_max_abs@plt>
  movsd  0x10(%rsp),%xmm6
  comisd %xmm0,%xmm6
  jb     L77
L10:
  mov    $0x1,%r12d
L53:
  mov    %rbp,%rdi
  call   <free@plt>
L38:
  add    $0x38,%rsp
  mov    %r12d,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L77:
  mov    (%rsp),%rsi
  mov    0x28(%rsp),%rax
  mov    0x8(%rsp),%rdx
  movq   D2(%rip),%xmm4
  add    %rsi,%rax
  mov    D12(%rip),%rsi
  movq   %rsi,%xmm5
  nopl   (%rax)
L62:
  movsd  (%r14,%r12,1),%xmm2
  movapd %xmm5,%xmm3
  movsd  (%rdx,%r12,1),%xmm0
  andpd  %xmm4,%xmm2
  movapd %xmm0,%xmm1
  subsd  (%rax,%r12,1),%xmm0
  add    $0x8,%r12
  divsd  %xmm2,%xmm3
  andpd  %xmm4,%xmm1
  andpd  %xmm4,%xmm0
  maxsd  %xmm3,%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%r12)
  cmp    %rbx,%r12
  jne    L62
L43:
  mov    %r13d,%esi
  mov    %rbp,%rdi
  xor    %r12d,%r12d
  call   <array_max_abs@plt>
  movsd  0x20(%rsp),%xmm7
  comisd %xmm0,%xmm7
  setae  %r12b
  add    %r12d,%r12d
  jmp    L53
  xchg   %ax,%ax
L58:
  mov    %r13d,%esi
  mov    %rax,%rdi
  call   <array_max_abs@plt>
  movsd  0x10(%rsp),%xmm7
  comisd %xmm0,%xmm7
  jb     L43
  jmp    L10
```

tool_calls: name: retrieve_data
arguments: data_tag: D2
type_guessed: qword
name: retrieve_data
arguments: data_tag: D12
type_guessed: f64

tool: D2: 9223372036854775807

tool: D12: 1

assistant: ```c
int stopcheck(double fx, int N, double *xc, double *xf, double *jac, double *dx, double fsval, double gtol, double stol, int retval) {
  int rcode, i;
  double num, den;
  double stop0;
  double *scheck;
  rcode = 0;
  if (retval == 1) {
    rcode = 3;
    return rcode;
  }
  scheck = (double *)malloc(sizeof(double) * N);
  if (fabs(fx) > fabs(fsval)) {
    den = fabs(fx);
  } else {
    den = fabs(fsval);
  }
  for (i = 0; i < N; ++i) {
    if (fabs(xf[i]) > 1.0 / fabs(dx[i])) {
      num = fabs(xf[i]);
    } else {
      num = 1.0 / fabs(dx[i]);
    }
    scheck[i] = fabs(jac[i]) * num / den;
  }
  stop0 = array_max_abs(scheck, N);
  if (stop0 <= gtol) {
    rcode = 1;
  } else {
    for (i = 0; i < N; ++i) {
      if (fabs(xf[i]) > 1.0 / fabs(dx[i])) {
        den = fabs(xf[i]);
      } else {
        den = 1.0 / fabs(dx[i]);
      }
      num = fabs(xf[i] - xc[i]);
      scheck[i] = num / den;
    }
    stop0 = array_max_abs(scheck, N);
    if (stop0 <= stol) {
      rcode = 2;
    }
  }
  free(scheck);
  return rcode;
}
```