| 1812 | } |
| 1813 | |
| 1814 | static size_t rfftp_twsize(rfftp_plan plan) |
| 1815 | { |
| 1816 | size_t twsize=0, l1=1; |
| 1817 | for (size_t k=0; k<plan->nfct; ++k) |
| 1818 | { |
| 1819 | size_t ip=plan->fct[k].fct, ido= plan->length/(l1*ip); |
| 1820 | twsize+=(ip-1)*(ido-1); |
| 1821 | if (ip>5) twsize+=2*ip; |
| 1822 | l1*=ip; |
| 1823 | } |
| 1824 | return twsize; |
| 1825 | } |
| 1826 | |
| 1827 | WARN_UNUSED_RESULT NOINLINE static int rfftp_comp_twiddle (rfftp_plan plan) |
| 1828 | { |