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

```asm
<cwritepwf_>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x8,%rsp
  mov    %rdi,%rbx
  mov    %rsi,%rbp
  mov    %rdx,%r15
  mov    %rcx,%r14
  mov    %r8,%r12
  mov    %r9,%r13
  movsbl (%rsi),%edi
  call   <isspace@plt>
  test   %rax,%rax
  je     L5
  movzbl 0x1(%rbp),%eax
  mov    %al,0x0(%rbp)
  movb   $0x20,0x1(%rbp)
L5:
  mov    %rbx,%rcx
  mov    $0x17,%edx
  mov    $0x1,%esi
  lea    D95(%rip),%rdi
  call   <fwrite@plt>
  mov    %rbp,%rdx
  lea    D92(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  movsd  (%r15),%xmm0
  lea    D36(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x1,%eax
  call   <fprintf@plt>
  mov    (%r14),%edx
  lea    D108(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  mov    %rbx,%rcx
  mov    $0x21,%edx
  mov    $0x1,%esi
  lea    D55(%rip),%rbp
  mov    %rbp,%rdi
  call   <fwrite@plt>
  mov    0x0(%r13),%ecx
  mov    (%r12),%edx
  lea    D79(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  mov    %rbx,%rcx
  mov    $0x21,%edx
  mov    $0x1,%esi
  mov    %rbp,%rdi
  call   <fwrite@plt>
  mov    0x48(%rsp),%rdx
  lea    D70(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  mov    %rbx,%rcx
  mov    $0x27,%edx
  mov    $0x1,%esi
  lea    D46(%rip),%rdi
  call   <fwrite@plt>
  mov    0x50(%rsp),%rdx
  lea    D100(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  mov    0x40(%rsp),%rax
  mov    (%rax),%ecx
  mov    0x68(%rsp),%rax
  movsd  (%rax),%xmm1
  mov    0x60(%rsp),%rax
  movsd  (%rax),%xmm0
  mov    0x58(%rsp),%rax
  mov    (%rax),%edx
  lea    D59(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x2,%eax
  call   <fprintf@plt>
  mov    0x78(%rsp),%rax
  movsd  (%rax),%xmm0
  lea    D69(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x1,%eax
  call   <fprintf@plt>
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: extract_symbolic_data
arguments: label: D95
type_infered: string
name: extract_symbolic_data
arguments: label: D92
type_infered: string
name: extract_symbolic_data
arguments: label: D36
type_infered: string
name: extract_symbolic_data
arguments: label: D108
type_infered: string
name: extract_symbolic_data
arguments: label: D55
type_infered: string
name: extract_symbolic_data
arguments: label: D79
type_infered: string
name: extract_symbolic_data
arguments: label: D70
type_infered: string
name: extract_symbolic_data
arguments: label: D46
type_infered: string
name: extract_symbolic_data
arguments: label: D100
type_infered: string
name: extract_symbolic_data
arguments: label: D59
type_infered: string
name: extract_symbolic_data
arguments: label: D69
type_infered: string

tool: D95: # Opium generated file


tool: D92: %-2s                      : Element Symbol


tool: D36: %4.1f                    : Zeff


tool: D108: %4d                    : # Local grid points


tool: D55: y                       : dV/dr?


tool: D79: %4d %1d                  : # non-local grid points, #proj


tool: D70: %4s                       : projs


tool: D46: y                       : AOs in file?


tool: D100: %1s                       : PCC in file?


tool: D59: %4d%7.4f%7.4f %1d    : # AO grid points,h,r1,#AOs in file


tool: D69: %4.1f                  : AO radius


assistant: ```c
void cwritepwf_(FILE *fp, char *symbol, double *zeff, int *npspt0, int *nflq, int *iproj, int *idi, char *xproj, char *xrpcc, int *igrid, double *spacing, double *first, int *numa, double *aorad) {
  if (isspace(symbol[0])) {
    symbol[0] = symbol[1];
    symbol[1] = ' ';
  }
  fprintf(fp, "# Opium generated file\n");
  fprintf(fp, "%-2s                      : Element Symbol\n", symbol);
  fprintf(fp, "%4.1f                    : Zeff\n", *zeff);
  fprintf(fp, "%4d                    : # Local grid points\n", *npspt0);
  fprintf(fp, "y                       : dV/dr?\n");
  fprintf(fp, "%4d %1d                  : # non-local grid points, #proj\n", *nflq, *iproj);
  fprintf(fp, "y                       : dV/dr?\n");
  fprintf(fp, "%4s                       : projs\n", xproj);
  fprintf(fp, "y                       : AOs in file?\n");
  fprintf(fp, "%1s                       : PCC in file?\n", xrpcc);
  fprintf(fp, "%4d%7.4f%7.4f %1d    : # AO grid points,h,r1,#AOs in file\n", *igrid, *spacing, *first, *idi);
  fprintf(fp, "%4.1f                  : AO radius\n", *aorad);
}
```