double _lomb_scargle(int numt, double cn[], double sinx[], double cosx[],
                     double st, double ct, double cst) {
  double cs = 0., s2 = 0., c2 = 0., sh = 0., ch = 0., px = 0., detm;
  int i;
  for (i = 0; i < numt; i++) {
    cs += cosx[i] * sinx[i];
    c2 += cosx[i] * cosx[i];
    sh += sinx[i] * cn[i];
    ch += cosx[i] * cn[i];
  }
  cs -= cst;
  s2 = 1 - c2 - st;
  c2 -= ct;
  detm = c2 * s2 - cs * cs;
  if (detm > 0)
    px = (c2 * sh * sh - 2. * cs * ch * sh + s2 * ch * ch) / detm;
  return px;
}


x86 assembly (clang, -O0):
<_lomb_scargle>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movsd  %xmm0,-0x28(%rbp)
movsd  %xmm1,-0x30(%rbp)
movsd  %xmm2,-0x38(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x40(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x50(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x58(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x60(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x68(%rbp)
movl   $0x0,-0x74(%rbp)
mov    -0x74(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1223 <_lomb_scargle+0x123>
mov    -0x20(%rbp),%rax
movslq -0x74(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x74(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x74(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x74(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x50(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x74(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x74(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x58(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x74(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x74(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x60(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0x74(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x74(%rbp)
jmp    1159 <_lomb_scargle+0x59>
movsd  -0x38(%rbp),%xmm1
movsd  -0x40(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xdc2(%rip),%xmm0
subsd  -0x50(%rbp),%xmm0
subsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x30(%rbp),%xmm1
movsd  -0x50(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
movsd  -0x48(%rbp),%xmm2
movsd  -0x40(%rbp),%xmm1
mulsd  -0x40(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x70(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    1310 <_lomb_scargle+0x210>
movsd  -0x50(%rbp),%xmm1
mulsd  -0x58(%rbp),%xmm1
movsd  -0x58(%rbp),%xmm2
movsd  0xd47(%rip),%xmm0
mulsd  -0x40(%rbp),%xmm0
mulsd  -0x60(%rbp),%xmm0
mulsd  -0x58(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm1
addsd  %xmm0,%xmm1
movsd  -0x48(%rbp),%xmm0
mulsd  -0x60(%rbp),%xmm0
movsd  -0x60(%rbp),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
divsd  -0x70(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<_lomb_scargle>:
movapd %xmm0,%xmm8
xorpd  %xmm0,%xmm0
xorpd  %xmm12,%xmm12
xorpd  %xmm13,%xmm13
xorpd  %xmm5,%xmm5
xorpd  %xmm11,%xmm11
test   %edi,%edi
jle    124a <_lomb_scargle+0x14a>
mov    %edi,%r8d
cmp    $0x1,%edi
jne    1146 <_lomb_scargle+0x46>
xorpd  %xmm11,%xmm11
xor    %eax,%eax
xorpd  %xmm5,%xmm5
xorpd  %xmm13,%xmm13
xorpd  %xmm12,%xmm12
jmp    120a <_lomb_scargle+0x10a>
mov    %r8d,%edi
and    $0xfffffffe,%edi
xorpd  %xmm11,%xmm11
xor    %eax,%eax
xorpd  %xmm9,%xmm9
xorpd  %xmm10,%xmm10
xorpd  %xmm12,%xmm12
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rcx,%rax,8),%xmm7
movsd  0x8(%rcx,%rax,8),%xmm5
movsd  (%rdx,%rax,8),%xmm4
movsd  0x8(%rdx,%rax,8),%xmm13
movapd %xmm7,%xmm3
mulsd  %xmm4,%xmm3
addsd  %xmm11,%xmm3
movapd %xmm7,%xmm6
mulsd  %xmm7,%xmm6
addsd  %xmm12,%xmm6
movsd  (%rsi,%rax,8),%xmm11
movsd  0x8(%rsi,%rax,8),%xmm14
mulsd  %xmm11,%xmm4
addsd  %xmm10,%xmm4
mulsd  %xmm11,%xmm7
addsd  %xmm9,%xmm7
movapd %xmm5,%xmm11
mulsd  %xmm13,%xmm11
addsd  %xmm3,%xmm11
movapd %xmm5,%xmm12
mulsd  %xmm5,%xmm12
addsd  %xmm6,%xmm12
mulsd  %xmm14,%xmm13
addsd  %xmm4,%xmm13
mulsd  %xmm14,%xmm5
addsd  %xmm7,%xmm5
add    $0x2,%rax
movapd %xmm5,%xmm9
movapd %xmm13,%xmm10
cmp    %rax,%rdi
jne    1170 <_lomb_scargle+0x70>
test   $0x1,%r8b
je     124a <_lomb_scargle+0x14a>
movsd  (%rcx,%rax,8),%xmm3
movsd  (%rdx,%rax,8),%xmm4
movapd %xmm3,%xmm6
mulsd  %xmm4,%xmm6
addsd  %xmm6,%xmm11
movapd %xmm3,%xmm6
mulsd  %xmm3,%xmm6
addsd  %xmm6,%xmm12
movsd  (%rsi,%rax,8),%xmm6
mulsd  %xmm6,%xmm4
addsd  %xmm4,%xmm13
mulsd  %xmm6,%xmm3
addsd  %xmm3,%xmm5
subsd  %xmm2,%xmm11
movsd  0xda9(%rip),%xmm2
subsd  %xmm12,%xmm2
subsd  %xmm8,%xmm2
subsd  %xmm1,%xmm12
movapd %xmm11,%xmm3
mulsd  %xmm11,%xmm3
movapd %xmm12,%xmm1
mulsd  %xmm2,%xmm1
subsd  %xmm3,%xmm1
ucomisd %xmm0,%xmm1
jbe    12ba <_lomb_scargle+0x1ba>
mulsd  %xmm13,%xmm12
mulsd  0xd77(%rip),%xmm11
mulsd  %xmm5,%xmm11
mulsd  %xmm13,%xmm11
mulsd  %xmm13,%xmm12
addsd  %xmm11,%xmm12
mulsd  %xmm5,%xmm2
mulsd  %xmm5,%xmm2
addsd  %xmm12,%xmm2
divsd  %xmm1,%xmm2
movapd %xmm2,%xmm0
ret

LLVM IR (-O0):
define double @_lomb_scargle(i32 %0, double* %1, double* %2, double* %3, double %4, double %5, double %6) {
%8 = alloca i32
%9 = alloca double*
%10 = alloca double*
%11 = alloca double*
%12 = alloca double
%13 = alloca double
%14 = alloca double
%15 = alloca double
%16 = alloca double
%17 = alloca double
%18 = alloca double
%19 = alloca double
%20 = alloca double
%21 = alloca double
%22 = alloca i32
store i32 %0, i32* %8
store double* %1, double** %9
store double* %2, double** %10
store double* %3, double** %11
store double %4, double* %12
store double %5, double* %13
store double %6, double* %14
store double 0.000000e+00, double* %15
store double 0.000000e+00, double* %16
store double 0.000000e+00, double* %17
store double 0.000000e+00, double* %18
store double 0.000000e+00, double* %19
store double 0.000000e+00, double* %20
store i32 0, i32* %22
br label %23
23: ; preds = %76, %7
%24 = load i32, i32* %22
%25 = load i32, i32* %8
%26 = icmp slt i32 %24, %25
br i1 %26, label %27, label %79
27: ; preds = %23
%28 = load double*, double** %11
%29 = load i32, i32* %22
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds double, double* %28, i64 %30
%32 = load double, double* %31
%33 = load double*, double** %10
%34 = load i32, i32* %22
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds double, double* %33, i64 %35
%37 = load double, double* %36
%38 = load double, double* %15
%39 = call double @llvm.fmuladd.f64(double %32, double %37, double %38)
store double %39, double* %15
%40 = load double*, double** %11
%41 = load i32, i32* %22
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds double, double* %40, i64 %42
%44 = load double, double* %43
%45 = load double*, double** %11
%46 = load i32, i32* %22
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds double, double* %45, i64 %47
%49 = load double, double* %48
%50 = load double, double* %17
%51 = call double @llvm.fmuladd.f64(double %44, double %49, double %50)
store double %51, double* %17
%52 = load double*, double** %10
%53 = load i32, i32* %22
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds double, double* %52, i64 %54
%56 = load double, double* %55
%57 = load double*, double** %9
%58 = load i32, i32* %22
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds double, double* %57, i64 %59
%61 = load double, double* %60
%62 = load double, double* %18
%63 = call double @llvm.fmuladd.f64(double %56, double %61, double %62)
store double %63, double* %18
%64 = load double*, double** %11
%65 = load i32, i32* %22
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds double, double* %64, i64 %66
%68 = load double, double* %67
%69 = load double*, double** %9
%70 = load i32, i32* %22
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds double, double* %69, i64 %71
%73 = load double, double* %72
%74 = load double, double* %19
%75 = call double @llvm.fmuladd.f64(double %68, double %73, double %74)
store double %75, double* %19
br label %76
76: ; preds = %27
%77 = load i32, i32* %22
%78 = add nsw i32 %77, 1
store i32 %78, i32* %22
br label %23
79: ; preds = %23
%80 = load double, double* %14
%81 = load double, double* %15
%82 = fsub double %81, %80
store double %82, double* %15
%83 = load double, double* %17
%84 = fsub double 1.000000e+00, %83
%85 = load double, double* %12
%86 = fsub double %84, %85
store double %86, double* %16
%87 = load double, double* %13
%88 = load double, double* %17
%89 = fsub double %88, %87
store double %89, double* %17
%90 = load double, double* %17
%91 = load double, double* %16
%92 = load double, double* %15
%93 = load double, double* %15
%94 = fmul double %92, %93
%95 = fneg double %94
%96 = call double @llvm.fmuladd.f64(double %90, double %91, double %95)
store double %96, double* %21
%97 = load double, double* %21
%98 = fcmp ogt double %97, 0.000000e+00
br i1 %98, label %99, label %119
99: ; preds = %79
%100 = load double, double* %17
%101 = load double, double* %18
%102 = fmul double %100, %101
%103 = load double, double* %18
%104 = load double, double* %15
%105 = fmul double 2.000000e+00, %104
%106 = load double, double* %19
%107 = fmul double %105, %106
%108 = load double, double* %18
%109 = fmul double %107, %108
%110 = fneg double %109
%111 = call double @llvm.fmuladd.f64(double %102, double %103, double %110)
%112 = load double, double* %16
%113 = load double, double* %19
%114 = fmul double %112, %113
%115 = load double, double* %19
%116 = call double @llvm.fmuladd.f64(double %114, double %115, double %111)
%117 = load double, double* %21
%118 = fdiv double %116, %117
store double %118, double* %20
br label %119
119: ; preds = %99, %79
%120 = load double, double* %20
ret double %120
}

LLVM IR (-O2):
define double @_lomb_scargle(i32 %0, double* nocapture %1, double* nocapture %2, double* nocapture %3, double %4, double %5, double %6) {
%8 = icmp sgt i32 %0, 0
br i1 %8, label %9, label %68
9: ; preds = %7
%10 = zext i32 %0 to i64
%11 = and i64 %10, 1
%12 = icmp eq i32 %0, 1
br i1 %12, label %46, label %13
13: ; preds = %9
%14 = and i64 %10, 4294967294
br label %15
15: ; preds = %15, %13
%16 = phi i64 [ 0, %13 ], [ %43, %15 ]
%17 = phi double [ 0.000000e+00, %13 ], [ %37, %15 ]
%18 = phi double [ 0.000000e+00, %13 ], [ %42, %15 ]
%19 = phi double [ 0.000000e+00, %13 ], [ %41, %15 ]
%20 = phi double [ 0.000000e+00, %13 ], [ %38, %15 ]
%21 = phi i64 [ 0, %13 ], [ %44, %15 ]
%22 = getelementptr inbounds double, double* %3, i64 %16
%23 = load double, double* %22
%24 = getelementptr inbounds double, double* %2, i64 %16
%25 = load double, double* %24
%26 = tail call double @llvm.fmuladd.f64(double %23, double %25, double %17)
%27 = tail call double @llvm.fmuladd.f64(double %23, double %23, double %20)
%28 = getelementptr inbounds double, double* %1, i64 %16
%29 = load double, double* %28
%30 = tail call double @llvm.fmuladd.f64(double %25, double %29, double %19)
%31 = tail call double @llvm.fmuladd.f64(double %23, double %29, double %18)
%32 = or i64 %16, 1
%33 = getelementptr inbounds double, double* %3, i64 %32
%34 = load double, double* %33
%35 = getelementptr inbounds double, double* %2, i64 %32
%36 = load double, double* %35
%37 = tail call double @llvm.fmuladd.f64(double %34, double %36, double %26)
%38 = tail call double @llvm.fmuladd.f64(double %34, double %34, double %27)
%39 = getelementptr inbounds double, double* %1, i64 %32
%40 = load double, double* %39
%41 = tail call double @llvm.fmuladd.f64(double %36, double %40, double %30)
%42 = tail call double @llvm.fmuladd.f64(double %34, double %40, double %31)
%43 = add nuw nsw i64 %16, 2
%44 = add i64 %21, 2
%45 = icmp eq i64 %44, %14
br i1 %45, label %46, label %15
46: ; preds = %15, %9
%47 = phi double [ undef, %9 ], [ %37, %15 ]
%48 = phi double [ undef, %9 ], [ %38, %15 ]
%49 = phi double [ undef, %9 ], [ %41, %15 ]
%50 = phi double [ undef, %9 ], [ %42, %15 ]
%51 = phi i64 [ 0, %9 ], [ %43, %15 ]
%52 = phi double [ 0.000000e+00, %9 ], [ %37, %15 ]
%53 = phi double [ 0.000000e+00, %9 ], [ %42, %15 ]
%54 = phi double [ 0.000000e+00, %9 ], [ %41, %15 ]
%55 = phi double [ 0.000000e+00, %9 ], [ %38, %15 ]
%56 = icmp eq i64 %11, 0
br i1 %56, label %68, label %57
57: ; preds = %46
%58 = getelementptr inbounds double, double* %3, i64 %51
%59 = load double, double* %58
%60 = getelementptr inbounds double, double* %2, i64 %51
%61 = load double, double* %60
%62 = tail call double @llvm.fmuladd.f64(double %59, double %61, double %52)
%63 = tail call double @llvm.fmuladd.f64(double %59, double %59, double %55)
%64 = getelementptr inbounds double, double* %1, i64 %51
%65 = load double, double* %64
%66 = tail call double @llvm.fmuladd.f64(double %61, double %65, double %54)
%67 = tail call double @llvm.fmuladd.f64(double %59, double %65, double %53)
br label %68
68: ; preds = %57, %46, %7
%69 = phi double [ 0.000000e+00, %7 ], [ %48, %46 ], [ %63, %57 ]
%70 = phi double [ 0.000000e+00, %7 ], [ %49, %46 ], [ %66, %57 ]
%71 = phi double [ 0.000000e+00, %7 ], [ %50, %46 ], [ %67, %57 ]
%72 = phi double [ 0.000000e+00, %7 ], [ %47, %46 ], [ %62, %57 ]
%73 = fsub double %72, %6
%74 = fsub double 1.000000e+00, %69
%75 = fsub double %74, %4
%76 = fsub double %69, %5
%77 = fneg double %73
%78 = fmul double %73, %77
%79 = tail call double @llvm.fmuladd.f64(double %76, double %75, double %78)
%80 = fcmp ogt double %79, 0.000000e+00
br i1 %80, label %81, label %90
81: ; preds = %68
%82 = fmul double %76, %70
%83 = fmul double %73, -2.000000e+00
%84 = fmul double %71, %83
%85 = fmul double %70, %84
%86 = tail call double @llvm.fmuladd.f64(double %82, double %70, double %85)
%87 = fmul double %75, %71
%88 = tail call double @llvm.fmuladd.f64(double %87, double %71, double %86)
%89 = fdiv double %88, %79
br label %90
90: ; preds = %81, %68
%91 = phi double [ %89, %81 ], [ 0.000000e+00, %68 ]
ret double %91
}