isign_idx_e Function

private elemental function isign_idx_e(lo, i)

FIXME : Add documentation

Arguments

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

Return Value integer


Contents

Source Code

isign_idx_e

Source Code

  elemental function isign_idx_e (lo, i)
    implicit none
    integer :: isign_idx_e
    type (e_layout_type), intent (in) :: lo
    integer, intent (in) :: i

    isign_idx_e = 1 + mod((i - lo%llim_world)/(2*lo%ntgrid + 1),lo%nsign)
  end function isign_idx_e