user: Translate the below assembly code into C programming language:

```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  D116(%rip),%xmm1
  movsd  0x60(%rsp),%xmm4
  movsd  %xmm6,0x8(%rsp)
  addsd  %xmm3,%xmm1
  movsd  %xmm7,0x10(%rsp)
  movsd  %xmm2,0x38(%rsp)
  jbe    L38
  movsd  D100(%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
L6:
  pxor   %xmm4,%xmm4
  movapd %xmm8,%xmm0
  subsd  D116(%rip),%xmm0
  comisd %xmm10,%xmm4
  jb     L22
  comisd 0x18(%rsp),%xmm8
  ja     L45
L22:
  mulsd  D43(%rip),%xmm0
  movapd %xmm8,%xmm2
  subsd  D59(%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  D13(%rip),%xmm0
  movsd  0x30(%rsp),%xmm9
  movsd  0x28(%rsp),%xmm1
  movss  0x20(%rsp),%xmm6
  movsd  0x18(%rsp),%xmm8
L43:
  movsd  0x8(%rsp),%xmm7
  movq   %r14,%xmm3
  subsd  %xmm8,%xmm1
  movsd  D65(%rip),%xmm2
  movapd %xmm7,%xmm4
  mulsd  %xmm2,%xmm4
  subsd  %xmm4,%xmm3
  movsd  D27(%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  D105(%rip),%xmm0
  cvtss2sd %xmm6,%xmm6
  mulsd  %xmm9,%xmm6
  cvtss2sd %xmm0,%xmm0
  mulsd  %xmm9,%xmm0
  mulsd  %xmm7,%xmm6
  mulsd  D146(%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)
L38:
  movsd  D80(%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    L6
  nopl   0x0(%rax,%rax,1)
L45:
  mulsd  D14(%rip),%xmm0
  movapd %xmm8,%xmm2
  addsd  D26(%rip),%xmm2
  movsd  %xmm9,0x30(%rsp)
  subsd  D116(%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  D13(%rip),%xmm0
  movss  0x20(%rsp),%xmm6
  movsd  0x28(%rsp),%xmm1
  movsd  0x30(%rsp),%xmm9
  jmp    L43
```

tool_calls: name: retrieve_data
arguments: tag: D116
type_infered: f64
name: retrieve_data
arguments: tag: D100
type_infered: f64
name: retrieve_data
arguments: tag: D43
type_infered: f64
name: retrieve_data
arguments: tag: D59
type_infered: f64
name: retrieve_data
arguments: tag: D13
type_infered: byte[8]
name: retrieve_data
arguments: tag: D65
type_infered: f64
name: retrieve_data
arguments: tag: D27
type_infered: f64
name: retrieve_data
arguments: tag: D105
type_infered: byte[16]
name: retrieve_data
arguments: tag: D146
type_infered: f64
name: retrieve_data
arguments: tag: D80
type_infered: f64
name: retrieve_data
arguments: tag: D14
type_infered: f64
name: retrieve_data
arguments: tag: D26
type_infered: f64

tool: D116: 273.15

tool: D100: 0.005

tool: D43: 21.874

tool: D59: 7.66

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

tool: D65: 0.378

tool: D27: 0.622

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

tool: D146: 1013

tool: D80: 0.0045

tool: D14: 17.269

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