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

```asm
<vranlc>:
  endbr64
  movsd  D14(%rip),%xmm5
  movapd %xmm0,%xmm1
  pxor   %xmm7,%xmm7
  movsd  D20(%rip),%xmm4
  mulsd  %xmm5,%xmm1
  cvttsd2si %xmm1,%eax
  cvtsi2sd %eax,%xmm7
  movapd %xmm7,%xmm1
  mulsd  %xmm4,%xmm1
  subsd  %xmm1,%xmm0
  movsd  (%rsi),%xmm1
  test   %edi,%edi
  jle    L4
  lea    -0x1(%rdi),%ecx
  movsd  D1(%rip),%xmm6
  lea    0x8(%rdx),%rax
  movsd  D38(%rip),%xmm8
  lea    0x10(%rdx,%rcx,8),%rcx
  nopl   (%rax)
L11:
  movapd %xmm1,%xmm2
  pxor   %xmm3,%xmm3
  add    $0x8,%rax
  mulsd  %xmm5,%xmm2
  cvttsd2si %xmm2,%edx
  cvtsi2sd %edx,%xmm3
  movapd %xmm3,%xmm9
  mulsd  %xmm4,%xmm9
  mulsd  %xmm0,%xmm3
  subsd  %xmm9,%xmm1
  movapd %xmm1,%xmm2
  movapd %xmm7,%xmm1
  mulsd  %xmm2,%xmm1
  mulsd  %xmm0,%xmm2
  addsd  %xmm3,%xmm1
  movapd %xmm1,%xmm3
  mulsd  %xmm5,%xmm3
  cvttsd2si %xmm3,%edx
  pxor   %xmm3,%xmm3
  cvtsi2sd %edx,%xmm3
  mulsd  %xmm4,%xmm3
  subsd  %xmm3,%xmm1
  mulsd  %xmm4,%xmm1
  addsd  %xmm2,%xmm1
  movapd %xmm1,%xmm2
  mulsd  %xmm6,%xmm2
  cvttsd2si %xmm2,%edx
  pxor   %xmm2,%xmm2
  cvtsi2sd %edx,%xmm2
  mulsd  %xmm8,%xmm2
  subsd  %xmm2,%xmm1
  movapd %xmm1,%xmm2
  mulsd  %xmm6,%xmm2
  movsd  %xmm2,-0x8(%rax)
  cmp    %rax,%rcx
  jne    L11
L4:
  movsd  %xmm1,(%rsi)
  ret
```

tool_calls: name: retrieve_data
arguments: data_tag: D14
type_guessed: byte[8]
name: retrieve_data
arguments: data_tag: D20
type_guessed: byte[8]
name: retrieve_data
arguments: data_tag: D1
type_guessed: byte[8]
name: retrieve_data
arguments: data_tag: D38
type_guessed: byte[8]

tool: {"D14": [0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x3e]}

tool: {"D20": [0x00,0x00,0x00,0x00,0x00,0x00,0x60,0x41]}

tool: {"D1": [0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x3d]}

tool: {"D38": [0x00,0x00,0x00,0x00,0x00,0x00,0xd0,0x42]}

assistant: ```c
void vranlc(int n, double *x_seed, double a, double *y) {
  int i;
  double x, t1, t2, t3, t4, a1, a2, x1, x2, z;
  t1 = (0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5) * a;
  a1 = (int)t1;
  a2 = a - (2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0) * a1;
  x = *x_seed;
  for (i = 1; i <= n; i++) {
    t1 = (0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5) * x;
    x1 = (int)t1;
    x2 = x - (2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0) * x1;
    t1 = a1 * x2 + a2 * x1;
    t2 = (int)((0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5) * t1);
    z = t1 - (2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0) * t2;
    t3 = (2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0) * z + a2 * x2;
    t4 = (int)(((0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5) * (0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5)) * t3);
    x = t3 - ((2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0) * (2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0 * 2.0)) * t4;
    y[i] = ((0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5) * (0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5 * 0.5)) * x;
  }
  *x_seed = x;
}
```