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

```asm
<atof>:
  endbr64
  push   %r15
  push   %r14
  xor    %r14d,%r14d
  push   %r13
  push   %r12
  mov    %rdi,%r12
  push   %rbp
  push   %rbx
  mov    %rdi,%rbx
  sub    $0x18,%rsp
  jmp    L90
  nopl   (%rax)
L71:
  add    $0x1,%r14d
L90:
  movsbl (%rbx),%edi
  mov    %rbx,%rbp
  add    $0x1,%rbx
  call   <isspace@plt>
  test   %rax,%rax
  jne    L71
  movzbl 0x0(%rbp),%eax
  cmp    $0x2d,%al
  je     L56
  mov    $0x1,%r13d
  cmp    $0x2b,%al
  je     L25
L181:
  movslq %r14d,%r15
  pxor   %xmm7,%xmm7
  add    %r12,%r15
  movsd  %xmm7,(%rsp)
  mov    %r15,%rbx
  jmp    L149
  cs nopw 0x0(%rax,%rax,1)
L173:
  movsbl (%rbx),%eax
  movsd  D59(%rip),%xmm0
  pxor   %xmm1,%xmm1
  add    $0x1,%rbx
  mulsd  (%rsp),%xmm0
  sub    $0x30,%eax
  cvtsi2sd %eax,%xmm1
  addsd  %xmm0,%xmm1
  movsd  %xmm1,(%rsp)
L149:
  mov    %r14d,%ebp
  movsbl (%rbx),%edi
  sub    %r15d,%ebp
  add    %ebx,%ebp
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L173
  xor    %eax,%eax
  cmpb   $0x2e,(%rbx)
  movsd  D51(%rip),%xmm7
  sete   %al
  add    %eax,%ebp
  movsd  %xmm7,0x8(%rsp)
  movslq %ebp,%r14
  add    %r12,%r14
  mov    %r14,%rbx
  jmp    L34
L88:
  movsbl (%rbx),%eax
  pxor   %xmm1,%xmm1
  add    $0x1,%rbx
  movsd  D59(%rip),%xmm0
  mulsd  (%rsp),%xmm0
  movsd  D59(%rip),%xmm2
  mulsd  0x8(%rsp),%xmm2
  sub    $0x30,%eax
  cvtsi2sd %eax,%xmm1
  addsd  %xmm0,%xmm1
  movsd  %xmm2,0x8(%rsp)
  movsd  %xmm1,(%rsp)
L34:
  mov    %ebp,%r15d
  movsbl (%rbx),%edi
  sub    %r14d,%r15d
  add    %ebx,%r15d
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L88
  movzbl (%rbx),%eax
  and    $0xffffffdf,%eax
  cmp    $0x45,%al
  jne    L174
  lea    0x1(%r15),%eax
  cltq
  movzbl (%r12,%rax,1),%edx
  cmp    $0x2d,%dl
  je     L78
  mov    $0x1,%ebp
  cmp    $0x2b,%dl
  je     L5
L91:
  add    %rax,%r12
  xor    %ebx,%ebx
  jmp    L17
  nopl   (%rax)
L121:
  movsbl (%r12),%eax
  lea    (%rbx,%rbx,4),%edx
  add    $0x1,%r12
  lea    -0x30(%rax,%rdx,2),%ebx
L17:
  movsbl (%r12),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L121
  lea    -0x1(%rbx),%eax
  cmp    $0x1,%ebp
  je     L107
  movsd  D59(%rip),%xmm0
  test   %ebx,%ebx
  jle    L174
  nopl   0x0(%rax,%rax,1)
L70:
  movsd  0x8(%rsp),%xmm6
  mulsd  %xmm0,%xmm6
  movsd  %xmm6,0x8(%rsp)
  sub    $0x1,%eax
  jae    L70
L174:
  pxor   %xmm0,%xmm0
  cvtsi2sd %r13d,%xmm0
  mulsd  (%rsp),%xmm0
  divsd  0x8(%rsp),%xmm0
  add    $0x18,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L56:
  mov    $0xffffffff,%r13d
L25:
  add    $0x1,%r14d
  jmp    L181
  nop
L78:
  mov    $0xffffffff,%ebp
L5:
  lea    0x2(%r15),%eax
  cltq
  jmp    L91
L107:
  test   %ebx,%ebx
  jle    L174
  movsd  D59(%rip),%xmm0
  nopl   0x0(%rax)
L93:
  movsd  0x8(%rsp),%xmm7
  divsd  %xmm0,%xmm7
  movsd  %xmm7,0x8(%rsp)
  sub    $0x1,%eax
  jae    L93
  jmp    L174
```

tool_calls: name: unpack_data
arguments: label: D59
type: f64
name: unpack_data
arguments: label: D51
type: f64

tool: D59: 10

tool: D51: 1

assistant: ```c
double atof(char s[]) {
  int i, sign;
  double val, power;
  int sign_power;
  int e;
  for (i = 0; isspace(s[i]); i++)
    ;
  sign = (s[i] == '-') ? -1 : 1;
  if (s[i] == '+' || s[i] == '-')
    i++;
  for (val = 0.0; isdigit(s[i]); i++)
    val = 10.0 * val + (s[i] - '0');
  if (s[i] == '.')
    i++;
  for (power = 1.0; isdigit(s[i]); i++) {
    val = 10.0 * val + (s[i] - '0');
    power *= 10.0;
  }
  if (s[i] == 'e' || s[i] == 'E') {
    sign_power = (s[++i] == '-') ? -1 : 1;
    if (s[i] == '+' || s[i] == '-')
      i++;
    for (e = 0; isdigit(s[i]); i++)
      e = 10 * e + (s[i] - '0');
    if (sign_power == 1)
      while (e-- > 0)
        power /= 10;
    else
      while (e-- > 0)
        power *= 10;
  }
  return sign * val / power;
}
```