is_idx_le Function

private elemental function is_idx_le(lo, i)

FIXME : Add documentation

Arguments

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

Return Value integer


Contents

Source Code


Source Code

  elemental function is_idx_le (lo, i)
    implicit none
    integer :: is_idx_le
    type (le_layout_type), intent (in) :: lo
    integer, intent (in) :: i
    is_idx_le = 1 + mod((i - lo%llim_world)/lo%is_comp, lo%nspec)
  end function is_idx_le