#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*/ free_vector(float *, int, unsigned long);
float *vector(int, unsigned long);
void correl(float data1[], float data2[], unsigned long n, float ans[]) {
  void realft(float data[], unsigned long n, int isign);
  void twofft(float data1[], float data2[], float fft1[], float fft2[],
              unsigned long n);
  unsigned long no2, i;
  float dum, *fft;
  fft = vector(1, n << 1);
  twofft(data1, data2, fft, ans, n);
  no2 = n >> 1;
  for (i = 2; i <= n + 2; i += 2) {
    ans[i - 1] = (fft[i - 1] * (dum = ans[i - 1]) + fft[i] * ans[i]) / no2;
    ans[i] = (fft[i] * dum - fft[i - 1] * ans[i]) / no2;
  }
  ans[2] = ans[n + 1];
  realft(ans, n, -1);
  free_vector(fft, 1, n << 1);
}


x86 assembly (clang, -O0):
<correl>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x18(%rbp),%rsi
shl    $0x1,%rsi
mov    $0x1,%edi
call   1050 <vector@plt>
mov    %rax,-0x40(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    -0x40(%rbp),%rdx
mov    -0x20(%rbp),%rcx
mov    -0x18(%rbp),%r8
call   1060 <twofft@plt>
mov    -0x18(%rbp),%rax
shr    $0x1,%rax
mov    %rax,-0x28(%rbp)
movq   $0x2,-0x30(%rbp)
mov    -0x30(%rbp),%rax
mov    -0x18(%rbp),%rcx
add    $0x2,%rcx
cmp    %rcx,%rax
ja     12f0 <correl+0x1b0>
mov    -0x40(%rbp),%rax
mov    -0x30(%rbp),%rcx
movss  -0x4(%rax,%rcx,4),%xmm0
mov    -0x20(%rbp),%rax
movss  -0x4(%rax,%rcx,4),%xmm2
movss  %xmm2,-0x34(%rbp)
mov    -0x40(%rbp),%rax
mov    -0x30(%rbp),%rcx
mov    %rcx,-0x60(%rbp)
movss  (%rax,%rcx,4),%xmm1
mov    -0x20(%rbp),%rax
mov    %rax,-0x58(%rbp)
movss  (%rax,%rcx,4),%xmm3
mulss  %xmm3,%xmm1
mulss  %xmm2,%xmm0
addss  %xmm1,%xmm0
movss  %xmm0,-0x4c(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,%rdx
shr    %rdx
mov    %eax,%ecx
and    $0x1,%ecx
or     %rdx,%rcx
cvtsi2ss %rcx,%xmm0
addss  %xmm0,%xmm0
cvtsi2ss %rax,%xmm1
movss  %xmm1,-0x48(%rbp)
test   %rax,%rax
movss  %xmm0,-0x44(%rbp)
js     1239 <correl+0xf9>
movss  -0x48(%rbp),%xmm0
movss  %xmm0,-0x44(%rbp)
mov    -0x58(%rbp),%rax
mov    -0x60(%rbp),%rcx
movss  -0x4c(%rbp),%xmm0
movss  -0x44(%rbp),%xmm1
divss  %xmm1,%xmm0
movss  %xmm0,-0x4(%rax,%rcx,4)
mov    -0x40(%rbp),%rax
mov    -0x30(%rbp),%rcx
movss  -0x4(%rax,%rcx,4),%xmm1
movss  (%rax,%rcx,4),%xmm0
movss  -0x34(%rbp),%xmm2
mov    -0x20(%rbp),%rax
movss  (%rax,%rcx,4),%xmm3
mulss  %xmm3,%xmm1
mulss  %xmm2,%xmm0
subss  %xmm1,%xmm0
movss  %xmm0,-0x6c(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,%rdx
shr    %rdx
mov    %eax,%ecx
and    $0x1,%ecx
or     %rdx,%rcx
cvtsi2ss %rcx,%xmm0
addss  %xmm0,%xmm0
cvtsi2ss %rax,%xmm1
movss  %xmm1,-0x68(%rbp)
test   %rax,%rax
movss  %xmm0,-0x64(%rbp)
js     12c4 <correl+0x184>
movss  -0x68(%rbp),%xmm0
movss  %xmm0,-0x64(%rbp)
movss  -0x6c(%rbp),%xmm0
movss  -0x64(%rbp),%xmm1
divss  %xmm1,%xmm0
mov    -0x20(%rbp),%rax
mov    -0x30(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x30(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x30(%rbp)
jmp    119b <correl+0x5b>
mov    -0x20(%rbp),%rax
mov    -0x18(%rbp),%rcx
movss  0x4(%rax,%rcx,4),%xmm0
mov    -0x20(%rbp),%rax
movss  %xmm0,0x8(%rax)
mov    -0x20(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    $0xffffffff,%edx
call   1030 <realft@plt>
mov    -0x40(%rbp),%rdi
mov    -0x18(%rbp),%rdx
shl    $0x1,%rdx
mov    $0x1,%esi
call   1040 <free_vector@plt>
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<correl>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rcx,%r12
mov    %rdx,%r15
mov    %rsi,%r13
mov    %rdi,%rbp
lea    (%rdx,%rdx,1),%r14
mov    $0x1,%edi
mov    %r14,%rsi
call   1050 <vector@plt>
mov    %rax,%rbx
mov    %rbp,%rdi
mov    %r13,%rsi
mov    %rax,%rdx
mov    %r12,%rcx
mov    %r15,%r8
call   1060 <twofft@plt>
cmp    $0xfffffffffffffffd,%r15
ja     1221 <correl+0xe1>
mov    %r15,%rax
shr    %rax
cvtsi2ss %rax,%xmm0
lea    0x3(%r15),%rdi
cmp    $0x5,%rdi
mov    $0x4,%esi
cmovae %rdi,%rsi
mov    $0x4,%eax
add    $0xfffffffffffffffd,%rsi
mov    $0x2,%ecx
cmp    $0x6,%rsi
jae    125d <correl+0x11d>
lea    0x2(%r15),%rax
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movss  -0x4(%r12,%rcx,4),%xmm1
movss  (%r12,%rcx,4),%xmm2
movss  (%rbx,%rcx,4),%xmm3
mulss  %xmm2,%xmm3
movss  -0x4(%rbx,%rcx,4),%xmm4
mulss  %xmm1,%xmm4
addss  %xmm3,%xmm4
divss  %xmm0,%xmm4
movss  %xmm4,-0x4(%r12,%rcx,4)
mulss  -0x4(%rbx,%rcx,4),%xmm2
mulss  (%rbx,%rcx,4),%xmm1
subss  %xmm2,%xmm1
divss  %xmm0,%xmm1
movss  %xmm1,(%r12,%rcx,4)
add    $0x2,%rcx
cmp    %rax,%rcx
jbe    11d0 <correl+0x90>
movss  0x4(%r12,%r15,4),%xmm0
movss  %xmm0,0x8(%r12)
mov    %r12,%rdi
mov    %r15,%rsi
mov    $0xffffffff,%edx
call   1030 <realft@plt>
mov    %rbx,%rdi
mov    $0x1,%esi
mov    %r14,%rdx
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1040 <free_vector@plt>
cmp    $0x5,%rdi
cmovae %rdi,%rax
add    $0xfffffffffffffffd,%rax
shr    %rax
mov    $0x8,%edx
mul    %rdx
lea    0x8(%r12),%rdx
seto   %r8b
lea    (%r12,%rax,1),%rbp
add    $0x8,%rbp
cmp    %rdx,%rbp
jb     11bd <correl+0x7d>
test   %r8b,%r8b
jne    11bd <correl+0x7d>
lea    0x4(%r12),%rdx
add    %r12,%rax
add    $0x4,%rax
cmp    %rdx,%rax
jb     11bd <correl+0x7d>
test   %r8b,%r8b
jne    11bd <correl+0x7d>
cmp    $0x5,%rdi
mov    $0x4,%ebp
cmovae %rdi,%rbp
add    $0xfffffffffffffffd,%rbp
movabs $0x3ffffffffffffffe,%rax
ff ff 3f
and    %rbp,%rax
lea    (%rbx,%rax,4),%rdi
add    $0xc,%rdi
cmp    %rdi,%rdx
jae    12f8 <correl+0x1b8>
lea    (%r12,%rax,4),%rax
add    $0xc,%rax
mov    %rbx,%rdi
add    $0x4,%rdi
cmp    %rax,%rdi
jb     11bd <correl+0x7d>
shr    %rsi
add    $0x1,%rsi
movabs $0x7ffffffffffffffc,%rax
ff ff 7f
and    %rsi,%rax
lea    (%rax,%rax,1),%rcx
add    $0x2,%rcx
movaps %xmm0,%xmm1
shufps $0x0,%xmm0,%xmm1
xor    %edi,%edi
nopl   (%rax)
movups 0x4(%rbx,%rdi,8),%xmm2
movups 0x14(%rbx,%rdi,8),%xmm3
movaps %xmm2,%xmm4
shufps $0x88,%xmm3,%xmm4
movups (%rdx,%rdi,8),%xmm5
movups 0x10(%rdx,%rdi,8),%xmm6
movaps %xmm5,%xmm7
shufps $0x88,%xmm6,%xmm7
shufps $0xdd,%xmm6,%xmm5
shufps $0xdd,%xmm3,%xmm2
movaps %xmm2,%xmm3
mulps  %xmm5,%xmm3
mulps  %xmm4,%xmm5
mulps  %xmm7,%xmm4
addps  %xmm3,%xmm4
divps  %xmm1,%xmm4
mulps  %xmm7,%xmm2
subps  %xmm5,%xmm2
divps  %xmm1,%xmm2
movaps %xmm4,%xmm3
unpckhps %xmm2,%xmm3
unpcklps %xmm2,%xmm4
movups %xmm4,(%rdx,%rdi,8)
movups %xmm3,0x10(%rdx,%rdi,8)
add    $0x4,%rdi
cmp    %rdi,%rax
jne    1320 <correl+0x1e0>
cmp    %rax,%rsi
jne    11bd <correl+0x7d>
jmp    1221 <correl+0xe1>

LLVM IR (-O0):
define void @correl(float* %0, float* %1, i64 %2, float* %3) {
%5 = alloca float*
%6 = alloca float*
%7 = alloca i64
%8 = alloca float*
%9 = alloca i64
%10 = alloca i64
%11 = alloca float
%12 = alloca float*
store float* %0, float** %5
store float* %1, float** %6
store i64 %2, i64* %7
store float* %3, float** %8
%13 = load i64, i64* %7
%14 = shl i64 %13, 1
%15 = call float* @vector(i32 1, i64 %14)
store float* %15, float** %12
%16 = load float*, float** %5
%17 = load float*, float** %6
%18 = load float*, float** %12
%19 = load float*, float** %8
%20 = load i64, i64* %7
%21 = load i64, i64* %7
%22 = lshr i64 %21, 1
store i64 %22, i64* %9
store i64 2, i64* %10
br label %23
23: ; preds = %79, %4
%24 = load i64, i64* %10
%25 = load i64, i64* %7
%26 = add i64 %25, 2
%27 = icmp ule i64 %24, %26
br i1 %27, label %28, label %82
28: ; preds = %23
%29 = load float*, float** %12
%30 = load i64, i64* %10
%31 = sub i64 %30, 1
%32 = getelementptr inbounds float, float* %29, i64 %31
%33 = load float, float* %32
%34 = load float*, float** %8
%35 = load i64, i64* %10
%36 = sub i64 %35, 1
%37 = getelementptr inbounds float, float* %34, i64 %36
%38 = load float, float* %37
store float %38, float* %11
%39 = load float*, float** %12
%40 = load i64, i64* %10
%41 = getelementptr inbounds float, float* %39, i64 %40
%42 = load float, float* %41
%43 = load float*, float** %8
%44 = load i64, i64* %10
%45 = getelementptr inbounds float, float* %43, i64 %44
%46 = load float, float* %45
%47 = fmul float %42, %46
%48 = call float @llvm.fmuladd.f32(float %33, float %38, float %47)
%49 = load i64, i64* %9
%50 = uitofp i64 %49 to float
%51 = fdiv float %48, %50
%52 = load float*, float** %8
%53 = load i64, i64* %10
%54 = sub i64 %53, 1
%55 = getelementptr inbounds float, float* %52, i64 %54
store float %51, float* %55
%56 = load float*, float** %12
%57 = load i64, i64* %10
%58 = getelementptr inbounds float, float* %56, i64 %57
%59 = load float, float* %58
%60 = load float, float* %11
%61 = load float*, float** %12
%62 = load i64, i64* %10
%63 = sub i64 %62, 1
%64 = getelementptr inbounds float, float* %61, i64 %63
%65 = load float, float* %64
%66 = load float*, float** %8
%67 = load i64, i64* %10
%68 = getelementptr inbounds float, float* %66, i64 %67
%69 = load float, float* %68
%70 = fmul float %65, %69
%71 = fneg float %70
%72 = call float @llvm.fmuladd.f32(float %59, float %60, float %71)
%73 = load i64, i64* %9
%74 = uitofp i64 %73 to float
%75 = fdiv float %72, %74
%76 = load float*, float** %8
%77 = load i64, i64* %10
%78 = getelementptr inbounds float, float* %76, i64 %77
store float %75, float* %78
br label %79
79: ; preds = %28
%80 = load i64, i64* %10
%81 = add i64 %80, 2
store i64 %81, i64* %10
br label %23
82: ; preds = %23
%83 = load float*, float** %8
%84 = load i64, i64* %7
%85 = add i64 %84, 1
%86 = getelementptr inbounds float, float* %83, i64 %85
%87 = load float, float* %86
%88 = load float*, float** %8
%89 = getelementptr inbounds float, float* %88, i64 2
store float %87, float* %89
%90 = load float*, float** %8
%91 = load i64, i64* %7
%92 = load float*, float** %12
%93 = load i64, i64* %7
%94 = shl i64 %93, 1
%95 = call i32 @free_vector(float* %92, i32 1, i64 %94)
ret void
}

LLVM IR (-O2):
define void @correl(float* %0, float* %1, i64 %2, float* %3) {
%5 = shl i64 %2, 1
%6 = tail call float* @vector(i32 1, i64 %5)
tail call void @twofft(float* %0, float* %1, float* %6, float* %3, i64 %2)
%7 = add i64 %2, 2
%8 = icmp ugt i64 %2, -3
br i1 %8, label %119, label %9
9: ; preds = %4
%10 = lshr i64 %2, 1
%11 = uitofp i64 %10 to float
%12 = add i64 %2, 3
%13 = call i64 @llvm.umax.i64(i64 %12, i64 4)
%14 = add i64 %13, -3
%15 = lshr i64 %14, 1
%16 = add nuw nsw i64 %15, 1
%17 = icmp ult i64 %14, 6
br i1 %17, label %95, label %18
18: ; preds = %9
%19 = add i64 %2, 3
%20 = call i64 @llvm.umax.i64(i64 %19, i64 4)
%21 = add i64 %20, -3
%22 = lshr i64 %21, 1
%23 = getelementptr float, float* %3, i64 2
%24 = call { i64, i1 } @llvm.umul.with.overflow.i64(i64 %22, i64 8)
%25 = extractvalue { i64, i1 } %24, 0
%26 = extractvalue { i64, i1 } %24, 1
%27 = bitcast float* %23 to i8*
%28 = getelementptr i8, i8* %27, i64 %25
%29 = icmp ult i8* %28, %27
%30 = or i1 %29, %26
%31 = getelementptr float, float* %3, i64 1
%32 = call { i64, i1 } @llvm.umul.with.overflow.i64(i64 %22, i64 8)
%33 = extractvalue { i64, i1 } %32, 0
%34 = extractvalue { i64, i1 } %32, 1
%35 = bitcast float* %31 to i8*
%36 = getelementptr i8, i8* %35, i64 %33
%37 = icmp ult i8* %36, %35
%38 = or i1 %37, %34
%39 = or i1 %30, %38
br i1 %39, label %95, label %40
40: ; preds = %18
%41 = getelementptr float, float* %3, i64 1
%42 = add i64 %2, 3
%43 = call i64 @llvm.umax.i64(i64 %42, i64 4)
%44 = add i64 %43, -3
%45 = and i64 %44, -2
%46 = add nuw i64 %45, 3
%47 = getelementptr float, float* %3, i64 %46
%48 = getelementptr float, float* %6, i64 1
%49 = getelementptr float, float* %6, i64 %46
%50 = icmp ult float* %41, %49
%51 = icmp ult float* %48, %47
%52 = and i1 %50, %51
br i1 %52, label %95, label %53
53: ; preds = %40
%54 = and i64 %16, 9223372036854775804
%55 = shl nuw i64 %54, 1
%56 = or i64 %55, 2
%57 = insertelement <4 x float> poison, float %11, i64 0
%58 = shufflevector <4 x float> %57, <4 x float> poison, <4 x i32> zeroinitializer
%59 = getelementptr inbounds float, float* %6, i64 -1
%60 = getelementptr inbounds float, float* %3, i64 -1
br label %61
61: ; preds = %61, %53
%62 = phi i64 [ 0, %53 ], [ %91, %61 ]
%63 = shl i64 %62, 1
%64 = or i64 %63, 2
%65 = or i64 %63, 1
%66 = getelementptr inbounds float, float* %6, i64 %65
%67 = bitcast float* %66 to <8 x float>*
%68 = load <8 x float>, <8 x float>* %67
%69 = shufflevector <8 x float> %68, <8 x float> poison, <4 x i32> <i32 0, i32 2, i32 4, i32 6>
%70 = getelementptr inbounds float, float* %3, i64 %65
%71 = bitcast float* %70 to <8 x float>*
%72 = load <8 x float>, <8 x float>* %71
%73 = shufflevector <8 x float> %72, <8 x float> poison, <4 x i32> <i32 0, i32 2, i32 4, i32 6>
%74 = shufflevector <8 x float> %72, <8 x float> poison, <4 x i32> <i32 1, i32 3, i32 5, i32 7>
%75 = fmul <8 x float> %68, %72
%76 = shufflevector <8 x float> %75, <8 x float> poison, <4 x i32> <i32 1, i32 3, i32 5, i32 7>
%77 = call <4 x float> @llvm.fmuladd.v4f32(<4 x float> %69, <4 x float> %73, <4 x float> %76)
%78 = fdiv <4 x float> %77, %58
%79 = getelementptr inbounds float, float* %59, i64 %64
%80 = bitcast float* %79 to <8 x float>*
%81 = load <8 x float>, <8 x float>* %80
%82 = shufflevector <8 x float> %81, <8 x float> poison, <4 x i32> <i32 0, i32 2, i32 4, i32 6>
%83 = shufflevector <8 x float> %81, <8 x float> poison, <4 x i32> <i32 1, i32 3, i32 5, i32 7>
%84 = fneg <4 x float> %82
%85 = fmul <4 x float> %74, %84
%86 = call <4 x float> @llvm.fmuladd.v4f32(<4 x float> %83, <4 x float> %73, <4 x float> %85)
%87 = fdiv <4 x float> %86, %58
%88 = getelementptr inbounds float, float* %60, i64 %64
%89 = bitcast float* %88 to <8 x float>*
%90 = shufflevector <4 x float> %78, <4 x float> %87, <8 x i32> <i32 0, i32 4, i32 1, i32 5, i32 2, i32 6, i32 3, i32 7>
store <8 x float> %90, <8 x float>* %89
%91 = add nuw i64 %62, 4
%92 = icmp eq i64 %91, %54
br i1 %92, label %93, label %61
93: ; preds = %61
%94 = icmp eq i64 %16, %54
br i1 %94, label %119, label %95
95: ; preds = %40, %18, %9, %93
%96 = phi i64 [ 2, %40 ], [ 2, %18 ], [ 2, %9 ], [ %56, %93 ]
br label %97
97: ; preds = %95, %97
%98 = phi i64 [ %117, %97 ], [ %96, %95 ]
%99 = add i64 %98, -1
%100 = getelementptr inbounds float, float* %6, i64 %99
%101 = load float, float* %100
%102 = getelementptr inbounds float, float* %3, i64 %99
%103 = load float, float* %102
%104 = getelementptr inbounds float, float* %6, i64 %98
%105 = load float, float* %104
%106 = getelementptr inbounds float, float* %3, i64 %98
%107 = load float, float* %106
%108 = fmul float %105, %107
%109 = tail call float @llvm.fmuladd.f32(float %101, float %103, float %108)
%110 = fdiv float %109, %11
store float %110, float* %102
%111 = load float, float* %104
%112 = load float, float* %100
%113 = fneg float %112
%114 = fmul float %107, %113
%115 = tail call float @llvm.fmuladd.f32(float %111, float %103, float %114)
%116 = fdiv float %115, %11
store float %116, float* %106
%117 = add nuw i64 %98, 2
%118 = icmp ugt i64 %117, %7
br i1 %118, label %119, label %97
119: ; preds = %97, %93, %4
%120 = add i64 %2, 1
%121 = getelementptr inbounds float, float* %3, i64 %120
%122 = load float, float* %121
%123 = getelementptr inbounds float, float* %3, i64 2
store float %122, float* %123
tail call void @realft(float* %3, i64 %2, i32 -1)
%124 = tail call i32 @free_vector(float* %6, i32 1, i64 %5)
ret void
}