mode(x, n, j, xmax, sigma) double *x[];
int n, j;
double *xmax;
double *sigma;
{
  int i;
  double f, p, pmax;
  double sqrt();
  void sort();
  if (j <= 0)
    j = 3;
  sort(x, n);
  pmax = 0;
  f = (double)j / (double)n;
  for (i = 1; i < n - j; i++) {
    p = f / (*x[i + j] - *x[i]);
    if (p > pmax) {
      pmax = p;
      *xmax = 0.5 * (*x[i + j] + *x[i]);
    }
  }
  *sigma = pmax / sqrt((double)j);
}


x86 assembly (clang, -O0):
<mode>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
cmpl   $0x0,-0x18(%rbp)
jg     114b <mode+0x2b>
movl   $0x3,-0x18(%rbp)
mov    -0x10(%rbp),%rdi
mov    -0x14(%rbp),%esi
mov    $0x0,%al
call   1030 <sort@plt>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
cvtsi2sdl -0x18(%rbp),%xmm0
cvtsi2sdl -0x14(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    -0x18(%rbp),%ecx
cmp    %ecx,%eax
jge    1225 <mode+0x105>
movsd  -0x38(%rbp),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x18(%rbp),%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
movsd  (%rax),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
subsd  (%rax),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
ucomisd -0x48(%rbp),%xmm0
jbe    1212 <mode+0xf2>
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x18(%rbp),%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,8),%rax
movsd  (%rax),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
addsd  (%rax),%xmm1
movsd  0xdfa(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
movsd  %xmm0,(%rax)
jmp    1217 <mode+0xf7>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    117b <mode+0x5b>
movsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
cvtsi2sdl -0x18(%rbp),%xmm0
call   1040 <sqrt@plt>
movaps %xmm0,%xmm1
movsd  -0x50(%rbp),%xmm0
divsd  %xmm1,%xmm0
mov    -0x28(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x4(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<mode>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x10,%rsp
mov    %r8,%r14
mov    %rcx,%r15
mov    %esi,%r12d
mov    %rdi,%rbx
test   %edx,%edx
mov    $0x3,%ebp
cmovg  %edx,%ebp
xor    %eax,%eax
call   1030 <sort@plt>
cvtsi2sd %ebp,%xmm0
mov    %r12d,%eax
sub    %ebp,%eax
xorpd  %xmm8,%xmm8
xorpd  %xmm1,%xmm1
cmp    $0x2,%eax
jl     11d2 <mode+0xb2>
cvtsi2sd %r12d,%xmm3
movapd %xmm0,%xmm2
divsd  %xmm3,%xmm2
mov    %ebp,%ecx
mov    %eax,%eax
lea    (%rbx,%rcx,8),%rcx
xorpd  %xmm1,%xmm1
mov    $0x1,%edx
movsd  0xe7a(%rip),%xmm3
jmp    1199 <mode+0x79>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rdx
cmp    %rdx,%rax
je     11d2 <mode+0xb2>
mov    (%rcx,%rdx,8),%rsi
movsd  (%rsi),%xmm4
mov    (%rbx,%rdx,8),%rsi
movsd  (%rsi),%xmm6
movapd %xmm4,%xmm7
subsd  %xmm6,%xmm7
movapd %xmm2,%xmm5
divsd  %xmm7,%xmm5
ucomisd %xmm1,%xmm5
jbe    1190 <mode+0x70>
addsd  %xmm6,%xmm4
mulsd  %xmm3,%xmm4
movsd  %xmm4,(%r15)
movapd %xmm5,%xmm1
jmp    1190 <mode+0x70>
ucomisd %xmm8,%xmm0
jb     11df <mode+0xbf>
sqrtsd %xmm0,%xmm0
jmp    11f0 <mode+0xd0>
movsd  %xmm1,0x8(%rsp)
call   1040 <sqrt@plt>
movsd  0x8(%rsp),%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,(%r14)
add    $0x10,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @mode(double** %0, i32 %1, i32 %2, double* %3, double* %4) {
%6 = alloca i32
%7 = alloca double**
%8 = alloca i32
%9 = alloca i32
%10 = alloca double*
%11 = alloca double*
%12 = alloca i32
%13 = alloca double
%14 = alloca double
%15 = alloca double
store double** %0, double*** %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store double* %3, double** %10
store double* %4, double** %11
%16 = load i32, i32* %9
%17 = icmp sle i32 %16, 0
br i1 %17, label %18, label %19
18: ; preds = %5
store i32 3, i32* %9
br label %19
19: ; preds = %18, %5
%20 = load double**, double*** %7
%21 = load i32, i32* %8
store double 0.000000e+00, double* %15
%22 = load i32, i32* %9
%23 = sitofp i32 %22 to double
%24 = load i32, i32* %8
%25 = sitofp i32 %24 to double
%26 = fdiv double %23, %25
store double %26, double* %13
store i32 1, i32* %12
br label %27
27: ; preds = %74, %19
%28 = load i32, i32* %12
%29 = load i32, i32* %8
%30 = load i32, i32* %9
%31 = sub nsw i32 %29, %30
%32 = icmp slt i32 %28, %31
br i1 %32, label %33, label %77
33: ; preds = %27
%34 = load double, double* %13
%35 = load double**, double*** %7
%36 = load i32, i32* %12
%37 = load i32, i32* %9
%38 = add nsw i32 %36, %37
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds double*, double** %35, i64 %39
%41 = load double*, double** %40
%42 = load double, double* %41
%43 = load double**, double*** %7
%44 = load i32, i32* %12
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds double*, double** %43, i64 %45
%47 = load double*, double** %46
%48 = load double, double* %47
%49 = fsub double %42, %48
%50 = fdiv double %34, %49
store double %50, double* %14
%51 = load double, double* %14
%52 = load double, double* %15
%53 = fcmp ogt double %51, %52
br i1 %53, label %54, label %73
54: ; preds = %33
%55 = load double, double* %14
store double %55, double* %15
%56 = load double**, double*** %7
%57 = load i32, i32* %12
%58 = load i32, i32* %9
%59 = add nsw i32 %57, %58
%60 = sext i32 %59 to i64
%61 = getelementptr inbounds double*, double** %56, i64 %60
%62 = load double*, double** %61
%63 = load double, double* %62
%64 = load double**, double*** %7
%65 = load i32, i32* %12
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds double*, double** %64, i64 %66
%68 = load double*, double** %67
%69 = load double, double* %68
%70 = fadd double %63, %69
%71 = fmul double 5.000000e-01, %70
%72 = load double*, double** %10
store double %71, double* %72
br label %73
73: ; preds = %54, %33
br label %74
74: ; preds = %73
%75 = load i32, i32* %12
%76 = add nsw i32 %75, 1
store i32 %76, i32* %12
br label %27
77: ; preds = %27
%78 = load double, double* %15
%79 = load i32, i32* %9
%80 = sitofp i32 %79 to double
%81 = call double @sqrt(double %80)
%82 = fdiv double %78, %81
%83 = load double*, double** %11
store double %82, double* %83
%84 = load i32, i32* %6
ret i32 %84
}

LLVM IR (-O2):
define i32 @mode(double** %0, i32 %1, i32 %2, double* nocapture writeonly %3, double* nocapture writeonly %4) {
%6 = icmp slt i32 %2, 1
%7 = select i1 %6, i32 3, i32 %2
tail call void (double**, i32, ...) bitcast (void (...)* @sort to void (double**, i32, ...)*)(double** %0, i32 %1)
%8 = sitofp i32 %7 to double
%9 = sitofp i32 %1 to double
%10 = fdiv double %8, %9
%11 = sub i32 %1, %7
%12 = icmp sgt i32 %11, 1
br i1 %12, label %13, label %36
13: ; preds = %5
%14 = zext i32 %7 to i64
%15 = zext i32 %11 to i64
br label %16
16: ; preds = %13, %32
%17 = phi i64 [ 1, %13 ], [ %34, %32 ]
%18 = phi double [ 0.000000e+00, %13 ], [ %33, %32 ]
%19 = add nuw nsw i64 %17, %14
%20 = getelementptr inbounds double*, double** %0, i64 %19
%21 = load double*, double** %20
%22 = load double, double* %21
%23 = getelementptr inbounds double*, double** %0, i64 %17
%24 = load double*, double** %23
%25 = load double, double* %24
%26 = fsub double %22, %25
%27 = fdiv double %10, %26
%28 = fcmp ogt double %27, %18
br i1 %28, label %29, label %32
29: ; preds = %16
%30 = fadd double %22, %25
%31 = fmul double %30, 5.000000e-01
store double %31, double* %3
br label %32
32: ; preds = %16, %29
%33 = phi double [ %27, %29 ], [ %18, %16 ]
%34 = add nuw nsw i64 %17, 1
%35 = icmp eq i64 %34, %15
br i1 %35, label %36, label %16
36: ; preds = %32, %5
%37 = phi double [ 0.000000e+00, %5 ], [ %33, %32 ]
%38 = tail call double @sqrt(double %8)
%39 = fdiv double %37, %38
store double %39, double* %4
ret i32 undef
}