user: 这段汇编代码用C语言表示是什么样的？

```asm
<compute_ustar>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x90,%rsp
  movsd  %xmm0,-0x68(%rbp)
  movsd  %xmm1,-0x70(%rbp)
  movsd  %xmm2,-0x78(%rbp)
  movsd  %xmm3,-0x80(%rbp)
  movsd  -0x80(%rbp),%xmm0
  divsd  -0x78(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x30(%rbp)
  movsd  -0x68(%rbp),%xmm1
  movsd  D150(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  divsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0x70(%rbp),%rax
  movq   %rax,%xmm0
  call   <fabs@plt>
  test   %eax,%eax
  jle    L47
  movsd  -0x28(%rbp),%xmm0
  movq   D31(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mulsd  -0x28(%rbp),%xmm0
  mulsd  -0x28(%rbp),%xmm0
  movsd  -0x70(%rbp),%xmm2
  movsd  D150(%rip),%xmm1
  mulsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x80(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x78(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x18(%rbp),%xmm0
  pxor   %xmm1,%xmm1
  comisd %xmm1,%xmm0
  jb     L7
  movsd  -0x28(%rbp),%xmm0
  movsd  D150(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <psi_m_stable@plt>
  movsd  -0x30(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  mulsd  -0x88(%rbp),%xmm1
  movsd  -0x68(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x68(%rbp),%xmm1
  movsd  D150(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  %xmm1,-0x88(%rbp)
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <psi_m_stable@plt>
  movsd  -0x30(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  movsd  -0x88(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movq   D31(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mulsd  -0x50(%rbp),%xmm0
  mulsd  -0x50(%rbp),%xmm0
  movsd  -0x70(%rbp),%xmm2
  movsd  D150(%rip),%xmm1
  mulsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x80(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x78(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  D150(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <psi_m_stable@plt>
  movsd  -0x30(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  mulsd  -0x88(%rbp),%xmm1
  movsd  -0x68(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
L44:
  movsd  -0x40(%rbp),%xmm0
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x40(%rbp),%xmm1
  movapd %xmm1,%xmm2
  subsd  -0x48(%rbp),%xmm2
  movapd %xmm0,%xmm1
  divsd  %xmm2,%xmm1
  movsd  -0x50(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x40(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movq   D31(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mulsd  -0x50(%rbp),%xmm0
  mulsd  -0x50(%rbp),%xmm0
  movsd  -0x70(%rbp),%xmm2
  movsd  D150(%rip),%xmm1
  mulsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x80(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x78(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  D150(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <psi_m_stable@plt>
  movsd  -0x30(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  mulsd  -0x88(%rbp),%xmm1
  movsd  -0x68(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0x38(%rbp),%rax
  movq   %rax,%xmm0
  call   <fabs@plt>
  test   %eax,%eax
  jg     L44
  jmp    L22
L7:
  movsd  -0x28(%rbp),%xmm0
  movsd  D150(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <psi_m_unstable@plt>
  movsd  -0x30(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  mulsd  -0x88(%rbp),%xmm1
  movsd  -0x68(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x68(%rbp),%xmm1
  movsd  D150(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  %xmm1,-0x88(%rbp)
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <psi_m_unstable@plt>
  movsd  -0x30(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  movsd  -0x88(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movq   D31(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mulsd  -0x50(%rbp),%xmm0
  mulsd  -0x50(%rbp),%xmm0
  movsd  -0x70(%rbp),%xmm2
  movsd  D150(%rip),%xmm1
  mulsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x80(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x78(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  D150(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <psi_m_unstable@plt>
  movsd  -0x30(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  mulsd  -0x88(%rbp),%xmm1
  movsd  -0x68(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
L3:
  movsd  -0x40(%rbp),%xmm0
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x40(%rbp),%xmm1
  movapd %xmm1,%xmm2
  subsd  -0x48(%rbp),%xmm2
  movapd %xmm0,%xmm1
  divsd  %xmm2,%xmm1
  movsd  -0x50(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x40(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movq   D31(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mulsd  -0x50(%rbp),%xmm0
  mulsd  -0x50(%rbp),%xmm0
  movsd  -0x70(%rbp),%xmm2
  movsd  D150(%rip),%xmm1
  mulsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x80(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x78(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x50(%rbp),%xmm0
  movsd  D150(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x88(%rbp)
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <psi_m_unstable@plt>
  movsd  -0x30(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  mulsd  -0x88(%rbp),%xmm1
  movsd  -0x68(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  mov    -0x38(%rbp),%rax
  movq   %rax,%xmm0
  call   <fabs@plt>
  test   %eax,%eax
  jg     L3
  jmp    L22
L47:
  movsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x58(%rbp)
L22:
  movsd  -0x58(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: tag: D150
type_infered: f64
name: disassemble_data
arguments: tag: D31
type_infered: f32[2]

tool: D150: 0.35

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

assistant: ```c
double compute_ustar(double windspeed, double buoyancy_flux, double z0, double zb) {
  double lmo, zeta, zeta0, psi_m, ustar;
  double ustar0, ustar1, ustar_new, f0, f1, delta_ustar;
  double logz = log(zb / z0);
  ustar0 = windspeed * 0.35 / logz;
  if (fabs(buoyancy_flux) > 1.0e-20) {
    lmo = -ustar0 * ustar0 * ustar0 / (buoyancy_flux * 0.35);
    zeta = zb / lmo;
    zeta0 = z0 / lmo;
    if (zeta >= 0.0) {
      f0 = windspeed - ustar0 / 0.35 * (logz - psi_m_stable(zeta, zeta0));
      ustar1 = windspeed * 0.35 / (logz - psi_m_stable(zeta, zeta0));
      lmo = -ustar1 * ustar1 * ustar1 / (buoyancy_flux * 0.35);
      zeta = zb / lmo;
      zeta0 = z0 / lmo;
      f1 = windspeed - ustar1 / 0.35 * (logz - psi_m_stable(zeta, zeta0));
      ustar = ustar1;
      delta_ustar = ustar1 - ustar0;
      do {
        ustar_new = ustar1 - f1 * delta_ustar / (f1 - f0);
        f0 = f1;
        ustar0 = ustar1;
        ustar1 = ustar_new;
        lmo = -ustar1 * ustar1 * ustar1 / (buoyancy_flux * 0.35);
        zeta = zb / lmo;
        zeta0 = z0 / lmo;
        f1 = windspeed - ustar1 / 0.35 * (logz - psi_m_stable(zeta, zeta0));
        delta_ustar = ustar1 - ustar0;
      } while (fabs(delta_ustar) > 1e-10);
    } else {
      f0 = windspeed - ustar0 / 0.35 * (logz - psi_m_unstable(zeta, zeta0));
      ustar1 = windspeed * 0.35 / (logz - psi_m_unstable(zeta, zeta0));
      lmo = -ustar1 * ustar1 * ustar1 / (buoyancy_flux * 0.35);
      zeta = zb / lmo;
      zeta0 = z0 / lmo;
      f1 = windspeed - ustar1 / 0.35 * (logz - psi_m_unstable(zeta, zeta0));
      ustar = ustar1;
      delta_ustar = ustar1 - ustar0;
      do {
        ustar_new = ustar1 - f1 * delta_ustar / (f1 - f0);
        f0 = f1;
        ustar0 = ustar1;
        ustar1 = ustar_new;
        lmo = -ustar1 * ustar1 * ustar1 / (buoyancy_flux * 0.35);
        zeta = zb / lmo;
        zeta0 = z0 / lmo;
        f1 = windspeed - ustar1 / 0.35 * (logz - psi_m_unstable(zeta, zeta0));
        delta_ustar = ustar1 - ustar0;
      } while (fabs(delta_ustar) > 1e-10);
    }
  } else {
    ustar = ustar0;
  }
  return ustar;
}
```