user: What is the c source code of the assembly code below?

```asm
<spctrn>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x70,%rsp
  mov    %rdi,-0x38(%rbp)
  movsd  %xmm0,-0x40(%rbp)
  movsd  %xmm1,-0x48(%rbp)
  movsd  %xmm2,-0x50(%rbp)
  movsd  %xmm3,-0x58(%rbp)
  mov    %rsi,-0x60(%rbp)
  mov    %rdx,-0x68(%rbp)
  mov    %rcx,-0x70(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  lea    -0x10(%rbp),%r9
  lea    -0x20(%rbp),%r8
  lea    -0x28(%rbp),%rcx
  lea    -0x2a(%rbp),%rdx
  lea    -0x2c(%rbp),%rsi
  movsd  -0x58(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  mov    -0x40(%rbp),%rdi
  mov    -0x38(%rbp),%rax
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  call   <spcspx@plt>
  mov    %eax,-0x24(%rbp)
  cmpl   $0x0,-0x24(%rbp)
  je     L3
  mov    -0x24(%rbp),%eax
  jmp    L106
L3:
  mov    -0x60(%rbp),%rax
  add    $0x5,%rax
  mov    $0x3,%edx
  lea    D6(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <strncmp@plt>
  test   %rax,%rax
  je     L39
  movzbl -0x2a(%rbp),%eax
  cmp    $0x77,%al
  jne    L75
  mov    -0x60(%rbp),%rax
  add    $0x5,%rax
  lea    D8(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <strcpy@plt>
  jmp    L39
L75:
  movzbl -0x2a(%rbp),%eax
  cmp    $0x61,%al
  jne    L15
  mov    -0x60(%rbp),%rax
  add    $0x5,%rax
  lea    D3(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <strcpy@plt>
  jmp    L39
L15:
  mov    -0x60(%rbp),%rax
  lea    0x5(%rax),%rdx
  movzbl -0x2a(%rbp),%eax
  mov    %al,(%rdx)
  mov    -0x60(%rbp),%rax
  add    $0x6,%rax
  movb   $0x32,(%rax)
L39:
  mov    -0x20(%rbp),%rdi
  lea    -0x18(%rbp),%r9
  mov    -0x68(%rbp),%r8
  lea    -0x28(%rbp),%rcx
  lea    -0x2b(%rbp),%rdx
  lea    -0x29(%rbp),%rsi
  movsd  -0x58(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  mov    -0x60(%rbp),%rax
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rdi,%xmm0
  mov    %rax,%rdi
  call   <spcxps@plt>
  mov    %eax,-0x24(%rbp)
  cmpl   $0x0,-0x24(%rbp)
  je     L17
  mov    -0x24(%rbp),%eax
  jmp    L106
L17:
  movzbl -0x29(%rbp),%edx
  movzbl -0x2a(%rbp),%eax
  cmp    %al,%dl
  je     L120
  mov    $0x2,%eax
  jmp    L106
L120:
  mov    -0x60(%rbp),%rax
  add    $0x7,%rax
  movb   $0x3f,(%rax)
  movzbl -0x2b(%rbp),%edx
  movzbl -0x29(%rbp),%eax
  cmp    %al,%dl
  jne    L69
  mov    -0x60(%rbp),%rax
  add    $0x5,%rax
  lea    D31(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <strcpy@plt>
  jmp    L119
L69:
  mov    -0x60(%rbp),%rax
  lea    0x7(%rax),%rdx
  movzbl -0x2b(%rbp),%eax
  mov    %al,(%rdx)
L119:
  movsd  -0x18(%rbp),%xmm1
  movsd  -0x10(%rbp),%xmm0
  mulsd  %xmm1,%xmm0
  mulsd  -0x48(%rbp),%xmm0
  mov    -0x70(%rbp),%rax
  movsd  %xmm0,(%rax)
  mov    $0x0,%eax
L106:
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L35
  call   <__stack_chk_fail@plt>
L35:
  leave
  ret
```

tool_calls: name: parse_data
arguments: label: D6
datatype: string
name: parse_data
arguments: label: D8
datatype: string
name: parse_data
arguments: label: D3
datatype: string
name: parse_data
arguments: label: D31
datatype: string

tool: D6: ???

tool: D8: GRI

tool: D3: GRA

tool: D31:     

assistant: ```c
int spctrn(const char ctypeS1[9], double crvalS1, double cdeltS1, double restfrq, double restwav, char ctypeS2[9], double *crvalS2, double *cdeltS2) {
  char ptype1, ptype2, xtype1, xtype2;
  int restreq, status;
  double crvalX, dS2dX, dXdS1;
  if (status = spcspx(ctypeS1, crvalS1, restfrq, restwav, &ptype1, &xtype1, &restreq, &crvalX, &dXdS1)) {
    return status;
  }
  if (strncmp(ctypeS2 + 5, "???", 3)) {
    if (xtype1 == 'w') {
      strcpy(ctypeS2 + 5, "GRI");
    } else if (xtype1 == 'a') {
      strcpy(ctypeS2 + 5, "GRA");
    } else {
      ctypeS2[5] = xtype1;
      ctypeS2[6] = '2';
    }
  }
  if (status = spcxps(ctypeS2, crvalX, restfrq, restwav, &xtype2, &ptype2, &restreq, crvalS2, &dS2dX)) {
    return status;
  }
  if (xtype2 != xtype1) {
    return 2;
  }
  if (ctypeS2[7] = '?') {
    if (ptype2 == xtype2) {
      strcpy(ctypeS2 + 5, "    ");
    } else {
      ctypeS2[7] = ptype2;
    }
  }
  *cdeltS2 = dS2dX * dXdS1 * cdeltS1;
  return 0;
}
```