user: 请将以下的汇编代码转换成C语言代码：

```asm
<fpsimple_9j>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x70,%rsp
  mov    %rdi,-0x58(%rbp)
  mov    %esi,-0x5c(%rbp)
  mov    %edx,-0x60(%rbp)
  mov    %ecx,-0x64(%rbp)
  mov    %r8d,-0x68(%rbp)
  mov    %r9d,-0x6c(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  mov    -0x5c(%rbp),%eax
  sub    0x28(%rbp),%eax
  mov    %eax,%edx
  neg    %edx
  cmovs  %eax,%edx
  mov    -0x60(%rbp),%eax
  sub    0x10(%rbp),%eax
  mov    %eax,%ecx
  neg    %ecx
  cmovs  %eax,%ecx
  mov    0x20(%rbp),%eax
  sub    -0x68(%rbp),%eax
  mov    %eax,%esi
  neg    %esi
  cmovns %esi,%eax
  mov    %ecx,%esi
  mov    %eax,%edi
  call   <max3@plt>
  mov    %eax,-0x48(%rbp)
  mov    -0x5c(%rbp),%edx
  mov    0x28(%rbp),%eax
  add    %eax,%edx
  mov    -0x60(%rbp),%ecx
  mov    0x10(%rbp),%eax
  add    %eax,%ecx
  mov    0x20(%rbp),%esi
  mov    -0x68(%rbp),%eax
  add    %esi,%eax
  mov    %ecx,%esi
  mov    %eax,%edi
  call   <min3@plt>
  mov    %eax,-0x44(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x48(%rbp),%eax
  mov    %eax,-0x4c(%rbp)
  jmp    L2
L17:
  mov    -0x4c(%rbp),%r8d
  mov    0x28(%rbp),%edi
  mov    -0x64(%rbp),%edx
  mov    -0x60(%rbp),%esi
  mov    -0x5c(%rbp),%eax
  sub    $0x8,%rsp
  lea    -0x40(%rbp),%rcx
  push   %rcx
  mov    %r8d,%r9d
  mov    %edi,%r8d
  mov    0x10(%rbp),%ecx
  mov    %eax,%edi
  call   <fpsimple_factor_6j@plt>
  add    $0x10,%rsp
  mov    -0x4c(%rbp),%r8d
  mov    -0x60(%rbp),%edi
  mov    0x20(%rbp),%ecx
  mov    -0x6c(%rbp),%edx
  mov    -0x68(%rbp),%eax
  sub    $0x8,%rsp
  lea    -0x38(%rbp),%rsi
  push   %rsi
  mov    %r8d,%r9d
  mov    %edi,%r8d
  mov    %eax,%esi
  mov    0x10(%rbp),%edi
  call   <fpsimple_factor_6j@plt>
  add    $0x10,%rsp
  mov    -0x4c(%rbp),%r9d
  mov    -0x68(%rbp),%r8d
  mov    -0x5c(%rbp),%ecx
  mov    0x18(%rbp),%edx
  mov    0x28(%rbp),%esi
  mov    0x20(%rbp),%eax
  sub    $0x8,%rsp
  lea    -0x30(%rbp),%rdi
  push   %rdi
  mov    %eax,%edi
  call   <fpsimple_factor_6j@plt>
  add    $0x10,%rsp
  movsd  -0x40(%rbp),%xmm1
  movsd  -0x38(%rbp),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  -0x30(%rbp),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  D15(%rip),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  lea    -0x28(%rbp),%rcx
  mov    -0x4c(%rbp),%edx
  mov    0x28(%rbp),%esi
  mov    -0x5c(%rbp),%eax
  mov    %eax,%edi
  call   <fpsimple_delta_coeff@plt>
  lea    -0x28(%rbp),%rcx
  mov    -0x4c(%rbp),%edx
  mov    -0x60(%rbp),%eax
  mov    %eax,%esi
  mov    0x10(%rbp),%edi
  call   <fpsimple_delta_coeff@plt>
  lea    -0x28(%rbp),%rcx
  mov    -0x4c(%rbp),%edx
  mov    -0x68(%rbp),%esi
  mov    0x20(%rbp),%eax
  mov    %eax,%edi
  call   <fpsimple_delta_coeff@plt>
  mov    -0x4c(%rbp),%eax
  add    $0x1,%eax
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
  movsd  -0x28(%rbp),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x18(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x4c(%rbp),%eax
  and    $0x1,%eax
  lea    (%rax,%rax,1),%edx
  mov    $0x1,%eax
  sub    %edx,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mulsd  -0x10(%rbp),%xmm0
  movsd  -0x20(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  addl   $0x2,-0x4c(%rbp)
L2:
  mov    -0x4c(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jle    L17
  movsd  D15(%rip),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  lea    -0x28(%rbp),%rcx
  mov    -0x64(%rbp),%edx
  mov    -0x60(%rbp),%esi
  mov    -0x5c(%rbp),%eax
  mov    %eax,%edi
  call   <fpsimple_delta_coeff@plt>
  lea    -0x28(%rbp),%rdx
  mov    -0x6c(%rbp),%esi
  mov    -0x68(%rbp),%eax
  mov    %rdx,%rcx
  mov    0x10(%rbp),%edx
  mov    %eax,%edi
  call   <fpsimple_delta_coeff@plt>
  lea    -0x28(%rbp),%rcx
  mov    0x28(%rbp),%edx
  mov    0x20(%rbp),%esi
  mov    0x18(%rbp),%eax
  mov    %eax,%edi
  call   <fpsimple_delta_coeff@plt>
  lea    -0x28(%rbp),%rcx
  mov    0x18(%rbp),%edx
  mov    -0x68(%rbp),%esi
  mov    -0x5c(%rbp),%eax
  mov    %eax,%edi
  call   <fpsimple_delta_coeff@plt>
  lea    -0x28(%rbp),%rcx
  mov    0x20(%rbp),%edx
  mov    -0x6c(%rbp),%esi
  mov    -0x60(%rbp),%eax
  mov    %eax,%edi
  call   <fpsimple_delta_coeff@plt>
  lea    -0x28(%rbp),%rcx
  mov    0x28(%rbp),%edx
  mov    -0x64(%rbp),%eax
  mov    0x10(%rbp),%esi
  mov    %eax,%edi
  call   <fpsimple_delta_coeff@plt>
  mov    -0x28(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  mulsd  -0x20(%rbp),%xmm0
  mov    -0x58(%rbp),%rax
  movsd  %xmm0,(%rax)
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L24
  call   <__stack_chk_fail@plt>
L24:
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: data_label: D15
type_guessed: f64

tool: D15: 1

assistant: ```c
void fpsimple_9j(double *result, int two_a, int two_b, int two_c, int two_d, int two_e, int two_f, int two_g, int two_h, int two_i) {
  int two_kmin = max3(abs(two_h - two_d), abs(two_b - two_f), abs(two_a - two_i));
  int two_kmax = min3(two_h + two_d, two_b + two_f, two_a + two_i);
  int two_k;
  double sum_prod = 0;
  for (two_k = two_kmin; two_k <= two_kmax; two_k += 2) {
    double f1, f2, f3;
    fpsimple_factor_6j(two_a, two_b, two_c, two_f, two_i, two_k, &f1);
    fpsimple_factor_6j(two_f, two_d, two_e, two_h, two_b, two_k, &f2);
    fpsimple_factor_6j(two_h, two_i, two_g, two_a, two_d, two_k, &f3);
    double factor = f1 * f2 * f3;
    double inner_delta = 1;
    fpsimple_delta_coeff(two_a, two_i, two_k, &inner_delta);
    fpsimple_delta_coeff(two_f, two_b, two_k, &inner_delta);
    fpsimple_delta_coeff(two_h, two_d, two_k, &inner_delta);
    double prod = (two_k + 1) * inner_delta * factor;
    sum_prod += (1 - 2 * ((two_k)&1)) * prod;
  }
  double prefact = 1;
  fpsimple_delta_coeff(two_a, two_b, two_c, &prefact);
  fpsimple_delta_coeff(two_d, two_e, two_f, &prefact);
  fpsimple_delta_coeff(two_g, two_h, two_i, &prefact);
  fpsimple_delta_coeff(two_a, two_d, two_g, &prefact);
  fpsimple_delta_coeff(two_b, two_e, two_h, &prefact);
  fpsimple_delta_coeff(two_c, two_f, two_i, &prefact);
  *result = sqrt(prefact) * sum_prod;
}
```