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

```asm
<Check_Eigen>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x68,%rsp
  mov    %edi,0xc(%rsp)
  mov    %rcx,0x10(%rsp)
  test   %edi,%edi
  jle    L238
  movslq %edi,%rax
  mov    %rsi,%rbp
  xor    %r15d,%r15d
  mov    %rdx,%r12
  mov    %rax,0x58(%rsp)
  mov    %edi,%eax
  and    $0xfffffffe,%edi
  shr    %eax
  mov    %edi,0x34(%rsp)
  sub    $0x1,%eax
  movl   $0x0,0x50(%rsp)
  add    $0x1,%rax
  shl    $0x4,%rax
  mov    %rax,%r13
  nopl   (%rax)
L82:
  lea    0x0(,%r15,8),%rax
  mov    %r15d,0x44(%rsp)
  mov    %rax,0x48(%rsp)
  mov    %r15d,0x30(%rsp)
  test   %r15,%r15
  jne    L280
  xor    %eax,%eax
L38:
  movslq %eax,%rbx
  mov    %rbx,%r14
  mov    0x48(%rsp),%rbx
  nopl   (%rax)
L136:
  mov    0x10(%rsp),%rax
  cmpl   $0x1,0xc(%rsp)
  mov    %r14d,0x40(%rsp)
  lea    0x0(,%r14,8),%rsi
  mov    (%rax,%r15,8),%rcx
  mov    (%rax,%r14,8),%rdx
  je     L32
  pxor   %xmm4,%xmm4
  xor    %eax,%eax
  movapd %xmm4,%xmm3
  nopw   0x0(%rax,%rax,1)
L252:
  movupd (%rcx,%rax,1),%xmm5
  movupd (%r12,%rax,1),%xmm0
  movupd (%rdx,%rax,1),%xmm6
  add    $0x10,%rax
  mulpd  %xmm5,%xmm0
  mulpd  %xmm6,%xmm0
  addsd  %xmm0,%xmm3
  unpckhpd %xmm0,%xmm0
  addsd  %xmm0,%xmm3
  movapd %xmm5,%xmm0
  mulpd  %xmm6,%xmm0
  movapd %xmm0,%xmm1
  unpckhpd %xmm0,%xmm0
  addsd  %xmm4,%xmm1
  movapd %xmm0,%xmm4
  addsd  %xmm1,%xmm4
  cmp    %r13,%rax
  jne    L252
  movslq 0x34(%rsp),%rax
  cmp    %eax,0xc(%rsp)
  je     L67
L274:
  movsd  (%rcx,%rax,8),%xmm2
  movsd  (%r12,%rax,8),%xmm1
  movsd  (%rdx,%rax,8),%xmm0
  mulsd  %xmm2,%xmm1
  mulsd  %xmm0,%xmm1
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm3
  addsd  %xmm0,%xmm4
L67:
  mov    0x0(%rbp,%r14,8),%rax
  movapd %xmm3,%xmm0
  mov    %rsi,0x28(%rsp)
  movsd  %xmm4,0x20(%rsp)
  subsd  (%rax,%rbx,1),%xmm0
  movsd  %xmm3,0x38(%rsp)
  call   <fabs@plt>
  mov    0x0(%rbp,%r14,8),%rdx
  mov    0x28(%rsp),%rsi
  mov    %eax,0x18(%rsp)
  mov    0x0(%rbp,%r15,8),%rax
  movsd  (%rdx,%rsi,1),%xmm0
  mulsd  (%rax,%rbx,1),%xmm0
  call   <sqrt@plt>
  movsd  0x20(%rsp),%xmm4
  mov    %eax,%r10d
  mov    0x18(%rsp),%eax
  cltd
  idiv   %r10d
  test   %eax,%eax
  jg     L158
L48:
  movapd %xmm4,%xmm0
  cmp    %r14d,0x30(%rsp)
  je     L154
L192:
  movsd  %xmm4,0x18(%rsp)
  call   <fabs@plt>
  test   %eax,%eax
  jle    L18
  movsd  0x18(%rsp),%xmm4
  mov    0x40(%rsp),%ecx
  lea    D143(%rip),%rsi
  lea    D59(%rip),%rdi
  mov    0x44(%rsp),%edx
  mov    $0x1,%eax
  movapd %xmm4,%xmm0
  call   <sprintf@plt>
  xor    %ecx,%ecx
  xor    %edx,%edx
  lea    D59(%rip),%rsi
  lea    D176(%rip),%rdi
  call   <ERRORMESSAGE@plt>
  addl   $0x1,0x50(%rsp)
L18:
  add    $0x1,%r14
  cmp    %r14d,0xc(%rsp)
  jg     L136
  add    $0x1,%r15
  cmp    0x58(%rsp),%r15
  jne    L82
L51:
  mov    0x50(%rsp),%eax
  add    $0x68,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L158:
  movsd  0x38(%rsp),%xmm3
  mov    0x0(%rbp,%r14,8),%rax
  movsd  %xmm4,0x18(%rsp)
  movapd %xmm3,%xmm0
  subsd  (%rax,%rbx,1),%xmm0
  movsd  %xmm3,0x20(%rsp)
  call   <fabs@plt>
  movsd  0x18(%rsp),%xmm4
  test   %eax,%eax
  jle    L48
  mov    0x0(%rbp,%r14,8),%rax
  mov    0x40(%rsp),%ecx
  lea    D84(%rip),%rsi
  lea    D59(%rip),%rdi
  movsd  0x20(%rsp),%xmm3
  mov    0x44(%rsp),%edx
  movsd  (%rax,%rbx,1),%xmm1
  mov    $0x3,%eax
  movapd %xmm3,%xmm2
  movapd %xmm3,%xmm0
  subsd  %xmm1,%xmm2
  call   <sprintf@plt>
  xor    %ecx,%ecx
  xor    %edx,%edx
  lea    D59(%rip),%rsi
  lea    D41(%rip),%rdi
  call   <ERRORMESSAGE@plt>
  movsd  0x18(%rsp),%xmm4
  addl   $0x1,0x50(%rsp)
  movapd %xmm4,%xmm0
  cmp    %r14d,0x30(%rsp)
  jne    L192
L154:
  subsd  D101(%rip),%xmm0
  jmp    L192
  nopl   (%rax)
L280:
  mov    0xc(%rsp),%esi
  mov    %r15d,%eax
  cmp    %r15d,%esi
  cmovle %esi,%eax
  xor    %r14d,%r14d
  mov    %eax,0x54(%rsp)
  nopl   0x0(%rax)
L1:
  mov    0x10(%rsp),%rax
  cmpl   $0x1,0xc(%rsp)
  mov    %r14d,0x18(%rsp)
  lea    0x0(,%r14,8),%rbx
  mov    %r14d,0x40(%rsp)
  mov    (%rax,%r15,8),%rdx
  mov    (%rax,%r14,8),%rcx
  je     L213
  pxor   %xmm4,%xmm4
  xor    %eax,%eax
  movapd %xmm4,%xmm3
  nopl   0x0(%rax)
L140:
  movupd (%rdx,%rax,1),%xmm5
  movupd (%r12,%rax,1),%xmm0
  movupd (%rcx,%rax,1),%xmm6
  add    $0x10,%rax
  mulpd  %xmm5,%xmm0
  mulpd  %xmm6,%xmm0
  addsd  %xmm0,%xmm3
  unpckhpd %xmm0,%xmm0
  addsd  %xmm0,%xmm3
  movapd %xmm5,%xmm0
  mulpd  %xmm6,%xmm0
  movapd %xmm0,%xmm1
  unpckhpd %xmm0,%xmm0
  addsd  %xmm4,%xmm1
  movapd %xmm0,%xmm4
  addsd  %xmm1,%xmm4
  cmp    %rax,%r13
  jne    L140
  movslq 0x34(%rsp),%rax
  cmp    %eax,0xc(%rsp)
  je     L206
L233:
  movsd  (%rdx,%rax,8),%xmm0
  movsd  (%r12,%rax,8),%xmm1
  movsd  (%rcx,%rax,8),%xmm2
  mulsd  %xmm0,%xmm1
  mulsd  %xmm2,%xmm0
  mulsd  %xmm2,%xmm1
  addsd  %xmm0,%xmm4
  addsd  %xmm1,%xmm3
L206:
  mov    0x0(%rbp,%r15,8),%rax
  movapd %xmm3,%xmm0
  movsd  %xmm4,0x28(%rsp)
  movsd  %xmm3,0x38(%rsp)
  subsd  (%rax,%rbx,1),%xmm0
  call   <fabs@plt>
  mov    0x0(%rbp,%r15,8),%rdx
  mov    0x48(%rsp),%rdi
  mov    %eax,0x20(%rsp)
  mov    0x0(%rbp,%r14,8),%rax
  movsd  (%rdx,%rdi,1),%xmm0
  mulsd  (%rax,%rbx,1),%xmm0
  call   <sqrt@plt>
  movsd  0x28(%rsp),%xmm4
  mov    %eax,%r10d
  mov    0x20(%rsp),%eax
  cltd
  idiv   %r10d
  test   %eax,%eax
  jg     L169
L225:
  movapd %xmm4,%xmm0
  cmp    %r14d,0x30(%rsp)
  je     L201
L131:
  movsd  %xmm4,0x20(%rsp)
  call   <fabs@plt>
  test   %eax,%eax
  jle    L23
  movsd  0x20(%rsp),%xmm4
  mov    0x40(%rsp),%ecx
  lea    D143(%rip),%rsi
  lea    D59(%rip),%rdi
  mov    0x44(%rsp),%edx
  mov    $0x1,%eax
  movapd %xmm4,%xmm0
  call   <sprintf@plt>
  xor    %ecx,%ecx
  xor    %edx,%edx
  lea    D59(%rip),%rsi
  lea    D176(%rip),%rdi
  call   <ERRORMESSAGE@plt>
  addl   $0x1,0x50(%rsp)
L23:
  mov    0x18(%rsp),%eax
  add    $0x1,%r14
  add    $0x1,%eax
  cmp    %r14d,0x54(%rsp)
  jg     L1
  cmp    0xc(%rsp),%eax
  jl     L38
  add    $0x1,%r15
  cmp    0x58(%rsp),%r15
  jne    L82
  jmp    L51
  nopw   0x0(%rax,%rax,1)
L169:
  movsd  0x38(%rsp),%xmm3
  mov    0x0(%rbp,%r15,8),%rax
  movsd  %xmm4,0x20(%rsp)
  movapd %xmm3,%xmm0
  subsd  (%rax,%rbx,1),%xmm0
  movsd  %xmm3,0x28(%rsp)
  call   <fabs@plt>
  movsd  0x20(%rsp),%xmm4
  test   %eax,%eax
  jle    L225
  mov    0x0(%rbp,%r15,8),%rax
  mov    0x40(%rsp),%ecx
  lea    D84(%rip),%rsi
  lea    D59(%rip),%rdi
  movsd  0x28(%rsp),%xmm3
  mov    0x44(%rsp),%edx
  movsd  (%rax,%rbx,1),%xmm1
  mov    $0x3,%eax
  movapd %xmm3,%xmm2
  movapd %xmm3,%xmm0
  subsd  %xmm1,%xmm2
  call   <sprintf@plt>
  xor    %ecx,%ecx
  xor    %edx,%edx
  lea    D59(%rip),%rsi
  lea    D41(%rip),%rdi
  call   <ERRORMESSAGE@plt>
  movsd  0x20(%rsp),%xmm4
  addl   $0x1,0x50(%rsp)
  movapd %xmm4,%xmm0
  cmp    %r14d,0x30(%rsp)
  jne    L131
L201:
  subsd  D101(%rip),%xmm0
  jmp    L131
  nopl   (%rax)
L213:
  pxor   %xmm4,%xmm4
  xor    %eax,%eax
  movapd %xmm4,%xmm3
  jmp    L233
  nop
L32:
  pxor   %xmm4,%xmm4
  xor    %eax,%eax
  movapd %xmm4,%xmm3
  jmp    L274
L238:
  movl   $0x0,0x50(%rsp)
  jmp    L51
```

