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~~CalledByGraph proc~rfft_1d_ishift rfft_1d_ishift interface~ifftshift ifftshift interface~ifftshift->proc~rfft_1d_ishift

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