proc_id_lz Function

private elemental function proc_id_lz(lo, i)

FIXME : Add documentation

Arguments

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

Return Value integer


Contents

Source Code

proc_id_lz

Source Code

  elemental function proc_id_lz (lo, i)
    implicit none
    integer :: proc_id_lz
    type (lz_layout_type), intent (in) :: lo
    integer, intent (in) :: i

    if (lambda_local) then
       proc_id_lz = (i/lo%gsize)*lo%nprocset + mod(i, lo%gsize)/lo%nset
    else
       proc_id_lz = i/lo%blocksize
    end if

  end function proc_id_lz