user: 请将这段汇编代码片段转换成等效的C代码：

```asm
<latsens>:
  endbr64
  push   %r14
  movq   %xmm5,%r14
  pxor   %xmm5,%xmm5
  movapd %xmm4,%xmm9
  push   %rbp
  mov    %rdi,%rbp
  push   %rbx
  mov    %rsi,%rbx
  sub    $0x40,%rsp
  comisd %xmm5,%xmm2
  movsd  %xmm1,0x18(%rsp)
  movsd  D68(%rip),%xmm1
  movsd  0x60(%rsp),%xmm4
  movsd  %xmm6,0x8(%rsp)
  addsd  %xmm3,%xmm1
  movsd  %xmm7,0x10(%rsp)
  movsd  %xmm2,0x38(%rsp)
  jbe    L43
  movsd  D142(%rip),%xmm3
  movapd %xmm9,%xmm2
  movsd  %xmm9,0x30(%rsp)
  movsd  %xmm1,0x28(%rsp)
  movsd  %xmm0,0x20(%rsp)
  call   <lkdrag@plt>
  movsd  0x20(%rsp),%xmm8
  movsd  0x28(%rsp),%xmm1
  movsd  0x30(%rsp),%xmm9
  movsd  0x38(%rsp),%xmm10
  movaps %xmm0,%xmm6
L41:
  pxor   %xmm4,%xmm4
  movapd %xmm8,%xmm0
  subsd  D68(%rip),%xmm0
  comisd %xmm10,%xmm4
  jb     L34
  comisd 0x18(%rsp),%xmm8
  ja     L33
L34:
  mulsd  D24(%rip),%xmm0
  movapd %xmm8,%xmm2
  subsd  D77(%rip),%xmm2
  movsd  %xmm9,0x30(%rsp)
  movsd  %xmm1,0x28(%rsp)
  movss  %xmm6,0x20(%rsp)
  movsd  %xmm8,0x18(%rsp)
  divsd  %xmm2,%xmm0
  call   <exp@plt>
  mulsd  D130(%rip),%xmm0
  movsd  0x30(%rsp),%xmm9
  movsd  0x28(%rsp),%xmm1
  movss  0x20(%rsp),%xmm6
  movsd  0x18(%rsp),%xmm8
L17:
  movsd  0x8(%rsp),%xmm7
  movq   %r14,%xmm3
  subsd  %xmm8,%xmm1
  movsd  D53(%rip),%xmm2
  movapd %xmm7,%xmm4
  mulsd  %xmm2,%xmm4
  subsd  %xmm4,%xmm3
  movsd  D61(%rip),%xmm4
  divsd  %xmm3,%xmm7
  movapd %xmm2,%xmm3
  movq   %r14,%xmm2
  mulsd  %xmm0,%xmm3
  subsd  %xmm3,%xmm2
  divsd  %xmm2,%xmm0
  movapd %xmm7,%xmm5
  movsd  0x10(%rsp),%xmm7
  mulsd  %xmm4,%xmm5
  mulsd  %xmm4,%xmm0
  subsd  %xmm0,%xmm5
  movaps %xmm6,%xmm0
  xorps  D122(%rip),%xmm0
  cvtss2sd %xmm6,%xmm6
  mulsd  %xmm9,%xmm6
  cvtss2sd %xmm0,%xmm0
  mulsd  %xmm9,%xmm0
  mulsd  %xmm7,%xmm6
  mulsd  D27(%rip),%xmm6
  mulsd  %xmm7,%xmm0
  mulsd  %xmm1,%xmm6
  mulsd  %xmm0,%xmm5
  movsd  %xmm5,0x0(%rbp)
  movsd  %xmm6,(%rbx)
  add    $0x40,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r14
  ret
  nopw   0x0(%rax,%rax,1)
L43:
  movsd  D81(%rip),%xmm3
  movapd %xmm9,%xmm2
  movsd  %xmm9,0x30(%rsp)
  movsd  %xmm1,0x28(%rsp)
  movsd  %xmm0,0x20(%rsp)
  call   <lkdrag@plt>
  movsd  0x38(%rsp),%xmm10
  movsd  0x30(%rsp),%xmm9
  movsd  0x28(%rsp),%xmm1
  movsd  0x20(%rsp),%xmm8
  movaps %xmm0,%xmm6
  jmp    L41
  nopl   0x0(%rax,%rax,1)
L33:
  mulsd  D6(%rip),%xmm0
  movapd %xmm8,%xmm2
  addsd  D30(%rip),%xmm2
  movsd  %xmm9,0x30(%rsp)
  subsd  D68(%rip),%xmm2
  movsd  %xmm1,0x28(%rsp)
  movss  %xmm6,0x20(%rsp)
  movsd  %xmm8,0x18(%rsp)
  divsd  %xmm2,%xmm0
  call   <exp@plt>
  movsd  0x18(%rsp),%xmm8
  mulsd  D130(%rip),%xmm0
  movss  0x20(%rsp),%xmm6
  movsd  0x28(%rsp),%xmm1
  movsd  0x30(%rsp),%xmm9
  jmp    L17
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D68
data_type: f64
name: extract_symbolic_data
arguments: data_label: D142
data_type: f64
name: extract_symbolic_data
arguments: data_label: D24
data_type: f64
name: extract_symbolic_data
arguments: data_label: D77
data_type: f64
name: extract_symbolic_data
arguments: data_label: D130
data_type: byte[8]
name: extract_symbolic_data
arguments: data_label: D53
data_type: f64
name: extract_symbolic_data
arguments: data_label: D61
data_type: f64
name: extract_symbolic_data
arguments: data_label: D122
data_type: byte[16]
name: extract_symbolic_data
arguments: data_label: D27
data_type: f64
name: extract_symbolic_data
arguments: data_label: D81
data_type: f64
name: extract_symbolic_data
arguments: data_label: D6
data_type: f64
name: extract_symbolic_data
arguments: data_label: D30
data_type: f64

tool: D68: 273.15

tool: D142: 0.005

tool: D24: 21.874

tool: D77: 7.66

tool: {"D130": [0x5a,0x64,0x3b,0xdf,0x4f,0x8d,0xe3,0x3f]}

tool: D53: 0.378

tool: D61: 0.622

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

tool: D27: 1013

tool: D81: 0.0045

tool: D6: 17.269

tool: D30: 237.3

assistant: ```c
void latsens(double Tsurf, double Tcutk, double hice, double tair, double wind, double pressure, double vp, double air_density, double *evap, double *qsen, double wind_h) {
  float dragcoeff;
  double eog, delT;
  double qair, qlake;
  double delq;
  if (hice > 0.)
    dragcoeff = lkdrag(Tsurf, tair + 273.15, wind, 0.005, wind_h);
  else
    dragcoeff = lkdrag(Tsurf, tair + 273.15, wind, 0.0045, wind_h);
  if ((hice <= 0.) && (Tsurf > Tcutk)) {
    eog = .611 * exp(17.269 * (Tsurf - 273.15) / (Tsurf + 237.3 - 273.15));
  } else {
    eog = .611 * exp(21.874 * (Tsurf - 273.15) / (Tsurf - 7.66));
  }
  qlake = 0.622 * (eog / (pressure - 0.378 * eog));
  qair = 0.622 * (vp / (pressure - 0.378 * vp));
  delq = qair - qlake;
  *evap = -1 * dragcoeff * wind * air_density * delq;
  delT = tair + 273.15 - Tsurf;
  *qsen = dragcoeff * wind * air_density * 1013.0;
  *qsen = *qsen * delT;
}
```