user: Translate the below assembly code into C programming language:

```asm
<atof>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x30,%rsp
  mov    %rdi,-0x28(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movl   $0x1,-0x14(%rbp)
  movl   $0x0,-0x10(%rbp)
  jmp    L19
L4:
  addl   $0x1,-0x10(%rbp)
L19:
  mov    -0x10(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  cmp    $0x20,%al
  je     L4
  mov    -0x10(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  cmp    $0x2d,%al
  jne    L83
  addl   $0x1,-0x10(%rbp)
  movl   $0xffffffff,-0x14(%rbp)
  jmp    L83
L44:
  movsd  -0x8(%rbp),%xmm1
  movsd  D37(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x10(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  addsd  %xmm1,%xmm0
  movsd  D7(%rip),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  addl   $0x1,-0x10(%rbp)
L83:
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cmp    %eax,-0x10(%rbp)
  jge    L49
  mov    -0x10(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L44
L49:
  mov    -0x10(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  cmp    $0x2e,%al
  jne    L98
  addl   $0x1,-0x10(%rbp)
  movl   $0x1,-0xc(%rbp)
  jmp    L18
L7:
  movsd  -0x8(%rbp),%xmm1
  movsd  D37(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x10(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  addsd  %xmm1,%xmm0
  movsd  D7(%rip),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0xc(%rbp),%edx
  mov    %edx,%eax
  shl    $0x2,%eax
  add    %edx,%eax
  add    %eax,%eax
  mov    %eax,-0xc(%rbp)
  addl   $0x1,-0x10(%rbp)
L18:
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cmp    %eax,-0x10(%rbp)
  jge    L62
  mov    -0x10(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L7
L62:
  pxor   %xmm1,%xmm1
  cvtsi2sdl -0xc(%rbp),%xmm1
  movsd  -0x8(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
L98:
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x14(%rbp),%xmm0
  movsd  -0x8(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x8(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: retrieve_data
arguments: data_label: D37
data_type: f32[2]
name: retrieve_data
arguments: data_label: D7
data_type: f32[2]

tool: {"D37": [0.0,2.5625]}

tool: {"D7": [0.0,3.125]}

assistant: ```c
double atof(char *s) {
  double test = 0;
  int sign = 1;
  int i = 0;
  for (; s[i] == ' '; i++)
    ;
  if (s[i] == '-') {
    i++;
    sign = -1;
  }
  for (; (i < strlen(s)) && (isdigit(s[i])); i++) {
    test = test * 10 + s[i] - '0';
  }
  if (s[i] == '.') {
    i++;
    int pow = 1;
    for (; (i < strlen(s)) && (isdigit(s[i])); i++) {
      test = test * 10 + s[i] - '0';
      pow = pow * 10;
    }
    test = test / pow;
  }
  test = test * sign;
  return test;
}
```