rfft_1d_ishift Function

public function rfft_1d_ishift(fin) result(fout)

Arguments

Type IntentOptional Attributes Name
real(kind=8), dimension(:) :: fin

Return Value real(kind=8), dimension(size(fin))


Called by

proc~~rfft_1d_ishift~2~~CalledByGraph proc~rfft_1d_ishift~2 rfft_1d_ishift interface~ifftshift~2 ifftshift interface~ifftshift~2->proc~rfft_1d_ishift~2 proc~c_itfft~2 c_itfft proc~c_itfft~2->interface~ifftshift~2 proc~c_tfft~2 c_tfft proc~c_tfft~2->interface~ifftshift~2 proc~d_itfft~2 d_itfft proc~d_itfft~2->interface~ifftshift~2 proc~d_tfft~2 d_tfft proc~d_tfft~2->interface~ifftshift~2 interface~itfft~2 itfft interface~itfft~2->proc~c_itfft~2 interface~itfft~2->proc~d_itfft~2 interface~tfft~2 tfft interface~tfft~2->proc~c_tfft~2 interface~tfft~2->proc~d_tfft~2

Source Code

  function rfft_1d_ishift(fin) result(fout)
    real(8),dimension(:)         :: fin
    real(8),dimension(size(fin)) :: fout
    integer                      :: L,p2
    L  = size(fin)
    p2 = L-floor(dble(L+1)/2.d0)
    fout = [fin(p2+1:),fin(1:p2)]
  end function rfft_1d_ishift