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

```asm
<Roe_Goundov_solver>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x170,%rsp
  mov    %rdi,-0x118(%rbp)
  movsd  %xmm0,-0x120(%rbp)
  movsd  %xmm1,-0x128(%rbp)
  movsd  %xmm2,-0x130(%rbp)
  movsd  %xmm3,-0x138(%rbp)
  movsd  %xmm4,-0x140(%rbp)
  movsd  %xmm5,-0x148(%rbp)
  movsd  %xmm6,-0x150(%rbp)
  mov    %rsi,-0x158(%rbp)
  movsd  %xmm7,-0x160(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movsd  -0x120(%rbp),%xmm0
  mulsd  -0x128(%rbp),%xmm0
  divsd  -0x130(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x108(%rbp)
  movsd  -0x120(%rbp),%xmm0
  mulsd  -0x140(%rbp),%xmm0
  divsd  -0x148(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x100(%rbp)
  movsd  -0x120(%rbp),%xmm0
  movsd  D74(%rip),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  D54(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  divsd  -0x120(%rbp),%xmm0
  movsd  %xmm0,-0xf8(%rbp)
  movsd  -0x120(%rbp),%xmm0
  movsd  D74(%rip),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  -0x120(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  mulsd  -0x128(%rbp),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x130(%rbp),%xmm1
  movsd  -0x138(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  %xmm0,%xmm2
  movsd  D54(%rip),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0xf0(%rbp)
  movsd  -0x120(%rbp),%xmm0
  movsd  D74(%rip),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  -0x120(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  mulsd  -0x140(%rbp),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x148(%rbp),%xmm1
  movsd  -0x150(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  %xmm0,%xmm2
  movsd  D54(%rip),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0xe8(%rbp)
  movsd  -0x120(%rbp),%xmm0
  movsd  D74(%rip),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  D74(%rip),%xmm0
  divsd  %xmm1,%xmm0
  mulsd  -0x128(%rbp),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x130(%rbp),%xmm1
  movsd  -0x138(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  %xmm0,%xmm2
  movsd  D54(%rip),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0xe0(%rbp)
  movsd  -0x120(%rbp),%xmm0
  movsd  D74(%rip),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  D74(%rip),%xmm0
  divsd  %xmm1,%xmm0
  mulsd  -0x140(%rbp),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x148(%rbp),%xmm1
  movsd  -0x150(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  %xmm0,%xmm2
  movsd  D54(%rip),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0xd8(%rbp)
  movsd  -0x130(%rbp),%xmm0
  movsd  %xmm0,-0xb0(%rbp)
  movsd  -0x130(%rbp),%xmm0
  mulsd  -0x138(%rbp),%xmm0
  movsd  %xmm0,-0xa8(%rbp)
  movsd  -0x130(%rbp),%xmm0
  mulsd  -0xe0(%rbp),%xmm0
  movsd  %xmm0,-0xa0(%rbp)
  movsd  -0x130(%rbp),%xmm0
  mulsd  -0x148(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,-0xd0(%rbp)
  mov    -0x130(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm3
  mulsd  -0x138(%rbp),%xmm3
  movsd  %xmm3,-0x168(%rbp)
  mov    -0x148(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  mulsd  -0x150(%rbp),%xmm0
  addsd  -0x168(%rbp),%xmm0
  movsd  %xmm0,-0x168(%rbp)
  mov    -0x130(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movsd  %xmm0,-0x170(%rbp)
  mov    -0x148(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movsd  -0x170(%rbp),%xmm1
  addsd  %xmm0,%xmm1
  movsd  -0x168(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0xc8(%rbp)
  mov    -0x130(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm4
  mulsd  -0xf0(%rbp),%xmm4
  movsd  %xmm4,-0x168(%rbp)
  mov    -0x148(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  mulsd  -0xe8(%rbp),%xmm0
  addsd  -0x168(%rbp),%xmm0
  movsd  %xmm0,-0x168(%rbp)
  mov    -0x130(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movsd  %xmm0,-0x170(%rbp)
  mov    -0x148(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movsd  -0x170(%rbp),%xmm1
  addsd  %xmm0,%xmm1
  movsd  -0x168(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0xc0(%rbp)
  movsd  -0x120(%rbp),%xmm0
  movsd  D74(%rip),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  -0xc8(%rbp),%xmm2
  movsd  D54(%rip),%xmm0
  mulsd  %xmm2,%xmm0
  movapd %xmm0,%xmm2
  mulsd  -0xc8(%rbp),%xmm2
  movsd  -0xc0(%rbp),%xmm0
  subsd  %xmm2,%xmm0
  mulsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,-0xb8(%rbp)
  movsd  D74(%rip),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  D74(%rip),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  D74(%rip),%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  subsd  -0xb8(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  addsd  -0xb8(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0xb8(%rbp),%xmm1
  movsd  -0xc0(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  movsd  D54(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  mulsd  -0xb8(%rbp),%xmm0
  addsd  -0xc0(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x140(%rbp),%xmm0
  subsd  -0x128(%rbp),%xmm0
  movsd  -0xd0(%rbp),%xmm1
  movapd %xmm1,%xmm2
  mulsd  -0xb8(%rbp),%xmm2
  movsd  -0x150(%rbp),%xmm1
  subsd  -0x138(%rbp),%xmm1
  mulsd  %xmm1,%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  D54(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  -0xb8(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  %xmm0,%xmm2
  divsd  %xmm2,%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm0,-0x70(%rbp)
  movsd  -0x148(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x130(%rbp),%xmm1
  movsd  -0x140(%rbp),%xmm0
  movapd %xmm0,%xmm2
  subsd  -0x128(%rbp),%xmm2
  movsd  -0xb8(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  divsd  %xmm0,%xmm2
  subsd  %xmm2,%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm0,-0x68(%rbp)
  movsd  -0x140(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x128(%rbp),%xmm1
  movsd  -0xd0(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  -0xb8(%rbp),%xmm2
  movsd  -0x150(%rbp),%xmm0
  subsd  -0x138(%rbp),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm0,%xmm1
  movsd  D54(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  -0xb8(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  %xmm0,%xmm2
  divsd  %xmm2,%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  subsd  -0xb8(%rbp),%xmm0
  movsd  %xmm0,-0x90(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  addsd  -0xb8(%rbp),%xmm0
  movsd  %xmm0,-0x80(%rbp)
  movsd  -0xc8(%rbp),%xmm0
  movq   D56(%rip),%xmm1
  andpd  %xmm1,%xmm0
  addsd  -0xb8(%rbp),%xmm0
  mov    -0x158(%rbp),%rax
  movsd  %xmm0,(%rax)
  movl   $0x0,-0x10c(%rbp)
  jmp    L7
L29:
  mov    -0x10c(%rbp),%eax
  cltq
  movsd  -0x90(%rbp,%rax,8),%xmm1
  pxor   %xmm0,%xmm0
  comisd %xmm1,%xmm0
  jb     L13
  movl   $0x0,-0x110(%rbp)
  jmp    L36
L30:
  mov    -0x110(%rbp),%eax
  cltq
  movsd  -0xb0(%rbp,%rax,8),%xmm1
  mov    -0x10c(%rbp),%eax
  cltq
  movsd  -0x70(%rbp,%rax,8),%xmm2
  mov    -0x10c(%rbp),%eax
  movslq %eax,%rcx
  mov    -0x110(%rbp),%eax
  movslq %eax,%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  add    %rcx,%rax
  movsd  -0x50(%rbp,%rax,8),%xmm0
  mulsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  mov    -0x110(%rbp),%eax
  cltq
  movsd  %xmm0,-0xb0(%rbp,%rax,8)
  addl   $0x1,-0x110(%rbp)
L36:
  cmpl   $0x2,-0x110(%rbp)
  jle    L30
L13:
  addl   $0x1,-0x10c(%rbp)
L7:
  cmpl   $0x2,-0x10c(%rbp)
  jle    L29
  movsd  -0xb0(%rbp),%xmm0
  mov    -0x118(%rbp),%rax
  movsd  %xmm0,(%rax)
  movsd  -0xa8(%rbp),%xmm0
  movsd  -0xb0(%rbp),%xmm1
  mov    -0x118(%rbp),%rax
  add    $0x8,%rax
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  movsd  -0xa0(%rbp),%xmm0
  movsd  -0xb0(%rbp),%xmm1
  divsd  %xmm1,%xmm0
  mov    -0x118(%rbp),%rax
  add    $0x8,%rax
  movsd  (%rax),%xmm2
  movsd  D54(%rip),%xmm1
  mulsd  %xmm1,%xmm2
  mov    -0x118(%rbp),%rax
  add    $0x8,%rax
  movsd  (%rax),%xmm1
  mulsd  %xmm1,%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  movsd  -0x120(%rbp),%xmm0
  movsd  D74(%rip),%xmm2
  subsd  %xmm2,%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x118(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x118(%rbp),%rax
  add    $0x10,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L2
  call   <__stack_chk_fail@plt>
L2:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_tag: D74
datatype: f64
name: unpack_data
arguments: data_tag: D54
datatype: f64
name: unpack_data
arguments: data_tag: D56
datatype: qword

tool: D74: 1

tool: D54: 0.5

tool: D56: 9223372036854775807

assistant: ```c
void Roe_Goundov_solver(double *F, double gamma, double P_L, double RHO_L, double U_L, double P_R, double RHO_R, double U_R, double *lambda_max, double delta) {
  double C_L, C_R;
  C_L = sqrt(gamma * P_L / RHO_L);
  C_R = sqrt(gamma * P_R / RHO_R);
  double z = 0.5 * (gamma - 1.0) / gamma;
  double H_L, H_R;
  H_L = gamma / (gamma - 1.0) * P_L / RHO_L + 0.5 * (U_L * U_L);
  H_R = gamma / (gamma - 1.0) * P_R / RHO_R + 0.5 * (U_R * U_R);
  double E_L, E_R;
  E_L = 1.0 / (gamma - 1.0) * P_L / RHO_L + 0.5 * (U_L * U_L);
  E_R = 1.0 / (gamma - 1.0) * P_R / RHO_R + 0.5 * (U_R * U_R);
  double U[3];
  U[0] = RHO_L;
  U[1] = RHO_L * U_L;
  U[2] = RHO_L * E_L;
  double RHO_S, U_S, H_S, C_S;
  RHO_S = sqrt(RHO_L * RHO_R);
  U_S = (U_L * sqrt(RHO_L) + U_R * sqrt(RHO_R)) / (sqrt(RHO_L) + sqrt(RHO_R));
  H_S = (H_L * sqrt(RHO_L) + H_R * sqrt(RHO_R)) / (sqrt(RHO_L) + sqrt(RHO_R));
  C_S = sqrt((gamma - 1.0) * (H_S - 0.5 * U_S * U_S));
  double R[3][3];
  double lambda[3], W[3];
  R[0][0] = 1.0;
  R[0][1] = 1.0;
  R[0][2] = 1.0;
  R[1][0] = U_S - C_S;
  R[1][1] = U_S;
  R[1][2] = U_S + C_S;
  R[2][0] = H_S - U_S * C_S;
  R[2][1] = 0.5 * (U_S * U_S);
  R[2][2] = H_S + U_S * C_S;
  int i, j;
  W[0] = 0.5 * ((P_R - P_L) - RHO_S * C_S * (U_R - U_L)) / (C_S * C_S);
  W[1] = (RHO_R - RHO_L) - (P_R - P_L) / (C_S * C_S);
  W[2] = 0.5 * ((P_R - P_L) + RHO_S * C_S * (U_R - U_L)) / (C_S * C_S);
  lambda[0] = U_S - C_S;
  lambda[1] = U_S;
  lambda[2] = U_S + C_S;
  *lambda_max = fabs(U_S) + C_S;
  for (j = 0; j < 3; j++) {
    if (lambda[j] <= 0) {
      for (i = 0; i < 3; i++) {
        U[i] += W[j] * R[i][j];
      }
    }
  }
  F[0] = U[0];
  F[1] = U[1] / U[0];
  F[2] = (U[2] / U[0] - 0.5 * F[1] * F[1]) * (gamma - 1.0) * F[0];
}
```