GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
zffti.f
Go to the documentation of this file.
1  subroutine zffti (n,wsave)
2  implicit double precision (a-h,o-z)
3  dimension wsave(*)
4  if (n .eq. 1) return
5  iw1 = n+n+1
6  iw2 = iw1+n+n
7  call zffti1(n,wsave(iw1),wsave(iw2))
8  return
9  end