user: Please show me the C implementation that matches the assembly code listed below:

```asm
<adaptive_step>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x58,%rsp
  mov    %edi,%r12d
  movss  %xmm0,0xc(%rsp)
  movss  %xmm1,0x28(%rsp)
  mov    %rsi,%r13
  mov    %rdx,0x30(%rsp)
  movss  %xmm2,0x2c(%rsp)
  movss  %xmm3,0x3c(%rsp)
  movss  %xmm4,0x38(%rsp)
  mov    %rcx,%rbx
  mov    %r8,0x10(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x48(%rsp)
  xor    %eax,%eax
  lea    0x1(%rdi),%ebp
  movslq %ebp,%rbp
  shl    $0x2,%rbp
  mov    %rbp,%rdi
  call   <malloc@plt>
  mov    %rax,%r15
  mov    %rbp,%rdi
  call   <malloc@plt>
  mov    %rax,0x18(%rsp)
  mov    %rbp,%rdi
  call   <malloc@plt>
  mov    %rax,0x20(%rsp)
  movl   $0x0,(%rbx)
  test   %r12d,%r12d
  jle    L93
  lea    0x4(%r15),%rax
  lea    -0x1(%r12),%edx
  lea    0x8(%r15,%rdx,4),%rdx
  sub    %r15,%r13
L1:
  movss  0x0(%r13,%rax,1),%xmm0
  movss  %xmm0,(%rax)
  add    $0x4,%rax
  cmp    %rdx,%rax
  jne    L1
L93:
  pxor   %xmm2,%xmm2
  movss  %xmm2,0x8(%rsp)
  mov    0x18(%rsp),%r14
  sub    %r15,%r14
  mov    0x20(%rsp),%r13
  sub    %r15,%r13
  jmp    L43
L6:
  lea    0x44(%rsp),%rcx
  lea    0x3c(%rsp),%rdx
  mov    0x10(%rsp),%r9
  mov    0x20(%rsp),%r8
  movss  0x38(%rsp),%xmm2
  movss  0x2c(%rsp),%xmm1
  mov    %r15,%rsi
  movss  0x8(%rsp),%xmm0
  mov    %r12d,%edi
  call   <adaptive_heun@plt>
  movss  0x8(%rsp),%xmm6
  addss  0x3c(%rsp),%xmm6
  movss  %xmm6,0x8(%rsp)
  movss  0x44(%rsp),%xmm0
  movss  %xmm0,0x3c(%rsp)
  comiss 0xc(%rsp),%xmm6
  jae    L3
L43:
  mov    0x18(%rsp),%rsi
  mov    %r15,%rdi
  movss  0x8(%rsp),%xmm0
  addss  0x28(%rsp),%xmm0
  mov    0x10(%rsp),%rax
  call   *%rax
  test   %r12d,%r12d
  jle    L34
  lea    0x4(%r15),%rbx
  mov    $0x1,%ebp
L54:
  movss  (%rbx),%xmm0
  call   <fabs@plt>
  movss  %xmm0,0x4(%rsp)
  movss  (%r14,%rbx,1),%xmm0
  mulss  0x3c(%rsp),%xmm0
  call   <fabs@plt>
  addss  0x4(%rsp),%xmm0
  cvtss2sd %xmm0,%xmm0
  addsd  D1(%rip),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x0(%r13,%rbx,1)
  add    $0x1,%ebp
  add    $0x4,%rbx
  cmp    %ebp,%r12d
  jge    L54
L34:
  movss  0x8(%rsp),%xmm7
  movaps %xmm7,%xmm0
  addss  0x3c(%rsp),%xmm0
  movss  0xc(%rsp),%xmm3
  comiss %xmm3,%xmm0
  jbe    L6
  movaps %xmm3,%xmm0
  subss  %xmm7,%xmm0
  cvtss2sd %xmm0,%xmm0
  addsd  D1(%rip),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x3c(%rsp)
  jmp    L6
L3:
  test   %r12d,%r12d
  jle    L84
  lea    0x4(%r15),%rax
  lea    -0x1(%r12),%edx
  lea    0x8(%r15,%rdx,4),%rcx
  mov    0x30(%rsp),%rdx
  sub    %r15,%rdx
L74:
  movss  (%rax),%xmm0
  movss  %xmm0,(%rdx,%rax,1)
  add    $0x4,%rax
  cmp    %rcx,%rax
  jne    L74
L84:
  mov    %r15,%rdi
  call   <free@plt>
  mov    0x18(%rsp),%rdi
  call   <free@plt>
  mov    0x20(%rsp),%rdi
  call   <free@plt>
  mov    0x48(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L60
  add    $0x58,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L60:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D1
type: byte[8]

tool: {"D1": [0x23,0x42,0x92,0x0c,0xa1,0x9c,0xc7,0x3b]}

assistant: ```c
void adaptive_step(int n, float h, float t, float yin[], float yout[], float acc, float hh, float hhmin, int(*count), void (*function)(float, float[], float[])) {
  int i;
  float time = 0.0;
  float hhnext;
  float *y;
  float *f;
  float *yscal;
  y = (float *)malloc((size_t)(n + 1) * sizeof(float));
  f = (float *)malloc((size_t)(n + 1) * sizeof(float));
  yscal = (float *)malloc((size_t)(n + 1) * sizeof(float));
  (*count) = 0;
  for (i = 1; i <= n; i++)
    y[i] = yin[i];
  for (;;) {
    (*function)(t + time, y, f);
    for (i = 1; i <= n; i++)
      yscal[i] = fabs(y[i]) + fabs(f[i] * hh) + 1.0e-20;
    if (time + hh > h)
      hh = h - time + 1.0e-20;
    adaptive_heun(n, time, y, acc, &hh, hhmin, &hhnext, yscal, function);
    time += hh;
    hh = hhnext;
    (*count++);
    if (time >= h)
      break;
  }
  for (i = 1; i <= n; i++)
    yout[i] = y[i];
  free(y);
  free(f);
  free(yscal);
}
```