Return the sign index, given yxf-layout and a global index
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(yxf_layout_type), | intent(in) | :: | lo | |||
integer, | intent(in) | :: | i |
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