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

```asm
<plnkin>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x50,%rsp
  movsd  %xmm0,-0x48(%rbp)
  movsd  %xmm1,-0x50(%rbp)
  movsd  D28(%rip),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x48(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x50(%rbp),%xmm1
  movsd  D12(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x28(%rbp),%xmm0
  mulsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  mov    -0x18(%rbp),%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x10(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movl   $0x0,-0x3c(%rbp)
  movsd  -0x20(%rbp),%xmm0
  comisd D77(%rip),%xmm0
  jb     L14
  movl   $0x4,-0x3c(%rbp)
  jmp    L46
L14:
  movsd  -0x20(%rbp),%xmm0
  comisd D48(%rip),%xmm0
  jb     L61
  movl   $0x2,-0x3c(%rbp)
  jmp    L46
L61:
  movsd  -0x20(%rbp),%xmm0
  comisd D58(%rip),%xmm0
  jb     L71
  movsd  -0x20(%rbp),%xmm1
  movsd  D109(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  D29(%rip),%xmm0
  addsd  %xmm1,%xmm0
  cvttsd2si %xmm0,%rax
  mov    %eax,-0x3c(%rbp)
  jmp    L46
L71:
  movsd  -0x20(%rbp),%xmm1
  movsd  D87(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  D9(%rip),%xmm0
  addsd  %xmm1,%xmm0
  cvttsd2si %xmm0,%rax
  mov    %eax,-0x3c(%rbp)
L46:
  mov    -0x3c(%rbp),%eax
  neg    %eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mulsd  -0x18(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x30(%rbp)
  jmp    L60
L51:
  movsd  -0x30(%rbp),%xmm0
  mulsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x3c(%rbp),%xmm0
  movsd  -0x18(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x8(%rbp),%xmm1
  movsd  D52(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x8(%rbp),%xmm1
  movsd  D79(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x8(%rbp),%xmm1
  movsd  D79(%rip),%xmm0
  addsd  %xmm1,%xmm0
  mulsd  -0x30(%rbp),%xmm0
  mov    -0x3c(%rbp),%eax
  imul   %eax,%eax
  mov    %eax,%edx
  mov    -0x3c(%rbp),%eax
  imul   %eax,%eax
  imul   %edx,%eax
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
  divsd  %xmm1,%xmm0
  movsd  -0x38(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
L60:
  subl   $0x1,-0x3c(%rbp)
  cmpl   $0x0,-0x3c(%rbp)
  jg     L51
  movsd  -0x38(%rbp),%xmm1
  movsd  D123(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: parse_data
arguments: tag: D28
datatype: f64
name: parse_data
arguments: tag: D12
datatype: f64
name: parse_data
arguments: tag: D77
datatype: f64[2]
name: parse_data
arguments: tag: D48
datatype: f64[2]
name: parse_data
arguments: tag: D58
datatype: f64[2]
name: parse_data
arguments: tag: D109
datatype: byte[8]
name: parse_data
arguments: tag: D29
datatype: f64
name: parse_data
arguments: tag: D87
datatype: byte[8]
name: parse_data
arguments: tag: D9
datatype: f64
name: parse_data
arguments: tag: D52
datatype: f64
name: parse_data
arguments: tag: D79
datatype: f64
name: parse_data
arguments: tag: D123
datatype: f64

tool: D28: 1.43879

tool: D12: 0.01

tool: {"D77": [7.4,4.2]}

tool: {"D48": [4.2,0.45]}

tool: {"D58": [0.45,-2.3]}

tool: {"D109": [0x66,0x66,0x66,0x66,0x66,0x66,0x02,0xc0]}

tool: D29: 12.96

tool: {"D87": [0x14,0xae,0x47,0xe1,0x7a,0x54,0x47,0xc0]}

tool: D9: 33

tool: D52: 3

tool: D79: 6

tool: D123: 0.15399

assistant: ```c
double plnkin(double lambda, double T) {
  double c2 = 1.43879;
  double y = 0.01 / (lambda * T);
  double z = c2 * y;
  double a2 = exp(z);
  double s = 0;
  int x = 0;
  if (y >= 7.4)
    x = 4;
  else if (y >= 4.2)
    x = 2;
  else if (y >= 0.45)
    x = (unsigned)(-2.3 * y + 12.96);
  else
    x = (unsigned)(-46.66 * y + 33.);
  double a1 = exp(-x * z);
  while (--x > 0) {
    a1 *= a2;
    double arg = x * z;
    s += a1 * (6. + arg * (6. + arg * (3. + arg))) / ((((x) * (x))) * (((x) * (x))));
  }
  return 0.15399 * s;
}
```