zffti Subroutine
subroutine zffti(n, Wsave)
Uses
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | n | ||||
| real(kind=rk) | :: | Wsave |
Variables
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | iw1 | ||||
| integer, | public | :: | iw2 |
Source Code
subroutine zffti(n,Wsave)
use fftpack_kind
implicit none
integer :: iw1 , iw2 , n
real(rk) :: Wsave
dimension Wsave(*)
if ( n==1 ) return
iw1 = n + n + 1
iw2 = iw1 + n + n
call cffti1(n,Wsave(iw1),Wsave(iw2))
end subroutine zffti