#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ fflush(int /*<<< orphan*/);
scalar_t__ isnan(double);
int /*<<< orphan*/ printf(char *, int, double);
int /*<<< orphan*/ stdout;
void splint(double xa[], double ya[], double y2a[], int n, double x,
            double *y) {
  void nrerror(char error_text[]);
  int klo, khi, k, i;
  double h, b, a;
  klo = 1;
  khi = n;
  while (khi - klo > 1) {
    k = (khi + klo) >> 1;
    if (xa[k] > x)
      khi = k;
    else
      klo = k;
  }
  h = xa[khi] - xa[klo];
  if (h == 0.0) {
    printf("BADXA %d %f\n", n, x);
    fflush(stdout);
  }
  if (h == 0.0)
    nrerror("Bad xa input to routine splint");
  a = (xa[khi] - x) / h;
  b = (x - xa[klo]) / h;
  *y =
      a * ya[klo] + b * ya[khi] +
      ((a * a * a - a) * y2a[klo] + (b * b * b - b) * y2a[khi]) * (h * h) / 6.0;
  if (isnan(*y)) {
    *y = 0;
  }
}


x86 assembly (clang, -O0):
<splint>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movsd  %xmm0,-0x28(%rbp)
mov    %r8,-0x30(%rbp)
movl   $0x1,-0x34(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
sub    -0x34(%rbp),%eax
cmp    $0x1,%eax
jle    11b6 <splint+0x76>
mov    -0x38(%rbp),%eax
add    -0x34(%rbp),%eax
sar    $0x1,%eax
mov    %eax,-0x3c(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x28(%rbp),%xmm0
jbe    11ab <splint+0x6b>
mov    -0x3c(%rbp),%eax
mov    %eax,-0x38(%rbp)
jmp    11b1 <splint+0x71>
mov    -0x3c(%rbp),%eax
mov    %eax,-0x34(%rbp)
jmp    116d <splint+0x2d>
mov    -0x8(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x48(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    120f <splint+0xcf>
jp     120f <splint+0xcf>
mov    -0x1c(%rbp),%esi
movsd  -0x28(%rbp),%xmm0
lea    0xe0c(%rip),%rdi
call   1040 <printf@plt>
mov    0x2dd8(%rip),%rax
mov    (%rax),%edi
call   1050 <fflush@plt>
movsd  -0x48(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1233 <splint+0xf3>
jp     1233 <splint+0xf3>
lea    0xde7(%rip),%rdi
call   1030 <nrerror@plt>
mov    -0x8(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x28(%rbp),%xmm0
divsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x28(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
divsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x58(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x50(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x38(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  -0x58(%rbp),%xmm1
mulsd  -0x58(%rbp),%xmm1
movsd  -0x58(%rbp),%xmm3
movsd  -0x58(%rbp),%xmm2
movq   %xmm2,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm2
mulsd  %xmm3,%xmm1
addsd  %xmm2,%xmm1
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm3
movsd  -0x50(%rbp),%xmm2
mulsd  -0x50(%rbp),%xmm2
movsd  -0x50(%rbp),%xmm5
movsd  -0x50(%rbp),%xmm4
movq   %xmm4,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm4
mulsd  %xmm5,%xmm2
addsd  %xmm4,%xmm2
mov    -0x18(%rbp),%rax
movslq -0x38(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm3,%xmm1
addsd  %xmm2,%xmm1
movsd  -0x48(%rbp),%xmm2
mulsd  -0x48(%rbp),%xmm2
mulsd  %xmm2,%xmm1
movsd  0xccb(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x30(%rbp),%rax
movsd  (%rax),%xmm0
call   1060 <isnan@plt>
cmp    $0x0,%rax
je     1367 <splint+0x227>
mov    -0x30(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<splint>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %r8,%r14
mov    %rdx,%r15
mov    %rsi,%r12
mov    %rdi,%rbx
mov    $0x1,%r13d
mov    %ecx,%eax
cmp    $0x3,%ecx
jl     1195 <splint+0x55>
mov    $0x1,%edx
mov    %ecx,%eax
jmp    117b <splint+0x3b>
mov    %esi,%edx
mov    %eax,%esi
sub    %edx,%esi
cmp    $0x1,%esi
jle    1192 <splint+0x52>
lea    (%rdx,%rax,1),%esi
sar    %esi
movslq %esi,%rdi
movsd  (%rbx,%rdi,8),%xmm1
ucomisd %xmm0,%xmm1
jbe    1170 <splint+0x30>
mov    %esi,%eax
jmp    1172 <splint+0x32>
movslq %edx,%r13
movslq %eax,%rbp
movsd  (%rbx,%rbp,8),%xmm4
movsd  (%rbx,%r13,8),%xmm1
movapd %xmm4,%xmm5
subsd  %xmm1,%xmm5
xorpd  %xmm2,%xmm2
ucomisd %xmm2,%xmm5
jne    1202 <splint+0xc2>
jp     1202 <splint+0xc2>
lea    0xe4a(%rip),%rdi
mov    %ecx,%esi
movsd  %xmm0,0x10(%rsp)
movsd  %xmm5,0x8(%rsp)
call   1040 <printf@plt>
mov    0x2e08(%rip),%rax
mov    (%rax),%edi
call   1050 <fflush@plt>
lea    0xe2f(%rip),%rdi
call   1030 <nrerror@plt>
movsd  0x8(%rsp),%xmm5
movsd  0x10(%rsp),%xmm0
movsd  (%rbx,%rbp,8),%xmm4
movsd  (%rbx,%r13,8),%xmm1
subsd  %xmm0,%xmm4
divsd  %xmm5,%xmm4
subsd  %xmm1,%xmm0
divsd  %xmm5,%xmm0
movsd  (%r12,%rbp,8),%xmm1
mulsd  %xmm0,%xmm1
movsd  (%r12,%r13,8),%xmm2
mulsd  %xmm4,%xmm2
movapd %xmm4,%xmm3
mulsd  %xmm4,%xmm3
mulsd  %xmm4,%xmm3
subsd  %xmm4,%xmm3
movapd %xmm0,%xmm4
mulsd  %xmm0,%xmm4
mulsd  %xmm0,%xmm4
subsd  %xmm0,%xmm4
mulsd  (%r15,%rbp,8),%xmm4
mulsd  (%r15,%r13,8),%xmm3
addsd  %xmm1,%xmm2
addsd  %xmm4,%xmm3
mulsd  %xmm5,%xmm5
mulsd  %xmm3,%xmm5
divsd  0xd96(%rip),%xmm5
addsd  %xmm2,%xmm5
movsd  %xmm5,(%r14)
movapd %xmm5,%xmm0
call   1060 <isnan@plt>
test   %rax,%rax
je     1288 <splint+0x148>
movq   $0x0,(%r14)
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [13 x i8] c"BADXA %d %f\0A\00"
@stdout = global i32 0
@.str.1 = [31 x i8] c"Bad xa input to routine splint\00"
define void @splint(double* %0, double* %1, double* %2, i32 %3, double %4, double* %5) {
%7 = alloca double*
%8 = alloca double*
%9 = alloca double*
%10 = alloca i32
%11 = alloca double
%12 = alloca double*
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca double
%18 = alloca double
%19 = alloca double
store double* %0, double** %7
store double* %1, double** %8
store double* %2, double** %9
store i32 %3, i32* %10
store double %4, double* %11
store double* %5, double** %12
store i32 1, i32* %13
%20 = load i32, i32* %10
store i32 %20, i32* %14
br label %21
21: ; preds = %42, %6
%22 = load i32, i32* %14
%23 = load i32, i32* %13
%24 = sub nsw i32 %22, %23
%25 = icmp sgt i32 %24, 1
br i1 %25, label %26, label %43
26: ; preds = %21
%27 = load i32, i32* %14
%28 = load i32, i32* %13
%29 = add nsw i32 %27, %28
%30 = ashr i32 %29, 1
store i32 %30, i32* %15
%31 = load double*, double** %7
%32 = load i32, i32* %15
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds double, double* %31, i64 %33
%35 = load double, double* %34
%36 = load double, double* %11
%37 = fcmp ogt double %35, %36
br i1 %37, label %38, label %40
38: ; preds = %26
%39 = load i32, i32* %15
store i32 %39, i32* %14
br label %42
40: ; preds = %26
%41 = load i32, i32* %15
store i32 %41, i32* %13
br label %42
42: ; preds = %40, %38
br label %21
43: ; preds = %21
%44 = load double*, double** %7
%45 = load i32, i32* %14
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds double, double* %44, i64 %46
%48 = load double, double* %47
%49 = load double*, double** %7
%50 = load i32, i32* %13
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds double, double* %49, i64 %51
%53 = load double, double* %52
%54 = fsub double %48, %53
store double %54, double* %17
%55 = load double, double* %17
%56 = fcmp oeq double %55, 0.000000e+00
br i1 %56, label %57, label %63
57: ; preds = %43
%58 = load i32, i32* %10
%59 = load double, double* %11
%60 = call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0), i32 %58, double %59)
%61 = load i32, i32* @stdout
%62 = call i32 @fflush(i32 %61)
br label %63
63: ; preds = %57, %43
%64 = load double, double* %17
%65 = fcmp oeq double %64, 0.000000e+00
br i1 %65, label %66, label %67
66: ; preds = %63
br label %67
67: ; preds = %66, %63
%68 = load double*, double** %7
%69 = load i32, i32* %14
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds double, double* %68, i64 %70
%72 = load double, double* %71
%73 = load double, double* %11
%74 = fsub double %72, %73
%75 = load double, double* %17
%76 = fdiv double %74, %75
store double %76, double* %19
%77 = load double, double* %11
%78 = load double*, double** %7
%79 = load i32, i32* %13
%80 = sext i32 %79 to i64
%81 = getelementptr inbounds double, double* %78, i64 %80
%82 = load double, double* %81
%83 = fsub double %77, %82
%84 = load double, double* %17
%85 = fdiv double %83, %84
store double %85, double* %18
%86 = load double, double* %19
%87 = load double*, double** %8
%88 = load i32, i32* %13
%89 = sext i32 %88 to i64
%90 = getelementptr inbounds double, double* %87, i64 %89
%91 = load double, double* %90
%92 = load double, double* %18
%93 = load double*, double** %8
%94 = load i32, i32* %14
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds double, double* %93, i64 %95
%97 = load double, double* %96
%98 = fmul double %92, %97
%99 = call double @llvm.fmuladd.f64(double %86, double %91, double %98)
%100 = load double, double* %19
%101 = load double, double* %19
%102 = fmul double %100, %101
%103 = load double, double* %19
%104 = load double, double* %19
%105 = fneg double %104
%106 = call double @llvm.fmuladd.f64(double %102, double %103, double %105)
%107 = load double*, double** %9
%108 = load i32, i32* %13
%109 = sext i32 %108 to i64
%110 = getelementptr inbounds double, double* %107, i64 %109
%111 = load double, double* %110
%112 = load double, double* %18
%113 = load double, double* %18
%114 = fmul double %112, %113
%115 = load double, double* %18
%116 = load double, double* %18
%117 = fneg double %116
%118 = call double @llvm.fmuladd.f64(double %114, double %115, double %117)
%119 = load double*, double** %9
%120 = load i32, i32* %14
%121 = sext i32 %120 to i64
%122 = getelementptr inbounds double, double* %119, i64 %121
%123 = load double, double* %122
%124 = fmul double %118, %123
%125 = call double @llvm.fmuladd.f64(double %106, double %111, double %124)
%126 = load double, double* %17
%127 = load double, double* %17
%128 = fmul double %126, %127
%129 = fmul double %125, %128
%130 = fdiv double %129, 6.000000e+00
%131 = fadd double %99, %130
%132 = load double*, double** %12
store double %131, double* %132
%133 = load double*, double** %12
%134 = load double, double* %133
%135 = call i64 @isnan(double %134)
%136 = icmp ne i64 %135, 0
br i1 %136, label %137, label %139
137: ; preds = %67
%138 = load double*, double** %12
store double 0.000000e+00, double* %138
br label %139
139: ; preds = %137, %67
ret void
}

LLVM IR (-O2):
@.str = [13 x i8] c"BADXA %d %f\0A\00"
@stdout = global i32 0
@.str.1 = [31 x i8] c"Bad xa input to routine splint\00"
define void @splint(double* nocapture %0, double* nocapture %1, double* nocapture %2, i32 %3, double %4, double* nocapture writeonly %5) {
%7 = icmp sgt i32 %3, 2
br i1 %7, label %8, label %23
8: ; preds = %6, %8
%9 = phi i32 [ %18, %8 ], [ 1, %6 ]
%10 = phi i32 [ %17, %8 ], [ %3, %6 ]
%11 = add nsw i32 %9, %10
%12 = ashr i32 %11, 1
%13 = sext i32 %12 to i64
%14 = getelementptr inbounds double, double* %0, i64 %13
%15 = load double, double* %14
%16 = fcmp ogt double %15, %4
%17 = select i1 %16, i32 %12, i32 %10
%18 = select i1 %16, i32 %9, i32 %12
%19 = sub nsw i32 %17, %18
%20 = icmp sgt i32 %19, 1
br i1 %20, label %8, label %21
21: ; preds = %8
%22 = sext i32 %18 to i64
br label %23
23: ; preds = %21, %6
%24 = phi i32 [ %3, %6 ], [ %17, %21 ]
%25 = phi i64 [ 1, %6 ], [ %22, %21 ]
%26 = sext i32 %24 to i64
%27 = getelementptr inbounds double, double* %0, i64 %26
%28 = load double, double* %27
%29 = getelementptr inbounds double, double* %0, i64 %25
%30 = load double, double* %29
%31 = fsub double %28, %30
%32 = fcmp oeq double %31, 0.000000e+00
br i1 %32, label %33, label %39
33: ; preds = %23
%34 = tail call i32 @printf(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0), i32 %3, double %4)
%35 = load i32, i32* @stdout
%36 = tail call i32 @fflush(i32 %35)
tail call void @nrerror(i8* getelementptr inbounds ([31 x i8], [31 x i8]* @.str.1, i64 0, i64 0))
%37 = load double, double* %27
%38 = load double, double* %29
br label %39
39: ; preds = %23, %33
%40 = phi double [ %30, %23 ], [ %38, %33 ]
%41 = phi double [ %28, %23 ], [ %37, %33 ]
%42 = fsub double %41, %4
%43 = fdiv double %42, %31
%44 = fsub double %4, %40
%45 = fdiv double %44, %31
%46 = getelementptr inbounds double, double* %1, i64 %25
%47 = load double, double* %46
%48 = getelementptr inbounds double, double* %1, i64 %26
%49 = load double, double* %48
%50 = fmul double %45, %49
%51 = tail call double @llvm.fmuladd.f64(double %43, double %47, double %50)
%52 = fmul double %43, %43
%53 = fneg double %43
%54 = tail call double @llvm.fmuladd.f64(double %52, double %43, double %53)
%55 = getelementptr inbounds double, double* %2, i64 %25
%56 = load double, double* %55
%57 = fmul double %45, %45
%58 = fneg double %45
%59 = tail call double @llvm.fmuladd.f64(double %57, double %45, double %58)
%60 = getelementptr inbounds double, double* %2, i64 %26
%61 = load double, double* %60
%62 = fmul double %59, %61
%63 = tail call double @llvm.fmuladd.f64(double %54, double %56, double %62)
%64 = fmul double %31, %31
%65 = fmul double %64, %63
%66 = fdiv double %65, 6.000000e+00
%67 = fadd double %51, %66
store double %67, double* %5
%68 = tail call i64 @isnan(double %67)
%69 = icmp eq i64 %68, 0
br i1 %69, label %71, label %70
70: ; preds = %39
store double 0.000000e+00, double* %5
br label %71
71: ; preds = %70, %39
ret void
}