it_idx_jf Function

private function it_idx_jf(lo, i)

FIXME : Add documentation

Arguments

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

Return Value integer


Contents

Source Code

it_idx_jf

Source Code

  function it_idx_jf (lo, i)
    implicit none
    integer :: it_idx_jf
    type (jf_layout_type), intent (in) :: lo
    integer, intent (in) :: i
    it_idx_jf = 1 + mod((i - lo%llim_world)/lo%nindex, lo%ntheta0)
  end function it_idx_jf