// File: /workspace/github_c_makefile_star2_O0/pavel-demin[P]ft8d-c/pffft.c
// Function: cffti1_ps
void cffti1_ps(int n, float *wa, int *ifac)
{
  static const int ntryh[] = { 5,3,4,2,0 };
  int k1, j, ii;

  int nf = decompose(n,ifac,ntryh);
  float argh = (2*M_PI)/(float)n;
  int i = 1;
  int l1 = 1;
  for (k1=1; k1<=nf; k1++) {
    int ip = ifac[k1+1];
    int ld = 0;
    int l2 = l1*ip;
    int ido = n / l2;
    int idot = ido + ido + 2;
    int ipm = ip - 1;
    for (j=1; j<=ipm; j++) {
      float argld;
      int i1 = i, fi = 0;
      wa[i-1] = 1;
      wa[i] = 0;
      ld += l1;
      argld = ld*argh;
      for (ii = 4; ii <= idot; ii += 2) {
        i += 2;
        fi += 1;
        wa[i-1] = cos(fi*argld);
        wa[i] = sin(fi*argld);
      }
      if (ip > 5) {
        wa[i1-1] = wa[i-1];
        wa[i1] = wa[i];
      }
    }
    l1 = l2;
  }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x60, %rsp
movl %edi, -0x4(%rbp)
movq %rsi, -0x10(%rbp)
movq %rdx, -0x18(%rbp)
movl -0x4(%rbp), %edi
movq -0x18(%rbp), %rsi
leaq 0x15faf(%rip), %rdx     # 0x18100
callq 0x2330
movl %eax, -0x28(%rbp)
cvtsi2ssl -0x4(%rbp), %xmm0
cvtss2sd %xmm0, %xmm1
movsd 0x15f16(%rip), %xmm0    # 0x18080
divsd %xmm1, %xmm0
cvtsd2ss %xmm0, %xmm0
movss %xmm0, -0x2c(%rbp)
movl $0x1, -0x30(%rbp)
movl $0x1, -0x34(%rbp)
movl $0x1, -0x1c(%rbp)
movl -0x1c(%rbp), %eax
cmpl -0x28(%rbp), %eax
jg 0x231e
movq -0x18(%rbp), %rax
movl -0x1c(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movl (%rax,%rcx,4), %eax
movl %eax, -0x38(%rbp)
movl $0x0, -0x3c(%rbp)
movl -0x34(%rbp), %eax
imull -0x38(%rbp), %eax
movl %eax, -0x40(%rbp)
movl -0x4(%rbp), %eax
cltd
idivl -0x40(%rbp)
movl %eax, -0x44(%rbp)
movl -0x44(%rbp), %eax
addl -0x44(%rbp), %eax
addl $0x2, %eax
movl %eax, -0x48(%rbp)
movl -0x38(%rbp), %eax
subl $0x1, %eax
movl %eax, -0x4c(%rbp)
movl $0x1, -0x20(%rbp)
movl -0x20(%rbp), %eax
cmpl -0x4c(%rbp), %eax
jg 0x230a
movl -0x30(%rbp), %eax
movl %eax, -0x54(%rbp)
movl $0x0, -0x58(%rbp)
movq -0x10(%rbp), %rax
movl -0x30(%rbp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movss 0x15e44(%rip), %xmm0    # 0x18054
movss %xmm0, (%rax,%rcx,4)
movq -0x10(%rbp), %rax
movslq -0x30(%rbp), %rcx
xorps %xmm0, %xmm0
movss %xmm0, (%rax,%rcx,4)
movl -0x34(%rbp), %eax
addl -0x3c(%rbp), %eax
movl %eax, -0x3c(%rbp)
cvtsi2ssl -0x3c(%rbp), %xmm0
mulss -0x2c(%rbp), %xmm0
movss %xmm0, -0x50(%rbp)
movl $0x4, -0x24(%rbp)
movl -0x24(%rbp), %eax
cmpl -0x48(%rbp), %eax
jg 0x22b6
movl -0x30(%rbp), %eax
addl $0x2, %eax
movl %eax, -0x30(%rbp)
movl -0x58(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x58(%rbp)
cvtsi2ssl -0x58(%rbp), %xmm0
mulss -0x50(%rbp), %xmm0
cvtss2sd %xmm0, %xmm0
callq 0x10b0
cvtsd2ss %xmm0, %xmm0
movq -0x10(%rbp), %rax
movl -0x30(%rbp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movss %xmm0, (%rax,%rcx,4)
cvtsi2ssl -0x58(%rbp), %xmm0
mulss -0x50(%rbp), %xmm0
cvtss2sd %xmm0, %xmm0
callq 0x1130
cvtsd2ss %xmm0, %xmm0
movq -0x10(%rbp), %rax
movslq -0x30(%rbp), %rcx
movss %xmm0, (%rax,%rcx,4)
movl -0x24(%rbp), %eax
addl $0x2, %eax
movl %eax, -0x24(%rbp)
jmp 0x2244
cmpl $0x5, -0x38(%rbp)
jle 0x22fa
movq -0x10(%rbp), %rax
movl -0x30(%rbp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movss (%rax,%rcx,4), %xmm0
movq -0x10(%rbp), %rax
movl -0x54(%rbp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movss %xmm0, (%rax,%rcx,4)
movq -0x10(%rbp), %rax
movslq -0x30(%rbp), %rcx
movss (%rax,%rcx,4), %xmm0
movq -0x10(%rbp), %rax
movslq -0x54(%rbp), %rcx
movss %xmm0, (%rax,%rcx,4)
jmp 0x22fc
movl -0x20(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x20(%rbp)
jmp 0x21e2
movl -0x40(%rbp), %eax
movl %eax, -0x34(%rbp)
movl -0x1c(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x1c(%rbp)
jmp 0x218c
addq $0x60, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)