ig_idx_f Function

private function ig_idx_f(lo, i)

FIXME : Add documentation

Arguments

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

Return Value integer


Contents

Source Code

ig_idx_f

Source Code

  function ig_idx_f (lo, i)
    implicit none
    integer :: ig_idx_f
    type (f_layout_type), intent (in) :: lo
    integer, intent (in) :: i
    ig_idx_f = -lo%ntgrid + mod((i - lo%llim_world)/lo%nfield, (2*lo%ntgrid+1))
  end function ig_idx_f