double quantil(long int v[], double q, long int l) {
  long int i, j;
  double tmp;
  tmp = q * (double)l;
  if ((double)((long int)tmp) == tmp) {
    i = (long int)tmp;
    j = (long int)(tmp + 1.);
    return ((double)v[i - 1] + (double)v[j - 1]) / 2.;
  } else {
    i = (long int)(tmp + 1.);
    return v[i - 1];
  }
}


x86 assembly (clang, -O0):
<quantil>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
mov    %rsi,-0x20(%rbp)
movsd  -0x18(%rbp),%xmm0
cvtsi2sdq -0x20(%rbp),%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
cvttsd2si -0x38(%rbp),%rax
cvtsi2sd %rax,%xmm0
ucomisd -0x38(%rbp),%xmm0
jne    119f <quantil+0x9f>
jp     119f <quantil+0x9f>
cvttsd2si -0x38(%rbp),%rax
mov    %rax,-0x28(%rbp)
movsd  0xead(%rip),%xmm0
addsd  -0x38(%rbp),%xmm0
cvttsd2si %xmm0,%rax
mov    %rax,-0x30(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
sub    $0x1,%rcx
cvtsi2sdq (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x30(%rbp),%rcx
sub    $0x1,%rcx
cvtsi2sdq (%rax,%rcx,8),%xmm1
addsd  %xmm1,%xmm0
movsd  0xe77(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    11cc <quantil+0xcc>
movsd  0xe59(%rip),%xmm0
addsd  -0x38(%rbp),%xmm0
cvttsd2si %xmm0,%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
sub    $0x1,%rcx
cvtsi2sdq (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<quantil>:
cvtsi2sd %rsi,%xmm1
mulsd  %xmm0,%xmm1
cvttsd2si %xmm1,%rax
xorps  %xmm0,%xmm0
cvtsi2sd %rax,%xmm0
ucomisd %xmm0,%xmm1
addsd  0xede(%rip),%xmm1
cvttsd2si %xmm1,%rcx
jne    114c <quantil+0x4c>
jp     114c <quantil+0x4c>
xorps  %xmm1,%xmm1
cvtsi2sdq -0x8(%rdi,%rax,8),%xmm1
xorps  %xmm0,%xmm0
cvtsi2sdq -0x8(%rdi,%rcx,8),%xmm0
addsd  %xmm1,%xmm0
mulsd  0xebd(%rip),%xmm0
ret
xorps  %xmm0,%xmm0
cvtsi2sdq -0x8(%rdi,%rcx,8),%xmm0
ret

LLVM IR (-O0):
define double @quantil(i64* %0, double %1, i64 %2) {
%4 = alloca double
%5 = alloca i64*
%6 = alloca double
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca double
store i64* %0, i64** %5
store double %1, double* %6
store i64 %2, i64* %7
%11 = load double, double* %6
%12 = load i64, i64* %7
%13 = sitofp i64 %12 to double
%14 = fmul double %11, %13
store double %14, double* %10
%15 = load double, double* %10
%16 = fptosi double %15 to i64
%17 = sitofp i64 %16 to double
%18 = load double, double* %10
%19 = fcmp oeq double %17, %18
br i1 %19, label %20, label %40
20: ; preds = %3
%21 = load double, double* %10
%22 = fptosi double %21 to i64
store i64 %22, i64* %8
%23 = load double, double* %10
%24 = fadd double %23, 1.000000e+00
%25 = fptosi double %24 to i64
store i64 %25, i64* %9
%26 = load i64*, i64** %5
%27 = load i64, i64* %8
%28 = sub nsw i64 %27, 1
%29 = getelementptr inbounds i64, i64* %26, i64 %28
%30 = load i64, i64* %29
%31 = sitofp i64 %30 to double
%32 = load i64*, i64** %5
%33 = load i64, i64* %9
%34 = sub nsw i64 %33, 1
%35 = getelementptr inbounds i64, i64* %32, i64 %34
%36 = load i64, i64* %35
%37 = sitofp i64 %36 to double
%38 = fadd double %31, %37
%39 = fdiv double %38, 2.000000e+00
store double %39, double* %4
br label %50
40: ; preds = %3
%41 = load double, double* %10
%42 = fadd double %41, 1.000000e+00
%43 = fptosi double %42 to i64
store i64 %43, i64* %8
%44 = load i64*, i64** %5
%45 = load i64, i64* %8
%46 = sub nsw i64 %45, 1
%47 = getelementptr inbounds i64, i64* %44, i64 %46
%48 = load i64, i64* %47
%49 = sitofp i64 %48 to double
store double %49, double* %4
br label %50
50: ; preds = %40, %20
%51 = load double, double* %4
ret double %51
}

LLVM IR (-O2):
define double @quantil(i64* nocapture %0, double %1, i64 %2) {
%4 = sitofp i64 %2 to double
%5 = fmul double %4, %1
%6 = fptosi double %5 to i64
%7 = sitofp i64 %6 to double
%8 = fcmp oeq double %5, %7
%9 = fadd double %5, 1.000000e+00
%10 = fptosi double %9 to i64
br i1 %8, label %11, label %22
11: ; preds = %3
%12 = add nsw i64 %6, -1
%13 = getelementptr inbounds i64, i64* %0, i64 %12
%14 = load i64, i64* %13
%15 = sitofp i64 %14 to double
%16 = add nsw i64 %10, -1
%17 = getelementptr inbounds i64, i64* %0, i64 %16
%18 = load i64, i64* %17
%19 = sitofp i64 %18 to double
%20 = fadd double %15, %19
%21 = fmul double %20, 5.000000e-01
br label %27
22: ; preds = %3
%23 = add nsw i64 %10, -1
%24 = getelementptr inbounds i64, i64* %0, i64 %23
%25 = load i64, i64* %24
%26 = sitofp i64 %25 to double
br label %27
27: ; preds = %22, %11
%28 = phi double [ %21, %11 ], [ %26, %22 ]
ret double %28
}