ik_idx_xxf Function

private elemental function ik_idx_xxf(lo, i)

Return the ky index, given xxf-layout and a global index

Arguments

Type IntentOptional Attributes Name
type(xxf_layout_type), intent(in) :: lo
integer, intent(in) :: i

Return Value integer


Contents

Source Code

ik_idx_xxf

Source Code

  elemental function ik_idx_xxf (lo, i)
    implicit none
    integer :: ik_idx_xxf
    type (xxf_layout_type), intent (in) :: lo
    integer, intent (in) :: i
    ik_idx_xxf = 1+mod((i-lo%llim_world)/lo%ik_comp,lo%naky)
  end function ik_idx_xxf