// File: /workspace/github_c_makefile_star2_O0/diaxen[P]fft-garden/sr_dit_dr.c
// Function: sr_dit_dr
static void
sr_dit_dr(unsigned log2_N,
	  const complex double * restrict in,
	  complex double * restrict out,
	  unsigned l, unsigned i)
{
  unsigned is = 1 << (log2_N - l);
  unsigned os = 1 << (l - 2);
  unsigned t = log2_N - l;

  switch (l)
    {
    case 1:                     /* size 2 base case  */
      ct_dit_bf2_0(1, is, out, in + i);
      break;

    case 2:                     /* size 4 base case  */
      //sr_dit_dr(log2_N, in, out, 1, i);
      ct_dit_bf2_0(1, is * 2, out, in + i);

      out[2] = in[i + is];
      out[3] = in[i + 3 * is];
      sr_dit_bf4_0(1, out);
      break;

    default:
      sr_dit_dr(log2_N, in, out, l - 1, i);
      sr_dit_dr(log2_N, in, out + os * 2, l - 2, i + is);
      sr_dit_dr(log2_N, in, out + 3 * os, l - 2, i + 3 * is);

      for (unsigned k = 0; k < os; k++)
        sr_dit_bf4(os, out + k,
               get_twiddle(k << t, log2_N),
               get_twiddle_sr(k << t, log2_N));
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x80, %rsp
movl %edi, -0x4(%rbp)
movq %rsi, -0x10(%rbp)
movq %rdx, -0x18(%rbp)
movl %ecx, -0x1c(%rbp)
movl %r8d, -0x20(%rbp)
movl -0x4(%rbp), %eax
movl -0x1c(%rbp), %ecx
subl %ecx, %eax
movb %al, %cl
movl $0x1, %eax
movl %eax, %edx
shll %cl, %edx
movl %edx, %ecx
movl %ecx, -0x24(%rbp)
movb -0x1c(%rbp), %cl
addb $-0x2, %cl
shll %cl, %eax
movl %eax, -0x28(%rbp)
movl -0x4(%rbp), %eax
movl -0x1c(%rbp), %ecx
subl %ecx, %eax
movl %eax, -0x2c(%rbp)
movl -0x1c(%rbp), %eax
movl %eax, -0x54(%rbp)
subl $0x1, %eax
je 0x1f05
jmp 0x1ef8
movl -0x54(%rbp), %eax
subl $0x2, %eax
je 0x1f29
jmp 0x1fb4
movl -0x24(%rbp), %esi
movq -0x18(%rbp), %rdx
movq -0x10(%rbp), %rcx
movl -0x20(%rbp), %eax
shlq $0x4, %rax
addq %rax, %rcx
movl $0x1, %edi
callq 0x2110
jmp 0x20d1
movl -0x24(%rbp), %esi
shll %esi
movq -0x18(%rbp), %rdx
movq -0x10(%rbp), %rcx
movl -0x20(%rbp), %eax
shlq $0x4, %rax
addq %rax, %rcx
movl $0x1, %edi
callq 0x2110
movq -0x10(%rbp), %rax
movl -0x20(%rbp), %ecx
addl -0x24(%rbp), %ecx
movl %ecx, %ecx
shlq $0x4, %rcx
addq %rcx, %rax
movsd (%rax), %xmm1
movsd 0x8(%rax), %xmm0
movq -0x18(%rbp), %rax
movsd %xmm1, 0x20(%rax)
movsd %xmm0, 0x28(%rax)
movq -0x10(%rbp), %rax
movl -0x20(%rbp), %ecx
imull $0x3, -0x24(%rbp), %edx
addl %edx, %ecx
movl %ecx, %ecx
shlq $0x4, %rcx
addq %rcx, %rax
movsd (%rax), %xmm1
movsd 0x8(%rax), %xmm0
movq -0x18(%rbp), %rax
movsd %xmm1, 0x30(%rax)
movsd %xmm0, 0x38(%rax)
movq -0x18(%rbp), %rsi
movl $0x1, %edi
callq 0x21c0
jmp 0x20d1
movl -0x4(%rbp), %edi
movq -0x10(%rbp), %rsi
movq -0x18(%rbp), %rdx
movl -0x1c(%rbp), %ecx
subl $0x1, %ecx
movl -0x20(%rbp), %r8d
callq 0x1ea0
movl -0x4(%rbp), %edi
movq -0x10(%rbp), %rsi
movq -0x18(%rbp), %rdx
movl -0x28(%rbp), %eax
shll %eax
movl %eax, %eax
shlq $0x4, %rax
addq %rax, %rdx
movl -0x1c(%rbp), %ecx
subl $0x2, %ecx
movl -0x20(%rbp), %r8d
addl -0x24(%rbp), %r8d
callq 0x1ea0
movl -0x4(%rbp), %edi
movq -0x10(%rbp), %rsi
movq -0x18(%rbp), %rdx
imull $0x3, -0x28(%rbp), %eax
movl %eax, %eax
shlq $0x4, %rax
addq %rax, %rdx
movl -0x1c(%rbp), %ecx
subl $0x2, %ecx
movl -0x20(%rbp), %r8d
imull $0x3, -0x24(%rbp), %eax
addl %eax, %r8d
callq 0x1ea0
movl $0x0, -0x30(%rbp)
movl -0x30(%rbp), %eax
cmpl -0x28(%rbp), %eax
jae 0x20cf
movl -0x28(%rbp), %eax
movl %eax, -0x74(%rbp)
movq -0x18(%rbp), %rax
movl -0x30(%rbp), %ecx
shlq $0x4, %rcx
addq %rcx, %rax
movq %rax, -0x70(%rbp)
movl -0x30(%rbp), %edi
movl -0x2c(%rbp), %ecx
shll %cl, %edi
movl -0x4(%rbp), %esi
callq 0x2ec0
movsd %xmm0, -0x68(%rbp)
movsd %xmm1, -0x60(%rbp)
movl -0x30(%rbp), %edi
movl -0x2c(%rbp), %ecx
shll %cl, %edi
movl -0x4(%rbp), %esi
callq 0x2f00
movl -0x74(%rbp), %edi
movq -0x70(%rbp), %rsi
movaps %xmm0, %xmm3
movsd -0x68(%rbp), %xmm0
movaps %xmm1, %xmm2
movsd -0x60(%rbp), %xmm1
movsd %xmm0, -0x40(%rbp)
movsd %xmm1, -0x38(%rbp)
movsd -0x40(%rbp), %xmm0
movsd -0x38(%rbp), %xmm1
movsd %xmm3, -0x50(%rbp)
movsd %xmm2, -0x48(%rbp)
movsd -0x50(%rbp), %xmm2
movsd -0x48(%rbp), %xmm3
callq 0x23b0
movl -0x30(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x30(%rbp)
jmp 0x202f
jmp 0x20d1
addq $0x80, %rsp
popq %rbp
retq
nopw (%rax,%rax)