user: What would the C source look like for the assembly code provided here?

```asm
<compute_ustar>:
  endbr64
  movapd %xmm3,%xmm7
  push   %rbx
  movq   %xmm1,%rbx
  divsd  %xmm2,%xmm7
  sub    $0x50,%rsp
  movsd  %xmm0,(%rsp)
  movsd  %xmm3,0x8(%rsp)
  movsd  %xmm2,0x18(%rsp)
  movapd %xmm7,%xmm0
  call   <log@plt>
  movsd  D44(%rip),%xmm7
  mulsd  (%rsp),%xmm7
  movsd  %xmm0,0x10(%rsp)
  movapd %xmm7,%xmm2
  movsd  %xmm7,0x28(%rsp)
  divsd  %xmm0,%xmm2
  movq   %rbx,%xmm0
  movsd  %xmm2,0x20(%rsp)
  call   <fabs@plt>
  movsd  0x20(%rsp),%xmm2
  test   %eax,%eax
  jle    L45
  movapd %xmm2,%xmm0
  movq   %rbx,%xmm10
  xorpd  D42(%rip),%xmm0
  movsd  D44(%rip),%xmm8
  movsd  0x8(%rsp),%xmm3
  movsd  0x18(%rsp),%xmm1
  movapd %xmm2,%xmm9
  movsd  %xmm2,0x48(%rsp)
  divsd  D44(%rip),%xmm9
  mulsd  %xmm2,%xmm0
  movsd  %xmm9,0x30(%rsp)
  mulsd  %xmm10,%xmm8
  mulsd  %xmm2,%xmm0
  movsd  %xmm8,0x20(%rsp)
  divsd  %xmm8,%xmm0
  divsd  %xmm0,%xmm3
  divsd  %xmm0,%xmm1
  comisd D85(%rip),%xmm3
  movapd %xmm3,%xmm0
  movsd  %xmm3,0x38(%rsp)
  movsd  %xmm1,0x40(%rsp)
  jb     L21
  call   <psi_m_stable@plt>
  movsd  0x38(%rsp),%xmm3
  movsd  0x40(%rsp),%xmm1
  movapd %xmm0,%xmm4
  movsd  0x10(%rsp),%xmm0
  subsd  %xmm4,%xmm0
  mulsd  0x30(%rsp),%xmm0
  movsd  (%rsp),%xmm4
  subsd  %xmm0,%xmm4
  movapd %xmm3,%xmm0
  movsd  %xmm4,0x30(%rsp)
  call   <psi_m_stable@plt>
  movsd  0x28(%rsp),%xmm6
  movsd  0x8(%rsp),%xmm3
  movapd %xmm0,%xmm1
  movsd  0x10(%rsp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  0x18(%rsp),%xmm1
  divsd  %xmm0,%xmm6
  movapd %xmm6,%xmm0
  xorpd  D42(%rip),%xmm0
  movsd  %xmm6,0x40(%rsp)
  mulsd  %xmm6,%xmm0
  mulsd  %xmm6,%xmm0
  divsd  0x20(%rsp),%xmm0
  divsd  %xmm0,%xmm3
  divsd  %xmm0,%xmm1
  movapd %xmm3,%xmm0
  call   <psi_m_stable@plt>
  movsd  0x10(%rsp),%xmm1
  movsd  0x40(%rsp),%xmm6
  movapd %xmm0,%xmm3
  movsd  0x48(%rsp),%xmm2
  movsd  0x30(%rsp),%xmm4
  subsd  %xmm3,%xmm1
  movapd %xmm6,%xmm0
  divsd  D44(%rip),%xmm0
  movsd  (%rsp),%xmm3
  mulsd  %xmm1,%xmm0
  subsd  %xmm0,%xmm3
  movapd %xmm6,%xmm0
  subsd  %xmm2,%xmm0
  movapd %xmm6,%xmm2
  jmp    L34
  nopl   0x0(%rax,%rax,1)
L24:
  movq   %rbx,%xmm3
L34:
  mulsd  %xmm3,%xmm0
  movapd %xmm3,%xmm1
  movsd  %xmm2,0x28(%rsp)
  subsd  %xmm4,%xmm1
  movsd  0x8(%rsp),%xmm4
  movsd  %xmm3,0x38(%rsp)
  divsd  %xmm1,%xmm0
  movsd  0x18(%rsp),%xmm1
  subsd  %xmm0,%xmm2
  movapd %xmm2,%xmm0
  xorpd  D42(%rip),%xmm0
  movsd  %xmm2,0x30(%rsp)
  mulsd  %xmm2,%xmm0
  mulsd  %xmm2,%xmm0
  divsd  0x20(%rsp),%xmm0
  divsd  %xmm0,%xmm4
  divsd  %xmm0,%xmm1
  movapd %xmm4,%xmm0
  call   <psi_m_stable@plt>
  movsd  0x10(%rsp),%xmm1
  movsd  0x30(%rsp),%xmm2
  movapd %xmm0,%xmm4
  movsd  (%rsp),%xmm5
  subsd  %xmm4,%xmm1
  movapd %xmm2,%xmm0
  divsd  D44(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  subsd  %xmm0,%xmm5
  movapd %xmm2,%xmm0
  subsd  0x28(%rsp),%xmm0
  movq   %xmm5,%rbx
  movsd  %xmm0,0x28(%rsp)
  call   <fabs@plt>
  movsd  0x38(%rsp),%xmm3
  movsd  0x28(%rsp),%xmm0
  test   %eax,%eax
  movsd  0x30(%rsp),%xmm2
  movapd %xmm3,%xmm4
  jg     L24
  movsd  0x40(%rsp),%xmm2
L45:
  add    $0x50,%rsp
  movapd %xmm2,%xmm0
  pop    %rbx
  ret
  nopw   0x0(%rax,%rax,1)
L21:
  call   <psi_m_unstable@plt>
  movsd  0x38(%rsp),%xmm3
  movsd  0x40(%rsp),%xmm1
  movapd %xmm0,%xmm4
  movsd  0x10(%rsp),%xmm0
  subsd  %xmm4,%xmm0
  mulsd  0x30(%rsp),%xmm0
  movsd  (%rsp),%xmm4
  subsd  %xmm0,%xmm4
  movapd %xmm3,%xmm0
  movsd  %xmm4,0x30(%rsp)
  call   <psi_m_unstable@plt>
  movsd  0x28(%rsp),%xmm6
  movsd  0x8(%rsp),%xmm7
  movapd %xmm0,%xmm1
  movsd  0x10(%rsp),%xmm0
  subsd  %xmm1,%xmm0
  divsd  %xmm0,%xmm6
  movapd %xmm6,%xmm0
  xorpd  D42(%rip),%xmm0
  movsd  %xmm6,0x40(%rsp)
  mulsd  %xmm6,%xmm0
  mulsd  %xmm6,%xmm0
  divsd  0x20(%rsp),%xmm0
  divsd  %xmm0,%xmm7
  movapd %xmm7,%xmm3
  movsd  0x18(%rsp),%xmm7
  divsd  %xmm0,%xmm7
  movapd %xmm3,%xmm0
  movapd %xmm7,%xmm1
  call   <psi_m_unstable@plt>
  movsd  0x10(%rsp),%xmm1
  movsd  0x40(%rsp),%xmm6
  movapd %xmm0,%xmm3
  movsd  0x48(%rsp),%xmm2
  movsd  0x30(%rsp),%xmm4
  subsd  %xmm3,%xmm1
  movapd %xmm6,%xmm0
  divsd  D44(%rip),%xmm0
  movsd  (%rsp),%xmm3
  mulsd  %xmm1,%xmm0
  subsd  %xmm0,%xmm3
  movapd %xmm6,%xmm0
  subsd  %xmm2,%xmm0
  movapd %xmm6,%xmm2
  jmp    L69
  nopl   0x0(%rax)
L22:
  movq   %rbx,%xmm3
L69:
  mulsd  %xmm3,%xmm0
  movapd %xmm3,%xmm1
  movsd  %xmm2,0x28(%rsp)
  subsd  %xmm4,%xmm1
  movsd  0x8(%rsp),%xmm4
  movsd  %xmm3,0x38(%rsp)
  divsd  %xmm1,%xmm0
  movsd  0x18(%rsp),%xmm1
  subsd  %xmm0,%xmm2
  movapd %xmm2,%xmm0
  xorpd  D42(%rip),%xmm0
  movsd  %xmm2,0x30(%rsp)
  mulsd  %xmm2,%xmm0
  mulsd  %xmm2,%xmm0
  divsd  0x20(%rsp),%xmm0
  divsd  %xmm0,%xmm4
  divsd  %xmm0,%xmm1
  movapd %xmm4,%xmm0
  call   <psi_m_unstable@plt>
  movsd  0x10(%rsp),%xmm1
  movsd  0x30(%rsp),%xmm2
  movapd %xmm0,%xmm4
  movsd  (%rsp),%xmm7
  subsd  %xmm4,%xmm1
  movapd %xmm2,%xmm0
  divsd  D44(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  subsd  %xmm0,%xmm7
  movapd %xmm2,%xmm0
  subsd  0x28(%rsp),%xmm0
  movq   %xmm7,%rbx
  movsd  %xmm0,0x28(%rsp)
  call   <fabs@plt>
  movsd  0x38(%rsp),%xmm3
  movsd  0x28(%rsp),%xmm0
  test   %eax,%eax
  movsd  0x30(%rsp),%xmm2
  movapd %xmm3,%xmm4
  jg     L22
  movsd  0x40(%rsp),%xmm2
  jmp    L45
```

tool_calls: name: retrieve_data
arguments: tag: D44
type_guessed: f64
name: retrieve_data
arguments: tag: D42
type_guessed: f32[4]
name: retrieve_data
arguments: tag: D85
type_guessed: f32

tool: D44: 0.35

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

tool: D85: 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;
}
```