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

```asm
<cmio_ce>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x100,%rsp
  movsd  %xmm0,-0x68(%rbp)
  movsd  %xmm1,-0x70(%rbp)
  movsd  %xmm2,-0x78(%rbp)
  movsd  %xmm3,-0x80(%rbp)
  mov    %edi,-0x84(%rbp)
  mov    %esi,-0x88(%rbp)
  mov    %rdx,-0x90(%rbp)
  mov    %rcx,-0x98(%rbp)
  mov    %r8,-0xa0(%rbp)
  mov    %r9d,-0xa4(%rbp)
  mov    0x10(%rbp),%rax
  mov    %rax,-0xb0(%rbp)
  mov    0x18(%rbp),%rax
  mov    %rax,-0xb8(%rbp)
  mov    0x20(%rbp),%rax
  mov    %rax,-0xc0(%rbp)
  mov    0x30(%rbp),%rax
  mov    %rax,-0xc8(%rbp)
  mov    0x38(%rbp),%rax
  mov    %rax,-0xd0(%rbp)
  mov    0x40(%rbp),%rax
  mov    %rax,-0xd8(%rbp)
  mov    0x48(%rbp),%rax
  mov    %rax,-0xe0(%rbp)
  mov    0x50(%rbp),%rax
  mov    %rax,-0xe8(%rbp)
  mov    0x58(%rbp),%rax
  mov    %rax,-0xf0(%rbp)
  mov    0x60(%rbp),%rax
  mov    %rax,-0xf8(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movsd  -0x80(%rbp),%xmm0
  divsd  -0x78(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log10@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x40(%rbp)
  movl   $0x0,-0x50(%rbp)
  jmp    L80
L43:
  addl   $0x1,0x68(%rbp)
  addl   $0x1,-0x50(%rbp)
L80:
  mov    -0x50(%rbp),%eax
  cmp    -0xa4(%rbp),%eax
  jl     L43
  cmpl   $0x63,0x68(%rbp)
  jg     L74
  cmpl   $0x0,0x70(%rbp)
  jne    L22
L74:
  movl   $0x0,-0x4c(%rbp)
  jmp    L32
L131:
  addl   $0x1,-0x4c(%rbp)
L32:
  mov    -0x4c(%rbp),%eax
  cmp    0x68(%rbp),%eax
  jl     L131
  movl   $0x0,0x68(%rbp)
L22:
  movl   $0x0,0x28(%rbp)
  mov    -0xc0(%rbp),%rax
  mov    (%rax),%eax
  cmp    $0x1,%eax
  jne    L103
  cmpl   $0x0,-0xa4(%rbp)
  jle    L103
  mov    -0xc8(%rbp),%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0xc0(%rbp),%rax
  add    $0x8,%rax
  mov    (%rax),%eax
  cmp    $0x1,%eax
  jne    L129
  lea    -0x30(%rbp),%rax
  lea    D7(%rip),%rdx
  mov    $0x26,%esi
  mov    %rax,%rdi
  call   <snprintf@plt>
  lea    -0x48(%rbp),%rdx
  lea    -0x54(%rbp),%rsi
  lea    -0x58(%rbp),%rcx
  mov    -0x38(%rbp),%rax
  mov    %rcx,%rdi
  movq   %rax,%xmm0
  call   <cmio_jd2y@plt>
  jmp    L108
L129:
  mov    -0xc0(%rbp),%rax
  add    $0x8,%rax
  mov    (%rax),%eax
  cmp    $0x3,%eax
  jne    L96
  lea    -0x30(%rbp),%rax
  lea    D34(%rip),%rdx
  mov    $0x26,%esi
  mov    %rax,%rdi
  call   <snprintf@plt>
  movsd  -0x38(%rbp),%xmm0
  subsd  -0x70(%rbp),%xmm0
  movsd  D18(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  jmp    L108
L96:
  lea    -0x30(%rbp),%rax
  lea    D1(%rip),%rdx
  mov    $0x26,%esi
  mov    %rax,%rdi
  call   <snprintf@plt>
  mov    -0xc0(%rbp),%rax
  add    $0x8,%rax
  mov    (%rax),%eax
  test   %eax,%eax
  jne    L98
  movsd  -0x38(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
L98:
  mov    -0xc0(%rbp),%rax
  add    $0x8,%rax
  mov    (%rax),%eax
  cmp    $0x2,%eax
  jne    L108
  movsd  -0x38(%rbp),%xmm0
  subsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
L108:
  movl   $0x1,0x28(%rbp)
L103:
  mov    $0x0,%eax
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L16
  call   <__stack_chk_fail@plt>
L16:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: tag: D7
type_infered: string
name: unpack_data
arguments: tag: D34
type_infered: string
name: unpack_data
arguments: tag: D18
type_infered: f64
name: unpack_data
arguments: tag: D1
type_infered: string

tool: D7: (5a,/,9x,a,i10,1x,i2,1x,f4.1)

tool: D34: (5a,/,9x,a,f14.3,a)

tool: D18: 365.25

tool: D1: (5a,/,9x,a,f14.1,a)

assistant: ```c
int cmio_ce(double time, double tstart, double rcen, double rmax, int nbod, int nbig, double *m, int *stat, char **id, int nclo, int *iclo, int *jclo, int opt[8], int stopflag, double *tclo, double *dclo, double **ixvclo, double **jxvclo, char **mem, int lmem[200], FILE *outfile, int nstored, int ceflush) {
  int year, month;
  double tmp0, t1, rfac, fr, fv, theta, phi, vtheta, vphi;
  static char c[200][80];
  char fstop[38];
  char *mio_fl2c_out, *mio_re2c_out;
  char tstring[6];
  rfac = log10(rmax / rcen);
  for (int k = 0; k < nclo; k++) {
    nstored++;
  }
  if (nstored >= 100 || ceflush == 0) {
    for (int k = 0; k < nstored; k++) {
    }
    nstored = 0;
  }
  stopflag = 0;
  if (opt[0] == 1 && nclo > 0) {
    tmp0 = tclo[0];
    if (opt[2] == 1) {
      snprintf(fstop, sizeof(fstop), "(5a,/,9x,a,i10,1x,i2,1x,f4.1)");
      cmio_jd2y(tmp0, &year, &month, &t1);
    } else {
      if (opt[2] == 3) {
        snprintf(fstop, sizeof(fstop), "(5a,/,9x,a,f14.3,a)");
        t1 = (tmp0 - tstart) / 365.250;
      } else {
        snprintf(fstop, sizeof(fstop), "(5a,/,9x,a,f14.1,a)");
        if (opt[2] == 0) {
          t1 = tmp0;
        }
        if (opt[2] == 2) {
          t1 = tmp0 - tstart;
        }
      }
    }
    stopflag = 1;
  }
  return 0;
}
```