void permuteIQ(int nPoint, int nFact, int fact[], int remain[], double xIQ[],
               double yRe[], double yIm[]) {
  int i, j, k, n;
  int count[20];
  for (i = 1; i <= nFact; i++)
    count[i] = 0;
  k = 0;
  for (i = 0; i <= nPoint - 2; i++) {
    n = k + k;
    yRe[i] = xIQ[n];
    yIm[i] = xIQ[n + 1];
    j = 1;
    k = k + remain[j];
    count[1] = count[1] + 1;
    while (count[j] >= fact[j]) {
      count[j] = 0;
      k = k - remain[j - 1] + remain[j + 1];
      j = j + 1;
      count[j] = count[j] + 1;
    }
  }
  n = 2 * (nPoint - 1);
  yRe[nPoint - 1] = xIQ[n];
  yIm[nPoint - 1] = xIQ[n + 1];
}


x86 assembly (clang, -O0):
<permuteIQ>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
mov    0x10(%rbp),%rax
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
mov    %r9,-0x28(%rbp)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jg     1152 <permuteIQ+0x52>
movslq -0x2c(%rbp),%rax
movl   $0x0,-0x90(%rbp,%rax,4)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1129 <permuteIQ+0x29>
movl   $0x0,-0x34(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    -0x4(%rbp),%ecx
sub    $0x2,%ecx
cmp    %ecx,%eax
jg     1265 <permuteIQ+0x165>
mov    -0x34(%rbp),%eax
add    -0x34(%rbp),%eax
mov    %eax,-0x38(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movl   $0x1,-0x30(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x18(%rbp),%rcx
movslq -0x30(%rbp),%rdx
add    (%rcx,%rdx,4),%eax
mov    %eax,-0x34(%rbp)
mov    -0x8c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8c(%rbp)
movslq -0x30(%rbp),%rax
mov    -0x90(%rbp,%rax,4),%eax
mov    -0x10(%rbp),%rcx
movslq -0x30(%rbp),%rdx
cmp    (%rcx,%rdx,4),%eax
jl     1252 <permuteIQ+0x152>
movslq -0x30(%rbp),%rax
movl   $0x0,-0x90(%rbp,%rax,4)
mov    -0x34(%rbp),%eax
mov    -0x18(%rbp),%rcx
mov    -0x30(%rbp),%edx
sub    $0x1,%edx
movslq %edx,%rdx
sub    (%rcx,%rdx,4),%eax
mov    -0x18(%rbp),%rcx
mov    -0x30(%rbp),%edx
add    $0x1,%edx
movslq %edx,%rdx
add    (%rcx,%rdx,4),%eax
mov    %eax,-0x34(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
movslq -0x30(%rbp),%rax
mov    -0x90(%rbp,%rax,4),%ecx
add    $0x1,%ecx
movslq -0x30(%rbp),%rax
mov    %ecx,-0x90(%rbp,%rax,4)
jmp    11da <permuteIQ+0xda>
jmp    1257 <permuteIQ+0x157>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1160 <permuteIQ+0x60>
mov    -0x4(%rbp),%eax
sub    $0x1,%eax
shl    $0x1,%eax
mov    %eax,-0x38(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x38(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x4(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
mov    -0x38(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x10(%rbp),%rax
mov    -0x4(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<permuteIQ>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x50,%rsp
mov    %r9,%r14
mov    %r8,%r12
mov    %rcx,%rbx
mov    %rdx,%r13
mov    %edi,%r15d
test   %esi,%esi
jle    1142 <permuteIQ+0x32>
lea    0x4(%rsp),%rdi
mov    %esi,%edx
shl    $0x2,%rdx
xor    %esi,%esi
call   1030 <memset@plt>
mov    0x80(%rsp),%r8
cmp    $0x1,%r15d
jg     118a <permuteIQ+0x7a>
add    $0xffffffff,%r15d
lea    (%r15,%r15,1),%eax
cltq
movsd  (%r12,%rax,8),%xmm0
movslq %r15d,%rax
movsd  %xmm0,(%r14,%rax,8)
lea    0x1(%rax,%rax,1),%ecx
movslq %ecx,%rcx
movsd  (%r12,%rcx,8),%xmm0
movsd  %xmm0,(%r8,%rax,8)
add    $0x50,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret
mov    0x4(%rbx),%r9d
mov    0x4(%r13),%r10d
add    $0xffffffff,%r15d
xor    %esi,%esi
xor    %edi,%edi
jmp    11a9 <permuteIQ+0x99>
nopl   0x0(%rax)
add    $0x1,%rsi
cmp    %r15,%rsi
je     1154 <permuteIQ+0x44>
lea    (%rdi,%rdi,1),%eax
cltq
movsd  (%r12,%rax,8),%xmm0
movsd  %xmm0,(%r14,%rsi,8)
lea    (%rdi,%rdi,1),%eax
add    $0x1,%eax
cltq
movsd  (%r12,%rax,8),%xmm0
movsd  %xmm0,(%r8,%rsi,8)
add    %r9d,%edi
mov    0x4(%rsp),%eax
add    $0x1,%eax
mov    %eax,0x4(%rsp)
cmp    %r10d,%eax
jl     11a0 <permuteIQ+0x90>
mov    $0x8,%eax
cs nopw 0x0(%rax,%rax,1)
movl   $0x0,-0x4(%rsp,%rax,1)
sub    -0x8(%rbx,%rax,1),%edi
add    (%rbx,%rax,1),%edi
mov    (%rsp,%rax,1),%ecx
add    $0x1,%ecx
mov    %ecx,(%rsp,%rax,1)
lea    0x4(%rax),%rdx
cmp    0x0(%r13,%rax,1),%ecx
mov    %rdx,%rax
jge    11f0 <permuteIQ+0xe0>
jmp    11a0 <permuteIQ+0x90>

LLVM IR (-O0):
define void @permuteIQ(i32 %0, i32 %1, i32* %2, i32* %3, double* %4, double* %5, double* %6) {
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32*
%11 = alloca i32*
%12 = alloca double*
%13 = alloca double*
%14 = alloca double*
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca [20 x i32]
store i32 %0, i32* %8
store i32 %1, i32* %9
store i32* %2, i32** %10
store i32* %3, i32** %11
store double* %4, double** %12
store double* %5, double** %13
store double* %6, double** %14
store i32 1, i32* %15
br label %20
20: ; preds = %28, %7
%21 = load i32, i32* %15
%22 = load i32, i32* %9
%23 = icmp sle i32 %21, %22
br i1 %23, label %24, label %31
24: ; preds = %20
%25 = load i32, i32* %15
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds [20 x i32], [20 x i32]* %19, i64 0, i64 %26
store i32 0, i32* %27
br label %28
28: ; preds = %24
%29 = load i32, i32* %15
%30 = add nsw i32 %29, 1
store i32 %30, i32* %15
br label %20
31: ; preds = %20
store i32 0, i32* %17
store i32 0, i32* %15
br label %32
32: ; preds = %112, %31
%33 = load i32, i32* %15
%34 = load i32, i32* %8
%35 = sub nsw i32 %34, 2
%36 = icmp sle i32 %33, %35
br i1 %36, label %37, label %115
37: ; preds = %32
%38 = load i32, i32* %17
%39 = load i32, i32* %17
%40 = add nsw i32 %38, %39
store i32 %40, i32* %18
%41 = load double*, double** %12
%42 = load i32, i32* %18
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds double, double* %41, i64 %43
%45 = load double, double* %44
%46 = load double*, double** %13
%47 = load i32, i32* %15
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds double, double* %46, i64 %48
store double %45, double* %49
%50 = load double*, double** %12
%51 = load i32, i32* %18
%52 = add nsw i32 %51, 1
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds double, double* %50, i64 %53
%55 = load double, double* %54
%56 = load double*, double** %14
%57 = load i32, i32* %15
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds double, double* %56, i64 %58
store double %55, double* %59
store i32 1, i32* %16
%60 = load i32, i32* %17
%61 = load i32*, i32** %11
%62 = load i32, i32* %16
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds i32, i32* %61, i64 %63
%65 = load i32, i32* %64
%66 = add nsw i32 %60, %65
store i32 %66, i32* %17
%67 = getelementptr inbounds [20 x i32], [20 x i32]* %19, i64 0, i64 1
%68 = load i32, i32* %67
%69 = add nsw i32 %68, 1
%70 = getelementptr inbounds [20 x i32], [20 x i32]* %19, i64 0, i64 1
store i32 %69, i32* %70
br label %71
71: ; preds = %82, %37
%72 = load i32, i32* %16
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds [20 x i32], [20 x i32]* %19, i64 0, i64 %73
%75 = load i32, i32* %74
%76 = load i32*, i32** %10
%77 = load i32, i32* %16
%78 = sext i32 %77 to i64
%79 = getelementptr inbounds i32, i32* %76, i64 %78
%80 = load i32, i32* %79
%81 = icmp sge i32 %75, %80
br i1 %81, label %82, label %111
82: ; preds = %71
%83 = load i32, i32* %16
%84 = sext i32 %83 to i64
%85 = getelementptr inbounds [20 x i32], [20 x i32]* %19, i64 0, i64 %84
store i32 0, i32* %85
%86 = load i32, i32* %17
%87 = load i32*, i32** %11
%88 = load i32, i32* %16
%89 = sub nsw i32 %88, 1
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds i32, i32* %87, i64 %90
%92 = load i32, i32* %91
%93 = sub nsw i32 %86, %92
%94 = load i32*, i32** %11
%95 = load i32, i32* %16
%96 = add nsw i32 %95, 1
%97 = sext i32 %96 to i64
%98 = getelementptr inbounds i32, i32* %94, i64 %97
%99 = load i32, i32* %98
%100 = add nsw i32 %93, %99
store i32 %100, i32* %17
%101 = load i32, i32* %16
%102 = add nsw i32 %101, 1
store i32 %102, i32* %16
%103 = load i32, i32* %16
%104 = sext i32 %103 to i64
%105 = getelementptr inbounds [20 x i32], [20 x i32]* %19, i64 0, i64 %104
%106 = load i32, i32* %105
%107 = add nsw i32 %106, 1
%108 = load i32, i32* %16
%109 = sext i32 %108 to i64
%110 = getelementptr inbounds [20 x i32], [20 x i32]* %19, i64 0, i64 %109
store i32 %107, i32* %110
br label %71
111: ; preds = %71
br label %112
112: ; preds = %111
%113 = load i32, i32* %15
%114 = add nsw i32 %113, 1
store i32 %114, i32* %15
br label %32
115: ; preds = %32
%116 = load i32, i32* %8
%117 = sub nsw i32 %116, 1
%118 = mul nsw i32 2, %117
store i32 %118, i32* %18
%119 = load double*, double** %12
%120 = load i32, i32* %18
%121 = sext i32 %120 to i64
%122 = getelementptr inbounds double, double* %119, i64 %121
%123 = load double, double* %122
%124 = load double*, double** %13
%125 = load i32, i32* %8
%126 = sub nsw i32 %125, 1
%127 = sext i32 %126 to i64
%128 = getelementptr inbounds double, double* %124, i64 %127
store double %123, double* %128
%129 = load double*, double** %12
%130 = load i32, i32* %18
%131 = add nsw i32 %130, 1
%132 = sext i32 %131 to i64
%133 = getelementptr inbounds double, double* %129, i64 %132
%134 = load double, double* %133
%135 = load double*, double** %14
%136 = load i32, i32* %8
%137 = sub nsw i32 %136, 1
%138 = sext i32 %137 to i64
%139 = getelementptr inbounds double, double* %135, i64 %138
store double %134, double* %139
ret void
}

LLVM IR (-O2):
define void @permuteIQ(i32 %0, i32 %1, i32* nocapture %2, i32* nocapture %3, double* nocapture %4, double* nocapture writeonly %5, double* nocapture writeonly %6) {
%8 = alloca [20 x i32]
%9 = bitcast [20 x i32]* %8 to i8*
%10 = icmp slt i32 %1, 1
br i1 %10, label %16, label %11
11: ; preds = %7
%12 = getelementptr inbounds [20 x i32], [20 x i32]* %8, i64 0, i64 1
%13 = bitcast i32* %12 to i8*
%14 = zext i32 %1 to i64
%15 = shl nuw nsw i64 %14, 2
br label %16
16: ; preds = %11, %7
%17 = icmp slt i32 %0, 2
br i1 %17, label %18, label %20
18: ; preds = %16
%19 = add nsw i32 %0, -1
br label %67
20: ; preds = %16
%21 = getelementptr inbounds i32, i32* %3, i64 1
%22 = load i32, i32* %21
%23 = getelementptr inbounds [20 x i32], [20 x i32]* %8, i64 0, i64 1
%24 = getelementptr inbounds i32, i32* %2, i64 1
%25 = load i32, i32* %24
%26 = add nsw i32 %0, -1
%27 = zext i32 %26 to i64
br label %28
28: ; preds = %20, %63
%29 = phi i64 [ 0, %20 ], [ %65, %63 ]
%30 = phi i32 [ 0, %20 ], [ %64, %63 ]
%31 = shl nsw i32 %30, 1
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds double, double* %4, i64 %32
%34 = load double, double* %33
%35 = getelementptr inbounds double, double* %5, i64 %29
store double %34, double* %35
%36 = or i32 %31, 1
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds double, double* %4, i64 %37
%39 = load double, double* %38
%40 = getelementptr inbounds double, double* %6, i64 %29
store double %39, double* %40
%41 = add nsw i32 %22, %30
%42 = load i32, i32* %23
%43 = add nsw i32 %42, 1
store i32 %43, i32* %23
%44 = icmp slt i32 %43, %25
br i1 %44, label %63, label %45
45: ; preds = %28, %45
%46 = phi i64 [ %53, %45 ], [ 1, %28 ]
%47 = phi i32* [ %57, %45 ], [ %23, %28 ]
%48 = phi i32 [ %56, %45 ], [ %41, %28 ]
store i32 0, i32* %47
%49 = add nsw i64 %46, -1
%50 = getelementptr inbounds i32, i32* %3, i64 %49
%51 = load i32, i32* %50
%52 = sub i32 %48, %51
%53 = add nuw nsw i64 %46, 1
%54 = getelementptr inbounds i32, i32* %3, i64 %53
%55 = load i32, i32* %54
%56 = add nsw i32 %52, %55
%57 = getelementptr inbounds [20 x i32], [20 x i32]* %8, i64 0, i64 %53
%58 = load i32, i32* %57
%59 = add nsw i32 %58, 1
store i32 %59, i32* %57
%60 = getelementptr inbounds i32, i32* %2, i64 %53
%61 = load i32, i32* %60
%62 = icmp slt i32 %59, %61
br i1 %62, label %63, label %45
63: ; preds = %45, %28
%64 = phi i32 [ %41, %28 ], [ %56, %45 ]
%65 = add nuw nsw i64 %29, 1
%66 = icmp eq i64 %65, %27
br i1 %66, label %67, label %28
67: ; preds = %63, %18
%68 = phi i32 [ %19, %18 ], [ %26, %63 ]
%69 = shl nsw i32 %68, 1
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds double, double* %4, i64 %70
%72 = load double, double* %71
%73 = sext i32 %68 to i64
%74 = getelementptr inbounds double, double* %5, i64 %73
store double %72, double* %74
%75 = or i32 %69, 1
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds double, double* %4, i64 %76
%78 = load double, double* %77
%79 = getelementptr inbounds double, double* %6, i64 %73
store double %78, double* %79
ret void
}