// File: /workspace/github_c_makefile_star2_O0/diaxen[P]fft-garden/mr_dit_dr_P.c
// Function: mr_dit_dr
static inline void
mr_dit_dr(const complex double * restrict in,
	      complex double * restrict out,
	      int s, int log2_N)
{
  unsigned l = 1 << (log2_N - s);
  unsigned stride = 1 << s;

  switch (l)
    {
    case 2:			/* last stage radix 2 */
      ct_dit_bf2_0(1, stride, out, in);
      break;

    case 4:			/* last stage radix 4 */
      mr_dit_bf4_0(1, stride, out, in);
      break;

    default:
      l >>= 2;
      mr_dit_dr(in,              out,         s + 2, log2_N);
      mr_dit_dr(in + stride,     out + l,     s + 2, log2_N);
      mr_dit_dr(in + stride * 2, out + 2 * l, s + 2, log2_N);
      mr_dit_dr(in + stride * 3, out + 3 * l, s + 2, log2_N);

      mr_dit_bf4_0(l, l, out, out);
      mr_dit_bf4_1(l, out + l / 2);

      unsigned k;
      for (k = 1; k < l / 2; k++)
        mr_dit_bf4(l, out + k,
               get_twiddle(k << s, log2_N),
               get_twiddle(k * 2 << s, log2_N),
               get_twiddle_mr(k * 3 << s, log2_N));
      for (k++; k < l; k++)
        mr_dit_bf4(l, out + k,
               get_twiddle(k << s, log2_N),
               get_twiddle(k * 2 << s, log2_N),
               get_twiddle_mr(k * 3 << s, log2_N));
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0xf0, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movl %edx, -0x14(%rbp)
movl %ecx, -0x18(%rbp)
movl -0x18(%rbp), %eax
movl -0x14(%rbp), %ecx
subl %ecx, %eax
movb %al, %cl
movl $0x1, %eax
movl %eax, %edx
shll %cl, %edx
movl %edx, %ecx
movl %ecx, -0x1c(%rbp)
movb -0x14(%rbp), %cl
shll %cl, %eax
movl %eax, -0x20(%rbp)
movl -0x1c(%rbp), %eax
movl %eax, -0x8c(%rbp)
subl $0x2, %eax
je 0x1da6
jmp 0x1d99
movl -0x8c(%rbp), %eax
subl $0x4, %eax
je 0x1dc0
jmp 0x1dda
movl -0x20(%rbp), %esi
movq -0x10(%rbp), %rdx
movq -0x8(%rbp), %rcx
movl $0x1, %edi
callq 0x2110
jmp 0x20cc
movl -0x20(%rbp), %esi
movq -0x10(%rbp), %rdx
movq -0x8(%rbp), %rcx
movl $0x1, %edi
callq 0x21c0
jmp 0x20cc
movl -0x1c(%rbp), %eax
shrl $0x2, %eax
movl %eax, -0x1c(%rbp)
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rsi
movl -0x14(%rbp), %edx
addl $0x2, %edx
movl -0x18(%rbp), %ecx
callq 0x1d50
movq -0x8(%rbp), %rdi
movl -0x20(%rbp), %eax
shlq $0x4, %rax
addq %rax, %rdi
movq -0x10(%rbp), %rsi
movl -0x1c(%rbp), %eax
shlq $0x4, %rax
addq %rax, %rsi
movl -0x14(%rbp), %edx
addl $0x2, %edx
movl -0x18(%rbp), %ecx
callq 0x1d50
movq -0x8(%rbp), %rdi
movl -0x20(%rbp), %eax
shll %eax
movl %eax, %eax
shlq $0x4, %rax
addq %rax, %rdi
movq -0x10(%rbp), %rsi
movl -0x1c(%rbp), %eax
shll %eax
movl %eax, %eax
shlq $0x4, %rax
addq %rax, %rsi
movl -0x14(%rbp), %edx
addl $0x2, %edx
movl -0x18(%rbp), %ecx
callq 0x1d50
movq -0x8(%rbp), %rdi
imull $0x3, -0x20(%rbp), %eax
movl %eax, %eax
shlq $0x4, %rax
addq %rax, %rdi
movq -0x10(%rbp), %rsi
imull $0x3, -0x1c(%rbp), %eax
movl %eax, %eax
shlq $0x4, %rax
addq %rax, %rsi
movl -0x14(%rbp), %edx
addl $0x2, %edx
movl -0x18(%rbp), %ecx
callq 0x1d50
movl -0x1c(%rbp), %edi
movl -0x1c(%rbp), %esi
movq -0x10(%rbp), %rdx
movq -0x10(%rbp), %rcx
callq 0x21c0
movl -0x1c(%rbp), %edi
movq -0x10(%rbp), %rsi
movl -0x1c(%rbp), %eax
shrl %eax
movl %eax, %eax
shlq $0x4, %rax
addq %rax, %rsi
callq 0x24b0
movl $0x1, -0x24(%rbp)
movl -0x24(%rbp), %eax
movl -0x1c(%rbp), %ecx
shrl %ecx
cmpl %ecx, %eax
jae 0x1fbc
movl -0x1c(%rbp), %eax
movl %eax, -0xac(%rbp)
movq -0x10(%rbp), %rax
movl -0x24(%rbp), %ecx
shlq $0x4, %rcx
addq %rcx, %rax
movq %rax, -0xa8(%rbp)
movl -0x24(%rbp), %edi
movl -0x14(%rbp), %ecx
shll %cl, %edi
movl -0x18(%rbp), %esi
callq 0x2f00
movsd %xmm0, -0xa0(%rbp)
movsd %xmm1, -0x98(%rbp)
movl -0x24(%rbp), %edi
shll %edi
movl -0x14(%rbp), %ecx
shll %cl, %edi
movl -0x18(%rbp), %esi
callq 0x2f00
movsd %xmm0, -0xc0(%rbp)
movsd %xmm1, -0xb8(%rbp)
imull $0x3, -0x24(%rbp), %edi
movl -0x14(%rbp), %ecx
shll %cl, %edi
movl -0x18(%rbp), %esi
callq 0x2fe0
movsd -0xc0(%rbp), %xmm3
movsd -0xb8(%rbp), %xmm2
movl -0xac(%rbp), %edi
movq -0xa8(%rbp), %rsi
movaps %xmm0, %xmm5
movsd -0xa0(%rbp), %xmm0
movaps %xmm1, %xmm4
movsd -0x98(%rbp), %xmm1
movsd %xmm0, -0x38(%rbp)
movsd %xmm1, -0x30(%rbp)
movsd -0x38(%rbp), %xmm0
movsd -0x30(%rbp), %xmm1
movsd %xmm3, -0x48(%rbp)
movsd %xmm2, -0x40(%rbp)
movsd -0x48(%rbp), %xmm2
movsd -0x40(%rbp), %xmm3
movsd %xmm5, -0x58(%rbp)
movsd %xmm4, -0x50(%rbp)
movsd -0x58(%rbp), %xmm4
movsd -0x50(%rbp), %xmm5
callq 0x2940
movl -0x24(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x24(%rbp)
jmp 0x1eb9
movl -0x24(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x24(%rbp)
movl -0x24(%rbp), %eax
cmpl -0x1c(%rbp), %eax
jae 0x20ca
movl -0x1c(%rbp), %eax
movl %eax, -0xdc(%rbp)
movq -0x10(%rbp), %rax
movl -0x24(%rbp), %ecx
shlq $0x4, %rcx
addq %rcx, %rax
movq %rax, -0xd8(%rbp)
movl -0x24(%rbp), %edi
movl -0x14(%rbp), %ecx
shll %cl, %edi
movl -0x18(%rbp), %esi
callq 0x2f00
movsd %xmm0, -0xd0(%rbp)
movsd %xmm1, -0xc8(%rbp)
movl -0x24(%rbp), %edi
shll %edi
movl -0x14(%rbp), %ecx
shll %cl, %edi
movl -0x18(%rbp), %esi
callq 0x2f00
movsd %xmm0, -0xf0(%rbp)
movsd %xmm1, -0xe8(%rbp)
imull $0x3, -0x24(%rbp), %edi
movl -0x14(%rbp), %ecx
shll %cl, %edi
movl -0x18(%rbp), %esi
callq 0x2fe0
movsd -0xf0(%rbp), %xmm3
movsd -0xe8(%rbp), %xmm2
movl -0xdc(%rbp), %edi
movq -0xd8(%rbp), %rsi
movaps %xmm0, %xmm5
movsd -0xd0(%rbp), %xmm0
movaps %xmm1, %xmm4
movsd -0xc8(%rbp), %xmm1
movsd %xmm0, -0x68(%rbp)
movsd %xmm1, -0x60(%rbp)
movsd -0x68(%rbp), %xmm0
movsd -0x60(%rbp), %xmm1
movsd %xmm3, -0x78(%rbp)
movsd %xmm2, -0x70(%rbp)
movsd -0x78(%rbp), %xmm2
movsd -0x70(%rbp), %xmm3
movsd %xmm5, -0x88(%rbp)
movsd %xmm4, -0x80(%rbp)
movsd -0x88(%rbp), %xmm4
movsd -0x80(%rbp), %xmm5
callq 0x2940
movl -0x24(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x24(%rbp)
jmp 0x1fc5
jmp 0x20cc
addq $0xf0, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)