tool_calls: name: read_data
arguments: tag: D143
type: string
name: read_data
arguments: tag: D176
type: string
name: read_data
arguments: tag: D84
type: string
name: read_data
arguments: tag: D41
type: string
name: read_data
arguments: tag: D101
type: f32[2]

tool: D143: %d %d %.17e 

tool: D176: cmaes_t:Eigen(): imprecise result detected (Q not orthog.)

tool: D84: %d %d: %.17e %.17e, %e

tool: D41: cmaes_t:Eigen(): imprecise result detected 

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

assistant: ```c
int Check_Eigen(int N, double **C, double *diag, double **Q) {
  int i, j, k, res = 0;
  double cc, dd;
  static char s[324];
  for (i = 0; i < N; ++i)
    for (j = 0; j < N; ++j) {
      for (cc = 0., dd = 0., k = 0; k < N; ++k) {
        cc += diag[k] * Q[i][k] * Q[j][k];
        dd += Q[i][k] * Q[j][k];
      }
      if (fabs(cc - C[i > j ? i : j][i > j ? j : i]) / sqrt(C[i][i] * C[j][j]) > 1e-10 && fabs(cc - C[i > j ? i : j][i > j ? j : i]) > 3e-14) {
        sprintf(s, "%d %d: %.17e %.17e, %e", i, j, cc, C[i > j ? i : j][i > j ? j : i], cc - C[i > j ? i : j][i > j ? j : i]);
        ERRORMESSAGE("cmaes_t:Eigen(): imprecise result detected ", s, 0, 0);
        ++res;
      }
      if (fabs(dd - (i == j)) > 1e-10) {
        sprintf(s, "%d %d %.17e ", i, j, dd);
        ERRORMESSAGE("cmaes_t:Eigen(): imprecise result detected (Q not orthog.)", s, 0, 0);
        ++res;
      }
    }
  return res;
}
```