user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<so3CombineCoef>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  mov    %esi,%r13d
  push   %r12
  mov    %edi,%r12d
  mov    %esi,%edi
  push   %rbp
  push   %rbx
  mov    %edx,%ebx
  sub    $0x58,%rsp
  mov    %rcx,0x38(%rsp)
  mov    %r8,0x40(%rsp)
  mov    %r9,0x30(%rsp)
  mov    %edx,0x4c(%rsp)
  call   <totalCoeffs_so3@plt>
  mov    0x98(%rsp),%rdi
  xor    %esi,%esi
  lea    0x0(,%rax,8),%edx
  call   <memset@plt>
  mov    %r13d,%edi
  call   <totalCoeffs_so3@plt>
  mov    0xa0(%rsp),%rdi
  xor    %esi,%esi
  lea    0x0(,%rax,8),%edx
  call   <memset@plt>
  test   %ebx,%ebx
  js     L13
  xor    %r14d,%r14d
  nopl   0x0(%rax,%rax,1)
L20:
  pxor   %xmm0,%xmm0
  movsd  D6(%rip),%xmm1
  cvtsi2sd %r14d,%xmm0
  addsd  %xmm0,%xmm0
  addsd  D27(%rip),%xmm0
  divsd  %xmm0,%xmm1
  cvttsd2si %xmm1,%edi
  call   <sqrt@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mulsd  D19(%rip),%xmm0
  mov    %r14d,%eax
  neg    %eax
  mov    %eax,0x48(%rsp)
  mov    %eax,%ebp
  movsd  %xmm0,0x28(%rsp)
  nopl   0x0(%rax,%rax,1)
L33:
  mov    %ebp,%edi
  mov    %r12d,%edx
  mov    %r14d,%esi
  neg    %edi
  call   <seanindex@plt>
  mov    0x38(%rsp),%rbx
  mov    0x48(%rsp),%r15d
  cltq
  movsd  (%rbx,%rax,8),%xmm7
  mov    0x40(%rsp),%rbx
  movsd  %xmm7,0x18(%rsp)
  movsd  (%rbx,%rax,8),%xmm7
  lea    (%r14,%rbp,1),%eax
  and    $0x1,%eax
  cmp    $0x1,%eax
  movsd  %xmm7,0x20(%rsp)
  sbb    %ebx,%ebx
  and    $0x2,%ebx
  sub    $0x1,%ebx
L19:
  mov    %r15d,%edi
  mov    %r12d,%edx
  mov    %r14d,%esi
  neg    %edi
  call   <seanindex@plt>
  pxor   %xmm1,%xmm1
  mov    0x30(%rsp),%rcx
  mov    %ebp,%edi
  cvtsi2sd %ebx,%xmm1
  mov    0x90(%rsp),%rsi
  cltq
  mov    %r14d,%edx
  movsd  (%rcx,%rax,8),%xmm2
  mov    %r13d,%ecx
  neg    %ebx
  movsd  (%rsi,%rax,8),%xmm0
  xorpd  D11(%rip),%xmm0
  mov    %r15d,%esi
  add    $0x1,%r15d
  mulsd  %xmm1,%xmm2
  mulsd  %xmm1,%xmm0
  movsd  %xmm2,0x10(%rsp)
  movsd  %xmm0,0x8(%rsp)
  call   <so3CoefLoc@plt>
  movsd  0x18(%rsp),%xmm4
  movsd  0x20(%rsp),%xmm5
  movsd  0x10(%rsp),%xmm2
  movsd  0x8(%rsp),%xmm0
  cltq
  movapd %xmm4,%xmm1
  movapd %xmm5,%xmm3
  movsd  0x28(%rsp),%xmm6
  mov    0x98(%rsp),%rdx
  mulsd  %xmm2,%xmm1
  mov    0xa0(%rsp),%rcx
  mulsd  %xmm0,%xmm3
  mulsd  %xmm5,%xmm2
  mulsd  %xmm4,%xmm0
  subsd  %xmm3,%xmm1
  addsd  %xmm2,%xmm0
  mulsd  %xmm6,%xmm1
  mulsd  %xmm6,%xmm0
  movsd  %xmm1,(%rdx,%rax,8)
  movsd  %xmm0,(%rcx,%rax,8)
  cmp    %r15d,%r14d
  jge    L19
  add    $0x1,%ebp
  cmp    %ebp,%r14d
  jge    L33
  add    $0x1,%r14d
  cmp    %r14d,0x4c(%rsp)
  jge    L20
L13:
  add    $0x58,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: read_data
arguments: data_label: D6
type: f64
name: read_data
arguments: data_label: D27
type: byte[8]
name: read_data
arguments: data_label: D19
type: byte[8]
name: read_data
arguments: data_label: D11
type: byte[16]

tool: D6: 2

tool: {"D27": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

tool: {"D19": [0x18,0x2d,0x44,0x54,0xfb,0x21,0x19,0x40]}

tool: {"D11": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

assistant: ```c
void so3CombineCoef(int bwIn, int bwOut, int degLim, double *sigCoefR, double *sigCoefI, double *patCoefR, double *patCoefI, double *so3CoefR, double *so3CoefI) {
  int l, m1, m2;
  int fudge, dummy;
  double tmpSigCoefR, tmpSigCoefI;
  double tmpPatCoefR, tmpPatCoefI;
  double wigNorm;
  memset(so3CoefR, 0, sizeof(double) * totalCoeffs_so3(bwOut));
  memset(so3CoefI, 0, sizeof(double) * totalCoeffs_so3(bwOut));
  for (l = 0; l <= degLim; l++) {
    wigNorm = 2. * 3.14159265358979323846 * sqrt(2. / (2. * l + 1));
    for (m1 = -l; m1 <= l; m1++) {
      dummy = seanindex(-m1, l, bwIn);
      tmpSigCoefR = sigCoefR[dummy];
      tmpSigCoefI = sigCoefI[dummy];
      if ((m1 + l) % 2)
        fudge = -1;
      else
        fudge = 1;
      for (m2 = -l; m2 <= l; m2++) {
        dummy = seanindex(-m2, l, bwIn);
        tmpPatCoefR = fudge * patCoefR[dummy];
        tmpPatCoefI = fudge * (-patCoefI[dummy]);
        dummy = so3CoefLoc(m1, m2, l, bwOut);
        so3CoefR[dummy] = wigNorm * (tmpSigCoefR * tmpPatCoefR - tmpSigCoefI * tmpPatCoefI);
        so3CoefI[dummy] = wigNorm * (tmpSigCoefR * tmpPatCoefI + tmpSigCoefI * tmpPatCoefR);
        fudge *= -1;
      }
    }
  }
}
```