void r4tx(nthpo, cr0, cr1, cr2, cr3, ci0, ci1, ci2, ci3) int nthpo;
double *cr0, *cr1, *cr2, *cr3, *ci0, *ci1, *ci2, *ci3;
{
  int i;
  double i1, i2, i3, i4, r1, r2, r3, r4;
  for (i = 0; i < nthpo; i += 4) {
    r1 = cr0[i] + cr2[i];
    r2 = cr0[i] - cr2[i];
    r3 = cr1[i] + cr3[i];
    r4 = cr1[i] - cr3[i];
    i1 = ci0[i] + ci2[i];
    i2 = ci0[i] - ci2[i];
    i3 = ci1[i] + ci3[i];
    i4 = ci1[i] - ci3[i];
    cr0[i] = r1 + r3;
    ci0[i] = i1 + i3;
    cr1[i] = r1 - r3;
    ci1[i] = i1 - i3;
    cr2[i] = r2 - i4;
    ci2[i] = i2 + r4;
    cr3[i] = r2 + i4;
    ci3[i] = i2 - r4;
  }
}


x86 assembly (clang, -O0):
<r4tx>:
push   %rbp
mov    %rsp,%rbp
mov    0x20(%rbp),%rax
mov    0x18(%rbp),%rax
mov    0x10(%rbp),%rax
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    12f8 <r4tx+0x1f8>
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x68(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x70(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x78(%rbp)
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x50(%rbp)
mov    0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x60(%rbp),%xmm0
addsd  -0x70(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x40(%rbp),%xmm0
addsd  -0x50(%rbp),%xmm0
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x60(%rbp),%xmm0
subsd  -0x70(%rbp),%xmm0
mov    -0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x40(%rbp),%xmm0
subsd  -0x50(%rbp),%xmm0
mov    0x10(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x68(%rbp),%xmm0
subsd  -0x58(%rbp),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x48(%rbp),%xmm0
addsd  -0x78(%rbp),%xmm0
mov    0x18(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x68(%rbp),%xmm0
addsd  -0x58(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movsd  -0x48(%rbp),%xmm0
subsd  -0x78(%rbp),%xmm0
mov    0x20(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x4,%eax
mov    %eax,-0x34(%rbp)
jmp    112e <r4tx+0x2e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<r4tx>:
push   %rbx
test   %edi,%edi
jle    11ea <r4tx+0xea>
mov    0x20(%rsp),%r10
mov    0x18(%rsp),%r11
mov    0x10(%rsp),%rax
mov    %edi,%edi
xor    %ebx,%ebx
nopl   0x0(%rax)
movsd  (%rsi,%rbx,8),%xmm8
movsd  (%rcx,%rbx,8),%xmm1
movapd %xmm8,%xmm3
addsd  %xmm1,%xmm3
subsd  %xmm1,%xmm8
movsd  (%rdx,%rbx,8),%xmm1
movsd  (%r8,%rbx,8),%xmm2
movapd %xmm1,%xmm4
addsd  %xmm2,%xmm4
subsd  %xmm2,%xmm1
movsd  (%r9,%rbx,8),%xmm2
movsd  (%r11,%rbx,8),%xmm5
movapd %xmm2,%xmm6
addsd  %xmm5,%xmm6
subsd  %xmm5,%xmm2
movsd  (%rax,%rbx,8),%xmm5
movsd  (%r10,%rbx,8),%xmm7
movapd %xmm5,%xmm0
addsd  %xmm7,%xmm0
subsd  %xmm7,%xmm5
movapd %xmm3,%xmm7
addsd  %xmm4,%xmm7
movsd  %xmm7,(%rsi,%rbx,8)
movapd %xmm6,%xmm7
addsd  %xmm0,%xmm7
movsd  %xmm7,(%r9,%rbx,8)
subsd  %xmm4,%xmm3
movsd  %xmm3,(%rdx,%rbx,8)
subsd  %xmm0,%xmm6
movsd  %xmm6,(%rax,%rbx,8)
movapd %xmm8,%xmm0
subsd  %xmm5,%xmm0
movsd  %xmm0,(%rcx,%rbx,8)
movapd %xmm1,%xmm0
addsd  %xmm2,%xmm0
movsd  %xmm0,(%r11,%rbx,8)
addsd  %xmm8,%xmm5
movsd  %xmm5,(%r8,%rbx,8)
subsd  %xmm1,%xmm2
movsd  %xmm2,(%r10,%rbx,8)
add    $0x4,%rbx
cmp    %rdi,%rbx
jb     1120 <r4tx+0x20>
pop    %rbx
ret

LLVM IR (-O0):
define void @r4tx(i32 %0, double* %1, double* %2, double* %3, double* %4, double* %5, double* %6, double* %7, double* %8) {
%10 = alloca i32
%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 i32
%20 = alloca double
%21 = alloca double
%22 = alloca double
%23 = alloca double
%24 = alloca double
%25 = alloca double
%26 = alloca double
%27 = alloca double
store i32 %0, i32* %10
store double* %1, double** %11
store double* %2, double** %12
store double* %3, double** %13
store double* %4, double** %14
store double* %5, double** %15
store double* %6, double** %16
store double* %7, double** %17
store double* %8, double** %18
store i32 0, i32* %19
br label %28
28: ; preds = %177, %9
%29 = load i32, i32* %19
%30 = load i32, i32* %10
%31 = icmp slt i32 %29, %30
br i1 %31, label %32, label %180
32: ; preds = %28
%33 = load double*, double** %11
%34 = load i32, i32* %19
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds double, double* %33, i64 %35
%37 = load double, double* %36
%38 = load double*, double** %13
%39 = load i32, i32* %19
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds double, double* %38, i64 %40
%42 = load double, double* %41
%43 = fadd double %37, %42
store double %43, double* %24
%44 = load double*, double** %11
%45 = load i32, i32* %19
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds double, double* %44, i64 %46
%48 = load double, double* %47
%49 = load double*, double** %13
%50 = load i32, i32* %19
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds double, double* %49, i64 %51
%53 = load double, double* %52
%54 = fsub double %48, %53
store double %54, double* %25
%55 = load double*, double** %12
%56 = load i32, i32* %19
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds double, double* %55, i64 %57
%59 = load double, double* %58
%60 = load double*, double** %14
%61 = load i32, i32* %19
%62 = sext i32 %61 to i64
%63 = getelementptr inbounds double, double* %60, i64 %62
%64 = load double, double* %63
%65 = fadd double %59, %64
store double %65, double* %26
%66 = load double*, double** %12
%67 = load i32, i32* %19
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds double, double* %66, i64 %68
%70 = load double, double* %69
%71 = load double*, double** %14
%72 = load i32, i32* %19
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds double, double* %71, i64 %73
%75 = load double, double* %74
%76 = fsub double %70, %75
store double %76, double* %27
%77 = load double*, double** %15
%78 = load i32, i32* %19
%79 = sext i32 %78 to i64
%80 = getelementptr inbounds double, double* %77, i64 %79
%81 = load double, double* %80
%82 = load double*, double** %17
%83 = load i32, i32* %19
%84 = sext i32 %83 to i64
%85 = getelementptr inbounds double, double* %82, i64 %84
%86 = load double, double* %85
%87 = fadd double %81, %86
store double %87, double* %20
%88 = load double*, double** %15
%89 = load i32, i32* %19
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds double, double* %88, i64 %90
%92 = load double, double* %91
%93 = load double*, double** %17
%94 = load i32, i32* %19
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds double, double* %93, i64 %95
%97 = load double, double* %96
%98 = fsub double %92, %97
store double %98, double* %21
%99 = load double*, double** %16
%100 = load i32, i32* %19
%101 = sext i32 %100 to i64
%102 = getelementptr inbounds double, double* %99, i64 %101
%103 = load double, double* %102
%104 = load double*, double** %18
%105 = load i32, i32* %19
%106 = sext i32 %105 to i64
%107 = getelementptr inbounds double, double* %104, i64 %106
%108 = load double, double* %107
%109 = fadd double %103, %108
store double %109, double* %22
%110 = load double*, double** %16
%111 = load i32, i32* %19
%112 = sext i32 %111 to i64
%113 = getelementptr inbounds double, double* %110, i64 %112
%114 = load double, double* %113
%115 = load double*, double** %18
%116 = load i32, i32* %19
%117 = sext i32 %116 to i64
%118 = getelementptr inbounds double, double* %115, i64 %117
%119 = load double, double* %118
%120 = fsub double %114, %119
store double %120, double* %23
%121 = load double, double* %24
%122 = load double, double* %26
%123 = fadd double %121, %122
%124 = load double*, double** %11
%125 = load i32, i32* %19
%126 = sext i32 %125 to i64
%127 = getelementptr inbounds double, double* %124, i64 %126
store double %123, double* %127
%128 = load double, double* %20
%129 = load double, double* %22
%130 = fadd double %128, %129
%131 = load double*, double** %15
%132 = load i32, i32* %19
%133 = sext i32 %132 to i64
%134 = getelementptr inbounds double, double* %131, i64 %133
store double %130, double* %134
%135 = load double, double* %24
%136 = load double, double* %26
%137 = fsub double %135, %136
%138 = load double*, double** %12
%139 = load i32, i32* %19
%140 = sext i32 %139 to i64
%141 = getelementptr inbounds double, double* %138, i64 %140
store double %137, double* %141
%142 = load double, double* %20
%143 = load double, double* %22
%144 = fsub double %142, %143
%145 = load double*, double** %16
%146 = load i32, i32* %19
%147 = sext i32 %146 to i64
%148 = getelementptr inbounds double, double* %145, i64 %147
store double %144, double* %148
%149 = load double, double* %25
%150 = load double, double* %23
%151 = fsub double %149, %150
%152 = load double*, double** %13
%153 = load i32, i32* %19
%154 = sext i32 %153 to i64
%155 = getelementptr inbounds double, double* %152, i64 %154
store double %151, double* %155
%156 = load double, double* %21
%157 = load double, double* %27
%158 = fadd double %156, %157
%159 = load double*, double** %17
%160 = load i32, i32* %19
%161 = sext i32 %160 to i64
%162 = getelementptr inbounds double, double* %159, i64 %161
store double %158, double* %162
%163 = load double, double* %25
%164 = load double, double* %23
%165 = fadd double %163, %164
%166 = load double*, double** %14
%167 = load i32, i32* %19
%168 = sext i32 %167 to i64
%169 = getelementptr inbounds double, double* %166, i64 %168
store double %165, double* %169
%170 = load double, double* %21
%171 = load double, double* %27
%172 = fsub double %170, %171
%173 = load double*, double** %18
%174 = load i32, i32* %19
%175 = sext i32 %174 to i64
%176 = getelementptr inbounds double, double* %173, i64 %175
store double %172, double* %176
br label %177
177: ; preds = %32
%178 = load i32, i32* %19
%179 = add nsw i32 %178, 4
store i32 %179, i32* %19
br label %28
180: ; preds = %28
ret void
}

LLVM IR (-O2):
define void @r4tx(i32 %0, double* nocapture %1, double* nocapture %2, double* nocapture %3, double* nocapture %4, double* nocapture %5, double* nocapture %6, double* nocapture %7, double* nocapture %8) {
%10 = icmp sgt i32 %0, 0
br i1 %10, label %11, label %49
11: ; preds = %9
%12 = zext i32 %0 to i64
br label %13
13: ; preds = %11, %13
%14 = phi i64 [ 0, %11 ], [ %47, %13 ]
%15 = getelementptr inbounds double, double* %1, i64 %14
%16 = load double, double* %15
%17 = getelementptr inbounds double, double* %3, i64 %14
%18 = load double, double* %17
%19 = fadd double %16, %18
%20 = fsub double %16, %18
%21 = getelementptr inbounds double, double* %2, i64 %14
%22 = load double, double* %21
%23 = getelementptr inbounds double, double* %4, i64 %14
%24 = load double, double* %23
%25 = fadd double %22, %24
%26 = fsub double %22, %24
%27 = getelementptr inbounds double, double* %5, i64 %14
%28 = load double, double* %27
%29 = getelementptr inbounds double, double* %7, i64 %14
%30 = load double, double* %29
%31 = fadd double %28, %30
%32 = fsub double %28, %30
%33 = getelementptr inbounds double, double* %6, i64 %14
%34 = load double, double* %33
%35 = getelementptr inbounds double, double* %8, i64 %14
%36 = load double, double* %35
%37 = fadd double %34, %36
%38 = fsub double %34, %36
%39 = fadd double %19, %25
store double %39, double* %15
%40 = fadd double %31, %37
store double %40, double* %27
%41 = fsub double %19, %25
store double %41, double* %21
%42 = fsub double %31, %37
store double %42, double* %33
%43 = fsub double %20, %38
store double %43, double* %17
%44 = fadd double %26, %32
store double %44, double* %29
%45 = fadd double %20, %38
store double %45, double* %23
%46 = fsub double %32, %26
store double %46, double* %35
%47 = add nuw nsw i64 %14, 4
%48 = icmp ult i64 %47, %12
br i1 %48, label %13, label %49
49: ; preds = %13, %9
ret void
}