destory_dense Subroutine

private subroutine destory_dense(self)

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(type_dense),	intent(inout)			::	self

Source Code

    subroutine destory_dense(self)
        implicit none
        class(type_dense), intent(inout) :: self

        if (allocated(self%val)) deallocate (self%val)
    end subroutine destory_dense