void cdflib_chi_noncentral_cdf_values(int *n_data, double *x, double *lambda,
                                      int *df, double *cdf) {
  enum { N_MAX = 27 };
  static const double cdf_vec[N_MAX] = {
      0.839944E+00, 0.695906E+00, 0.535088E+00, 0.764784E+00, 0.620644E+00,
      0.469167E+00, 0.307088E+00, 0.220382E+00, 0.150025E+00, 0.307116E-02,
      0.176398E-02, 0.981679E-03, 0.165175E-01, 0.202342E-03, 0.498448E-06,
      0.151325E-01, 0.209041E-02, 0.246502E-03, 0.263684E-01, 0.185798E-01,
      0.130574E-01, 0.583804E-01, 0.424978E-01, 0.308214E-01, 0.105788E+00,
      0.794084E-01, 0.593201E-01};
  static const int df_vec[N_MAX] = {1,  2,  3,  1,  2,  3,   1,  2,  3,
                                    1,  2,  3,  60, 80, 100, 1,  2,  3,
                                    10, 10, 10, 10, 10, 10,  10, 10, 10};
  static const double lambda_vec[N_MAX] = {
      0.5E+00,  0.5E+00, 0.5E+00,  1.0E+00,  1.0E+00,  1.0E+00,  5.0E+00,
      5.0E+00,  5.0E+00, 20.0E+00, 20.0E+00, 20.0E+00, 30.0E+00, 30.0E+00,
      30.0E+00, 5.0E+00, 5.0E+00,  5.0E+00,  2.0E+00,  3.0E+00,  4.0E+00,
      2.0E+00,  3.0E+00, 4.0E+00,  2.0E+00,  3.0E+00,  4.0E+00};
  static const double x_vec[N_MAX] = {
      3.000E+00,  3.000E+00,  3.000E+00,  3.000E+00, 3.000E+00, 3.000E+00,
      3.000E+00,  3.000E+00,  3.000E+00,  3.000E+00, 3.000E+00, 3.000E+00,
      60.000E+00, 60.000E+00, 60.000E+00, 0.050E+00, 0.050E+00, 0.050E+00,
      4.000E+00,  4.000E+00,  4.000E+00,  5.000E+00, 5.000E+00, 5.000E+00,
      6.000E+00,  6.000E+00,  6.000E+00};
  if (*n_data < 0) {
    *n_data = 0;
  }
  *n_data = *n_data + 1;
  if (N_MAX < *n_data) {
    *n_data = 0;
    *x = 0.0E+00;
    *lambda = 0.0E+00;
    *df = 0;
    *cdf = 0.0E+00;
  } else {
    *x = x_vec[*n_data - 1];
    *lambda = lambda_vec[*n_data - 1];
    *df = df_vec[*n_data - 1];
    *cdf = cdf_vec[*n_data - 1];
  }
  return;
}


