FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(f_layout_type), | intent(in) | :: | lo | |||
integer, | intent(in) | :: | i |
function if_idx_f (lo, i)
implicit none
integer :: if_idx_f
type (f_layout_type), intent (in) :: lo
integer, intent (in) :: i
if_idx_f = 1 + mod(i - lo%llim_world, lo%nindex)
end function if_idx_f