cfft_1d_ishift Function

public function cfft_1d_ishift(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_ishift~2~~CalledByGraph proc~cfft_1d_ishift~2 cfft_1d_ishift interface~ifftshift~2 ifftshift interface~ifftshift~2->proc~cfft_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 cfft_1d_ishift(fin) result(fout)
    complex(8),dimension(:)          :: fin
    complex(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 cfft_1d_ishift