x86 assembly (clang, -O0):
<cdflib_chi_noncentral_cdf_values>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    -0x8(%rbp),%rax
cmpl   $0x0,(%rax)
jge    112f <cdflib_chi_noncentral_cdf_values+0x2f>
mov    -0x8(%rbp),%rax
movl   $0x0,(%rax)
mov    -0x8(%rbp),%rax
mov    (%rax),%ecx
add    $0x1,%ecx
mov    -0x8(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x8(%rbp),%rcx
mov    $0x1b,%eax
cmp    (%rcx),%eax
jge    1189 <cdflib_chi_noncentral_cdf_values+0x89>
mov    -0x8(%rbp),%rax
movl   $0x0,(%rax)
mov    -0x10(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
mov    -0x18(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
mov    -0x20(%rbp),%rax
movl   $0x0,(%rax)
mov    -0x28(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
jmp    1205 <cdflib_chi_noncentral_cdf_values+0x105>
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
sub    $0x1,%eax
movslq %eax,%rcx
lea    0x1094(%rip),%rax
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
sub    $0x1,%eax
movslq %eax,%rcx
lea    0xf94(%rip),%rax
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
sub    $0x1,%eax
movslq %eax,%rcx
lea    0xf04(%rip),%rax
mov    (%rax,%rcx,4),%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
sub    $0x1,%eax
movslq %eax,%rcx
lea    0xe08(%rip),%rax
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movsd  %xmm0,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<cdflib_chi_noncentral_cdf_values>:
mov    (%rdi),%r9d
test   %r9d,%r9d
js     1137 <cdflib_chi_noncentral_cdf_values+0x37>
lea    0x1(%r9),%eax
mov    %eax,(%rdi)
cmp    $0x1b,%r9d
jb     1140 <cdflib_chi_noncentral_cdf_values+0x40>
movl   $0x0,(%rdi)
movq   $0x0,(%rsi)
movq   $0x0,(%rdx)
movl   $0x0,(%rcx)
xorps  %xmm0,%xmm0
movsd  %xmm0,(%r8)
ret
movl   $0x1,(%rdi)
xor    %r9d,%r9d
mov    %r9d,%r9d
lea    0x10e6(%rip),%rax
movsd  (%rax,%r9,8),%xmm0
movsd  %xmm0,(%rsi)
lea    0xff5(%rip),%rax
movsd  (%rax,%r9,8),%xmm0
movsd  %xmm0,(%rdx)
lea    0xf74(%rip),%rax
mov    (%rax,%r9,4),%eax
mov    %eax,(%rcx)
movslq (%rdi),%rax
lea    0xe84(%rip),%rcx
movsd  -0x8(%rcx,%rax,8),%xmm0
movsd  %xmm0,(%r8)
ret

LLVM IR (-O0):
@cdflib_chi_noncentral_cdf_values.cdf_vec = internal constant [27 x double] [double 8.399440e-01, double 6.959060e-01, double 5.350880e-01, double 7.647840e-01, double 6.206440e-01, double 4.691670e-01, double 3.070880e-01, double 2.203820e-01, double 1.500250e-01, double 3.071160e-03, double 1.763980e-03, double 9.816790e-04, double 1.651750e-02, double 2.023420e-04, double 4.984480e-07, double 1.513250e-02, double 2.090410e-03, double 2.465020e-04, double 2.636840e-02, double 1.857980e-02, double 1.305740e-02, double 5.838040e-02, double 4.249780e-02, double 3.082140e-02, double 1.057880e-01, double 7.940840e-02, double 5.932010e-02]
@cdflib_chi_noncentral_cdf_values.df_vec = internal constant [27 x i32] [i32 1, i32 2, i32 3, i32 1, i32 2, i32 3, i32 1, i32 2, i32 3, i32 1, i32 2, i32 3, i32 60, i32 80, i32 100, i32 1, i32 2, i32 3, i32 10, i32 10, i32 10, i32 10, i32 10, i32 10, i32 10, i32 10, i32 10]
@cdflib_chi_noncentral_cdf_values.lambda_vec = internal constant [27 x double] [double 5.000000e-01, double 5.000000e-01, double 5.000000e-01, double 1.000000e+00, double 1.000000e+00, double 1.000000e+00, double 5.000000e+00, double 5.000000e+00, double 5.000000e+00, double 2.000000e+01, double 2.000000e+01, double 2.000000e+01, double 3.000000e+01, double 3.000000e+01, double 3.000000e+01, double 5.000000e+00, double 5.000000e+00, double 5.000000e+00, double 2.000000e+00, double 3.000000e+00, double 4.000000e+00, double 2.000000e+00, double 3.000000e+00, double 4.000000e+00, double 2.000000e+00, double 3.000000e+00, double 4.000000e+00]
@cdflib_chi_noncentral_cdf_values.x_vec = internal constant [27 x double] [double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 6.000000e+01, double 6.000000e+01, double 6.000000e+01, double 5.000000e-02, double 5.000000e-02, double 5.000000e-02, double 4.000000e+00, double 4.000000e+00, double 4.000000e+00, double 5.000000e+00, double 5.000000e+00, double 5.000000e+00, double 6.000000e+00, double 6.000000e+00, double 6.000000e+00]
define void @cdflib_chi_noncentral_cdf_values(i32* %0, double* %1, double* %2, i32* %3, double* %4) {
%6 = alloca i32*
%7 = alloca double*
%8 = alloca double*
%9 = alloca i32*
%10 = alloca double*
store i32* %0, i32** %6
store double* %1, double** %7
store double* %2, double** %8
store i32* %3, i32** %9
store double* %4, double** %10
%11 = load i32*, i32** %6
%12 = load i32, i32* %11
%13 = icmp slt i32 %12, 0
br i1 %13, label %14, label %16
14: ; preds = %5
%15 = load i32*, i32** %6
store i32 0, i32* %15
br label %16
16: ; preds = %14, %5
%17 = load i32*, i32** %6
%18 = load i32, i32* %17
%19 = add nsw i32 %18, 1
%20 = load i32*, i32** %6
store i32 %19, i32* %20
%21 = load i32*, i32** %6
%22 = load i32, i32* %21
%23 = icmp slt i32 27, %22
br i1 %23, label %24, label %30
24: ; preds = %16
%25 = load i32*, i32** %6
store i32 0, i32* %25
%26 = load double*, double** %7
store double 0.000000e+00, double* %26
%27 = load double*, double** %8
store double 0.000000e+00, double* %27
%28 = load i32*, i32** %9
store i32 0, i32* %28
%29 = load double*, double** %10
store double 0.000000e+00, double* %29
br label %59
30: ; preds = %16
%31 = load i32*, i32** %6
%32 = load i32, i32* %31
%33 = sub nsw i32 %32, 1
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds [27 x double], [27 x double]* @cdflib_chi_noncentral_cdf_values.x_vec, i64 0, i64 %34
%36 = load double, double* %35
%37 = load double*, double** %7
store double %36, double* %37
%38 = load i32*, i32** %6
%39 = load i32, i32* %38
%40 = sub nsw i32 %39, 1
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds [27 x double], [27 x double]* @cdflib_chi_noncentral_cdf_values.lambda_vec, i64 0, i64 %41
%43 = load double, double* %42
%44 = load double*, double** %8
store double %43, double* %44
%45 = load i32*, i32** %6
%46 = load i32, i32* %45
%47 = sub nsw i32 %46, 1
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds [27 x i32], [27 x i32]* @cdflib_chi_noncentral_cdf_values.df_vec, i64 0, i64 %48
%50 = load i32, i32* %49
%51 = load i32*, i32** %9
store i32 %50, i32* %51
%52 = load i32*, i32** %6
%53 = load i32, i32* %52
%54 = sub nsw i32 %53, 1
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds [27 x double], [27 x double]* @cdflib_chi_noncentral_cdf_values.cdf_vec, i64 0, i64 %55
%57 = load double, double* %56
%58 = load double*, double** %10
store double %57, double* %58
br label %59
59: ; preds = %30, %24
ret void
}

LLVM IR (-O2):
@cdflib_chi_noncentral_cdf_values.cdf_vec = internal unnamed_addr constant [27 x double] [double 8.399440e-01, double 6.959060e-01, double 5.350880e-01, double 7.647840e-01, double 6.206440e-01, double 4.691670e-01, double 3.070880e-01, double 2.203820e-01, double 1.500250e-01, double 3.071160e-03, double 1.763980e-03, double 9.816790e-04, double 1.651750e-02, double 2.023420e-04, double 4.984480e-07, double 1.513250e-02, double 2.090410e-03, double 2.465020e-04, double 2.636840e-02, double 1.857980e-02, double 1.305740e-02, double 5.838040e-02, double 4.249780e-02, double 3.082140e-02, double 1.057880e-01, double 7.940840e-02, double 5.932010e-02]
@cdflib_chi_noncentral_cdf_values.df_vec = internal unnamed_addr constant [27 x i32] [i32 1, i32 2, i32 3, i32 1, i32 2, i32 3, i32 1, i32 2, i32 3, i32 1, i32 2, i32 3, i32 60, i32 80, i32 100, i32 1, i32 2, i32 3, i32 10, i32 10, i32 10, i32 10, i32 10, i32 10, i32 10, i32 10, i32 10]
@cdflib_chi_noncentral_cdf_values.lambda_vec = internal unnamed_addr constant [27 x double] [double 5.000000e-01, double 5.000000e-01, double 5.000000e-01, double 1.000000e+00, double 1.000000e+00, double 1.000000e+00, double 5.000000e+00, double 5.000000e+00, double 5.000000e+00, double 2.000000e+01, double 2.000000e+01, double 2.000000e+01, double 3.000000e+01, double 3.000000e+01, double 3.000000e+01, double 5.000000e+00, double 5.000000e+00, double 5.000000e+00, double 2.000000e+00, double 3.000000e+00, double 4.000000e+00, double 2.000000e+00, double 3.000000e+00, double 4.000000e+00, double 2.000000e+00, double 3.000000e+00, double 4.000000e+00]
@cdflib_chi_noncentral_cdf_values.x_vec = internal unnamed_addr constant [27 x double] [double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 3.000000e+00, double 6.000000e+01, double 6.000000e+01, double 6.000000e+01, double 5.000000e-02, double 5.000000e-02, double 5.000000e-02, double 4.000000e+00, double 4.000000e+00, double 4.000000e+00, double 5.000000e+00, double 5.000000e+00, double 5.000000e+00, double 6.000000e+00, double 6.000000e+00, double 6.000000e+00]
define void @cdflib_chi_noncentral_cdf_values(i32* nocapture %0, double* nocapture writeonly %1, double* nocapture writeonly %2, i32* nocapture writeonly %3, double* nocapture writeonly %4) {
%6 = load i32, i32* %0
%7 = icmp slt i32 %6, 0
br i1 %7, label %8, label %9
8: ; preds = %5
store i32 1, i32* %0
br label %13
9: ; preds = %5
%10 = add nuw nsw i32 %6, 1
store i32 %10, i32* %0
%11 = icmp ugt i32 %6, 26
br i1 %11, label %12, label %13
12: ; preds = %9
store i32 0, i32* %0
store double 0.000000e+00, double* %1
store double 0.000000e+00, double* %2
store i32 0, i32* %3
br label %27
13: ; preds = %8, %9
%14 = phi i32 [ 0, %8 ], [ %6, %9 ]
%15 = zext i32 %14 to i64
%16 = getelementptr inbounds [27 x double], [27 x double]* @cdflib_chi_noncentral_cdf_values.x_vec, i64 0, i64 %15
%17 = load double, double* %16
store double %17, double* %1
%18 = getelementptr inbounds [27 x double], [27 x double]* @cdflib_chi_noncentral_cdf_values.lambda_vec, i64 0, i64 %15
%19 = load double, double* %18
store double %19, double* %2
%20 = getelementptr inbounds [27 x i32], [27 x i32]* @cdflib_chi_noncentral_cdf_values.df_vec, i64 0, i64 %15
%21 = load i32, i32* %20
store i32 %21, i32* %3
%22 = load i32, i32* %0
%23 = add nsw i32 %22, -1
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds [27 x double], [27 x double]* @cdflib_chi_noncentral_cdf_values.cdf_vec, i64 0, i64 %24
%26 = load double, double* %25
br label %27
27: ; preds = %13, %12
%28 = phi double [ %26, %13 ], [ 0.000000e+00, %12 ]
store double %28, double* %4
ret void
}