rb_set_nrow Subroutine

private subroutine rb_set_nrow(self)

Set the nrow variables

Type Bound

rowblock_type

Arguments

Type IntentOptional Attributes Name
class(rowblock_type), intent(inout) :: self

Contents

Source Code

rb_set_nrow

Source Code

  subroutine rb_set_nrow(self)
    implicit none
    class(rowblock_type), intent(inout) :: self
    if(self%row_ulim<=0)then
       self%nrow=0
    else
       self%nrow=1+self%row_ulim-self%row_llim
    endif
  end subroutine rb_set_nrow