user: 请将以下的汇编代码转换成C语言代码:

```asm
<cdflib_beta_frac>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %rdi,%r12
  mov    %rsi,%r13
  mov    %rdx,%rbx
  mov    %rcx,%rbp
  mov    %r8,%r15
  mov    %r9,%r14
  call   <cdflib_beta_cdflib_rcomp@plt>
  movq   %xmm0,%rcx
  ucomisd D11(%rip),%xmm0
  jp     L33
  jne    L33
L1:
  movq   %rcx,%xmm0
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L33:
  movsd  D30(%rip),%xmm0
  movapd %xmm0,%xmm7
  addsd  (%r15),%xmm7
  movapd %xmm7,%xmm4
  movsd  %xmm7,0x18(%rsp)
  movsd  0x0(%r13),%xmm13
  movsd  (%r12),%xmm8
  movapd %xmm13,%xmm6
  divsd  %xmm8,%xmm6
  movsd  %xmm6,0x20(%rsp)
  movapd %xmm0,%xmm12
  divsd  %xmm8,%xmm12
  addsd  %xmm0,%xmm12
  movapd %xmm0,%xmm6
  addsd  0x0(%rbp),%xmm6
  movsd  %xmm6,0x28(%rsp)
  movapd %xmm8,%xmm6
  addsd  %xmm0,%xmm6
  divsd  %xmm12,%xmm7
  movapd %xmm12,%xmm5
  divsd  %xmm4,%xmm5
  movsd  %xmm5,0x8(%rsp)
  movsd  (%rbx),%xmm10
  movsd  (%r14),%xmm4
  movsd  %xmm4,0x10(%rsp)
  movapd %xmm0,%xmm5
  pxor   %xmm4,%xmm4
  movapd %xmm0,%xmm11
  movapd %xmm0,%xmm14
  movapd %xmm4,%xmm1
  movapd %xmm0,%xmm9
  movq   %xmm0,%rdi
  jmp    L16
L32:
  movapd %xmm14,%xmm1
  divsd  %xmm3,%xmm1
  divsd  %xmm3,%xmm7
  movapd %xmm7,%xmm11
  movapd %xmm0,%xmm14
  movsd  %xmm0,0x8(%rsp)
  movq   %rdi,%xmm7
L16:
  addsd  %xmm9,%xmm4
  movapd %xmm4,%xmm15
  divsd  %xmm8,%xmm15
  movapd %xmm13,%xmm3
  subsd  %xmm4,%xmm3
  mulsd  %xmm4,%xmm3
  mulsd  %xmm10,%xmm3
  movapd %xmm8,%xmm0
  divsd  %xmm6,%xmm0
  movsd  0x20(%rsp),%xmm2
  addsd  %xmm5,%xmm2
  mulsd  %xmm5,%xmm2
  mulsd  %xmm0,%xmm2
  mulsd  %xmm2,%xmm0
  movapd %xmm10,%xmm2
  mulsd  %xmm3,%xmm2
  mulsd  %xmm2,%xmm0
  movapd %xmm15,%xmm5
  addsd  %xmm9,%xmm5
  movapd %xmm12,%xmm2
  addsd  %xmm15,%xmm2
  addsd  %xmm15,%xmm2
  movapd %xmm5,%xmm15
  divsd  %xmm2,%xmm15
  movsd  0x28(%rsp),%xmm2
  mulsd  %xmm4,%xmm2
  addsd  0x18(%rsp),%xmm2
  mulsd  %xmm15,%xmm2
  divsd  %xmm6,%xmm3
  movapd %xmm3,%xmm15
  addsd  %xmm4,%xmm15
  addsd  %xmm2,%xmm15
  addsd  D38(%rip),%xmm6
  movapd %xmm11,%xmm3
  mulsd  %xmm0,%xmm3
  movapd %xmm7,%xmm2
  mulsd  %xmm15,%xmm2
  addsd  %xmm2,%xmm3
  mulsd  %xmm1,%xmm0
  mulsd  %xmm14,%xmm15
  addsd  %xmm15,%xmm0
  divsd  %xmm3,%xmm0
  movapd %xmm0,%xmm2
  subsd  0x8(%rsp),%xmm2
  andpd  D25(%rip),%xmm2
  movsd  0x10(%rsp),%xmm1
  mulsd  %xmm0,%xmm1
  comisd %xmm2,%xmm1
  jb     L32
  movq   %rcx,%xmm6
  mulsd  %xmm0,%xmm6
  movq   %xmm6,%rcx
  jmp    L1
```

tool_calls: name: parse_data
arguments: tag: D11
data_type: f64
name: parse_data
arguments: tag: D30
data_type: f64
name: parse_data
arguments: tag: D38
data_type: f64
name: parse_data
arguments: tag: D25
data_type: qword[2]

tool: D11: 0

tool: D30: 1

tool: D38: 2

tool: {"D25": [0x7fffffffffffffff,0x0000000000000000]}

assistant: ```c
double cdflib_beta_frac(const double *a, const double *b, const double *x, const double *y, const double *lambda, const double *eps) {
  double bfrac, alpha, an, anp1, beta, bn, bnp1, c, c0, c1, e, n, p, r, r0, s, t, w, yp1;
  bfrac = cdflib_beta_cdflib_rcomp(a, b, x, y);
  if (bfrac == 0.0e0) {
    return bfrac;
  }
  c = 1.0e0 + *lambda;
  c0 = *b / *a;
  c1 = 1.0e0 + 1.0e0 / *a;
  yp1 = *y + 1.0e0;
  n = 0.0e0;
  p = 1.0e0;
  s = *a + 1.0e0;
  an = 0.0e0;
  bn = anp1 = 1.0e0;
  bnp1 = c / c1;
  r = c1 / c;
S10:
  n = n + 1.0e0;
  t = n / *a;
  w = n * (*b - n) * *x;
  e = *a / s;
  alpha = p * (p + c0) * e * e * (w * *x);
  e = (1.0e0 + t) / (c1 + t + t);
  beta = n + w / s + e * (c + n * yp1);
  p = 1.0e0 + t;
  s += 2.0e0;
  t = alpha * an + beta * anp1;
  an = anp1;
  anp1 = t;
  t = alpha * bn + beta * bnp1;
  bn = bnp1;
  bnp1 = t;
  r0 = r;
  r = anp1 / bnp1;
  if (fabs(r - r0) <= (*eps) * r) {
    goto S20;
  }
  an /= bnp1;
  bn /= bnp1;
  anp1 = r;
  bnp1 = 1.0e0;
  goto S10;
S20:
  bfrac = bfrac * r;
  return bfrac;
}
```