isign_idx_yxf Function

private elemental function isign_idx_yxf(lo, i)

Return the sign index, given yxf-layout and a global index

Arguments

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

Return Value integer


Contents

Source Code


Source Code

  elemental function isign_idx_yxf (lo, i)
    implicit none
    integer :: isign_idx_yxf
    type (yxf_layout_type), intent (in) :: lo
    integer, intent (in) :: i
    isign_idx_yxf = 1+mod((i-lo%llim_world)/lo%isgn_comp,lo%nsign)
  end function isign_idx_yxf