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

```asm
<sigma_pp_diff>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  add    $0xffffffffffffff80,%rsp
  movsd  %xmm0,-0x68(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movsd  D114(%rip),%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  D39(%rip),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D130(%rip),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D109(%rip),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  D53(%rip),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  D75(%rip),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  D22(%rip),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  D60(%rip),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  D31(%rip),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    -0x68(%rbp),%rax
  movq   %rax,%xmm0
  call   <log10@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x58(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  movsd  -0x68(%rbp),%xmm0
  comisd D52(%rip),%xmm0
  jb     L57
  movsd  D112(%rip),%xmm0
  comisd -0x68(%rbp),%xmm0
  jbe    L57
  movsd  -0x40(%rbp),%xmm1
  movsd  -0x58(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  -0x38(%rbp),%xmm1
  divsd  %xmm1,%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movsd  %xmm0,-0x70(%rbp)
  movsd  -0x30(%rbp),%xmm4
  movsd  %xmm4,-0x78(%rbp)
  movsd  -0x28(%rbp),%xmm6
  movsd  %xmm6,-0x80(%rbp)
  movsd  -0x20(%rbp),%xmm1
  movsd  -0x58(%rbp),%xmm0
  movsd  D110(%rip),%xmm2
  subsd  %xmm2,%xmm0
  mulsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <log10@plt>
  mulsd  -0x80(%rbp),%xmm0
  movsd  -0x78(%rbp),%xmm2
  addsd  %xmm0,%xmm2
  movsd  -0x58(%rbp),%xmm0
  movapd %xmm0,%xmm3
  mulsd  %xmm0,%xmm3
  movsd  -0x18(%rbp),%xmm0
  movsd  -0x10(%rbp),%xmm1
  mulsd  -0x58(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  mulsd  %xmm3,%xmm0
  addsd  %xmm2,%xmm0
  mulsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  jmp    L19
L57:
  movsd  -0x68(%rbp),%xmm0
  comisd D112(%rip),%xmm0
  jb     L58
  movsd  D42(%rip),%xmm0
  comisd -0x68(%rbp),%xmm0
  jb     L58
  movsd  -0x30(%rbp),%xmm5
  movsd  %xmm5,-0x70(%rbp)
  movsd  -0x28(%rbp),%xmm4
  movsd  %xmm4,-0x78(%rbp)
  movsd  -0x20(%rbp),%xmm1
  movsd  -0x58(%rbp),%xmm0
  movsd  D110(%rip),%xmm2
  subsd  %xmm2,%xmm0
  mulsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <log10@plt>
  mulsd  -0x78(%rbp),%xmm0
  movsd  -0x70(%rbp),%xmm2
  addsd  %xmm0,%xmm2
  movsd  -0x58(%rbp),%xmm0
  movapd %xmm0,%xmm3
  mulsd  %xmm0,%xmm3
  movsd  -0x18(%rbp),%xmm0
  movsd  -0x10(%rbp),%xmm1
  mulsd  -0x58(%rbp),%xmm1
  subsd  %xmm1,%xmm0
  mulsd  %xmm3,%xmm0
  addsd  %xmm2,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  jmp    L19
L58:
  movsd  -0x68(%rbp),%xmm0
  comisd D42(%rip),%xmm0
  jbe    L19
  movsd  -0x50(%rbp),%xmm1
  movsd  -0x48(%rbp),%xmm0
  mulsd  -0x58(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
L19:
  movsd  -0x60(%rbp),%xmm0
  movq   %xmm0,%rax
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L7
  call   <__stack_chk_fail@plt>
L7:
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_tag: D114
data_type: f64
name: unpack_data
arguments: data_tag: D39
data_type: f64
name: unpack_data
arguments: data_tag: D130
data_type: f64
name: unpack_data
arguments: data_tag: D109
data_type: f64
name: unpack_data
arguments: data_tag: D53
data_type: f64
name: unpack_data
arguments: data_tag: D75
data_type: f64
name: unpack_data
arguments: data_tag: D22
data_type: f64
name: unpack_data
arguments: data_tag: D60
data_type: f64
name: unpack_data
arguments: data_tag: D31
data_type: f64
name: unpack_data
arguments: data_tag: D52
data_type: f64[2]
name: unpack_data
arguments: data_tag: D112
data_type: f64[2]
name: unpack_data
arguments: data_tag: D110
data_type: f64
name: unpack_data
arguments: data_tag: D42
data_type: f64

tool: D114: 0.3522

tool: D39: 0.153

tool: D130: 1.498

tool: D109: 2

tool: D53: 30

tool: D75: 3.155

tool: D22: 1.042

tool: D60: 5.922

tool: D31: 1.632

tool: {"D52": [2.25,3.2]}

tool: {"D112": [3.2,0.25]}

tool: D110: 0.25

tool: D42: 100

assistant: ```c
double sigma_pp_diff(double Pp) {
  double d[7] = {0.3522, 0.1530, 1.498, 2.0, 30.0, 3.155, 1.042};
  double e[2] = {5.922, 1.632};
  double x, sigma;
  x = log10(Pp);
  sigma = 0;
  if ((Pp >= 2.25) && (Pp < 3.2)) {
    sigma = sqrt((x - d[0]) / d[1]) * (d[2] + d[3] * log10(d[4] * (x - 0.25)) + x * x * (d[5] - d[6] * x));
  } else if ((Pp >= 3.2) && (Pp <= 100.0)) {
    sigma = d[2] + d[3] * log10(d[4] * (x - 0.25)) + x * x * (d[5] - d[6] * x);
  } else if (Pp > 100.0) {
    sigma = e[0] + e[1] * x;
  }
  return sigma;
}
```