ik_idx_gf Function

private elemental function ik_idx_gf(lo, i)

FIXME : Add documentation

Arguments

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

Return Value integer


Contents

Source Code


Source Code

  elemental function ik_idx_gf (lo, i)
    implicit none
    integer :: ik_idx_gf
    type (gf_layout_type), intent (in) :: lo
    integer, intent (in) :: i
    ik_idx_gf = 1 + ((i - lo%llim_world)/lo%ntheta0)
  end function ik_idx_gf