void splini(double *xa, double *ya, double *y2a, int n, double x, double *y) {
  double yi = 0;
  int klo = 0;
  int khi = 1;
  double xx, h, a, b, a2, b2;
  while ((x > xa[klo]) && (khi < n)) {
    xx = x;
    if (khi < (n - 1)) {
      if (x < xa[khi])
        xx = x;
      else
        xx = xa[khi];
    }
    h = xa[khi] - xa[klo];
    a = (xa[khi] - xx) / h;
    b = (xx - xa[klo]) / h;
    a2 = a * a;
    b2 = b * b;
    yi += ((1.0 - a2) * ya[klo] / 2.0 + b2 * ya[khi] / 2.0 +
           ((-(1.0 + a2 * a2) / 4.0 + a2 / 2.0) * y2a[klo] +
            (b2 * b2 / 4.0 - b2 / 2.0) * y2a[khi]) *
               h * h / 6.0) *
          h;
    klo++;
    khi++;
  }
  *y = yi;
}


x86 assembly (clang, -O0):
<splini>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movsd  %xmm0,-0x28(%rbp)
mov    %r8,-0x30(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x0,-0x3c(%rbp)
movl   $0x1,-0x40(%rbp)
movsd  -0x28(%rbp),%xmm0
mov    -0x8(%rbp),%rcx
movslq -0x3c(%rbp),%rdx
xor    %eax,%eax
ucomisd (%rcx,%rdx,8),%xmm0
mov    %al,-0x71(%rbp)
jbe    115b <splini+0x5b>
mov    -0x40(%rbp),%eax
cmp    -0x1c(%rbp),%eax
setl   %al
mov    %al,-0x71(%rbp)
mov    -0x71(%rbp),%al
test   $0x1,%al
jne    116b <splini+0x6b>
jmp    136c <splini+0x26c>
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x40(%rbp),%eax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    11c8 <splini+0xc8>
movsd  -0x28(%rbp),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    11b1 <splini+0xb1>
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    11c3 <splini+0xc3>
mov    -0x8(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    11c8 <splini+0xc8>
mov    -0x8(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x3c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
subsd  -0x48(%rbp),%xmm0
divsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x48(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x3c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
divsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x58(%rbp),%xmm0
mulsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x60(%rbp),%xmm0
mulsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  0xdd3(%rip),%xmm0
subsd  -0x68(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
movsd  0xda9(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  -0x70(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x40(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm1
movsd  0xd8b(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
movsd  -0x68(%rbp),%xmm1
movsd  -0x68(%rbp),%xmm2
mulsd  %xmm2,%xmm1
movsd  0xd7d(%rip),%xmm2
addsd  %xmm2,%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
movsd  0xd52(%rip),%xmm2
divsd  %xmm2,%xmm1
movsd  -0x68(%rbp),%xmm2
movsd  0xd39(%rip),%xmm3
divsd  %xmm3,%xmm2
addsd  %xmm2,%xmm1
mov    -0x18(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm3
movsd  -0x70(%rbp),%xmm2
mulsd  -0x70(%rbp),%xmm2
movsd  0xd1a(%rip),%xmm4
divsd  %xmm4,%xmm2
movsd  -0x70(%rbp),%xmm4
movsd  0xd01(%rip),%xmm5
divsd  %xmm5,%xmm4
subsd  %xmm4,%xmm2
mov    -0x18(%rbp),%rax
movslq -0x40(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm3,%xmm1
addsd  %xmm2,%xmm1
mulsd  -0x50(%rbp),%xmm1
mulsd  -0x50(%rbp),%xmm1
movsd  0xcca(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
movsd  -0x50(%rbp),%xmm2
movsd  -0x38(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
mov    -0x40(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x40(%rbp)
jmp    1132 <splini+0x32>
movsd  -0x38(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movsd  %xmm0,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<splini>:
movsd  (%rdi),%xmm3
ucomisd %xmm3,%xmm0
xorpd  %xmm1,%xmm1
jbe    1244 <splini+0x144>
cmp    $0x2,%ecx
jl     1244 <splini+0x144>
lea    -0x1(%rcx),%eax
mov    %ecx,%r9d
xorpd  %xmm1,%xmm1
mov    $0x1,%ecx
movapd 0xecd(%rip),%xmm8
movapd 0xed4(%rip),%xmm9
movsd  0xedb(%rip),%xmm13
movsd  0xeda(%rip),%xmm10
movsd  0xed9(%rip),%xmm12
movsd  0xed8(%rip),%xmm11
movsd  (%rdi,%rcx,8),%xmm7
movapd %xmm0,%xmm6
cmp    %rax,%rcx
jae    1172 <splini+0x72>
minsd  %xmm7,%xmm6
movapd %xmm7,%xmm2
subsd  %xmm3,%xmm2
unpcklpd %xmm6,%xmm3
unpcklpd %xmm7,%xmm6
subpd  %xmm3,%xmm6
movapd %xmm2,%xmm3
unpcklpd %xmm2,%xmm3
divpd  %xmm3,%xmm6
mulpd  %xmm6,%xmm6
movsd  (%rsi,%rcx,8),%xmm4
mulpd  %xmm6,%xmm4
movapd %xmm8,%xmm5
subpd  %xmm6,%xmm5
movapd %xmm9,%xmm3
movhpd -0x8(%rsi,%rcx,8),%xmm3
movsd  %xmm4,%xmm5
mulpd  %xmm5,%xmm3
movapd %xmm3,%xmm4
unpckhpd %xmm3,%xmm4
mulsd  %xmm13,%xmm4
addsd  %xmm3,%xmm4
movapd %xmm6,%xmm5
unpckhpd %xmm6,%xmm5
movapd %xmm6,%xmm3
mulsd  %xmm6,%xmm3
mulsd  %xmm12,%xmm3
mulsd  %xmm13,%xmm6
subsd  %xmm6,%xmm3
movapd %xmm5,%xmm6
mulsd  %xmm5,%xmm6
addsd  %xmm10,%xmm6
mulsd  %xmm12,%xmm6
mulsd  %xmm13,%xmm5
mulsd  (%rdx,%rcx,8),%xmm3
subsd  %xmm6,%xmm5
mulsd  -0x8(%rdx,%rcx,8),%xmm5
addsd  %xmm3,%xmm5
mulsd  %xmm2,%xmm5
mulsd  %xmm2,%xmm5
divsd  %xmm11,%xmm5
addsd  %xmm4,%xmm5
mulsd  %xmm2,%xmm5
addsd  %xmm5,%xmm1
ucomisd %xmm7,%xmm0
jbe    1244 <splini+0x144>
add    $0x1,%rcx
movapd %xmm7,%xmm3
cmp    %r9,%rcx
jb     1160 <splini+0x60>
movsd  %xmm1,(%r8)
ret

LLVM IR (-O0):
define void @splini(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 double
%14 = alloca i32
%15 = alloca i32
%16 = alloca double
%17 = alloca double
%18 = alloca double
%19 = alloca double
%20 = alloca double
%21 = 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 double 0.000000e+00, double* %13
store i32 0, i32* %14
store i32 1, i32* %15
br label %22
22: ; preds = %59, %6
%23 = load double, double* %11
%24 = load double*, double** %7
%25 = load i32, i32* %14
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds double, double* %24, i64 %26
%28 = load double, double* %27
%29 = fcmp ogt double %23, %28
br i1 %29, label %30, label %34
30: ; preds = %22
%31 = load i32, i32* %15
%32 = load i32, i32* %10
%33 = icmp slt i32 %31, %32
br label %34
34: ; preds = %30, %22
%35 = phi i1 [ false, %22 ], [ %33, %30 ]
br i1 %35, label %36, label %153
36: ; preds = %34
%37 = load double, double* %11
store double %37, double* %16
%38 = load i32, i32* %15
%39 = load i32, i32* %10
%40 = sub nsw i32 %39, 1
%41 = icmp slt i32 %38, %40
br i1 %41, label %42, label %59
42: ; preds = %36
%43 = load double, double* %11
%44 = load double*, double** %7
%45 = load i32, i32* %15
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds double, double* %44, i64 %46
%48 = load double, double* %47
%49 = fcmp olt double %43, %48
br i1 %49, label %50, label %52
50: ; preds = %42
%51 = load double, double* %11
store double %51, double* %16
br label %58
52: ; preds = %42
%53 = load double*, double** %7
%54 = load i32, i32* %15
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds double, double* %53, i64 %55
%57 = load double, double* %56
store double %57, double* %16
br label %58
58: ; preds = %52, %50
br label %59
59: ; preds = %58, %36
%60 = load double*, double** %7
%61 = load i32, i32* %15
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds double, double* %60, i64 %62
%64 = load double, double* %63
%65 = load double*, double** %7
%66 = load i32, i32* %14
%67 = sext i32 %66 to i64
%68 = getelementptr inbounds double, double* %65, i64 %67
%69 = load double, double* %68
%70 = fsub double %64, %69
store double %70, double* %17
%71 = load double*, double** %7
%72 = load i32, i32* %15
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds double, double* %71, i64 %73
%75 = load double, double* %74
%76 = load double, double* %16
%77 = fsub double %75, %76
%78 = load double, double* %17
%79 = fdiv double %77, %78
store double %79, double* %18
%80 = load double, double* %16
%81 = load double*, double** %7
%82 = load i32, i32* %14
%83 = sext i32 %82 to i64
%84 = getelementptr inbounds double, double* %81, i64 %83
%85 = load double, double* %84
%86 = fsub double %80, %85
%87 = load double, double* %17
%88 = fdiv double %86, %87
store double %88, double* %19
%89 = load double, double* %18
%90 = load double, double* %18
%91 = fmul double %89, %90
store double %91, double* %20
%92 = load double, double* %19
%93 = load double, double* %19
%94 = fmul double %92, %93
store double %94, double* %21
%95 = load double, double* %20
%96 = fsub double 1.000000e+00, %95
%97 = load double*, double** %8
%98 = load i32, i32* %14
%99 = sext i32 %98 to i64
%100 = getelementptr inbounds double, double* %97, i64 %99
%101 = load double, double* %100
%102 = fmul double %96, %101
%103 = fdiv double %102, 2.000000e+00
%104 = load double, double* %21
%105 = load double*, double** %8
%106 = load i32, i32* %15
%107 = sext i32 %106 to i64
%108 = getelementptr inbounds double, double* %105, i64 %107
%109 = load double, double* %108
%110 = fmul double %104, %109
%111 = fdiv double %110, 2.000000e+00
%112 = fadd double %103, %111
%113 = load double, double* %20
%114 = load double, double* %20
%115 = call double @llvm.fmuladd.f64(double %113, double %114, double 1.000000e+00)
%116 = fneg double %115
%117 = fdiv double %116, 4.000000e+00
%118 = load double, double* %20
%119 = fdiv double %118, 2.000000e+00
%120 = fadd double %117, %119
%121 = load double*, double** %9
%122 = load i32, i32* %14
%123 = sext i32 %122 to i64
%124 = getelementptr inbounds double, double* %121, i64 %123
%125 = load double, double* %124
%126 = load double, double* %21
%127 = load double, double* %21
%128 = fmul double %126, %127
%129 = fdiv double %128, 4.000000e+00
%130 = load double, double* %21
%131 = fdiv double %130, 2.000000e+00
%132 = fsub double %129, %131
%133 = load double*, double** %9
%134 = load i32, i32* %15
%135 = sext i32 %134 to i64
%136 = getelementptr inbounds double, double* %133, i64 %135
%137 = load double, double* %136
%138 = fmul double %132, %137
%139 = call double @llvm.fmuladd.f64(double %120, double %125, double %138)
%140 = load double, double* %17
%141 = fmul double %139, %140
%142 = load double, double* %17
%143 = fmul double %141, %142
%144 = fdiv double %143, 6.000000e+00
%145 = fadd double %112, %144
%146 = load double, double* %17
%147 = load double, double* %13
%148 = call double @llvm.fmuladd.f64(double %145, double %146, double %147)
store double %148, double* %13
%149 = load i32, i32* %14
%150 = add nsw i32 %149, 1
store i32 %150, i32* %14
%151 = load i32, i32* %15
%152 = add nsw i32 %151, 1
store i32 %152, i32* %15
br label %22
153: ; preds = %34
%154 = load double, double* %13
%155 = load double*, double** %12
store double %154, double* %155
ret void
}

LLVM IR (-O2):
define void @splini(double* nocapture %0, double* nocapture %1, double* nocapture %2, i32 %3, double %4, double* nocapture writeonly %5) {
%7 = load double, double* %0
%8 = fcmp olt double %7, %4
%9 = icmp sgt i32 %3, 1
%10 = and i1 %8, %9
br i1 %10, label %11, label %79
11: ; preds = %6
%12 = add nsw i32 %3, -1
%13 = zext i32 %12 to i64
%14 = zext i32 %3 to i64
br label %15
15: ; preds = %11, %15
%16 = phi i64 [ 1, %11 ], [ %73, %15 ]
%17 = phi i64 [ 0, %11 ], [ %72, %15 ]
%18 = phi double [ %7, %11 ], [ %75, %15 ]
%19 = phi double [ 0.000000e+00, %11 ], [ %71, %15 ]
%20 = icmp ult i64 %16, %13
%21 = getelementptr inbounds double, double* %0, i64 %16
%22 = load double, double* %21
%23 = fcmp ogt double %22, %4
%24 = select i1 %23, double %4, double %22
%25 = select i1 %20, double %24, double %4
%26 = fsub double %22, %18
%27 = insertelement <2 x double> poison, double %25, i64 0
%28 = insertelement <2 x double> %27, double %22, i64 1
%29 = insertelement <2 x double> poison, double %18, i64 0
%30 = insertelement <2 x double> %29, double %25, i64 1
%31 = fsub <2 x double> %28, %30
%32 = insertelement <2 x double> poison, double %26, i64 0
%33 = shufflevector <2 x double> %32, <2 x double> poison, <2 x i32> zeroinitializer
%34 = fdiv <2 x double> %31, %33
%35 = fmul <2 x double> %34, %34
%36 = getelementptr inbounds double, double* %1, i64 %17
%37 = load double, double* %36
%38 = getelementptr inbounds double, double* %1, i64 %16
%39 = load double, double* %38
%40 = insertelement <2 x double> <double poison, double 1.000000e+00>, double %39, i64 0
%41 = fmul <2 x double> %40, %35
%42 = fsub <2 x double> %40, %35
%43 = shufflevector <2 x double> %41, <2 x double> %42, <2 x i32> <i32 0, i32 3>
%44 = insertelement <2 x double> <double 5.000000e-01, double poison>, double %37, i64 1
%45 = fmul <2 x double> %44, %43
%46 = extractelement <2 x double> %45, i64 1
%47 = fmul double %46, 5.000000e-01
%48 = extractelement <2 x double> %45, i64 0
%49 = fadd double %48, %47
%50 = extractelement <2 x double> %35, i64 1
%51 = tail call double @llvm.fmuladd.f64(double %50, double %50, double 1.000000e+00)
%52 = fmul double %51, 2.500000e-01
%53 = fmul double %50, 5.000000e-01
%54 = fsub double %53, %52
%55 = getelementptr inbounds double, double* %2, i64 %17
%56 = load double, double* %55
%57 = extractelement <2 x double> %35, i64 0
%58 = fmul <2 x double> %35, %35
%59 = extractelement <2 x double> %58, i64 0
%60 = fmul double %59, 2.500000e-01
%61 = fmul double %57, 5.000000e-01
%62 = fsub double %60, %61
%63 = getelementptr inbounds double, double* %2, i64 %16
%64 = load double, double* %63
%65 = fmul double %64, %62
%66 = tail call double @llvm.fmuladd.f64(double %54, double %56, double %65)
%67 = fmul double %26, %66
%68 = fmul double %26, %67
%69 = fdiv double %68, 6.000000e+00
%70 = fadd double %49, %69
%71 = tail call double @llvm.fmuladd.f64(double %70, double %26, double %19)
%72 = add nuw nsw i64 %17, 1
%73 = add nuw nsw i64 %16, 1
%74 = getelementptr inbounds double, double* %0, i64 %72
%75 = load double, double* %74
%76 = fcmp olt double %75, %4
%77 = icmp ult i64 %73, %14
%78 = select i1 %76, i1 %77, i1 false
br i1 %78, label %15, label %79
79: ; preds = %15, %6
%80 = phi double [ 0.000000e+00, %6 ], [ %71, %15 ]
store double %80, double* %5
ret void
}