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

```asm
<calculate_output>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  mov    %rdi,-0x38(%rbp)
  mov    %rsi,-0x40(%rbp)
  mov    %rdx,-0x48(%rbp)
  mov    %rcx,-0x50(%rbp)
  mov    %r8,-0x58(%rbp)
  mov    %r9,-0x60(%rbp)
  movl   $0x0,-0x18(%rbp)
  movl   $0x3e7,-0x14(%rbp)
  mov    -0x18(%rbp),%eax
  mov    %eax,-0x20(%rbp)
  jmp    L75
L65:
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x20(%rbp)
L75:
  mov    -0x20(%rbp),%eax
  cmp    -0x14(%rbp),%eax
  jle    L65
  movl   $0x0,-0x18(%rbp)
  movl   $0x3e7,-0x14(%rbp)
  mov    -0x18(%rbp),%eax
  mov    %eax,-0x20(%rbp)
  jmp    L46
L0:
  movl   $0x0,-0x1c(%rbp)
  jmp    L45
L66:
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  mov    -0x20(%rbp),%eax
  cltq
  imul   $0x1f40,%rax,%rdx
  mov    -0x48(%rbp),%rax
  add    %rax,%rdx
  mov    -0x1c(%rbp),%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm0
  mulsd  %xmm2,%xmm0
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x60(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm3
  mov    -0x20(%rbp),%eax
  cltq
  imul   $0x1f40,%rax,%rdx
  mov    -0x50(%rbp),%rax
  add    %rax,%rdx
  mov    -0x1c(%rbp),%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm2
  mulsd  %xmm3,%xmm2
  subsd  %xmm2,%xmm0
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x60(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  mov    -0x20(%rbp),%eax
  cltq
  imul   $0x1f40,%rax,%rdx
  mov    -0x48(%rbp),%rax
  add    %rax,%rdx
  mov    -0x1c(%rbp),%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm0
  mulsd  %xmm0,%xmm2
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm3
  mov    -0x20(%rbp),%eax
  cltq
  imul   $0x1f40,%rax,%rdx
  mov    -0x50(%rbp),%rax
  add    %rax,%rdx
  mov    -0x1c(%rbp),%eax
  cltq
  movsd  (%rdx,%rax,8),%xmm0
  mulsd  %xmm3,%xmm0
  addsd  %xmm2,%xmm0
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  addsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L45:
  cmpl   $0x3e7,-0x1c(%rbp)
  jle    L66
  addl   $0x1,-0x20(%rbp)
L46:
  mov    -0x20(%rbp),%eax
  cmp    -0x14(%rbp),%eax
  jle    L0
  movl   $0x0,-0x24(%rbp)
  mov    D3(%rip),%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movl   $0x0,-0x20(%rbp)
  jmp    L39
L13:
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x8(%rbp),%xmm0
  comisd -0x10(%rbp),%xmm0
  jb     L36
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x20(%rbp),%eax
  jmp    L33
L36:
  mov    -0x24(%rbp),%eax
L33:
  mov    %eax,-0x24(%rbp)
  addl   $0x1,-0x20(%rbp)
L39:
  cmpl   $0x3e7,-0x20(%rbp)
  jle    L13
  mov    -0x24(%rbp),%eax
  pop    %rbp
  ret
```

assistant: ```c
int calculate_output(double aux_real[1000], double aux_img[1000], double matrice_real[1000][1000], double matrice_img[1000][1000], double snapshot_real[1000], double snapshot_img[1000]) {
  int i, j, t;
  double val, t_val;
  int t1, t2, t3;
  int lb, ub, lbp, ubp, lb2, ub2;
  register int lbv, ubv;
  lbp = 0;
  ubp = 1000 - 1;
#pragma omp parallel for private(lbv, ubv, t3)
  for (t2 = lbp; t2 <= ubp; t2++) {
    aux_img[t2] = 0;
    ;
    aux_real[t2] = 0;
    ;
  }
  if (1000 >= 1) {
    lbp = 0;
    ubp = 1000 - 1;
#pragma omp parallel for private(lbv, ubv, t3)
    for (t2 = lbp; t2 <= ubp; t2++) {
      for (t3 = 0; t3 <= 1000 - 1; t3++) {
        aux_real[t2] += snapshot_real[t3] * matrice_real[t2][t3] - snapshot_img[t3] * matrice_img[t2][t3];
        aux_img[t2] += snapshot_img[t3] * matrice_real[t2][t3] + snapshot_real[t3] * matrice_img[t2][t3];
        ;
      }
    }
  }
  t = 0;
  ;
  t_val = DBL_MIN;
  ;
  if (1000 >= 1) {
    for (t2 = 0; t2 <= 1000 - 1; t2++) {
      val = aux_real[t2] * aux_real[t2] + aux_img[t2] * aux_img[t2];
      t = (val >= t_val) ? (t_val = val, t2) : t;
      ;
    }
  }
  return t;
}
```