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

```asm
<ibeta_appx>:
  endbr64
  push   %rbx
  sub    $0x20,%rsp
  movapd %xmm0,%xmm6
  movsd  %xmm0,0x10(%rsp)
  movsd  %xmm1,0x8(%rsp)
  movsd  %xmm2,(%rsp)
  pxor   %xmm0,%xmm0
  comisd %xmm6,%xmm0
  ja     L17
  comisd D16(%rip),%xmm6
  jbe    L37
L17:
  lea    D60(%rip),%rdi
  call   <printf@plt>
  mov    $0x1,%edi
  call   <exit@plt>
L37:
  pxor   %xmm0,%xmm0
  comisd 0x8(%rsp),%xmm0
  ja     L33
  comisd (%rsp),%xmm0
  jbe    L22
L33:
  lea    D75(%rip),%rdi
  call   <printf@plt>
  mov    $0x1,%edi
  call   <exit@plt>
L22:
  movsd  D16(%rip),%xmm0
  movapd %xmm0,%xmm5
  subsd  0x10(%rsp),%xmm5
  movsd  %xmm5,0x18(%rsp)
  movsd  0x8(%rsp),%xmm1
  addsd  (%rsp),%xmm1
  subsd  %xmm0,%xmm1
  mulsd  %xmm5,%xmm1
  movsd  D14(%rip),%xmm0
  comisd %xmm1,%xmm0
  jae    L95
  comisd D14(%rip),%xmm1
  ja     L85
L99:
  movq   %rbx,%xmm0
  add    $0x20,%rsp
  pop    %rbx
  ret
L95:
  movsd  D104(%rip),%xmm0
  subsd  0x10(%rsp),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  (%rsp),%xmm4
  movapd %xmm4,%xmm1
  subsd  D16(%rip),%xmm1
  mulsd  %xmm5,%xmm1
  subsd  %xmm1,%xmm0
  mulsd  D80(%rip),%xmm0
  movapd %xmm4,%xmm1
  call   <qgamma@plt>
  movq   %xmm0,%rbx
  jmp    L99
L85:
  movsd  0x10(%rsp),%xmm0
  mulsd  (%rsp),%xmm0
  mov    D96(%rip),%rax
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  %xmm0,0x10(%rsp)
  movsd  0x18(%rsp),%xmm3
  mulsd  0x8(%rsp),%xmm3
  movapd %xmm3,%xmm0
  mov    D96(%rip),%rax
  movq   %rax,%xmm1
  call   <pow@plt>
  movapd %xmm0,%xmm1
  movsd  D117(%rip),%xmm3
  movsd  (%rsp),%xmm7
  movapd %xmm7,%xmm4
  mulsd  %xmm3,%xmm4
  movapd %xmm4,%xmm0
  movsd  D16(%rip),%xmm2
  movapd %xmm2,%xmm4
  divsd  %xmm0,%xmm4
  movapd %xmm2,%xmm0
  subsd  %xmm4,%xmm0
  movsd  0x10(%rsp),%xmm5
  mulsd  %xmm5,%xmm0
  movsd  0x8(%rsp),%xmm6
  mulsd  %xmm6,%xmm3
  movapd %xmm2,%xmm4
  divsd  %xmm3,%xmm4
  subsd  %xmm4,%xmm2
  mulsd  %xmm1,%xmm2
  subsd  %xmm2,%xmm0
  mulsd  D140(%rip),%xmm0
  divsd  D102(%rip),%xmm0
  movq   %xmm0,%rbx
  movapd %xmm5,%xmm0
  mulsd  %xmm5,%xmm0
  divsd  %xmm7,%xmm0
  mulsd  %xmm1,%xmm1
  divsd  %xmm6,%xmm1
  addsd  %xmm1,%xmm0
  pxor   %xmm1,%xmm1
  ucomisd %xmm0,%xmm1
  ja     L9
  sqrtsd %xmm0,%xmm0
L92:
  movq   %rbx,%xmm1
  divsd  %xmm0,%xmm1
  movapd %xmm1,%xmm0
  call   <erfc@plt>
  mulsd  D80(%rip),%xmm0
  movq   %xmm0,%rbx
  jmp    L99
L9:
  call   <sqrt@plt>
  jmp    L92
```

tool_calls: name: disassemble_data
arguments: data_label: D16
datatype: f64[2]
name: disassemble_data
arguments: data_label: D60
datatype: string
name: disassemble_data
arguments: data_label: D75
datatype: string
name: disassemble_data
arguments: data_label: D14
datatype: f64[2]
name: disassemble_data
arguments: data_label: D104
datatype: f64
name: disassemble_data
arguments: data_label: D80
datatype: f32[2]
name: disassemble_data
arguments: data_label: D96
datatype: byte[8]
name: disassemble_data
arguments: data_label: D117
datatype: f64
name: disassemble_data
arguments: data_label: D140
datatype: f32[2]
name: disassemble_data
arguments: data_label: D102
datatype: byte[8]

tool: {"D16": [1.0,0.8]}

tool: D60: x only accepts real values between 0.0 and 1.0

tool: D75:  The Two Inputs should be nonnegative and real

tool: {"D14": [0.8,3.0]}

tool: D104: 3

tool: {"D80": [0.0,1.75]}

tool: {"D96": [0x55,0x55,0x55,0x55,0x55,0x55,0xd5,0x3f]}

tool: D117: 9

tool: {"D140": [0.0,-2.125]}

tool: {"D102": [0xcd,0x3b,0x7f,0x66,0x9e,0xa0,0xf6,0x3f]}

assistant: ```c
double ibeta_appx(double x, double a, double b) {
  double oup, abx, c2, w1, w2, num, den;
  if (x < 0. || x > 1.) {
    printf("x only accepts real values between 0.0 and 1.0");
    exit(1);
  }
  if (a < 0. || b < 0.) {
    printf(" The Two Inputs should be nonnegative and real");
    exit(1);
  }
  abx = (a + b - 1) * (1. - x);
  if (abx <= 0.8) {
    c2 = (abx * (3. - x) - (b - 1.) * (1. - x)) / 2.0;
    oup = qgamma(c2, b);
  } else if (abx > 0.8) {
    w1 = pow(b * x, (double)1. / 3.);
    w2 = pow(a * (1. - x), (double)1. / 3.);
    num = -3.0 * (w1 * (1. - 1. / (9. * b)) - w2 * (1. - 1. / (9. * a))) / sqrt(2);
    den = sqrt((w1 * w1 / b) + (w2 * w2 / a));
    oup = erfc(num / den) / 2.0;
  }
  return oup;
}
```