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

```asm
<main>:
  endbr64
  push   %r15
  mov    $0x5,%esi
  mov    $0x1,%edi
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  call   <vector@plt>
  mov    $0x5,%esi
  mov    $0x1,%edi
  mov    %rax,0x20(%rsp)
  call   <vector@plt>
  mov    $0x5,%esi
  mov    $0x5,%ecx
  mov    $0x1,%edx
  mov    $0x1,%edi
  mov    %rax,0x28(%rsp)
  call   <matrix@plt>
  movss  D78(%rip),%xmm1
  mov    $0x1,%esi
  movss  D51(%rip),%xmm2
  mov    %rax,%rbp
L11:
  mov    %esi,%edx
  mov    0x0(%rbp,%rsi,8),%rcx
  mov    $0x1,%eax
  and    $0x1,%edx
L118:
  movaps %xmm1,%xmm0
  test   %edx,%edx
  je     L18
  test   $0x1,%al
  jne    L18
  movaps %xmm2,%xmm0
L18:
  movss  %xmm0,(%rcx,%rax,4)
  add    $0x1,%rax
  cmp    $0x6,%rax
  jne    L118
  add    $0x1,%rsi
  cmp    $0x6,%rsi
  jne    L11
  mov    0x20(%rsp),%rax
  mov    $0x4,%ebx
  lea    0x4(%rax),%r13
  mov    0x28(%rsp),%rax
  mov    %r13,0x8(%rsp)
  add    $0x4,%rax
  mov    %rax,(%rsp)
  mov    %rax,%r12
L86:
  movl   $0x0,0x0(%r13)
  mov    $0x4,%r15d
  movl   $0x0,(%r12)
L26:
  mov    0x0(%rbp,%rbx,2),%rax
  movss  (%rax,%r15,1),%xmm0
  call   <fabs@plt>
  pxor   %xmm0,%xmm0
  cvtsi2ss %rax,%xmm0
  addss  (%r12),%xmm0
  mov    0x0(%rbp,%r15,2),%rax
  add    $0x4,%r15
  movss  %xmm0,(%r12)
  movss  (%rax,%rbx,1),%xmm0
  call   <fabs@plt>
  pxor   %xmm0,%xmm0
  cvtsi2ss %rax,%xmm0
  addss  0x0(%r13),%xmm0
  movss  %xmm0,0x0(%r13)
  cmp    $0x18,%r15
  jne    L26
  add    $0x4,%rbx
  add    $0x4,%r13
  add    $0x4,%r12
  cmp    $0x18,%rbx
  jne    L86
  lea    D34(%rip),%rdi
  lea    D18(%rip),%r15
  call   <puts@plt>
  mov    0x28(%rsp),%rax
  mov    (%rsp),%rbx
  add    $0x18,%rax
  mov    %rax,0x18(%rsp)
L36:
  pxor   %xmm0,%xmm0
  mov    %r15,%rdi
  mov    $0x1,%eax
  add    $0x4,%rbx
  cvtss2sd -0x4(%rbx),%xmm0
  call   <printf@plt>
  cmp    0x18(%rsp),%rbx
  jne    L36
  lea    D49(%rip),%rdi
  call   <puts@plt>
  mov    0x20(%rsp),%rax
  mov    0x8(%rsp),%rbx
  add    $0x18,%rax
  mov    %rax,0x10(%rsp)
L90:
  pxor   %xmm0,%xmm0
  mov    %r15,%rdi
  mov    $0x1,%eax
  add    $0x4,%rbx
  cvtss2sd -0x4(%rbx),%xmm0
  call   <printf@plt>
  cmp    0x10(%rsp),%rbx
  jne    L90
  lea    D3(%rip),%rdi
  mov    $0x4,%ebx
  call   <puts@plt>
  mov    $0x5,%esi
  mov    %rbp,%rdi
  call   <balanc@plt>
  mov    (%rsp),%r12
  mov    0x8(%rsp),%r13
L19:
  movl   $0x0,0x0(%r13)
  mov    $0x4,%r14d
  movl   $0x0,(%r12)
L78:
  mov    0x0(%rbp,%rbx,2),%rax
  movss  (%rax,%r14,1),%xmm0
  call   <fabs@plt>
  pxor   %xmm0,%xmm0
  cvtsi2ss %rax,%xmm0
  addss  (%r12),%xmm0
  mov    0x0(%rbp,%r14,2),%rax
  add    $0x4,%r14
  movss  %xmm0,(%r12)
  movss  (%rax,%rbx,1),%xmm0
  call   <fabs@plt>
  pxor   %xmm0,%xmm0
  cvtsi2ss %rax,%xmm0
  addss  0x0(%r13),%xmm0
  movss  %xmm0,0x0(%r13)
  cmp    $0x18,%r14
  jne    L78
  add    $0x4,%rbx
  add    $0x4,%r13
  add    $0x4,%r12
  cmp    $0x18,%rbx
  jne    L19
  lea    D34(%rip),%rdi
  call   <puts@plt>
L40:
  mov    (%rsp),%rbx
  pxor   %xmm0,%xmm0
  mov    %r15,%rdi
  mov    $0x1,%eax
  cvtss2sd (%rbx),%xmm0
  call   <printf@plt>
  add    $0x4,%rbx
  mov    %rbx,(%rsp)
  cmp    0x18(%rsp),%rbx
  jne    L40
  lea    D49(%rip),%rdi
  call   <puts@plt>
L37:
  mov    0x8(%rsp),%rbx
  pxor   %xmm0,%xmm0
  mov    %r15,%rdi
  mov    $0x1,%eax
  cvtss2sd (%rbx),%xmm0
  call   <printf@plt>
  add    $0x4,%rbx
  mov    %rbx,0x8(%rsp)
  cmp    %rbx,0x10(%rsp)
  jne    L37
  mov    $0xa,%edi
  call   <putchar@plt>
  mov    $0x5,%r8d
  mov    $0x1,%ecx
  mov    %rbp,%rdi
  mov    $0x5,%edx
  mov    $0x1,%esi
  call   <free_matrix@plt>
  mov    0x28(%rsp),%rdi
  mov    $0x5,%edx
  mov    $0x1,%esi
  call   <free_vector@plt>
  mov    0x20(%rsp),%rdi
  mov    $0x5,%edx
  mov    $0x1,%esi
  call   <free_vector@plt>
  add    $0x38,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: unpack_data
arguments: data_tag: D78
datatype: f32
name: unpack_data
arguments: data_tag: D51
datatype: f32
name: unpack_data
arguments: data_tag: D34
datatype: string
name: unpack_data
arguments: data_tag: D18
datatype: string
name: unpack_data
arguments: data_tag: D49
datatype: string
name: unpack_data
arguments: data_tag: D3
datatype: string

tool: D78: 1

tool: D51: 100

tool: D34: rows:

tool: D18: %12.2f

tool: D49: 
columns:

tool: D3: 

***** Balancing matrix *****


assistant: ```c
int main(void) {
  int i, j;
  float *c, *r, **a;
  c = vector(1, 5);
  r = vector(1, 5);
  a = matrix(1, 5, 1, 5);
  for (i = 1; i <= 5; i++)
    for (j = 1; j <= 5; j++)
      a[i][j] = (((i & 1) && !(j & 1)) ? 100.0 : 1.0);
  for (i = 1; i <= 5; i++) {
    r[i] = c[i] = 0.0;
    for (j = 1; j <= 5; j++) {
      r[i] += fabs(a[i][j]);
      c[i] += fabs(a[j][i]);
    }
  }
  printf("rows:\n");
  for (i = 1; i <= 5; i++)
    printf("%12.2f", r[i]);
  printf("\ncolumns:\n");
  for (i = 1; i <= 5; i++)
    printf("%12.2f", c[i]);
  printf("\n\n***** Balancing matrix *****\n\n");
  balanc(a, 5);
  for (i = 1; i <= 5; i++) {
    r[i] = c[i] = 0.0;
    for (j = 1; j <= 5; j++) {
      r[i] += fabs(a[i][j]);
      c[i] += fabs(a[j][i]);
    }
  }
  printf("rows:\n");
  for (i = 1; i <= 5; i++)
    printf("%12.2f", r[i]);
  printf("\ncolumns:\n");
  for (i = 1; i <= 5; i++)
    printf("%12.2f", c[i]);
  printf("\n");
  free_matrix(a, 1, 5, 1, 5);
  free_vector(r, 1, 5);
  free_vector(c, 1, 5);
  return 0;
}
```