user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<cdflib_beta_asym>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x3f0,%rsp
  mov    %rdi,-0x3c8(%rbp)
  mov    %rsi,-0x3d0(%rbp)
  mov    %rdx,-0x3d8(%rbp)
  mov    %rcx,-0x3e0(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x310(%rbp)
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm1
  comisd %xmm1,%xmm0
  jae    L78
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x370(%rbp)
  movsd  -0x370(%rbp),%xmm1
  movsd  D239(%rip),%xmm0
  addsd  %xmm0,%xmm1
  movsd  D239(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x350(%rbp)
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x348(%rbp)
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm1
  movsd  -0x370(%rbp),%xmm2
  movsd  D239(%rip),%xmm0
  addsd  %xmm2,%xmm0
  mulsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movapd %xmm0,%xmm1
  movsd  D239(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x328(%rbp)
  jmp    L26
L78:
  nop
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x370(%rbp)
  movsd  -0x370(%rbp),%xmm1
  movsd  D239(%rip),%xmm0
  addsd  %xmm0,%xmm1
  movsd  D239(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x350(%rbp)
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x348(%rbp)
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm1
  movsd  -0x370(%rbp),%xmm2
  movsd  D239(%rip),%xmm0
  addsd  %xmm2,%xmm0
  mulsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movapd %xmm0,%xmm1
  movsd  D239(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x328(%rbp)
L26:
  mov    -0x3d8(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm1
  divsd  %xmm1,%xmm0
  movq   D330(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,-0x390(%rbp)
  mov    -0x3d8(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x388(%rbp)
  mov    -0x3c8(%rbp),%rax
  movsd  (%rax),%xmm5
  movsd  %xmm5,-0x3e8(%rbp)
  lea    -0x390(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <cdflib_rlog1@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mulsd  -0x3e8(%rbp),%xmm0
  movsd  %xmm0,-0x3e8(%rbp)
  mov    -0x3d0(%rbp),%rax
  movsd  (%rax),%xmm6
  movsd  %xmm6,-0x3f0(%rbp)
  lea    -0x388(%rbp),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <cdflib_rlog1@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mulsd  -0x3f0(%rbp),%xmm0
  addsd  -0x3e8(%rbp),%xmm0
  movsd  %xmm0,-0x308(%rbp)
  movsd  -0x308(%rbp),%xmm0
  movq   D330(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x300(%rbp)
  pxor   %xmm0,%xmm0
  ucomisd -0x300(%rbp),%xmm0
  jp     L25
  pxor   %xmm0,%xmm0
  ucomisd -0x300(%rbp),%xmm0
  jne    L25
  movsd  -0x310(%rbp),%xmm0
  jmp    L106
L25:
  mov    -0x308(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x398(%rbp)
  movsd  -0x398(%rbp),%xmm0
  movsd  D243(%rip),%xmm2
  movapd %xmm0,%xmm1
  divsd  %xmm2,%xmm1
  movsd  D281(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x2f8(%rbp)
  movsd  -0x308(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  movsd  %xmm0,-0x2f0(%rbp)
  movsd  -0x348(%rbp),%xmm1
  movsd  D312(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x2c0(%rbp)
  movsd  -0x2c0(%rbp),%xmm1
  movsd  D281(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movq   D330(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,-0x160(%rbp)
  movsd  -0x160(%rbp),%xmm0
  movq   D330(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,-0xb0(%rbp)
  movsd  D254(%rip),%xmm1
  movsd  D281(%rip),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x3e8(%rbp)
  lea    -0x398(%rbp),%rax
  mov    %rax,%rsi
  lea    D268(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <cdflib_error_fc@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mulsd  -0x3e8(%rbp),%xmm0
  movsd  %xmm0,-0x360(%rbp)
  movsd  D243(%rip),%xmm0
  movsd  %xmm0,-0x358(%rbp)
  movsd  -0xb0(%rbp),%xmm0
  mulsd  -0x328(%rbp),%xmm0
  mulsd  -0x358(%rbp),%xmm0
  movsd  -0x360(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x338(%rbp)
  movsd  D239(%rip),%xmm0
  movsd  %xmm0,-0x340(%rbp)
  movsd  -0x370(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movsd  %xmm0,-0x2e8(%rbp)
  movsd  D239(%rip),%xmm0
  movsd  %xmm0,-0x368(%rbp)
  movsd  -0x328(%rbp),%xmm0
  movsd  %xmm0,-0x330(%rbp)
  movsd  -0x2f8(%rbp),%xmm0
  movsd  %xmm0,-0x318(%rbp)
  movsd  -0x2f0(%rbp),%xmm0
  movsd  %xmm0,-0x320(%rbp)
  movl   $0x2,-0x3b0(%rbp)
  jmp    L97
L115:
  movsd  -0x368(%rbp),%xmm0
  mulsd  -0x2e8(%rbp),%xmm0
  movsd  %xmm0,-0x368(%rbp)
  movsd  -0x350(%rbp),%xmm0
  movapd %xmm0,%xmm1
  addsd  %xmm0,%xmm1
  movsd  -0x370(%rbp),%xmm0
  movapd %xmm0,%xmm2
  mulsd  -0x368(%rbp),%xmm2
  movsd  D239(%rip),%xmm0
  addsd  %xmm2,%xmm0
  mulsd  %xmm1,%xmm0
  pxor   %xmm2,%xmm2
  cvtsi2sdl -0x3b0(%rbp),%xmm2
  movsd  D345(%rip),%xmm1
  addsd  %xmm2,%xmm1
  mov    -0x3b0(%rbp),%eax
  sub    $0x1,%eax
  divsd  %xmm1,%xmm0
  cltq
  movsd  %xmm0,-0x2c0(%rbp,%rax,8)
  mov    -0x3b0(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x3ac(%rbp)
  movsd  -0x340(%rbp),%xmm0
  addsd  -0x368(%rbp),%xmm0
  movsd  %xmm0,-0x340(%rbp)
  movsd  -0x348(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  mulsd  -0x340(%rbp),%xmm0
  pxor   %xmm2,%xmm2
  cvtsi2sdl -0x3b0(%rbp),%xmm2
  movsd  D17(%rip),%xmm1
  addsd  %xmm2,%xmm1
  mov    -0x3ac(%rbp),%eax
  sub    $0x1,%eax
  divsd  %xmm1,%xmm0
  cltq
  movsd  %xmm0,-0x2c0(%rbp,%rax,8)
  mov    -0x3b0(%rbp),%eax
  mov    %eax,-0x3bc(%rbp)
  jmp    L114
L139:
  pxor   %xmm1,%xmm1
  cvtsi2sdl -0x3bc(%rbp),%xmm1
  movsd  D239(%rip),%xmm0
  addsd  %xmm0,%xmm1
  movsd  D281(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movq   D330(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,-0x2d0(%rbp)
  movsd  -0x2c0(%rbp),%xmm0
  mulsd  -0x2d0(%rbp),%xmm0
  movsd  %xmm0,-0x210(%rbp)
  movl   $0x2,-0x3b4(%rbp)
  jmp    L22
L117:
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x380(%rbp)
  mov    -0x3b4(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x3a0(%rbp)
  movl   $0x1,-0x3b8(%rbp)
  jmp    L125
L40:
  mov    -0x3b4(%rbp),%eax
  sub    -0x3b8(%rbp),%eax
  mov    %eax,-0x39c(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x3b8(%rbp),%xmm0
  mulsd  -0x2d0(%rbp),%xmm0
  pxor   %xmm2,%xmm2
  cvtsi2sdl -0x39c(%rbp),%xmm2
  movapd %xmm0,%xmm1
  subsd  %xmm2,%xmm1
  mov    -0x3b8(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0x2c0(%rbp,%rax,8),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x39c(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0x210(%rbp,%rax,8),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x380(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x380(%rbp)
  addl   $0x1,-0x3b8(%rbp)
L125:
  mov    -0x3b8(%rbp),%eax
  cmp    -0x3a0(%rbp),%eax
  jle    L40
  mov    -0x3b4(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0x2c0(%rbp,%rax,8),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x2d0(%rbp),%xmm1
  pxor   %xmm2,%xmm2
  cvtsi2sdl -0x3b4(%rbp),%xmm2
  movsd  -0x380(%rbp),%xmm0
  divsd  %xmm2,%xmm0
  mov    -0x3b4(%rbp),%eax
  sub    $0x1,%eax
  addsd  %xmm1,%xmm0
  cltq
  movsd  %xmm0,-0x210(%rbp,%rax,8)
  addl   $0x1,-0x3b4(%rbp)
L22:
  mov    -0x3b4(%rbp),%eax
  cmp    -0x3bc(%rbp),%eax
  jle    L117
  mov    -0x3bc(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0x210(%rbp,%rax,8),%xmm0
  pxor   %xmm2,%xmm2
  cvtsi2sdl -0x3bc(%rbp),%xmm2
  movsd  D239(%rip),%xmm1
  addsd  %xmm2,%xmm1
  mov    -0x3bc(%rbp),%eax
  sub    $0x1,%eax
  divsd  %xmm1,%xmm0
  cltq
  movsd  %xmm0,-0x160(%rbp,%rax,8)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x378(%rbp)
  mov    -0x3bc(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x3a8(%rbp)
  movl   $0x1,-0x3b8(%rbp)
  jmp    L43
L7:
  mov    -0x3bc(%rbp),%eax
  sub    -0x3b8(%rbp),%eax
  mov    %eax,-0x3a4(%rbp)
  mov    -0x3a4(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0xb0(%rbp,%rax,8),%xmm1
  mov    -0x3b8(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0x160(%rbp,%rax,8),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x378(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x378(%rbp)
  addl   $0x1,-0x3b8(%rbp)
L43:
  mov    -0x3b8(%rbp),%eax
  cmp    -0x3a8(%rbp),%eax
  jle    L7
  mov    -0x3bc(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0x160(%rbp,%rax,8),%xmm0
  addsd  -0x378(%rbp),%xmm0
  mov    -0x3bc(%rbp),%eax
  sub    $0x1,%eax
  movq   D330(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  cltq
  movsd  %xmm0,-0xb0(%rbp,%rax,8)
  addl   $0x1,-0x3bc(%rbp)
L114:
  mov    -0x3bc(%rbp),%eax
  cmp    -0x3ac(%rbp),%eax
  jle    L139
  movsd  D243(%rip),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x318(%rbp),%xmm1
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x3b0(%rbp),%xmm0
  movsd  D239(%rip),%xmm2
  subsd  %xmm2,%xmm0
  mulsd  -0x360(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x360(%rbp)
  movsd  D243(%rip),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x320(%rbp),%xmm1
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x3b0(%rbp),%xmm0
  mulsd  -0x358(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x358(%rbp)
  movsd  -0x318(%rbp),%xmm0
  mulsd  -0x2f0(%rbp),%xmm0
  movsd  %xmm0,-0x318(%rbp)
  movsd  -0x320(%rbp),%xmm0
  mulsd  -0x2f0(%rbp),%xmm0
  movsd  %xmm0,-0x320(%rbp)
  movsd  -0x330(%rbp),%xmm0
  mulsd  -0x328(%rbp),%xmm0
  movsd  %xmm0,-0x330(%rbp)
  mov    -0x3b0(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0xb0(%rbp,%rax,8),%xmm0
  mulsd  -0x330(%rbp),%xmm0
  movsd  -0x360(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x2e0(%rbp)
  movsd  -0x330(%rbp),%xmm0
  mulsd  -0x328(%rbp),%xmm0
  movsd  %xmm0,-0x330(%rbp)
  mov    -0x3ac(%rbp),%eax
  sub    $0x1,%eax
  cltq
  movsd  -0xb0(%rbp,%rax,8),%xmm0
  mulsd  -0x330(%rbp),%xmm0
  movsd  -0x358(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x2d8(%rbp)
  movsd  -0x2e0(%rbp),%xmm0
  addsd  -0x2d8(%rbp),%xmm0
  movsd  -0x338(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x338(%rbp)
  movsd  -0x2e0(%rbp),%xmm0
  movq   D135(%rip),%xmm1
  andpd  %xmm0,%xmm1
  movsd  -0x2d8(%rbp),%xmm0
  movq   D135(%rip),%xmm2
  andpd  %xmm2,%xmm0
  addsd  %xmm0,%xmm1
  mov    -0x3e0(%rbp),%rax
  movsd  (%rax),%xmm0
  mulsd  -0x338(%rbp),%xmm0
  comisd %xmm1,%xmm0
  jae    L42
  addl   $0x2,-0x3b0(%rbp)
L97:
  mov    D84(%rip),%eax
  cmp    %eax,-0x3b0(%rbp)
  jle    L115
  jmp    L21
L42:
  nop
L21:
  mov    -0x3d0(%rbp),%rdx
  mov    -0x3c8(%rbp),%rax
  mov    %rdx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <cdflib_bcorr@plt>
  neg    %eax
  pxor   %xmm7,%xmm7
  cvtsi2sd %eax,%xmm7
  movq   %xmm7,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x2c8(%rbp)
  movsd  D254(%rip),%xmm0
  mulsd  -0x300(%rbp),%xmm0
  mulsd  -0x2c8(%rbp),%xmm0
  movsd  -0x338(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x310(%rbp)
  movsd  -0x310(%rbp),%xmm0
L106:
  movq   %xmm0,%rax
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L154
  call   <__stack_chk_fail@plt>
L154:
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: read_data
arguments: data_label: D239
type_guessed: f64
name: read_data
arguments: data_label: D330
type_guessed: f32[2]
name: read_data
arguments: data_label: D243
type_guessed: byte[8]
name: read_data
arguments: data_label: D281
type_guessed: f64
name: read_data
arguments: data_label: D312
type_guessed: byte[8]
name: read_data
arguments: data_label: D254
type_guessed: f64
name: read_data
arguments: data_label: D268
type_guessed: string
name: read_data
arguments: data_label: D345
type_guessed: f64
name: read_data
arguments: data_label: D17
type_guessed: f64
name: read_data
arguments: data_label: D135
type_guessed: qword
name: read_data
arguments: data_label: D84
type_guessed: byte[4]

tool: D239: 1

tool: {"D330": [0.0,-0.0]}

tool: {"D243": [0xd1,0x3b,0x7f,0x66,0x9e,0xa0,0xd6,0x3f]}

tool: D281: 0.5

tool: {"D312": [0x55,0x55,0x55,0x55,0x55,0x55,0xe5,0x3f]}

tool: D254: 1.12837916709551

tool: D268: 

tool: D345: 2

tool: D17: 3

tool: D135: 9223372036854775807

tool: {"D84": [0x14,0x00,0x00,0x00]}

assistant: ```c
double cdflib_beta_asym(const double *a, const double *b, const double *lambda, const double *eps) {
  static const double e0 = 1.12837916709551e0;
  static const double e1 = .353553390593274e0;
  static const int num = 20;
  static const int K3 = 1;
  double value;
  double bsum, dsum, f, h, h2, hn, j0, j1, r, r0, r1, s, sum, t, t0, t1, u, w, w0, z, z0, z2, zn, znm1;
  int i, im1, imj, j, m, mm1, mmj, n, np1;
  double a0[21], b0[21], c[21], d[21], T1, T2;
  value = 0.0e0;
  if (*a >= *b) {
    goto S10;
  }
  h = *a / *b;
  r0 = 1.0e0 / (1.0e0 + h);
  r1 = (*b - *a) / *b;
  w0 = 1.0e0 / sqrt(*a * (1.0e0 + h));
  goto S20;
S10:
  h = *b / *a;
  r0 = 1.0e0 / (1.0e0 + h);
  r1 = (*b - *a) / *a;
  w0 = 1.0e0 / sqrt(*b * (1.0e0 + h));
S20:
  T1 = -(*lambda / *a);
  T2 = *lambda / *b;
  f = *a * cdflib_rlog1(&T1) + *b * cdflib_rlog1(&T2);
  t = exp(-f);
  if (t == 0.0e0) {
    return value;
  }
  z0 = sqrt(f);
  z = 0.5e0 * (z0 / e1);
  z2 = f + f;
  a0[0] = 2.0e0 / 3.0e0 * r1;
  c[0] = -(0.5e0 * a0[0]);
  d[0] = -c[0];
  j0 = 0.5e0 / e0 * cdflib_error_fc(&K3, &z0);
  j1 = e1;
  sum = j0 + d[0] * w0 * j1;
  s = 1.0e0;
  h2 = h * h;
  hn = 1.0e0;
  w = w0;
  znm1 = z;
  zn = z2;
  for (n = 2; n <= num; n += 2) {
    hn = h2 * hn;
    a0[n - 1] = 2.0e0 * r0 * (1.0e0 + h * hn) / ((double)n + 2.0e0);
    np1 = n + 1;
    s += hn;
    a0[np1 - 1] = 2.0e0 * r1 * s / ((double)n + 3.0e0);
    for (i = n; i <= np1; i++) {
      r = -(0.5e0 * ((double)i + 1.0e0));
      b0[0] = r * a0[0];
      for (m = 2; m <= i; m++) {
        bsum = 0.0e0;
        mm1 = m - 1;
        for (j = 1; j <= mm1; j++) {
          mmj = m - j;
          bsum += (((double)j * r - (double)mmj) * a0[j - 1] * b0[mmj - 1]);
        }
        b0[m - 1] = r * a0[m - 1] + bsum / (double)m;
      }
      c[i - 1] = b0[i - 1] / ((double)i + 1.0e0);
      dsum = 0.0e0;
      im1 = i - 1;
      for (j = 1; j <= im1; j++) {
        imj = i - j;
        dsum += (d[imj - 1] * c[j - 1]);
      }
      d[i - 1] = -(dsum + c[i - 1]);
    }
    j0 = e1 * znm1 + ((double)n - 1.0e0) * j0;
    j1 = e1 * zn + (double)n * j1;
    znm1 = z2 * znm1;
    zn = z2 * zn;
    w = w0 * w;
    t0 = d[n - 1] * w * j0;
    w = w0 * w;
    t1 = d[np1 - 1] * w * j1;
    sum += (t0 + t1);
    if (fabs(t0) + fabs(t1) <= *eps * sum) {
      goto S80;
    }
  }
S80:
  u = exp(-cdflib_bcorr(a, b));
  value = e0 * t * u * sum;
  return value;
}
```