user: 请将这段汇编代码片段转换成等效的C代码:

```asm
<getP8>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xf8,%rsp
  mov    %rdx,0x8(%rsp)
  mov    %rcx,0x68(%rsp)
  mov    %r8,%rbp
  mov    %r9,0xc0(%rsp)
  mov    0x130(%rsp),%r15d
  mov    0x140(%rsp),%r14
  mov    0x138(%rsp),%ebx
  imul   %ebx,%ebx
  mov    %ebx,0xe8(%rsp)
  movslq %ebx,%rdi
  shl    $0x3,%rdi
  call   <malloc@plt>
  mov    %rax,0x90(%rsp)
  test   %r15d,%r15d
  jne    L87
  test   %ebx,%ebx
  jle    L306
  mov    %ebx,%edx
  lea    (%rax,%rdx,8),%rdx
L62:
  movq   $0x0,(%rax)
  add    $0x8,%rax
  cmp    %rdx,%rax
  jne    L62
  jmp    L306
L87:
  movslq 0x138(%rsp),%rax
  mov    %rax,0xd0(%rsp)
  lea    0x0(,%rax,8),%rbx
  mov    %rbx,%rdi
  call   <malloc@plt>
  mov    %rax,0x28(%rsp)
  mov    %rbx,%rdi
  call   <malloc@plt>
  mov    %rax,0x78(%rsp)
  mov    %r15d,%r12d
  imul   %r15d,%r12d
  movslq %r12d,%rax
  lea    0x0(,%rax,8),%rbx
  mov    %rbx,%rdi
  call   <malloc@plt>
  mov    %rax,0x80(%rsp)
  movslq %r15d,%rax
  lea    0x0(,%rax,8),%r13
  mov    %r13,0x70(%rsp)
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %rax,0x30(%rsp)
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %rax,0x38(%rsp)
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %rax,0x40(%rsp)
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %rax,0x48(%rsp)
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %rax,0x50(%rsp)
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %rax,0x58(%rsp)
  mov    %r13,%rdi
  call   <malloc@plt>
  mov    %rax,0x60(%rsp)
  mov    0xe8(%rsp),%edi
  imul   %r15d,%edi
  imul   %r15d,%edi
  movslq %edi,%rdi
  shl    $0x3,%rdi
  call   <malloc@plt>
  mov    %rax,0x88(%rsp)
  cmpl   $0x0,0x138(%rsp)
  jle    L369
  mov    0x138(%rsp),%eax
  mov    %rax,0x20(%rsp)
  mov    0x138(%rsp),%eax
  shl    $0x3,%eax
  cltq
  lea    0x0(%rbp,%rax,8),%rbp
  mov    $0x0,%r13d
L344:
  movsd  0x0(%rbp,%r13,8),%xmm5
  movsd  %xmm5,0x18(%rsp)
  movsd  D218(%rip),%xmm0
  addsd  %xmm5,%xmm0
  movsd  D218(%rip),%xmm5
  divsd  %xmm0,%xmm5
  movsd  %xmm5,0x10(%rsp)
  pxor   %xmm2,%xmm2
  ucomisd %xmm5,%xmm2
  ja     L196
  sqrtsd %xmm5,%xmm5
  movapd %xmm5,%xmm0
L95:
  movsd  0x10(%rsp),%xmm7
  mulsd  %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  mulsd  %xmm7,%xmm0
  mov    0x78(%rsp),%rax
  movsd  %xmm0,(%rax,%r13,8)
  movsd  0x18(%rsp),%xmm0
  mulsd  %xmm7,%xmm0
  mov    0x28(%rsp),%rax
  movsd  %xmm0,(%rax,%r13,8)
  add    $0x1,%r13
  cmp    0x20(%rsp),%r13
  jne    L344
  test   %r15d,%r15d
  jle    L185
L7:
  mov    %r15d,%r13d
  mov    $0x0,%eax
  movsd  D41(%rip),%xmm4
  mov    0x8(%rsp),%rdx
  mov    0x68(%rsp),%rcx
L140:
  movsd  (%rdx,%rax,8),%xmm0
  mulsd  %xmm0,%xmm0
  movapd %xmm0,%xmm2
  mulsd  %xmm0,%xmm2
  movapd %xmm0,%xmm7
  mulsd  %xmm2,%xmm7
  movsd  (%rcx,%rax,8),%xmm5
  movapd %xmm5,%xmm1
  mulsd  %xmm5,%xmm1
  movapd %xmm5,%xmm8
  mulsd  %xmm1,%xmm8
  movsd  D137(%rip),%xmm3
  mulsd  %xmm0,%xmm3
  subsd  %xmm5,%xmm3
  mov    0x38(%rsp),%rsi
  movsd  %xmm3,(%rsi,%rax,8)
  movsd  D249(%rip),%xmm3
  mulsd  %xmm0,%xmm3
  subsd  %xmm5,%xmm3
  mov    0x30(%rsp),%rsi
  movsd  %xmm3,(%rsi,%rax,8)
  movsd  D23(%rip),%xmm6
  mulsd  %xmm0,%xmm6
  mulsd  %xmm5,%xmm6
  movsd  D35(%rip),%xmm3
  mulsd  %xmm2,%xmm3
  subsd  %xmm6,%xmm3
  addsd  %xmm1,%xmm3
  mov    0x40(%rsp),%rsi
  movsd  %xmm3,(%rsi,%rax,8)
  movsd  D222(%rip),%xmm3
  mulsd  %xmm2,%xmm3
  subsd  %xmm6,%xmm3
  movsd  D209(%rip),%xmm6
  mulsd  %xmm1,%xmm6
  addsd  %xmm6,%xmm3
  mov    0x48(%rsp),%rsi
  movsd  %xmm3,(%rsi,%rax,8)
  movapd %xmm7,%xmm3
  mulsd  %xmm4,%xmm3
  movapd %xmm2,%xmm6
  mulsd  %xmm4,%xmm6
  mulsd  %xmm5,%xmm6
  subsd  %xmm6,%xmm3
  movsd  D157(%rip),%xmm6
  mulsd  %xmm0,%xmm6
  mulsd  %xmm1,%xmm6
  addsd  %xmm6,%xmm3
  subsd  %xmm8,%xmm3
  mov    0x50(%rsp),%rsi
  movsd  %xmm3,(%rsi,%rax,8)
  movsd  D235(%rip),%xmm3
  mulsd  %xmm7,%xmm3
  movsd  D93(%rip),%xmm6
  mulsd  %xmm2,%xmm6
  mulsd  %xmm5,%xmm6
  subsd  %xmm6,%xmm3
  movapd %xmm0,%xmm6
  mulsd  D240(%rip),%xmm6
  mulsd  %xmm1,%xmm6
  addsd  %xmm6,%xmm3
  movsd  D5(%rip),%xmm6
  movapd %xmm8,%xmm9
  mulsd  %xmm6,%xmm9
  subsd  %xmm9,%xmm3
  mov    0x58(%rsp),%rsi
  movsd  %xmm3,(%rsi,%rax,8)
  movapd %xmm2,%xmm3
  mulsd  %xmm2,%xmm3
  mulsd  D3(%rip),%xmm3
  mulsd  D279(%rip),%xmm7
  mulsd  %xmm7,%xmm5
  subsd  %xmm5,%xmm3
  mulsd  D250(%rip),%xmm2
  mulsd  %xmm1,%xmm2
  addsd  %xmm3,%xmm2
  mulsd  D12(%rip),%xmm0
  mulsd  %xmm8,%xmm0
  subsd  %xmm0,%xmm2
  mulsd  %xmm1,%xmm1
  mulsd  %xmm6,%xmm1
  movapd %xmm1,%xmm0
  addsd  %xmm2,%xmm0
  mov    0x60(%rsp),%rsi
  movsd  %xmm0,(%rsi,%rax,8)
  add    $0x1,%rax
  cmp    %r13,%rax
  jne    L140
  lea    (%r12,%r12,1),%eax
  lea    (%rax,%r12,1),%edx
  add    %edx,%edx
  movslq %edx,%rdx
  lea    (%r14,%rdx,8),%rsi
  mov    %rsi,0x10(%rsp)
  lea    0x0(,%r12,4),%edx
  movslq %edx,%rcx
  lea    (%r14,%rcx,8),%rsi
  mov    %rsi,0x18(%rsp)
  movslq %eax,%rcx
  lea    (%r14,%rcx,8),%rsi
  mov    %rsi,0x20(%rsp)
  lea    0x0(,%r12,8),%ecx
  sub    %r12d,%ecx
  movslq %ecx,%rcx
  lea    (%r14,%rcx,8),%rsi
  mov    %rsi,0x98(%rsp)
  add    %r12d,%edx
  movslq %edx,%rdx
  lea    (%r14,%rdx,8),%rsi
  mov    %rsi,0xa0(%rsp)
  add    %r12d,%eax
  cltq
  lea    (%r14,%rax,8),%rax
  mov    %rax,0xa8(%rsp)
  lea    (%r14,%rbx,1),%rax
  mov    %rax,0xb0(%rsp)
  mov    $0x0,%r12d
  mov    $0x0,%edx
  movsd  D176(%rip),%xmm6
  movsd  D136(%rip),%xmm5
  movsd  D44(%rip),%xmm4
  movsd  D192(%rip),%xmm3
  movsd  D20(%rip),%xmm2
  movsd  D228(%rip),%xmm1
L349:
  mov    0x8(%rsp),%rax
  movsd  (%rax,%rdx,8),%xmm14
  mov    0x38(%rsp),%rax
  movapd %xmm6,%xmm13
  mulsd  (%rax,%rdx,8),%xmm13
  mov    0x48(%rsp),%rax
  movapd %xmm5,%xmm12
  mulsd  (%rax,%rdx,8),%xmm12
  mov    0x58(%rsp),%rax
  movapd %xmm4,%xmm11
  mulsd  (%rax,%rdx,8),%xmm11
  mov    0x30(%rsp),%rax
  movapd %xmm3,%xmm10
  mulsd  (%rax,%rdx,8),%xmm10
  mov    0x40(%rsp),%rax
  movapd %xmm2,%xmm9
  mulsd  (%rax,%rdx,8),%xmm9
  mov    0x50(%rsp),%rax
  movapd %xmm1,%xmm8
  mulsd  (%rax,%rdx,8),%xmm8
  mov    0x60(%rsp),%rax
  movsd  (%rax,%rdx,8),%xmm7
  mov    0x10(%rsp),%rax
  lea    (%r12,%rax,1),%rbp
  mov    0x18(%rsp),%rax
  lea    (%r12,%rax,1),%rbx
  mov    0x20(%rsp),%rax
  lea    (%r12,%rax,1),%r11
  mov    0x98(%rsp),%rax
  lea    (%r12,%rax,1),%r10
  mov    0xa0(%rsp),%rax
  lea    (%r12,%rax,1),%r9
  mov    0xa8(%rsp),%rax
  lea    (%r12,%rax,1),%r8
  mov    0xb0(%rsp),%rax
  lea    (%r12,%rax,1),%rdi
  mov    $0x0,%eax
  mov    0x80(%rsp),%rsi
  add    %r12,%rsi
  lea    (%r14,%r12,1),%rcx
  mov    %rdx,0xb8(%rsp)
L8:
  mov    0x38(%rsp),%rdx
  movapd %xmm13,%xmm0
  mulsd  (%rdx,%rax,8),%xmm0
  mulsd  (%rbx,%rax,8),%xmm0
  movsd  D81(%rip),%xmm15
  mulsd  0x0(%rbp,%rax,8),%xmm15
  addsd  %xmm15,%xmm0
  mov    0x48(%rsp),%rdx
  movapd %xmm12,%xmm15
  mulsd  (%rdx,%rax,8),%xmm15
  mulsd  (%r11,%rax,8),%xmm15
  addsd  %xmm15,%xmm0
  mov    0x58(%rsp),%rdx
  movapd %xmm11,%xmm15
  mulsd  (%rdx,%rax,8),%xmm15
  mulsd  (%rcx,%rax,8),%xmm15
  addsd  %xmm15,%xmm0
  mov    0x8(%rsp),%rdx
  movapd %xmm14,%xmm15
  mulsd  (%rdx,%rax,8),%xmm15
  mulsd  %xmm15,%xmm0
  movsd  D3(%rip),%xmm15
  mulsd  (%r10,%rax,8),%xmm15
  addsd  %xmm15,%xmm0
  mov    0x30(%rsp),%rdx
  movapd %xmm10,%xmm15
  mulsd  (%rdx,%rax,8),%xmm15
  mulsd  (%r9,%rax,8),%xmm15
  addsd  %xmm15,%xmm0
  mov    0x40(%rsp),%rdx
  movapd %xmm9,%xmm15
  mulsd  (%rdx,%rax,8),%xmm15
  mulsd  (%r8,%rax,8),%xmm15
  addsd  %xmm15,%xmm0
  mov    0x50(%rsp),%rdx
  movapd %xmm8,%xmm15
  mulsd  (%rdx,%rax,8),%xmm15
  mulsd  (%rdi,%rax,8),%xmm15
  addsd  %xmm15,%xmm0
  mov    0x60(%rsp),%rdx
  movapd %xmm7,%xmm15
  mulsd  (%rdx,%rax,8),%xmm15
  addsd  %xmm15,%xmm0
  movsd  %xmm0,(%rsi,%rax,8)
  add    $0x1,%rax
  cmp    %r13,%rax
  jne    L8
  mov    0xb8(%rsp),%rdx
  add    $0x1,%rdx
  add    0x70(%rsp),%r12
  cmp    %r13,%rdx
  jne    L349
  cmpl   $0x0,0x138(%rsp)
  jle    L199
L185:
  mov    %r15d,%eax
  imul   %r15d,%eax
  mov    %eax,0x18(%rsp)
  imul   0x138(%rsp),%eax
  mov    %eax,0xb0(%rsp)
  mov    0x138(%rsp),%eax
  sub    $0x1,%eax
  mov    %eax,0xec(%rsp)
  mov    0x138(%rsp),%eax
  mov    0x28(%rsp),%r14
  lea    (%r14,%rax,8),%rax
  mov    %rax,0xb8(%rsp)
  lea    -0x1(%r15),%ebx
  mov    %rbx,0x20(%rsp)
  lea    0x0(,%rbx,8),%rax
  mov    0x80(%rsp),%rsi
  lea    0x8(%rsi,%rax,1),%rdi
  mov    %rdi,0xd8(%rsp)
  mov    0x68(%rsp),%rsi
  lea    0x8(%rsi,%rax,1),%rax
  mov    %rax,0xe0(%rsp)
  mov    %rbx,%rax
  neg    %rax
  shl    $0x3,%rax
  mov    %rax,0xc8(%rsp)
  movl   $0x0,0xa8(%rsp)
  mov    %r14,%rbp
  mov    %r15d,0x130(%rsp)
  jmp    L179
L196:
  movsd  0x10(%rsp),%xmm0
  call   <sqrt@plt>
  jmp    L95
L321:
  mov    0x10(%rsp),%rax
  mov    0xc8(%rsp),%rbx
  lea    -0x8(%rax,%rbx,1),%rbx
  mov    0x98(%rsp),%r14
  mov    0x68(%rsp),%r13
L126:
  movsd  (%rbx),%xmm4
  movsd  %xmm4,0x8(%rsp)
  movsd  0x0(%rbp),%xmm0
  xorpd  D155(%rip),%xmm0
  mulsd  (%r12),%xmm0
  movsd  (%r15),%xmm1
  mulsd  0x0(%r13),%xmm1
  subsd  %xmm1,%xmm0
  call   <exp@plt>
  mulsd  0x8(%rsp),%xmm0
  movsd  %xmm0,(%r14)
  add    $0x8,%rbx
  add    $0x8,%r13
  add    $0x8,%r14
  cmp    0x10(%rsp),%rbx
  jne    L126
  mov    0x70(%rsp),%rbx
  add    %rbx,0x98(%rsp)
  add    $0x8,%r12
  add    %rbx,0x10(%rsp)
  cmp    0xe0(%rsp),%r12
  jne    L321
L305:
  add    $0x8,%r15
  mov    0x18(%rsp),%ebx
  add    %ebx,0xa0(%rsp)
  cmp    0xb8(%rsp),%r15
  je     L213
L29:
  cmpl   $0x0,0x130(%rsp)
  jle    L305
  movslq 0xa0(%rsp),%rax
  mov    0x88(%rsp),%rbx
  lea    (%rbx,%rax,8),%rax
  mov    %rax,0x98(%rsp)
  mov    0xd8(%rsp),%rax
  mov    %rax,0x10(%rsp)
  mov    0x68(%rsp),%r12
  jmp    L321
L213:
  mov    0xb0(%rsp),%ebx
  add    %ebx,0xa8(%rsp)
  add    $0x8,%rbp
  cmp    0xb8(%rsp),%rbp
  je     L105
L179:
  mov    0xa8(%rsp),%eax
  mov    %eax,0xa0(%rsp)
  mov    0x28(%rsp),%r15
  jmp    L29
L105:
  mov    0x130(%rsp),%r15d
  mov    0xe8(%rsp),%r12d
  shl    $0x3,%r12d
  mov    0x138(%rsp),%r14d
  movl   $0x0,0xe8(%rsp)
  mov    $0x0,%ebp
  mov    0x88(%rsp),%rax
  lea    0x8(%rax),%r13
  mov    0xc8(%rsp),%rsi
  sub    $0x8,%rsi
  mov    0x70(%rsp),%rdi
  mov    0x78(%rsp),%r10
  mov    %r12d,0x8(%rsp)
  mov    %rbp,%r12
  jmp    L272
L148:
  lea    (%rsi,%rdx,1),%rax
L141:
  addsd  (%rax),%xmm0
  add    $0x8,%rax
  cmp    %rdx,%rax
  jne    L141
  add    $0x1,%ecx
  add    %rdi,%rdx
  cmp    %ecx,%r15d
  jne    L148
L25:
  movsd  0x0(%rbp),%xmm1
  mulsd  (%rbx,%r8,8),%xmm1
  mulsd  (%r10,%r11,8),%xmm1
  mulsd  (%r10,%r8,8),%xmm1
  mulsd  %xmm1,%xmm0
  addsd  %xmm0,%xmm2
  add    $0x1,%r8
  add    0x18(%rsp),%r9d
  cmp    %r14,%r8
  je     L258
L259:
  test   %r15d,%r15d
  jle    L240
  movslq %r9d,%rax
  add    0x20(%rsp),%rax
  lea    0x0(%r13,%rax,8),%rdx
  mov    $0x0,%ecx
  pxor   %xmm0,%xmm0
  jmp    L148
L240:
  pxor   %xmm0,%xmm0
  jmp    L25
L258:
  add    $0x1,%r11
  mov    0xb0(%rsp),%ecx
  add    %ecx,0x10(%rsp)
  cmp    %r14,%r11
  je     L218
L32:
  mov    0x8(%rsp),%eax
  add    %r11d,%eax
  cltq
  mov    0xc0(%rsp),%rcx
  lea    (%rcx,%rax,8),%rbp
  mov    0x10(%rsp),%r9d
  mov    $0x0,%r8d
  jmp    L259
L218:
  mulsd  D66(%rip),%xmm2
  mov    0x98(%rsp),%rbx
  mov    0x68(%rsp),%rax
  movsd  %xmm2,(%rbx,%rax,8)
  add    $0x1,%rax
  mov    %rax,0x68(%rsp)
  mov    0x138(%rsp),%ecx
  add    %ecx,0x70(%rsp)
  cmp    %eax,%ecx
  jle    L294
L381:
  movslq 0x70(%rsp),%rax
  mov    0xc0(%rsp),%rbx
  lea    (%rbx,%rax,8),%rbx
  movl   $0x0,0x10(%rsp)
  mov    $0x0,%r11d
  pxor   %xmm2,%xmm2
  jmp    L32
L294:
  add    $0x1,%r12
  mov    0x138(%rsp),%ebx
  add    %ebx,0xe8(%rsp)
  add    %ebx,0x8(%rsp)
  cmp    %r14,%r12
  je     L359
L272:
  cmp    %r12d,0x138(%rsp)
  jle    L294
  movslq 0xe8(%rsp),%rax
  mov    0x90(%rsp),%rbx
  lea    (%rbx,%rax,8),%rax
  mov    %rax,0x98(%rsp)
  mov    0x8(%rsp),%eax
  mov    %eax,0x70(%rsp)
  mov    %r12,0x68(%rsp)
  jmp    L381
L359:
  mov    0xd0(%rsp),%r9
  add    $0x1,%r9
  lea    0x0(,%r9,8),%rsi
  mov    0x90(%rsp),%rcx
  lea    0x8(%rcx),%rdx
  lea    -0x8(%rsi),%rbp
  mov    $0x0,%edi
  mov    $0x0,%eax
  lea    -0x10(%rsi),%rbx
  lea    0x10(%rcx),%r10
L238:
  add    $0x1,%eax
  cmp    %eax,0x138(%rsp)
  je     L199
  lea    (%rbx,%rdx,1),%r8
  mov    0xec(%rsp),%ecx
  sub    %eax,%ecx
  add    %rdi,%rcx
  lea    (%r10,%rcx,8),%r11
  mov    %rdx,%rcx
L47:
  movsd  (%rcx),%xmm0
  movsd  %xmm0,(%r8)
  add    $0x8,%rcx
  add    %rbp,%r8
  cmp    %r11,%rcx
  jne    L47
  add    %rsi,%rdx
  add    %r9,%rdi
  jmp    L238
L369:
  test   %r15d,%r15d
  jg     L7
L199:
  mov    0x78(%rsp),%rdi
  call   <free@plt>
  mov    0x28(%rsp),%rdi
  call   <free@plt>
  mov    0x80(%rsp),%rdi
  call   <free@plt>
  mov    0x30(%rsp),%rdi
  call   <free@plt>
  mov    0x38(%rsp),%rdi
  call   <free@plt>
  mov    0x40(%rsp),%rdi
  call   <free@plt>
  mov    0x48(%rsp),%rdi
  call   <free@plt>
  mov    0x50(%rsp),%rdi
  call   <free@plt>
  mov    0x58(%rsp),%rdi
  call   <free@plt>
  mov    0x60(%rsp),%rdi
  call   <free@plt>
  mov    0x88(%rsp),%rdi
  call   <free@plt>
L306:
  mov    0x90(%rsp),%rax
  add    $0xf8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: parse_data
arguments: data_label: D218
datatype: f64
name: parse_data
arguments: data_label: D41
datatype: f32[2]
name: parse_data
arguments: data_label: D137
datatype: f64
name: parse_data
arguments: data_label: D249
datatype: f64
name: parse_data
arguments: data_label: D23
datatype: f32[2]
name: parse_data
arguments: data_label: D35
datatype: f32[2]
name: parse_data
arguments: data_label: D222
datatype: f32[2]
name: parse_data
arguments: data_label: D209
datatype: f32[2]
name: parse_data
arguments: data_label: D157
datatype: f32[2]
name: parse_data
arguments: data_label: D235
datatype: f32[2]
name: parse_data
arguments: data_label: D93
datatype: f32[2]
name: parse_data
arguments: data_label: D240
datatype: f32[2]
name: parse_data
arguments: data_label: D5
datatype: f32[2]
name: parse_data
arguments: data_label: D3
datatype: f32[2]
name: parse_data
arguments: data_label: D279
datatype: f32[2]
name: parse_data
arguments: data_label: D250
datatype: f32[2]
name: parse_data
arguments: data_label: D12
datatype: f32[2]
name: parse_data
arguments: data_label: D176
datatype: f32[2]
name: parse_data
arguments: data_label: D136
datatype: f32[2]
name: parse_data
arguments: data_label: D44
datatype: f32[2]
name: parse_data
arguments: data_label: D192
datatype: f32[2]
name: parse_data
arguments: data_label: D20
datatype: f32[2]
name: parse_data
arguments: data_label: D228
datatype: f32[2]
name: parse_data
arguments: data_label: D81
datatype: f32[2]
name: parse_data
arguments: data_label: D155
datatype: f32[4]
name: parse_data
arguments: data_label: D66
datatype: byte[8]

tool: D218: 1

tool: {"D41": [0.0,3.529296875]}

tool: D137: 5

tool: D249: 15

tool: {"D23": [0.0,2.90625]}

tool: {"D35": [0.0,3.25390625]}

tool: {"D222": [0.0,3.0546875]}

tool: {"D209": [0.0,2.125]}

tool: {"D157": [0.0,3.0078125]}

tool: {"D235": [0.0,4.1982421875]}

tool: {"D93": [0.0,4.4775390625]}

tool: {"D240": [0.0,3.8759765625]}

tool: {"D5": [0.0,3.0234375]}

tool: {"D3": [0.0,5.7855224609375]}

tool: {"D279": [0.0,6.233154296875]}

tool: {"D250": [0.0,5.845947265625]}

tool: {"D12": [0.0,4.615234375]}

tool: {"D176": [0.0,8.0997314453125]}

tool: {"D136": [0.0,6.56396484375]}

tool: {"D44": [0.0,3.53125]}

tool: {"D192": [0.0,5.337890625]}

tool: {"D20": [0.0,5.1767578125]}

tool: {"D228": [0.0,5.115234375]}

tool: {"D81": [0.0,7.7855224609375]}

tool: {"D155": [0.0,-0.0,0.0,0.0]}

tool: {"D66": [0x3d,0x2a,0x5a,0x96,0x10,0xf9,0x64,0x3f]}

assistant: ```c
double *getP8(double *x, double *y, double *z, double *r2, double *alphas, double *betas, int Asize, int Nsize, double *ReX) {
  double *P8 = (double *)malloc(Nsize * Nsize * sizeof(double));
  if (Asize == 0) {
    for (int n = 0; n < Nsize * Nsize; n++) {
      P8[n] = 0.0;
    }
    return P8;
  }
  double sumsInner = 0;
  double sumsOuter = 0;
  double oneO1Palpha;
  double oneO1PalphaSqrt;
  double z2 = 0, z4 = 0, z6 = 0, z8 = 0;
  double r4 = 0, r6 = 0, r8 = 0;
  double *alphaO1Palpha = (double *)malloc(Nsize * sizeof(double));
  double *oneO1PalphaSqrt19 = (double *)malloc(Nsize * sizeof(double));
  double *ReXStripe = (double *)malloc(Asize * Asize * sizeof(double));
  double *zr15 = (double *)malloc(Asize * sizeof(double));
  double *zr5 = (double *)malloc(Asize * sizeof(double));
  double *zr65 = (double *)malloc(Asize * sizeof(double));
  double *zr39 = (double *)malloc(Asize * sizeof(double));
  double *zr143 = (double *)malloc(Asize * sizeof(double));
  double *zr715 = (double *)malloc(Asize * sizeof(double));
  double *zr6435 = (double *)malloc(Asize * sizeof(double));
  double *kkdij = (double *)malloc(Nsize * Nsize * Asize * Asize * sizeof(double));
  for (int n = 0; n < Nsize; n++) {
    oneO1Palpha = 1.0 / (1.0 + alphas[8 * Nsize + n]);
    oneO1PalphaSqrt = sqrt(oneO1Palpha);
    oneO1PalphaSqrt19[n] = oneO1PalphaSqrt * oneO1Palpha * oneO1Palpha * oneO1Palpha * oneO1Palpha * oneO1Palpha * oneO1Palpha * oneO1Palpha * oneO1Palpha * oneO1Palpha;
    alphaO1Palpha[n] = alphas[8 * Nsize + n] * oneO1Palpha;
  }
  for (int i = 0; i < Asize; i++) {
    z2 = z[i] * z[i];
    z4 = z2 * z2;
    z6 = z2 * z4;
    z8 = z4 * z4;
    r4 = r2[i] * r2[i];
    r6 = r4 * r2[i];
    r8 = r4 * r4;
    zr5[i] = 5.0 * z2 - r2[i];
    zr15[i] = 15.0 * z2 - r2[i];
    zr65[i] = 65 * z4 - 26 * z2 * r2[i] + r4;
    zr39[i] = 39 * z4 - 26 * z2 * r2[i] + 3 * r4;
    zr143[i] = 143 * z6 - 143 * z4 * r2[i] + 33 * z2 * r4 - r6;
    zr715[i] = 715 * z6 - 1001 * z4 * r2[i] + 385 * z2 * r4 - 35 * r6;
    zr6435[i] = 6435 * z8 - 12012 * z6 * r2[i] + 6930 * z4 * r4 - 1260 * z2 * r6 + 35 * r8;
  }
  for (int i = 0; i < Asize; i++) {
    for (int j = 0; j < Asize; j++) {
      ReXStripe[i * Asize + j] = z[i] * z[j] * (102960 * ReX[6 * Asize * Asize + i * Asize + j] + 144144 * zr5[i] * zr5[j] * ReX[4 * Asize * Asize + i * Asize + j] + 18480 * zr39[i] * zr39[j] * ReX[2 * Asize * Asize + i * Asize + j] + 144 * zr715[i] * zr715[j] * ReX[i * Asize + j]) + 6435 * ReX[7 * Asize * Asize + i * Asize + j] + 3432 * zr15[i] * zr15[j] * ReX[5 * Asize * Asize + i * Asize + j] + 2772 * zr65[i] * zr65[j] * ReX[3 * Asize * Asize + i * Asize + j] + 2520 * zr143[i] * zr143[j] * ReX[Asize * Asize + i * Asize + j] + zr6435[i] * zr6435[j];
    }
  }
  for (int k = 0; k < Nsize; k++) {
    for (int kd = 0; kd < Nsize; kd++) {
      for (int i = 0; i < Asize; i++) {
        for (int j = 0; j < Asize; j++) {
          kkdij[k * Nsize * Asize * Asize + kd * Asize * Asize + i * Asize + j] = ReXStripe[i * Asize + j] * exp(-alphaO1Palpha[k] * r2[i] - alphaO1Palpha[kd] * r2[j]);
        }
      }
    }
  }
  for (int n = 0; n < Nsize; n++) {
    for (int nd = n; nd < Nsize; nd++) {
      sumsOuter = 0;
      for (int k = 0; k < Nsize; k++) {
        for (int kd = 0; kd < Nsize; kd++) {
          sumsInner = 0;
          for (int i = 0; i < Asize; i++) {
            for (int j = 0; j < Asize; j++) {
              sumsInner += kkdij[k * Nsize * Asize * Asize + kd * Asize * Asize + i * Asize + j];
            }
          }
          sumsOuter += betas[8 * Nsize * Nsize + n * Nsize + k] * betas[8 * Nsize * Nsize + nd * Nsize + kd] * oneO1PalphaSqrt19[k] * oneO1PalphaSqrt19[kd] * sumsInner;
        }
      }
      P8[Nsize * n + nd] = 17.0 * 9.86960440108936 * 1.52587890625e-05 * sumsOuter;
    }
  }
  for (int n = 0; n < Nsize; n++) {
    for (int nd = n + 1; nd < Nsize; nd++) {
      P8[Nsize * nd + n] = P8[Nsize * n + nd];
    }
  }
  free(oneO1PalphaSqrt19);
  free(alphaO1Palpha);
  free(ReXStripe);
  free(zr15);
  free(zr5);
  free(zr65);
  free(zr39);
  free(zr143);
  free(zr715);
  free(zr6435);
  free(kkdij);
  return P8;
}
```