pc_has_ik Function

private function pc_has_ik(self, ik)

Determine if we have any cells with passed ik?

Type Bound

pc_type

Arguments

Type IntentOptional Attributes Name
class(pc_type), intent(in) :: self
integer, intent(in) :: ik

Return Value logical


Contents

Source Code

pc_has_ik

Source Code

  function pc_has_ik(self,ik)
    implicit none
    class(pc_type), intent(in) :: self
    integer, intent(in) :: ik
    logical :: pc_has_ik
    pc_has_ik=any(self%is_local(:,ik).eq.1)
  end function pc_has_ik