d_tfft Subroutine

public subroutine d_tfft(func_in, func_out)

Arguments

Type IntentOptional Attributes Name
real(kind=8), dimension(:) :: func_in
real(kind=8), optional, dimension(size(func_in)) :: func_out

Calls

proc~~d_tfft~2~~CallsGraph proc~d_tfft~2 d_tfft interface~fftshift~2 fftshift proc~d_tfft~2->interface~fftshift~2 interface~fft~2 fft proc~d_tfft~2->interface~fft~2 interface~ifftshift~2 ifftshift proc~d_tfft~2->interface~ifftshift~2 proc~cfft_1d_shift~2 cfft_1d_shift interface~fftshift~2->proc~cfft_1d_shift~2 proc~rfft_1d_shift~2 rfft_1d_shift interface~fftshift~2->proc~rfft_1d_shift~2 proc~cfft_1d_forward~2 cfft_1d_forward interface~fft~2->proc~cfft_1d_forward~2 proc~rfft_1d_forward~2 rfft_1d_forward interface~fft~2->proc~rfft_1d_forward~2 proc~cfft_1d_ishift~2 cfft_1d_ishift interface~ifftshift~2->proc~cfft_1d_ishift~2 proc~rfft_1d_ishift~2 rfft_1d_ishift interface~ifftshift~2->proc~rfft_1d_ishift~2 cfft1f cfft1f proc~cfft_1d_forward~2->cfft1f cfft1i cfft1i proc~cfft_1d_forward~2->cfft1i rfft1f rfft1f proc~rfft_1d_forward~2->rfft1f rfft1i rfft1i proc~rfft_1d_forward~2->rfft1i

Called by

proc~~d_tfft~2~~CalledByGraph proc~d_tfft~2 d_tfft interface~tfft~2 tfft interface~tfft~2->proc~d_tfft~2

Source Code

  subroutine d_tfft(func_in,func_out)
    real(8),dimension(:)                         :: func_in
    real(8),dimension(size(func_in)),optional    :: func_out
    complex(8),dimension(size(func_in))             :: ftmp
    ftmp = ifftshift(func_in)  
    call fft(ftmp)
    if(present(func_out))then
       func_out = fftshift(ftmp)*size(ftmp)
    else
       func_in  = fftshift(ftmp)*size(ftmp)
    endif
  end subroutine d_tfft