FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(gf_layout_type), | intent(in) | :: | lo | |||
integer, | intent(in) | :: | i |
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