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

```asm
<sor_cycle>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x60,%rsp
  mov    %rdi,-0x38(%rbp)
  mov    %rsi,-0x40(%rbp)
  movsd  %xmm0,-0x48(%rbp)
  mov    %edx,-0x4c(%rbp)
  mov    %ecx,-0x50(%rbp)
  movsd  %xmm1,-0x58(%rbp)
  movsd  %xmm2,-0x60(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movl   $0x1,-0x30(%rbp)
  jmp    L36
L35:
  movl   $0x1,-0x2c(%rbp)
  jmp    L17
L19:
  mov    -0x2c(%rbp),%r9d
  mov    -0x30(%rbp),%r8d
  lea    -0x18(%rbp),%rcx
  lea    -0x10(%rbp),%rdx
  lea    -0x20(%rbp),%rsi
  lea    -0x28(%rbp),%rax
  mov    -0x50(%rbp),%edi
  push   %rdi
  mov    -0x4c(%rbp),%edi
  push   %rdi
  mov    %rax,%rdi
  call   <e_parameters@plt>
  add    $0x10,%rsp
  movsd  D3(%rip),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x48(%rbp),%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movapd %xmm1,%xmm2
  mulsd  %xmm0,%xmm2
  movsd  -0x20(%rbp),%xmm1
  movsd  -0x28(%rbp),%xmm0
  addsd  %xmm0,%xmm1
  movsd  -0x58(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movapd %xmm1,%xmm3
  divsd  %xmm0,%xmm3
  movsd  -0x18(%rbp),%xmm1
  movsd  -0x10(%rbp),%xmm0
  addsd  %xmm0,%xmm1
  movsd  -0x60(%rbp),%xmm0
  movapd %xmm0,%xmm4
  mulsd  %xmm0,%xmm4
  divsd  %xmm4,%xmm1
  movapd %xmm1,%xmm0
  addsd  %xmm0,%xmm3
  movapd %xmm3,%xmm1
  movsd  -0x48(%rbp),%xmm0
  movapd %xmm0,%xmm3
  divsd  %xmm1,%xmm3
  mov    -0x30(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  movsd  -0x20(%rbp),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm4
  movsd  -0x28(%rbp),%xmm0
  mulsd  %xmm4,%xmm0
  addsd  %xmm0,%xmm1
  movsd  -0x58(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movapd %xmm1,%xmm4
  divsd  %xmm0,%xmm4
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  add    $0x1,%rax
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  movsd  -0x18(%rbp),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  sub    $0x8,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm5
  movsd  -0x10(%rbp),%xmm0
  mulsd  %xmm5,%xmm0
  addsd  %xmm0,%xmm1
  movsd  -0x60(%rbp),%xmm0
  movapd %xmm0,%xmm5
  mulsd  %xmm0,%xmm5
  divsd  %xmm5,%xmm1
  movapd %xmm1,%xmm0
  addsd  %xmm4,%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  mulsd  %xmm3,%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  addsd  %xmm2,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x2c(%rbp)
L17:
  mov    -0x2c(%rbp),%eax
  cmp    -0x50(%rbp),%eax
  jle    L19
  addl   $0x1,-0x30(%rbp)
L36:
  mov    -0x30(%rbp),%eax
  cmp    -0x4c(%rbp),%eax
  jle    L35
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L12
  call   <__stack_chk_fail@plt>
L12:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_label: D3
datatype: f64

tool: D3: 1

assistant: ```c
void sor_cycle(double **P, double **RHS, double omega, int nx, int ny, double dx, double dy) {
  int i, j;
  double e_left, e_right, e_top, e_bottom;
  for (i = 1; i <= nx; i++) {
    for (j = 1; j <= ny; j++) {
      e_parameters(&e_left, &e_right, &e_bottom, &e_top, i, j, nx, ny);
      P[i][j] = (1.0 - omega) * P[i][j] + omega / ((e_right + e_left) / (dx * dx) + (e_top + e_bottom) / (dy * dy)) * ((e_right * P[i + 1][j] + e_left * P[i - 1][j]) / (dx * dx) + (e_top * P[i][j + 1] + e_bottom * P[i][j - 1]) / (dy * dy) - RHS[i][j]);
    }
  }
}
```