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

```asm
<main>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %rsi,%rbp
  push   %rbx
  sub    $0x848,%rsp
  mov    0x8(%rsi),%rsi
  mov    %fs:0x28,%rax
  mov    %rax,0x838(%rsp)
  xor    %eax,%eax
  lea    0x30(%rsp),%r8
  lea    0x230(%rsp),%r15
  mov    %r8,%rdi
  mov    %r8,0x10(%rsp)
  lea    0x430(%rsp),%rbx
  call   <strcpy@plt>
  mov    0x10(%rbp),%rsi
  mov    %r15,%rdi
  call   <strcpy@plt>
  mov    0x18(%rbp),%rdi
  xor    %eax,%eax
  call   <atoi@plt>
  mov    0x20(%rbp),%rdi
  mov    %eax,%r13d
  xor    %eax,%eax
  call   <atoi@plt>
  mov    %r13d,%r14d
  mov    0x28(%rbp),%rsi
  mov    %rbx,%rdi
  mov    %eax,%r12d
  call   <strcpy@plt>
  imul   %r12d,%r14d
  mov    0x30(%rbp),%rsi
  lea    0x630(%rsp),%rax
  mov    %rax,%rdi
  mov    %rax,0x18(%rsp)
  call   <strcpy@plt>
  movslq %r14d,%rdx
  lea    0x0(,%rdx,8),%rdi
  mov    %rdx,0x8(%rsp)
  call   <malloc@plt>
  mov    0x8(%rsp),%rdx
  mov    %rax,%rbp
  lea    0x0(,%rdx,4),%rdi
  mov    %rdi,0x8(%rsp)
  call   <malloc@plt>
  mov    0x8(%rsp),%rdi
  mov    %rax,0x20(%rsp)
  call   <malloc@plt>
  mov    %r14d,%esi
  mov    %rbp,%rdi
  mov    %rax,0x8(%rsp)
  xor    %eax,%eax
  call   <zeros@plt>
  mov    %r12d,%edx
  mov    %r13d,%esi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <print_data_double@plt>
  mov    %r12d,%edi
  xor    %eax,%eax
  call   <rand_int@plt>
  mov    %r12d,%ecx
  mov    %r13d,%esi
  mov    %rbp,%rdi
  mov    %eax,%edx
  xor    %eax,%eax
  call   <check_mat@plt>
  mov    0x10(%rsp),%r8
  test   %eax,%eax
  je     L23
L12:
  mov    $0x1,%r9d
L15:
  mov    0x838(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L7
  add    $0x848,%rsp
  mov    %r9d,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L23:
  mov    %eax,0x10(%rsp)
  mov    %r12d,%edi
  xor    %eax,%eax
  mov    %r8,0x28(%rsp)
  call   <rand_int@plt>
  mov    %r14d,%ecx
  mov    %r13d,%esi
  mov    %rbp,%rdi
  sub    %r12d,%ecx
  mov    %eax,%edx
  add    %eax,%ecx
  movslq %ecx,%rcx
  lea    0x0(%rbp,%rcx,8),%rax
  mov    %r12d,%ecx
  movsd  (%rax),%xmm0
  divsd  D1(%rip),%xmm0
  movsd  %xmm0,(%rax)
  xor    %eax,%eax
  call   <check_mat@plt>
  test   %eax,%eax
  je     L12
  mov    0x28(%rsp),%rdi
  mov    %rbp,%rcx
  mov    %r12d,%edx
  mov    %r13d,%esi
  xor    %eax,%eax
  call   <read_data_double@plt>
  mov    %r14d,%esi
  mov    $0x2,%edx
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <update_m@plt>
  mov    %rbx,%rdi
  mov    %rbp,%rcx
  mov    %r12d,%edx
  mov    %r13d,%esi
  xor    %eax,%eax
  call   <write_data_double@plt>
  mov    0x20(%rsp),%r14
  mov    %r12d,%edx
  mov    %r13d,%esi
  mov    %r15,%rdi
  xor    %eax,%eax
  mov    %r14,%rcx
  call   <read_data_float@plt>
  mov    0x8(%rsp),%rbx
  mov    %r12d,%ecx
  mov    %r13d,%edx
  mov    %r14,%rdi
  xor    %eax,%eax
  mov    %rbx,%rsi
  call   <create_I@plt>
  mov    0x18(%rsp),%rdi
  mov    %rbx,%rcx
  mov    %r12d,%edx
  mov    %r13d,%esi
  xor    %eax,%eax
  call   <write_data_int@plt>
  mov    %rbp,%rdi
  call   <free@plt>
  mov    %r14,%rdi
  call   <free@plt>
  mov    %rbx,%rdi
  call   <free@plt>
  mov    0x10(%rsp),%r9d
  jmp    L15
L7:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D1
data_type: byte[8]

tool: {"D1": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

assistant: ```c
int main(int argc, char *argv[]) {
  char input_file[512];
  char input_file2[512];
  char output_file1[512];
  char output_file2[512];
  int N, M, j;
  double *data;
  float *fata;
  int *I, *col;
  strcpy(input_file, argv[1]);
  strcpy(input_file2, argv[2]);
  N = (int)atoi(argv[3]);
  M = (int)atoi(argv[4]);
  strcpy(output_file1, argv[5]);
  strcpy(output_file2, argv[6]);
  data = (double *)malloc(N * M * sizeof(double));
  fata = (float *)malloc(N * M * sizeof(float));
  I = (int *)malloc(N * M * sizeof(int));
  col = (int *)malloc(M * sizeof(int));
  zeros(data, N * M);
  print_data_double(data, N, M);
  if (check_mat(data, N, rand_int(M), M))
    return 1;
  j = rand_int(M);
  data[(N - 1) * M + j] /= 0;
  if (!check_mat(data, N, j, M))
    return 1;
  read_data_double(input_file, N, M, data);
  update_m(data, N * M, 2);
  write_data_double(output_file1, N, M, data);
  read_data_float(input_file2, N, M, fata);
  create_I(fata, I, N, M);
  write_data_int(output_file2, N, M, I);
  free(data);
  free(fata);
  free(I);
  free(col);
  return 0;
}
```