c_has_row Function

private function c_has_row(self, irow)

Test if a given row belongs to the current cell

Type Bound

cell_type

Arguments

Type IntentOptional Attributes Name
class(cell_type), intent(in) :: self
integer, intent(in) :: irow

Return Value logical


Contents

Source Code

c_has_row

Source Code

  function c_has_row(self,irow)
    implicit none
    class(cell_type), intent(in) :: self
    integer, intent(in) :: irow
    logical :: c_has_row
    !NOTE: Here we assume all row blocks in the cell have the same
    !row limits
    if(size(self%rb)>0)then
       c_has_row=(irow>=self%rb(1)%row_llim.and.irow<=self%rb(1)%row_ulim)
    else
       c_has_row=.false.
    endif
  end function c_has_row