rb_deallocate Subroutine

private subroutine rb_deallocate(self)

Deallocate storage space

Type Bound

rowblock_type

Arguments

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

Contents

Source Code

rb_deallocate

Source Code

  subroutine rb_deallocate(self)
    implicit none
    class(rowblock_type), intent(inout) :: self
    if(allocated(self%data)) deallocate(self%data)
    if(allocated(self%tmp_sum)) deallocate(self%tmp_sum)
  end subroutine rb_deallocate