user: Converte this assembly snippet into its equivalent C code:

```asm
<eigenvalue>:
  endbr64
  push   %rbp
  mov    %rdi,%r8
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  mov    %edx,%ebx
  sub    $0x38,%rsp
  mov    %rsi,-0x60(%rbp)
  mov    %edx,%esi
  imul   %edx,%esi
  mov    %rsp,%rdi
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  movslq %esi,%rax
  lea    0xf(,%rax,4),%rax
  mov    %rax,%r9
  mov    %rax,%rdx
  and    $0xfffffffffffff000,%r9
  and    $0xfffffffffffffff0,%rdx
  sub    %r9,%rdi
  cmp    %rdi,%rsp
  je     L31
L101:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdi,%rsp
  jne    L101
L31:
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  jne    L79
L215:
  mov    %rax,%r10
  mov    %rsp,%rdi
  mov    %rax,%rdx
  mov    %rsp,%r14
  and    $0xfffffffffffff000,%r10
  and    $0xfffffffffffffff0,%rdx
  sub    %r10,%rdi
  cmp    %rdi,%rsp
  je     L150
L12:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdi,%rsp
  jne    L12
L150:
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  jne    L68
L60:
  mov    %rax,%rdx
  mov    %rsp,%rdi
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%r13
  sub    %rax,%rdi
  and    $0xfffffffffffffff0,%rdx
  cmp    %rdi,%rsp
  je     L147
L98:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdi,%rsp
  jne    L98
L147:
  mov    %rdx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L23
  orq    $0x0,-0x8(%rsp,%rax,1)
L23:
  lea    0x0(,%rsi,4),%edx
  movslq %ebx,%r15
  mov    %r8,%rsi
  mov    %r14,%rdi
  call   <memcpy@plt>
  lea    0x4(,%r15,4),%rax
  mov    %rsp,%r12
  xor    %r10d,%r10d
  mov    %rax,-0x58(%rbp)
  lea    0x0(,%r15,4),%r8
  nopl   0x0(%rax,%rax,1)
L77:
  mov    %ebx,%ecx
  mov    %r12,%rdx
  mov    %r13,%rsi
  mov    %r14,%rdi
  mov    %r10d,-0x44(%rbp)
  mov    %r8,-0x50(%rbp)
  call   <qrdecomp@plt>
  mov    %ebx,%ecx
  mov    %r14,%rdx
  mov    %r13,%rsi
  mov    %r12,%rdi
  call   <matmul@plt>
  test   %ebx,%ebx
  mov    -0x44(%rbp),%r10d
  jle    L167
  cmp    $0x1,%ebx
  mov    -0x50(%rbp),%r8
  pxor   %xmm1,%xmm1
  movss  D5(%rip),%xmm2
  je     L169
  mov    %r14,%rdx
  mov    $0x1,%esi
  pxor   %xmm1,%xmm1
  nopl   (%rax)
L78:
  mov    %rsi,%rax
  nopl   0x0(%rax,%rax,1)
L210:
  movss  (%rdx,%rax,4),%xmm0
  add    $0x1,%rax
  andps  %xmm2,%xmm0
  maxss  %xmm1,%xmm0
  movaps %xmm0,%xmm1
  cmp    %eax,%ebx
  jg     L210
  add    $0x1,%rsi
  add    %r8,%rdx
  cmp    %r15,%rsi
  jne    L78
L169:
  movsd  D12(%rip),%xmm3
  cvtss2sd %xmm1,%xmm1
  comisd %xmm1,%xmm3
  ja     L129
  add    $0x1,%r10d
  cmp    $0x64,%r10d
  jne    L77
  test   %ebx,%ebx
  jle    L200
  mov    -0x60(%rbp),%rdx
  lea    -0x1(%rbx),%eax
  mov    %r14,%r9
  lea    0x4(%rdx,%rax,4),%rax
L116:
  movss  (%r9),%xmm0
  add    $0x4,%rdx
  add    -0x58(%rbp),%r9
  movss  %xmm0,-0x4(%rdx)
  cmp    %rax,%rdx
  jne    L116
L200:
  xor    %r10d,%r10d
L167:
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L146
  lea    -0x28(%rbp),%rsp
  mov    %r10d,%eax
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
L79:
  orq    $0x0,-0x8(%rsp,%rdx,1)
  jmp    L215
L68:
  orq    $0x0,-0x8(%rsp,%rdx,1)
  jmp    L60
L129:
  test   %ebx,%ebx
  jle    L167
  mov    -0x60(%rbp),%rdx
  lea    -0x1(%rbx),%eax
  mov    %r14,%r9
  lea    0x4(%rdx,%rax,4),%rax
L137:
  movss  (%r9),%xmm0
  add    $0x4,%rdx
  add    -0x58(%rbp),%r9
  movss  %xmm0,-0x4(%rdx)
  cmp    %rax,%rdx
  jne    L137
  jmp    L167
L146:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: data_tag: D5
data_type: dword
name: disassemble_data
arguments: data_tag: D12
data_type: f64

tool: D5: 2147483647

tool: D12: 0.0001

assistant: ```c
int eigenvalue(float A0[], float lambda[], int N) {
  int iter, i;
  int row, col;
  float max;
  float tmp;
  int sz = N * N;
  float A[sz], Q[sz], QQ[sz], R[sz];
  memcpy(A, A0, sizeof(A));
  for (iter = 0; iter < 100; iter++) {
    qrdecomp(A, Q, R, N);
    matmul(R, Q, A, N);
    max = 0;
    for (col = 0; col < N; col++) {
      for (row = col + 1; row < N; row++) {
        tmp = fabsf(A[(col) * (N) + (row)]);
        if (tmp > max) {
          max = tmp;
        }
      }
    }
    if (max < 0.0001) {
      for (i = 0; i < N; i++) {
        lambda[i] = A[(i) * (N) + (i)];
      }
      return iter;
    }
  }
  for (i = 0; i < N; i++) {
    lambda[i] = A[(i) * (N) + (i)];
  }
  return 0;
}
```