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

```asm
<mutual>:
  endbr64
  push   %r15
  mov    %edx,%r15d
  push   %r14
  mov    %ecx,%r14d
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    %rsi,%rbx
  mov    $0x4,%esi
  sub    $0x18,%rsp
  mov    %edi,(%rsp)
  mov    %edx,%edi
  call   <calloc@plt>
  mov    $0x4,%esi
  mov    %r14d,%edi
  mov    %rax,%rbp
  call   <calloc@plt>
  mov    %rax,%r13
  test   %r14d,%r14d
  jle    L71
  movslq %r14d,%rdx
  xor    %esi,%esi
  mov    %rax,%rdi
  shl    $0x2,%rdx
  call   <memset@plt>
L71:
  test   %r15d,%r15d
  jle    L112
  mov    %r15d,%eax
  mov    %rbp,%rdx
  lea    -0x1(%r15),%r8d
  xor    %r12d,%r12d
  lea    0x0(%rbp,%rax,4),%r9
  mov    %rbp,%rax
  neg    %rax
  lea    (%rbx,%rax,2),%r11
  lea    -0x2(%r14),%eax
  lea    0x8(,%rax,4),%r10
  nopl   0x0(%rax)
L82:
  movl   $0x0,(%rdx)
  test   %r14d,%r14d
  jle    L109
  mov    (%r11,%rdx,2),%rsi
  mov    %r13,%rcx
  mov    (%rsi),%eax
  lea    (%rsi,%r10,1),%rdi
  sub    %rsi,%rcx
  mov    %eax,(%rdx)
  add    %eax,0x0(%r13)
  lea    0x4(%rsi),%rax
  cmp    $0x1,%r14d
  je     L1
  nopl   0x0(%rax,%rax,1)
L84:
  mov    (%rax),%esi
  add    %esi,(%rdx)
  mov    (%rax),%esi
  add    %esi,(%rcx,%rax,1)
  add    $0x4,%rax
  cmp    %rax,%rdi
  jne    L84
L1:
  add    (%rdx),%r12d
L109:
  add    $0x4,%rdx
  cmp    %rdx,%r9
  jne    L82
  mov    (%rsp),%edx
  test   %edx,%edx
  je     L46
L40:
  mov    (%rbx),%rax
  movsd  D36(%rip),%xmm1
  mov    (%rax),%eax
  test   %eax,%eax
  jne    L52
L104:
  add    $0x18,%rsp
  movapd %xmm1,%xmm0
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L52:
  pxor   %xmm0,%xmm0
  pxor   %xmm1,%xmm1
  pxor   %xmm2,%xmm2
  cvtsi2sd %eax,%xmm0
  cvtsi2sd %r12d,%xmm1
  cvtsi2sdl 0x0(%r13),%xmm2
  mulsd  %xmm1,%xmm0
  pxor   %xmm1,%xmm1
  cvtsi2sdl 0x0(%rbp),%xmm1
  mulsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  call   <log@plt>
  movapd %xmm0,%xmm1
  divsd  D35(%rip),%xmm1
  jmp    L104
L46:
  mov    %rbp,%rdi
  mov    %r14d,%ecx
  mov    %r14d,%edx
  mov    %r12d,%esi
  mov    %r8,0x8(%rsp)
  call   <entropy_term@plt>
  mov    %r15d,%ecx
  mov    %r15d,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  movsd  %xmm0,(%rsp)
  imul   %r14d,%r15d
  call   <entropy_term@plt>
  movsd  (%rsp),%xmm1
  mov    0x8(%rsp),%r8
  mov    %rbp,0x8(%rsp)
  xorpd  D33(%rip),%xmm1
  mov    %rbx,%rbp
  lea    0x8(%rbx,%r8,8),%rax
  subsd  %xmm0,%xmm1
  mov    %rax,%rbx
  nopw   0x0(%rax,%rax,1)
L18:
  mov    0x0(%rbp),%rdi
  mov    %r15d,%ecx
  mov    %r14d,%edx
  mov    %r12d,%esi
  movsd  %xmm1,(%rsp)
  add    $0x8,%rbp
  call   <entropy_term@plt>
  movsd  (%rsp),%xmm1
  addsd  %xmm0,%xmm1
  cmp    %rbp,%rbx
  jne    L18
  mov    0x8(%rsp),%rbp
L2:
  mov    %rbp,%rdi
  movsd  %xmm1,(%rsp)
  call   <free@plt>
  mov    %r13,%rdi
  call   <free@plt>
  movsd  (%rsp),%xmm1
  jmp    L104
L112:
  mov    (%rsp),%eax
  xor    %r12d,%r12d
  test   %eax,%eax
  jne    L40
  mov    %r14d,%ecx
  mov    %r14d,%edx
  xor    %esi,%esi
  mov    %rbp,%rdi
  call   <entropy_term@plt>
  mov    %r15d,%ecx
  mov    %r15d,%edx
  xor    %esi,%esi
  mov    %r13,%rdi
  movsd  %xmm0,(%rsp)
  call   <entropy_term@plt>
  movsd  (%rsp),%xmm1
  xorpd  D33(%rip),%xmm1
  subsd  %xmm0,%xmm1
  jmp    L2
```

tool_calls: name: unpack_data
arguments: tag: D36
type: byte[8]
name: unpack_data
arguments: tag: D35
type: byte[8]
name: unpack_data
arguments: tag: D33
type: byte[16]

tool: {"D36": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0xbf]}

tool: {"D35": [0xef,0x39,0xfa,0xfe,0x42,0x2e,0xe6,0x3f]}

tool: {"D33": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

assistant: ```c
double mutual(int single_cell, int **table, int rows, int cols) {
  double sum;
  int *rowsums, *colsums;
  int total;
  int i, j;
  total = 0;
  rowsums = (int *)calloc(rows, sizeof(rowsums[0]));
  colsums = (int *)calloc(cols, sizeof(colsums[0]));
  for (j = 0; j < cols; j++) {
    colsums[j] = 0;
  }
  for (i = 0; i < rows; i++) {
    rowsums[i] = 0;
    for (j = 0; j < cols; j++) {
      rowsums[i] += table[i][j];
      colsums[j] += table[i][j];
    }
    total += rowsums[i];
  }
  if (single_cell) {
    if (table[0][0] == 0) {
      return -1;
    } else {
      return log((double)table[0][0] * total / ((double)rowsums[0] * colsums[0])) / log(2.0);
    }
  } else {
    sum = -entropy_term(rowsums, total, cols, cols) - entropy_term(colsums, total, rows, rows);
    for (i = 0; i < rows; i++) {
      sum += entropy_term(table[i], total, cols, rows * cols);
    }
    free(rowsums);
    free(colsums);
    return sum;
  }
}
```