ig_local_accelx Function

private elemental function ig_local_accelx(lo, i)

FIXME : Add documentation

Arguments

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

Return Value logical


Contents

Source Code

ig_local_accelx

Source Code

  elemental function ig_local_accelx (lo, i)
    implicit none
    logical ig_local_accelx
    type (accelx_layout_type), intent (in) :: lo
    integer, intent (in) :: i
#ifndef SHMEM
    ig_local_accelx = lo%iproc == proc_id(lo, i)
#else
    ig_local_accelx = .false.
    if ( i >= lo%llim_proc .and. i <= lo%ulim_proc) &
         ig_local_accelx = .true.
#endif
  end function ig_local_accelx