cfft_1d_shift Function

public function cfft_1d_shift(fin) result(fout)

Arguments

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

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


Called by

proc~~cfft_1d_shift~~CalledByGraph proc~cfft_1d_shift cfft_1d_shift interface~fftshift fftshift interface~fftshift->proc~cfft_1d_shift

Source Code

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